diff options
| author | ronny | 2002-07-01 11:57:38 +0000 |
|---|---|---|
| committer | ronny | 2002-07-01 11:57:38 +0000 |
| commit | 27c90ac66522aaa36c67e7936279e9eade47f168 (patch) | |
| tree | a6c7d3d77343ae02a98e8cade308a418b2ceb745 /main/Unix | |
| parent | Rewound last change: don't search in the current directory. (diff) | |
made Clean 2.0 compatible
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1130 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'main/Unix')
| -rw-r--r-- | main/Unix/CoclSystemDependent.dcl | 5 | ||||
| -rw-r--r-- | main/Unix/CoclSystemDependent.icl | 8 |
2 files changed, 4 insertions, 9 deletions
diff --git a/main/Unix/CoclSystemDependent.dcl b/main/Unix/CoclSystemDependent.dcl index c07763b..36deff6 100644 --- a/main/Unix/CoclSystemDependent.dcl +++ b/main/Unix/CoclSystemDependent.dcl @@ -24,8 +24,5 @@ SystemDependentInitialIO :: [a] ensureCleanSystemFilesExists :: !String !*Files -> (!Bool, !*Files) set_compiler_id :: Int -> Int -:: CompileFun st - :== ([{#Char}] st -> (Bool, st)) - -compiler_loop :: (CompileFun *st) *st -> (!Bool, !*st) +compiler_loop :: ([{#Char}] *st -> *(Bool, *st)) *st -> (!Bool, !*st) diff --git a/main/Unix/CoclSystemDependent.icl b/main/Unix/CoclSystemDependent.icl index 83bea1f..8bc7fd2 100644 --- a/main/Unix/CoclSystemDependent.icl +++ b/main/Unix/CoclSystemDependent.icl @@ -31,10 +31,8 @@ ensureCleanSystemFilesExists :: !String !*Files -> (!Bool, !*Files) ensureCleanSystemFilesExists path env = ensureDirectoryExists path env -:: CompileFun st - :== ([{#Char}] st -> (Bool, st)) -compiler_loop :: (CompileFun *st) *st -> (!Bool, !*st) +compiler_loop :: ([{#Char}] *st -> *(Bool, *st)) *st -> (!Bool, !*st) compiler_loop compile compile_state | length commandArgs==3 && commandArgs!!0=="--pipe" # commands_name= (commandArgs!!1); @@ -93,14 +91,14 @@ string_to_args string = skip_to_double_quote (i+1); -compile_loop :: (CompileFun *st) {#Char} {#Char} *st -> *st +compile_loop :: ([{#Char}] *st -> *(Bool, *st)) {#Char} {#Char} *st -> *st compile_loop compile commands results compile_state # r=open_pipes commands results; | r<>0 = abort ("compile_loop\n"); = compile_files compile compile_state -compile_files :: (CompileFun *st) *st -> *st +compile_files :: ([{#Char}] *st -> *(Bool, *st)) *st -> *st compile_files compile compile_state # n = get_command_length; | n==(-1) |