hg/stx-libcomp: SyntaxHighlighter.st@d69fc5970cd7 (annotated)

662 5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1	"
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2	COPYRIGHT (c) 1998 by eXept Software AG
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3	All Rights Reserved
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	4
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	5	This software is furnished under a license and may be used
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	6	only in accordance with the terms of that license and with the
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	7	inclusion of the above copyright notice. This software may not
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	8	be provided or otherwise made available to, or used by, any
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	9	other person. No title to or ownership of the software is
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	10	hereby transferred.
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	11	"
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	12
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	13
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	14
1110 3e08a12956fd * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	15	"{ Package: 'stx:libcomp' }"
3e08a12956fd * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	16
662 5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	17	Parser subclass:#SyntaxHighlighter
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	18	instanceVariableNames:'sourceText identifierColor identifierEmphasis
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	19	argumentIdentifierColor argumentIdentifierEmphasis
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	20	localIdentifierColor localIdentifierEmphasis
665 14114d1e653c * empty log message * Claus Gittinger <cg@exept.de> parents: 662 diff changeset	21	unknownIdentifierColor unknownIdentifierEmphasis
884 5ec4b67dce33 mark bad identifiers Claus Gittinger <cg@exept.de> parents: 870 diff changeset	22	badIdentifierColor badIdentifierEmphasis globalIdentifierColor
5ec4b67dce33 mark bad identifiers Claus Gittinger <cg@exept.de> parents: 870 diff changeset	23	globalIdentifierEmphasis commentColor commentEmphasis
5ec4b67dce33 mark bad identifiers Claus Gittinger <cg@exept.de> parents: 870 diff changeset	24	methodSelectorEmphasis methodSelectorColor selectorEmphasis
5ec4b67dce33 mark bad identifiers Claus Gittinger <cg@exept.de> parents: 870 diff changeset	25	selectorColor stringColor stringEmphasis symbolColor
5ec4b67dce33 mark bad identifiers Claus Gittinger <cg@exept.de> parents: 870 diff changeset	26	symbolEmphasis selfColor selfEmphasis superColor superEmphasis
5ec4b67dce33 mark bad identifiers Claus Gittinger <cg@exept.de> parents: 870 diff changeset	27	hereColor hereEmphasis thisContextColor thisContextEmphasis
5ec4b67dce33 mark bad identifiers Claus Gittinger <cg@exept.de> parents: 870 diff changeset	28	booleanConstantColor booleanConstantEmphasis constantColor
5ec4b67dce33 mark bad identifiers Claus Gittinger <cg@exept.de> parents: 870 diff changeset	29	constantEmphasis bracketColor bracketEmphasis
838 fd3286584da6 checkin from browser Claus Gittinger <cg@exept.de> parents: 823 diff changeset	30	instVarIdentifierColor instVarIdentifierEmphasis returnColor
fd3286584da6 checkin from browser Claus Gittinger <cg@exept.de> parents: 823 diff changeset	31	returnEmphasis globalClassIdentifierColor
870 1db26e4ce4c4 checkin from browser Claus Gittinger <cg@exept.de> parents: 868 diff changeset	32	globalClassIdentifierEmphasis classVariableIdentifierColor
1db26e4ce4c4 checkin from browser Claus Gittinger <cg@exept.de> parents: 868 diff changeset	33	classVariableIdentifierEmphasis unimplementedSelectorColor
868 f49c96b8c843 checkin from browser Claus Gittinger <cg@exept.de> parents: 865 diff changeset	34	unimplementedSelectorEmphasis currentSuperclasses
863 4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	35	currentSubclasses fullSelectorCheck'
662 5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	36	classVariableNames:''
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	37	poolDictionaries:''
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	38	category:'System-Compiler'
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	39	!
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	40
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	41	!SyntaxHighlighter class methodsFor:'documentation'!
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	42
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	43	copyright
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	44	"
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	45	COPYRIGHT (c) 1998 by eXept Software AG
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	46	All Rights Reserved
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	47
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	48	This software is furnished under a license and may be used
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	49	only in accordance with the terms of that license and with the
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	50	inclusion of the above copyright notice. This software may not
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	51	be provided or otherwise made available to, or used by, any
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	52	other person. No title to or ownership of the software is
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	53	hereby transferred.
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	54	"
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	55
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	56
681 3add270b9c1e documentation added Claus Gittinger <cg@exept.de> parents: 680 diff changeset	57	!
3add270b9c1e documentation added Claus Gittinger <cg@exept.de> parents: 680 diff changeset	58
3add270b9c1e documentation added Claus Gittinger <cg@exept.de> parents: 680 diff changeset	59	documentation
3add270b9c1e documentation added Claus Gittinger <cg@exept.de> parents: 680 diff changeset	60	"
3add270b9c1e documentation added Claus Gittinger <cg@exept.de> parents: 680 diff changeset	61	colors a method.
3add270b9c1e documentation added Claus Gittinger <cg@exept.de> parents: 680 diff changeset	62	"
3add270b9c1e documentation added Claus Gittinger <cg@exept.de> parents: 680 diff changeset	63
3add270b9c1e documentation added Claus Gittinger <cg@exept.de> parents: 680 diff changeset	64
662 5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	65	! !
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	66
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	67	!SyntaxHighlighter class methodsFor:'highlighting'!
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	68
684 dd691ac07f90 added entry to color an expression Claus Gittinger <cg@exept.de> parents: 681 diff changeset	69	formatExpression:aString in:aClass
dd691ac07f90 added entry to color an expression Claus Gittinger <cg@exept.de> parents: 681 diff changeset	70	"format (recolor) an expression in a given class.
dd691ac07f90 added entry to color an expression Claus Gittinger <cg@exept.de> parents: 681 diff changeset	71	Return the text containing font changes and color information."
dd691ac07f90 added entry to color an expression Claus Gittinger <cg@exept.de> parents: 681 diff changeset	72
dd691ac07f90 added entry to color an expression Claus Gittinger <cg@exept.de> parents: 681 diff changeset	73	\|parser tree text endPos\|
dd691ac07f90 added entry to color an expression Claus Gittinger <cg@exept.de> parents: 681 diff changeset	74
dd691ac07f90 added entry to color an expression Claus Gittinger <cg@exept.de> parents: 681 diff changeset	75	aString isNil ifTrue:[^ nil].
dd691ac07f90 added entry to color an expression Claus Gittinger <cg@exept.de> parents: 681 diff changeset	76
dd691ac07f90 added entry to color an expression Claus Gittinger <cg@exept.de> parents: 681 diff changeset	77	parser := self for:(ReadStream on:aString string) in:aClass.
1365 19b74038d133 ignoreErrors / ignoreWarnings are not getters. penk parents: 1308 diff changeset	78	parser ignoreErrors:true.
19b74038d133 ignoreErrors / ignoreWarnings are not getters. penk parents: 1308 diff changeset	79	parser ignoreWarnings:true.
684 dd691ac07f90 added entry to color an expression Claus Gittinger <cg@exept.de> parents: 681 diff changeset	80	parser sourceText:(text := aString string asText).
dd691ac07f90 added entry to color an expression Claus Gittinger <cg@exept.de> parents: 681 diff changeset	81	"/ use an array here - this can be changed much faster using #at:put:
dd691ac07f90 added entry to color an expression Claus Gittinger <cg@exept.de> parents: 681 diff changeset	82	text emphasisCollection:(Array new:aString size).
dd691ac07f90 added entry to color an expression Claus Gittinger <cg@exept.de> parents: 681 diff changeset	83
dd691ac07f90 added entry to color an expression Claus Gittinger <cg@exept.de> parents: 681 diff changeset	84	parser nextToken.
dd691ac07f90 added entry to color an expression Claus Gittinger <cg@exept.de> parents: 681 diff changeset	85	tree := parser expression.
dd691ac07f90 added entry to color an expression Claus Gittinger <cg@exept.de> parents: 681 diff changeset	86	"/ now, convert the emphasis-array to a runArray
dd691ac07f90 added entry to color an expression Claus Gittinger <cg@exept.de> parents: 681 diff changeset	87	text emphasisCollection:(text emphasis asRunArray).
dd691ac07f90 added entry to color an expression Claus Gittinger <cg@exept.de> parents: 681 diff changeset	88
dd691ac07f90 added entry to color an expression Claus Gittinger <cg@exept.de> parents: 681 diff changeset	89	tree == #Error ifTrue:[
dd691ac07f90 added entry to color an expression Claus Gittinger <cg@exept.de> parents: 681 diff changeset	90	"/ mhmh - which is better ...
dd691ac07f90 added entry to color an expression Claus Gittinger <cg@exept.de> parents: 681 diff changeset	91	"/ alternative1: color rest after error in red
dd691ac07f90 added entry to color an expression Claus Gittinger <cg@exept.de> parents: 681 diff changeset	92	"/ text
dd691ac07f90 added entry to color an expression Claus Gittinger <cg@exept.de> parents: 681 diff changeset	93	"/ emphasizeFrom:(parser sourceStream position)
dd691ac07f90 added entry to color an expression Claus Gittinger <cg@exept.de> parents: 681 diff changeset	94	"/ to:text size
dd691ac07f90 added entry to color an expression Claus Gittinger <cg@exept.de> parents: 681 diff changeset	95	"/ with:(#color->Color red).
dd691ac07f90 added entry to color an expression Claus Gittinger <cg@exept.de> parents: 681 diff changeset	96
dd691ac07f90 added entry to color an expression Claus Gittinger <cg@exept.de> parents: 681 diff changeset	97
dd691ac07f90 added entry to color an expression Claus Gittinger <cg@exept.de> parents: 681 diff changeset	98	"/ alternative2: take original emphasis for rest
dd691ac07f90 added entry to color an expression Claus Gittinger <cg@exept.de> parents: 681 diff changeset	99
1371 de4c37ac12fc code rewritten to be independent of stream zero-base Claus Gittinger <cg@exept.de> parents: 1365 diff changeset	100	endPos := parser sourceStream position1Based.
684 dd691ac07f90 added entry to color an expression Claus Gittinger <cg@exept.de> parents: 681 diff changeset	101	endPos >= text size ifTrue:[
dd691ac07f90 added entry to color an expression Claus Gittinger <cg@exept.de> parents: 681 diff changeset	102	^ text
dd691ac07f90 added entry to color an expression Claus Gittinger <cg@exept.de> parents: 681 diff changeset	103	].
dd691ac07f90 added entry to color an expression Claus Gittinger <cg@exept.de> parents: 681 diff changeset	104	^ (text copyTo:endPos) , (aString copyFrom:(endPos+1))
dd691ac07f90 added entry to color an expression Claus Gittinger <cg@exept.de> parents: 681 diff changeset	105
dd691ac07f90 added entry to color an expression Claus Gittinger <cg@exept.de> parents: 681 diff changeset	106	"/ alternative3: no emphasis for rest.
dd691ac07f90 added entry to color an expression Claus Gittinger <cg@exept.de> parents: 681 diff changeset	107
dd691ac07f90 added entry to color an expression Claus Gittinger <cg@exept.de> parents: 681 diff changeset	108	"/ ^ text "/ aString
dd691ac07f90 added entry to color an expression Claus Gittinger <cg@exept.de> parents: 681 diff changeset	109	].
dd691ac07f90 added entry to color an expression Claus Gittinger <cg@exept.de> parents: 681 diff changeset	110	^ text
dd691ac07f90 added entry to color an expression Claus Gittinger <cg@exept.de> parents: 681 diff changeset	111
dd691ac07f90 added entry to color an expression Claus Gittinger <cg@exept.de> parents: 681 diff changeset	112	"
dd691ac07f90 added entry to color an expression Claus Gittinger <cg@exept.de> parents: 681 diff changeset	113	self
dd691ac07f90 added entry to color an expression Claus Gittinger <cg@exept.de> parents: 681 diff changeset	114	formatExpression:'(1 + 2) max:5'
dd691ac07f90 added entry to color an expression Claus Gittinger <cg@exept.de> parents: 681 diff changeset	115	in:UndefinedObject
dd691ac07f90 added entry to color an expression Claus Gittinger <cg@exept.de> parents: 681 diff changeset	116	"
dd691ac07f90 added entry to color an expression Claus Gittinger <cg@exept.de> parents: 681 diff changeset	117
dd691ac07f90 added entry to color an expression Claus Gittinger <cg@exept.de> parents: 681 diff changeset	118	"Modified: / 7.4.1998 / 09:57:19 / cg"
dd691ac07f90 added entry to color an expression Claus Gittinger <cg@exept.de> parents: 681 diff changeset	119	"Created: / 9.4.1998 / 16:57:16 / cg"
dd691ac07f90 added entry to color an expression Claus Gittinger <cg@exept.de> parents: 681 diff changeset	120	!
dd691ac07f90 added entry to color an expression Claus Gittinger <cg@exept.de> parents: 681 diff changeset	121
662 5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	122	formatMethod:aString in:aClass
680 ebc432c71aec much faster (due to runArray changes. Claus Gittinger <cg@exept.de> parents: 678 diff changeset	123	"format (recolor) a method in a given class.
ebc432c71aec much faster (due to runArray changes. Claus Gittinger <cg@exept.de> parents: 678 diff changeset	124	Return the text containing font changes and color information."
662 5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	125
889 554145ef6046 checkin from browser Claus Gittinger <cg@exept.de> parents: 884 diff changeset	126	\|parser tree text endPos eColor\|
662 5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	127
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	128	aString isNil ifTrue:[^ nil].
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	129
1110 3e08a12956fd * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	130	Error handle:[:ex \|
1396 5306bf9b9174 #errorSignal -> #description Stefan Vogel <sv@exept.de> parents: 1371 diff changeset	131	('SyntaxHighlighter [info]: error during highlight: ' , ex description) infoPrintCR.
1170 b693bfbf8598 checkin from browser Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	132	"/ ex suspendedContext fullPrintAll.
689 42a774852fed care for errors ... Claus Gittinger <cg@exept.de> parents: 686 diff changeset	133	^ aString
42a774852fed care for errors ... Claus Gittinger <cg@exept.de> parents: 686 diff changeset	134	] do:[
42a774852fed care for errors ... Claus Gittinger <cg@exept.de> parents: 686 diff changeset	135	parser := self for:(ReadStream on:aString string) in:aClass.
1365 19b74038d133 ignoreErrors / ignoreWarnings are not getters. penk parents: 1308 diff changeset	136	parser ignoreErrors:true.
19b74038d133 ignoreErrors / ignoreWarnings are not getters. penk parents: 1308 diff changeset	137	parser ignoreWarnings:true.
689 42a774852fed care for errors ... Claus Gittinger <cg@exept.de> parents: 686 diff changeset	138	parser sourceText:(text := aString string asText).
42a774852fed care for errors ... Claus Gittinger <cg@exept.de> parents: 686 diff changeset	139	"/ use an array here - this can be changed much faster using #at:put:
42a774852fed care for errors ... Claus Gittinger <cg@exept.de> parents: 686 diff changeset	140	text emphasisCollection:(Array new:aString size).
662 5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	141
689 42a774852fed care for errors ... Claus Gittinger <cg@exept.de> parents: 686 diff changeset	142	tree := parser parseMethod.
42a774852fed care for errors ... Claus Gittinger <cg@exept.de> parents: 686 diff changeset	143	"/ now, convert the emphasis-array to a runArray
42a774852fed care for errors ... Claus Gittinger <cg@exept.de> parents: 686 diff changeset	144	text emphasisCollection:(text emphasis asRunArray).
680 ebc432c71aec much faster (due to runArray changes. Claus Gittinger <cg@exept.de> parents: 678 diff changeset	145
689 42a774852fed care for errors ... Claus Gittinger <cg@exept.de> parents: 686 diff changeset	146	tree == #Error ifTrue:[
889 554145ef6046 checkin from browser Claus Gittinger <cg@exept.de> parents: 884 diff changeset	147	eColor := UserPreferences current errorColor.
554145ef6046 checkin from browser Claus Gittinger <cg@exept.de> parents: 884 diff changeset	148	eColor notNil ifTrue:[
554145ef6046 checkin from browser Claus Gittinger <cg@exept.de> parents: 884 diff changeset	149	"/ mhmh - which is better ...
554145ef6046 checkin from browser Claus Gittinger <cg@exept.de> parents: 884 diff changeset	150	"/ alternative1: color rest after error in red
554145ef6046 checkin from browser Claus Gittinger <cg@exept.de> parents: 884 diff changeset	151	text
1371 de4c37ac12fc code rewritten to be independent of stream zero-base Claus Gittinger <cg@exept.de> parents: 1365 diff changeset	152	emphasizeFrom:(parser sourceStream position1Based)
889 554145ef6046 checkin from browser Claus Gittinger <cg@exept.de> parents: 884 diff changeset	153	to:text size
554145ef6046 checkin from browser Claus Gittinger <cg@exept.de> parents: 884 diff changeset	154	with:(#color->eColor).
554145ef6046 checkin from browser Claus Gittinger <cg@exept.de> parents: 884 diff changeset	155	] ifFalse:[
554145ef6046 checkin from browser Claus Gittinger <cg@exept.de> parents: 884 diff changeset	156	"/ alternative2: take original emphasis for rest
680 ebc432c71aec much faster (due to runArray changes. Claus Gittinger <cg@exept.de> parents: 678 diff changeset	157
1371 de4c37ac12fc code rewritten to be independent of stream zero-base Claus Gittinger <cg@exept.de> parents: 1365 diff changeset	158	endPos := parser sourceStream position1Based.
889 554145ef6046 checkin from browser Claus Gittinger <cg@exept.de> parents: 884 diff changeset	159	endPos >= text size ifTrue:[
554145ef6046 checkin from browser Claus Gittinger <cg@exept.de> parents: 884 diff changeset	160	^ text
554145ef6046 checkin from browser Claus Gittinger <cg@exept.de> parents: 884 diff changeset	161	].
554145ef6046 checkin from browser Claus Gittinger <cg@exept.de> parents: 884 diff changeset	162	^ (text copyTo:endPos) , (aString copyFrom:(endPos+1))
689 42a774852fed care for errors ... Claus Gittinger <cg@exept.de> parents: 686 diff changeset	163	].
42a774852fed care for errors ... Claus Gittinger <cg@exept.de> parents: 686 diff changeset	164	"/ alternative3: no emphasis for rest.
678 da6c65951755 checkin from browser Claus Gittinger <cg@exept.de> parents: 674 diff changeset	165	].
689 42a774852fed care for errors ... Claus Gittinger <cg@exept.de> parents: 686 diff changeset	166	^ text
42a774852fed care for errors ... Claus Gittinger <cg@exept.de> parents: 686 diff changeset	167	]
662 5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	168	"
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	169	self
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	170	formatMethod:'foo
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	171	^ self bar:''hello''.
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	172
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	173	' , (Character doubleQuote asString) , 'some comment' , (Character doubleQuote asString) , '
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	174	'
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	175	in:UndefinedObject
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	176	"
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	177
794 459868dcb591 highlight text after any error in red color. Claus Gittinger <cg@exept.de> parents: 788 diff changeset	178	"Modified: / 23.10.1998 / 22:48:45 / cg"
662 5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	179	! !
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	180
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	181	!SyntaxHighlighter methodsFor:'accessing'!
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	182
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	183	sourceText
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	184	"return the value of the instance variable 'sourceText' (automatically generated)"
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	185
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	186	^ sourceText
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	187
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	188	"Created: / 31.3.1998 / 11:49:05 / cg"
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	189	!
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	190
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	191	sourceText:something
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	192	"set the value of the instance variable 'sourceText' (automatically generated)"
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	193
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	194	sourceText := something.
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	195
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	196	"Created: / 31.3.1998 / 11:49:05 / cg"
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	197	! !
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	198
948 6ba29fe774f2 show earliest possible error position. Claus Gittinger <cg@exept.de> parents: 902 diff changeset	199	!SyntaxHighlighter methodsFor:'error handling'!
6ba29fe774f2 show earliest possible error position. Claus Gittinger <cg@exept.de> parents: 902 diff changeset	200
6ba29fe774f2 show earliest possible error position. Claus Gittinger <cg@exept.de> parents: 902 diff changeset	201	parseError:aMessage position:position to:endPos
1174 30ff886ef43e remove error output on Transcript Claus Gittinger <cg@exept.de> parents: 1170 diff changeset	202	"/ Transcript showCR:aMessage.
948 6ba29fe774f2 show earliest possible error position. Claus Gittinger <cg@exept.de> parents: 902 diff changeset	203	super parseError:aMessage position:position to:endPos.
6ba29fe774f2 show earliest possible error position. Claus Gittinger <cg@exept.de> parents: 902 diff changeset	204
6ba29fe774f2 show earliest possible error position. Claus Gittinger <cg@exept.de> parents: 902 diff changeset	205	self
6ba29fe774f2 show earliest possible error position. Claus Gittinger <cg@exept.de> parents: 902 diff changeset	206	markFrom:position to:endPos
6ba29fe774f2 show earliest possible error position. Claus Gittinger <cg@exept.de> parents: 902 diff changeset	207	withEmphasis:nil color:UserPreferences current errorColor
6ba29fe774f2 show earliest possible error position. Claus Gittinger <cg@exept.de> parents: 902 diff changeset	208	!
6ba29fe774f2 show earliest possible error position. Claus Gittinger <cg@exept.de> parents: 902 diff changeset	209
6ba29fe774f2 show earliest possible error position. Claus Gittinger <cg@exept.de> parents: 902 diff changeset	210	showErrorMessage:aMessage position:pos
1174 30ff886ef43e remove error output on Transcript Claus Gittinger <cg@exept.de> parents: 1170 diff changeset	211	"/ Transcript showCR:aMessage.
948 6ba29fe774f2 show earliest possible error position. Claus Gittinger <cg@exept.de> parents: 902 diff changeset	212	super showErrorMessage:aMessage position:pos.
6ba29fe774f2 show earliest possible error position. Claus Gittinger <cg@exept.de> parents: 902 diff changeset	213
6ba29fe774f2 show earliest possible error position. Claus Gittinger <cg@exept.de> parents: 902 diff changeset	214	self
6ba29fe774f2 show earliest possible error position. Claus Gittinger <cg@exept.de> parents: 902 diff changeset	215	markFrom:pos to:nil
6ba29fe774f2 show earliest possible error position. Claus Gittinger <cg@exept.de> parents: 902 diff changeset	216	withEmphasis:nil color:UserPreferences current errorColor
978 9c62352be67b checkin from browser Claus Gittinger <cg@exept.de> parents: 948 diff changeset	217	!
9c62352be67b checkin from browser Claus Gittinger <cg@exept.de> parents: 948 diff changeset	218
1169 7204e72c7c3c better error message with bad parentNesting in a block. Claus Gittinger <cg@exept.de> parents: 1159 diff changeset	219	syntaxError:aMessage position:position to:endPos
1174 30ff886ef43e remove error output on Transcript Claus Gittinger <cg@exept.de> parents: 1170 diff changeset	220	"/ Transcript showCR:aMessage.
1169 7204e72c7c3c better error message with bad parentNesting in a block. Claus Gittinger <cg@exept.de> parents: 1159 diff changeset	221	super syntaxError:aMessage position:position to:endPos.
7204e72c7c3c better error message with bad parentNesting in a block. Claus Gittinger <cg@exept.de> parents: 1159 diff changeset	222
7204e72c7c3c better error message with bad parentNesting in a block. Claus Gittinger <cg@exept.de> parents: 1159 diff changeset	223	self
7204e72c7c3c better error message with bad parentNesting in a block. Claus Gittinger <cg@exept.de> parents: 1159 diff changeset	224	markFrom:position to:endPos
7204e72c7c3c better error message with bad parentNesting in a block. Claus Gittinger <cg@exept.de> parents: 1159 diff changeset	225	withEmphasis:nil color:UserPreferences current errorColor
7204e72c7c3c better error message with bad parentNesting in a block. Claus Gittinger <cg@exept.de> parents: 1159 diff changeset	226	!
7204e72c7c3c better error message with bad parentNesting in a block. Claus Gittinger <cg@exept.de> parents: 1159 diff changeset	227
978 9c62352be67b checkin from browser Claus Gittinger <cg@exept.de> parents: 948 diff changeset	228	warning:msg position:pos1 to:pos2
979 2f20ef7dc8c0 checkin from browser Claus Gittinger <cg@exept.de> parents: 978 diff changeset	229	"/ self markUnknownIdentifierFrom:pos1 to:pos2
2f20ef7dc8c0 checkin from browser Claus Gittinger <cg@exept.de> parents: 978 diff changeset	230
978 9c62352be67b checkin from browser Claus Gittinger <cg@exept.de> parents: 948 diff changeset	231	"/ self
9c62352be67b checkin from browser Claus Gittinger <cg@exept.de> parents: 948 diff changeset	232	"/ markFrom:pos1 to:pos2
9c62352be67b checkin from browser Claus Gittinger <cg@exept.de> parents: 948 diff changeset	233	"/ withEmphasis:nil color:UserPreferences current errorColor
9c62352be67b checkin from browser Claus Gittinger <cg@exept.de> parents: 948 diff changeset	234
979 2f20ef7dc8c0 checkin from browser Claus Gittinger <cg@exept.de> parents: 978 diff changeset	235	"Modified: / 25.9.1999 / 18:42:30 / cg"
948 6ba29fe774f2 show earliest possible error position. Claus Gittinger <cg@exept.de> parents: 902 diff changeset	236	! !
6ba29fe774f2 show earliest possible error position. Claus Gittinger <cg@exept.de> parents: 902 diff changeset	237
662 5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	238	!SyntaxHighlighter methodsFor:'initialization'!
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	239
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	240	initialize
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	241	\|prefs\|
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	242
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	243	super initialize.
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	244
990 cd1aa00086fd dont care to fold constants during syntaxHighlight Claus Gittinger <cg@exept.de> parents: 987 diff changeset	245	foldConstants := false.
1132 b5958fa3816e * empty log message * Claus Gittinger <cg@exept.de> parents: 1110 diff changeset	246	allowDollarInIdentifier := true.
990 cd1aa00086fd dont care to fold constants during syntaxHighlight Claus Gittinger <cg@exept.de> parents: 987 diff changeset	247
662 5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	248	prefs := UserPreferences current.
868 f49c96b8c843 checkin from browser Claus Gittinger <cg@exept.de> parents: 865 diff changeset	249
863 4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	250	fullSelectorCheck := prefs fullSelectorCheck.
662 5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	251	identifierEmphasis := prefs identifierEmphasis.
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	252	identifierColor := prefs identifierColor.
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	253	argumentIdentifierEmphasis := prefs argumentIdentifierEmphasis.
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	254	argumentIdentifierColor := prefs argumentIdentifierColor.
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	255	localIdentifierEmphasis := prefs localIdentifierEmphasis.
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	256	localIdentifierColor := prefs localIdentifierColor.
838 fd3286584da6 checkin from browser Claus Gittinger <cg@exept.de> parents: 823 diff changeset	257	returnEmphasis := prefs returnEmphasis.
fd3286584da6 checkin from browser Claus Gittinger <cg@exept.de> parents: 823 diff changeset	258	returnColor := prefs returnColor.
686 067a8c8be462 checkin from browser Claus Gittinger <cg@exept.de> parents: 684 diff changeset	259	instVarIdentifierEmphasis := prefs instVarIdentifierEmphasis.
067a8c8be462 checkin from browser Claus Gittinger <cg@exept.de> parents: 684 diff changeset	260	instVarIdentifierColor := prefs instVarIdentifierColor.
662 5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	261	globalIdentifierEmphasis := prefs globalIdentifierEmphasis.
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	262	globalIdentifierColor := prefs globalIdentifierColor.
822 a773bb72cbd6 added extra globalClassIdentifierColor & emphasis Claus Gittinger <cg@exept.de> parents: 794 diff changeset	263	globalClassIdentifierEmphasis := prefs globalClassIdentifierEmphasis.
a773bb72cbd6 added extra globalClassIdentifierColor & emphasis Claus Gittinger <cg@exept.de> parents: 794 diff changeset	264	globalClassIdentifierColor := prefs globalClassIdentifierColor.
870 1db26e4ce4c4 checkin from browser Claus Gittinger <cg@exept.de> parents: 868 diff changeset	265	classVariableIdentifierEmphasis := prefs classVariableIdentifierEmphasis.
1db26e4ce4c4 checkin from browser Claus Gittinger <cg@exept.de> parents: 868 diff changeset	266	classVariableIdentifierColor := prefs classVariableIdentifierColor.
665 14114d1e653c * empty log message * Claus Gittinger <cg@exept.de> parents: 662 diff changeset	267	unknownIdentifierEmphasis := prefs unknownIdentifierEmphasis.
14114d1e653c * empty log message * Claus Gittinger <cg@exept.de> parents: 662 diff changeset	268	unknownIdentifierColor := prefs unknownIdentifierColor.
884 5ec4b67dce33 mark bad identifiers Claus Gittinger <cg@exept.de> parents: 870 diff changeset	269	badIdentifierEmphasis := prefs badIdentifierEmphasis.
5ec4b67dce33 mark bad identifiers Claus Gittinger <cg@exept.de> parents: 870 diff changeset	270	badIdentifierColor := prefs badIdentifierColor.
662 5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	271	commentEmphasis := prefs commentEmphasis.
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	272	commentColor := prefs commentColor.
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	273	methodSelectorEmphasis := prefs methodSelectorEmphasis.
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	274	methodSelectorColor := prefs methodSelectorColor.
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	275	selectorEmphasis := prefs selectorEmphasis.
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	276	selectorColor := prefs selectorColor.
868 f49c96b8c843 checkin from browser Claus Gittinger <cg@exept.de> parents: 865 diff changeset	277	unimplementedSelectorEmphasis := prefs unimplementedSelectorEmphasis.
f49c96b8c843 checkin from browser Claus Gittinger <cg@exept.de> parents: 865 diff changeset	278	unimplementedSelectorColor := prefs unimplementedSelectorColor.
662 5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	279	stringEmphasis := prefs stringEmphasis.
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	280	stringColor := prefs stringColor.
672 392927bad277 * empty log message * Claus Gittinger <cg@exept.de> parents: 669 diff changeset	281	symbolEmphasis := prefs symbolEmphasis.
392927bad277 * empty log message * Claus Gittinger <cg@exept.de> parents: 669 diff changeset	282	symbolColor := prefs symbolColor.
662 5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	283	selfEmphasis := prefs selfEmphasis.
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	284	selfColor := prefs selfColor.
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	285	hereEmphasis := prefs hereEmphasis.
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	286	hereColor := prefs hereColor.
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	287	superEmphasis := prefs superEmphasis.
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	288	superColor := prefs superColor.
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	289	thisContextEmphasis := prefs thisContextEmphasis.
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	290	thisContextColor := prefs thisContextColor.
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	291	constantEmphasis := prefs constantEmphasis.
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	292	constantColor := prefs constantColor.
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	293	booleanConstantEmphasis := prefs booleanConstantEmphasis.
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	294	booleanConstantColor := prefs booleanConstantColor.
673 0c66b7cb1d2f checkin from browser ca parents: 672 diff changeset	295	bracketEmphasis := prefs bracketEmphasis.
0c66b7cb1d2f checkin from browser ca parents: 672 diff changeset	296	bracketColor := prefs bracketColor.
662 5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	297
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	298	"Created: / 31.3.1998 / 15:12:55 / cg"
838 fd3286584da6 checkin from browser Claus Gittinger <cg@exept.de> parents: 823 diff changeset	299	"Modified: / 5.1.1980 / 00:44:03 / cg"
662 5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	300	! !
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	301
788 5307f69829c6 do not enter undeclared vars into Undeclared. Claus Gittinger <cg@exept.de> parents: 689 diff changeset	302	!SyntaxHighlighter methodsFor:'misc'!
5307f69829c6 do not enter undeclared vars into Undeclared. Claus Gittinger <cg@exept.de> parents: 689 diff changeset	303
5307f69829c6 do not enter undeclared vars into Undeclared. Claus Gittinger <cg@exept.de> parents: 689 diff changeset	304	defineAsUndeclaredVariable:aName
5307f69829c6 do not enter undeclared vars into Undeclared. Claus Gittinger <cg@exept.de> parents: 689 diff changeset	305	"redefined to NOT declare undefined vars"
5307f69829c6 do not enter undeclared vars into Undeclared. Claus Gittinger <cg@exept.de> parents: 689 diff changeset	306
1308 4a5853596d8e * empty log message * Claus Gittinger <cg@exept.de> parents: 1174 diff changeset	307	^ VariableNode globalNamed:aName
788 5307f69829c6 do not enter undeclared vars into Undeclared. Claus Gittinger <cg@exept.de> parents: 689 diff changeset	308
5307f69829c6 do not enter undeclared vars into Undeclared. Claus Gittinger <cg@exept.de> parents: 689 diff changeset	309	"Modified: / 19.10.1998 / 19:38:12 / cg"
5307f69829c6 do not enter undeclared vars into Undeclared. Claus Gittinger <cg@exept.de> parents: 689 diff changeset	310	!
5307f69829c6 do not enter undeclared vars into Undeclared. Claus Gittinger <cg@exept.de> parents: 689 diff changeset	311
884 5ec4b67dce33 mark bad identifiers Claus Gittinger <cg@exept.de> parents: 870 diff changeset	312	isSyntaxHighlighter
5ec4b67dce33 mark bad identifiers Claus Gittinger <cg@exept.de> parents: 870 diff changeset	313	^ true
5ec4b67dce33 mark bad identifiers Claus Gittinger <cg@exept.de> parents: 870 diff changeset	314
5ec4b67dce33 mark bad identifiers Claus Gittinger <cg@exept.de> parents: 870 diff changeset	315	!
5ec4b67dce33 mark bad identifiers Claus Gittinger <cg@exept.de> parents: 870 diff changeset	316
788 5307f69829c6 do not enter undeclared vars into Undeclared. Claus Gittinger <cg@exept.de> parents: 689 diff changeset	317	plausibilityCheck:aNode
5307f69829c6 do not enter undeclared vars into Undeclared. Claus Gittinger <cg@exept.de> parents: 689 diff changeset	318	"redefined to NOT do checks"
5307f69829c6 do not enter undeclared vars into Undeclared. Claus Gittinger <cg@exept.de> parents: 689 diff changeset	319
902 4ceee83e5e07 checkin from browser Claus Gittinger <cg@exept.de> parents: 889 diff changeset	320	^ nil
788 5307f69829c6 do not enter undeclared vars into Undeclared. Claus Gittinger <cg@exept.de> parents: 689 diff changeset	321
5307f69829c6 do not enter undeclared vars into Undeclared. Claus Gittinger <cg@exept.de> parents: 689 diff changeset	322	"Modified: / 19.10.1998 / 19:38:12 / cg"
5307f69829c6 do not enter undeclared vars into Undeclared. Claus Gittinger <cg@exept.de> parents: 689 diff changeset	323	"Created: / 19.10.1998 / 19:57:18 / cg"
5307f69829c6 do not enter undeclared vars into Undeclared. Claus Gittinger <cg@exept.de> parents: 689 diff changeset	324	! !
5307f69829c6 do not enter undeclared vars into Undeclared. Claus Gittinger <cg@exept.de> parents: 689 diff changeset	325
662 5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	326	!SyntaxHighlighter methodsFor:'syntax detection'!
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	327
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	328	markArgumentIdentifierFrom:pos1 to:pos2
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	329	self
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	330	markFrom:pos1 to:pos2
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	331	withEmphasis:argumentIdentifierEmphasis color:argumentIdentifierColor
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	332
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	333	"Modified: / 31.3.1998 / 18:01:27 / cg"
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	334	!
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	335
884 5ec4b67dce33 mark bad identifiers Claus Gittinger <cg@exept.de> parents: 870 diff changeset	336	markBadIdentifierFrom:pos1 to:pos2
5ec4b67dce33 mark bad identifiers Claus Gittinger <cg@exept.de> parents: 870 diff changeset	337	self
5ec4b67dce33 mark bad identifiers Claus Gittinger <cg@exept.de> parents: 870 diff changeset	338	markFrom:pos1 to:pos2
5ec4b67dce33 mark bad identifiers Claus Gittinger <cg@exept.de> parents: 870 diff changeset	339	withEmphasis:badIdentifierEmphasis color:badIdentifierColor
5ec4b67dce33 mark bad identifiers Claus Gittinger <cg@exept.de> parents: 870 diff changeset	340
5ec4b67dce33 mark bad identifiers Claus Gittinger <cg@exept.de> parents: 870 diff changeset	341	!
5ec4b67dce33 mark bad identifiers Claus Gittinger <cg@exept.de> parents: 870 diff changeset	342
662 5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	343	markBooleanConstantFrom:pos1 to:pos2
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	344	self
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	345	markFrom:pos1 to:pos2
665 14114d1e653c * empty log message * Claus Gittinger <cg@exept.de> parents: 662 diff changeset	346	withEmphasis:booleanConstantEmphasis color:booleanConstantColor
662 5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	347
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	348	"Created: / 31.3.1998 / 18:09:01 / cg"
665 14114d1e653c * empty log message * Claus Gittinger <cg@exept.de> parents: 662 diff changeset	349	"Modified: / 31.3.1998 / 19:36:44 / cg"
662 5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	350	!
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	351
673 0c66b7cb1d2f checkin from browser ca parents: 672 diff changeset	352	markBracketAt:pos
0c66b7cb1d2f checkin from browser ca parents: 672 diff changeset	353	self
0c66b7cb1d2f checkin from browser ca parents: 672 diff changeset	354	markFrom:pos to:pos
0c66b7cb1d2f checkin from browser ca parents: 672 diff changeset	355	withEmphasis:bracketEmphasis color:bracketColor
0c66b7cb1d2f checkin from browser ca parents: 672 diff changeset	356
0c66b7cb1d2f checkin from browser ca parents: 672 diff changeset	357	"Created: / 31.3.1998 / 18:09:01 / cg"
0c66b7cb1d2f checkin from browser ca parents: 672 diff changeset	358	"Modified: / 31.3.1998 / 19:36:44 / cg"
0c66b7cb1d2f checkin from browser ca parents: 672 diff changeset	359	!
0c66b7cb1d2f checkin from browser ca parents: 672 diff changeset	360
870 1db26e4ce4c4 checkin from browser Claus Gittinger <cg@exept.de> parents: 868 diff changeset	361	markClassVariableIdentifierFrom:pos1 to:pos2
1db26e4ce4c4 checkin from browser Claus Gittinger <cg@exept.de> parents: 868 diff changeset	362	self
1db26e4ce4c4 checkin from browser Claus Gittinger <cg@exept.de> parents: 868 diff changeset	363	markFrom:pos1 to:pos2
1db26e4ce4c4 checkin from browser Claus Gittinger <cg@exept.de> parents: 868 diff changeset	364	withEmphasis:classVariableIdentifierEmphasis color:classVariableIdentifierColor
1db26e4ce4c4 checkin from browser Claus Gittinger <cg@exept.de> parents: 868 diff changeset	365
1db26e4ce4c4 checkin from browser Claus Gittinger <cg@exept.de> parents: 868 diff changeset	366	"Modified: / 31.3.1998 / 18:02:14 / cg"
1db26e4ce4c4 checkin from browser Claus Gittinger <cg@exept.de> parents: 868 diff changeset	367	!
1db26e4ce4c4 checkin from browser Claus Gittinger <cg@exept.de> parents: 868 diff changeset	368
662 5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	369	markCommentFrom:pos1 to:pos2
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	370	self
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	371	markFrom:pos1 to:pos2
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	372	withEmphasis:commentEmphasis color:commentColor
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	373
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	374	"Modified: / 31.3.1998 / 18:01:55 / cg"
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	375	!
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	376
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	377	markConstantFrom:pos1 to:pos2
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	378	self
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	379	markFrom:pos1 to:pos2
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	380	withEmphasis:constantEmphasis color:constantColor
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	381
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	382	"Modified: / 31.3.1998 / 18:01:44 / cg"
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	383	"Created: / 31.3.1998 / 18:09:22 / cg"
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	384	!
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	385
987 49a05e400448 aquire device colors - faster on pseudoColor devices. Claus Gittinger <cg@exept.de> parents: 979 diff changeset	386	markFrom:pos1 to:pos2 withEmphasis:fontEmp color:clrIn
49a05e400448 aquire device colors - faster on pseudoColor devices. Claus Gittinger <cg@exept.de> parents: 979 diff changeset	387	\|e p2 clr\|
49a05e400448 aquire device colors - faster on pseudoColor devices. Claus Gittinger <cg@exept.de> parents: 979 diff changeset	388
49a05e400448 aquire device colors - faster on pseudoColor devices. Claus Gittinger <cg@exept.de> parents: 979 diff changeset	389	clr := clrIn onDevice:Screen current.
662 5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	390
669 5ef61aacc5d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 667 diff changeset	391	clr = Color black ifTrue:[
5ef61aacc5d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 667 diff changeset	392	e := fontEmp
5ef61aacc5d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 667 diff changeset	393	] ifFalse:[
948 6ba29fe774f2 show earliest possible error position. Claus Gittinger <cg@exept.de> parents: 902 diff changeset	394	fontEmp isNil ifTrue:[
6ba29fe774f2 show earliest possible error position. Claus Gittinger <cg@exept.de> parents: 902 diff changeset	395	e := (#color->clr)
6ba29fe774f2 show earliest possible error position. Claus Gittinger <cg@exept.de> parents: 902 diff changeset	396	] ifFalse:[
6ba29fe774f2 show earliest possible error position. Claus Gittinger <cg@exept.de> parents: 902 diff changeset	397	e := Text addEmphasis:fontEmp to:(#color->clr).
6ba29fe774f2 show earliest possible error position. Claus Gittinger <cg@exept.de> parents: 902 diff changeset	398	]
669 5ef61aacc5d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 667 diff changeset	399	].
948 6ba29fe774f2 show earliest possible error position. Claus Gittinger <cg@exept.de> parents: 902 diff changeset	400	(p2 := pos2) isNil ifTrue:[
6ba29fe774f2 show earliest possible error position. Claus Gittinger <cg@exept.de> parents: 902 diff changeset	401	p2 := sourceText size
1143 3a9ddfa26b16 checkin from browser Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	402	] ifFalse:[
3a9ddfa26b16 checkin from browser Claus Gittinger <cg@exept.de> parents: 1132 diff changeset	403	p2 := p2 min:sourceText size
948 6ba29fe774f2 show earliest possible error position. Claus Gittinger <cg@exept.de> parents: 902 diff changeset	404	].
6ba29fe774f2 show earliest possible error position. Claus Gittinger <cg@exept.de> parents: 902 diff changeset	405	sourceText emphasizeFrom:pos1 to:p2 with:e
662 5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	406
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	407	"Created: / 31.3.1998 / 13:26:53 / cg"
669 5ef61aacc5d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 667 diff changeset	408	"Modified: / 1.4.1998 / 12:51:56 / cg"
662 5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	409	!
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	410
822 a773bb72cbd6 added extra globalClassIdentifierColor & emphasis Claus Gittinger <cg@exept.de> parents: 794 diff changeset	411	markGlobalClassIdentifierFrom:pos1 to:pos2
a773bb72cbd6 added extra globalClassIdentifierColor & emphasis Claus Gittinger <cg@exept.de> parents: 794 diff changeset	412	self
a773bb72cbd6 added extra globalClassIdentifierColor & emphasis Claus Gittinger <cg@exept.de> parents: 794 diff changeset	413	markFrom:pos1 to:pos2
a773bb72cbd6 added extra globalClassIdentifierColor & emphasis Claus Gittinger <cg@exept.de> parents: 794 diff changeset	414	withEmphasis:globalClassIdentifierEmphasis color:globalClassIdentifierColor
a773bb72cbd6 added extra globalClassIdentifierColor & emphasis Claus Gittinger <cg@exept.de> parents: 794 diff changeset	415
a773bb72cbd6 added extra globalClassIdentifierColor & emphasis Claus Gittinger <cg@exept.de> parents: 794 diff changeset	416	"Modified: / 31.3.1998 / 18:02:14 / cg"
a773bb72cbd6 added extra globalClassIdentifierColor & emphasis Claus Gittinger <cg@exept.de> parents: 794 diff changeset	417	"Created: / 4.3.1999 / 12:53:02 / cg"
a773bb72cbd6 added extra globalClassIdentifierColor & emphasis Claus Gittinger <cg@exept.de> parents: 794 diff changeset	418	!
a773bb72cbd6 added extra globalClassIdentifierColor & emphasis Claus Gittinger <cg@exept.de> parents: 794 diff changeset	419
662 5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	420	markGlobalIdentifierFrom:pos1 to:pos2
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	421	self
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	422	markFrom:pos1 to:pos2
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	423	withEmphasis:globalIdentifierEmphasis color:globalIdentifierColor
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	424
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	425	"Modified: / 31.3.1998 / 18:02:14 / cg"
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	426	!
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	427
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	428	markHereFrom:pos1 to:pos2
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	429	self
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	430	markFrom:pos1 to:pos2
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	431	withEmphasis:hereEmphasis color:hereColor
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	432
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	433	"Modified: / 31.3.1998 / 18:02:25 / cg"
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	434	!
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	435
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	436	markIdentifierFrom:pos1 to:pos2
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	437	self
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	438	markFrom:pos1 to:pos2
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	439	withEmphasis:identifierEmphasis color:identifierColor
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	440
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	441	"Modified: / 31.3.1998 / 18:02:39 / cg"
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	442	"Created: / 31.3.1998 / 18:04:56 / cg"
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	443	!
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	444
686 067a8c8be462 checkin from browser Claus Gittinger <cg@exept.de> parents: 684 diff changeset	445	markInstVarIdentifierFrom:pos1 to:pos2
067a8c8be462 checkin from browser Claus Gittinger <cg@exept.de> parents: 684 diff changeset	446	self
067a8c8be462 checkin from browser Claus Gittinger <cg@exept.de> parents: 684 diff changeset	447	markFrom:pos1 to:pos2
067a8c8be462 checkin from browser Claus Gittinger <cg@exept.de> parents: 684 diff changeset	448	withEmphasis:instVarIdentifierEmphasis color:instVarIdentifierColor
067a8c8be462 checkin from browser Claus Gittinger <cg@exept.de> parents: 684 diff changeset	449
067a8c8be462 checkin from browser Claus Gittinger <cg@exept.de> parents: 684 diff changeset	450	"Created: / 16.4.1998 / 18:35:40 / cg"
067a8c8be462 checkin from browser Claus Gittinger <cg@exept.de> parents: 684 diff changeset	451	"Modified: / 16.4.1998 / 18:37:30 / cg"
067a8c8be462 checkin from browser Claus Gittinger <cg@exept.de> parents: 684 diff changeset	452	!
067a8c8be462 checkin from browser Claus Gittinger <cg@exept.de> parents: 684 diff changeset	453
662 5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	454	markLocalIdentifierFrom:pos1 to:pos2
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	455	self
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	456	markFrom:pos1 to:pos2
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	457	withEmphasis:localIdentifierEmphasis color:localIdentifierColor
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	458
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	459	"Modified: / 31.3.1998 / 18:02:39 / cg"
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	460	!
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	461
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	462	markMethodSelectorFrom:pos1 to:pos2
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	463	self
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	464	markFrom:pos1 to:pos2
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	465	withEmphasis:methodSelectorEmphasis color:methodSelectorColor
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	466
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	467	"Modified: / 31.3.1998 / 18:02:52 / cg"
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	468	!
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	469
838 fd3286584da6 checkin from browser Claus Gittinger <cg@exept.de> parents: 823 diff changeset	470	markReturnAt:pos
fd3286584da6 checkin from browser Claus Gittinger <cg@exept.de> parents: 823 diff changeset	471	self
fd3286584da6 checkin from browser Claus Gittinger <cg@exept.de> parents: 823 diff changeset	472	markFrom:pos to:pos
fd3286584da6 checkin from browser Claus Gittinger <cg@exept.de> parents: 823 diff changeset	473	withEmphasis:returnEmphasis color:returnColor
fd3286584da6 checkin from browser Claus Gittinger <cg@exept.de> parents: 823 diff changeset	474
fd3286584da6 checkin from browser Claus Gittinger <cg@exept.de> parents: 823 diff changeset	475	"Modified: / 31.3.1998 / 19:36:44 / cg"
fd3286584da6 checkin from browser Claus Gittinger <cg@exept.de> parents: 823 diff changeset	476	"Created: / 5.1.1980 / 00:44:27 / cg"
fd3286584da6 checkin from browser Claus Gittinger <cg@exept.de> parents: 823 diff changeset	477	!
fd3286584da6 checkin from browser Claus Gittinger <cg@exept.de> parents: 823 diff changeset	478
863 4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	479	markSelector:selectorString from:pos1 to:pos2 receiverNode:aReceiverNode
1159 24a034278a55 Remove unused method vars Stefan Vogel <sv@exept.de> parents: 1150 diff changeset	480	\|fg sel check ok rec em\|
863 4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	481
4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	482	"/ uncommenting the code below
4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	483	"/ will suppress highlighting of common selectors ...
4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	484	"/
4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	485	"/ (#(
4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	486	"/ 'ifTrue:'
4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	487	"/ 'ifFalse:'
4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	488	"/ 'not'
4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	489	"/ 'and:'
4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	490	"/ 'or:'
4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	491	"/ '='
4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	492	"/ '=='
4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	493	"/ '~='
4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	494	"/ '~~'
4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	495	"/ ) includes:sel) ifTrue:[
4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	496	"/ ^ self
4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	497	"/ ].
4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	498
4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	499	fg := selectorColor.
868 f49c96b8c843 checkin from browser Claus Gittinger <cg@exept.de> parents: 865 diff changeset	500	em := selectorEmphasis.
863 4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	501	selectorString knownAsSymbol ifFalse:[
4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	502	fg := Color red.
4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	503	] ifTrue:[
4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	504	fullSelectorCheck == true ifTrue:[
4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	505	sel := selectorString asSymbol.
4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	506
4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	507	check := [:cls \| (cls includesSelector:sel)
4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	508	or:[cls class includesSelector:sel]].
4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	509
4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	510	ok := false.
4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	511
4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	512	"/ limit search if possible
4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	513	(classToCompileFor notNil
4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	514	and:[aReceiverNode isSelf or:[aReceiverNode isSuper]]) ifTrue:[
4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	515	currentSuperclasses isNil ifTrue:[
4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	516	currentSuperclasses := classToCompileFor withAllSuperclasses.
4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	517	].
4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	518	ok := currentSuperclasses contains:check.
4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	519	(ok not and:[aReceiverNode isSelf]) ifTrue:[
4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	520	currentSubclasses isNil ifTrue:[
4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	521	currentSubclasses := classToCompileFor allSubclasses.
4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	522	].
4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	523	ok := currentSubclasses contains:check.
4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	524	].
4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	525	] ifFalse:[
4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	526	aReceiverNode isConstant ifTrue:[
4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	527	ok := aReceiverNode evaluate class withAllSuperclasses contains:check.
4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	528	] ifFalse:[
4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	529	(aReceiverNode isGlobal
4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	530	and:[(rec := aReceiverNode evaluate) isBehavior]) ifTrue:[
4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	531	ok := rec class withAllSuperclasses contains:check.
4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	532	] ifFalse:[
4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	533	ok := Smalltalk allClasses contains:check
4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	534	]
4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	535	]
4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	536	].
4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	537
4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	538	ok ifFalse:[
868 f49c96b8c843 checkin from browser Claus Gittinger <cg@exept.de> parents: 865 diff changeset	539	em := unimplementedSelectorEmphasis.
f49c96b8c843 checkin from browser Claus Gittinger <cg@exept.de> parents: 865 diff changeset	540	fg := unimplementedSelectorColor.
863 4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	541	]
4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	542	]
4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	543	].
4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	544	self
4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	545	markFrom:pos1 to:pos2
868 f49c96b8c843 checkin from browser Claus Gittinger <cg@exept.de> parents: 865 diff changeset	546	withEmphasis:em color:fg
863 4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	547
4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	548	"Modified: / 1.4.1998 / 13:14:43 / cg"
4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	549	!
4e8b99196457 better selector checks Claus Gittinger <cg@exept.de> parents: 838 diff changeset	550
662 5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	551	markSelfFrom:pos1 to:pos2
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	552	self
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	553	markFrom:pos1 to:pos2
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	554	withEmphasis:selfEmphasis color:selfColor
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	555
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	556	"Modified: / 31.3.1998 / 18:03:10 / cg"
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	557	!
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	558
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	559	markStringFrom:pos1 to:pos2
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	560	self
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	561	markFrom:pos1 to:pos2
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	562	withEmphasis:stringEmphasis color:stringColor
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	563
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	564	"Modified: / 31.3.1998 / 18:03:18 / cg"
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	565	!
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	566
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	567	markSuperFrom:pos1 to:pos2
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	568	self
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	569	markFrom:pos1 to:pos2
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	570	withEmphasis:superEmphasis color:superColor
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	571
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	572	"Modified: / 31.3.1998 / 18:03:26 / cg"
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	573	!
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	574
672 392927bad277 * empty log message * Claus Gittinger <cg@exept.de> parents: 669 diff changeset	575	markSymbolFrom:pos1 to:pos2
392927bad277 * empty log message * Claus Gittinger <cg@exept.de> parents: 669 diff changeset	576	self
392927bad277 * empty log message * Claus Gittinger <cg@exept.de> parents: 669 diff changeset	577	markFrom:pos1 to:pos2
392927bad277 * empty log message * Claus Gittinger <cg@exept.de> parents: 669 diff changeset	578	withEmphasis:symbolEmphasis color:symbolColor
392927bad277 * empty log message * Claus Gittinger <cg@exept.de> parents: 669 diff changeset	579
392927bad277 * empty log message * Claus Gittinger <cg@exept.de> parents: 669 diff changeset	580	"Created: / 1.4.1998 / 12:56:47 / cg"
392927bad277 * empty log message * Claus Gittinger <cg@exept.de> parents: 669 diff changeset	581	"Modified: / 1.4.1998 / 12:58:00 / cg"
392927bad277 * empty log message * Claus Gittinger <cg@exept.de> parents: 669 diff changeset	582	!
392927bad277 * empty log message * Claus Gittinger <cg@exept.de> parents: 669 diff changeset	583
662 5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	584	markThisContextFrom:pos1 to:pos2
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	585	self
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	586	markFrom:pos1 to:pos2
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	587	withEmphasis:thisContextEmphasis color:thisContextColor
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	588
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	589	"Modified: / 31.3.1998 / 18:03:36 / cg"
665 14114d1e653c * empty log message * Claus Gittinger <cg@exept.de> parents: 662 diff changeset	590	!
14114d1e653c * empty log message * Claus Gittinger <cg@exept.de> parents: 662 diff changeset	591
14114d1e653c * empty log message * Claus Gittinger <cg@exept.de> parents: 662 diff changeset	592	markUnknownIdentifierFrom:pos1 to:pos2
14114d1e653c * empty log message * Claus Gittinger <cg@exept.de> parents: 662 diff changeset	593	self
14114d1e653c * empty log message * Claus Gittinger <cg@exept.de> parents: 662 diff changeset	594	markFrom:pos1 to:pos2
14114d1e653c * empty log message * Claus Gittinger <cg@exept.de> parents: 662 diff changeset	595	withEmphasis:unknownIdentifierEmphasis color:unknownIdentifierColor
14114d1e653c * empty log message * Claus Gittinger <cg@exept.de> parents: 662 diff changeset	596
14114d1e653c * empty log message * Claus Gittinger <cg@exept.de> parents: 662 diff changeset	597	"Created: / 31.3.1998 / 19:09:26 / cg"
14114d1e653c * empty log message * Claus Gittinger <cg@exept.de> parents: 662 diff changeset	598	"Modified: / 31.3.1998 / 19:10:30 / cg"
686 067a8c8be462 checkin from browser Claus Gittinger <cg@exept.de> parents: 684 diff changeset	599	!
067a8c8be462 checkin from browser Claus Gittinger <cg@exept.de> parents: 684 diff changeset	600
067a8c8be462 checkin from browser Claus Gittinger <cg@exept.de> parents: 684 diff changeset	601	markVariable:v
067a8c8be462 checkin from browser Claus Gittinger <cg@exept.de> parents: 684 diff changeset	602	"support for syntaxColoring"
067a8c8be462 checkin from browser Claus Gittinger <cg@exept.de> parents: 684 diff changeset	603
067a8c8be462 checkin from browser Claus Gittinger <cg@exept.de> parents: 684 diff changeset	604	\|pos endPos\|
067a8c8be462 checkin from browser Claus Gittinger <cg@exept.de> parents: 684 diff changeset	605
067a8c8be462 checkin from browser Claus Gittinger <cg@exept.de> parents: 684 diff changeset	606	pos := tokenPosition.
067a8c8be462 checkin from browser Claus Gittinger <cg@exept.de> parents: 684 diff changeset	607	endPos := pos+tokenName size-1.
067a8c8be462 checkin from browser Claus Gittinger <cg@exept.de> parents: 684 diff changeset	608	self markVariable:v from:pos to:endPos
067a8c8be462 checkin from browser Claus Gittinger <cg@exept.de> parents: 684 diff changeset	609
067a8c8be462 checkin from browser Claus Gittinger <cg@exept.de> parents: 684 diff changeset	610	"Modified: / 16.4.1998 / 18:49:51 / cg"
067a8c8be462 checkin from browser Claus Gittinger <cg@exept.de> parents: 684 diff changeset	611	!
067a8c8be462 checkin from browser Claus Gittinger <cg@exept.de> parents: 684 diff changeset	612
067a8c8be462 checkin from browser Claus Gittinger <cg@exept.de> parents: 684 diff changeset	613	markVariable:v from:pos to:endPos
067a8c8be462 checkin from browser Claus Gittinger <cg@exept.de> parents: 684 diff changeset	614	"support for syntaxColoring"
067a8c8be462 checkin from browser Claus Gittinger <cg@exept.de> parents: 684 diff changeset	615
823 a05ffe57b1b8 checkin from browser Claus Gittinger <cg@exept.de> parents: 822 diff changeset	616	\|type globalValue nameSym\|
686 067a8c8be462 checkin from browser Claus Gittinger <cg@exept.de> parents: 684 diff changeset	617
067a8c8be462 checkin from browser Claus Gittinger <cg@exept.de> parents: 684 diff changeset	618	type := v type.
067a8c8be462 checkin from browser Claus Gittinger <cg@exept.de> parents: 684 diff changeset	619	(type == #BlockArg
067a8c8be462 checkin from browser Claus Gittinger <cg@exept.de> parents: 684 diff changeset	620	or:[type == #MethodArg]) ifTrue:[
067a8c8be462 checkin from browser Claus Gittinger <cg@exept.de> parents: 684 diff changeset	621	self markArgumentIdentifierFrom:pos to:endPos.
067a8c8be462 checkin from browser Claus Gittinger <cg@exept.de> parents: 684 diff changeset	622	^ self
067a8c8be462 checkin from browser Claus Gittinger <cg@exept.de> parents: 684 diff changeset	623	].
067a8c8be462 checkin from browser Claus Gittinger <cg@exept.de> parents: 684 diff changeset	624	(type == #BlockVariable
067a8c8be462 checkin from browser Claus Gittinger <cg@exept.de> parents: 684 diff changeset	625	or:[type == #MethodVariable]) ifTrue:[
067a8c8be462 checkin from browser Claus Gittinger <cg@exept.de> parents: 684 diff changeset	626	self markLocalIdentifierFrom:pos to:endPos.
067a8c8be462 checkin from browser Claus Gittinger <cg@exept.de> parents: 684 diff changeset	627	^ self
067a8c8be462 checkin from browser Claus Gittinger <cg@exept.de> parents: 684 diff changeset	628	].
067a8c8be462 checkin from browser Claus Gittinger <cg@exept.de> parents: 684 diff changeset	629	(type == #GlobalVariable) ifTrue:[
823 a05ffe57b1b8 checkin from browser Claus Gittinger <cg@exept.de> parents: 822 diff changeset	630	nameSym := v name asSymbolIfInterned.
a05ffe57b1b8 checkin from browser Claus Gittinger <cg@exept.de> parents: 822 diff changeset	631	nameSym notNil ifTrue:[
a05ffe57b1b8 checkin from browser Claus Gittinger <cg@exept.de> parents: 822 diff changeset	632	globalValue := Smalltalk at:nameSym ifAbsent:nil.
a05ffe57b1b8 checkin from browser Claus Gittinger <cg@exept.de> parents: 822 diff changeset	633	].
822 a773bb72cbd6 added extra globalClassIdentifierColor & emphasis Claus Gittinger <cg@exept.de> parents: 794 diff changeset	634	globalValue isBehavior ifTrue:[
a773bb72cbd6 added extra globalClassIdentifierColor & emphasis Claus Gittinger <cg@exept.de> parents: 794 diff changeset	635	self markGlobalClassIdentifierFrom:pos to:endPos.
a773bb72cbd6 added extra globalClassIdentifierColor & emphasis Claus Gittinger <cg@exept.de> parents: 794 diff changeset	636	] ifFalse:[
a773bb72cbd6 added extra globalClassIdentifierColor & emphasis Claus Gittinger <cg@exept.de> parents: 794 diff changeset	637	self markGlobalIdentifierFrom:pos to:endPos.
a773bb72cbd6 added extra globalClassIdentifierColor & emphasis Claus Gittinger <cg@exept.de> parents: 794 diff changeset	638	].
686 067a8c8be462 checkin from browser Claus Gittinger <cg@exept.de> parents: 684 diff changeset	639	^ self
067a8c8be462 checkin from browser Claus Gittinger <cg@exept.de> parents: 684 diff changeset	640	].
870 1db26e4ce4c4 checkin from browser Claus Gittinger <cg@exept.de> parents: 868 diff changeset	641	(type == #ClassVariable) ifTrue:[
1db26e4ce4c4 checkin from browser Claus Gittinger <cg@exept.de> parents: 868 diff changeset	642	self markClassVariableIdentifierFrom:pos to:endPos.
1db26e4ce4c4 checkin from browser Claus Gittinger <cg@exept.de> parents: 868 diff changeset	643	^ self
1db26e4ce4c4 checkin from browser Claus Gittinger <cg@exept.de> parents: 868 diff changeset	644	].
686 067a8c8be462 checkin from browser Claus Gittinger <cg@exept.de> parents: 684 diff changeset	645	(type == #InstanceVariable) ifTrue:[
067a8c8be462 checkin from browser Claus Gittinger <cg@exept.de> parents: 684 diff changeset	646	self markInstVarIdentifierFrom:pos to:endPos.
067a8c8be462 checkin from browser Claus Gittinger <cg@exept.de> parents: 684 diff changeset	647	^ self
067a8c8be462 checkin from browser Claus Gittinger <cg@exept.de> parents: 684 diff changeset	648	].
067a8c8be462 checkin from browser Claus Gittinger <cg@exept.de> parents: 684 diff changeset	649
067a8c8be462 checkin from browser Claus Gittinger <cg@exept.de> parents: 684 diff changeset	650	self markIdentifierFrom:pos to:endPos.
067a8c8be462 checkin from browser Claus Gittinger <cg@exept.de> parents: 684 diff changeset	651
067a8c8be462 checkin from browser Claus Gittinger <cg@exept.de> parents: 684 diff changeset	652	"Created: / 16.4.1998 / 18:49:34 / cg"
822 a773bb72cbd6 added extra globalClassIdentifierColor & emphasis Claus Gittinger <cg@exept.de> parents: 794 diff changeset	653	"Modified: / 4.3.1999 / 12:56:13 / cg"
662 5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	654	! !
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	655
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	656	!SyntaxHighlighter class methodsFor:'documentation'!
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	657
5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	658	version
1396 5306bf9b9174 #errorSignal -> #description Stefan Vogel <sv@exept.de> parents: 1371 diff changeset	659	^ '$Header: /cvs/stx/stx/libcomp/SyntaxHighlighter.st,v 1.42 2003-04-11 17:06:27 stefan Exp $'
662 5a0a832ac06c initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	660	! !

author	Claus Gittinger <cg@exept.de>
	Wed, 29 Oct 2003 11:45:21 +0100
changeset 1472	d69fc5970cd7
parent 1396	5306bf9b9174
child 1498	9b4366551a2a
permissions	-rw-r--r--