--- a/compiler/TScanner.st Sun Sep 20 12:01:42 2015 +0100
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,66 +0,0 @@
-"{ Package: 'jv:tea/compiler' }"
-
-"{ NameSpace: Smalltalk }"
-
-RBScanner subclass:#TScanner
- instanceVariableNames:''
- classVariableNames:''
- poolDictionaries:''
- category:'Languages-Tea-Compiler-AST'
-!
-
-
-!TScanner methodsFor:'private-scanning'!
-
-scanSpecialCharacter
- | character |
-
- currentCharacter == $: ifTrue:
- [self step.
- currentCharacter == $=
- ifTrue:
- [self step.
- ^ RBAssignmentToken start: tokenStart]
- ifFalse: [^ RBSpecialCharacterToken value: $: start: tokenStart]].
-
- currentCharacter == $% ifTrue:[
- RBParser isSmalltalkX ifTrue:[
- self step.
- currentCharacter == ${ ifTrue:[
- self step.
- ^ self scanSTXPrimitiveCode.
- ].
- currentCharacter == $[ ifTrue:[
- self step.
- ^ TInlineAssemblyBeginToken new
- lineNumber: tokenLineNumber;
- start: tokenStart;
- yourself.
- ].
- currentCharacter == $] ifTrue:[
- self step.
- ^ TInlineAssemblyEndToken new
- lineNumber: tokenLineNumber;
- start: tokenStart;
- yourself.
- ].
- characterType := #binary.
- ^ self scanBinary:RBBinarySelectorToken alreadyRead:$%.
- ].
- ^ self scanBinary: RBBinarySelectorToken
- ].
-
- character := currentCharacter.
- self step.
- ^RBSpecialCharacterToken value: character start: tokenStart lineNumber: tokenLineNumber
-
- "Created: / 02-09-2015 / 06:00:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-! !
-
-!TScanner class methodsFor:'documentation'!
-
-version_HG
-
- ^ '$Changeset: <not expanded> $'
-! !
-