Initial import of qemu-2.4.1HEADmaster

1 files changed, 41 insertions, 0 deletions

diff --git a/roms/SLOF/slof/fs/preprocessor.fs b/roms/SLOF/slof/fs/preprocessor.fs
new file mode 100644
index 00000000..a13fb300
--- /dev/null
+++ b/roms/SLOF/slof/fs/preprocessor.fs
@@ -0,0 +1,41 @@
+\ *****************************************************************************
+\ * Copyright (c) 2004, 2008 IBM Corporation
+\ * All rights reserved.
+\ * This program and the accompanying materials
+\ * are made available under the terms of the BSD License
+\ * which accompanies this distribution, and is available at
+\ * http://www.opensource.org/licenses/bsd-license.php
+\ *
+\ * Contributors:
+\ *     IBM Corporation - initial implementation
+\ ****************************************************************************/
+
+: ([IF])
+  BEGIN
+    BEGIN parse-word dup 0= WHILE
+      2drop refill
+    REPEAT
+
+    2dup s" [IF]" str= IF 1 throw THEN
+    2dup s" [ELSE]" str= IF 2 throw THEN
+    2dup s" [THEN]" str= IF 3 throw THEN
+    s" \" str= IF linefeed parse 2drop THEN
+  AGAIN
+  ;
+
+: [IF] ( flag -- )
+  IF exit THEN
+  1 BEGIN
+    ['] ([IF]) catch 
+    CASE
+      1 OF 1+ ENDOF
+      2 OF dup 1 = if 1- then ENDOF
+      3 OF 1- ENDOF
+    ENDCASE
+    dup 0 <=
+  UNTIL drop
+; immediate
+
+: [ELSE] 0 [COMPILE] [IF] ; immediate
+: [THEN] ; immediate
+