diff options
| author | johnvg | 2002-06-17 11:29:50 +0000 |
|---|---|---|
| committer | johnvg | 2002-06-17 11:29:50 +0000 |
| commit | 2503354503ecdd697bb1dbea7c9fb8fee3f77ae6 (patch) | |
| tree | 3abf7a922862ca12c2c78a3fc03220290f8e9549 /frontend/scanner.icl | |
| parent | removed hello and bye, replace testArgs by [] (diff) | |
removed ingnored !'s
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1097 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/scanner.icl')
| -rw-r--r-- | frontend/scanner.icl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/frontend/scanner.icl b/frontend/scanner.icl index 5930c1e..a6434c6 100644 --- a/frontend/scanner.icl +++ b/frontend/scanner.icl @@ -11,7 +11,7 @@ from utilities import revCharListToString, isSpecialChar } :: ModTimeFunction f - :== ({#Char} !f -> *(!{#Char}, !f)) + :== ({#Char} f -> *(!{#Char}, !f)) // ... RWS @@ -380,7 +380,7 @@ where mark_poistion input = input nextToken _ _ = abort "Scanner: Error in nextToken" -class tokenBack state :: !*state -> !*state +class tokenBack state :: !*state -> *state instance tokenBack RScanState where @@ -565,7 +565,7 @@ scan_comment_in_line i fp_col fp_line line tabsize stream inp_filename , inp_pos = {fp_line=fp_line, fp_col = fp_col} } -SkipToEndOfLine :: !Input -> !Input +SkipToEndOfLine :: !Input -> Input SkipToEndOfLine input=:{inp_stream=OldLine i line stream,inp_pos={fp_line,fp_col}} | i<size line = {input & inp_stream=stream,inp_pos={fp_line=fp_line+1,fp_col=0}} @@ -1021,7 +1021,7 @@ ScanChar input chars | '\\' == c = ScanBSChar 0 chars input ScanEndOfChar = ScanEndOfChar 1 [c: chars] input -ScanBSChar :: !Int ![Char] !Input (!Int ![Char] !Input -> (!Token, !Input)) -> (!Token, !Input) +ScanBSChar :: !Int ![Char] !Input (Int [Char] Input -> (!Token, !Input)) -> (!Token, !Input) ScanBSChar n chars input cont # (eof, c, input) = ReadNormalChar input | eof = cont n chars input |