Changeset 4 for src/Main.hs

Timestamp:

02/06/05 20:01:10 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

1041

Message:

* This be 6.0.0.

Files:

• src/Main.hs (modified) (4 diffs)

src/Main.hs

@@ -15 +15 @@
 
 module Main where
-import IO
-import System
+import Internals
 
 import AST
@@ -32 +31 @@
 run (('-':'e':str@(_:_)):args) = doRun str args
 run ("-e":str:args) = doRun str args
+run ("-h":_)        = printHelp
 run (file:args)     = readFile file >>= (`doRun` args)
 run []              = do
     hSetBuffering stdout NoBuffering 
-    banner
-    repLoop () 
+    isTTY <- hIsTerminalDevice stdin
+    if isTTY
+        then banner >> repLoop () 
+        else do
+            str <- getContents
+            doRun str []
 
 repLoop :: State -> IO ()
@@ -45 +49 @@
            Load fn  -> load fn
            Eval str -> doEval str [] >> repLoop initState 
-           Parse str-> parse str >> repLoop initState 
+           Parse str-> doParse str >> repLoop initState 
            Help     -> printHelp >> repLoop state 
 
@@ -51 +55 @@
     return ()
 
-parse str = runLex print parseOp str
+doParse str = runLex print parseOp str
 
 eval str = doEval str []