From 9cd074db4da194630b223a988b25fd015b527d38 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Thu, 26 May 2016 17:42:14 +0200
Subject: Improved tree toString; reverse.smf

---
 tree.icl | 18 +++++++++++++++---
 1 file changed, 15 insertions(+), 3 deletions(-)

(limited to 'tree.icl')

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)
-- 
cgit v1.2.3