From 2f3859f07fd0dde13d351274b3d9a567b75c2e5d Mon Sep 17 00:00:00 2001
From: Nenad Rakocevic <nr@red-lang.org>
Date: Tue, 9 Jun 2026 11:15:49 +0200
Subject: [PATCH] FEAT: allows face classifier to read data from memory.

---
 libs/objdetect/rcvHaarCascade.red | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/libs/objdetect/rcvHaarCascade.red b/libs/objdetect/rcvHaarCascade.red
index 428c723..68c0a6a 100644
--- a/libs/objdetect/rcvHaarCascade.red
+++ b/libs/objdetect/rcvHaarCascade.red
@@ -123,8 +123,8 @@ rcvCreateArrayPointers: routine [
 rcvReadTextClassifier: func [
 {Process classifier file and return number of stages, total number of nodes 
 and original win size}
-	f			[file!]
-	nParameters	[integer!] ;--default 23
+	f			[file! block!]			;--read classifier from file or memory
+	nParameters	[integer!] 				;--default 23
 	return: 	[block!]
 ][
 	;--clear arrays for each reading!
@@ -143,7 +143,7 @@ and original win size}
 	clear tiltedArray
 	isTilted: 0
 	
-	blk: read/lines f
+	blk: either file? f [read/lines f][f]
 	; header section ligne 1
 	;probe blk/1
 	line: 2