"Changes to Syntax-Highlighting for VisualWorks 3.0. File in after Syntax-Highlighting.st (v1.0) AUTHOR bert@isg.cs.uni-magdeburg.de DATE 2-Nov-1998 "! !SyntaxColorParser class methodsFor: 'instance creation'! parseMethod: aText in: aClass ^self new parseMethod: aText in: aClass! ! !SyntaxColorParser methodsFor: 'initialize-release'! parseMethod: aText in: aClass self text: aText. ^self parse: (ReadStream on: text string) class: aClass noPattern: false context: nil notifying: nil builder: ProgramNodeBuilder new saveComments: false ifFail: [^nil]! ! !Text methodsFor: 'coloring-methods'! symbolicColorsFor: aClass "Creates runs of symbols according to token types" | parser node | Object errorSignal handle: [:ex | self simpleSymbolicColorsFor: aClass] do: [ "colorize selector, methodComment and primitive, build parse tree, collect comment intervals" parser := SyntaxColorParser new. node := parser parseMethod: self in: aClass. "colorize variables and literals" node notNil ifTrue: [ SyntaxColorEnumerator enumerate: node text: self class: aClass]. "colorize comments" parser colorizeComments].! ! SyntaxColorParser removeSelector: #parseMethod:! SyntaxColorParser class removeSelector: #parseMethod:!