diff options
| author | ronny | 2001-07-25 13:34:00 +0000 |
|---|---|---|
| committer | ronny | 2001-07-25 13:34:00 +0000 |
| commit | 7a8301859b66a82f980c653c153250fbc7258f7d (patch) | |
| tree | 537a85f87c2c452a711f5e3b9f28e485f834a92e /frontend/scanner.dcl | |
| parent | renamed ss_useLayout to ss_scanOptions (diff) | |
bug fix parse_bug_forbidden_symbols
idents that start with an underscore are only allowed in modules for which
the module name starts with an underscore
Because of this bug fix StdEnv has to be updated (_createArray in the Array class)
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@570 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/scanner.dcl')
| -rw-r--r-- | frontend/scanner.dcl | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/frontend/scanner.dcl b/frontend/scanner.dcl index d001d0e..6bb418c 100644 --- a/frontend/scanner.dcl +++ b/frontend/scanner.dcl @@ -17,6 +17,7 @@ instance <<< FilePosition :: Token = IdentToken !.String // an identifier + | UnderscoreIdentToken !.String// an identifier that starts with a '_' | IntToken !.String // an integer | RealToken !.String // a real | StringToken !.String // a string @@ -144,6 +145,8 @@ setUseLayout :: !Bool !ScanState -> ScanState UseLayout :: !ScanState -> (!Bool, !ScanState) dropOffsidePosition :: !ScanState -> ScanState +setUseUnderscoreIdents :: !Bool !ScanState -> ScanState + isLhsStartToken :: ! Token -> Bool isOffsideToken :: ! Token -> Bool isEndGroupToken :: ! Token -> Bool |