diff options
| author | martinw | 2000-02-21 10:53:18 +0000 |
|---|---|---|
| committer | martinw | 2000-02-21 10:53:18 +0000 |
| commit | bbac534f39d2a14a3b32345f590d4a8252d27eae (patch) | |
| tree | 77974aa417feacf55ad44e19ff05b80999e05ce6 /frontend/main.icl | |
| parent | Commiting changes in syntax tree to enable backend adaption. New added constr... (diff) | |
- implemented comparison between redundant definitions in icl and dcl modules
(new module: comparedefimp)
- implemented array patterns. Further work: arrays are in lazy context (should be strict),
currently only one dimensional arrays
- optimised memory usage for explicit imports
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@94 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/main.icl')
| -rw-r--r-- | frontend/main.icl | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/frontend/main.icl b/frontend/main.icl index 5f4c7d0..d907e1c 100644 --- a/frontend/main.icl +++ b/frontend/main.icl @@ -19,6 +19,16 @@ Start world (ms.ms_out, ms.ms_files))) world = fclose ms_out world + +CommandLoop proj ms=:{ms_io} + # answer = "c t5\n" + (command, argument) = SplitAtLayoutChar (dropWhile isSpace (fromString answer)) + | command == [] + = CommandLoop proj { ms & ms_io = ms_io} + # (ready, proj, ms) = DoCommand command argument proj { ms & ms_io = ms_io} + = ms + +/* CommandLoop proj ms=:{ms_io} # (answer, ms_io) = freadline (ms_io <<< "> ") (command, argument) = SplitAtLayoutChar (dropWhile isSpace (fromString answer)) @@ -28,6 +38,7 @@ CommandLoop proj ms=:{ms_io} | ready = ms = CommandLoop proj ms +*/ :: MainStateDefs funs funtypes types conses classes instances members selectors = { msd_funs :: !funs |