scsh-conservatory
/
commander-s
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

If there are whitespaces before EOF and the command-line is 

incomplete, make a TO-COMPLETE record
This commit is contained in:
eknauel 2005-08-18 09:23:19 +00:00
parent 10821ee8dd
commit dcfe19b989
1 changed files with 16 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
scheme/cmdline.scm
View File

@ -132,12 +132,23 @@
(let ((token (lex-operator cursor-index port)))
(lp (peek-char port) (cons token tokens))))
((char-set-contains? char-set:whitespace c)
(let ((pos (current-column port)))
(let ((start-pos (current-column port)))
(read-char port)
(lp (peek-char port)
(if (and cursor-index (= cursor-index pos))
(cons (make-empty-to-complete pos) tokens)
tokens))))
(let read-whitspaces ((c (peek-char port))
(cursor? (= start-pos cursor-index)))
(cond
((eof-object? c)
(lp c (if (or cursor?
(= (current-column port) cursor-index))
(cons (make-empty-to-complete cursor-index)
tokens)
tokens)))
((char-set-contains? char-set:whitespace c)
(read-char port)
(read-whitspaces (peek-char port)
(or cursor?
(= (current-column port) cursor-index))))
(else (lp c tokens))))))
(else
(let ((token (lex-token cursor-index port)))
(lp (peek-char port) (cons token tokens)))))))