diff options
| author | johnvg | 2003-12-15 15:25:46 +0000 |
|---|---|---|
| committer | johnvg | 2003-12-15 15:25:46 +0000 |
| commit | 81999c73611b1b21745aeebb0d22c27e5579f905 (patch) | |
| tree | cf8b4b8877bd5ad031272866c5a97112195ba35e /frontend/scanner.icl | |
| parent | add BEInsertForeignExport (diff) | |
add foreign export
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1436 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/scanner.icl')
| -rw-r--r-- | frontend/scanner.icl | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/frontend/scanner.icl b/frontend/scanner.icl index c27a546..e310836 100644 --- a/frontend/scanner.icl +++ b/frontend/scanner.icl @@ -1,6 +1,6 @@ implementation module scanner -import StdEnv, compare_constructor, StdCompare, general, compilerSwitches +import StdEnv, compare_constructor, general, compilerSwitches from utilities import revCharListToString, isSpecialChar @@ -154,6 +154,7 @@ ScanOptionNoNewOffsideForSeqLetBit:==4; | ImportToken // import | FromToken // from | SpecialToken // special + | ForeignToken // foreign | IntTypeToken // Int | CharTypeToken // Char @@ -163,8 +164,6 @@ ScanOptionNoNewOffsideForSeqLetBit:==4; | FileTypeToken // File | WorldTypeToken // World | VoidTypeToken // Void - | LeftAssocToken // left - | RightAssocToken // right | ClassToken // class | InstanceToken // instance | OtherwiseToken // otherwise @@ -834,6 +833,7 @@ CheckEveryContext s input Yes err -> (ErrorToken err , input) //-->> ("Error token generated: "+err) No -> (PriorityToken (Prio NoAssoc n) , input) "import" -> (ImportToken,input) + "foreign" -> (ForeignToken,input) s -> (IdentToken s , input) CheckTypeContext :: !String !Input -> (!Token, !Input) @@ -1387,6 +1387,7 @@ where toString ImportToken = "import" toString FromToken = "from" toString SpecialToken = "special" + toString ForeignToken = "foreign" toString IntTypeToken = "Int" toString CharTypeToken = "Char" @@ -1396,8 +1397,6 @@ where toString FileTypeToken = "File" toString WorldTypeToken = "World" toString VoidTypeToken = "Void" - toString LeftAssocToken = "left" - toString RightAssocToken = "right" toString ClassToken = "class" toString InstanceToken = "instance" toString OtherwiseToken = "otherwise" |