Improved tree toString; reverse.smf

1 files changed, 15 insertions, 3 deletions

diff --git a/tree.icl b/tree.icl
index 82e0ae9..c7cdc77 100644
--- a/tree.icl
+++ b/tree.icl
@@ -10,7 +10,19 @@ import System.CommandLine, System.GetOpt
 import Smurf
 import SmurfParse
 
-Start = toString devtree
+Start w
+# (_,f,w)    = fopen "reverse.smf" FReadText w
+# (pgm,f)    = readFile f
+# (ok,w)     = fclose f w
+# (Just pgm) = parse [c \\ c <-: pgm]
+= toString (devtree pgm)
 where
-	(Just devtree) = tree pgm zero zero listIO
-	(Just pgm) = parse ['"abc""123"+o']
+	devtree pgm = fromJust (tree pgm zero {zero & input = ["reverse"]} listIO)
+
+	readFile :: !*File -> *(!String, !*File)
+	readFile f
+		# (end,f) = fend f
+		| end     = ("", f)
+		# (s,f)   = freadline f
+		# (ss,f)  = readFile f
+		= (s +++ ss, f)