diff options
Diffstat (limited to 'main')
| -rw-r--r-- | main/Mac/CoclSystemDependent.icl | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/main/Mac/CoclSystemDependent.icl b/main/Mac/CoclSystemDependent.icl index 72c1711..63fa28a 100644 --- a/main/Mac/CoclSystemDependent.icl +++ b/main/Mac/CoclSystemDependent.icl @@ -76,9 +76,12 @@ script_handler script files = split quoted frm (to+2) n s | s.[to] == ' ' && not quoted = [s % (frm, to-1) : split False (to+1) (to+1) n s] - | s.[to] == '\'' && quoted - = [s % (frm, to-1) : split False (to+1) (to+1) n s] | s.[to] == '\'' + | quoted + | to<n-1 && s.[to+1]=='\'' + # s=(s % (0,to-1))+++(s % (to+1,n-1)) + = split quoted frm (to+1) (n-1) s + = [s % (frm, to-1) : split False (to+1) (to+1) n s] = [s % (frm, to-1) : split True (to+1) (to+1) n s] // otherwise = split quoted frm (to+1) n s |