hg/stx-libcomp: Parser.st@27947a95f378 (annotated)

0 7ad01559b262 Initial revision claus parents: diff changeset	1	"
4 f6fd83437415 * empty log message * claus parents: 3 diff changeset	2	COPYRIGHT (c) 1989 by Claus Gittinger
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	3	All Rights Reserved
0 7ad01559b262 Initial revision claus parents: diff changeset	4
7ad01559b262 Initial revision claus parents: diff changeset	5	This software is furnished under a license and may be used
7ad01559b262 Initial revision claus parents: diff changeset	6	only in accordance with the terms of that license and with the
7ad01559b262 Initial revision claus parents: diff changeset	7	inclusion of the above copyright notice. This software may not
7ad01559b262 Initial revision claus parents: diff changeset	8	be provided or otherwise made available to, or used by, any
7ad01559b262 Initial revision claus parents: diff changeset	9	other person. No title to or ownership of the software is
7ad01559b262 Initial revision claus parents: diff changeset	10	hereby transferred.
7ad01559b262 Initial revision claus parents: diff changeset	11	"
1043 08ad8eb7532d * empty log message * Claus Gittinger <cg@exept.de> parents: 1042 diff changeset	12	"{ Package: 'stx:libcomp' }"
08ad8eb7532d * empty log message * Claus Gittinger <cg@exept.de> parents: 1042 diff changeset	13
0 7ad01559b262 Initial revision claus parents: diff changeset	14	Scanner subclass:#Parser
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	15	instanceVariableNames:'classToCompileFor selfValue contextToEvaluateIn selector
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	16	methodArgs methodArgNames methodVars methodVarNames tree
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	17	currentBlock parseForCode readInstVars readClassVars readGlobals
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	18	usedInstVars usedClassVars usedVars modifiedInstVars
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	19	modifiedClassVars modifiedGlobals usesSuper usedGlobals
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	20	usedSymbols messagesSent messagesPossiblySent messagesSentToSelf
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	21	messagesSentToSuper localVarDefPosition evalExitBlock selfNode
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	22	superNode nilNode hasPrimitiveCode hasNonOptionalPrimitiveCode
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	23	primitiveNr primitiveResource logged warnedUndefVars
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	24	warnedUnknownNamespaces correctedSource foldConstants
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	25	lineNumberInfo currentNamespace currentUsedNamespaces methodNode
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	26	alreadyWarnedClassInstVarRefs localBlockVarDefPosition
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	27	endOfSelectorPosition beginOfBodyPosition startOfBlockPosition
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	28	primitiveContextInfo usedLocalVars modifiedLocalVars
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	29	alreadyWarnedUninitializedVars
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	30	alreadyWarnedUnimplementedSelectors returnedValues currentPackage
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	31	doItTemporaries moreSharedPools inFunctionCallArgument
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	32	didWarnAboutSTXNameSpaceUse didWarnAboutSTXHereExtensionUsed
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	33	parenthesisLevel didWarnAboutBadSupersend
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	34	didWarnAboutSqueakExtensions allowUndeclaredVariables
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	35	interactiveMode variableCorrectActionForAll annotations
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	36	variableTypeOfLastCorrectAction usedPoolVars readPoolVars
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	37	modifiedPoolVars'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	38	classVariableNames:'PrevClass PrevInstVarNames PrevClassVarNames
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	39	PrevClassInstVarNames LazyCompilation FoldConstants
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	40	LineNumberInfo SuppressDoItCompilation ParseErrorSignal
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	41	RestartCompilationSignal'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	42	poolDictionaries:''
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	43	category:'System-Compiler'
0 7ad01559b262 Initial revision claus parents: diff changeset	44	!
7ad01559b262 Initial revision claus parents: diff changeset	45
2430 f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	46	Query subclass:#AskForVariableTypeOfUndeclaredQuery
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	47	instanceVariableNames:'parser nameOfUnknownVariable'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	48	classVariableNames:''
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	49	poolDictionaries:''
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	50	privateIn:Parser
2430 f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	51	!
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	52
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	53	Object subclass:#Correction
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	54	instanceVariableNames:''
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	55	classVariableNames:''
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	56	poolDictionaries:''
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	57	privateIn:Parser
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	58	!
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	59
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	60	Parser::Correction subclass:#CorrectByDeclaringIdentifierAs
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	61	instanceVariableNames:'lastType'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	62	classVariableNames:''
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	63	poolDictionaries:''
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	64	privateIn:Parser
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	65	!
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	66
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	67	Parser::Correction subclass:#CorrectByDeletingLocalIdentifier
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	68	instanceVariableNames:''
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	69	classVariableNames:''
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	70	poolDictionaries:''
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	71	privateIn:Parser
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	72	!
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	73
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	74	Parser::Correction subclass:#CorrectByGeneratingMissingMethod
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	75	instanceVariableNames:'receiverNode selector'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	76	classVariableNames:''
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	77	poolDictionaries:''
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	78	privateIn:Parser
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	79	!
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	80
3289 81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	81	Parser::Correction subclass:#CorrectByGroupingMessage
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	82	instanceVariableNames:'possibleSplits receiverNode selectorPositions'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	83	classVariableNames:''
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	84	poolDictionaries:''
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	85	privateIn:Parser
3289 81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	86	!
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	87
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	88	Parser::Correction subclass:#CorrectByInsertingPeriod
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	89	instanceVariableNames:'positionOfPeriod'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	90	classVariableNames:''
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	91	poolDictionaries:''
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	92	privateIn:Parser
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	93	!
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	94
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	95	Parser::Correction subclass:#CorrectByInteractiveCorrection
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	96	instanceVariableNames:''
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	97	classVariableNames:''
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	98	poolDictionaries:''
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	99	privateIn:Parser
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	100	!
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	101
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	102	Parser::Correction subclass:#CorrectByInteractiveRename
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	103	instanceVariableNames:''
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	104	classVariableNames:''
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	105	poolDictionaries:''
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	106	privateIn:Parser
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	107	!
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	108
3291 6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	109	Parser::Correction subclass:#CorrectByMakingValidHexConstant
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	110	instanceVariableNames:'receiverNode selector'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	111	classVariableNames:''
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	112	poolDictionaries:''
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	113	privateIn:Parser
3291 6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	114	!
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	115
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	116	Parser::Correction subclass:#CorrectByChangingSelector
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	117	instanceVariableNames:'receiverNode receiverClass selector'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	118	classVariableNames:''
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	119	poolDictionaries:''
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	120	privateIn:Parser
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	121	!
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	122
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	123	Query subclass:#PossibleCorrectionsQuery
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	124	instanceVariableNames:'parser message'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	125	classVariableNames:''
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	126	poolDictionaries:''
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	127	privateIn:Parser
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	128	!
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	129
1780 572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	130	Parser subclass:#PrimitiveSpecParser
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	131	instanceVariableNames:'masterParser'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	132	classVariableNames:''
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	133	poolDictionaries:''
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	134	privateIn:Parser
1780 572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	135	!
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	136
358 78b0d8954c49 removed possible conflict between #classVarNames here and in Class. Claus Gittinger <cg@exept.de> parents: 354 diff changeset	137	!Parser class methodsFor:'documentation'!
19 84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	138
20 f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	139	copyright
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	140	"
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	141	COPYRIGHT (c) 1989 by Claus Gittinger
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	142	All Rights Reserved
20 f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	143
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	144	This software is furnished under a license and may be used
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	145	only in accordance with the terms of that license and with the
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	146	inclusion of the above copyright notice. This software may not
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	147	be provided or otherwise made available to, or used by, any
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	148	other person. No title to or ownership of the software is
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	149	hereby transferred.
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	150	"
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	151	!
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	152
19 84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	153	documentation
84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	154	"
84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	155	Parser is used for both parsing and evaluating smalltalk expressions;
84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	156	it first builds a parseTree which is then interpreted (evaluate) or
84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	157	compiled. Compilation is done in the subclass ByteCodeCompiler and/or
84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	158	the (planned) MachineCodeCompiler.
84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	159
173 247ae4b8af76 interest is written with one 'r' (shame on me) Claus Gittinger <cg@exept.de> parents: 171 diff changeset	160	methods of main interest are:
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	161	Parser evaluateExpression:...
19 84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	162
84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	163	and:
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	164	Parser parseExpression:...
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	165	Parser parseMethod:...
19 84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	166
84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	167	there is protocol to parse complete methods, selector specs, body only etc.
84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	168
84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	169	Parser is also used to find the referenced/modified inst/classvars of
84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	170	a method - this is done by sending parseXXX message to a parser and asking
84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	171	the parser for referencedXVars or modifiedXVars (see SystemBrowser).
84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	172
84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	173	You can also use parsers for all kinds of other things (ChangesBrowser for
84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	174	example analyzes the expressions in the changelist ...) by looking at the
84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	175	parsers tree. (Although this is somewhat dangerous, since it exports the
755 49ae81e86b7b * empty log message * Claus Gittinger <cg@exept.de> parents: 752 diff changeset	176	compilers internals ... better style is to add specialized query methods here)
19 84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	177
84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	178	One instance of Parser is created to parse one method or expression - i.e.
84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	179	its not suggested to reuse parsers.
84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	180
212 ff39051e219f more constant folding options Claus Gittinger <cg@exept.de> parents: 210 diff changeset	181
ff39051e219f more constant folding options Claus Gittinger <cg@exept.de> parents: 210 diff changeset	182	Constant folding:
ff39051e219f more constant folding options Claus Gittinger <cg@exept.de> parents: 210 diff changeset	183
ff39051e219f more constant folding options Claus Gittinger <cg@exept.de> parents: 210 diff changeset	184	The parser has various modes for constant folding; by default, only numeric
ff39051e219f more constant folding options Claus Gittinger <cg@exept.de> parents: 210 diff changeset	185	expressions involving integers and floats are constant folded
ff39051e219f more constant folding options Claus Gittinger <cg@exept.de> parents: 210 diff changeset	186	(i.e. something like 'Float pi sin' or '1.5 + 0.3' will be reduced to a constant).
ff39051e219f more constant folding options Claus Gittinger <cg@exept.de> parents: 210 diff changeset	187
ff39051e219f more constant folding options Claus Gittinger <cg@exept.de> parents: 210 diff changeset	188	Constant folding can be turned off completely (setting FoldConstants to nil)
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	189	to ``secure folding'', which only folds constant numbers (#level1) or to #full.
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	190	In full mode, more constant expressions are folded (for example: '1.0 @ 1.0' is
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	191	reduced to a constant point), but the resulting code may not be compatible with other
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	192	smalltalk systems (consider the case, where the point is modified using #x: or #y: messages).
212 ff39051e219f more constant folding options Claus Gittinger <cg@exept.de> parents: 210 diff changeset	193	Therefore, this mode is a bit dangerous and disabled by default.
755 49ae81e86b7b * empty log message * Claus Gittinger <cg@exept.de> parents: 752 diff changeset	194	The current implementation, base upon a global constant-folding setting is somewhat stupid
49ae81e86b7b * empty log message * Claus Gittinger <cg@exept.de> parents: 752 diff changeset	195	and intermediate - a better solution would be to allow the optimization to be controlled
49ae81e86b7b * empty log message * Claus Gittinger <cg@exept.de> parents: 752 diff changeset	196	by a method-pragma, since it may make sense to disable optimization on a method level,
49ae81e86b7b * empty log message * Claus Gittinger <cg@exept.de> parents: 752 diff changeset	197	if its known that the used constant objects are subject of modifications as described above.
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	198
212 ff39051e219f more constant folding options Claus Gittinger <cg@exept.de> parents: 210 diff changeset	199
ff39051e219f more constant folding options Claus Gittinger <cg@exept.de> parents: 210 diff changeset	200	Immutable arrays:
ff39051e219f more constant folding options Claus Gittinger <cg@exept.de> parents: 210 diff changeset	201
ff39051e219f more constant folding options Claus Gittinger <cg@exept.de> parents: 210 diff changeset	202	Immutable arrays are experimental and being evaluated.
ff39051e219f more constant folding options Claus Gittinger <cg@exept.de> parents: 210 diff changeset	203	Consider the case of a method returning '#(1 2 3 4)', and that array being modified
ff39051e219f more constant folding options Claus Gittinger <cg@exept.de> parents: 210 diff changeset	204	by some other method (using #at:put:). Since the array-return is actually a return of
ff39051e219f more constant folding options Claus Gittinger <cg@exept.de> parents: 210 diff changeset	205	a reference to the compiler created array, the next invokation of the method will
ff39051e219f more constant folding options Claus Gittinger <cg@exept.de> parents: 210 diff changeset	206	return the modified array. These are hard to find bugs.
ff39051e219f more constant folding options Claus Gittinger <cg@exept.de> parents: 210 diff changeset	207	By an option, the compiler can generate immutable arrays, which dont allow modification
ff39051e219f more constant folding options Claus Gittinger <cg@exept.de> parents: 210 diff changeset	208	of its elements. For clean code, you should enable this option during development.
ff39051e219f more constant folding options Claus Gittinger <cg@exept.de> parents: 210 diff changeset	209
ff39051e219f more constant folding options Claus Gittinger <cg@exept.de> parents: 210 diff changeset	210	As mentioned above, this is experimental. If it is reported to be a useful feature,
ff39051e219f more constant folding options Claus Gittinger <cg@exept.de> parents: 210 diff changeset	211	the immutable feature will be extended to strings, point-literals etc. in a future version
ff39051e219f more constant folding options Claus Gittinger <cg@exept.de> parents: 210 diff changeset	212	of st/x.
ff39051e219f more constant folding options Claus Gittinger <cg@exept.de> parents: 210 diff changeset	213
ff39051e219f more constant folding options Claus Gittinger <cg@exept.de> parents: 210 diff changeset	214
ff39051e219f more constant folding options Claus Gittinger <cg@exept.de> parents: 210 diff changeset	215
260 b881b17d0da6 commentary Claus Gittinger <cg@exept.de> parents: 258 diff changeset	216	[Instance variables:]
b881b17d0da6 commentary Claus Gittinger <cg@exept.de> parents: 258 diff changeset	217
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	218	classToCompileFor <Class> the class (or nil) we are compiling for
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	219
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	220	selfValue <any> value to use as self when interpreting
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	221
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	222	contextToEvaluateIn <Context> the context (or nil) when interpreting
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	223
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	224	selector <Symbol> the selector of the parsed method
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	225	(valid after parseMethodSpecification)
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	226	methodArgs internal
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	227
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	228	methodArgNames <Collection> the names of the arguments
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	229	(valid after parseMethodSpecification)
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	230
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	231	methodVars internal
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	232
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	233	methodVarNames <Collection> the names of the method locals
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	234	(valid after parseMethodBodyVarSpec)
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	235
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	236	tree <ParseTree> the parse tree - valid after parsing
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	237
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	238	currentBlock if currently parsing for a block
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	239
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	240	usedInstVars set of all accessed instances variables
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	241	(valid after parsing)
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	242
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	243	usedClassVars same for classVars
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	244
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	245	usedVars all used variables (inst, class & globals)
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	246
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	247	modifiedInstVars set of all modified instance variables
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	248
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	249	modifiedClassVars same for clasVars
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	250
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	251	localVarDefPosition <Integer> the character offset of the local variable
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	252	def. (i.e. the first '\|' if any)
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	253	Not yet used - prepared for automatic add of
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	254	undefined variables
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	255
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	256	evalExitBlock internal for interpretation
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	257
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	258	selfNode <Node> cached one-and-only 'self' node
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	259	superNode <Node> cached one-and-only 'super' node
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	260
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	261	hasPrimitiveCode <Boolean> true, if it contains ST/X style primitive code
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	262	hasNonOptionalPrimitiveCode
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	263	<Boolean> true, if it contains ST/X style primitive code
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	264	which is NOT flagged by the OPTIONAL directive.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	265
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	266	primitiveNr <Integer> the parsed ST-80 type primitive number (or nil)
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	267
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	268	logged
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	269
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	270	warnedUndefVars <Set> set of all variables which the parser has
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	271	already output a warning (to avoid multiple
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	272	warnings about the same variable)
260 b881b17d0da6 commentary Claus Gittinger <cg@exept.de> parents: 258 diff changeset	273
b881b17d0da6 commentary Claus Gittinger <cg@exept.de> parents: 258 diff changeset	274	[Class variables:]
b881b17d0da6 commentary Claus Gittinger <cg@exept.de> parents: 258 diff changeset	275
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	276	PrevClass <Class> class, of which properties are
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	277	cached in:
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	278
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	279	PrevInstVarNames <Collection> instance variablenames of cached class
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	280	PrevClassVarNames <Collection> class variablenames of cached class
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	281	PrevClassInstVarNames <Collection> class instance variablenames of cached class
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	282
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	283	LazyCompilation <Boolean> EXPERIMENTAL: lazy compilation
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	284
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	285	ArraysAreImmutable <Boolean> if true, create array literals
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	286	as instances of ImmutableArray,
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	287	which cannot be stored into.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	288	Default is false, for compatibility.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	289	Can be turned on while developping
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	290	new code to make certain that side
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	291	effects are avoided.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	292
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	293	StringsAreImmutable <Boolean> same as above for string literals
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	294
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	295	WarnST80Directives <Boolean> if true, give warnings about
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	296	ST-80 directives (resource defs)
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	297	which are ignored in st/x.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	298	defaults to false.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	299
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	300	FoldConstants <Symbol> controls how constant folding should be
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	301	done.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	302	Can be one of:
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	303	nil - no constant folding
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	304	#level1 - numeric optimizations only
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	305	#level2 - secure optimizations only
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	306	#full - full folding
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	307
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	308	level1: arithmetic on constant numbers
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	309
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	310	level2: above PLUS array conversions with #asFloatArray,
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	311	#asDoubleArray, string concatenation
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	312
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	313	full: constant points.
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	314
260 b881b17d0da6 commentary Claus Gittinger <cg@exept.de> parents: 258 diff changeset	315	[see also:]
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	316	ByteCodeCompiler Scanner ObjectFileLoader
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	317	Workspace
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	318	SystemBrowser
263 3b21d0991eff documentation Claus Gittinger <cg@exept.de> parents: 260 diff changeset	319
3b21d0991eff documentation Claus Gittinger <cg@exept.de> parents: 260 diff changeset	320	[author:]
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	321	Claus Gittinger
19 84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	322	"
1399 95b2eaa4e457 undefinedVariableNotification fix Claus Gittinger <cg@exept.de> parents: 1398 diff changeset	323	!
95b2eaa4e457 undefinedVariableNotification fix Claus Gittinger <cg@exept.de> parents: 1398 diff changeset	324
95b2eaa4e457 undefinedVariableNotification fix Claus Gittinger <cg@exept.de> parents: 1398 diff changeset	325	examples
95b2eaa4e457 undefinedVariableNotification fix Claus Gittinger <cg@exept.de> parents: 1398 diff changeset	326	"
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	327	[exBegin]
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	328	Parser
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	329	evaluate:'1+2*3'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	330	in:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	331	receiver:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	332	notifying:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	333	logged:false
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	334	ifFail:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	335	[exEnd]
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	336	[exBegin]
1399 95b2eaa4e457 undefinedVariableNotification fix Claus Gittinger <cg@exept.de> parents: 1398 diff changeset	337	Parser undefinedVariableNotification handle:[:ex \|
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	338	\|badName\|
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	339
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	340	badName := ex variableName.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	341	ex proceedWith:(ConstantNode value:5).
1399 95b2eaa4e457 undefinedVariableNotification fix Claus Gittinger <cg@exept.de> parents: 1398 diff changeset	342	] do:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	343	^ self compilerClass
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	344	evaluate:'foo * 3'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	345	in:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	346	receiver:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	347	notifying:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	348	logged:false
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	349	ifFail:nil
1399 95b2eaa4e457 undefinedVariableNotification fix Claus Gittinger <cg@exept.de> parents: 1398 diff changeset	350	]
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	351	[exEnd]
2483 927c785448a6 changed: #examples Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	352
927c785448a6 changed: #examples Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	353	the following are experimental...
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	354	[exBegin]
2483 927c785448a6 changed: #examples Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	355	<pragma: +arrayIndexSyntaxExtension>
927c785448a6 changed: #examples Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	356	\|c\|
927c785448a6 changed: #examples Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	357
927c785448a6 changed: #examples Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	358	c := Array[7].
927c785448a6 changed: #examples Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	359	c[4] := 4.
927c785448a6 changed: #examples Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	360	c[6] := 6.
927c785448a6 changed: #examples Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	361	c[7] := 7.
927c785448a6 changed: #examples Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	362	c[7] := c[4] - c[6].
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	363	[exEnd]
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	364	[exBegin]
2483 927c785448a6 changed: #examples Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	365	<pragma: +arrayIndexSyntaxExtension>
927c785448a6 changed: #examples Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	366	\|d\|
927c785448a6 changed: #examples Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	367
927c785448a6 changed: #examples Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	368	d := Dictionary new.
927c785448a6 changed: #examples Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	369	d['one'] := 'eins'.
927c785448a6 changed: #examples Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	370	d['two'] := 'zwei'.
927c785448a6 changed: #examples Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	371	d['three'] := 'drei'.
927c785448a6 changed: #examples Claus Gittinger <cg@exept.de> parents: 2482 diff changeset	372
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	373	d['two'] , d['three']
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	374	[exEnd]
2567 30fd2329c3bd - parse tree nodes are no longer shared Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2563 diff changeset	375
30fd2329c3bd - parse tree nodes are no longer shared Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2563 diff changeset	376
30fd2329c3bd - parse tree nodes are no longer shared Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2563 diff changeset	377	Reparse whole image...
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	378	[exBegin]
2567 30fd2329c3bd - parse tree nodes are no longer shared Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2563 diff changeset	379	Smalltalk allClassesDo:[:cls\|
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	380	cls isLoaded ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	381	Transcript show: cls name; show: '...'.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	382	cls methodsDo:[:mth\|
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	383	Parser parseMethod: mth source.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	384	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	385	Transcript showCR:'OK'.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	386	]
2567 30fd2329c3bd - parse tree nodes are no longer shared Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2563 diff changeset	387	]
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	388	[exEnd]
2567 30fd2329c3bd - parse tree nodes are no longer shared Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2563 diff changeset	389
1399 95b2eaa4e457 undefinedVariableNotification fix Claus Gittinger <cg@exept.de> parents: 1398 diff changeset	390	"
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	391	! !
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	392
358 78b0d8954c49 removed possible conflict between #classVarNames here and in Class. Claus Gittinger <cg@exept.de> parents: 354 diff changeset	393	!Parser class methodsFor:'instance creation'!
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	394
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	395	for:aStringOrStream in:aClass
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	396	"return a new parser, reading code for aClass from aStringOrStream"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	397
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	398	\|parser\|
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	399
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	400	parser := self for:aStringOrStream.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	401	parser setClassToCompileFor:aClass.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	402	^ parser
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	403	! !
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	404
1419 9cd1adac1785 category Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	405	!Parser class methodsFor:'Compatibility-ST80'!
540 642f56fab795 ST80 compatible parse:class: Claus Gittinger <cg@exept.de> parents: 508 diff changeset	406
642f56fab795 ST80 compatible parse:class: Claus Gittinger <cg@exept.de> parents: 508 diff changeset	407	parse:aString class:aClass
642f56fab795 ST80 compatible parse:class: Claus Gittinger <cg@exept.de> parents: 508 diff changeset	408	"same as #parseMethod:in: for ST80 compatibility."
642f56fab795 ST80 compatible parse:class: Claus Gittinger <cg@exept.de> parents: 508 diff changeset	409
642f56fab795 ST80 compatible parse:class: Claus Gittinger <cg@exept.de> parents: 508 diff changeset	410	\|parser\|
642f56fab795 ST80 compatible parse:class: Claus Gittinger <cg@exept.de> parents: 508 diff changeset	411
642f56fab795 ST80 compatible parse:class: Claus Gittinger <cg@exept.de> parents: 508 diff changeset	412	parser := self parseMethod:aString in:aClass.
642f56fab795 ST80 compatible parse:class: Claus Gittinger <cg@exept.de> parents: 508 diff changeset	413	parser notNil ifTrue:[^ parser tree].
642f56fab795 ST80 compatible parse:class: Claus Gittinger <cg@exept.de> parents: 508 diff changeset	414	^ nil
642f56fab795 ST80 compatible parse:class: Claus Gittinger <cg@exept.de> parents: 508 diff changeset	415
642f56fab795 ST80 compatible parse:class: Claus Gittinger <cg@exept.de> parents: 508 diff changeset	416	"Modified: 19.6.1997 / 16:34:57 / cg"
642f56fab795 ST80 compatible parse:class: Claus Gittinger <cg@exept.de> parents: 508 diff changeset	417	! !
642f56fab795 ST80 compatible parse:class: Claus Gittinger <cg@exept.de> parents: 508 diff changeset	418
1419 9cd1adac1785 category Claus Gittinger <cg@exept.de> parents: 1418 diff changeset	419	!Parser class methodsFor:'Compatibility-Squeak'!
920 23f7bb1023cb * empty log message * Claus Gittinger <cg@exept.de> parents: 919 diff changeset	420
23f7bb1023cb * empty log message * Claus Gittinger <cg@exept.de> parents: 919 diff changeset	421	evaluate:someString for:aReceiver logged:logged
23f7bb1023cb * empty log message * Claus Gittinger <cg@exept.de> parents: 919 diff changeset	422	^ self evaluate:someString receiver:aReceiver logged:logged
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	423
920 23f7bb1023cb * empty log message * Claus Gittinger <cg@exept.de> parents: 919 diff changeset	424
23f7bb1023cb * empty log message * Claus Gittinger <cg@exept.de> parents: 919 diff changeset	425
23f7bb1023cb * empty log message * Claus Gittinger <cg@exept.de> parents: 919 diff changeset	426	! !
23f7bb1023cb * empty log message * Claus Gittinger <cg@exept.de> parents: 919 diff changeset	427
1062 119b394e10b5 parse bug: #(#Error) Claus Gittinger <cg@exept.de> parents: 1061 diff changeset	428	!Parser class methodsFor:'Signal constants'!
119b394e10b5 parse bug: #(#Error) Claus Gittinger <cg@exept.de> parents: 1061 diff changeset	429
2430 f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	430	askForVariableTypeOfUndeclaredQuery
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	431	^ AskForVariableTypeOfUndeclaredQuery
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	432
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	433	"Created: / 20-10-2010 / 18:23:12 / cg"
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	434	!
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	435
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	436	correctByDeclaringIdentifierAs
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	437	^ CorrectByDeclaringIdentifierAs
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	438	!
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	439
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	440	correctByInteractiveCorrection
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	441	^ CorrectByInteractiveCorrection
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	442	!
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	443
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	444	correctByInteractiveRename
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	445	^ CorrectByInteractiveRename
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	446	!
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	447
1062 119b394e10b5 parse bug: #(#Error) Claus Gittinger <cg@exept.de> parents: 1061 diff changeset	448	parseErrorSignal
3067 2b9666f7c3c7 class: Parser Claus Gittinger <cg@exept.de> parents: 3045 diff changeset	449	^ ParseError
1398 eaef898b063e added undefinedVariableNotification Claus Gittinger <cg@exept.de> parents: 1394 diff changeset	450	!
eaef898b063e added undefinedVariableNotification Claus Gittinger <cg@exept.de> parents: 1394 diff changeset	451
2532 62ba5e07359b added: #parseWarningSignal Claus Gittinger <cg@exept.de> parents: 2531 diff changeset	452	parseWarningSignal
62ba5e07359b added: #parseWarningSignal Claus Gittinger <cg@exept.de> parents: 2531 diff changeset	453	^ ParseWarning
62ba5e07359b added: #parseWarningSignal Claus Gittinger <cg@exept.de> parents: 2531 diff changeset	454
62ba5e07359b added: #parseWarningSignal Claus Gittinger <cg@exept.de> parents: 2531 diff changeset	455	"Created: / 05-07-2011 / 18:15:33 / cg"
62ba5e07359b added: #parseWarningSignal Claus Gittinger <cg@exept.de> parents: 2531 diff changeset	456	!
62ba5e07359b added: #parseWarningSignal Claus Gittinger <cg@exept.de> parents: 2531 diff changeset	457
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	458	possibleCorrectionsQuery
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	459	^ PossibleCorrectionsQuery
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	460	!
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	461
1468 891259e2dbe4 checkin from browser Claus Gittinger <cg@exept.de> parents: 1461 diff changeset	462	restartCompilationSignal
891259e2dbe4 checkin from browser Claus Gittinger <cg@exept.de> parents: 1461 diff changeset	463	^ RestartCompilationSignal
891259e2dbe4 checkin from browser Claus Gittinger <cg@exept.de> parents: 1461 diff changeset	464
891259e2dbe4 checkin from browser Claus Gittinger <cg@exept.de> parents: 1461 diff changeset	465	"Created: / 15.11.2001 / 22:57:05 / cg"
891259e2dbe4 checkin from browser Claus Gittinger <cg@exept.de> parents: 1461 diff changeset	466	!
891259e2dbe4 checkin from browser Claus Gittinger <cg@exept.de> parents: 1461 diff changeset	467
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	468	undefinedSuperclassError
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	469	^ UndefinedSuperclassError
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	470	!
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	471
2420 914eb1c66bda Raise UndefinedVariableError - not raising is caused class method patches for non-existing Stefan Vogel <sv@exept.de> parents: 2417 diff changeset	472	undefinedVariableError
914eb1c66bda Raise UndefinedVariableError - not raising is caused class method patches for non-existing Stefan Vogel <sv@exept.de> parents: 2417 diff changeset	473	^ UndefinedVariableError
914eb1c66bda Raise UndefinedVariableError - not raising is caused class method patches for non-existing Stefan Vogel <sv@exept.de> parents: 2417 diff changeset	474	!
914eb1c66bda Raise UndefinedVariableError - not raising is caused class method patches for non-existing Stefan Vogel <sv@exept.de> parents: 2417 diff changeset	475
1398 eaef898b063e added undefinedVariableNotification Claus Gittinger <cg@exept.de> parents: 1394 diff changeset	476	undefinedVariableNotification
eaef898b063e added undefinedVariableNotification Claus Gittinger <cg@exept.de> parents: 1394 diff changeset	477	^ UndefinedVariableNotification
1062 119b394e10b5 parse bug: #(#Error) Claus Gittinger <cg@exept.de> parents: 1061 diff changeset	478	! !
119b394e10b5 parse bug: #(#Error) Claus Gittinger <cg@exept.de> parents: 1061 diff changeset	479
2158 a44655b13b11 category Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	480	!Parser class methodsFor:'change & update'!
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	481
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	482	flushNameCache
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	483	"unconditional flush name caches"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	484
694 1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars Claus Gittinger <cg@exept.de> parents: 692 diff changeset	485	[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	486	PrevClass notNil ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	487	PrevClass removeDependent:Parser
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	488	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	489	PrevClass := nil.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	490	PrevInstVarNames := nil.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	491	PrevClassVarNames := nil.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	492	PrevClassInstVarNames := nil.
694 1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars Claus Gittinger <cg@exept.de> parents: 692 diff changeset	493	] valueUninterruptably
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	494
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	495	"Parser flushNameCache"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	496	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	497
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	498	update:something with:someArgument from:changedObject
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	499	"aClass has changed its definition - flush name caches if we have to"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	500
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	501	(changedObject == PrevClass) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	502	something == #definition ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	503	self flushNameCache
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	504	]
1090 7f49c607a315 catch change-notifications from Smalltalk (to flush PrevClass cache) Claus Gittinger <cg@exept.de> parents: 1089 diff changeset	505	].
7f49c607a315 catch change-notifications from Smalltalk (to flush PrevClass cache) Claus Gittinger <cg@exept.de> parents: 1089 diff changeset	506	(changedObject == Smalltalk) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	507	something == #classDefinition ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	508	self flushNameCache
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	509	]
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	510	]
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	511	! !
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	512
717 627b2379d5ce moved signal to scanner Claus Gittinger <cg@exept.de> parents: 713 diff changeset	513	!Parser class methodsFor:'class initialization'!
627b2379d5ce moved signal to scanner Claus Gittinger <cg@exept.de> parents: 713 diff changeset	514
627b2379d5ce moved signal to scanner Claus Gittinger <cg@exept.de> parents: 713 diff changeset	515	initialize
627b2379d5ce moved signal to scanner Claus Gittinger <cg@exept.de> parents: 713 diff changeset	516	LazyCompilation := false. "/ usually set to true in your .rc file
1636 98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	517
717 627b2379d5ce moved signal to scanner Claus Gittinger <cg@exept.de> parents: 713 diff changeset	518	FoldConstants := #level1.
627b2379d5ce moved signal to scanner Claus Gittinger <cg@exept.de> parents: 713 diff changeset	519	LineNumberInfo := false.
627b2379d5ce moved signal to scanner Claus Gittinger <cg@exept.de> parents: 713 diff changeset	520
1062 119b394e10b5 parse bug: #(#Error) Claus Gittinger <cg@exept.de> parents: 1061 diff changeset	521	ParseErrorSignal isNil ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	522	ParseErrorSignal := ParseError.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	523	ParseErrorSignal notifierString:'Parse error:'.
1380 7288e4623e2b parseError Claus Gittinger <cg@exept.de> parents: 1373 diff changeset	524
7288e4623e2b parseError Claus Gittinger <cg@exept.de> parents: 1373 diff changeset	525	"/ ParseErrorSignal := Error newSignalMayProceed:true.
7288e4623e2b parseError Claus Gittinger <cg@exept.de> parents: 1373 diff changeset	526	"/ ParseErrorSignal notifierString:'parse error'.
7288e4623e2b parseError Claus Gittinger <cg@exept.de> parents: 1373 diff changeset	527	"/ ParseErrorSignal nameClass:self message:#parseErrorSignal.
1062 119b394e10b5 parse bug: #(#Error) Claus Gittinger <cg@exept.de> parents: 1061 diff changeset	528	].
1221 2768cbe3be2b finished remove unused vars; Claus Gittinger <cg@exept.de> parents: 1220 diff changeset	529	RestartCompilationSignal := Signal new.
2768cbe3be2b finished remove unused vars; Claus Gittinger <cg@exept.de> parents: 1220 diff changeset	530
1090 7f49c607a315 catch change-notifications from Smalltalk (to flush PrevClass cache) Claus Gittinger <cg@exept.de> parents: 1089 diff changeset	531	Smalltalk addDependent:self.
1062 119b394e10b5 parse bug: #(#Error) Claus Gittinger <cg@exept.de> parents: 1061 diff changeset	532
717 627b2379d5ce moved signal to scanner Claus Gittinger <cg@exept.de> parents: 713 diff changeset	533	"
627b2379d5ce moved signal to scanner Claus Gittinger <cg@exept.de> parents: 713 diff changeset	534	self initialize
627b2379d5ce moved signal to scanner Claus Gittinger <cg@exept.de> parents: 713 diff changeset	535	"
627b2379d5ce moved signal to scanner Claus Gittinger <cg@exept.de> parents: 713 diff changeset	536
1855 61936f01108e error messages shortened and cleanup Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	537	"Modified: / 22-08-2006 / 13:41:51 / cg"
717 627b2379d5ce moved signal to scanner Claus Gittinger <cg@exept.de> parents: 713 diff changeset	538	! !
627b2379d5ce moved signal to scanner Claus Gittinger <cg@exept.de> parents: 713 diff changeset	539
358 78b0d8954c49 removed possible conflict between #classVarNames here and in Class. Claus Gittinger <cg@exept.de> parents: 354 diff changeset	540	!Parser class methodsFor:'controlling compilation'!
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	541
1636 98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	542	allowArrayIndexSyntaxExtension
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	543	"experimental"
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	544
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	545	^ ParserFlags allowArrayIndexSyntaxExtension
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	546	!
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	547
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	548	allowArrayIndexSyntaxExtension:aBoolean
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	549	"experimental"
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	550
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	551	ParserFlags allowArrayIndexSyntaxExtension:aBoolean.
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	552
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	553	"
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	554	self allowArrayIndexSyntaxExtension:true
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	555	self allowArrayIndexSyntaxExtension:false
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	556	"
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	557	!
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	558
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	559	allowFunctionCallSyntaxForBlockEvaluation
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	560	"experimental"
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	561
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	562	^ ParserFlags allowFunctionCallSyntaxForBlockEvaluation
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	563	!
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	564
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	565	allowFunctionCallSyntaxForBlockEvaluation:aBoolean
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	566	"experimental"
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	567
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	568	ParserFlags allowFunctionCallSyntaxForBlockEvaluation:aBoolean.
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	569
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	570	"
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	571	self allowFunctionCallSyntaxForBlockEvaluation:true
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	572	self allowFunctionCallSyntaxForBlockEvaluation:false
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	573	"
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	574	!
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	575
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	576	allowReservedWordsAsSelectors
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	577	"return true, if self, super, thisContext, nil, true and false are to be allowed
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	578	as unary message selectors."
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	579
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	580	^ ParserFlags allowReservedWordsAsSelectors
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	581	!
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	582
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	583	allowReservedWordsAsSelectors:aBoolean
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	584	"enable/disable, if self, super, thisContext, nil, true and false are to be allowed
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	585	as unary message selectors."
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	586
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	587	ParserFlags allowReservedWordsAsSelectors:aBoolean.
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	588	self setupActions
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	589
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	590	"
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	591	self allowReservedWordsAsSelectors:true
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	592	self allowReservedWordsAsSelectors:false
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	593	"
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	594	!
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	595
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	596	arraysAreImmutable
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	597	"return true if arrays are immutable literals"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	598
1636 98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	599	^ ParserFlags arraysAreImmutable
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	600	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	601
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	602	arraysAreImmutable:aBoolean
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	603	"turn on/off immutable array literals - default is false for ST-80 compatibilty."
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	604
1636 98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	605	ParserFlags arraysAreImmutable:aBoolean.
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	606
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	607	"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	608	can be added to your private.rc file:
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	609
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	610	Compiler arraysAreImmutable:true
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	611	Compiler arraysAreImmutable:false
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	612	"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	613	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	614
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	615	compileLazy
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	616	"return true if compiling lazy"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	617
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	618	^ LazyCompilation.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	619	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	620
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	621	compileLazy:aBoolean
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	622	"turn on/off lazy compilation - return previous setting.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	623	Actually this flag belongs into the ByteCodeCompiler subclass,
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	624	but it also controls the reporting of some errors here; therefore
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	625	its located here"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	626
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	627	\|oldLazy\|
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	628
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	629	oldLazy := LazyCompilation.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	630	LazyCompilation := aBoolean.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	631	^ oldLazy
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	632
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	633	"
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	634	Compiler compileLazy:false
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	635	Compiler compileLazy:true
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	636	"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	637	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	638
210 b22f4472833b allow enable/disable of constantFolding Claus Gittinger <cg@exept.de> parents: 207 diff changeset	639	foldConstants
212 ff39051e219f more constant folding options Claus Gittinger <cg@exept.de> parents: 210 diff changeset	640	"return a symbol describing how constants are to be folded"
210 b22f4472833b allow enable/disable of constantFolding Claus Gittinger <cg@exept.de> parents: 207 diff changeset	641
b22f4472833b allow enable/disable of constantFolding Claus Gittinger <cg@exept.de> parents: 207 diff changeset	642	^ FoldConstants
b22f4472833b allow enable/disable of constantFolding Claus Gittinger <cg@exept.de> parents: 207 diff changeset	643
b22f4472833b allow enable/disable of constantFolding Claus Gittinger <cg@exept.de> parents: 207 diff changeset	644	"Created: 9.2.1996 / 17:40:13 / cg"
b22f4472833b allow enable/disable of constantFolding Claus Gittinger <cg@exept.de> parents: 207 diff changeset	645	!
b22f4472833b allow enable/disable of constantFolding Claus Gittinger <cg@exept.de> parents: 207 diff changeset	646
212 ff39051e219f more constant folding options Claus Gittinger <cg@exept.de> parents: 210 diff changeset	647	foldConstants:aSymbol
ff39051e219f more constant folding options Claus Gittinger <cg@exept.de> parents: 210 diff changeset	648	"set the symbol describing how constants are to be folded.
ff39051e219f more constant folding options Claus Gittinger <cg@exept.de> parents: 210 diff changeset	649	It can be:
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	650	nil - no constant folding
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	651	#level1 - numeric constants only
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	652	#level2 - level1 PLUS array conversions PLUS string concatenation
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	653	#full - level2 PLUS constant points, constant rectangles (dangerous)"
212 ff39051e219f more constant folding options Claus Gittinger <cg@exept.de> parents: 210 diff changeset	654
ff39051e219f more constant folding options Claus Gittinger <cg@exept.de> parents: 210 diff changeset	655	FoldConstants := aSymbol
210 b22f4472833b allow enable/disable of constantFolding Claus Gittinger <cg@exept.de> parents: 207 diff changeset	656
b22f4472833b allow enable/disable of constantFolding Claus Gittinger <cg@exept.de> parents: 207 diff changeset	657	"Created: 9.2.1996 / 17:40:34 / cg"
b22f4472833b allow enable/disable of constantFolding Claus Gittinger <cg@exept.de> parents: 207 diff changeset	658	!
b22f4472833b allow enable/disable of constantFolding Claus Gittinger <cg@exept.de> parents: 207 diff changeset	659
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	660	implicitSelfSends
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	661	"return true if undefined variables with
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	662	lowercase first character are to be turned
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	663	into implicit self sends"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	664
1636 98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	665	^ ParserFlags implicitSelfSends
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	666	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	667
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	668	implicitSelfSends:aBoolean
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	669	"turn on/off implicit self sends"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	670
1636 98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	671	ParserFlags implicitSelfSends:aBoolean
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	672
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	673	"
1636 98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	674	ParserFlags implicitSelfSends:true
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	675	ParserFlags implicitSelfSends:false
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	676	"
377 bee1c21ecc62 checkin from browser Claus Gittinger <cg@exept.de> parents: 376 diff changeset	677	!
bee1c21ecc62 checkin from browser Claus Gittinger <cg@exept.de> parents: 376 diff changeset	678
bee1c21ecc62 checkin from browser Claus Gittinger <cg@exept.de> parents: 376 diff changeset	679	lineNumberInfo
2928 6479e1be24b3 lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	680	^ ParserFlags lineNumberInfo
6479e1be24b3 lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	681
6479e1be24b3 lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	682	"Modified: / 26-09-2012 / 13:28:46 / cg"
377 bee1c21ecc62 checkin from browser Claus Gittinger <cg@exept.de> parents: 376 diff changeset	683	!
bee1c21ecc62 checkin from browser Claus Gittinger <cg@exept.de> parents: 376 diff changeset	684
bee1c21ecc62 checkin from browser Claus Gittinger <cg@exept.de> parents: 376 diff changeset	685	lineNumberInfo:aBoolean
2928 6479e1be24b3 lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	686	ParserFlags lineNumberInfo:aBoolean
6479e1be24b3 lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	687
6479e1be24b3 lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	688	"Modified: / 26-09-2012 / 13:28:56 / cg"
752 dc6c757579b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 748 diff changeset	689	!
dc6c757579b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 748 diff changeset	690
dc6c757579b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 748 diff changeset	691	stringsAreImmutable
dc6c757579b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 748 diff changeset	692	"return true if strings are immutable literals"
dc6c757579b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 748 diff changeset	693
1636 98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	694	^ ParserFlags stringsAreImmutable
752 dc6c757579b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 748 diff changeset	695
dc6c757579b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 748 diff changeset	696	"Created: / 3.8.1998 / 14:53:25 / cg"
dc6c757579b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 748 diff changeset	697	!
dc6c757579b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 748 diff changeset	698
dc6c757579b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 748 diff changeset	699	stringsAreImmutable:aBoolean
dc6c757579b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 748 diff changeset	700	"turn on/off immutable string literals - default is false for ST-80 compatibilty."
dc6c757579b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 748 diff changeset	701
1636 98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	702	ParserFlags stringsAreImmutable:aBoolean.
752 dc6c757579b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 748 diff changeset	703
dc6c757579b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 748 diff changeset	704	"
dc6c757579b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 748 diff changeset	705	can be added to your private.rc file:
dc6c757579b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 748 diff changeset	706
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	707	ParserFlags stringsAreImmutable:true
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	708	ParserFlags stringsAreImmutable:false
752 dc6c757579b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 748 diff changeset	709	"
dc6c757579b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 748 diff changeset	710
dc6c757579b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 748 diff changeset	711	"Created: / 3.8.1998 / 14:53:28 / cg"
1160 972e7e337891 Warn about unused method vars Stefan Vogel <sv@exept.de> parents: 1158 diff changeset	712	!
972e7e337891 Warn about unused method vars Stefan Vogel <sv@exept.de> parents: 1158 diff changeset	713
1653 db35fa50902a * empty log message * Claus Gittinger <cg@exept.de> parents: 1650 diff changeset	714	warnAboutBadComments:aBoolean
db35fa50902a * empty log message * Claus Gittinger <cg@exept.de> parents: 1650 diff changeset	715	"controls generation of warning messages about empty comments"
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	716
1653 db35fa50902a * empty log message * Claus Gittinger <cg@exept.de> parents: 1650 diff changeset	717	ParserFlags warnAboutBadComments:aBoolean
db35fa50902a * empty log message * Claus Gittinger <cg@exept.de> parents: 1650 diff changeset	718	!
db35fa50902a * empty log message * Claus Gittinger <cg@exept.de> parents: 1650 diff changeset	719
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	720	warnAboutVariableNameConventions
1523 7846be9771d6 checkVariable-conventions accessors Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	721	"controls generation of warning messages about wrong variable names"
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	722
1636 98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	723	^ ParserFlags warnAboutVariableNameConventions
1523 7846be9771d6 checkVariable-conventions accessors Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	724	!
7846be9771d6 checkVariable-conventions accessors Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	725
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	726	warnAboutVariableNameConventions:aBoolean
1523 7846be9771d6 checkVariable-conventions accessors Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	727	"controls generation of warning messages about wrong variable names"
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	728
1636 98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	729	ParserFlags warnAboutVariableNameConventions:aBoolean
1523 7846be9771d6 checkVariable-conventions accessors Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	730	!
7846be9771d6 checkVariable-conventions accessors Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	731
7846be9771d6 checkVariable-conventions accessors Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	732	warnAboutWrongVariableNames
7846be9771d6 checkVariable-conventions accessors Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	733	"controls generation of warning messages about wrong variable names"
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	734
1636 98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	735	^ ParserFlags warnAboutWrongVariableNames
1523 7846be9771d6 checkVariable-conventions accessors Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	736	!
7846be9771d6 checkVariable-conventions accessors Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	737
7846be9771d6 checkVariable-conventions accessors Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	738	warnAboutWrongVariableNames:aBoolean
7846be9771d6 checkVariable-conventions accessors Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	739	"controls generation of warning messages about wrong variable names"
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	740
1636 98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	741	ParserFlags warnAboutWrongVariableNames:aBoolean
1523 7846be9771d6 checkVariable-conventions accessors Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	742	!
7846be9771d6 checkVariable-conventions accessors Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	743
1160 972e7e337891 Warn about unused method vars Stefan Vogel <sv@exept.de> parents: 1158 diff changeset	744	warnUnusedVars
972e7e337891 Warn about unused method vars Stefan Vogel <sv@exept.de> parents: 1158 diff changeset	745	"controls generation of warning messages about unued method variables"
972e7e337891 Warn about unused method vars Stefan Vogel <sv@exept.de> parents: 1158 diff changeset	746
1636 98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	747	^ ParserFlags warnUnusedVars
1160 972e7e337891 Warn about unused method vars Stefan Vogel <sv@exept.de> parents: 1158 diff changeset	748	!
972e7e337891 Warn about unused method vars Stefan Vogel <sv@exept.de> parents: 1158 diff changeset	749
972e7e337891 Warn about unused method vars Stefan Vogel <sv@exept.de> parents: 1158 diff changeset	750	warnUnusedVars:aBoolean
972e7e337891 Warn about unused method vars Stefan Vogel <sv@exept.de> parents: 1158 diff changeset	751	"controls generation of warning messages about unued method variables"
972e7e337891 Warn about unused method vars Stefan Vogel <sv@exept.de> parents: 1158 diff changeset	752
1636 98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	753	ParserFlags warnUnusedVars:aBoolean
19 84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	754	! !
0 7ad01559b262 Initial revision claus parents: diff changeset	755
481 187a88a9695d care for maxLineNo when looking for a block-by-lineNo Claus Gittinger <cg@exept.de> parents: 480 diff changeset	756	!Parser class methodsFor:'defaults'!
187a88a9695d care for maxLineNo when looking for a block-by-lineNo Claus Gittinger <cg@exept.de> parents: 480 diff changeset	757
187a88a9695d care for maxLineNo when looking for a block-by-lineNo Claus Gittinger <cg@exept.de> parents: 480 diff changeset	758	maxLineNumber
187a88a9695d care for maxLineNo when looking for a block-by-lineNo Claus Gittinger <cg@exept.de> parents: 480 diff changeset	759	"return the maximum lineNumber that is possibly
187a88a9695d care for maxLineNo when looking for a block-by-lineNo Claus Gittinger <cg@exept.de> parents: 480 diff changeset	760	encoded in a methods byteCode debugging information.
187a88a9695d care for maxLineNo when looking for a block-by-lineNo Claus Gittinger <cg@exept.de> parents: 480 diff changeset	761	Since lineNumber entries only have 1 byte available,
187a88a9695d care for maxLineNo when looking for a block-by-lineNo Claus Gittinger <cg@exept.de> parents: 480 diff changeset	762	this is 255 for byteCode methods."
187a88a9695d care for maxLineNo when looking for a block-by-lineNo Claus Gittinger <cg@exept.de> parents: 480 diff changeset	763
187a88a9695d care for maxLineNo when looking for a block-by-lineNo Claus Gittinger <cg@exept.de> parents: 480 diff changeset	764	^ 255
187a88a9695d care for maxLineNo when looking for a block-by-lineNo Claus Gittinger <cg@exept.de> parents: 480 diff changeset	765
187a88a9695d care for maxLineNo when looking for a block-by-lineNo Claus Gittinger <cg@exept.de> parents: 480 diff changeset	766	"Created: 14.2.1997 / 16:52:54 / cg"
187a88a9695d care for maxLineNo when looking for a block-by-lineNo Claus Gittinger <cg@exept.de> parents: 480 diff changeset	767	! !
187a88a9695d care for maxLineNo when looking for a block-by-lineNo Claus Gittinger <cg@exept.de> parents: 480 diff changeset	768
1187 902d406b9100 * empty log message * Claus Gittinger <cg@exept.de> parents: 1186 diff changeset	769	!Parser class methodsFor:'error correction'!
902d406b9100 * empty log message * Claus Gittinger <cg@exept.de> parents: 1186 diff changeset	770
1199 3ffc14d393a7 best selector matching improved Claus Gittinger <cg@exept.de> parents: 1197 diff changeset	771	findBest:nMax selectorsFor:aString in:aClassOrNil
1187 902d406b9100 * empty log message * Claus Gittinger <cg@exept.de> parents: 1186 diff changeset	772	"collect known selectors with their spelling distances to aString;
1199 3ffc14d393a7 best selector matching improved Claus Gittinger <cg@exept.de> parents: 1197 diff changeset	773	return the nMax best suggestions. If the argument, aClassOrNil is not nil,
1187 902d406b9100 * empty log message * Claus Gittinger <cg@exept.de> parents: 1186 diff changeset	774	the message is assumed to be sent to instances of that class (i.e. offer
902d406b9100 * empty log message * Claus Gittinger <cg@exept.de> parents: 1186 diff changeset	775	corrections from that hierarchy only)"
902d406b9100 * empty log message * Claus Gittinger <cg@exept.de> parents: 1186 diff changeset	776
2187 2e0f84881b30 * empty log message * Claus Gittinger <cg@exept.de> parents: 2183 diff changeset	777	^ self findBest:nMax selectorsFor:aString in:aClassOrNil forCompletion:false
2e0f84881b30 * empty log message * Claus Gittinger <cg@exept.de> parents: 2183 diff changeset	778	!
2e0f84881b30 * empty log message * Claus Gittinger <cg@exept.de> parents: 2183 diff changeset	779
2e0f84881b30 * empty log message * Claus Gittinger <cg@exept.de> parents: 2183 diff changeset	780	findBest:nMax selectorsFor:aString in:aClassOrNil forCompletion:forCompletion
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	781	"soon OBSOLETE and replaced by corresponding into: API.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	782	collect known selectors with their spelling distances to aString;
2187 2e0f84881b30 * empty log message * Claus Gittinger <cg@exept.de> parents: 2183 diff changeset	783	return the nMax best suggestions. If the argument, aClassOrNil is not nil,
2e0f84881b30 * empty log message * Claus Gittinger <cg@exept.de> parents: 2183 diff changeset	784	the message is assumed to be sent to instances of that class (i.e. offer
2e0f84881b30 * empty log message * Claus Gittinger <cg@exept.de> parents: 2183 diff changeset	785	corrections from that hierarchy only).
2e0f84881b30 * empty log message * Claus Gittinger <cg@exept.de> parents: 2183 diff changeset	786	If forCompletion isTrue, prefix sequences are preferred"
2e0f84881b30 * empty log message * Claus Gittinger <cg@exept.de> parents: 2183 diff changeset	787
3230 0431bd21569f class: Parser Claus Gittinger <cg@exept.de> parents: 3227 diff changeset	788	\|info block lcSelector loadedClass\|
1187 902d406b9100 * empty log message * Claus Gittinger <cg@exept.de> parents: 1186 diff changeset	789
902d406b9100 * empty log message * Claus Gittinger <cg@exept.de> parents: 1186 diff changeset	790	info := SortedCollection new.
902d406b9100 * empty log message * Claus Gittinger <cg@exept.de> parents: 1186 diff changeset	791	info sortBlock:[:a :b \| a value > b value].
902d406b9100 * empty log message * Claus Gittinger <cg@exept.de> parents: 1186 diff changeset	792
902d406b9100 * empty log message * Claus Gittinger <cg@exept.de> parents: 1186 diff changeset	793	lcSelector := aString asLowercase.
902d406b9100 * empty log message * Claus Gittinger <cg@exept.de> parents: 1186 diff changeset	794
902d406b9100 * empty log message * Claus Gittinger <cg@exept.de> parents: 1186 diff changeset	795	block := [:sym :mthd\|
3227 f7f9b8b99fca class: Parser Claus Gittinger <cg@exept.de> parents: 3222 diff changeset	796	\|similarity lcSym keepThis\|
f7f9b8b99fca class: Parser Claus Gittinger <cg@exept.de> parents: 3222 diff changeset	797
3234 dc7c4cd14291 class: Parser Claus Gittinger <cg@exept.de> parents: 3230 diff changeset	798	(forCompletion and:[sym = aString]) ifFalse:[
3236 a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	799	lcSym := sym asLowercase.
3234 dc7c4cd14291 class: Parser Claus Gittinger <cg@exept.de> parents: 3230 diff changeset	800	(info contains:[:i \| i key == sym]) ifFalse:[
3236 a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	801	"/ higher simililarity if string to complete starts with the selector
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	802	(forCompletion and:[lcSym startsWith:lcSelector]) ifTrue:[
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	803	similarity := 100 * (1 + (lcSelector size / lcSym size)).
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	804	] ifFalse:[
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	805	similarity := lcSelector spellAgainst:lcSym. "/ 0..100
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	806	"/ similarity := similarity * (lcSym size).
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	807	].
3234 dc7c4cd14291 class: Parser Claus Gittinger <cg@exept.de> parents: 3230 diff changeset	808	forCompletion ifTrue:[
3236 a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	809	"/ higher simililarity for my own messages
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	810	aClassOrNil == mthd mclass ifTrue:[
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	811	similarity := similarity * 2.
3227 f7f9b8b99fca class: Parser Claus Gittinger <cg@exept.de> parents: 3222 diff changeset	812	].
f7f9b8b99fca class: Parser Claus Gittinger <cg@exept.de> parents: 3222 diff changeset	813	].
3234 dc7c4cd14291 class: Parser Claus Gittinger <cg@exept.de> parents: 3230 diff changeset	814
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	815	((similarity > 40) or:[lcSym startsWith:lcSelector]) ifTrue:[
3234 dc7c4cd14291 class: Parser Claus Gittinger <cg@exept.de> parents: 3230 diff changeset	816	(info contains:[:entry \| entry key = sym]) ifFalse:[
dc7c4cd14291 class: Parser Claus Gittinger <cg@exept.de> parents: 3230 diff changeset	817	keepThis := true.
dc7c4cd14291 class: Parser Claus Gittinger <cg@exept.de> parents: 3230 diff changeset	818	info size >= nMax ifTrue:[
dc7c4cd14291 class: Parser Claus Gittinger <cg@exept.de> parents: 3230 diff changeset	819	"will remove last entry anyway - so check if this one will remain..."
dc7c4cd14291 class: Parser Claus Gittinger <cg@exept.de> parents: 3230 diff changeset	820	similarity < info last value ifTrue:[
dc7c4cd14291 class: Parser Claus Gittinger <cg@exept.de> parents: 3230 diff changeset	821	keepThis := false.
dc7c4cd14291 class: Parser Claus Gittinger <cg@exept.de> parents: 3230 diff changeset	822	]
dc7c4cd14291 class: Parser Claus Gittinger <cg@exept.de> parents: 3230 diff changeset	823	].
dc7c4cd14291 class: Parser Claus Gittinger <cg@exept.de> parents: 3230 diff changeset	824	keepThis ifTrue:[
dc7c4cd14291 class: Parser Claus Gittinger <cg@exept.de> parents: 3230 diff changeset	825	"expensive - therefore do this check at last"
dc7c4cd14291 class: Parser Claus Gittinger <cg@exept.de> parents: 3230 diff changeset	826	mthd isObsolete ifFalse:[
dc7c4cd14291 class: Parser Claus Gittinger <cg@exept.de> parents: 3230 diff changeset	827	info add:(sym -> similarity).
dc7c4cd14291 class: Parser Claus Gittinger <cg@exept.de> parents: 3230 diff changeset	828	info size > nMax ifTrue:[
dc7c4cd14291 class: Parser Claus Gittinger <cg@exept.de> parents: 3230 diff changeset	829	info removeLast.
dc7c4cd14291 class: Parser Claus Gittinger <cg@exept.de> parents: 3230 diff changeset	830	]
3227 f7f9b8b99fca class: Parser Claus Gittinger <cg@exept.de> parents: 3222 diff changeset	831	]
f7f9b8b99fca class: Parser Claus Gittinger <cg@exept.de> parents: 3222 diff changeset	832	]
f7f9b8b99fca class: Parser Claus Gittinger <cg@exept.de> parents: 3222 diff changeset	833	]
f7f9b8b99fca class: Parser Claus Gittinger <cg@exept.de> parents: 3222 diff changeset	834	]
f7f9b8b99fca class: Parser Claus Gittinger <cg@exept.de> parents: 3222 diff changeset	835	]
f7f9b8b99fca class: Parser Claus Gittinger <cg@exept.de> parents: 3222 diff changeset	836	]
f7f9b8b99fca class: Parser Claus Gittinger <cg@exept.de> parents: 3222 diff changeset	837	].
f7f9b8b99fca class: Parser Claus Gittinger <cg@exept.de> parents: 3222 diff changeset	838
f7f9b8b99fca class: Parser Claus Gittinger <cg@exept.de> parents: 3222 diff changeset	839	(aClassOrNil isNil or:[aClassOrNil == Object]) ifTrue:[
f7f9b8b99fca class: Parser Claus Gittinger <cg@exept.de> parents: 3222 diff changeset	840	Smalltalk allClassesDo:[:cls \|
f7f9b8b99fca class: Parser Claus Gittinger <cg@exept.de> parents: 3222 diff changeset	841	cls methodDictionary keysAndValuesDo:block.
f7f9b8b99fca class: Parser Claus Gittinger <cg@exept.de> parents: 3222 diff changeset	842	cls class methodDictionary keysAndValuesDo:block.
f7f9b8b99fca class: Parser Claus Gittinger <cg@exept.de> parents: 3222 diff changeset	843	]
1187 902d406b9100 * empty log message * Claus Gittinger <cg@exept.de> parents: 1186 diff changeset	844	] ifFalse:[
3230 0431bd21569f class: Parser Claus Gittinger <cg@exept.de> parents: 3227 diff changeset	845	(loadedClass := aClassOrNil) isLoaded ifFalse:[
0431bd21569f class: Parser Claus Gittinger <cg@exept.de> parents: 3227 diff changeset	846	loadedClass := aClassOrNil autoload
0431bd21569f class: Parser Claus Gittinger <cg@exept.de> parents: 3227 diff changeset	847	].
0431bd21569f class: Parser Claus Gittinger <cg@exept.de> parents: 3227 diff changeset	848	loadedClass withAllSuperclassesDo:[:cls \|
3244 ecc2c6e3e7c4 class: Parser Claus Gittinger <cg@exept.de> parents: 3243 diff changeset	849	"/ Transcript showCR:'try ',cls name.
3230 0431bd21569f class: Parser Claus Gittinger <cg@exept.de> parents: 3227 diff changeset	850	cls methodDictionary keysAndValuesDo:block.
0431bd21569f class: Parser Claus Gittinger <cg@exept.de> parents: 3227 diff changeset	851	"/ cls class methodDictionary keysAndValuesDo:block.
0431bd21569f class: Parser Claus Gittinger <cg@exept.de> parents: 3227 diff changeset	852	].
3236 a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	853	"/ loadedClass withAllSubclassesDo:[:cls \|
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	854	"/ cls methodDictionary keysAndValuesDo:block.
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	855	"/ "/ cls class methodDictionary keysAndValuesDo:block.
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	856	"/ ].
1187 902d406b9100 * empty log message * Claus Gittinger <cg@exept.de> parents: 1186 diff changeset	857	].
902d406b9100 * empty log message * Claus Gittinger <cg@exept.de> parents: 1186 diff changeset	858
902d406b9100 * empty log message * Claus Gittinger <cg@exept.de> parents: 1186 diff changeset	859	^ info asOrderedCollection collect:[:a \| a key]
902d406b9100 * empty log message * Claus Gittinger <cg@exept.de> parents: 1186 diff changeset	860
3244 ecc2c6e3e7c4 class: Parser Claus Gittinger <cg@exept.de> parents: 3243 diff changeset	861	"Modified: / 30-07-2013 / 21:09:19 / cg"
1199 3ffc14d393a7 best selector matching improved Claus Gittinger <cg@exept.de> parents: 1197 diff changeset	862	!
3ffc14d393a7 best selector matching improved Claus Gittinger <cg@exept.de> parents: 1197 diff changeset	863
3ffc14d393a7 best selector matching improved Claus Gittinger <cg@exept.de> parents: 1197 diff changeset	864	findBestSelectorsFor:aString
3ffc14d393a7 best selector matching improved Claus Gittinger <cg@exept.de> parents: 1197 diff changeset	865	"collect known selectors with their spelling distances to aString;
3ffc14d393a7 best selector matching improved Claus Gittinger <cg@exept.de> parents: 1197 diff changeset	866	return the 10 best suggestions"
3ffc14d393a7 best selector matching improved Claus Gittinger <cg@exept.de> parents: 1197 diff changeset	867
3ffc14d393a7 best selector matching improved Claus Gittinger <cg@exept.de> parents: 1197 diff changeset	868	^ self findBestSelectorsFor:aString in:nil
3ffc14d393a7 best selector matching improved Claus Gittinger <cg@exept.de> parents: 1197 diff changeset	869
3ffc14d393a7 best selector matching improved Claus Gittinger <cg@exept.de> parents: 1197 diff changeset	870	"
3ffc14d393a7 best selector matching improved Claus Gittinger <cg@exept.de> parents: 1197 diff changeset	871	Parser findBestSelectorsFor:'at'
3ffc14d393a7 best selector matching improved Claus Gittinger <cg@exept.de> parents: 1197 diff changeset	872	Parser findBestSelectorsFor:'at:pu'
3ffc14d393a7 best selector matching improved Claus Gittinger <cg@exept.de> parents: 1197 diff changeset	873	"
3ffc14d393a7 best selector matching improved Claus Gittinger <cg@exept.de> parents: 1197 diff changeset	874	!
3ffc14d393a7 best selector matching improved Claus Gittinger <cg@exept.de> parents: 1197 diff changeset	875
3ffc14d393a7 best selector matching improved Claus Gittinger <cg@exept.de> parents: 1197 diff changeset	876	findBestSelectorsFor:aString in:aClassOrNil
3ffc14d393a7 best selector matching improved Claus Gittinger <cg@exept.de> parents: 1197 diff changeset	877	"collect known selectors with their spelling distances to aString;
2109 593859993fb6 return more bestSelectors Claus Gittinger <cg@exept.de> parents: 2108 diff changeset	878	return the N best suggestions. If the argument, aClassOrNil is not nil,
1199 3ffc14d393a7 best selector matching improved Claus Gittinger <cg@exept.de> parents: 1197 diff changeset	879	the message is assumed to be sent to instances of that class (i.e. offer
3ffc14d393a7 best selector matching improved Claus Gittinger <cg@exept.de> parents: 1197 diff changeset	880	corrections from that hierarchy only)"
3ffc14d393a7 best selector matching improved Claus Gittinger <cg@exept.de> parents: 1197 diff changeset	881
2109 593859993fb6 return more bestSelectors Claus Gittinger <cg@exept.de> parents: 2108 diff changeset	882	^ self findBest:30 selectorsFor:aString in:aClassOrNil
2033 efeb27ab06fe * empty log message * Claus Gittinger <cg@exept.de> parents: 2013 diff changeset	883
efeb27ab06fe * empty log message * Claus Gittinger <cg@exept.de> parents: 2013 diff changeset	884	"Modified: / 15-05-2007 / 12:39:28 / cg"
1187 902d406b9100 * empty log message * Claus Gittinger <cg@exept.de> parents: 1186 diff changeset	885	! !
902d406b9100 * empty log message * Claus Gittinger <cg@exept.de> parents: 1186 diff changeset	886
358 78b0d8954c49 removed possible conflict between #classVarNames here and in Class. Claus Gittinger <cg@exept.de> parents: 354 diff changeset	887	!Parser class methodsFor:'evaluating expressions'!
0 7ad01559b262 Initial revision claus parents: diff changeset	888
19 84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	889	evaluate:aStringOrStream
71 2aac7fbb5be0 * empty log message * claus parents: 66 diff changeset	890	"return the result of evaluating an expression in aStringOrStream.
2aac7fbb5be0 * empty log message * claus parents: 66 diff changeset	891	No doit-entry is added to the changeLog."
0 7ad01559b262 Initial revision claus parents: diff changeset	892
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	893	^ self
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	894	evaluate:aStringOrStream
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	895	in:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	896	receiver:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	897	notifying:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	898	logged:false
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	899	ifFail:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	900	compile:true
19 84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	901
84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	902	"
84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	903	Compiler evaluate:'1 + 2'
84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	904	Compiler evaluate:'''hello world'' asSortedCollection displayString printNL'
84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	905	Compiler evaluate:'''hello world'' asSortedCollection printNL'
84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	906	"
0 7ad01559b262 Initial revision claus parents: diff changeset	907	!
7ad01559b262 Initial revision claus parents: diff changeset	908
71 2aac7fbb5be0 * empty log message * claus parents: 66 diff changeset	909	evaluate:aStringOrStream compile:compile
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	910	"return the result of evaluating aString,
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	911	The compile argument specifies if the string should be compiled down to
71 2aac7fbb5be0 * empty log message * claus parents: 66 diff changeset	912	bytecode or instead be interpreted from the parseTree.
2aac7fbb5be0 * empty log message * claus parents: 66 diff changeset	913	The first should be done for doIts etc, where a readable walkback is
2aac7fbb5be0 * empty log message * claus parents: 66 diff changeset	914	required.
2aac7fbb5be0 * empty log message * claus parents: 66 diff changeset	915	The latter is better done for constants, styleSheet and resource
2aac7fbb5be0 * empty log message * claus parents: 66 diff changeset	916	reading and simple sends, where the overhead of compilation is bigger
2aac7fbb5be0 * empty log message * claus parents: 66 diff changeset	917	than the interpretation overhead."
2aac7fbb5be0 * empty log message * claus parents: 66 diff changeset	918
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	919	^ self
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	920	evaluate:aStringOrStream
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	921	in:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	922	receiver:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	923	notifying:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	924	logged:false
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	925	ifFail:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	926	compile:compile
71 2aac7fbb5be0 * empty log message * claus parents: 66 diff changeset	927	!
2aac7fbb5be0 * empty log message * claus parents: 66 diff changeset	928
20 f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	929	evaluate:aStringOrStream ifFail:failBlock
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	930	"return the result of evaluating an expression in aStringOrStream.
71 2aac7fbb5be0 * empty log message * claus parents: 66 diff changeset	931	In case of any syntax errors, return the value of failBlock.
2aac7fbb5be0 * empty log message * claus parents: 66 diff changeset	932	No doit-entry is added to the changeLog."
20 f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	933
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	934	^ self
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	935	evaluate:aStringOrStream
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	936	in:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	937	receiver:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	938	notifying:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	939	logged:false
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	940	ifFail:failBlock
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	941	compile:true
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	942	"
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	943	Compiler evaluate:'1 +' ifFail:['oops']
20 f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	944	"
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	945	!
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	946
71 2aac7fbb5be0 * empty log message * claus parents: 66 diff changeset	947	evaluate:aStringOrStream in:aContext receiver:anObject notifying:requestor ifFail:failBlock
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	948	"return the result of evaluating aStringOrStream, errors are reported to requestor.
71 2aac7fbb5be0 * empty log message * claus parents: 66 diff changeset	949	Allow access to anObject as self and to its instVars (used in the inspector).
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	950	No doIt entry is added to the change-file.
71 2aac7fbb5be0 * empty log message * claus parents: 66 diff changeset	951	If the failBlock argument is non-nil, it is evaluated if an error occurs."
2aac7fbb5be0 * empty log message * claus parents: 66 diff changeset	952
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	953	^ self
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	954	evaluate:aStringOrStream
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	955	in:aContext
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	956	receiver:anObject
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	957	notifying:requestor
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	958	logged:false
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	959	ifFail:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	960	compile:true
640 c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame) Claus Gittinger <cg@exept.de> parents: 637 diff changeset	961
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame) Claus Gittinger <cg@exept.de> parents: 637 diff changeset	962	"Modified: / 17.1.1998 / 02:54:07 / cg"
20 f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	963	!
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	964
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	965	evaluate:aStringOrStream in:aContext receiver:anObject notifying:requestor logged:logged ifFail:failBlock
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	966	"return the result of evaluating aStringOrStream, errors are reported to requestor.
20 f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	967	Allow access to anObject as self and to its instVars (used in the inspector).
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	968	If logged is true, an entry is added to the change-file. If the failBlock argument
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	969	is non-nil, it is evaluated if an error occurs."
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	970
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	971	^ self
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	972	evaluate:aStringOrStream
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	973	in:aContext
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	974	receiver:anObject
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	975	notifying:requestor
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	976	logged:logged
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	977	ifFail:failBlock
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	978	compile:true
71 2aac7fbb5be0 * empty log message * claus parents: 66 diff changeset	979	!
2aac7fbb5be0 * empty log message * claus parents: 66 diff changeset	980
2aac7fbb5be0 * empty log message * claus parents: 66 diff changeset	981	evaluate:aStringOrStream in:aContext receiver:anObject notifying:requestor logged:logged ifFail:failBlock compile:compile
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	982	"return the result of evaluating aStringOrStream, errors are reported to requestor.
71 2aac7fbb5be0 * empty log message * claus parents: 66 diff changeset	983	Allow access to anObject as self and to its instVars (used in the inspector).
2aac7fbb5be0 * empty log message * claus parents: 66 diff changeset	984	If logged is true, an entry is added to the change-file. If the failBlock argument
2aac7fbb5be0 * empty log message * claus parents: 66 diff changeset	985	is non-nil, it is evaluated if an error occurs.
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	986	Finally, compile specifies if the string should be compiled down to
71 2aac7fbb5be0 * empty log message * claus parents: 66 diff changeset	987	bytecode or instead be interpreted from the parseTree.
2aac7fbb5be0 * empty log message * claus parents: 66 diff changeset	988	The first should be done for doIts etc, where a readable walkback is
2aac7fbb5be0 * empty log message * claus parents: 66 diff changeset	989	required.
2aac7fbb5be0 * empty log message * claus parents: 66 diff changeset	990	The latter is better done for constants, styleSheet and resource
2aac7fbb5be0 * empty log message * claus parents: 66 diff changeset	991	reading and simple sends, where the overhead of compilation is bigger
2aac7fbb5be0 * empty log message * claus parents: 66 diff changeset	992	than the interpretation overhead."
2aac7fbb5be0 * empty log message * claus parents: 66 diff changeset	993
1363 2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	994	^ self new
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	995	allowUndeclaredVariables:false;
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	996
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	997	evaluate:aStringOrStream
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	998	in:aContext
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	999	receiver:anObject
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1000	notifying:requestor
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1001	logged:logged
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1002	ifFail:failBlock
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1003	compile:compile
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1004	checkForEndOfInput:(aStringOrStream isStream not)
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1005	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1006
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1007	evaluate:aStringOrStream logged:logged
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1008	"return the result of evaluating an expression in aStringOrStream.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1009	The argument log controls if an entry is added to the changeLog."
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1010
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1011	^ self
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1012	evaluate:aStringOrStream
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1013	in:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1014	receiver:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1015	notifying:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1016	logged:logged
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1017	ifFail:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1018	compile:true
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1019	"
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1020	Compiler evaluate:'''some string''' logged:false
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1021	Compiler evaluate:'''some string''' logged:true
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1022	"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1023	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1024
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1025	evaluate:aStringOrStream notifying:requestor
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1026	"return the result of evaluating aString,
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1027	errors are reported to requestor"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1028
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1029	^ self
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1030	evaluate:aStringOrStream
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1031	in:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1032	receiver:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1033	notifying:requestor
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1034	logged:false
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1035	ifFail:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1036	compile:true
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1037	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1038
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1039	evaluate:aStringOrStream notifying:requestor compile:compile
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1040	"return the result of evaluating aString,
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1041	errors are reported to requestor.
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1042	The compile argument specifies if the string should be compiled down to
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1043	bytecode or instead be interpreted from the parseTree.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1044	The first should be done for doIts etc, where a readable walkback is
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1045	required.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1046	The latter is better done for constants, styleSheet and resource
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1047	reading and simple sends, where the overhead of compilation is bigger
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1048	than the interpretation overhead."
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1049
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1050	^ self
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1051	evaluate:aStringOrStream
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1052	in:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1053	receiver:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1054	notifying:requestor
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1055	logged:false
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1056	ifFail:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1057	compile:compile
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1058	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1059
1025 5b3022ecb269 added #evaluate:notifying:logged: (for RB) Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	1060	evaluate:aStringOrStream notifying:requestor logged:logged
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1061	"return the result of evaluating aString,
1025 5b3022ecb269 added #evaluate:notifying:logged: (for RB) Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	1062	errors are reported to requestor"
5b3022ecb269 added #evaluate:notifying:logged: (for RB) Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	1063
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1064	^ self
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1065	evaluate:aStringOrStream
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1066	in:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1067	receiver:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1068	notifying:requestor
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1069	logged:logged
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1070	ifFail:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1071	compile:true
1025 5b3022ecb269 added #evaluate:notifying:logged: (for RB) Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	1072	!
5b3022ecb269 added #evaluate:notifying:logged: (for RB) Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	1073
572 6608880c73bc added #evaluate:receiver: Claus Gittinger <cg@exept.de> parents: 569 diff changeset	1074	evaluate:aStringOrStream receiver:anObject
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1075	"return the result of evaluating aString,
572 6608880c73bc added #evaluate:receiver: Claus Gittinger <cg@exept.de> parents: 569 diff changeset	1076	errors are reported to requestor. Allow access to
6608880c73bc added #evaluate:receiver: Claus Gittinger <cg@exept.de> parents: 569 diff changeset	1077	anObject as self and to its instVars "
6608880c73bc added #evaluate:receiver: Claus Gittinger <cg@exept.de> parents: 569 diff changeset	1078
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1079	^ self
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1080	evaluate:aStringOrStream
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1081	in:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1082	receiver:anObject
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1083	notifying:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1084	logged:false
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1085	ifFail:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1086	compile:true
572 6608880c73bc added #evaluate:receiver: Claus Gittinger <cg@exept.de> parents: 569 diff changeset	1087
6608880c73bc added #evaluate:receiver: Claus Gittinger <cg@exept.de> parents: 569 diff changeset	1088	"
6608880c73bc added #evaluate:receiver: Claus Gittinger <cg@exept.de> parents: 569 diff changeset	1089	Compiler evaluate:'self x' receiver:(1 @ 2)
6608880c73bc added #evaluate:receiver: Claus Gittinger <cg@exept.de> parents: 569 diff changeset	1090	"
6608880c73bc added #evaluate:receiver: Claus Gittinger <cg@exept.de> parents: 569 diff changeset	1091
6608880c73bc added #evaluate:receiver: Claus Gittinger <cg@exept.de> parents: 569 diff changeset	1092	"Created: 1.7.1997 / 19:02:24 / cg"
6608880c73bc added #evaluate:receiver: Claus Gittinger <cg@exept.de> parents: 569 diff changeset	1093	"Modified: 1.7.1997 / 19:02:33 / cg"
6608880c73bc added #evaluate:receiver: Claus Gittinger <cg@exept.de> parents: 569 diff changeset	1094	!
6608880c73bc added #evaluate:receiver: Claus Gittinger <cg@exept.de> parents: 569 diff changeset	1095
919 212f477f8d7f checkin from browser Claus Gittinger <cg@exept.de> parents: 918 diff changeset	1096	evaluate:aStringOrStream receiver:someOne logged:logged
212f477f8d7f checkin from browser Claus Gittinger <cg@exept.de> parents: 918 diff changeset	1097	"return the result of evaluating an expression in aStringOrStream.
212f477f8d7f checkin from browser Claus Gittinger <cg@exept.de> parents: 918 diff changeset	1098	The argument log controls if an entry is added to the changeLog."
212f477f8d7f checkin from browser Claus Gittinger <cg@exept.de> parents: 918 diff changeset	1099
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1100	^ self
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1101	evaluate:aStringOrStream
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1102	in:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1103	receiver:someOne
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1104	notifying:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1105	logged:logged
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1106	ifFail:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1107	compile:true
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1108	"
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1109	Compiler evaluate:'''some string''' logged:false
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1110	Compiler evaluate:'''some string''' logged:true
919 212f477f8d7f checkin from browser Claus Gittinger <cg@exept.de> parents: 918 diff changeset	1111	Compiler evaluate:'self class' receiver:nil logged:false
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1112	Compiler evaluate:'self class' receiver:1 logged:false
919 212f477f8d7f checkin from browser Claus Gittinger <cg@exept.de> parents: 918 diff changeset	1113	"
212f477f8d7f checkin from browser Claus Gittinger <cg@exept.de> parents: 918 diff changeset	1114	!
212f477f8d7f checkin from browser Claus Gittinger <cg@exept.de> parents: 918 diff changeset	1115
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1116	evaluate:aStringOrStream receiver:anObject notifying:requestor
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1117	"return the result of evaluating aString,
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1118	errors are reported to requestor. Allow access to
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1119	anObject as self and to its instVars (used in the inspector)"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1120
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1121	^ self
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1122	evaluate:aStringOrStream
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1123	in:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1124	receiver:anObject
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1125	notifying:requestor
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1126	logged:false
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1127	ifFail:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1128	compile:true
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1129
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1130	"
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1131	Compiler evaluate:'self x' receiver:(1 @ 2) notifying:nil
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1132	"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1133	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1134
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1135	evaluate:aStringOrStream receiver:anObject notifying:requestor compile:compile
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1136	"return the result of evaluating aString,
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1137	errors are reported to requestor. Allow access to
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1138	anObject as self and to its instVars (used in the inspector).
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1139	The compile argument specifies if the string should be compiled down to
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1140	bytecode or instead be interpreted from the parseTree.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1141	The first should be done for doIts etc, where a readable walkback is
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1142	required.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1143	The latter is better done for constants, styleSheet and resource
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1144	reading and simple sends, where the overhead of compilation is bigger
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1145	than the interpretation overhead."
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1146
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1147	^ self
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1148	evaluate:aStringOrStream
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1149	in:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1150	receiver:anObject
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1151	notifying:requestor
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1152	logged:false
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1153	ifFail:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1154	compile:compile
1548 a8e0beb870b6 +evaluateFrom: Claus Gittinger <cg@exept.de> parents: 1547 diff changeset	1155	!
a8e0beb870b6 +evaluateFrom: Claus Gittinger <cg@exept.de> parents: 1547 diff changeset	1156
a8e0beb870b6 +evaluateFrom: Claus Gittinger <cg@exept.de> parents: 1547 diff changeset	1157	evaluateFrom:aStringOrStream ifFail:failBlock
a8e0beb870b6 +evaluateFrom: Claus Gittinger <cg@exept.de> parents: 1547 diff changeset	1158	"return the result of evaluating an expression from aStringOrStream.
a8e0beb870b6 +evaluateFrom: Claus Gittinger <cg@exept.de> parents: 1547 diff changeset	1159	In case of any syntax errors, return the value of failBlock.
a8e0beb870b6 +evaluateFrom: Claus Gittinger <cg@exept.de> parents: 1547 diff changeset	1160	No doit-entry is added to the changeLog."
a8e0beb870b6 +evaluateFrom: Claus Gittinger <cg@exept.de> parents: 1547 diff changeset	1161
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1162	^ self
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1163	evaluateFrom:aStringOrStream
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1164	in:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1165	receiver:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1166	notifying:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1167	logged:false
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1168	ifFail:failBlock
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1169	compile:true
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1170	"
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1171	Compiler evaluate:'1 + 2' ifFail:['oops']
1548 a8e0beb870b6 +evaluateFrom: Claus Gittinger <cg@exept.de> parents: 1547 diff changeset	1172	"
a8e0beb870b6 +evaluateFrom: Claus Gittinger <cg@exept.de> parents: 1547 diff changeset	1173	!
a8e0beb870b6 +evaluateFrom: Claus Gittinger <cg@exept.de> parents: 1547 diff changeset	1174
a8e0beb870b6 +evaluateFrom: Claus Gittinger <cg@exept.de> parents: 1547 diff changeset	1175	evaluateFrom:aStringOrStream in:aContext receiver:anObject notifying:requestor logged:logged ifFail:failBlock compile:compile
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1176	"return the result of evaluating the next expression from aStringOrStream, errors are reported to requestor.
1548 a8e0beb870b6 +evaluateFrom: Claus Gittinger <cg@exept.de> parents: 1547 diff changeset	1177	Allow access to anObject as self and to its instVars (used in the inspector).
a8e0beb870b6 +evaluateFrom: Claus Gittinger <cg@exept.de> parents: 1547 diff changeset	1178	If logged is true, an entry is added to the change-file. If the failBlock argument
a8e0beb870b6 +evaluateFrom: Claus Gittinger <cg@exept.de> parents: 1547 diff changeset	1179	is non-nil, it is evaluated if an error occurs.
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1180	Finally, compile specifies if the string should be compiled down to
1548 a8e0beb870b6 +evaluateFrom: Claus Gittinger <cg@exept.de> parents: 1547 diff changeset	1181	bytecode or instead be interpreted from the parseTree.
a8e0beb870b6 +evaluateFrom: Claus Gittinger <cg@exept.de> parents: 1547 diff changeset	1182	The first should be done for doIts etc, where a readable walkback is
a8e0beb870b6 +evaluateFrom: Claus Gittinger <cg@exept.de> parents: 1547 diff changeset	1183	required.
a8e0beb870b6 +evaluateFrom: Claus Gittinger <cg@exept.de> parents: 1547 diff changeset	1184	The latter is better done for constants, styleSheet and resource
a8e0beb870b6 +evaluateFrom: Claus Gittinger <cg@exept.de> parents: 1547 diff changeset	1185	reading and simple sends, where the overhead of compilation is bigger
a8e0beb870b6 +evaluateFrom: Claus Gittinger <cg@exept.de> parents: 1547 diff changeset	1186	than the interpretation overhead."
a8e0beb870b6 +evaluateFrom: Claus Gittinger <cg@exept.de> parents: 1547 diff changeset	1187
a8e0beb870b6 +evaluateFrom: Claus Gittinger <cg@exept.de> parents: 1547 diff changeset	1188	^ self new
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1189	evaluate:aStringOrStream
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1190	in:aContext
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1191	receiver:anObject
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1192	notifying:requestor
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1193	logged:logged
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1194	ifFail:failBlock
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1195	compile:compile
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1196	checkForEndOfInput:false
0 7ad01559b262 Initial revision claus parents: diff changeset	1197	! !
7ad01559b262 Initial revision claus parents: diff changeset	1198
640 c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame) Claus Gittinger <cg@exept.de> parents: 637 diff changeset	1199	!Parser class methodsFor:'general helpers'!
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame) Claus Gittinger <cg@exept.de> parents: 637 diff changeset	1200
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame) Claus Gittinger <cg@exept.de> parents: 637 diff changeset	1201	argAndVarNamesForContext:aContext
1546 cdf59c7f2963 MArk method as obsolete Stefan Vogel <sv@exept.de> parents: 1545 diff changeset	1202	<resource:#obsolete>
1446 ac887ee4881a ** changed access to blockContexts source, args and vars -- please watch out penk parents: 1445 diff changeset	1203	self obsoleteMethodWarning.
ac887ee4881a ** changed access to blockContexts source, args and vars -- please watch out penk parents: 1445 diff changeset	1204	^ aContext argAndVarNames.
2409 c9b1c939d7e8 added: #methodCommentFromSource: Claus Gittinger <cg@exept.de> parents: 2406 diff changeset	1205	!
c9b1c939d7e8 added: #methodCommentFromSource: Claus Gittinger <cg@exept.de> parents: 2406 diff changeset	1206
c9b1c939d7e8 added: #methodCommentFromSource: Claus Gittinger <cg@exept.de> parents: 2406 diff changeset	1207	methodCommentFromSource:aString
c9b1c939d7e8 added: #methodCommentFromSource: Claus Gittinger <cg@exept.de> parents: 2406 diff changeset	1208	"return the methods comment.
c9b1c939d7e8 added: #methodCommentFromSource: Claus Gittinger <cg@exept.de> parents: 2406 diff changeset	1209	This is done by searching for and returning the first comment
c9b1c939d7e8 added: #methodCommentFromSource: Claus Gittinger <cg@exept.de> parents: 2406 diff changeset	1210	from the methods source (excluding any double-quotes).
c9b1c939d7e8 added: #methodCommentFromSource: Claus Gittinger <cg@exept.de> parents: 2406 diff changeset	1211	Returns nil if there is no comment."
c9b1c939d7e8 added: #methodCommentFromSource: Claus Gittinger <cg@exept.de> parents: 2406 diff changeset	1212
c9b1c939d7e8 added: #methodCommentFromSource: Claus Gittinger <cg@exept.de> parents: 2406 diff changeset	1213	\|comment comments parser\|
c9b1c939d7e8 added: #methodCommentFromSource: Claus Gittinger <cg@exept.de> parents: 2406 diff changeset	1214
c9b1c939d7e8 added: #methodCommentFromSource: Claus Gittinger <cg@exept.de> parents: 2406 diff changeset	1215	parser := self for:aString in:nil.
c9b1c939d7e8 added: #methodCommentFromSource: Claus Gittinger <cg@exept.de> parents: 2406 diff changeset	1216	parser ignoreErrors:true; ignoreWarnings:true; saveComments:true.
c9b1c939d7e8 added: #methodCommentFromSource: Claus Gittinger <cg@exept.de> parents: 2406 diff changeset	1217	parser parseMethodSpec.
c9b1c939d7e8 added: #methodCommentFromSource: Claus Gittinger <cg@exept.de> parents: 2406 diff changeset	1218
c9b1c939d7e8 added: #methodCommentFromSource: Claus Gittinger <cg@exept.de> parents: 2406 diff changeset	1219	comments := parser comments.
c9b1c939d7e8 added: #methodCommentFromSource: Claus Gittinger <cg@exept.de> parents: 2406 diff changeset	1220	comments size ~~ 0 ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1221	comment := comments first asString.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1222	(comment withoutSpaces endsWith:'}') ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1223	"if first comment is a pragma, take next comment"
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1224	comment := comments at:2 ifAbsent:nil.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1225	comment notNil ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1226	comment := comment string.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1227	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1228	].
2409 c9b1c939d7e8 added: #methodCommentFromSource: Claus Gittinger <cg@exept.de> parents: 2406 diff changeset	1229	].
c9b1c939d7e8 added: #methodCommentFromSource: Claus Gittinger <cg@exept.de> parents: 2406 diff changeset	1230	^ comment.
c9b1c939d7e8 added: #methodCommentFromSource: Claus Gittinger <cg@exept.de> parents: 2406 diff changeset	1231
c9b1c939d7e8 added: #methodCommentFromSource: Claus Gittinger <cg@exept.de> parents: 2406 diff changeset	1232	"
c9b1c939d7e8 added: #methodCommentFromSource: Claus Gittinger <cg@exept.de> parents: 2406 diff changeset	1233	(Method compiledMethodAt:#comment) comment
c9b1c939d7e8 added: #methodCommentFromSource: Claus Gittinger <cg@exept.de> parents: 2406 diff changeset	1234	(Object class compiledMethodAt:#infoPrinting:) comment
c9b1c939d7e8 added: #methodCommentFromSource: Claus Gittinger <cg@exept.de> parents: 2406 diff changeset	1235	"
c9b1c939d7e8 added: #methodCommentFromSource: Claus Gittinger <cg@exept.de> parents: 2406 diff changeset	1236
c9b1c939d7e8 added: #methodCommentFromSource: Claus Gittinger <cg@exept.de> parents: 2406 diff changeset	1237	"Created: / 17-07-2010 / 14:21:29 / cg"
640 c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame) Claus Gittinger <cg@exept.de> parents: 637 diff changeset	1238	! !
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame) Claus Gittinger <cg@exept.de> parents: 637 diff changeset	1239
358 78b0d8954c49 removed possible conflict between #classVarNames here and in Class. Claus Gittinger <cg@exept.de> parents: 354 diff changeset	1240	!Parser class methodsFor:'parsing'!
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1241
480 e4ac7e62ca9a better block-var name detection in debugger Claus Gittinger <cg@exept.de> parents: 473 diff changeset	1242	blockAtLine:line in:aMethod orSource:aString numArgs:nA numVars:nV
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1243	"given a lineNr in some method,
391 c556973a4b47 added method to extract a block, given a lineNumber within the Claus Gittinger <cg@exept.de> parents: 390 diff changeset	1244	return the containing BlockNode or nil.
480 e4ac7e62ca9a better block-var name detection in debugger Claus Gittinger <cg@exept.de> parents: 473 diff changeset	1245	The given lineNr must be within a block for this to work.
e4ac7e62ca9a better block-var name detection in debugger Claus Gittinger <cg@exept.de> parents: 473 diff changeset	1246	This is used by the debugger, to guess reverse from a lineNumber,
e4ac7e62ca9a better block-var name detection in debugger Claus Gittinger <cg@exept.de> parents: 473 diff changeset	1247	to the corresponding block, in order to find out the blocks
e4ac7e62ca9a better block-var name detection in debugger Claus Gittinger <cg@exept.de> parents: 473 diff changeset	1248	variable names (mhmh - all of this wasnt't needed, if blocks stored
e4ac7e62ca9a better block-var name detection in debugger Claus Gittinger <cg@exept.de> parents: 473 diff changeset	1249	their characterPosition internally)."
391 c556973a4b47 added method to extract a block, given a lineNumber within the Claus Gittinger <cg@exept.de> parents: 390 diff changeset	1250
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1251	\|compiler tree mSource who mClass blocks
397 118267bf78e5 checkin from browser Claus Gittinger <cg@exept.de> parents: 391 diff changeset	1252	maxSoFar innerBlock m\|
118267bf78e5 checkin from browser Claus Gittinger <cg@exept.de> parents: 391 diff changeset	1253
481 187a88a9695d care for maxLineNo when looking for a block-by-lineNo Claus Gittinger <cg@exept.de> parents: 480 diff changeset	1254	(line isNil or:[line == self maxLineNumber]) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1255	^ nil
457 ad25339043ef care for nil-lineNumber when looking for a block Claus Gittinger <cg@exept.de> parents: 455 diff changeset	1256	].
ad25339043ef care for nil-lineNumber when looking for a block Claus Gittinger <cg@exept.de> parents: 455 diff changeset	1257
480 e4ac7e62ca9a better block-var name detection in debugger Claus Gittinger <cg@exept.de> parents: 473 diff changeset	1258	aMethod notNil ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1259	m := aMethod.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1260	who := m who.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1261	who isNil ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1262	m isWrapped ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1263	m := m wrapper.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1264	m notNil ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1265	who := m who.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1266	]
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1267	]
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1268	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1269	who notNil ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1270	mClass := who methodClass.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1271	mClass isNil ifTrue:[ ^ nil].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1272	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1273	m isNil ifTrue:[^ nil].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1274	mSource := m source.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1275	mSource isNil ifTrue:[^ nil].
480 e4ac7e62ca9a better block-var name detection in debugger Claus Gittinger <cg@exept.de> parents: 473 diff changeset	1276	] ifFalse:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1277	aString notNil ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1278	mSource := aString.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1279	mClass := UndefinedObject
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1280	] ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1281	^ nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1282	]
397 118267bf78e5 checkin from browser Claus Gittinger <cg@exept.de> parents: 391 diff changeset	1283	].
118267bf78e5 checkin from browser Claus Gittinger <cg@exept.de> parents: 391 diff changeset	1284
391 c556973a4b47 added method to extract a block, given a lineNumber within the Claus Gittinger <cg@exept.de> parents: 390 diff changeset	1285	"create a compiler, let it parse and create the parsetree"
c556973a4b47 added method to extract a block, given a lineNumber within the Claus Gittinger <cg@exept.de> parents: 390 diff changeset	1286
c556973a4b47 added method to extract a block, given a lineNumber within the Claus Gittinger <cg@exept.de> parents: 390 diff changeset	1287	compiler := self for:(ReadStream on:mSource) in:mClass.
c556973a4b47 added method to extract a block, given a lineNumber within the Claus Gittinger <cg@exept.de> parents: 390 diff changeset	1288	compiler parseForCode.
c556973a4b47 added method to extract a block, given a lineNumber within the Claus Gittinger <cg@exept.de> parents: 390 diff changeset	1289	compiler notifying:nil.
1365 19b74038d133 ignoreErrors / ignoreWarnings are not getters. penk parents: 1364 diff changeset	1290	compiler ignoreWarnings:true.
19b74038d133 ignoreErrors / ignoreWarnings are not getters. penk parents: 1364 diff changeset	1291	compiler ignoreErrors:true.
391 c556973a4b47 added method to extract a block, given a lineNumber within the Claus Gittinger <cg@exept.de> parents: 390 diff changeset	1292	compiler lineNumberInfo:#full.
c556973a4b47 added method to extract a block, given a lineNumber within the Claus Gittinger <cg@exept.de> parents: 390 diff changeset	1293
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1294	Notification
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1295	handle:
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1296	[:ex \|
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1297	ex proceed
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1298	]
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1299	do:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1300	aMethod notNil ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1301	(compiler parseMethodSpec == #Error) ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1302	^ nil.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1303	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1304
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1305	who notNil ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1306	compiler selector ~~ (who methodSelector) ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1307	^ nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1308	]
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1309	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1310	] ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1311	compiler nextToken.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1312	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1313
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1314	tree := compiler parseMethodBody.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1315	].
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1316
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1317	(compiler errorFlag
815 3be479989a99 checkin from browser Claus Gittinger <cg@exept.de> parents: 813 diff changeset	1318	or:[tree == #Error
3be479989a99 checkin from browser Claus Gittinger <cg@exept.de> parents: 813 diff changeset	1319	or:[tree isNil]]) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1320	^ nil
391 c556973a4b47 added method to extract a block, given a lineNumber within the Claus Gittinger <cg@exept.de> parents: 390 diff changeset	1321	].
c556973a4b47 added method to extract a block, given a lineNumber within the Claus Gittinger <cg@exept.de> parents: 390 diff changeset	1322
c556973a4b47 added method to extract a block, given a lineNumber within the Claus Gittinger <cg@exept.de> parents: 390 diff changeset	1323	blocks := OrderedCollection new.
c556973a4b47 added method to extract a block, given a lineNumber within the Claus Gittinger <cg@exept.de> parents: 390 diff changeset	1324	tree collectBlocksInto:blocks.
c556973a4b47 added method to extract a block, given a lineNumber within the Claus Gittinger <cg@exept.de> parents: 390 diff changeset	1325
c556973a4b47 added method to extract a block, given a lineNumber within the Claus Gittinger <cg@exept.de> parents: 390 diff changeset	1326	blocks := blocks select:[:aBlock \|
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1327	line between: aBlock lineNumber and:aBlock endLineNumber
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1328
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1329	].
391 c556973a4b47 added method to extract a block, given a lineNumber within the Claus Gittinger <cg@exept.de> parents: 390 diff changeset	1330	blocks size == 1 ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1331	^ blocks at:1
391 c556973a4b47 added method to extract a block, given a lineNumber within the Claus Gittinger <cg@exept.de> parents: 390 diff changeset	1332	].
c556973a4b47 added method to extract a block, given a lineNumber within the Claus Gittinger <cg@exept.de> parents: 390 diff changeset	1333
c556973a4b47 added method to extract a block, given a lineNumber within the Claus Gittinger <cg@exept.de> parents: 390 diff changeset	1334	nA notNil ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1335	blocks := blocks select:[:aBlock \|
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1336	aBlock numArgs == nA
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1337	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1338	blocks size == 1 ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1339	^ blocks at:1
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1340	].
391 c556973a4b47 added method to extract a block, given a lineNumber within the Claus Gittinger <cg@exept.de> parents: 390 diff changeset	1341	].
c556973a4b47 added method to extract a block, given a lineNumber within the Claus Gittinger <cg@exept.de> parents: 390 diff changeset	1342	nV notNil ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1343	blocks := blocks select:[:aBlock \|
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1344	aBlock numVars == nV
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1345	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1346	blocks size == 1 ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1347	^ blocks at:1
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1348	].
391 c556973a4b47 added method to extract a block, given a lineNumber within the Claus Gittinger <cg@exept.de> parents: 390 diff changeset	1349	].
c556973a4b47 added method to extract a block, given a lineNumber within the Claus Gittinger <cg@exept.de> parents: 390 diff changeset	1350
c556973a4b47 added method to extract a block, given a lineNumber within the Claus Gittinger <cg@exept.de> parents: 390 diff changeset	1351	"/ look for the inner one
c556973a4b47 added method to extract a block, given a lineNumber within the Claus Gittinger <cg@exept.de> parents: 390 diff changeset	1352
c556973a4b47 added method to extract a block, given a lineNumber within the Claus Gittinger <cg@exept.de> parents: 390 diff changeset	1353	maxSoFar := 0.
c556973a4b47 added method to extract a block, given a lineNumber within the Claus Gittinger <cg@exept.de> parents: 390 diff changeset	1354	blocks do:[:aBlock \|
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1355	aBlock lineNumber > maxSoFar ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1356	innerBlock := aBlock.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1357	maxSoFar := aBlock lineNumber
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1358	]
391 c556973a4b47 added method to extract a block, given a lineNumber within the Claus Gittinger <cg@exept.de> parents: 390 diff changeset	1359	].
c556973a4b47 added method to extract a block, given a lineNumber within the Claus Gittinger <cg@exept.de> parents: 390 diff changeset	1360	^ innerBlock.
c556973a4b47 added method to extract a block, given a lineNumber within the Claus Gittinger <cg@exept.de> parents: 390 diff changeset	1361
480 e4ac7e62ca9a better block-var name detection in debugger Claus Gittinger <cg@exept.de> parents: 473 diff changeset	1362	"Created: 11.1.1997 / 23:29:13 / cg"
481 187a88a9695d care for maxLineNo when looking for a block-by-lineNo Claus Gittinger <cg@exept.de> parents: 480 diff changeset	1363	"Modified: 14.2.1997 / 16:51:25 / cg"
391 c556973a4b47 added method to extract a block, given a lineNumber within the Claus Gittinger <cg@exept.de> parents: 390 diff changeset	1364	!
c556973a4b47 added method to extract a block, given a lineNumber within the Claus Gittinger <cg@exept.de> parents: 390 diff changeset	1365
1365 19b74038d133 ignoreErrors / ignoreWarnings are not getters. penk parents: 1364 diff changeset	1366	checkMethod:aString in:aClass ignoreErrors:ignoreErrors ignoreWarnings:ignoreWarnings
629 6dbcd3bb1c9d checkin from browser Claus Gittinger <cg@exept.de> parents: 628 diff changeset	1367	"parse a method in a given class.
6dbcd3bb1c9d checkin from browser Claus Gittinger <cg@exept.de> parents: 628 diff changeset	1368	Return a parser (if ok), nil (empty) or #Error (syntax).
6dbcd3bb1c9d checkin from browser Claus Gittinger <cg@exept.de> parents: 628 diff changeset	1369	The parser can be queried for selector, receiver, args, locals,
6dbcd3bb1c9d checkin from browser Claus Gittinger <cg@exept.de> parents: 628 diff changeset	1370	used selectors, modified instvars, referenced classvars etc.
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1371	The noErrors and noWarnings arguments specify if error and warning
629 6dbcd3bb1c9d checkin from browser Claus Gittinger <cg@exept.de> parents: 628 diff changeset	1372	messages should be sent to the Transcript or suppressed."
6dbcd3bb1c9d checkin from browser Claus Gittinger <cg@exept.de> parents: 628 diff changeset	1373
6dbcd3bb1c9d checkin from browser Claus Gittinger <cg@exept.de> parents: 628 diff changeset	1374	\|parser tree\|
6dbcd3bb1c9d checkin from browser Claus Gittinger <cg@exept.de> parents: 628 diff changeset	1375
6dbcd3bb1c9d checkin from browser Claus Gittinger <cg@exept.de> parents: 628 diff changeset	1376	aString isNil ifTrue:[^ nil].
6dbcd3bb1c9d checkin from browser Claus Gittinger <cg@exept.de> parents: 628 diff changeset	1377	parser := self for:(ReadStream on:aString) in:aClass.
1365 19b74038d133 ignoreErrors / ignoreWarnings are not getters. penk parents: 1364 diff changeset	1378	parser ignoreErrors:ignoreErrors.
19b74038d133 ignoreErrors / ignoreWarnings are not getters. penk parents: 1364 diff changeset	1379	parser ignoreWarnings:ignoreWarnings.
629 6dbcd3bb1c9d checkin from browser Claus Gittinger <cg@exept.de> parents: 628 diff changeset	1380	tree := parser parseMethod.
6dbcd3bb1c9d checkin from browser Claus Gittinger <cg@exept.de> parents: 628 diff changeset	1381	(parser errorFlag or:[tree == #Error]) ifTrue:[^ nil].
6dbcd3bb1c9d checkin from browser Claus Gittinger <cg@exept.de> parents: 628 diff changeset	1382
6dbcd3bb1c9d checkin from browser Claus Gittinger <cg@exept.de> parents: 628 diff changeset	1383	ReadBeforeWrittenTester searchForReadBeforeWrittenIn:tree
6dbcd3bb1c9d checkin from browser Claus Gittinger <cg@exept.de> parents: 628 diff changeset	1384
6dbcd3bb1c9d checkin from browser Claus Gittinger <cg@exept.de> parents: 628 diff changeset	1385	"
6dbcd3bb1c9d checkin from browser Claus Gittinger <cg@exept.de> parents: 628 diff changeset	1386	self
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1387	checkMethod:'foo
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1388	\|local1 local2 local3\|
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1389
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1390	local1 := local2.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1391	^ local3
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1392	'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1393	in:UndefinedObject
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1394	ignoreErrors:true
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1395	ignoreWarnings:true
629 6dbcd3bb1c9d checkin from browser Claus Gittinger <cg@exept.de> parents: 628 diff changeset	1396	"
6dbcd3bb1c9d checkin from browser Claus Gittinger <cg@exept.de> parents: 628 diff changeset	1397
6dbcd3bb1c9d checkin from browser Claus Gittinger <cg@exept.de> parents: 628 diff changeset	1398	"Modified: / 30.10.1997 / 16:38:31 / cg"
6dbcd3bb1c9d checkin from browser Claus Gittinger <cg@exept.de> parents: 628 diff changeset	1399	!
6dbcd3bb1c9d checkin from browser Claus Gittinger <cg@exept.de> parents: 628 diff changeset	1400
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1401	parseExpression:aString
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1402	"parse aString as an expression;
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1403	Return the parseTree (if ok), nil (for an empty string
258 8de94646c647 checkin from browser Claus Gittinger <cg@exept.de> parents: 257 diff changeset	1404	or comment only) or #Error (syntactic error).
8de94646c647 checkin from browser Claus Gittinger <cg@exept.de> parents: 257 diff changeset	1405	Error and warning messages are suppressed."
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1406
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1407	^ self
3180 acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	1408	withSelf:nil
acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	1409	parseExpression:aString
acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	1410	onError:#Error
acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	1411	notifying:nil
acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	1412	ignoreErrors:true "silence on Transcript"
acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	1413	ignoreWarnings:true
acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	1414	inNameSpace:nil
acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	1415
acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	1416	"
acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	1417	Parser parseExpression:''
1096 d1d897aba4d5 added #parseExpression:onError: protocol. Claus Gittinger <cg@exept.de> parents: 1091 diff changeset	1418	Parser parseExpression:'self foo'
3180 acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	1419	Parser parseExpression:'^ self foo'
1096 d1d897aba4d5 added #parseExpression:onError: protocol. Claus Gittinger <cg@exept.de> parents: 1091 diff changeset	1420	Parser parseExpression:'self:123'
d1d897aba4d5 added #parseExpression:onError: protocol. Claus Gittinger <cg@exept.de> parents: 1091 diff changeset	1421	Parser parseExpression:'self:123' onError:nil
d1d897aba4d5 added #parseExpression:onError: protocol. Claus Gittinger <cg@exept.de> parents: 1091 diff changeset	1422	"
548 79948fed91a7 added entry to parse an expression in a specific nameSpace Claus Gittinger <cg@exept.de> parents: 547 diff changeset	1423	!
79948fed91a7 added entry to parse an expression in a specific nameSpace Claus Gittinger <cg@exept.de> parents: 547 diff changeset	1424
79948fed91a7 added entry to parse an expression in a specific nameSpace Claus Gittinger <cg@exept.de> parents: 547 diff changeset	1425	parseExpression:aString inNameSpace:aNameSpaceOrNil
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1426	"parse aString as an expression;
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1427	Return the parseTree (if ok), nil (for an empty string
548 79948fed91a7 added entry to parse an expression in a specific nameSpace Claus Gittinger <cg@exept.de> parents: 547 diff changeset	1428	or comment only) or #Error (syntactic error).
79948fed91a7 added entry to parse an expression in a specific nameSpace Claus Gittinger <cg@exept.de> parents: 547 diff changeset	1429	Error and warning messages are suppressed."
79948fed91a7 added entry to parse an expression in a specific nameSpace Claus Gittinger <cg@exept.de> parents: 547 diff changeset	1430
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1431	^ self
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1432	withSelf:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1433	parseExpression:aString
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1434	onError:#Error
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1435	notifying:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1436	ignoreErrors:true "silence on Transcript"
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1437	ignoreWarnings:true
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1438	inNameSpace:aNameSpaceOrNil
548 79948fed91a7 added entry to parse an expression in a specific nameSpace Claus Gittinger <cg@exept.de> parents: 547 diff changeset	1439
79948fed91a7 added entry to parse an expression in a specific nameSpace Claus Gittinger <cg@exept.de> parents: 547 diff changeset	1440	"Modified: 24.6.1997 / 16:44:00 / cg"
79948fed91a7 added entry to parse an expression in a specific nameSpace Claus Gittinger <cg@exept.de> parents: 547 diff changeset	1441	"Created: 24.6.1997 / 16:44:26 / cg"
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1442	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1443
1096 d1d897aba4d5 added #parseExpression:onError: protocol. Claus Gittinger <cg@exept.de> parents: 1091 diff changeset	1444	parseExpression:aString inNameSpace:aNameSpaceOrNil onError:errorValue
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1445	"parse aString as an expression;
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1446	Return the parseTree (if ok), nil (for an empty string
1096 d1d897aba4d5 added #parseExpression:onError: protocol. Claus Gittinger <cg@exept.de> parents: 1091 diff changeset	1447	or comment only) or errorValue (syntactic error).
d1d897aba4d5 added #parseExpression:onError: protocol. Claus Gittinger <cg@exept.de> parents: 1091 diff changeset	1448	Error and warning messages are suppressed."
d1d897aba4d5 added #parseExpression:onError: protocol. Claus Gittinger <cg@exept.de> parents: 1091 diff changeset	1449
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1450	^ self
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1451	withSelf:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1452	parseExpression:aString
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1453	onError:errorValue
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1454	notifying:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1455	ignoreErrors:true "silence on Transcript"
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1456	ignoreWarnings:true
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1457	inNameSpace:aNameSpaceOrNil
1096 d1d897aba4d5 added #parseExpression:onError: protocol. Claus Gittinger <cg@exept.de> parents: 1091 diff changeset	1458
d1d897aba4d5 added #parseExpression:onError: protocol. Claus Gittinger <cg@exept.de> parents: 1091 diff changeset	1459	"Modified: 24.6.1997 / 16:44:00 / cg"
d1d897aba4d5 added #parseExpression:onError: protocol. Claus Gittinger <cg@exept.de> parents: 1091 diff changeset	1460	"Created: 24.6.1997 / 16:44:26 / cg"
d1d897aba4d5 added #parseExpression:onError: protocol. Claus Gittinger <cg@exept.de> parents: 1091 diff changeset	1461	!
d1d897aba4d5 added #parseExpression:onError: protocol. Claus Gittinger <cg@exept.de> parents: 1091 diff changeset	1462
d1d897aba4d5 added #parseExpression:onError: protocol. Claus Gittinger <cg@exept.de> parents: 1091 diff changeset	1463	parseExpression:aString onError:errorValue
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1464	"parse aString as an expression;
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1465	Return the parseTree (if ok), nil (for an empty string
1096 d1d897aba4d5 added #parseExpression:onError: protocol. Claus Gittinger <cg@exept.de> parents: 1091 diff changeset	1466	or comment only) or errorValue (syntactic error).
d1d897aba4d5 added #parseExpression:onError: protocol. Claus Gittinger <cg@exept.de> parents: 1091 diff changeset	1467	Error and warning messages are suppressed."
d1d897aba4d5 added #parseExpression:onError: protocol. Claus Gittinger <cg@exept.de> parents: 1091 diff changeset	1468
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1469	^ self
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1470	withSelf:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1471	parseExpression:aString
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1472	onError:errorValue
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1473	notifying:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1474	ignoreErrors:true "silence on Transcript"
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1475	ignoreWarnings:true
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1476	inNameSpace:nil
1096 d1d897aba4d5 added #parseExpression:onError: protocol. Claus Gittinger <cg@exept.de> parents: 1091 diff changeset	1477
d1d897aba4d5 added #parseExpression:onError: protocol. Claus Gittinger <cg@exept.de> parents: 1091 diff changeset	1478	"Modified: 24.6.1997 / 16:44:00 / cg"
d1d897aba4d5 added #parseExpression:onError: protocol. Claus Gittinger <cg@exept.de> parents: 1091 diff changeset	1479	!
d1d897aba4d5 added #parseExpression:onError: protocol. Claus Gittinger <cg@exept.de> parents: 1091 diff changeset	1480
2971 0534f98e8e65 added: #parseLiteralArray: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2970 diff changeset	1481	parseLiteralArray: aStringOrStream
0534f98e8e65 added: #parseLiteralArray: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2970 diff changeset	1482	"Parser literal array in given String or Stream.
0534f98e8e65 added: #parseLiteralArray: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2970 diff changeset	1483	Returns that array"
0534f98e8e65 added: #parseLiteralArray: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2970 diff changeset	1484
0534f98e8e65 added: #parseLiteralArray: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2970 diff changeset	1485	^(self for: aStringOrStream) parseLiteralArray: aStringOrStream.
0534f98e8e65 added: #parseLiteralArray: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2970 diff changeset	1486
0534f98e8e65 added: #parseLiteralArray: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2970 diff changeset	1487	"Created: / 06-11-2012 / 12:51:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0534f98e8e65 added: #parseLiteralArray: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2970 diff changeset	1488	!
0534f98e8e65 added: #parseLiteralArray: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2970 diff changeset	1489
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1490	parseMethod:aString
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1491	"parse a method.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1492	Return a parser (if ok), nil (empty) or #Error (syntax).
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1493	The parser can be queried for selector, receiver, args, locals,
258 8de94646c647 checkin from browser Claus Gittinger <cg@exept.de> parents: 257 diff changeset	1494	used selectors etc.
8de94646c647 checkin from browser Claus Gittinger <cg@exept.de> parents: 257 diff changeset	1495	Error and warning messages are sent to the Transcript."
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1496
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1497	^ self parseMethod:aString in:nil
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1498
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1499	"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1500	\|p\|
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1501
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1502	p := Parser
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1503	parseMethod:'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1504	foo:arg1 bar:arg2 baz:arg3
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1505	\|l1 l2\|
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1506	l1 := 0.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1507	l2 := arg1.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1508	^ self'.
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1509
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1510	'nArgs: ' print. p numberOfMethodArgs printNL.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1511	'args: ' print. p methodArgs printNL.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1512	'sel: ' print. p selector printNL.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1513	'nLocal: ' print. p numberOfMethodVars printNL.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1514	'locals: ' print. p methodVars printNL.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1515	'tree: ' printNL. p tree printAllOn:Stdout. Stdout cr.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1516	"
258 8de94646c647 checkin from browser Claus Gittinger <cg@exept.de> parents: 257 diff changeset	1517
8de94646c647 checkin from browser Claus Gittinger <cg@exept.de> parents: 257 diff changeset	1518	"Modified: 24.4.1996 / 13:18:02 / cg"
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1519	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1520
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1521	parseMethod:aString in:aClass
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1522	"parse a method in a given class.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1523	Return a parser (if ok), nil (empty) or #Error (syntax).
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1524	The parser can be queried for selector, receiver, args, locals,
258 8de94646c647 checkin from browser Claus Gittinger <cg@exept.de> parents: 257 diff changeset	1525	used selectors, modified instvars, referenced classvars etc.
8de94646c647 checkin from browser Claus Gittinger <cg@exept.de> parents: 257 diff changeset	1526	Error and warning messages are sent to the Transcript."
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1527
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1528	^ self
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1529	parseMethod:aString
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1530	in:aClass
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1531	ignoreErrors:false
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1532	ignoreWarnings:false
257 435dcaed969f dont parse body (when interrested in args & locals only) Claus Gittinger <cg@exept.de> parents: 255 diff changeset	1533
258 8de94646c647 checkin from browser Claus Gittinger <cg@exept.de> parents: 257 diff changeset	1534	"Modified: 24.4.1996 / 13:18:34 / cg"
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1535	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1536
1365 19b74038d133 ignoreErrors / ignoreWarnings are not getters. penk parents: 1364 diff changeset	1537	parseMethod:aString in:aClass ignoreErrors:ignoreErrors ignoreWarnings:ignoreWarnings
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1538	"parse a method in a given class.
2003 d14be9cddcd0 * empty log message * Claus Gittinger <cg@exept.de> parents: 1991 diff changeset	1539	Return a parser (if ok) or #Error (syntax).
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1540	The parser can be queried for selector, receiver, args, locals,
258 8de94646c647 checkin from browser Claus Gittinger <cg@exept.de> parents: 257 diff changeset	1541	used selectors, modified instvars, referenced classvars etc.
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1542	The noErrors and noWarnings arguments specify if error and warning
258 8de94646c647 checkin from browser Claus Gittinger <cg@exept.de> parents: 257 diff changeset	1543	messages should be sent to the Transcript or suppressed."
2004 75094715335a parseMethod: now always returns the parser Claus Gittinger <cg@exept.de> parents: 2003 diff changeset	1544
75094715335a parseMethod: now always returns the parser Claus Gittinger <cg@exept.de> parents: 2003 diff changeset	1545	\|parser\|
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1546
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1547	parser := self new.
2004 75094715335a parseMethod: now always returns the parser Claus Gittinger <cg@exept.de> parents: 2003 diff changeset	1548	parser parseMethod:aString in:aClass ignoreErrors:ignoreErrors ignoreWarnings:ignoreWarnings.
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1549	^ parser
258 8de94646c647 checkin from browser Claus Gittinger <cg@exept.de> parents: 257 diff changeset	1550
2004 75094715335a parseMethod: now always returns the parser Claus Gittinger <cg@exept.de> parents: 2003 diff changeset	1551	"Modified: / 06-03-2007 / 18:33:39 / cg"
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1552	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1553
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1554	parseMethod:aString in:aClass warnings:warnBoolean
2166 8e63fbaf40d4 Mark obsolete methods Stefan Vogel <sv@exept.de> parents: 2158 diff changeset	1555	<resource: #obsolete>
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1556	"parse a method in a given class.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1557	Return a parser (if ok), nil (empty) or #Error (syntax).
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1558	The parser can be queried for selector, receiver, args, locals,
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1559	used selectors, modified instvars, referenced classvars etc.
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1560	The warnBoolean arguments specifies if warning
258 8de94646c647 checkin from browser Claus Gittinger <cg@exept.de> parents: 257 diff changeset	1561	messages should be sent to the Transcript or suppressed.
8de94646c647 checkin from browser Claus Gittinger <cg@exept.de> parents: 257 diff changeset	1562
8de94646c647 checkin from browser Claus Gittinger <cg@exept.de> parents: 257 diff changeset	1563	This method is OBSOLETE, and left in for backward compatibility."
8de94646c647 checkin from browser Claus Gittinger <cg@exept.de> parents: 257 diff changeset	1564
8de94646c647 checkin from browser Claus Gittinger <cg@exept.de> parents: 257 diff changeset	1565	self obsoleteMethodWarning.
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1566	^ self
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1567	parseMethod:aString
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1568	in:aClass
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1569	ignoreErrors:false
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1570	ignoreWarnings:warnBoolean not
258 8de94646c647 checkin from browser Claus Gittinger <cg@exept.de> parents: 257 diff changeset	1571
8de94646c647 checkin from browser Claus Gittinger <cg@exept.de> parents: 257 diff changeset	1572	"Modified: 24.4.1996 / 13:28:05 / cg"
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1573	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1574
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1575	parseMethodArgAndVarSpecification:aString
2166 8e63fbaf40d4 Mark obsolete methods Stefan Vogel <sv@exept.de> parents: 2158 diff changeset	1576	<resource: #obsolete>
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1577	"parse a methods selector, arg and var spec (i.e. locals);
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1578	Return a parser (if ok), nil (empty) or #Error (syntax).
258 8de94646c647 checkin from browser Claus Gittinger <cg@exept.de> parents: 257 diff changeset	1579	The parser can be queried for selector, receiver etc.
8de94646c647 checkin from browser Claus Gittinger <cg@exept.de> parents: 257 diff changeset	1580	Error and warning messages are sent to the Transcript.
8de94646c647 checkin from browser Claus Gittinger <cg@exept.de> parents: 257 diff changeset	1581	This method is OBSOLETE."
8de94646c647 checkin from browser Claus Gittinger <cg@exept.de> parents: 257 diff changeset	1582
8de94646c647 checkin from browser Claus Gittinger <cg@exept.de> parents: 257 diff changeset	1583	self obsoleteMethodWarning.
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1584	^ self parseMethodArgAndVarSpecification:aString in:nil
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1585
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1586	"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1587	\|p\|
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1588
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1589	p := Parser
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1590	parseMethodArgAndVarSpecification:'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1591	foo:arg1 bar:arg2 baz:arg3
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1592	\|l1 l2\|'.
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1593
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1594	'nArgs: ' print. p numberOfMethodArgs printNL.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1595	'args: ' print. p methodArgs printNL.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1596	'sel: ' print. p selector printNL.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1597	'nLocal: ' print. p numberOfMethodVars printNL.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1598	'locals: ' print. p methodVars printNL.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1599	"
258 8de94646c647 checkin from browser Claus Gittinger <cg@exept.de> parents: 257 diff changeset	1600
8de94646c647 checkin from browser Claus Gittinger <cg@exept.de> parents: 257 diff changeset	1601	"Modified: 24.4.1996 / 13:29:43 / cg"
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1602	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1603
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1604	parseMethodArgAndVarSpecification:aString in:aClass
2166 8e63fbaf40d4 Mark obsolete methods Stefan Vogel <sv@exept.de> parents: 2158 diff changeset	1605	<resource: #obsolete>
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1606	"parse a methods selector, arg and var spec in a given class;
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1607	Return a parser (if ok), nil (empty) or #Error (syntax).
258 8de94646c647 checkin from browser Claus Gittinger <cg@exept.de> parents: 257 diff changeset	1608	The parser can be queried for selector, receiver, args and locals.
8de94646c647 checkin from browser Claus Gittinger <cg@exept.de> parents: 257 diff changeset	1609	Error and warning messages are sent to the Transcript.
8de94646c647 checkin from browser Claus Gittinger <cg@exept.de> parents: 257 diff changeset	1610	This method is OBSOLETE."
8de94646c647 checkin from browser Claus Gittinger <cg@exept.de> parents: 257 diff changeset	1611
8de94646c647 checkin from browser Claus Gittinger <cg@exept.de> parents: 257 diff changeset	1612	self obsoleteMethodWarning.
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1613	^ self parseMethodArgAndVarSpecification:aString
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1614	in:aClass
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1615	ignoreErrors:false
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1616	ignoreWarnings:false
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1617	parseBody:false
257 435dcaed969f dont parse body (when interrested in args & locals only) Claus Gittinger <cg@exept.de> parents: 255 diff changeset	1618
258 8de94646c647 checkin from browser Claus Gittinger <cg@exept.de> parents: 257 diff changeset	1619	"Modified: 24.4.1996 / 13:30:03 / cg"
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1620	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1621
1365 19b74038d133 ignoreErrors / ignoreWarnings are not getters. penk parents: 1364 diff changeset	1622	parseMethodArgAndVarSpecification:aString in:aClass ignoreErrors:ignoreErrors ignoreWarnings:ignoreWarnings parseBody:body
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1623	"parse a methods selector, arg and var spec in a given class;
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1624	If parseBody is true, also parse the statements
257 435dcaed969f dont parse body (when interrested in args & locals only) Claus Gittinger <cg@exept.de> parents: 255 diff changeset	1625	(for primitives & resourceSpecs).
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1626	The noErrors and noWarnings arguments specify if error and warning
258 8de94646c647 checkin from browser Claus Gittinger <cg@exept.de> parents: 257 diff changeset	1627	messages should be sent to the Transcript or suppressed.
257 435dcaed969f dont parse body (when interrested in args & locals only) Claus Gittinger <cg@exept.de> parents: 255 diff changeset	1628
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1629	Return a parser (if ok), nil (empty) or #Error (syntax).
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1630	The parser can be queried for selector, receiver, args and locals"
19 84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	1631
0 7ad01559b262 Initial revision claus parents: diff changeset	1632	\|parser\|
7ad01559b262 Initial revision claus parents: diff changeset	1633
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1634	aString isNil ifTrue:[^ nil].
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1635	parser := self for:(ReadStream on:aString) in:aClass.
1365 19b74038d133 ignoreErrors / ignoreWarnings are not getters. penk parents: 1364 diff changeset	1636	parser ignoreErrors:ignoreErrors.
19b74038d133 ignoreErrors / ignoreWarnings are not getters. penk parents: 1364 diff changeset	1637	parser ignoreWarnings:ignoreWarnings.
255 13a059f6569d no need to send nextToken when parsing a method Claus Gittinger <cg@exept.de> parents: 229 diff changeset	1638	"/ parser nextToken.
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1639	(parser parseMethodSpec == #Error) ifTrue:[^ nil].
257 435dcaed969f dont parse body (when interrested in args & locals only) Claus Gittinger <cg@exept.de> parents: 255 diff changeset	1640	"/
435dcaed969f dont parse body (when interrested in args & locals only) Claus Gittinger <cg@exept.de> parents: 255 diff changeset	1641	"/ used to be #parseMethodBodyVarSpec
435dcaed969f dont parse body (when interrested in args & locals only) Claus Gittinger <cg@exept.de> parents: 255 diff changeset	1642	"/ - now, alternatively parse body for resource & primitive specs ..
435dcaed969f dont parse body (when interrested in args & locals only) Claus Gittinger <cg@exept.de> parents: 255 diff changeset	1643	"/
435dcaed969f dont parse body (when interrested in args & locals only) Claus Gittinger <cg@exept.de> parents: 255 diff changeset	1644	body ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1645	parser parseMethodBodyOrEmpty
257 435dcaed969f dont parse body (when interrested in args & locals only) Claus Gittinger <cg@exept.de> parents: 255 diff changeset	1646	] ifFalse:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1647	parser parseMethodBodyVarSpec
257 435dcaed969f dont parse body (when interrested in args & locals only) Claus Gittinger <cg@exept.de> parents: 255 diff changeset	1648	].
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1649	parser errorFlag ifTrue:[^ nil].
0 7ad01559b262 Initial revision claus parents: diff changeset	1650	^ parser
255 13a059f6569d no need to send nextToken when parsing a method Claus Gittinger <cg@exept.de> parents: 229 diff changeset	1651
257 435dcaed969f dont parse body (when interrested in args & locals only) Claus Gittinger <cg@exept.de> parents: 255 diff changeset	1652	"Created: 24.4.1996 / 13:13:06 / cg"
265 a8617dc49bbf examples Claus Gittinger <cg@exept.de> parents: 263 diff changeset	1653	"Modified: 27.4.1996 / 16:58:02 / cg"
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1654	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1655
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1656	parseMethodArgAndVarSpecificationSilent:aString
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1657	"parse a methods selector, arg and var spec (i.e. locals);
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1658	Return a parser (if ok), nil (empty) or #Error (syntax).
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1659	The parser can be queried for selector, receiver etc.
258 8de94646c647 checkin from browser Claus Gittinger <cg@exept.de> parents: 257 diff changeset	1660	Like #parseMethodArgAndVarSpecification:, but does NOT
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1661	display error/warning messages on the transcript."
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1662
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1663	^ self parseMethodArgAndVarSpecificationSilent:aString in:nil
258 8de94646c647 checkin from browser Claus Gittinger <cg@exept.de> parents: 257 diff changeset	1664
8de94646c647 checkin from browser Claus Gittinger <cg@exept.de> parents: 257 diff changeset	1665	"Modified: 24.4.1996 / 13:30:54 / cg"
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1666	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1667
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1668	parseMethodArgAndVarSpecificationSilent:aString in:aClass
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1669	"parse a methods selector, arg and var spec in a given class;
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1670	Return a parser (if ok), nil (empty) or #Error (syntax).
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1671	The parser can be queried for selector, receiver, args and locals.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1672	Like #parseMethodArgAndVarSpecification:in:, but does not
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1673	display error/warning messages on the transcript."
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1674
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1675	^ self parseMethodArgAndVarSpecification:aString
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1676	in:aClass
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1677	ignoreErrors:true
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1678	ignoreWarnings:true
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1679	parseBody:false
257 435dcaed969f dont parse body (when interrested in args & locals only) Claus Gittinger <cg@exept.de> parents: 255 diff changeset	1680
435dcaed969f dont parse body (when interrested in args & locals only) Claus Gittinger <cg@exept.de> parents: 255 diff changeset	1681	"Modified: 24.4.1996 / 13:14:27 / cg"
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1682	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1683
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1684	parseMethodSilent:aString
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1685	"parse a method.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1686	Return a parser (if ok), nil (empty) or #Error (syntax).
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1687	The parser can be queried for selector, receiver, args, locals,
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1688	used selectors etc.
258 8de94646c647 checkin from browser Claus Gittinger <cg@exept.de> parents: 257 diff changeset	1689	Like #parseMethod:, but warning/error messages are suppressed."
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1690
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1691	^ self parseMethodSilent:aString in:nil
258 8de94646c647 checkin from browser Claus Gittinger <cg@exept.de> parents: 257 diff changeset	1692
8de94646c647 checkin from browser Claus Gittinger <cg@exept.de> parents: 257 diff changeset	1693	"Modified: 24.4.1996 / 13:32:44 / cg"
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1694	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1695
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1696	parseMethodSilent:aString in:aClass
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1697	"parse a method in a given class.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1698	Return a parser (if ok), nil (empty) or #Error (syntax).
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1699	The parser can be queried for selector, receiver, args, locals,
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1700	used selectors, modified instvars, referenced classvars etc.
258 8de94646c647 checkin from browser Claus Gittinger <cg@exept.de> parents: 257 diff changeset	1701	Like #parseMethod:in:, but warning/error messages are suppressed."
8de94646c647 checkin from browser Claus Gittinger <cg@exept.de> parents: 257 diff changeset	1702
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1703	^ self
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1704	parseMethod:aString
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1705	in:aClass
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1706	ignoreErrors:true
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1707	ignoreWarnings:true
258 8de94646c647 checkin from browser Claus Gittinger <cg@exept.de> parents: 257 diff changeset	1708
8de94646c647 checkin from browser Claus Gittinger <cg@exept.de> parents: 257 diff changeset	1709	"Modified: 24.4.1996 / 13:32:57 / cg"
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1710	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1711
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1712	parseMethodSpecification:aString
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1713	"parse a methods selector & arg specification;
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1714	Return a parser (if ok), nil (empty) or #Error (syntax).
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1715	The parser can be queried for selector, receiver etc."
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1716
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1717	^ self parseMethodSpecification:aString in:nil
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1718
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1719	"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1720	\|p\|
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1721
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1722	p := Parser parseMethodSpecification:'foo:arg1 bar:arg2 baz:arg3'.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1723	'nArgs: ' print. p numberOfMethodArgs printNL.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1724	'args: ' print. p methodArgs printNL.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1725	'sel: ' print. p selector printNL
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1726	"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1727	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1728
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1729	parseMethodSpecification:aString in:aClass
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1730	"parse a methods selector & arg spec for a given class;
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1731	Return a parser (if ok), nil (empty) or #Error (syntax).
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1732	The parser can be queried for selector, receiver etc."
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1733
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1734	^ self parseMethodSpecification:aString
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1735	in:aClass
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1736	ignoreErrors:false
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1737	ignoreWarnings:false
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1738	!
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1739
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1740	parseMethodSpecification:aString in:aClass ignoreErrors:ignoreErrors ignoreWarnings:ignoreWarnings
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1741	"parse a methods selector & arg spec for a given class;
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1742	Return a parser (if ok), nil (empty) or #Error (syntax).
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1743	The parser can be queried for selector, receiver etc.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1744	noErrors and noWarnings specify if error- and warningMessages are
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1745	to be output onto the Transcript."
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1746
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1747	\|parser tree\|
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1748
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1749	aString isNil ifTrue:[^ nil].
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1750	parser := self for:(ReadStream on:aString) in:aClass.
1365 19b74038d133 ignoreErrors / ignoreWarnings are not getters. penk parents: 1364 diff changeset	1751	parser ignoreErrors:ignoreErrors.
19b74038d133 ignoreErrors / ignoreWarnings are not getters. penk parents: 1364 diff changeset	1752	parser ignoreWarnings:ignoreWarnings.
255 13a059f6569d no need to send nextToken when parsing a method Claus Gittinger <cg@exept.de> parents: 229 diff changeset	1753	"/ parser nextToken.
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1754	tree := parser parseMethodSpec.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1755	(parser errorFlag or:[tree == #Error]) ifTrue:[^ #Error].
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1756	^ parser
255 13a059f6569d no need to send nextToken when parsing a method Claus Gittinger <cg@exept.de> parents: 229 diff changeset	1757
13a059f6569d no need to send nextToken when parsing a method Claus Gittinger <cg@exept.de> parents: 229 diff changeset	1758	"Modified: 20.4.1996 / 20:09:48 / cg"
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1759	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1760
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1761	parseMethodSpecificationSilent:aString
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1762	"parse a methods selector & arg specification;
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1763	Return a parser (if ok), nil (empty) or #Error (syntax).
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1764	The parser can be queried for selector, receiver etc.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1765	Like #parseMethodSpecification:, but does not display any error/warning Messages on the transcript."
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1766
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1767	^ self parseMethodSpecificationSilent:aString in:nil
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1768	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1769
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1770	parseMethodSpecificationSilent:aString in:aClass
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1771	"parse a methods selector & arg spec for a given class;
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1772	Return a parser (if ok), nil (empty) or #Error (syntax).
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1773	The parser can be queried for selector, receiver etc.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1774	Like #parseMethodSpecification:in:, but does not display any error/warning Messages on the transcript."
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1775
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1776	^ self parseMethodSpecification:aString
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1777	in:aClass
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1778	ignoreErrors:true
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1779	ignoreWarnings:true
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1780
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1781	"Created: 31.10.1995 / 14:37:49 / cg"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	1782	!
0 7ad01559b262 Initial revision claus parents: diff changeset	1783
7 6c2bc76f0b8f * empty log message * claus parents: 4 diff changeset	1784	selectorInExpression:aString
47 f861ad42703e * empty log message * claus parents: 45 diff changeset	1785	"parse an expression - return the selector. Even malformed expressions
2832 58356de46017 per method warning control Claus Gittinger <cg@exept.de> parents: 2814 diff changeset	1786	(such as missing receiver or missing arg) are parsed.
47 f861ad42703e * empty log message * claus parents: 45 diff changeset	1787	Used for the SystemBrowsers implementors/senders query-box initial text.
21 338c3cfeffbf * empty log message * claus parents: 20 diff changeset	1788	Returns nil if unparsable."
7 6c2bc76f0b8f * empty log message * claus parents: 4 diff changeset	1789
2832 58356de46017 per method warning control Claus Gittinger <cg@exept.de> parents: 2814 diff changeset	1790	\|stringParsed tree expression parser sel\|
58356de46017 per method warning control Claus Gittinger <cg@exept.de> parents: 2814 diff changeset	1791
58356de46017 per method warning control Claus Gittinger <cg@exept.de> parents: 2814 diff changeset	1792	stringParsed := aString withoutSeparators.
58356de46017 per method warning control Claus Gittinger <cg@exept.de> parents: 2814 diff changeset	1793	stringParsed isEmpty ifTrue:[^ nil].
58356de46017 per method warning control Claus Gittinger <cg@exept.de> parents: 2814 diff changeset	1794	(stringParsed startsWith:'^') ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1795	stringParsed := stringParsed copyFrom:2.
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1796	].
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1797
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1798	Error
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1799	handle:[:ex \| ]
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1800	do:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1801	tree := self withSelf:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1802	parseExpression:stringParsed
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1803	notifying:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1804	ignoreErrors:true
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1805	ignoreWarnings:true.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1806	].
21 338c3cfeffbf * empty log message * claus parents: 20 diff changeset	1807
338c3cfeffbf * empty log message * claus parents: 20 diff changeset	1808	"
338c3cfeffbf * empty log message * claus parents: 20 diff changeset	1809	special: take the expression of the right side, if its an
338c3cfeffbf * empty log message * claus parents: 20 diff changeset	1810	assignment or return
338c3cfeffbf * empty log message * claus parents: 20 diff changeset	1811	"
7 6c2bc76f0b8f * empty log message * claus parents: 4 diff changeset	1812	(tree notNil and:[tree ~~ #Error]) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1813	(tree isAssignment
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1814	or:[tree isReturnNode]) ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1815	(expression := tree expression) isMessage ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1816	tree := expression
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1817	]
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1818	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1819	tree isMessage ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1820	^ tree selector
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1821	].
7 6c2bc76f0b8f * empty log message * claus parents: 4 diff changeset	1822	].
6c2bc76f0b8f * empty log message * claus parents: 4 diff changeset	1823
21 338c3cfeffbf * empty log message * claus parents: 20 diff changeset	1824	"
338c3cfeffbf * empty log message * claus parents: 20 diff changeset	1825	mhmh, try expression without receiver
338c3cfeffbf * empty log message * claus parents: 20 diff changeset	1826	"
2832 58356de46017 per method warning control Claus Gittinger <cg@exept.de> parents: 2814 diff changeset	1827	parser := self for:(ReadStream on:stringParsed).
1365 19b74038d133 ignoreErrors / ignoreWarnings are not getters. penk parents: 1364 diff changeset	1828	parser ignoreErrors:true.
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1829	Error
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1830	handle:[:ex \| ]
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1831	do:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1832	parser nextToken.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1833	sel := parser degeneratedKeywordExpressionForSelector
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1834	].
1297 67332caafef7 catch errors when extracting a message selector Claus Gittinger <cg@exept.de> parents: 1295 diff changeset	1835	^ sel
7 6c2bc76f0b8f * empty log message * claus parents: 4 diff changeset	1836
6c2bc76f0b8f * empty log message * claus parents: 4 diff changeset	1837	"
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1838	Parser selectorInExpression:'foo at:1 put:(5 * bar)'
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1839	Parser selectorInExpression:'(foo at:1) at:1'
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1840	Parser selectorInExpression:'a + 4'
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1841	Parser selectorInExpression:'a negated'
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1842	Parser selectorInExpression:'at:1 put:5'
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1843	Parser selectorInExpression:'at:1 put:'
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1844	Parser selectorInExpression:'a at:1 put:5'
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1845	Parser selectorInExpression:'a at:1 put:'
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1846	Parser selectorInExpression:'a := foo at:1 put:5'
7 6c2bc76f0b8f * empty log message * claus parents: 4 diff changeset	1847	"
451 9e116ffc172c checkin from browser Claus Gittinger <cg@exept.de> parents: 450 diff changeset	1848
2832 58356de46017 per method warning control Claus Gittinger <cg@exept.de> parents: 2814 diff changeset	1849	"Modified (comment): / 28-02-2012 / 10:11:15 / cg"
7 6c2bc76f0b8f * empty log message * claus parents: 4 diff changeset	1850	!
6c2bc76f0b8f * empty log message * claus parents: 4 diff changeset	1851
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1852	withSelf:anObject parseExpression:aString notifying:someOne
7 6c2bc76f0b8f * empty log message * claus parents: 4 diff changeset	1853	"parse aString as an expression with self set to anObject;
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1854	Return the parseTree (if ok), nil (for an empty string
21 338c3cfeffbf * empty log message * claus parents: 20 diff changeset	1855	or comment only ) or #Error (syntactic error).
338c3cfeffbf * empty log message * claus parents: 20 diff changeset	1856
338c3cfeffbf * empty log message * claus parents: 20 diff changeset	1857	Errors and warnings are forwarded to someOne (usually some
338c3cfeffbf * empty log message * claus parents: 20 diff changeset	1858	codeView) which can highlight it and show a popup box."
7 6c2bc76f0b8f * empty log message * claus parents: 4 diff changeset	1859
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1860	^ self
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1861	withSelf:anObject
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1862	parseExpression:aString
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1863	onError:#Error
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1864	notifying:someOne
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1865	ignoreErrors:false
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1866	ignoreWarnings:false
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1867	inNameSpace:nil
548 79948fed91a7 added entry to parse an expression in a specific nameSpace Claus Gittinger <cg@exept.de> parents: 547 diff changeset	1868
79948fed91a7 added entry to parse an expression in a specific nameSpace Claus Gittinger <cg@exept.de> parents: 547 diff changeset	1869	"Modified: 24.6.1997 / 16:43:37 / cg"
7 6c2bc76f0b8f * empty log message * claus parents: 4 diff changeset	1870	!
6c2bc76f0b8f * empty log message * claus parents: 4 diff changeset	1871
6c2bc76f0b8f * empty log message * claus parents: 4 diff changeset	1872	withSelf:anObject parseExpression:aString notifying:someOne ignoreErrors:ignore
0 7ad01559b262 Initial revision claus parents: diff changeset	1873	"parse aString as an expression with self set to anObject;
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1874	Return the parseTree (if ok), nil (for an empty string
21 338c3cfeffbf * empty log message * claus parents: 20 diff changeset	1875	or comment only ) or #Error (syntactic error).
338c3cfeffbf * empty log message * claus parents: 20 diff changeset	1876
338c3cfeffbf * empty log message * claus parents: 20 diff changeset	1877	Errors and warnings are forwarded to someOne (usually some
338c3cfeffbf * empty log message * claus parents: 20 diff changeset	1878	codeView) which can highlight it and show a popup box."
338c3cfeffbf * empty log message * claus parents: 20 diff changeset	1879
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1880	^ self
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1881	withSelf:anObject
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1882	parseExpression:aString
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1883	onError:#Error
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1884	notifying:someOne
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1885	ignoreErrors:ignore
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1886	ignoreWarnings:ignore
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1887	inNameSpace:nil
548 79948fed91a7 added entry to parse an expression in a specific nameSpace Claus Gittinger <cg@exept.de> parents: 547 diff changeset	1888
79948fed91a7 added entry to parse an expression in a specific nameSpace Claus Gittinger <cg@exept.de> parents: 547 diff changeset	1889	"Modified: 24.6.1997 / 16:43:26 / cg"
21 338c3cfeffbf * empty log message * claus parents: 20 diff changeset	1890	!
338c3cfeffbf * empty log message * claus parents: 20 diff changeset	1891
338c3cfeffbf * empty log message * claus parents: 20 diff changeset	1892	withSelf:anObject parseExpression:aString notifying:someOne ignoreErrors:ignoreErrors ignoreWarnings:ignoreWarnings
338c3cfeffbf * empty log message * claus parents: 20 diff changeset	1893	"parse aString as an expression with self set to anObject;
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1894	Return the parseTree (if ok), nil (for an empty string
21 338c3cfeffbf * empty log message * claus parents: 20 diff changeset	1895	or comment only ) or #Error (syntactic error).
338c3cfeffbf * empty log message * claus parents: 20 diff changeset	1896
338c3cfeffbf * empty log message * claus parents: 20 diff changeset	1897	Errors and warnings are forwarded to someOne (usually some
338c3cfeffbf * empty log message * claus parents: 20 diff changeset	1898	codeView) which can highlight it and show a popup box,
338c3cfeffbf * empty log message * claus parents: 20 diff changeset	1899	iff ignoreErrors/ignoreWarnings is true respectively."
0 7ad01559b262 Initial revision claus parents: diff changeset	1900
548 79948fed91a7 added entry to parse an expression in a specific nameSpace Claus Gittinger <cg@exept.de> parents: 547 diff changeset	1901	^ self
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1902	withSelf:anObject
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1903	parseExpression:aString
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1904	onError:#Error
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1905	notifying:someOne
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1906	ignoreErrors:ignoreErrors
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1907	ignoreWarnings:ignoreWarnings
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1908	inNameSpace:nil
548 79948fed91a7 added entry to parse an expression in a specific nameSpace Claus Gittinger <cg@exept.de> parents: 547 diff changeset	1909
79948fed91a7 added entry to parse an expression in a specific nameSpace Claus Gittinger <cg@exept.de> parents: 547 diff changeset	1910	"Modified: 24.6.1997 / 16:43:12 / cg"
79948fed91a7 added entry to parse an expression in a specific nameSpace Claus Gittinger <cg@exept.de> parents: 547 diff changeset	1911	!
79948fed91a7 added entry to parse an expression in a specific nameSpace Claus Gittinger <cg@exept.de> parents: 547 diff changeset	1912
79948fed91a7 added entry to parse an expression in a specific nameSpace Claus Gittinger <cg@exept.de> parents: 547 diff changeset	1913	withSelf:anObject parseExpression:aString notifying:someOne ignoreErrors:ignoreErrors ignoreWarnings:ignoreWarnings inNameSpace:aNameSpaceOrNil
79948fed91a7 added entry to parse an expression in a specific nameSpace Claus Gittinger <cg@exept.de> parents: 547 diff changeset	1914	"parse aString as an expression with self set to anObject;
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1915	Return the parseTree (if ok), nil (for an empty string
548 79948fed91a7 added entry to parse an expression in a specific nameSpace Claus Gittinger <cg@exept.de> parents: 547 diff changeset	1916	or comment only ) or #Error (syntactic error).
79948fed91a7 added entry to parse an expression in a specific nameSpace Claus Gittinger <cg@exept.de> parents: 547 diff changeset	1917
79948fed91a7 added entry to parse an expression in a specific nameSpace Claus Gittinger <cg@exept.de> parents: 547 diff changeset	1918	Errors and warnings are forwarded to someOne (usually some
79948fed91a7 added entry to parse an expression in a specific nameSpace Claus Gittinger <cg@exept.de> parents: 547 diff changeset	1919	codeView) which can highlight it and show a popup box,
79948fed91a7 added entry to parse an expression in a specific nameSpace Claus Gittinger <cg@exept.de> parents: 547 diff changeset	1920	iff ignoreErrors/ignoreWarnings is true respectively."
79948fed91a7 added entry to parse an expression in a specific nameSpace Claus Gittinger <cg@exept.de> parents: 547 diff changeset	1921
1096 d1d897aba4d5 added #parseExpression:onError: protocol. Claus Gittinger <cg@exept.de> parents: 1091 diff changeset	1922	^ self
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1923	withSelf:anObject
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1924	parseExpression:aString
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1925	onError:#Error
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1926	notifying:someOne
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1927	ignoreErrors:ignoreErrors
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1928	ignoreWarnings:ignoreWarnings
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1929	inNameSpace:aNameSpaceOrNil
1096 d1d897aba4d5 added #parseExpression:onError: protocol. Claus Gittinger <cg@exept.de> parents: 1091 diff changeset	1930	!
d1d897aba4d5 added #parseExpression:onError: protocol. Claus Gittinger <cg@exept.de> parents: 1091 diff changeset	1931
3271 63e8a42d3dd7 class: Parser Claus Gittinger <cg@exept.de> parents: 3267 diff changeset	1932	withSelf:anObject parseExpression:aStringOrStream onError:errorValue notifying:someOne ignoreErrors:ignoreErrors ignoreWarnings:ignoreWarnings inNameSpace:aNameSpaceOrNil
1096 d1d897aba4d5 added #parseExpression:onError: protocol. Claus Gittinger <cg@exept.de> parents: 1091 diff changeset	1933	"parse aString as an expression with self set to anObject;
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1934	Return the parseTree (if ok), nil (for an empty string
1096 d1d897aba4d5 added #parseExpression:onError: protocol. Claus Gittinger <cg@exept.de> parents: 1091 diff changeset	1935	or comment only ) or errorValue (syntactic error).
d1d897aba4d5 added #parseExpression:onError: protocol. Claus Gittinger <cg@exept.de> parents: 1091 diff changeset	1936
d1d897aba4d5 added #parseExpression:onError: protocol. Claus Gittinger <cg@exept.de> parents: 1091 diff changeset	1937	Errors and warnings are forwarded to someOne (usually some
d1d897aba4d5 added #parseExpression:onError: protocol. Claus Gittinger <cg@exept.de> parents: 1091 diff changeset	1938	codeView) which can highlight it and show a popup box,
d1d897aba4d5 added #parseExpression:onError: protocol. Claus Gittinger <cg@exept.de> parents: 1091 diff changeset	1939	iff ignoreErrors/ignoreWarnings is true respectively."
d1d897aba4d5 added #parseExpression:onError: protocol. Claus Gittinger <cg@exept.de> parents: 1091 diff changeset	1940
d1d897aba4d5 added #parseExpression:onError: protocol. Claus Gittinger <cg@exept.de> parents: 1091 diff changeset	1941	\|parser tree\|
0 7ad01559b262 Initial revision claus parents: diff changeset	1942
3271 63e8a42d3dd7 class: Parser Claus Gittinger <cg@exept.de> parents: 3267 diff changeset	1943	aStringOrStream isNil ifTrue:[^ nil].
63e8a42d3dd7 class: Parser Claus Gittinger <cg@exept.de> parents: 3267 diff changeset	1944
63e8a42d3dd7 class: Parser Claus Gittinger <cg@exept.de> parents: 3267 diff changeset	1945	parser := self for:(aStringOrStream readStream).
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	1946	tree := parser
3271 63e8a42d3dd7 class: Parser Claus Gittinger <cg@exept.de> parents: 3267 diff changeset	1947	parseExpressionWithSelf:anObject
63e8a42d3dd7 class: Parser Claus Gittinger <cg@exept.de> parents: 3267 diff changeset	1948	notifying:someOne
63e8a42d3dd7 class: Parser Claus Gittinger <cg@exept.de> parents: 3267 diff changeset	1949	ignoreErrors:ignoreErrors
63e8a42d3dd7 class: Parser Claus Gittinger <cg@exept.de> parents: 3267 diff changeset	1950	ignoreWarnings:ignoreWarnings
63e8a42d3dd7 class: Parser Claus Gittinger <cg@exept.de> parents: 3267 diff changeset	1951	inNameSpace:aNameSpaceOrNil.
1096 d1d897aba4d5 added #parseExpression:onError: protocol. Claus Gittinger <cg@exept.de> parents: 1091 diff changeset	1952	tree == #Error ifTrue:[
3271 63e8a42d3dd7 class: Parser Claus Gittinger <cg@exept.de> parents: 3267 diff changeset	1953	^ errorValue value
1096 d1d897aba4d5 added #parseExpression:onError: protocol. Claus Gittinger <cg@exept.de> parents: 1091 diff changeset	1954	].
d1d897aba4d5 added #parseExpression:onError: protocol. Claus Gittinger <cg@exept.de> parents: 1091 diff changeset	1955	^ tree
1006 ffce16b01b0a checkin from browser Claus Gittinger <cg@exept.de> parents: 1003 diff changeset	1956
ffce16b01b0a checkin from browser Claus Gittinger <cg@exept.de> parents: 1003 diff changeset	1957	"Modified: / 14.12.1999 / 15:12:16 / cg"
0 7ad01559b262 Initial revision claus parents: diff changeset	1958	! !
7ad01559b262 Initial revision claus parents: diff changeset	1959
1621 490b30bfc501 * empty log message * Claus Gittinger <cg@exept.de> parents: 1619 diff changeset	1960	!Parser class methodsFor:'private'!
490b30bfc501 * empty log message * Claus Gittinger <cg@exept.de> parents: 1619 diff changeset	1961
1934 1abdc93d3bf7 experimental toDoList support Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	1962	implementedInAnyClass:aSelectorStringOrSymbol
1abdc93d3bf7 experimental toDoList support Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	1963	\|selectorSymbol\|
1abdc93d3bf7 experimental toDoList support Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	1964
1abdc93d3bf7 experimental toDoList support Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	1965	selectorSymbol := aSelectorStringOrSymbol asSymbolIfInterned.
1abdc93d3bf7 experimental toDoList support Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	1966	selectorSymbol isNil ifTrue:[^ false].
1abdc93d3bf7 experimental toDoList support Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	1967
1abdc93d3bf7 experimental toDoList support Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	1968	Smalltalk allClassesAndMetaclassesDo:[:cls \|
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1969	(cls includesSelector:selectorSymbol) ifTrue:[^ true].
1934 1abdc93d3bf7 experimental toDoList support Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	1970	].
1abdc93d3bf7 experimental toDoList support Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	1971	^ false
1abdc93d3bf7 experimental toDoList support Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	1972
1abdc93d3bf7 experimental toDoList support Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	1973	"Modified: / 22-10-2006 / 02:25:37 / cg"
1abdc93d3bf7 experimental toDoList support Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	1974	!
1abdc93d3bf7 experimental toDoList support Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	1975
2255 402689fb28d9 ImmutableByteArray Claus Gittinger <cg@exept.de> parents: 2233 diff changeset	1976	make:anObject immutable:what
402689fb28d9 ImmutableByteArray Claus Gittinger <cg@exept.de> parents: 2233 diff changeset	1977	\|newObject\|
402689fb28d9 ImmutableByteArray Claus Gittinger <cg@exept.de> parents: 2233 diff changeset	1978
402689fb28d9 ImmutableByteArray Claus Gittinger <cg@exept.de> parents: 2233 diff changeset	1979	newObject := anObject copy.
402689fb28d9 ImmutableByteArray Claus Gittinger <cg@exept.de> parents: 2233 diff changeset	1980	what notNil ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	1981	newObject changeClassTo:what.
2255 402689fb28d9 ImmutableByteArray Claus Gittinger <cg@exept.de> parents: 2233 diff changeset	1982	].
402689fb28d9 ImmutableByteArray Claus Gittinger <cg@exept.de> parents: 2233 diff changeset	1983	newObject beImmutable.
402689fb28d9 ImmutableByteArray Claus Gittinger <cg@exept.de> parents: 2233 diff changeset	1984	^ newObject
402689fb28d9 ImmutableByteArray Claus Gittinger <cg@exept.de> parents: 2233 diff changeset	1985	!
402689fb28d9 ImmutableByteArray Claus Gittinger <cg@exept.de> parents: 2233 diff changeset	1986
1621 490b30bfc501 * empty log message * Claus Gittinger <cg@exept.de> parents: 1619 diff changeset	1987	makeImmutableArray:anArray
2255 402689fb28d9 ImmutableByteArray Claus Gittinger <cg@exept.de> parents: 2233 diff changeset	1988	^ self make:anArray immutable:ImmutableArray
402689fb28d9 ImmutableByteArray Claus Gittinger <cg@exept.de> parents: 2233 diff changeset	1989	!
402689fb28d9 ImmutableByteArray Claus Gittinger <cg@exept.de> parents: 2233 diff changeset	1990
402689fb28d9 ImmutableByteArray Claus Gittinger <cg@exept.de> parents: 2233 diff changeset	1991	makeImmutableByteArray:aByteArray
402689fb28d9 ImmutableByteArray Claus Gittinger <cg@exept.de> parents: 2233 diff changeset	1992	^ self make:aByteArray immutable:ImmutableByteArray
1621 490b30bfc501 * empty log message * Claus Gittinger <cg@exept.de> parents: 1619 diff changeset	1993	!
490b30bfc501 * empty log message * Claus Gittinger <cg@exept.de> parents: 1619 diff changeset	1994
490b30bfc501 * empty log message * Claus Gittinger <cg@exept.de> parents: 1619 diff changeset	1995	makeImmutableString:aString
2255 402689fb28d9 ImmutableByteArray Claus Gittinger <cg@exept.de> parents: 2233 diff changeset	1996	^ self make:aString immutable:ImmutableString
1621 490b30bfc501 * empty log message * Claus Gittinger <cg@exept.de> parents: 1619 diff changeset	1997	! !
490b30bfc501 * empty log message * Claus Gittinger <cg@exept.de> parents: 1619 diff changeset	1998
358 78b0d8954c49 removed possible conflict between #classVarNames here and in Class. Claus Gittinger <cg@exept.de> parents: 354 diff changeset	1999	!Parser class methodsFor:'unparsing'!
20 f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	2000
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	2001	methodSpecificationForSelector:aSelector
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	2002	"given a selector such as #foo:bar:, return a string that could
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	2003	serve as a methods specification source code.
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	2004	To be used for code generators"
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	2005
807 8434698556de * empty log message * Claus Gittinger <cg@exept.de> parents: 806 diff changeset	2006	\|argNames n\|
8434698556de * empty log message * Claus Gittinger <cg@exept.de> parents: 806 diff changeset	2007
8434698556de * empty log message * Claus Gittinger <cg@exept.de> parents: 806 diff changeset	2008	n := aSelector numArgs.
8434698556de * empty log message * Claus Gittinger <cg@exept.de> parents: 806 diff changeset	2009	n == 1 ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2010	argNames := #('arg')
807 8434698556de * empty log message * Claus Gittinger <cg@exept.de> parents: 806 diff changeset	2011	] ifFalse:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2012	n <= 15 ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2013	argNames := #('arg1' 'arg2' 'arg3' 'arg4' 'arg5' 'arg6'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2014	'arg7' 'arg8' 'arg9' 'arg10' 'arg11' 'arg12'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2015	'arg13' 'arg14' 'arg15')
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2016	] ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2017	argNames := (1 to:aSelector numArgs) collect:[:i \| 'arg' , i printString].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2018	].
807 8434698556de * empty log message * Claus Gittinger <cg@exept.de> parents: 806 diff changeset	2019	].
8434698556de * empty log message * Claus Gittinger <cg@exept.de> parents: 806 diff changeset	2020	^ self methodSpecificationForSelector:aSelector argNames:argNames
8434698556de * empty log message * Claus Gittinger <cg@exept.de> parents: 806 diff changeset	2021
20 f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	2022	"
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	2023	Parser methodSpecificationForSelector:#foo:
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	2024	Parser methodSpecificationForSelector:#foo:bar:
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	2025	Parser methodSpecificationForSelector:#foo:bar:baz:
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	2026	Parser methodSpecificationForSelector:#+
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	2027	Parser methodSpecificationForSelector:#negated
20 f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	2028	"
807 8434698556de * empty log message * Claus Gittinger <cg@exept.de> parents: 806 diff changeset	2029
8434698556de * empty log message * Claus Gittinger <cg@exept.de> parents: 806 diff changeset	2030	"Modified: / 12.2.1999 / 13:12:44 / cg"
20 f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	2031	!
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	2032
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	2033	methodSpecificationForSelector:aSelector argNames:argNames
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	2034	"given a selector such as #foo:bar:, return a string that could
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	2035	serve as a methods specification source code.
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	2036	To be used for code generators"
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	2037
806 bbfd3018e32e checkin from browser Claus Gittinger <cg@exept.de> parents: 805 diff changeset	2038	\|s nargs parts part\|
20 f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	2039
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	2040	s := WriteStream on:String new.
44 74ddc944c27f * empty log message * claus parents: 35 diff changeset	2041	nargs := aSelector numArgs.
20 f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	2042	nargs == 0 ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2043	s nextPutAll:aSelector
20 f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	2044	] ifFalse:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2045	parts := aSelector partsIfSelector.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2046	1 to:nargs do:[:i \|
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2047	part := parts at:i.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2048	s nextPutAll:part.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2049	(part endsWith:$:) ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2050	s space.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2051	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2052	s nextPutAll:(argNames at:i).
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2053	i ~~ nargs ifTrue:[s space].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2054	]
20 f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	2055	].
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	2056	^ s contents
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	2057
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	2058	"
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	2059	Parser methodSpecificationForSelector:#foo:bar: argNames:#('one' 'two' 'three')
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	2060	Parser methodSpecificationForSelector:#+ argNames:#('one')
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	2061	Parser methodSpecificationForSelector:#negated
20 f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	2062	"
806 bbfd3018e32e checkin from browser Claus Gittinger <cg@exept.de> parents: 805 diff changeset	2063
bbfd3018e32e checkin from browser Claus Gittinger <cg@exept.de> parents: 805 diff changeset	2064	"Modified: / 12.2.1999 / 12:33:50 / cg"
20 f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	2065	! !
f8dd8ba75205 * empty log message * claus parents: 19 diff changeset	2066
1417 7e97dd2df5ca method category rename Claus Gittinger <cg@exept.de> parents: 1413 diff changeset	2067	!Parser methodsFor:'Compatibility-ST80'!
0 7ad01559b262 Initial revision claus parents: diff changeset	2068
918 e088f51a649e checkin from browser Claus Gittinger <cg@exept.de> parents: 915 diff changeset	2069	evaluate:aString in:aClassOrContext to:to notifying:aRequestor ifFail:failBlock
35 2884eed75e2a logging doits. claus parents: 23 diff changeset	2070	\|parseTree value\|
0 7ad01559b262 Initial revision claus parents: diff changeset	2071
7ad01559b262 Initial revision claus parents: diff changeset	2072	aString isNil ifTrue:[^ nil].
7ad01559b262 Initial revision claus parents: diff changeset	2073	self initializeFor:(ReadStream on:aString).
918 e088f51a649e checkin from browser Claus Gittinger <cg@exept.de> parents: 915 diff changeset	2074
e088f51a649e checkin from browser Claus Gittinger <cg@exept.de> parents: 915 diff changeset	2075	"/ stupid - there seem to be differences among the various
e088f51a649e checkin from browser Claus Gittinger <cg@exept.de> parents: 915 diff changeset	2076	"/ ST dialects ...
e088f51a649e checkin from browser Claus Gittinger <cg@exept.de> parents: 915 diff changeset	2077	aClassOrContext isBehavior ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2078	self setClassToCompileFor:aClassOrContext.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2079	selfValue := nil.
918 e088f51a649e checkin from browser Claus Gittinger <cg@exept.de> parents: 915 diff changeset	2080	] ifFalse:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2081	self setContext:aClassOrContext.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2082	aClassOrContext notNil ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2083	self setSelf:(aClassOrContext receiver)
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2084	].
918 e088f51a649e checkin from browser Claus Gittinger <cg@exept.de> parents: 915 diff changeset	2085	].
0 7ad01559b262 Initial revision claus parents: diff changeset	2086	requestor := aRequestor.
7ad01559b262 Initial revision claus parents: diff changeset	2087
7ad01559b262 Initial revision claus parents: diff changeset	2088	self nextToken.
7ad01559b262 Initial revision claus parents: diff changeset	2089	parseTree := self parseMethodBody.
7ad01559b262 Initial revision claus parents: diff changeset	2090	(errorFlag or:[tree == #Error]) ifTrue:[^ #Error].
7ad01559b262 Initial revision claus parents: diff changeset	2091	parseTree notNil ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2092	self evalExitBlock:[:value \| ^ failBlock value].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2093	value := parseTree evaluate
0 7ad01559b262 Initial revision claus parents: diff changeset	2094	].
35 2884eed75e2a logging doits. claus parents: 23 diff changeset	2095	self release.
2884eed75e2a logging doits. claus parents: 23 diff changeset	2096	^ value
547 5a51414daf36 added #parseSelector for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 541 diff changeset	2097	!
5a51414daf36 added #parseSelector for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 541 diff changeset	2098
624 e71abe9654e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 619 diff changeset	2099	parse:methodSource in:aClass notifying:aRequestor
e71abe9654e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 619 diff changeset	2100	"parse a methods source.
3039 cdd6a01d55c7 class: Parser Claus Gittinger <cg@exept.de> parents: 3028 diff changeset	2101	Return the method's parseTree"
624 e71abe9654e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 619 diff changeset	2102
e71abe9654e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 619 diff changeset	2103	self initializeFor:methodSource.
e71abe9654e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 619 diff changeset	2104	classToCompileFor := aClass.
e71abe9654e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 619 diff changeset	2105	requestor := aRequestor.
e71abe9654e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 619 diff changeset	2106	self parseMethod.
918 e088f51a649e checkin from browser Claus Gittinger <cg@exept.de> parents: 915 diff changeset	2107
2692 d96ed1d9bfdc changed: #parse:in:notifying: Claus Gittinger <cg@exept.de> parents: 2689 diff changeset	2108	^ (MethodNode new
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2109	selector:selector
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2110	arguments:methodArgs
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2111	locals:methodVars
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2112	statements:(tree isNil ifTrue:[#()] ifFalse:[tree asCollectionOfStatements]))
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2113	encoder:self
2692 d96ed1d9bfdc changed: #parse:in:notifying: Claus Gittinger <cg@exept.de> parents: 2689 diff changeset	2114
d96ed1d9bfdc changed: #parse:in:notifying: Claus Gittinger <cg@exept.de> parents: 2689 diff changeset	2115	"Created: / 17-10-1997 / 12:35:01 / cg"
2696 ca54a869ba58 changed: #parse:in:notifying: Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	2116	"Modified: / 12-09-2011 / 09:48:00 / cg"
624 e71abe9654e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 619 diff changeset	2117	!
e71abe9654e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 619 diff changeset	2118
547 5a51414daf36 added #parseSelector for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 541 diff changeset	2119	parseSelector:aStringOrStream
3039 cdd6a01d55c7 class: Parser Claus Gittinger <cg@exept.de> parents: 3028 diff changeset	2120	"parse a method's source for the methods selector.
624 e71abe9654e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 619 diff changeset	2121	Return the selector"
e71abe9654e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 619 diff changeset	2122
547 5a51414daf36 added #parseSelector for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 541 diff changeset	2123	self initializeFor:aStringOrStream.
5a51414daf36 added #parseSelector for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 541 diff changeset	2124	self parseMethodSpec.
5a51414daf36 added #parseSelector for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 541 diff changeset	2125	^ selector.
5a51414daf36 added #parseSelector for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 541 diff changeset	2126
5a51414daf36 added #parseSelector for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 541 diff changeset	2127	"
5a51414daf36 added #parseSelector for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 541 diff changeset	2128	Parser new
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2129	parseSelector:'
547 5a51414daf36 added #parseSelector for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 541 diff changeset	2130	parseSelector:aStringOrStream
5a51414daf36 added #parseSelector for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 541 diff changeset	2131	self initializeFor:aStringOrStream.
5a51414daf36 added #parseSelector for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 541 diff changeset	2132	self parseMethodSpec.
5a51414daf36 added #parseSelector for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 541 diff changeset	2133	^ selector.
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	2134	'
547 5a51414daf36 added #parseSelector for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 541 diff changeset	2135	"
5a51414daf36 added #parseSelector for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 541 diff changeset	2136
624 e71abe9654e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 619 diff changeset	2137	"Modified: 17.10.1997 / 12:35:46 / cg"
0 7ad01559b262 Initial revision claus parents: diff changeset	2138	! !
7ad01559b262 Initial revision claus parents: diff changeset	2139
3039 cdd6a01d55c7 class: Parser Claus Gittinger <cg@exept.de> parents: 3028 diff changeset	2140	!Parser methodsFor:'Compatibility-Squeak'!
cdd6a01d55c7 class: Parser Claus Gittinger <cg@exept.de> parents: 3028 diff changeset	2141
cdd6a01d55c7 class: Parser Claus Gittinger <cg@exept.de> parents: 3028 diff changeset	2142	parse:methodSource class:aClass
cdd6a01d55c7 class: Parser Claus Gittinger <cg@exept.de> parents: 3028 diff changeset	2143	"parse a methods source.
cdd6a01d55c7 class: Parser Claus Gittinger <cg@exept.de> parents: 3028 diff changeset	2144	Return the method's parseTree"
cdd6a01d55c7 class: Parser Claus Gittinger <cg@exept.de> parents: 3028 diff changeset	2145
cdd6a01d55c7 class: Parser Claus Gittinger <cg@exept.de> parents: 3028 diff changeset	2146	^ self parse:methodSource in:aClass notifying:nil
cdd6a01d55c7 class: Parser Claus Gittinger <cg@exept.de> parents: 3028 diff changeset	2147	! !
cdd6a01d55c7 class: Parser Claus Gittinger <cg@exept.de> parents: 3028 diff changeset	2148
44 74ddc944c27f * empty log message * claus parents: 35 diff changeset	2149	!Parser methodsFor:'accessing'!
74ddc944c27f * empty log message * claus parents: 35 diff changeset	2150
2480 7583adfbb5c1 format Claus Gittinger <cg@exept.de> parents: 2473 diff changeset	2151	allowUndeclaredVariables:aBoolean
7583adfbb5c1 format Claus Gittinger <cg@exept.de> parents: 2473 diff changeset	2152	allowUndeclaredVariables := aBoolean.
7583adfbb5c1 format Claus Gittinger <cg@exept.de> parents: 2473 diff changeset	2153
7583adfbb5c1 format Claus Gittinger <cg@exept.de> parents: 2473 diff changeset	2154	"Modified: / 05-02-2011 / 10:04:41 / cg"
2108 653ffef8aa51 +allowUndeclared flag Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	2155	!
653ffef8aa51 +allowUndeclared flag Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	2156
44 74ddc944c27f * empty log message * claus parents: 35 diff changeset	2157	correctedSource
74ddc944c27f * empty log message * claus parents: 35 diff changeset	2158	^ correctedSource
74ddc944c27f * empty log message * claus parents: 35 diff changeset	2159	!
74ddc944c27f * empty log message * claus parents: 35 diff changeset	2160
3291 6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	2161	currentSource
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	2162	"return either the corrected or the requestors original source"
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	2163
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	2164	correctedSource notNil ifTrue:[
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	2165	^ correctedSource
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	2166	].
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	2167	^ requestor currentSourceCode
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	2168	!
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	2169
1605 9c50ef665ee9 changes to allow for kludge-environments Claus Gittinger <cg@exept.de> parents: 1604 diff changeset	2170	doItTemporaries
9c50ef665ee9 changes to allow for kludge-environments Claus Gittinger <cg@exept.de> parents: 1604 diff changeset	2171	^ doItTemporaries
9c50ef665ee9 changes to allow for kludge-environments Claus Gittinger <cg@exept.de> parents: 1604 diff changeset	2172	!
9c50ef665ee9 changes to allow for kludge-environments Claus Gittinger <cg@exept.de> parents: 1604 diff changeset	2173
1581 a2a4645fe3b8 keep endOfSelectorSpec and begonOfBody separate Claus Gittinger <cg@exept.de> parents: 1579 diff changeset	2174	endOfLastToken
a2a4645fe3b8 keep endOfSelectorSpec and begonOfBody separate Claus Gittinger <cg@exept.de> parents: 1579 diff changeset	2175	^ tokenPosition
a2a4645fe3b8 keep endOfSelectorSpec and begonOfBody separate Claus Gittinger <cg@exept.de> parents: 1579 diff changeset	2176	!
a2a4645fe3b8 keep endOfSelectorSpec and begonOfBody separate Claus Gittinger <cg@exept.de> parents: 1579 diff changeset	2177
a2a4645fe3b8 keep endOfSelectorSpec and begonOfBody separate Claus Gittinger <cg@exept.de> parents: 1579 diff changeset	2178	endOfSelectorPosition
a2a4645fe3b8 keep endOfSelectorSpec and begonOfBody separate Claus Gittinger <cg@exept.de> parents: 1579 diff changeset	2179	"return the sourcePosition of the last character of the methods selector spec"
a2a4645fe3b8 keep endOfSelectorSpec and begonOfBody separate Claus Gittinger <cg@exept.de> parents: 1579 diff changeset	2180
a2a4645fe3b8 keep endOfSelectorSpec and begonOfBody separate Claus Gittinger <cg@exept.de> parents: 1579 diff changeset	2181	^ endOfSelectorPosition
a2a4645fe3b8 keep endOfSelectorSpec and begonOfBody separate Claus Gittinger <cg@exept.de> parents: 1579 diff changeset	2182	!
a2a4645fe3b8 keep endOfSelectorSpec and begonOfBody separate Claus Gittinger <cg@exept.de> parents: 1579 diff changeset	2183
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	2184	errorFlag
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	2185	"return true if there where any errors (valid after parsing)"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	2186
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	2187	^ errorFlag
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	2188	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	2189
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	2190	evalExitBlock:aBlock
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	2191	"when evaluating a return expression, this block is evaluated"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	2192
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	2193	evalExitBlock := aBlock
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	2194	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	2195
427 3d6a4d002824 pass remembered nameSpace back from upQueries Claus Gittinger <cg@exept.de> parents: 424 diff changeset	2196	getNameSpace
3d6a4d002824 pass remembered nameSpace back from upQueries Claus Gittinger <cg@exept.de> parents: 424 diff changeset	2197	"retrieve the nameSpace, as found in a Namespace directive"
3d6a4d002824 pass remembered nameSpace back from upQueries Claus Gittinger <cg@exept.de> parents: 424 diff changeset	2198
3d6a4d002824 pass remembered nameSpace back from upQueries Claus Gittinger <cg@exept.de> parents: 424 diff changeset	2199	^ currentNamespace
3d6a4d002824 pass remembered nameSpace back from upQueries Claus Gittinger <cg@exept.de> parents: 424 diff changeset	2200
3d6a4d002824 pass remembered nameSpace back from upQueries Claus Gittinger <cg@exept.de> parents: 424 diff changeset	2201	"Modified: 8.11.1996 / 13:45:35 / cg"
3d6a4d002824 pass remembered nameSpace back from upQueries Claus Gittinger <cg@exept.de> parents: 424 diff changeset	2202	!
3d6a4d002824 pass remembered nameSpace back from upQueries Claus Gittinger <cg@exept.de> parents: 424 diff changeset	2203
1636 98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	2204	implicitSelfSends
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	2205	^ parserFlags implicitSelfSends
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	2206	!
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	2207
1571 1b49d2313067 +implicitSelfSends Claus Gittinger <cg@exept.de> parents: 1570 diff changeset	2208	implicitSelfSends:aBoolean
1b49d2313067 +implicitSelfSends Claus Gittinger <cg@exept.de> parents: 1570 diff changeset	2209	"turn on/off implicit self sends"
1b49d2313067 +implicitSelfSends Claus Gittinger <cg@exept.de> parents: 1570 diff changeset	2210
1636 98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	2211	parserFlags implicitSelfSends:aBoolean
1571 1b49d2313067 +implicitSelfSends Claus Gittinger <cg@exept.de> parents: 1570 diff changeset	2212	!
1b49d2313067 +implicitSelfSends Claus Gittinger <cg@exept.de> parents: 1570 diff changeset	2213
2416 3afacf164fae scripting service support Claus Gittinger <cg@exept.de> parents: 2413 diff changeset	2214	interactiveMode:aBoolean
3afacf164fae scripting service support Claus Gittinger <cg@exept.de> parents: 2413 diff changeset	2215	"support for stx-scripting service"
3afacf164fae scripting service support Claus Gittinger <cg@exept.de> parents: 2413 diff changeset	2216
3afacf164fae scripting service support Claus Gittinger <cg@exept.de> parents: 2413 diff changeset	2217	interactiveMode := aBoolean.
3afacf164fae scripting service support Claus Gittinger <cg@exept.de> parents: 2413 diff changeset	2218
3afacf164fae scripting service support Claus Gittinger <cg@exept.de> parents: 2413 diff changeset	2219	"Modified: / 04-08-2010 / 11:16:20 / cg"
3afacf164fae scripting service support Claus Gittinger <cg@exept.de> parents: 2413 diff changeset	2220	!
3afacf164fae scripting service support Claus Gittinger <cg@exept.de> parents: 2413 diff changeset	2221
2928 6479e1be24b3 lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	2222	lineNumberInfo
6479e1be24b3 lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	2223	<resource: #obsolete>
6479e1be24b3 lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	2224
6479e1be24b3 lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	2225	^ parserFlags lineNumberInfo
6479e1be24b3 lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	2226
6479e1be24b3 lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	2227	"Created: / 21-10-1996 / 17:06:16 / cg"
6479e1be24b3 lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	2228	!
6479e1be24b3 lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	2229
6479e1be24b3 lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	2230	lineNumberInfo:how
6479e1be24b3 lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	2231	<resource: #obsolete>
6479e1be24b3 lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	2232
6479e1be24b3 lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	2233	parserFlags lineNumberInfo: how
6479e1be24b3 lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	2234
6479e1be24b3 lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	2235	"Created: / 23-10-1996 / 15:39:43 / cg"
6479e1be24b3 lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	2236	!
6479e1be24b3 lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	2237
2063 c4c1a547548d sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 2062 diff changeset	2238	moreSharedPools
c4c1a547548d sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 2062 diff changeset	2239	^ moreSharedPools
c4c1a547548d sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 2062 diff changeset	2240	!
c4c1a547548d sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 2062 diff changeset	2241
2062 c37a1f2d69a5 moreSharedPools Claus Gittinger <cg@exept.de> parents: 2060 diff changeset	2242	moreSharedPools:aCollection
c37a1f2d69a5 moreSharedPools Claus Gittinger <cg@exept.de> parents: 2060 diff changeset	2243	moreSharedPools := aCollection
c37a1f2d69a5 moreSharedPools Claus Gittinger <cg@exept.de> parents: 2060 diff changeset	2244	!
c37a1f2d69a5 moreSharedPools Claus Gittinger <cg@exept.de> parents: 2060 diff changeset	2245
19 84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	2246	primitiveNumber
84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	2247	"return the ST-80 style primitiveNumber or nil (valid after parsing)"
84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	2248
84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	2249	^ primitiveNr
480 e4ac7e62ca9a better block-var name detection in debugger Claus Gittinger <cg@exept.de> parents: 473 diff changeset	2250	!
97 3b0d380771e9 . claus parents: 96 diff changeset	2251
285 19e8d6d22278 allow multiple resource definitions Claus Gittinger <cg@exept.de> parents: 273 diff changeset	2252	primitiveResources
19e8d6d22278 allow multiple resource definitions Claus Gittinger <cg@exept.de> parents: 273 diff changeset	2253	"return the ST-80 style resource info or nil (valid after parsing)."
19e8d6d22278 allow multiple resource definitions Claus Gittinger <cg@exept.de> parents: 273 diff changeset	2254
19e8d6d22278 allow multiple resource definitions Claus Gittinger <cg@exept.de> parents: 273 diff changeset	2255	^ primitiveResource
19e8d6d22278 allow multiple resource definitions Claus Gittinger <cg@exept.de> parents: 273 diff changeset	2256
19e8d6d22278 allow multiple resource definitions Claus Gittinger <cg@exept.de> parents: 273 diff changeset	2257	"Created: 29.5.1996 / 17:28:00 / cg"
19e8d6d22278 allow multiple resource definitions Claus Gittinger <cg@exept.de> parents: 273 diff changeset	2258	!
19e8d6d22278 allow multiple resource definitions Claus Gittinger <cg@exept.de> parents: 273 diff changeset	2259
35 2884eed75e2a logging doits. claus parents: 23 diff changeset	2260	release
664 63d1460e8ee3 checkin from browser Claus Gittinger <cg@exept.de> parents: 663 diff changeset	2261	methodArgs := methodVars := tree := selfNode := superNode := nilNode := nil.
35 2884eed75e2a logging doits. claus parents: 23 diff changeset	2262	super release.
664 63d1460e8ee3 checkin from browser Claus Gittinger <cg@exept.de> parents: 663 diff changeset	2263
63d1460e8ee3 checkin from browser Claus Gittinger <cg@exept.de> parents: 663 diff changeset	2264	"Modified: / 31.3.1998 / 19:45:58 / cg"
90 e1b3f76d2730 . claus parents: 87 diff changeset	2265	!
e1b3f76d2730 . claus parents: 87 diff changeset	2266
427 3d6a4d002824 pass remembered nameSpace back from upQueries Claus Gittinger <cg@exept.de> parents: 424 diff changeset	2267	setNameSpace:aNameSpaceName
2970 e2159f9de126 removed an obsolete method Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	2268	"sent from a namespace directive, if there is no requestor.
e2159f9de126 removed an obsolete method Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	2269	Remember the current namespace."
e2159f9de126 removed an obsolete method Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	2270
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	2271	currentNamespace := aNameSpaceName isString
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2272	ifTrue:[ NameSpace fullName:aNameSpaceName ]
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2273	ifFalse:[ aNameSpaceName ].
427 3d6a4d002824 pass remembered nameSpace back from upQueries Claus Gittinger <cg@exept.de> parents: 424 diff changeset	2274
3d6a4d002824 pass remembered nameSpace back from upQueries Claus Gittinger <cg@exept.de> parents: 424 diff changeset	2275	"Modified: 8.11.1996 / 13:43:14 / cg"
3d6a4d002824 pass remembered nameSpace back from upQueries Claus Gittinger <cg@exept.de> parents: 424 diff changeset	2276	!
3d6a4d002824 pass remembered nameSpace back from upQueries Claus Gittinger <cg@exept.de> parents: 424 diff changeset	2277
1247 ce0d19140248 care for package directive (remember) Claus Gittinger <cg@exept.de> parents: 1246 diff changeset	2278	setPackage:aPackageID
ce0d19140248 care for package directive (remember) Claus Gittinger <cg@exept.de> parents: 1246 diff changeset	2279	currentPackage := aPackageID
ce0d19140248 care for package directive (remember) Claus Gittinger <cg@exept.de> parents: 1246 diff changeset	2280	!
ce0d19140248 care for package directive (remember) Claus Gittinger <cg@exept.de> parents: 1246 diff changeset	2281
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	2282	targetClass
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	2283	^ classToCompileFor
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	2284	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	2285
90 e1b3f76d2730 . claus parents: 87 diff changeset	2286	targetClass:aClass
117 3736a828cb50 . claus parents: 103 diff changeset	2287	classToCompileFor := aClass
3736a828cb50 . claus parents: 103 diff changeset	2288	!
3736a828cb50 . claus parents: 103 diff changeset	2289
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	2290	tree
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	2291	"return the parsetree"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	2292
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	2293	^tree
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	2294	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	2295
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	2296	tree:aTree
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	2297	"private: set the tree - for internal use only"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	2298
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	2299	tree := aTree
1363 2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	2300	!
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	2301
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	2302	warnSTXHereExtensionUsed
1636 98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	2303	^ parserFlags warnSTXHereExtensionUsed
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	2304	!
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	2305
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	2306	warnSTXHereExtensionUsed:aBoolean
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	2307	parserFlags warnSTXHereExtensionUsed:aBoolean
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	2308	! !
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	2309
2356 db41cf4d0ed7 added: #messageNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2353 diff changeset	2310	!Parser methodsFor:'code generation hooks'!
db41cf4d0ed7 added: #messageNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2353 diff changeset	2311
2713 8743af4e0968 added: Claus Gittinger <cg@exept.de> parents: 2699 diff changeset	2312	assignmentRewriteHookFor:anAssignmentNode
8743af4e0968 added: Claus Gittinger <cg@exept.de> parents: 2699 diff changeset	2313	"invoked whenever an assignment node has been generated;
8743af4e0968 added: Claus Gittinger <cg@exept.de> parents: 2699 diff changeset	2314	gives subclasses a chance to rewrite (instrument) it"
8743af4e0968 added: Claus Gittinger <cg@exept.de> parents: 2699 diff changeset	2315
8743af4e0968 added: Claus Gittinger <cg@exept.de> parents: 2699 diff changeset	2316	^ anAssignmentNode
8743af4e0968 added: Claus Gittinger <cg@exept.de> parents: 2699 diff changeset	2317
8743af4e0968 added: Claus Gittinger <cg@exept.de> parents: 2699 diff changeset	2318	"Created: / 30-09-2011 / 12:12:13 / cg"
8743af4e0968 added: Claus Gittinger <cg@exept.de> parents: 2699 diff changeset	2319	!
8743af4e0968 added: Claus Gittinger <cg@exept.de> parents: 2699 diff changeset	2320
2369 d10c7dc3f779 added: #blockNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2356 diff changeset	2321	blockNodeRewriteHookFor:aBlockNode
2713 8743af4e0968 added: Claus Gittinger <cg@exept.de> parents: 2699 diff changeset	2322	"invoked whenever a block node has been generated;
8743af4e0968 added: Claus Gittinger <cg@exept.de> parents: 2699 diff changeset	2323	gives subclasses a chance to rewrite (instrument) it"
8743af4e0968 added: Claus Gittinger <cg@exept.de> parents: 2699 diff changeset	2324
2369 d10c7dc3f779 added: #blockNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2356 diff changeset	2325	^ aBlockNode
d10c7dc3f779 added: #blockNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2356 diff changeset	2326
d10c7dc3f779 added: #blockNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2356 diff changeset	2327	"Created: / 28-04-2010 / 14:18:30 / cg"
d10c7dc3f779 added: #blockNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2356 diff changeset	2328	!
d10c7dc3f779 added: #blockNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2356 diff changeset	2329
2356 db41cf4d0ed7 added: #messageNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2353 diff changeset	2330	messageNodeRewriteHookFor:aMessageNode
2713 8743af4e0968 added: Claus Gittinger <cg@exept.de> parents: 2699 diff changeset	2331	"invoked whenever a message send node has been generated;
8743af4e0968 added: Claus Gittinger <cg@exept.de> parents: 2699 diff changeset	2332	gives subclasses a chance to rewrite (instrument) it"
8743af4e0968 added: Claus Gittinger <cg@exept.de> parents: 2699 diff changeset	2333
2356 db41cf4d0ed7 added: #messageNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2353 diff changeset	2334	^ aMessageNode
db41cf4d0ed7 added: #messageNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2353 diff changeset	2335
db41cf4d0ed7 added: #messageNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2353 diff changeset	2336	"Created: / 27-04-2010 / 11:35:31 / cg"
2386 1661103e3a18 added: #statementListRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2381 diff changeset	2337	!
1661103e3a18 added: #statementListRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2381 diff changeset	2338
1661103e3a18 added: #statementListRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2381 diff changeset	2339	statementListRewriteHookFor:aStatementNode
2713 8743af4e0968 added: Claus Gittinger <cg@exept.de> parents: 2699 diff changeset	2340	"invoked whenever a statement list node has been generated;
8743af4e0968 added: Claus Gittinger <cg@exept.de> parents: 2699 diff changeset	2341	gives subclasses a chance to rewrite (instrument) it"
8743af4e0968 added: Claus Gittinger <cg@exept.de> parents: 2699 diff changeset	2342
2386 1661103e3a18 added: #statementListRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2381 diff changeset	2343	^ aStatementNode
1661103e3a18 added: #statementListRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2381 diff changeset	2344
1661103e3a18 added: #statementListRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2381 diff changeset	2345	"Created: / 28-04-2010 / 14:18:30 / cg"
2713 8743af4e0968 added: Claus Gittinger <cg@exept.de> parents: 2699 diff changeset	2346	!
8743af4e0968 added: Claus Gittinger <cg@exept.de> parents: 2699 diff changeset	2347
8743af4e0968 added: Claus Gittinger <cg@exept.de> parents: 2699 diff changeset	2348	variableReadRewriteHookFor:aVariableNode
8743af4e0968 added: Claus Gittinger <cg@exept.de> parents: 2699 diff changeset	2349	"invoked whenever a variable node has been generated;
8743af4e0968 added: Claus Gittinger <cg@exept.de> parents: 2699 diff changeset	2350	gives subclasses a chance to rewrite (instrument) it"
8743af4e0968 added: Claus Gittinger <cg@exept.de> parents: 2699 diff changeset	2351
8743af4e0968 added: Claus Gittinger <cg@exept.de> parents: 2699 diff changeset	2352	^ aVariableNode
8743af4e0968 added: Claus Gittinger <cg@exept.de> parents: 2699 diff changeset	2353
8743af4e0968 added: Claus Gittinger <cg@exept.de> parents: 2699 diff changeset	2354	"Created: / 30-09-2011 / 12:17:48 / cg"
2356 db41cf4d0ed7 added: #messageNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2353 diff changeset	2355	! !
db41cf4d0ed7 added: #messageNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2353 diff changeset	2356
2085 9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2357	!Parser methodsFor:'coding style checks'!
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2358
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2359	checkBlockArgumentNameConventionsFor:aVariableName
2855 e82a7e290774 changed:7 methods Claus Gittinger <cg@exept.de> parents: 2851 diff changeset	2360	self checkLocalVariableNameConventionsFor:aVariableName.
e82a7e290774 changed:7 methods Claus Gittinger <cg@exept.de> parents: 2851 diff changeset	2361
e82a7e290774 changed:7 methods Claus Gittinger <cg@exept.de> parents: 2851 diff changeset	2362	"Modified: / 16-03-2012 / 18:40:55 / cg"
2085 9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2363	!
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2364
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2365	checkBlockVariableNameConventionsFor:aVariableName
2855 e82a7e290774 changed:7 methods Claus Gittinger <cg@exept.de> parents: 2851 diff changeset	2366	self checkLocalVariableNameConventionsFor:aVariableName.
e82a7e290774 changed:7 methods Claus Gittinger <cg@exept.de> parents: 2851 diff changeset	2367
e82a7e290774 changed:7 methods Claus Gittinger <cg@exept.de> parents: 2851 diff changeset	2368	"Modified: / 16-03-2012 / 18:40:48 / cg"
2085 9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2369	!
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2370
3297 10b0140f855c class: Parser Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	2371	checkBracketParenthesisMistakeInIfOrWhile:aNode from:startPosition to:endPosition
10b0140f855c class: Parser Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	2372	\|sel receiver\|
10b0140f855c class: Parser Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	2373
10b0140f855c class: Parser Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	2374	aNode isMessage ifTrue:[
10b0140f855c class: Parser Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	2375	sel := aNode selector.
10b0140f855c class: Parser Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	2376	receiver := aNode receiver.
10b0140f855c class: Parser Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	2377
10b0140f855c class: Parser Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	2378	(sel = #and: or:[sel = #or:]) ifTrue:[
10b0140f855c class: Parser Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	2379	aNode arg1 isBlock ifFalse:[
10b0140f855c class: Parser Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	2380	(aNode arg1 isVariable
10b0140f855c class: Parser Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	2381	and:[ (aNode arg1 name asLowercase includesString:'block')]) ifFalse:[
10b0140f855c class: Parser Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	2382	self warnCommonMistake:'(possible common mistake) missing block brackets ?'
10b0140f855c class: Parser Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	2383	position:endPosition+1 to:tokenPosition-1
10b0140f855c class: Parser Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	2384	]
10b0140f855c class: Parser Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	2385	].
10b0140f855c class: Parser Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	2386	].
10b0140f855c class: Parser Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	2387
10b0140f855c class: Parser Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	2388	(sel = #whileTrue: or:[sel = #whileFalse:]) ifTrue:[
10b0140f855c class: Parser Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	2389	receiver isBlock ifFalse:[
10b0140f855c class: Parser Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	2390	(receiver isVariable
10b0140f855c class: Parser Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	2391	and:[ (receiver name asLowercase includesString:'block')]) ifFalse:[
10b0140f855c class: Parser Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	2392	self warnCommonMistake:'(possible common mistake) missing block brackets ?'
10b0140f855c class: Parser Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	2393	position:startPosition to:endPosition
10b0140f855c class: Parser Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	2394	]
10b0140f855c class: Parser Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	2395	].
10b0140f855c class: Parser Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	2396	].
10b0140f855c class: Parser Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	2397
10b0140f855c class: Parser Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	2398	(sel = #ifTrue: or:[sel = #ifFalse:]) ifTrue:[
10b0140f855c class: Parser Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	2399	receiver isMessage ifTrue:[
10b0140f855c class: Parser Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	2400	(receiver selector = #whileTrue or:[receiver selector = #whileFalse]) ifTrue:[
10b0140f855c class: Parser Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	2401	self warnCommonMistake:'strange receiver expression'
10b0140f855c class: Parser Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	2402	position:startPosition to:endPosition
10b0140f855c class: Parser Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	2403	].
10b0140f855c class: Parser Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	2404	].
10b0140f855c class: Parser Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	2405	].
10b0140f855c class: Parser Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	2406	].
10b0140f855c class: Parser Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	2407
10b0140f855c class: Parser Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	2408	"Created: / 19-01-2012 / 10:44:05 / cg"
10b0140f855c class: Parser Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	2409	!
10b0140f855c class: Parser Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	2410
2085 9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2411	checkForLowercaseVariableName:aVariableName
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2412	\|msg\|
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2413
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2414	self shouldPerformCodingStyleChecks ifFalse:[^ self ].
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2415
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2416	aVariableName isUppercaseFirst ifTrue:[
3267 2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2417	msg := ('variable "' , aVariableName , '" should be lowercase (by convention)').
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2418	self
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2419	warning:msg
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2420	doNotShowAgainAction:[ ParserFlags warnAboutNonLowercaseLocalVariableNames:false.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2421	parserFlags warnAboutNonLowercaseLocalVariableNames:false.]
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2422	position:tokenPosition to:source position.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2423
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2424	Tools::ToDoListBrowser notNil ifTrue:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2425	self
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2426	notifyTodo:msg position:tokenPosition
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2427	className:(self classToCompileFor name) selector:selector
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2428	severity:#warning priority:#medium
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2429	equalityParameter:nil
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2430	checkAction:nil.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2431	].
2085 9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2432	].
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2433
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2434	"Modified: / 18-10-2006 / 19:38:20 / cg"
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2435	!
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2436
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2437	checkForProperUseOfArticleInVariableName:aVariableName
2207 102a9b844b91 changed #checkForProperUseOfArticleInVariableName: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2438	"heuristic - and wrong !!"
102a9b844b91 changed #checkForProperUseOfArticleInVariableName: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2439
2085 9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2440	\|soundsLikeVowel firstCharacterAfterArticle rest whatShouldItBeNamed msg\|
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2441
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2442	self shouldPerformCodingStyleChecks ifFalse:[^ self ].
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2443
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2444	soundsLikeVowel := [:word \|
3267 2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2445	\|soundsLikeVowel firstCharacter\|
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2446
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2447	soundsLikeVowel := false.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2448	firstCharacter := word first.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2449	('AEIX' includes:firstCharacter) ifTrue:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2450	soundsLikeVowel := true.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2451	] ifFalse:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2452	firstCharacter := word first.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2453	"/ U and H sound like a vowel, if followed by two more non-vowels
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2454
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2455	('UH' includes:firstCharacter) ifTrue:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2456	word size > 2 ifTrue:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2457	(word at:2) isVowel ifFalse:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2458	(word at:3) isVowel ifFalse:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2459	soundsLikeVowel := true.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2460	].
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2461	].
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2462	].
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2463	].
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2464	"/ R sound like a vowel, if followed by a consonant
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2465	('R' includes:firstCharacter) ifTrue:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2466	word size > 2 ifTrue:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2467	(word at:2) isVowel ifFalse:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2468	soundsLikeVowel := true.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2469	].
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2470	].
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2471	].
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2472	"/ O sound like a vowel, if not followed by 'ne'
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2473	('O' includes:firstCharacter) ifTrue:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2474	word size > 2 ifTrue:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2475	(word copyTo:3) asLowercase = 'one' ifFalse:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2476	soundsLikeVowel := true.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2477	].
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2478	].
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2479	].
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2480	"/ S sounds like a vowel, if followed by UC-consonant followed by vocal
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2481	"/ aSBrowser -> anSBrowser
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2482	('S' includes:firstCharacter) ifTrue:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2483	word size > 3 ifTrue:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2484	((word at:2) isVowel not
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2485	and:[ (word at:2) isUppercase
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2486	and:[ (word at:3) isVowel]]) ifTrue:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2487	soundsLikeVowel := true.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2488	].
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2489	].
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2490	].
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2491	"/ M sounds like a vowel, if followed by UC-consonant followed by consonant
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2492	"/ anMC aMA
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2493	('MN' includes:firstCharacter) ifTrue:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2494	word size > 2 ifTrue:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2495	((word at:2) isVowel not
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2496	and:[ (word at:2) isUppercase
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2497	and:[ (word at:3) isVowel not]]) ifTrue:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2498	soundsLikeVowel := true.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2499	].
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2500	].
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2501	].
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2502	].
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2503	soundsLikeVowel.
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	2504	].
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	2505
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	2506	aVariableName size > 4 ifTrue:[
3267 2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2507	(aVariableName startsWith:'an') ifTrue:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2508	firstCharacterAfterArticle := aVariableName at:3.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2509	firstCharacterAfterArticle isUppercase ifTrue:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2510	rest := aVariableName copyFrom:3.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2511	(soundsLikeVowel value:rest) ifFalse:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2512	whatShouldItBeNamed := 'a' , rest.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2513	]
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2514	].
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2515	] ifFalse:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2516	(aVariableName startsWith:'a') ifTrue:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2517	firstCharacterAfterArticle := aVariableName at:2.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2518	firstCharacterAfterArticle isUppercase ifTrue:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2519	rest := aVariableName copyFrom:2.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2520	(soundsLikeVowel value:rest) ifTrue:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2521	whatShouldItBeNamed := 'an' , rest.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2522	].
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2523	].
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2524	].
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2525	].
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2526	whatShouldItBeNamed notNil ifTrue:[
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	2527	"/ self
2085 9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2528	"/ warnCommonMistake:('variable "',aVariableName,'" should be named "',whatShouldItBeNamed,'" (by english language rules)')
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2529	"/ position:tokenPosition to:source position1Based - 1.
3267 2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2530	msg := ('variable "',aVariableName,'" should be named "',whatShouldItBeNamed,'" (by english language rules)').
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2531	self
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2532	warning:msg
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2533	doNotShowAgainAction:[ parserFlags warnAboutWrongVariableNames:false. ParserFlags warnAboutWrongVariableNames:false ]
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2534	doNotShowAgainForThisMethodAction: [ self disableWarningsOnCurrentMethodFor: #warnAboutWrongVariableNames ]
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2535	position:tokenPosition to:source position.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2536
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2537	Tools::ToDoListBrowser notNil ifTrue:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2538	self
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2539	notifyTodo:msg position:tokenPosition
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2540	className:(self classToCompileFor name) selector:selector
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2541	severity:#warning priority:#low
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2542	equalityParameter:nil
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2543	checkAction:nil.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2544	].
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2545	].
2085 9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2546	].
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2547
2855 e82a7e290774 changed:7 methods Claus Gittinger <cg@exept.de> parents: 2851 diff changeset	2548	"Modified: / 16-03-2012 / 18:36:43 / cg"
2085 9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2549	!
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2550
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2551	checkLocalVariableNameConventionsFor:aVariableName
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2552	\|msg\|
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2553
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2554	self shouldPerformCodingStyleChecks ifFalse:[^ self ].
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2555
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2556	parserFlags warnAboutVariableNameConventions == true ifTrue:[
3267 2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2557	parserFlags warnAboutNonLowercaseLocalVariableNames == true ifTrue:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2558	self checkForLowercaseVariableName:aVariableName.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2559	].
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2560	parserFlags warnAboutShortLocalVariableNames == true ifTrue:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2561	aVariableName size <= 2 ifTrue:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2562	(#(
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2563	'x' 'y'
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2564	) includes:aVariableName)
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2565	ifFalse:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2566	msg := ('short variable name: "' , aVariableName , '"').
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2567	self
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2568	warning:('short variable name: "' , aVariableName , '"')
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2569	doNotShowAgainAction:[ ParserFlags warnAboutShortLocalVariableNames:false]
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2570	position:tokenPosition to:source position.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2571
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2572	Tools::ToDoListBrowser notNil ifTrue:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2573	self
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2574	notifyTodo:msg position:tokenPosition
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2575	className:(self classToCompileFor name) selector:selector
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2576	severity:#warning priority:#medium
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2577	equalityParameter:nil
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2578	checkAction:nil.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2579	].
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2580	].
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2581	].
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2582	].
2085 9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2583	].
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2584	parserFlags warnAboutWrongVariableNames == true ifTrue:[
3267 2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2585	(ParserFlags isFlag:#warnAboutWrongVariableNames enabledForClass:classToCompileFor selector:selector) ifTrue:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2586	self checkForProperUseOfArticleInVariableName:aVariableName.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	2587	].
2855 e82a7e290774 changed:7 methods Claus Gittinger <cg@exept.de> parents: 2851 diff changeset	2588	].
e82a7e290774 changed:7 methods Claus Gittinger <cg@exept.de> parents: 2851 diff changeset	2589
e82a7e290774 changed:7 methods Claus Gittinger <cg@exept.de> parents: 2851 diff changeset	2590	"Modified: / 16-03-2012 / 18:42:56 / cg"
2085 9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2591	!
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2592
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2593	checkMethodArgumentNameConventionsFor:aVariableName
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2594	self checkLocalVariableNameConventionsFor:aVariableName.
2855 e82a7e290774 changed:7 methods Claus Gittinger <cg@exept.de> parents: 2851 diff changeset	2595
e82a7e290774 changed:7 methods Claus Gittinger <cg@exept.de> parents: 2851 diff changeset	2596	"Modified: / 16-03-2012 / 18:40:43 / cg"
2085 9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2597	!
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2598
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2599	checkMethodVariableNameConventionsFor:aVariableName
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2600	self checkLocalVariableNameConventionsFor:aVariableName.
2855 e82a7e290774 changed:7 methods Claus Gittinger <cg@exept.de> parents: 2851 diff changeset	2601
e82a7e290774 changed:7 methods Claus Gittinger <cg@exept.de> parents: 2851 diff changeset	2602	"Modified: / 16-03-2012 / 18:40:37 / cg"
2085 9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2603	!
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2604
2788 0282ad201349 refactored checkPlausibilityOf:from:to: Claus Gittinger <cg@exept.de> parents: 2765 diff changeset	2605	checkPlausibilityOf:aNode from:startPosition to:endPosition
3297 10b0140f855c class: Parser Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	2606	\|note fixes\|
2788 0282ad201349 refactored checkPlausibilityOf:from:to: Claus Gittinger <cg@exept.de> parents: 2765 diff changeset	2607
2844 06e3589eda2d changed: #checkPlausibilityOf:from:to: Claus Gittinger <cg@exept.de> parents: 2832 diff changeset	2608	(ignoreErrors or:[ignoreWarnings]) ifTrue:[^ self].
06e3589eda2d changed: #checkPlausibilityOf:from:to: Claus Gittinger <cg@exept.de> parents: 2832 diff changeset	2609	parserFlags warnPlausibilityChecks ifFalse:[^ self].
06e3589eda2d changed: #checkPlausibilityOf:from:to: Claus Gittinger <cg@exept.de> parents: 2832 diff changeset	2610	(ParserFlags isFlag:#warnPlausibilityChecks enabledForClass:classToCompileFor selector:selector) ifFalse:[^ self].
06e3589eda2d changed: #checkPlausibilityOf:from:to: Claus Gittinger <cg@exept.de> parents: 2832 diff changeset	2611
06e3589eda2d changed: #checkPlausibilityOf:from:to: Claus Gittinger <cg@exept.de> parents: 2832 diff changeset	2612	note := self plausibilityCheck:aNode.
06e3589eda2d changed: #checkPlausibilityOf:from:to: Claus Gittinger <cg@exept.de> parents: 2832 diff changeset	2613	note notNil ifTrue:[
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	2614	"/ this is a hack (which I dont like)
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	2615	(note includesString:'missing ''.''') ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	2616	fixes := { CorrectByInsertingPeriod }
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	2617	] ifFalse:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	2618	fixes := Parser possibleCorrectionsQuery basicNew defaultResumeValue
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	2619	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	2620	PossibleCorrectionsQuery answer:fixes
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	2621	do:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	2622	\|fix\|
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	2623
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	2624	fix:= self
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	2625	correctableWarning:('Plausibility Check\' withCRs, note)
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	2626	doNotShowAgainAction:[ parserFlags warnPlausibilityChecks:false. ParserFlags warnPlausibilityChecks:false ]
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	2627	doNotShowAgainForThisMethodAction: [ self disableWarningsOnCurrentMethodFor: #warnPlausibilityChecks ]
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	2628	position:startPosition to:endPosition.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	2629	fix isBehavior ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	2630	self correctWith:(fix new positionOfPeriod:aNode receiver endPosition) from:startPosition to:endPosition.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	2631	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	2632	].
2788 0282ad201349 refactored checkPlausibilityOf:from:to: Claus Gittinger <cg@exept.de> parents: 2765 diff changeset	2633	].
0282ad201349 refactored checkPlausibilityOf:from:to: Claus Gittinger <cg@exept.de> parents: 2765 diff changeset	2634
3289 81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	2635	aNode isMessage ifTrue:[
3297 10b0140f855c class: Parser Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	2636	self checkBracketParenthesisMistakeInIfOrWhile:aNode from:startPosition to:endPosition
3289 81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	2637	].
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	2638
2788 0282ad201349 refactored checkPlausibilityOf:from:to: Claus Gittinger <cg@exept.de> parents: 2765 diff changeset	2639	"Created: / 19-01-2012 / 10:44:05 / cg"
0282ad201349 refactored checkPlausibilityOf:from:to: Claus Gittinger <cg@exept.de> parents: 2765 diff changeset	2640	!
0282ad201349 refactored checkPlausibilityOf:from:to: Claus Gittinger <cg@exept.de> parents: 2765 diff changeset	2641
2085 9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2642	checkReturnedValues
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2643	\| returnsSelf returnsBoolean returnsNonBooleanLiteral\|
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2644
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2645	self shouldPerformCodingStyleChecks ifFalse:[^ self ].
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2646	parserFlags warnInconsistentReturnValues ifFalse:[^ self].
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2647	returnedValues isNil ifTrue:[^ self].
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2648
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2649	returnsBoolean := returnedValues contains:[:node \| node isConstant and:[node value isBoolean]].
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2650	returnsNonBooleanLiteral := returnedValues contains:[:node \| node isConstant and:[node value isBoolean not]].
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2651	returnsSelf := returnedValues contains:[:node \| node isSelf].
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2652
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2653	returnsBoolean ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2654	(returnsNonBooleanLiteral or:[returnsSelf]) ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2655	self
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2656	warning:'Possible Error Warning:\\Method returns both boolean and non-boolean values.' withCRs
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2657	doNotShowAgainAction:[ ParserFlags warnInconsistentReturnValues:false ]
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2658	position:1 to:tokenPosition
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2659	]
2085 9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2660	].
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2661
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2662	"Created: / 17.11.2001 / 10:31:03 / cg"
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2663	"Modified: / 17.11.2001 / 10:34:16 / cg"
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2664	!
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2665
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2666	checkSelector:selector for:receiver inClass:cls
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2667	"check whether a method with selector exists in class cls and
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2668	that the method is not obsolete.
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2669	If cls is nil, check all classes for the selector.
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2670	Return an error string on error or nil on success"
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2671
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2672	\|err mthd implementor implementors allowed\|
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2673
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2674	self shouldPerformCodingStyleChecks ifFalse:[^ nil ].
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2675
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2676	cls isNil ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2677	SystemBrowser isNil ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2678	^ nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2679	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2680	"beware, this is sort of slow, especially for the SyntaxHighlighter"
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2681	implementors := SystemBrowser
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2682	findImplementorsOf:selector
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2683	in:(Smalltalk allClasses)
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2684	ignoreCase:false.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2685	implementors size == 0 ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2686	^ 'is nowhere implemented'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2687	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2688
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2689	(implementors conform:[:eachMethod\| eachMethod isObsolete]) ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2690	^ 'every implementation of this selector in the system is deprecated'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2691	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2692	^ nil
2085 9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2693	].
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2694
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2695	mthd := cls lookupMethodFor:selector.
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2696	mthd isNil ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2697	cls isBehavior ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2698	cls isMeta ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2699	mthd := Metaclass lookupMethodFor:selector.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2700	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2701	].
2085 9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2702	].
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2703
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2704	mthd isNil ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2705	cls == Boolean ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2706	mthd := True compiledMethodAt:selector.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2707	mthd isNil ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2708	mthd := False compiledMethodAt:selector.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2709	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2710	]
2085 9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2711	].
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2712	mthd isNil ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2713	"if it implements #doesNotUnderstand somewhere, assume it is ok"
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2714	implementor := cls whichClassIncludesSelector:#doesNotUnderstand:.
2085 9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2715	"/ (implementor isNil or:[implementor == Object]) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2716	err := 'is not implemented in ' , cls name allBold
2085 9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2717	"/ ].
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2718	] ifFalse:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2719	(mthd sends:#shouldNotImplement) ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2720	mthd messagesSent size == 1 ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2721	allowed := (cls == classToCompileFor). "methods in abstract classes may send messages to abstract methods in the same class"
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2722	allowed ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2723	err := 'is not (should not be) implemented'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2724	]
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2725	]
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2726	] ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2727	((mthd sends:#subclassResponsibility) or:[ mthd sends:#subclassResponsibility: ]) ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2728	allowed := (cls == classToCompileFor). "methods in abstract classes may send messages to abstract methods in the same class"
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2729	allowed ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2730	"methods in abstract classes may send messages to abstract methods in meta class"
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2731	(cls == classToCompileFor class) ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2732	allowed := receiver isMessage and:[receiver selector = 'class']
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2733	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2734	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2735	allowed ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2736	"/ not from cg to stefan: thats wrong - if not implemented in all subclasses,
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2737	"/ its a bug of the subclass not a bug here - that message send here
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2738	"/ is perfectly correct. (it is very annoying for a framework developped to get
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2739	"/ error messages for bugs which are not his...
2085 9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2740	"/ (self checkIfAllSubclassesOf:cls implement:selector) ifFalse:[
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2741	"/ "if not all subclasses implement the selector - this is a possible bug"
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2742	"/ allowed := false
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2743	"/ ].
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2744	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2745	allowed ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2746	err := 'is subclassResponsibility'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2747	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2748	] ifFalse:[mthd isObsolete ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2749	err := 'is deprecated'.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2750	]]
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2751	].
2085 9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2752	].
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2753	^ err.
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2754	!
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2755
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2756	checkUnusedMethodVars
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2757	\| unused\|
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2758
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2759	self shouldPerformCodingStyleChecks ifFalse:[^ self ].
2406 3bc8b4e5e269 changed: Claus Gittinger <cg@exept.de> parents: 2404 diff changeset	2760	parserFlags warnUnusedVars ifFalse:[^ self].
2085 9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2761
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2762	methodVars notNil ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2763	unused := methodVars select:[:var\| var used ~~ true] thenCollect:[:var\| var name].
2085 9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2764	].
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2765	unused size > 0 ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2766	self warnUnused:unused.
2085 9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2767	].
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2768
2406 3bc8b4e5e269 changed: Claus Gittinger <cg@exept.de> parents: 2404 diff changeset	2769	"Created: / 17-11-2001 / 10:23:47 / cg"
3bc8b4e5e269 changed: Claus Gittinger <cg@exept.de> parents: 2404 diff changeset	2770	"Modified: / 07-07-2010 / 15:48:24 / cg"
2085 9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2771	! !
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	2772
1418 4aae7d34124a method category rename Claus Gittinger <cg@exept.de> parents: 1417 diff changeset	2773	!Parser methodsFor:'dummy-syntax detection'!
660 f68ddffc6921 support for syntaxHighlighting Claus Gittinger <cg@exept.de> parents: 647 diff changeset	2774
f68ddffc6921 support for syntaxHighlighting Claus Gittinger <cg@exept.de> parents: 647 diff changeset	2775	markArgumentIdentifierFrom:pos1 to:pos2
1525 fefc1f7fd071 * empty log message * ca parents: 1524 diff changeset	2776	"intentionally left empty"
660 f68ddffc6921 support for syntaxHighlighting Claus Gittinger <cg@exept.de> parents: 647 diff changeset	2777	!
f68ddffc6921 support for syntaxHighlighting Claus Gittinger <cg@exept.de> parents: 647 diff changeset	2778
2812 2e472a6a134f added: #markAssignedVariable:from:to: Claus Gittinger <cg@exept.de> parents: 2810 diff changeset	2779	markAssignedVariable:v from:pos1 to:pos2
2e472a6a134f added: #markAssignedVariable:from:to: Claus Gittinger <cg@exept.de> parents: 2810 diff changeset	2780	"intentionally left empty"
2e472a6a134f added: #markAssignedVariable:from:to: Claus Gittinger <cg@exept.de> parents: 2810 diff changeset	2781
2e472a6a134f added: #markAssignedVariable:from:to: Claus Gittinger <cg@exept.de> parents: 2810 diff changeset	2782	"Created: / 13-02-2012 / 11:40:36 / cg"
2e472a6a134f added: #markAssignedVariable:from:to: Claus Gittinger <cg@exept.de> parents: 2810 diff changeset	2783	!
2e472a6a134f added: #markAssignedVariable:from:to: Claus Gittinger <cg@exept.de> parents: 2810 diff changeset	2784
883 e595802b4853 mark badIdentifiers Claus Gittinger <cg@exept.de> parents: 879 diff changeset	2785	markBadIdentifierFrom:pos1 to:pos2
1525 fefc1f7fd071 * empty log message * ca parents: 1524 diff changeset	2786	"intentionally left empty"
883 e595802b4853 mark badIdentifiers Claus Gittinger <cg@exept.de> parents: 879 diff changeset	2787	!
e595802b4853 mark badIdentifiers Claus Gittinger <cg@exept.de> parents: 879 diff changeset	2788
2054 cee21c519bd0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2053 diff changeset	2789	markBlockFrom:startPos to:endPos
cee21c519bd0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2053 diff changeset	2790	"intentionally left empty"
cee21c519bd0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2053 diff changeset	2791
cee21c519bd0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2053 diff changeset	2792	"Created: / 15-01-2008 / 11:51:35 / cg"
cee21c519bd0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2053 diff changeset	2793	!
cee21c519bd0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2053 diff changeset	2794
663 6c6a20f144ea more syntaxHighlighting Claus Gittinger <cg@exept.de> parents: 660 diff changeset	2795	markBooleanConstantFrom:pos1 to:pos2
1525 fefc1f7fd071 * empty log message * ca parents: 1524 diff changeset	2796	"intentionally left empty"
663 6c6a20f144ea more syntaxHighlighting Claus Gittinger <cg@exept.de> parents: 660 diff changeset	2797	!
6c6a20f144ea more syntaxHighlighting Claus Gittinger <cg@exept.de> parents: 660 diff changeset	2798
673 0c66b7cb1d2f checkin from browser ca parents: 672 diff changeset	2799	markBracketAt:pos
1525 fefc1f7fd071 * empty log message * ca parents: 1524 diff changeset	2800	"intentionally left empty"
673 0c66b7cb1d2f checkin from browser ca parents: 672 diff changeset	2801	!
0c66b7cb1d2f checkin from browser ca parents: 672 diff changeset	2802
663 6c6a20f144ea more syntaxHighlighting Claus Gittinger <cg@exept.de> parents: 660 diff changeset	2803	markConstantFrom:pos1 to:pos2
1525 fefc1f7fd071 * empty log message * ca parents: 1524 diff changeset	2804	"intentionally left empty"
663 6c6a20f144ea more syntaxHighlighting Claus Gittinger <cg@exept.de> parents: 660 diff changeset	2805	!
6c6a20f144ea more syntaxHighlighting Claus Gittinger <cg@exept.de> parents: 660 diff changeset	2806
822 a773bb72cbd6 added extra globalClassIdentifierColor & emphasis Claus Gittinger <cg@exept.de> parents: 815 diff changeset	2807	markGlobalClassIdentifierFrom:pos1 to:pos2
1525 fefc1f7fd071 * empty log message * ca parents: 1524 diff changeset	2808	"intentionally left empty"
822 a773bb72cbd6 added extra globalClassIdentifierColor & emphasis Claus Gittinger <cg@exept.de> parents: 815 diff changeset	2809	!
a773bb72cbd6 added extra globalClassIdentifierColor & emphasis Claus Gittinger <cg@exept.de> parents: 815 diff changeset	2810
663 6c6a20f144ea more syntaxHighlighting Claus Gittinger <cg@exept.de> parents: 660 diff changeset	2811	markGlobalIdentifierFrom:pos1 to:pos2
1525 fefc1f7fd071 * empty log message * ca parents: 1524 diff changeset	2812	"intentionally left empty"
663 6c6a20f144ea more syntaxHighlighting Claus Gittinger <cg@exept.de> parents: 660 diff changeset	2813	!
6c6a20f144ea more syntaxHighlighting Claus Gittinger <cg@exept.de> parents: 660 diff changeset	2814
6c6a20f144ea more syntaxHighlighting Claus Gittinger <cg@exept.de> parents: 660 diff changeset	2815	markHereFrom:pos1 to:pos2
1525 fefc1f7fd071 * empty log message * ca parents: 1524 diff changeset	2816	"intentionally left empty"
663 6c6a20f144ea more syntaxHighlighting Claus Gittinger <cg@exept.de> parents: 660 diff changeset	2817	!
6c6a20f144ea more syntaxHighlighting Claus Gittinger <cg@exept.de> parents: 660 diff changeset	2818
6c6a20f144ea more syntaxHighlighting Claus Gittinger <cg@exept.de> parents: 660 diff changeset	2819	markIdentifierFrom:pos1 to:pos2
1525 fefc1f7fd071 * empty log message * ca parents: 1524 diff changeset	2820	"intentionally left empty"
663 6c6a20f144ea more syntaxHighlighting Claus Gittinger <cg@exept.de> parents: 660 diff changeset	2821	!
6c6a20f144ea more syntaxHighlighting Claus Gittinger <cg@exept.de> parents: 660 diff changeset	2822
687 27565829b5d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 685 diff changeset	2823	markInstVarIdentifierFrom:pos1 to:pos2
1525 fefc1f7fd071 * empty log message * ca parents: 1524 diff changeset	2824	"intentionally left empty"
687 27565829b5d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 685 diff changeset	2825	!
27565829b5d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 685 diff changeset	2826
663 6c6a20f144ea more syntaxHighlighting Claus Gittinger <cg@exept.de> parents: 660 diff changeset	2827	markLocalIdentifierFrom:pos1 to:pos2
1525 fefc1f7fd071 * empty log message * ca parents: 1524 diff changeset	2828	"intentionally left empty"
663 6c6a20f144ea more syntaxHighlighting Claus Gittinger <cg@exept.de> parents: 660 diff changeset	2829	!
6c6a20f144ea more syntaxHighlighting Claus Gittinger <cg@exept.de> parents: 660 diff changeset	2830
2671 9a0de515880c added: #markMethodArgumentIdentifierFrom:to: Claus Gittinger <cg@exept.de> parents: 2669 diff changeset	2831	markMethodArgumentIdentifierFrom:pos1 to:pos2
9a0de515880c added: #markMethodArgumentIdentifierFrom:to: Claus Gittinger <cg@exept.de> parents: 2669 diff changeset	2832	self markArgumentIdentifierFrom:pos1 to:pos2
9a0de515880c added: #markMethodArgumentIdentifierFrom:to: Claus Gittinger <cg@exept.de> parents: 2669 diff changeset	2833
9a0de515880c added: #markMethodArgumentIdentifierFrom:to: Claus Gittinger <cg@exept.de> parents: 2669 diff changeset	2834	"Created: / 21-08-2011 / 08:11:46 / cg"
9a0de515880c added: #markMethodArgumentIdentifierFrom:to: Claus Gittinger <cg@exept.de> parents: 2669 diff changeset	2835	!
9a0de515880c added: #markMethodArgumentIdentifierFrom:to: Claus Gittinger <cg@exept.de> parents: 2669 diff changeset	2836
663 6c6a20f144ea more syntaxHighlighting Claus Gittinger <cg@exept.de> parents: 660 diff changeset	2837	markMethodSelectorFrom:pos1 to:pos2
1525 fefc1f7fd071 * empty log message * ca parents: 1524 diff changeset	2838	"intentionally left empty"
663 6c6a20f144ea more syntaxHighlighting Claus Gittinger <cg@exept.de> parents: 660 diff changeset	2839	!
6c6a20f144ea more syntaxHighlighting Claus Gittinger <cg@exept.de> parents: 660 diff changeset	2840
1640 261459ccc704 emphasize parenthesis nesting Claus Gittinger <cg@exept.de> parents: 1638 diff changeset	2841	markParenthesisAt:pos
261459ccc704 emphasize parenthesis nesting Claus Gittinger <cg@exept.de> parents: 1638 diff changeset	2842	"intentionally left empty"
261459ccc704 emphasize parenthesis nesting Claus Gittinger <cg@exept.de> parents: 1638 diff changeset	2843	!
261459ccc704 emphasize parenthesis nesting Claus Gittinger <cg@exept.de> parents: 1638 diff changeset	2844
837 b09e08bb3d5e checkin from browser Claus Gittinger <cg@exept.de> parents: 832 diff changeset	2845	markReturnAt:pos
1525 fefc1f7fd071 * empty log message * ca parents: 1524 diff changeset	2846	"intentionally left empty"
837 b09e08bb3d5e checkin from browser Claus Gittinger <cg@exept.de> parents: 832 diff changeset	2847	!
b09e08bb3d5e checkin from browser Claus Gittinger <cg@exept.de> parents: 832 diff changeset	2848
864 a716d90fa5a9 better selector marking Claus Gittinger <cg@exept.de> parents: 837 diff changeset	2849	markSelector:sel from:pos1 to:pos2 receiverNode:aNode
1525 fefc1f7fd071 * empty log message * ca parents: 1524 diff changeset	2850	"intentionally left empty"
864 a716d90fa5a9 better selector marking Claus Gittinger <cg@exept.de> parents: 837 diff changeset	2851	!
a716d90fa5a9 better selector marking Claus Gittinger <cg@exept.de> parents: 837 diff changeset	2852
663 6c6a20f144ea more syntaxHighlighting Claus Gittinger <cg@exept.de> parents: 660 diff changeset	2853	markSelfFrom:pos1 to:pos2
1525 fefc1f7fd071 * empty log message * ca parents: 1524 diff changeset	2854	"intentionally left empty"
663 6c6a20f144ea more syntaxHighlighting Claus Gittinger <cg@exept.de> parents: 660 diff changeset	2855	!
6c6a20f144ea more syntaxHighlighting Claus Gittinger <cg@exept.de> parents: 660 diff changeset	2856
6c6a20f144ea more syntaxHighlighting Claus Gittinger <cg@exept.de> parents: 660 diff changeset	2857	markSuperFrom:pos1 to:pos2
1525 fefc1f7fd071 * empty log message * ca parents: 1524 diff changeset	2858	"intentionally left empty"
664 63d1460e8ee3 checkin from browser Claus Gittinger <cg@exept.de> parents: 663 diff changeset	2859	!
63d1460e8ee3 checkin from browser Claus Gittinger <cg@exept.de> parents: 663 diff changeset	2860
63d1460e8ee3 checkin from browser Claus Gittinger <cg@exept.de> parents: 663 diff changeset	2861	markUnknownIdentifierFrom:pos1 to:pos2
1525 fefc1f7fd071 * empty log message * ca parents: 1524 diff changeset	2862	"intentionally left empty"
687 27565829b5d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 685 diff changeset	2863	!
27565829b5d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 685 diff changeset	2864
27565829b5d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 685 diff changeset	2865	markVariable:v
1525 fefc1f7fd071 * empty log message * ca parents: 1524 diff changeset	2866	"intentionally left empty"
687 27565829b5d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 685 diff changeset	2867	!
27565829b5d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 685 diff changeset	2868
3188 cb84ffe12163 class: Parser Claus Gittinger <cg@exept.de> parents: 3185 diff changeset	2869	markVariable:v from:pos to:endPos
cb84ffe12163 class: Parser Claus Gittinger <cg@exept.de> parents: 3185 diff changeset	2870	"intentionally left empty"
cb84ffe12163 class: Parser Claus Gittinger <cg@exept.de> parents: 3185 diff changeset	2871	!
cb84ffe12163 class: Parser Claus Gittinger <cg@exept.de> parents: 3185 diff changeset	2872
cb84ffe12163 class: Parser Claus Gittinger <cg@exept.de> parents: 3185 diff changeset	2873	markVariable:v from:pos to:endPos assigned:assigned
1525 fefc1f7fd071 * empty log message * ca parents: 1524 diff changeset	2874	"intentionally left empty"
660 f68ddffc6921 support for syntaxHighlighting Claus Gittinger <cg@exept.de> parents: 647 diff changeset	2875	! !
f68ddffc6921 support for syntaxHighlighting Claus Gittinger <cg@exept.de> parents: 647 diff changeset	2876
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	2877	!Parser methodsFor:'error correction'!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	2878
1295 8d3e193bb30d experimental lazyValues Claus Gittinger <cg@exept.de> parents: 1286 diff changeset	2879	addDoItTemporary:varName
8d3e193bb30d experimental lazyValues Claus Gittinger <cg@exept.de> parents: 1286 diff changeset	2880	\|holder\|
8d3e193bb30d experimental lazyValues Claus Gittinger <cg@exept.de> parents: 1286 diff changeset	2881
8d3e193bb30d experimental lazyValues Claus Gittinger <cg@exept.de> parents: 1286 diff changeset	2882	doItTemporaries isNil ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2883	doItTemporaries := IdentityDictionary new.
1295 8d3e193bb30d experimental lazyValues Claus Gittinger <cg@exept.de> parents: 1286 diff changeset	2884	].
8d3e193bb30d experimental lazyValues Claus Gittinger <cg@exept.de> parents: 1286 diff changeset	2885	doItTemporaries at:varName asSymbol put:(holder := ValueHolder new).
8d3e193bb30d experimental lazyValues Claus Gittinger <cg@exept.de> parents: 1286 diff changeset	2886	^ holder
8d3e193bb30d experimental lazyValues Claus Gittinger <cg@exept.de> parents: 1286 diff changeset	2887	!
8d3e193bb30d experimental lazyValues Claus Gittinger <cg@exept.de> parents: 1286 diff changeset	2888
2093 b6b27c9c4d26 remember already warned unimplemented selectors; Claus Gittinger <cg@exept.de> parents: 2090 diff changeset	2889	alreadyWarnedUnimplementedSelectors
b6b27c9c4d26 remember already warned unimplemented selectors; Claus Gittinger <cg@exept.de> parents: 2090 diff changeset	2890	alreadyWarnedUnimplementedSelectors isNil ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2891	alreadyWarnedUnimplementedSelectors := Set new
2093 b6b27c9c4d26 remember already warned unimplemented selectors; Claus Gittinger <cg@exept.de> parents: 2090 diff changeset	2892	].
b6b27c9c4d26 remember already warned unimplemented selectors; Claus Gittinger <cg@exept.de> parents: 2090 diff changeset	2893	^ alreadyWarnedUnimplementedSelectors
b6b27c9c4d26 remember already warned unimplemented selectors; Claus Gittinger <cg@exept.de> parents: 2090 diff changeset	2894	!
b6b27c9c4d26 remember already warned unimplemented selectors; Claus Gittinger <cg@exept.de> parents: 2090 diff changeset	2895
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	2896	askForCorrection:aString fromList:aList
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	2897	"launch a selection box, which allows user to enter correction.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	2898	return newString or nil (for abort)"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	2899
1323 34b29c93134b fixed correct for doits Claus Gittinger <cg@exept.de> parents: 1322 diff changeset	2900	\|box rslt\|
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	2901
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	2902	"in systems without widgets ..."
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	2903	ListSelectionBox isNil ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	2904	^ self confirm:aString
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	2905	].
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	2906	box := ListSelectionBox title:aString.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	2907	box initialText:(aList at:1).
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	2908	box list:aList.
1285 32af9747bf9d error messages Claus Gittinger <cg@exept.de> parents: 1282 diff changeset	2909	box okText:'Correct'.
1323 34b29c93134b fixed correct for doits Claus Gittinger <cg@exept.de> parents: 1322 diff changeset	2910	box action:[:aString \| rslt := aString].
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	2911	box showAtPointer.
1323 34b29c93134b fixed correct for doits Claus Gittinger <cg@exept.de> parents: 1322 diff changeset	2912	box destroy.
34b29c93134b fixed correct for doits Claus Gittinger <cg@exept.de> parents: 1322 diff changeset	2913	^ rslt
34b29c93134b fixed correct for doits Claus Gittinger <cg@exept.de> parents: 1322 diff changeset	2914	!
34b29c93134b fixed correct for doits Claus Gittinger <cg@exept.de> parents: 1322 diff changeset	2915
34b29c93134b fixed correct for doits Claus Gittinger <cg@exept.de> parents: 1322 diff changeset	2916	askForCorrection:aString fromList:aList for:originalSelector
34b29c93134b fixed correct for doits Claus Gittinger <cg@exept.de> parents: 1322 diff changeset	2917	"launch a selection box, which allows user to enter correction.
34b29c93134b fixed correct for doits Claus Gittinger <cg@exept.de> parents: 1322 diff changeset	2918	return newString or nil (for abort)"
34b29c93134b fixed correct for doits Claus Gittinger <cg@exept.de> parents: 1322 diff changeset	2919
34b29c93134b fixed correct for doits Claus Gittinger <cg@exept.de> parents: 1322 diff changeset	2920	\|box rslt\|
34b29c93134b fixed correct for doits Claus Gittinger <cg@exept.de> parents: 1322 diff changeset	2921
34b29c93134b fixed correct for doits Claus Gittinger <cg@exept.de> parents: 1322 diff changeset	2922	"in systems without widgets ..."
34b29c93134b fixed correct for doits Claus Gittinger <cg@exept.de> parents: 1322 diff changeset	2923	ListSelectionBox isNil ifTrue:[
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	2924	^ self confirm:aString
1323 34b29c93134b fixed correct for doits Claus Gittinger <cg@exept.de> parents: 1322 diff changeset	2925	].
34b29c93134b fixed correct for doits Claus Gittinger <cg@exept.de> parents: 1322 diff changeset	2926	box := ListSelectionBox title:aString.
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	2927	box initialText:(aList firstIfEmpty:originalSelector).
1323 34b29c93134b fixed correct for doits Claus Gittinger <cg@exept.de> parents: 1322 diff changeset	2928	box list:aList.
34b29c93134b fixed correct for doits Claus Gittinger <cg@exept.de> parents: 1322 diff changeset	2929	box okText:'Correct'.
34b29c93134b fixed correct for doits Claus Gittinger <cg@exept.de> parents: 1322 diff changeset	2930	box action:[:aString \| rslt := aString].
34b29c93134b fixed correct for doits Claus Gittinger <cg@exept.de> parents: 1322 diff changeset	2931	box addButton:(Button label:'Keep Selector' action:[rslt := originalSelector. box hide]) after:(box okButton).
34b29c93134b fixed correct for doits Claus Gittinger <cg@exept.de> parents: 1322 diff changeset	2932	box showAtPointer.
34b29c93134b fixed correct for doits Claus Gittinger <cg@exept.de> parents: 1322 diff changeset	2933	box destroy.
34b29c93134b fixed correct for doits Claus Gittinger <cg@exept.de> parents: 1322 diff changeset	2934	^ rslt
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	2935	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	2936
1295 8d3e193bb30d experimental lazyValues Claus Gittinger <cg@exept.de> parents: 1286 diff changeset	2937	askForVariableTypeWhenDeclaringUndefined:varName
3180 acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	2938	\|typeChoice\|
2430 f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	2939
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	2940	typeChoice := (AskForVariableTypeOfUndeclaredQuery new
3180 acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	2941	parser:self nameOfUnknownVariable:varName) query.
2430 f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	2942
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	2943	"/
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	2944	"/ l := OrderedCollection new.
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	2945	"/ how := OrderedCollection new.
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	2946	"/
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	2947	"/ varNameIsLowercase := (varName at:1) isLowercase.
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	2948	"/
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	2949	"/ "/ BlockVar, InstVar and classInstVar not yet implemented
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	2950	"/ varNameIsLowercase ifTrue:[
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	2951	"/"/ currentBlock notNil ifTrue:[
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	2952	"/"/ l add: 'Block local'.
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	2953	"/"/ how add: #BlockVariable.
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	2954	"/"/ ].
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	2955	"/ selector notNil ifTrue:[
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	2956	"/ l add: 'Method Local Variable'.
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	2957	"/ how add: #MethodVariable.
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	2958	"/ ].
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	2959	"/ (classToCompileFor notNil
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	2960	"/ and:[classToCompileFor isMeta not
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	2961	"/ and:[classToCompileFor isBuiltInClass not
2430 f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	2962	"/ and:[(self isDoIt not)]]]) ifTrue:[
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	2963	"/ l add:'Instance Variable'.
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	2964	"/ how add: #InstanceVariable.
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	2965	"/ ].
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	2966	"/ ] ifFalse:[
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	2967	"/ l addAll: #( 'New Class' 'Global' 'NameSpace' ).
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	2968	"/ how addAll: #( NewClass GlobalVariable NameSpace ).
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	2969	"/
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	2970	"/ (classToCompileFor notNil
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	2971	"/ and:[classToCompileFor isBuiltInClass not
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	2972	"/ and:[self isDoIt not]]) ifTrue:[
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	2973	"/ classToCompileFor isMeta ifTrue:[
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	2974	"/ l add: 'Class Instance Variable'.
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	2975	"/ how add: #ClassInstanceVariable.
1295 8d3e193bb30d experimental lazyValues Claus Gittinger <cg@exept.de> parents: 1286 diff changeset	2976	"/ ].
2430 f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	2977	"/ l add: 'Class Variable'.
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	2978	"/ how add: #ClassVariable.
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	2979	"/ l add: 'Private Class'.
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	2980	"/ how add: #PrivateClass.
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	2981	"/ ]
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	2982	"/ ].
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	2983	"/ self isDoIt ifTrue:[
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	2984	"/ l size > 0 ifTrue:[
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	2985	"/ l := l , #( '-' ).
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	2986	"/ how := how , #( nil ).
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	2987	"/ ].
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	2988	"/ l addAll: #('Workspace Variable' 'DoIt Temporary').
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	2989	"/ how addAll: #( WorkspaceVariable DoItTemporary ).
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	2990	"/ ].
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	2991	"/
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	2992	"/ l size > 0 ifTrue:[
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	2993	"/ l := (Array with:('Declare ' , varName allBold , ' as:')
2430 f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	2994	"/ with:'-'
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	2995	"/ ) , l.
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	2996	"/ how := #(nil nil) , how.
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	2997	"/ popupMenu := PopUpMenu labels:l.
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	2998	"/
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	2999	"/ choiceIndex := popupMenu startUp.
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	3000	"/ (choiceIndex notNil and:[choiceIndex > 0]) ifTrue:[
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	3001	"/ typeChoice := how at:choiceIndex.
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	3002	"/ ].
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	3003	"/ ].
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	3004
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	3005	typeChoice notNil ifTrue:[
3180 acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	3006	^ self declareUndefinedVariable:varName as:typeChoice
1295 8d3e193bb30d experimental lazyValues Claus Gittinger <cg@exept.de> parents: 1286 diff changeset	3007	].
8d3e193bb30d experimental lazyValues Claus Gittinger <cg@exept.de> parents: 1286 diff changeset	3008	^ nil.
1901 a539817c2dde undefined variables error is not turned off by disabling warnings. Claus Gittinger <cg@exept.de> parents: 1855 diff changeset	3009
2430 f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	3010	"Modified: / 20-10-2010 / 18:30:27 / cg"
1295 8d3e193bb30d experimental lazyValues Claus Gittinger <cg@exept.de> parents: 1286 diff changeset	3011	!
8d3e193bb30d experimental lazyValues Claus Gittinger <cg@exept.de> parents: 1286 diff changeset	3012
1512 52986e9b02af better isReturn (used when checking for consistent return value) Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	3013	checkIfAllSubclassesOf:aClass implement:aSelector
2222 2407d11cddf7 changed: #checkIfAllSubclassesOf:implement: Claus Gittinger <cg@exept.de> parents: 2221 diff changeset	3014	^ aClass subclasses conform:[:cls \| (cls includesSelector:aSelector)]
1907 ffaa6fba267f * empty log message * Claus Gittinger <cg@exept.de> parents: 1901 diff changeset	3015
ffaa6fba267f * empty log message * Claus Gittinger <cg@exept.de> parents: 1901 diff changeset	3016	"Modified: / 13-09-2006 / 11:40:52 / cg"
1512 52986e9b02af better isReturn (used when checking for consistent return value) Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	3017	!
52986e9b02af better isReturn (used when checking for consistent return value) Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	3018
1439 0fddfcdca37b selector check improved Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	3019	correctSelector:aSelectorString message:msg positions:posVector in:aClassOrNil for:receiverNode
1156 b491528ad92b fixed 'generate' option (in selector will not be understood) Claus Gittinger <cg@exept.de> parents: 1155 diff changeset	3020	"notify error and correct if user wants to;
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	3021	return #Error if there was no correction
1156 b491528ad92b fixed 'generate' option (in selector will not be understood) Claus Gittinger <cg@exept.de> parents: 1155 diff changeset	3022	or a ParseNode as returned by variable"
b491528ad92b fixed 'generate' option (in selector will not be understood) Claus Gittinger <cg@exept.de> parents: 1155 diff changeset	3023
3293 49e96f5bf282 oops Claus Gittinger <cg@exept.de> parents: 3292 diff changeset	3024	\|correctIt suggestedNames newSelector className classToGenerateCode pos1 pos2 fixes
49e96f5bf282 oops Claus Gittinger <cg@exept.de> parents: 3292 diff changeset	3025	positionOfPeriod\|
1439 0fddfcdca37b selector check improved Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	3026
0fddfcdca37b selector check improved Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	3027	pos1 := posVector first start.
0fddfcdca37b selector check improved Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	3028	pos2 := posVector last stop.
1156 b491528ad92b fixed 'generate' option (in selector will not be understood) Claus Gittinger <cg@exept.de> parents: 1155 diff changeset	3029
2093 b6b27c9c4d26 remember already warned unimplemented selectors; Claus Gittinger <cg@exept.de> parents: 2090 diff changeset	3030	(self alreadyWarnedUnimplementedSelectors includes:aSelectorString) ifTrue:[
3152 228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	3031	^ aSelectorString
1156 b491528ad92b fixed 'generate' option (in selector will not be understood) Claus Gittinger <cg@exept.de> parents: 1155 diff changeset	3032	].
b491528ad92b fixed 'generate' option (in selector will not be understood) Claus Gittinger <cg@exept.de> parents: 1155 diff changeset	3033
b491528ad92b fixed 'generate' option (in selector will not be understood) Claus Gittinger <cg@exept.de> parents: 1155 diff changeset	3034	"
b491528ad92b fixed 'generate' option (in selector will not be understood) Claus Gittinger <cg@exept.de> parents: 1155 diff changeset	3035	sorry, but I cannot handle keywords with more than one-part
b491528ad92b fixed 'generate' option (in selector will not be understood) Claus Gittinger <cg@exept.de> parents: 1155 diff changeset	3036	currently (too much work - maybe Ill do it later when everything else works :-)
b491528ad92b fixed 'generate' option (in selector will not be understood) Claus Gittinger <cg@exept.de> parents: 1155 diff changeset	3037	"
3287 915a98fda4d2 class: Parser Claus Gittinger <cg@exept.de> parents: 3286 diff changeset	3038	"/ (aSelectorString occurrencesOf:$:) > 1 ifTrue:[
915a98fda4d2 class: Parser Claus Gittinger <cg@exept.de> parents: 3286 diff changeset	3039	"/ self warning:msg position:pos1 to:pos2.
915a98fda4d2 class: Parser Claus Gittinger <cg@exept.de> parents: 3286 diff changeset	3040	"/ alreadyWarnedUnimplementedSelectors add:aSelectorString.
915a98fda4d2 class: Parser Claus Gittinger <cg@exept.de> parents: 3286 diff changeset	3041	"/ ^ aSelectorString
915a98fda4d2 class: Parser Claus Gittinger <cg@exept.de> parents: 3286 diff changeset	3042	"/ ].
915a98fda4d2 class: Parser Claus Gittinger <cg@exept.de> parents: 3286 diff changeset	3043
1156 b491528ad92b fixed 'generate' option (in selector will not be understood) Claus Gittinger <cg@exept.de> parents: 1155 diff changeset	3044	(aSelectorString occurrencesOf:$:) > 1 ifTrue:[
3287 915a98fda4d2 class: Parser Claus Gittinger <cg@exept.de> parents: 3286 diff changeset	3045	fixes := { CorrectByGeneratingMissingMethod }.
915a98fda4d2 class: Parser Claus Gittinger <cg@exept.de> parents: 3286 diff changeset	3046	] ifFalse:[
915a98fda4d2 class: Parser Claus Gittinger <cg@exept.de> parents: 3286 diff changeset	3047	fixes := { CorrectByChangingSelector . CorrectByGeneratingMissingMethod }.
915a98fda4d2 class: Parser Claus Gittinger <cg@exept.de> parents: 3286 diff changeset	3048	].
3289 81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	3049
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	3050	aSelectorString isKeywordSelector ifTrue:[
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	3051	\|parts possibleSplits\|
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	3052
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	3053	possibleSplits := OrderedCollection new.
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	3054	parts := aSelectorString partsIfSelector.
3293 49e96f5bf282 oops Claus Gittinger <cg@exept.de> parents: 3292 diff changeset	3055	1 to:parts size-1 do:[:sepIdx \|
3291 6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	3056	\|msg1 msg2 msg1Ok msg2Ok\|
3289 81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	3057
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	3058	msg1 := (parts copyTo:sepIdx) asStringWith:''.
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	3059	msg2 := (parts copyFrom:sepIdx+1) asStringWith:''.
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	3060	(msg1 := msg1 asSymbolIfInterned) notNil ifTrue:[
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	3061	(msg2 := msg2 asSymbolIfInterned) notNil ifTrue:[
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	3062	aClassOrNil notNil ifTrue:[
3291 6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	3063	msg1Ok := aClassOrNil canUnderstand:msg1
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	3064	] ifFalse:[
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	3065	msg1Ok := (SystemBrowser
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	3066	findImplementorsOf: msg1
3289 81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	3067	in: Smalltalk allClasses
3291 6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	3068	ignoreCase: false) notEmpty.
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	3069	].
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	3070	msg2Ok := (SystemBrowser
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	3071	findImplementorsOf: msg2
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	3072	in: Smalltalk allClasses
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	3073	ignoreCase: false) notEmpty.
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	3074
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	3075	(msg1Ok and:[msg2Ok]) ifTrue:[
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	3076	possibleSplits add:{ msg1 . msg2 }
3289 81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	3077	] ifFalse:[
3291 6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	3078	self breakPoint:#cg.
3289 81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	3079	]
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	3080	] ifFalse:[
3302 0b7a9bb4a2be class: Parser Claus Gittinger <cg@exept.de> parents: 3299 diff changeset	3081	"/ self breakPoint:#cg.
3289 81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	3082	]
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	3083	].
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	3084	].
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	3085	possibleSplits notEmpty ifTrue:[
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	3086	fixes := fixes copyWith: (CorrectByGroupingMessage new
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	3087	possibleSplits:possibleSplits;
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	3088	selectorPositions:posVector).
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	3089	].
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	3090	].
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	3091
3291 6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	3092	"/ a hack - don't like looking into string; needs fix (caller must pass in possible corrections)
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3093	(msg includesString:'issing ''.''') ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3094	receiverNode notNil ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3095	positionOfPeriod := receiverNode endPosition.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3096	fixes := fixes copyWith: CorrectByInsertingPeriod.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3097	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3098	].
3291 6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	3099	(msg includesString:'hex integer') ifTrue:[
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	3100	(receiverNode notNil
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	3101	and:[ receiverNode isConstant
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	3102	and:[ receiverNode value == 0
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	3103	and:[ (aSelectorString asLowercase startsWith:'x')
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	3104	and:[ aSelectorString from:2 conform:[:ch \| ch isDigitRadix:16]
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	3105	]]]]) ifTrue:[
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	3106	fixes := fixes copyWith:CorrectByMakingValidHexConstant
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	3107	].
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	3108	].
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	3109
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3110	PossibleCorrectionsQuery answer:fixes do:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3111	correctIt := self correctableWarning:msg position:pos1 to:pos2.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3112	].
3289 81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	3113	(correctIt isBehavior or:[correctIt isKindOf:Correction]) ifTrue:[
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3114	self
3289 81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	3115	correctWith:(correctIt instance
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3116	positionOfPeriod:positionOfPeriod;
3286 dda2d8584e1c class: Parser Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	3117	receiverNode:receiverNode;
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3118	receiverClass:aClassOrNil;
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3119	selector:aSelectorString)
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3120	from:pos1 to:pos2.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3121	"/ normally not reached (unless, the corrector did something somewhere else,
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3122	"/ and no change is needed here)
3152 228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	3123	correctIt := false.
1156 b491528ad92b fixed 'generate' option (in selector will not be understood) Claus Gittinger <cg@exept.de> parents: 1155 diff changeset	3124	].
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3125
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3126	"/ code moved to CorrectByGeneratingMissing
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3127	"/ correctIt == #generate ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3128	"/ receiverNode isSelf ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3129	"/ classToGenerateCode := classToCompileFor
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3130	"/ ] ifFalse:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3131	"/ receiverNode isVariable ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3132	"/ receiverNode isGlobal ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3133	"/ classToGenerateCode := receiverNode evaluate.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3134	"/ classToGenerateCode isBehavior ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3135	"/ classToGenerateCode := classToGenerateCode theMetaclass.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3136	"/ ] ifFalse:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3137	"/ classToGenerateCode := nil
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3138	"/ ].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3139	"/ ].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3140	"/ ]
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3141	"/ ].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3142	"/ classToGenerateCode isNil ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3143	"/ className := Dialog request:'Generate code in class:' initialAnswer:classToCompileFor name.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3144	"/ className size == 0 ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3145	"/ ^ aSelectorString
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3146	"/ ].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3147	"/ classToGenerateCode := Smalltalk at:className asSymbol.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3148	"/ classToGenerateCode isNil ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3149	"/ self warn:'No such class.'.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3150	"/ ^ aSelectorString
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3151	"/ ].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3152	"/ ].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3153	"/ (classToGenerateCode includesSelector:aSelectorString asSymbol) ifFalse:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3154	"/ \|code category wantSetter wantGetter\|
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3155	"/
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3156	"/ wantSetter := wantGetter := false.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3157	"/
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3158	"/ (aSelectorString isKeywordSelector
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3159	"/ and:[aSelectorString numArgs == 1
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3160	"/ and:[classToGenerateCode instVarNames includes:(aSelectorString copyButLast:1)]]) ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3161	"/ "/ want a setter ?
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3162	"/ wantSetter := Dialog confirmWithCancel:('Create a setter for %1 ?' bindWith:(aSelectorString copyButLast:1) allBold).
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3163	"/ wantSetter isNil ifTrue:[^ aSelectorString].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3164	"/ ] ifFalse:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3165	"/ (aSelectorString isUnarySelector
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3166	"/ and:[classToGenerateCode instVarNames includes:aSelectorString]) ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3167	"/ "/ want a getter ?
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3168	"/ wantGetter := Dialog confirmWithCancel:('Create a getter for %1 ?' bindWith:aSelectorString allBold).
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3169	"/ wantGetter isNil ifTrue:[^ aSelectorString].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3170	"/ ]
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3171	"/ ].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3172	"/ wantSetter ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3173	"/ code := ('%1:something\ %1 := something.' bindWith:(aSelectorString copyButLast:1)) withCRs.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3174	"/ category := 'accessing'.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3175	"/ ] ifFalse:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3176	"/ wantGetter ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3177	"/ code := ('%1\ ^ %1.' bindWith:aSelectorString) withCRs.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3178	"/ category := 'accessing'.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3179	"/ ] ifFalse:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3180	"/ code := (self class methodSpecificationForSelector:aSelectorString) , '\ self shouldImplement' withCRs.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3181	"/ category := Compiler defaultMethodCategory.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3182	"/ ].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3183	"/ ].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3184	"/
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3185	"/ "do not overwrite an already existing (deprecated) method"
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3186	"/ classToGenerateCode
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3187	"/ compile:code
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3188	"/ classified:category.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3189	"/ ].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3190	"/ correctIt := false.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3191	"/ ].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3192	(correctIt == false or:[correctIt == #continue]) ifTrue:[
3152 228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	3193	alreadyWarnedUnimplementedSelectors add:aSelectorString.
228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	3194	^ aSelectorString
1156 b491528ad92b fixed 'generate' option (in selector will not be understood) Claus Gittinger <cg@exept.de> parents: 1155 diff changeset	3195	].
b491528ad92b fixed 'generate' option (in selector will not be understood) Claus Gittinger <cg@exept.de> parents: 1155 diff changeset	3196
b491528ad92b fixed 'generate' option (in selector will not be understood) Claus Gittinger <cg@exept.de> parents: 1155 diff changeset	3197	suggestedNames := self findBestSelectorsFor:aSelectorString in:aClassOrNil.
3306 41da3ba696f4 class: Parser Claus Gittinger <cg@exept.de> parents: 3305 diff changeset	3198	suggestedNames notEmptyOrNil ifTrue:[
3152 228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	3199	newSelector := self askForCorrection:'Correct Selector to: ' fromList:suggestedNames for:aSelectorString.
228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	3200	newSelector isNil ifTrue:[AbortSignal raise "^ aSelectorString"].
1156 b491528ad92b fixed 'generate' option (in selector will not be understood) Claus Gittinger <cg@exept.de> parents: 1155 diff changeset	3201	] ifFalse:[
3152 228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	3202	self information:'no good correction found'.
228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	3203	^ aSelectorString
1156 b491528ad92b fixed 'generate' option (in selector will not be understood) Claus Gittinger <cg@exept.de> parents: 1155 diff changeset	3204	].
b491528ad92b fixed 'generate' option (in selector will not be understood) Claus Gittinger <cg@exept.de> parents: 1155 diff changeset	3205
b491528ad92b fixed 'generate' option (in selector will not be understood) Claus Gittinger <cg@exept.de> parents: 1155 diff changeset	3206	"
b491528ad92b fixed 'generate' option (in selector will not be understood) Claus Gittinger <cg@exept.de> parents: 1155 diff changeset	3207	tell requestor (i.e. CodeView) about the change
b491528ad92b fixed 'generate' option (in selector will not be understood) Claus Gittinger <cg@exept.de> parents: 1155 diff changeset	3208	this will update what the requestor shows.
b491528ad92b fixed 'generate' option (in selector will not be understood) Claus Gittinger <cg@exept.de> parents: 1155 diff changeset	3209	"
b491528ad92b fixed 'generate' option (in selector will not be understood) Claus Gittinger <cg@exept.de> parents: 1155 diff changeset	3210	requestor replaceSelectionBy:newSelector keepCursor:false.
b491528ad92b fixed 'generate' option (in selector will not be understood) Claus Gittinger <cg@exept.de> parents: 1155 diff changeset	3211	"
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	3212	get the updated source-string
1156 b491528ad92b fixed 'generate' option (in selector will not be understood) Claus Gittinger <cg@exept.de> parents: 1155 diff changeset	3213	which is needed, when we eventually install the new method
b491528ad92b fixed 'generate' option (in selector will not be understood) Claus Gittinger <cg@exept.de> parents: 1155 diff changeset	3214	"
b491528ad92b fixed 'generate' option (in selector will not be understood) Claus Gittinger <cg@exept.de> parents: 1155 diff changeset	3215	correctedSource := requestor currentSourceCode.
b491528ad92b fixed 'generate' option (in selector will not be understood) Claus Gittinger <cg@exept.de> parents: 1155 diff changeset	3216	source := (ReadStream on:correctedSource)
3152 228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	3217	position:(source position + (newSelector size - aSelectorString size)).
1156 b491528ad92b fixed 'generate' option (in selector will not be understood) Claus Gittinger <cg@exept.de> parents: 1155 diff changeset	3218	^ newSelector
b491528ad92b fixed 'generate' option (in selector will not be understood) Claus Gittinger <cg@exept.de> parents: 1155 diff changeset	3219
3302 0b7a9bb4a2be class: Parser Claus Gittinger <cg@exept.de> parents: 3299 diff changeset	3220	"Modified: / 22-01-1998 / 16:36:04 / stefan"
0b7a9bb4a2be class: Parser Claus Gittinger <cg@exept.de> parents: 3299 diff changeset	3221	"Created: / 19-01-2000 / 16:34:01 / cg"
0b7a9bb4a2be class: Parser Claus Gittinger <cg@exept.de> parents: 3299 diff changeset	3222	"Modified: / 28-08-2013 / 22:32:57 / cg"
1156 b491528ad92b fixed 'generate' option (in selector will not be understood) Claus Gittinger <cg@exept.de> parents: 1155 diff changeset	3223	!
b491528ad92b fixed 'generate' option (in selector will not be understood) Claus Gittinger <cg@exept.de> parents: 1155 diff changeset	3224
1167 34f58eacdbda unused variables correction Claus Gittinger <cg@exept.de> parents: 1165 diff changeset	3225	correctSourceByDeletingFrom:start to:stop
34f58eacdbda unused variables correction Claus Gittinger <cg@exept.de> parents: 1165 diff changeset	3226	"correct (by deleting token) if user wants to;
34f58eacdbda unused variables correction Claus Gittinger <cg@exept.de> parents: 1165 diff changeset	3227	return #Error if there was no correction;
34f58eacdbda unused variables correction Claus Gittinger <cg@exept.de> parents: 1165 diff changeset	3228	nil if there was one."
34f58eacdbda unused variables correction Claus Gittinger <cg@exept.de> parents: 1165 diff changeset	3229
1445 2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well Claus Gittinger <cg@exept.de> parents: 1442 diff changeset	3230	\|deleteSize localDefsStart localDefsStop newPos\|
1167 34f58eacdbda unused variables correction Claus Gittinger <cg@exept.de> parents: 1165 diff changeset	3231
34f58eacdbda unused variables correction Claus Gittinger <cg@exept.de> parents: 1165 diff changeset	3232	"
34f58eacdbda unused variables correction Claus Gittinger <cg@exept.de> parents: 1165 diff changeset	3233	tell requestor (i.e. CodeView) about the change
34f58eacdbda unused variables correction Claus Gittinger <cg@exept.de> parents: 1165 diff changeset	3234	this will update what the requestor shows.
34f58eacdbda unused variables correction Claus Gittinger <cg@exept.de> parents: 1165 diff changeset	3235	"
34f58eacdbda unused variables correction Claus Gittinger <cg@exept.de> parents: 1165 diff changeset	3236	deleteSize := stop - start + 1.
34f58eacdbda unused variables correction Claus Gittinger <cg@exept.de> parents: 1165 diff changeset	3237	requestor deleteFromCharacterPosition:start to:stop.
34f58eacdbda unused variables correction Claus Gittinger <cg@exept.de> parents: 1165 diff changeset	3238
34f58eacdbda unused variables correction Claus Gittinger <cg@exept.de> parents: 1165 diff changeset	3239	"
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	3240	get the updated source-string
1167 34f58eacdbda unused variables correction Claus Gittinger <cg@exept.de> parents: 1165 diff changeset	3241	which is needed, when we eventually install the new method
34f58eacdbda unused variables correction Claus Gittinger <cg@exept.de> parents: 1165 diff changeset	3242	"
34f58eacdbda unused variables correction Claus Gittinger <cg@exept.de> parents: 1165 diff changeset	3243	correctedSource := requestor currentSourceCode.
1445 2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well Claus Gittinger <cg@exept.de> parents: 1442 diff changeset	3244
1167 34f58eacdbda unused variables correction Claus Gittinger <cg@exept.de> parents: 1165 diff changeset	3245	"/ update the current source position
1445 2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well Claus Gittinger <cg@exept.de> parents: 1442 diff changeset	3246	source atEnd ifTrue:[
3267 2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	3247	newPos := correctedSource size.
1445 2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well Claus Gittinger <cg@exept.de> parents: 1442 diff changeset	3248	] ifFalse:[
3267 2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	3249	source position + 1 >= stop ifTrue:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	3250	newPos := source position - deleteSize.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	3251	] ifFalse:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	3252	source position + 1 < start ifTrue:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	3253	newPos := source position.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	3254	] ifFalse:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	3255	newPos := start-1.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	3256	].
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	3257	]
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	3258	].
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	3259	source := (ReadStream on:correctedSource) position:newPos.
1432 a85ce0ec6ee4 deleting multiple local variables Claus Gittinger <cg@exept.de> parents: 1427 diff changeset	3260
a85ce0ec6ee4 deleting multiple local variables Claus Gittinger <cg@exept.de> parents: 1427 diff changeset	3261	localDefsStart := localVarDefPosition at:1.
a85ce0ec6ee4 deleting multiple local variables Claus Gittinger <cg@exept.de> parents: 1427 diff changeset	3262	localDefsStop := localVarDefPosition at:2.
a85ce0ec6ee4 deleting multiple local variables Claus Gittinger <cg@exept.de> parents: 1427 diff changeset	3263
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3264	localDefsStop isNil ifTrue:[^ self]. "/ we have not yet parsed the locals def
1432 a85ce0ec6ee4 deleting multiple local variables Claus Gittinger <cg@exept.de> parents: 1427 diff changeset	3265	localDefsStop <= start ifTrue:[^ self].
a85ce0ec6ee4 deleting multiple local variables Claus Gittinger <cg@exept.de> parents: 1427 diff changeset	3266	localDefsStart >= stop ifTrue:[^ self].
a85ce0ec6ee4 deleting multiple local variables Claus Gittinger <cg@exept.de> parents: 1427 diff changeset	3267
1445 2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well Claus Gittinger <cg@exept.de> parents: 1442 diff changeset	3268	(localDefsStart >= start and:[localDefsStop <= stop]) ifTrue:[
3267 2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	3269	localVarDefPosition := nil.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	3270	^ self
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	3271	].
1445 2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well Claus Gittinger <cg@exept.de> parents: 1442 diff changeset	3272
1432 a85ce0ec6ee4 deleting multiple local variables Claus Gittinger <cg@exept.de> parents: 1427 diff changeset	3273	"/ must update
a85ce0ec6ee4 deleting multiple local variables Claus Gittinger <cg@exept.de> parents: 1427 diff changeset	3274	(start > localDefsStart and:[stop < localDefsStop]) ifTrue:[
3267 2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	3275	localVarDefPosition at:2 put:(localDefsStop - (stop-start+1)).
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	3276	^ self.
1432 a85ce0ec6ee4 deleting multiple local variables Claus Gittinger <cg@exept.de> parents: 1427 diff changeset	3277	].
a85ce0ec6ee4 deleting multiple local variables Claus Gittinger <cg@exept.de> parents: 1427 diff changeset	3278	^ self
1167 34f58eacdbda unused variables correction Claus Gittinger <cg@exept.de> parents: 1165 diff changeset	3279	!
34f58eacdbda unused variables correction Claus Gittinger <cg@exept.de> parents: 1165 diff changeset	3280
1337 b558251f5e77 function call is now compiled into an #eval: message Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	3281	correctVariable:varName atPosition:pos1 to:pos2
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3282	"notify error and correct if user wants to;
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	3283	return #Error if there was no correction
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3284	or a ParseNode as returned by variable"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3285
1337 b558251f5e77 function call is now compiled into an #eval: message Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	3286	\|correctIt suggestedNames newName rslt
2426 e0b7395941d8 added \"repeat declare-action & type for remaining vars\" Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	3287	varNameIsLowercase undeclared boldName sameForAll\|
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3288
877 e75488a39c46 workspace variables. Claus Gittinger <cg@exept.de> parents: 869 diff changeset	3289	varNameIsLowercase := (varName at:1) isLowercase.
e75488a39c46 workspace variables. Claus Gittinger <cg@exept.de> parents: 869 diff changeset	3290
2426 e0b7395941d8 added \"repeat declare-action & type for remaining vars\" Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	3291	sameForAll := false.
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3292	(correctIt := variableCorrectActionForAll) isNil ifTrue:[
3241 c18bc5aa7022 class: Parser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3238 diff changeset	3293	SameForAllNotification handle:[:ex \|
c18bc5aa7022 class: Parser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3238 diff changeset	3294	sameForAll := true.
c18bc5aa7022 class: Parser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3238 diff changeset	3295	ex proceed.
c18bc5aa7022 class: Parser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3238 diff changeset	3296	] do:[
c18bc5aa7022 class: Parser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3238 diff changeset	3297	correctIt := self undefError:varName position:pos1 to:pos2.
c18bc5aa7022 class: Parser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3238 diff changeset	3298	].
2426 e0b7395941d8 added \"repeat declare-action & type for remaining vars\" Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	3299	].
e0b7395941d8 added \"repeat declare-action & type for remaining vars\" Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	3300
1901 a539817c2dde undefined variables error is not turned off by disabling warnings. Claus Gittinger <cg@exept.de> parents: 1855 diff changeset	3301	correctIt == #Error ifTrue:[
3241 c18bc5aa7022 class: Parser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3238 diff changeset	3302	^ #Error
1901 a539817c2dde undefined variables error is not turned off by disabling warnings. Claus Gittinger <cg@exept.de> parents: 1855 diff changeset	3303	].
a539817c2dde undefined variables error is not turned off by disabling warnings. Claus Gittinger <cg@exept.de> parents: 1855 diff changeset	3304
2426 e0b7395941d8 added \"repeat declare-action & type for remaining vars\" Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	3305	sameForAll == true ifTrue:[
3241 c18bc5aa7022 class: Parser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3238 diff changeset	3306	variableCorrectActionForAll := correctIt.
c18bc5aa7022 class: Parser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3238 diff changeset	3307	variableTypeOfLastCorrectAction := nil.
c18bc5aa7022 class: Parser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3238 diff changeset	3308	correctIt == false ifTrue:[
c18bc5aa7022 class: Parser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3238 diff changeset	3309	parserFlags warnUndeclared:false.
c18bc5aa7022 class: Parser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3238 diff changeset	3310	].
2426 e0b7395941d8 added \"repeat declare-action & type for remaining vars\" Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	3311	].
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3312	"/ backward compatibility (symbols) will vanish...
3298 7974ee6d7b9c class: Parser Claus Gittinger <cg@exept.de> parents: 3297 diff changeset	3313	((correctIt == #declare)
7974ee6d7b9c class: Parser Claus Gittinger <cg@exept.de> parents: 3297 diff changeset	3314	or:[correctIt == CorrectByDeclaringIdentifierAs
3299 a36f24765520 class: Parser Claus Gittinger <cg@exept.de> parents: 3298 diff changeset	3315	or:[correctIt isKindOf: Correction]]) ifTrue:[
3241 c18bc5aa7022 class: Parser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3238 diff changeset	3316	"/ declare it
3298 7974ee6d7b9c class: Parser Claus Gittinger <cg@exept.de> parents: 3297 diff changeset	3317	(((variableCorrectActionForAll == #declare)
7974ee6d7b9c class: Parser Claus Gittinger <cg@exept.de> parents: 3297 diff changeset	3318	or:[ correctIt isKindOf: CorrectByDeclaringIdentifierAs ])
3241 c18bc5aa7022 class: Parser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3238 diff changeset	3319	and:[ variableTypeOfLastCorrectAction notNil ]) ifTrue:[
c18bc5aa7022 class: Parser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3238 diff changeset	3320	rslt := self declareUndefinedVariable:varName as:variableTypeOfLastCorrectAction.
c18bc5aa7022 class: Parser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3238 diff changeset	3321	^ rslt
c18bc5aa7022 class: Parser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3238 diff changeset	3322	].
c18bc5aa7022 class: Parser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3238 diff changeset	3323	rslt := self askForVariableTypeWhenDeclaringUndefined:varName.
c18bc5aa7022 class: Parser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3238 diff changeset	3324	rslt notNil ifTrue:[
c18bc5aa7022 class: Parser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3238 diff changeset	3325	variableTypeOfLastCorrectAction := rslt type.
c18bc5aa7022 class: Parser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3238 diff changeset	3326	^ rslt
c18bc5aa7022 class: Parser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3238 diff changeset	3327	].
c18bc5aa7022 class: Parser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3238 diff changeset	3328	correctIt := #continue.
1901 a539817c2dde undefined variables error is not turned off by disabling warnings. Claus Gittinger <cg@exept.de> parents: 1855 diff changeset	3329	].
887 e42ea977b85d checkin from browser Claus Gittinger <cg@exept.de> parents: 883 diff changeset	3330	(correctIt == false or:[correctIt == #continue]) ifTrue:[
3241 c18bc5aa7022 class: Parser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3238 diff changeset	3331	"/ no correction wanted.
c18bc5aa7022 class: Parser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3238 diff changeset	3332
c18bc5aa7022 class: Parser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3238 diff changeset	3333	"/ lowerCase vars are added to the Undeclared dictionary,
c18bc5aa7022 class: Parser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3238 diff changeset	3334	"/ allowing easy search for bad-spots later.
c18bc5aa7022 class: Parser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3238 diff changeset	3335	boldName := varName allBold.
c18bc5aa7022 class: Parser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3238 diff changeset	3336
c18bc5aa7022 class: Parser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3238 diff changeset	3337	varNameIsLowercase ifTrue:[
c18bc5aa7022 class: Parser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3238 diff changeset	3338	undeclared := Smalltalk at:#Undeclared.
c18bc5aa7022 class: Parser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3238 diff changeset	3339	((undeclared notNil)
c18bc5aa7022 class: Parser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3238 diff changeset	3340	and:[(undeclared includes:varName asSymbol)]) ifFalse:[
c18bc5aa7022 class: Parser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3238 diff changeset	3341	self warning:('Adding ''' , boldName , ''' as Undeclared.\\Remember to fix that later.') withCRs position:pos1 to:pos2.
c18bc5aa7022 class: Parser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3238 diff changeset	3342	].
c18bc5aa7022 class: Parser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3238 diff changeset	3343	^ self defineAsUndeclaredVariable:varName
c18bc5aa7022 class: Parser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3238 diff changeset	3344	].
c18bc5aa7022 class: Parser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3238 diff changeset	3345
c18bc5aa7022 class: Parser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3238 diff changeset	3346	"/ upperCase vars are declared as global
c18bc5aa7022 class: Parser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3238 diff changeset	3347	parserFlags warnings ifTrue:[
c18bc5aa7022 class: Parser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3238 diff changeset	3348	parserFlags warnUndeclared ifTrue:[
c18bc5aa7022 class: Parser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3238 diff changeset	3349	(warnedUndefVars isNil or:[(warnedUndefVars includes:varName) not]) ifTrue:[
c18bc5aa7022 class: Parser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3238 diff changeset	3350	(warnedUnknownNamespaces isNil or:[(warnedUnknownNamespaces includes:varName) not]) ifTrue:[
c18bc5aa7022 class: Parser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3238 diff changeset	3351	self warning:('adding ''' , boldName , ''' as Global.') withCRs position:pos1 to:pos2.
c18bc5aa7022 class: Parser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3238 diff changeset	3352	]
c18bc5aa7022 class: Parser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3238 diff changeset	3353	].
c18bc5aa7022 class: Parser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3238 diff changeset	3354	].
c18bc5aa7022 class: Parser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3238 diff changeset	3355	].
c18bc5aa7022 class: Parser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3238 diff changeset	3356	^ (VariableNode globalNamed:varName) startPosition: pos1 endPosition: pos2.
877 e75488a39c46 workspace variables. Claus Gittinger <cg@exept.de> parents: 869 diff changeset	3357	].
e75488a39c46 workspace variables. Claus Gittinger <cg@exept.de> parents: 869 diff changeset	3358
1398 eaef898b063e added undefinedVariableNotification Claus Gittinger <cg@exept.de> parents: 1394 diff changeset	3359	(correctIt isKindOf:ParseNode) ifTrue:[
3241 c18bc5aa7022 class: Parser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3238 diff changeset	3360	^ correctIt
1398 eaef898b063e added undefinedVariableNotification Claus Gittinger <cg@exept.de> parents: 1394 diff changeset	3361	].
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3362
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3363	suggestedNames := self findBestVariablesFor:varName.
877 e75488a39c46 workspace variables. Claus Gittinger <cg@exept.de> parents: 869 diff changeset	3364	suggestedNames isNil ifTrue:[
3241 c18bc5aa7022 class: Parser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3238 diff changeset	3365	self information:'No good correction found'.
c18bc5aa7022 class: Parser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3238 diff changeset	3366	^ #Error
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3367	].
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3368
1285 32af9747bf9d error messages Claus Gittinger <cg@exept.de> parents: 1282 diff changeset	3369	newName := self askForCorrection:'Correct Variable to: ' fromList:suggestedNames.
877 e75488a39c46 workspace variables. Claus Gittinger <cg@exept.de> parents: 869 diff changeset	3370	newName isNil ifTrue:[^ #Error].
e75488a39c46 workspace variables. Claus Gittinger <cg@exept.de> parents: 869 diff changeset	3371	"
3241 c18bc5aa7022 class: Parser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3238 diff changeset	3372	newName := suggestedNames at:1.
c18bc5aa7022 class: Parser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3238 diff changeset	3373	(self confirm:('confirm correction to: ' , newName)) ifFalse:[^ #Error].
877 e75488a39c46 workspace variables. Claus Gittinger <cg@exept.de> parents: 869 diff changeset	3374	"
e75488a39c46 workspace variables. Claus Gittinger <cg@exept.de> parents: 869 diff changeset	3375
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3376	"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3377	tell requestor (i.e. CodeView) about the change
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3378	this will update what the requestor shows.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3379	"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3380	requestor replaceSelectionBy:newName.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3381	"
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	3382	get the updated source-string
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3383	which is needed, when we eventually install the new method
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3384	"
3291 6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	3385	correctedSource := self currentSource.
644 834399365be9 Highlighting of undefined variables didn't work after first correction Stefan Vogel <sv@exept.de> parents: 640 diff changeset	3386	source := (ReadStream on:correctedSource)
3267 2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	3387	position:(source position + 1 + newName size - tokenName size).
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3388
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3389	"redo parse with new value"
1103 b75a71996388 ensure that token follows tomeName & tokenValue Claus Gittinger <cg@exept.de> parents: 1100 diff changeset	3390	token := tokenName := newName.
603 021722b8a427 correctly scan trailing period after a number in a block (as in x := x + 1.] Claus Gittinger <cg@exept.de> parents: 601 diff changeset	3391	rslt := self variableOrError:tokenName.
021722b8a427 correctly scan trailing period after a number in a block (as in x := x + 1.] Claus Gittinger <cg@exept.de> parents: 601 diff changeset	3392
021722b8a427 correctly scan trailing period after a number in a block (as in x := x + 1.] Claus Gittinger <cg@exept.de> parents: 601 diff changeset	3393	"/ failed again ?
021722b8a427 correctly scan trailing period after a number in a block (as in x := x + 1.] Claus Gittinger <cg@exept.de> parents: 601 diff changeset	3394	rslt == #Error ifTrue:[
3241 c18bc5aa7022 class: Parser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3238 diff changeset	3395	"/ install as Undeclared:<name>, remember in #undeclared
c18bc5aa7022 class: Parser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3238 diff changeset	3396
c18bc5aa7022 class: Parser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3238 diff changeset	3397	rslt := self defineAsUndeclaredVariable:varName
603 021722b8a427 correctly scan trailing period after a number in a block (as in x := x + 1.] Claus Gittinger <cg@exept.de> parents: 601 diff changeset	3398	].
021722b8a427 correctly scan trailing period after a number in a block (as in x := x + 1.] Claus Gittinger <cg@exept.de> parents: 601 diff changeset	3399	^ rslt
021722b8a427 correctly scan trailing period after a number in a block (as in x := x + 1.] Claus Gittinger <cg@exept.de> parents: 601 diff changeset	3400
1901 a539817c2dde undefined variables error is not turned off by disabling warnings. Claus Gittinger <cg@exept.de> parents: 1855 diff changeset	3401	"Modified: / 22-01-1998 / 16:34:01 / stefan"
2430 f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	3402	"Modified: / 20-10-2010 / 18:09:57 / cg"
3241 c18bc5aa7022 class: Parser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3238 diff changeset	3403	"Modified: / 29-07-2013 / 23:11:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2426 e0b7395941d8 added \"repeat declare-action & type for remaining vars\" Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	3404	!
e0b7395941d8 added \"repeat declare-action & type for remaining vars\" Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	3405
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3406	correctWith:correctionOperation from:pos1 to:pos2
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3407	\|newSource\|
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3408
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3409	newSource := correctionOperation fixFrom:pos1 to:pos2 for:self.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3410	newSource notNil ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3411	correctedSource := newSource.
3291 6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	3412	requestor contents:newSource.
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3413	RestartCompilationSignal raiseRequest.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3414	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3415	^ #Error
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3416	!
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3417
2426 e0b7395941d8 added \"repeat declare-action & type for remaining vars\" Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	3418	declareUndefinedVariable:varName as:variableType
e0b7395941d8 added \"repeat declare-action & type for remaining vars\" Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	3419	\|holder newClass owningClass\|
e0b7395941d8 added \"repeat declare-action & type for remaining vars\" Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	3420
e0b7395941d8 added \"repeat declare-action & type for remaining vars\" Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	3421	variableType == #WorkspaceVariable ifTrue:[
3171 40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3422	holder := Workspace addWorkspaceVariable:varName.
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3423	^ VariableNode type:#WorkspaceVariable holder:holder name:varName
2426 e0b7395941d8 added \"repeat declare-action & type for remaining vars\" Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	3424	].
e0b7395941d8 added \"repeat declare-action & type for remaining vars\" Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	3425	variableType == #DoItTemporary ifTrue:[
3171 40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3426	holder := self addDoItTemporary:varName.
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3427	^ VariableNode type:#DoItTemporary holder:holder name:varName
2426 e0b7395941d8 added \"repeat declare-action & type for remaining vars\" Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	3428	].
e0b7395941d8 added \"repeat declare-action & type for remaining vars\" Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	3429	variableType == #GlobalVariable ifTrue:[
3171 40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3430	Smalltalk at:varName asSymbol put:nil.
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3431	^ VariableNode globalNamed:varName
2426 e0b7395941d8 added \"repeat declare-action & type for remaining vars\" Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	3432	].
e0b7395941d8 added \"repeat declare-action & type for remaining vars\" Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	3433
e0b7395941d8 added \"repeat declare-action & type for remaining vars\" Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	3434	variableType == #NewClass ifTrue:[
3171 40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3435	newClass := Object subclass:varName asSymbol
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3436	instanceVariableNames:''
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3437	classVariableNames:''
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3438	poolDictionaries:''
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3439	category:'* As yet uncategorized *'.
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3440	^ VariableNode globalNamed:newClass name
2426 e0b7395941d8 added \"repeat declare-action & type for remaining vars\" Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	3441	].
e0b7395941d8 added \"repeat declare-action & type for remaining vars\" Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	3442
e0b7395941d8 added \"repeat declare-action & type for remaining vars\" Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	3443	variableType == #PrivateClass ifTrue:[
3171 40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3444	owningClass := classToCompileFor theNonMetaclass.
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3445	newClass := Object subclass:varName asSymbol
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3446	instanceVariableNames:''
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3447	classVariableNames:''
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3448	poolDictionaries:''
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3449	privateIn:owningClass.
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3450	^ VariableNode type:#PrivateClass class:owningClass name:newClass name
2426 e0b7395941d8 added \"repeat declare-action & type for remaining vars\" Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	3451	].
e0b7395941d8 added \"repeat declare-action & type for remaining vars\" Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	3452
e0b7395941d8 added \"repeat declare-action & type for remaining vars\" Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	3453	variableType == #NameSpace ifTrue:[
3171 40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3454	NameSpace name:varName.
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3455	^ VariableNode globalNamed:varName
2426 e0b7395941d8 added \"repeat declare-action & type for remaining vars\" Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	3456	].
e0b7395941d8 added \"repeat declare-action & type for remaining vars\" Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	3457
e0b7395941d8 added \"repeat declare-action & type for remaining vars\" Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	3458	variableType == #ClassVariable ifTrue:[
3171 40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3459	classToCompileFor theNonMetaclass addClassVarName:varName.
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3460	^ VariableNode type:#ClassVariable class:classToCompileFor theNonMetaclass name:varName
2426 e0b7395941d8 added \"repeat declare-action & type for remaining vars\" Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	3461	].
e0b7395941d8 added \"repeat declare-action & type for remaining vars\" Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	3462
e0b7395941d8 added \"repeat declare-action & type for remaining vars\" Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	3463	variableType == #InstanceVariable ifTrue:[
3171 40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3464	classToCompileFor theNonMetaclass addInstVarName:varName.
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3465	"/ ST/X special - old classToCompileFor is obsoleted - refetch
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3466	classToCompileFor := Smalltalk classNamed:(classToCompileFor name).
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3467	RestartCompilationSignal raise.
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3468	"/ not reached - restarted compile will not arrive here again
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3469	self error:'restart compile failed'.
2426 e0b7395941d8 added \"repeat declare-action & type for remaining vars\" Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	3470	].
e0b7395941d8 added \"repeat declare-action & type for remaining vars\" Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	3471
e0b7395941d8 added \"repeat declare-action & type for remaining vars\" Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	3472	variableType == #ClassInstanceVariable ifTrue:[
3171 40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3473	classToCompileFor theMetaclass addInstVarName:varName.
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3474	"/ ST/X special - old classToCompileFor is obsoleted - refetch
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3475	classToCompileFor := Smalltalk classNamed:(classToCompileFor name).
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3476	RestartCompilationSignal raise.
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3477	"/ not reached - restarted compile will not arrive here again
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3478	self error:'restart compile failed'.
2426 e0b7395941d8 added \"repeat declare-action & type for remaining vars\" Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	3479	].
e0b7395941d8 added \"repeat declare-action & type for remaining vars\" Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	3480
e0b7395941d8 added \"repeat declare-action & type for remaining vars\" Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	3481	variableType == #MethodVariable ifTrue:[
3171 40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3482	\|varIndex var endLocalsPos posToInsert ins space spaceString \|
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3483
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3484	"JV@2012-07-02: Changed to respect formatting settings"
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3485	space := UserPreferences current at:#'formatter.spaceAroundTemporaries' ifAbsent:[false].
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3486	spaceString := space ifTrue:[' '] ifFalse:[''].
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3487
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3488	localVarDefPosition size == 2 ifTrue:[
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3489	endLocalsPos := posToInsert := localVarDefPosition at:2.
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3490	space ifTrue:[
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3491	"/ Is there already a space after last temporary?
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3492	((requestor contents at: posToInsert - 1 ) isSeparator) ifTrue:[
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3493	ins := varName , spaceString
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3494	] ifFalse:[
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3495	ins := ' ' , varName , spaceString
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3496	]
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3497	] ifFalse:[
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3498	ins := ' ' , varName.
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3499	].
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3500	] ifFalse:[
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3501	endOfSelectorPosition notNil ifTrue:[
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3502	posToInsert := beginOfBodyPosition.
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3503	ins := '\|' , spaceString, varName , spaceString , '\|' , Character cr asString , Character cr asString.
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3504	ins := ins , (String new:(requestor colOfCharacterPosition:posToInsert)-1).
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3505	]
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3506	].
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3507	posToInsert notNil ifTrue:[
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3508	requestor
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3509	insertString:ins
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3510	atCharacterPosition:posToInsert.
3291 6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	3511	correctedSource := requestor currentSourceCode asString string.
3171 40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3512
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3513	endLocalsPos notNil ifTrue:[
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3514	localVarDefPosition at:2 put:(endLocalsPos + varName size + 1).
3298 7974ee6d7b9c class: Parser Claus Gittinger <cg@exept.de> parents: 3297 diff changeset	3515	"/ sigh - methodVarNames is nil if decl is empty
7974ee6d7b9c class: Parser Claus Gittinger <cg@exept.de> parents: 3297 diff changeset	3516	methodVarNames := (methodVarNames ? #()) copyWith:varName.
7974ee6d7b9c class: Parser Claus Gittinger <cg@exept.de> parents: 3297 diff changeset	3517	methodVars := (methodVars ? #()) copyWith:(var := Variable new name:varName).
3171 40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3518	] ifFalse:[
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3519	localVarDefPosition := Array with:posToInsert with:posToInsert+varName size+1+(space ifTrue:[2] ifFalse:[0]).
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3520
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3521	methodVarNames := Array with:varName.
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3522	methodVars := Array with:(var := Variable new name:varName).
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3523	].
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3524	source := (ReadStream on:correctedSource)
3267 2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	3525	position:(source position + 1 + ins size).
3171 40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3526
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3527	varIndex := methodVarNames size.
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3528	var used:true.
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3529	^ VariableNode type:#MethodVariable
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3530	name:varName
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3531	token:var
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3532	index:varIndex
40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	3533	].
2426 e0b7395941d8 added \"repeat declare-action & type for remaining vars\" Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	3534	].
3221 fc4f384da00e class: Parser Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	3535	self warning:'sorry - unimplemented (adding ' , variableType , ')'.
2426 e0b7395941d8 added \"repeat declare-action & type for remaining vars\" Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	3536
e0b7395941d8 added \"repeat declare-action & type for remaining vars\" Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	3537	"Created: / 14-10-2010 / 11:04:27 / cg"
2430 f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	3538	"Modified: / 20-10-2010 / 18:36:32 / cg"
2880 0951a74f6668 changed: #declareUndefinedVariable:as: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2879 diff changeset	3539	"Modified (comment): / 04-07-2012 / 13:05:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
603 021722b8a427 correctly scan trailing period after a number in a block (as in x := x + 1.] Claus Gittinger <cg@exept.de> parents: 601 diff changeset	3540	!
021722b8a427 correctly scan trailing period after a number in a block (as in x := x + 1.] Claus Gittinger <cg@exept.de> parents: 601 diff changeset	3541
021722b8a427 correctly scan trailing period after a number in a block (as in x := x + 1.] Claus Gittinger <cg@exept.de> parents: 601 diff changeset	3542	defineAsUndeclaredVariable:aName
021722b8a427 correctly scan trailing period after a number in a block (as in x := x + 1.] Claus Gittinger <cg@exept.de> parents: 601 diff changeset	3543	"define varName as undeclared variable
629 6dbcd3bb1c9d checkin from browser Claus Gittinger <cg@exept.de> parents: 628 diff changeset	3544	(actually, it will be installed as a funny global named 'Undeclared:::<name>').
603 021722b8a427 correctly scan trailing period after a number in a block (as in x := x + 1.] Claus Gittinger <cg@exept.de> parents: 601 diff changeset	3545	You can browse for methods with undeclareds by searching for global accesses
629 6dbcd3bb1c9d checkin from browser Claus Gittinger <cg@exept.de> parents: 628 diff changeset	3546	to 'Undeclared:::*' (or use the search-undeclared item in the launchers menu)."
603 021722b8a427 correctly scan trailing period after a number in a block (as in x := x + 1.] Claus Gittinger <cg@exept.de> parents: 601 diff changeset	3547
1206 df5104d45e42 * empty log message * Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	3548	\|varName undeclared\|
603 021722b8a427 correctly scan trailing period after a number in a block (as in x := x + 1.] Claus Gittinger <cg@exept.de> parents: 601 diff changeset	3549
021722b8a427 correctly scan trailing period after a number in a block (as in x := x + 1.] Claus Gittinger <cg@exept.de> parents: 601 diff changeset	3550	varName := aName.
021722b8a427 correctly scan trailing period after a number in a block (as in x := x + 1.] Claus Gittinger <cg@exept.de> parents: 601 diff changeset	3551
021722b8a427 correctly scan trailing period after a number in a block (as in x := x + 1.] Claus Gittinger <cg@exept.de> parents: 601 diff changeset	3552	"/ install as Undeclared:<name>, remember in Undeclared
021722b8a427 correctly scan trailing period after a number in a block (as in x := x + 1.] Claus Gittinger <cg@exept.de> parents: 601 diff changeset	3553
1206 df5104d45e42 * empty log message * Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	3554	undeclared := Smalltalk at:#Undeclared.
df5104d45e42 * empty log message * Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	3555	undeclared isNil ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	3556	Smalltalk at:#Undeclared put:(undeclared := IdentitySet new).
1206 df5104d45e42 * empty log message * Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	3557	].
df5104d45e42 * empty log message * Claus Gittinger <cg@exept.de> parents: 1205 diff changeset	3558	undeclared add:tokenName asSymbol.
1304 ade15708e7c1 undeclared variable handling was broken (to allow reference search) penk parents: 1301 diff changeset	3559	varName := (Smalltalk undeclaredPrefix) , tokenName.
603 021722b8a427 correctly scan trailing period after a number in a block (as in x := x + 1.] Claus Gittinger <cg@exept.de> parents: 601 diff changeset	3560	varName := varName asSymbol.
021722b8a427 correctly scan trailing period after a number in a block (as in x := x + 1.] Claus Gittinger <cg@exept.de> parents: 601 diff changeset	3561	Smalltalk at:varName put:nil.
021722b8a427 correctly scan trailing period after a number in a block (as in x := x + 1.] Claus Gittinger <cg@exept.de> parents: 601 diff changeset	3562
762 66cd2b4f6689 Big BUG: remember original name in usedVars - not Undeclared::xxx tm parents: 755 diff changeset	3563	parseForCode ifFalse:[self rememberGlobalUsed:aName].
603 021722b8a427 correctly scan trailing period after a number in a block (as in x := x + 1.] Claus Gittinger <cg@exept.de> parents: 601 diff changeset	3564
1309 f85561a7b90e preps for nonDeterministic and FD variables. Claus Gittinger <cg@exept.de> parents: 1306 diff changeset	3565	^ VariableNode globalNamed:varName
603 021722b8a427 correctly scan trailing period after a number in a block (as in x := x + 1.] Claus Gittinger <cg@exept.de> parents: 601 diff changeset	3566
629 6dbcd3bb1c9d checkin from browser Claus Gittinger <cg@exept.de> parents: 628 diff changeset	3567	"Modified: / 31.10.1997 / 01:16:03 / cg"
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3568	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3569
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3570	deleteDefinitionOf:varName in:defStartPosArg to:defEndPosArg
1393 8b0207fb214d * empty log message * Claus Gittinger <cg@exept.de> parents: 1392 diff changeset	3571	"this removes the definition of varName from the declaration part i.e.
8b0207fb214d * empty log message * Claus Gittinger <cg@exept.de> parents: 1392 diff changeset	3572	if the source was '... \| foo bar baz \|...'
8b0207fb214d * empty log message * Claus Gittinger <cg@exept.de> parents: 1392 diff changeset	3573	deleting the var 'bar' changes the source to '... \| foo baz \|...'.
8b0207fb214d * empty log message * Claus Gittinger <cg@exept.de> parents: 1392 diff changeset	3574	The code below tries to be somewhat smart w.r.t. spaces by
8b0207fb214d * empty log message * Claus Gittinger <cg@exept.de> parents: 1392 diff changeset	3575	trying to remove the whiteSpace around the removed variable also.
8b0207fb214d * empty log message * Claus Gittinger <cg@exept.de> parents: 1392 diff changeset	3576	However, this seems to not always work correctly"
8b0207fb214d * empty log message * Claus Gittinger <cg@exept.de> parents: 1392 diff changeset	3577
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3578	\|source startSearch pos pos2 nextChar varSlot p p2
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3579	defStartPos defEndPos\|
1172 401e669ebaf9 checkin from browser Claus Gittinger <cg@exept.de> parents: 1171 diff changeset	3580
401e669ebaf9 checkin from browser Claus Gittinger <cg@exept.de> parents: 1171 diff changeset	3581	varSlot := methodVars detect:[:var \| var name = varName].
401e669ebaf9 checkin from browser Claus Gittinger <cg@exept.de> parents: 1171 diff changeset	3582	methodVars removeIdentical:varSlot.
1167 34f58eacdbda unused variables correction Claus Gittinger <cg@exept.de> parents: 1165 diff changeset	3583
3291 6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	3584	source := self currentSource.
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3585
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3586	defStartPos := defStartPosArg.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3587	defEndPos := defEndPosArg.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3588
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3589	"/ in case not the position of the var-decl bars, but of the varName is passed in
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3590	(source at:defStartPos) == $\| ifFalse:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3591	defStartPos := source lastIndexOf:$\| startingAt:defStartPos+1.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3592	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3593	(source at:defEndPos) == $\| ifFalse:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3594	defEndPos := source indexOf:$\| startingAt:defEndPos+1.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3595	].
1167 34f58eacdbda unused variables correction Claus Gittinger <cg@exept.de> parents: 1165 diff changeset	3596	startSearch := defStartPos+1.
34f58eacdbda unused variables correction Claus Gittinger <cg@exept.de> parents: 1165 diff changeset	3597
1779 4cb48fc7fb17 eliminated loop-send Claus Gittinger <cg@exept.de> parents: 1776 diff changeset	3598	[true] whileTrue:[
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3599	\|prevChar isFirstVar didPassEndOfLine\|
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3600
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3601	"/ search this name's position in the declaration part ...
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3602	pos := source indexOfSubCollection:varName startingAt:startSearch ifAbsent:0.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3603	(pos == 0 or:[pos >= defEndPos]) ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3604	self error:'should not happen' mayProceed:true.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3605	^ self.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3606	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3607
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3608	pos2 := pos + varName size - 1.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3609	pos > 1 ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3610	prevChar := source at:pos-1.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3611	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3612	(prevChar isNil or:[prevChar isLetterOrDigit not]) ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3613	nextChar := source at:pos2+1.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3614	nextChar isLetterOrDigit ifFalse:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3615	"/ halfway intuitive space-removal behavior;
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3616	"/ if there was a space after/before the \|-char,
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3617	"/ leave it; otherwise remove it.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3618	isFirstVar := pos == (defStartPos+1).
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3619	(source at:pos-1) isSeparator ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3620	pos := pos - 1.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3621	[ (source at:pos-1) isSeparator] whileTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3622	pos := pos - 1.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3623	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3624	(source at:pos-1) == $\| ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3625	"/ there was a space before - leave it
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3626	pos := pos + 1.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3627	isFirstVar := true.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3628	]
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3629	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3630
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3631	(source at:pos2+1) isSeparator ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3632	didPassEndOfLine := (source at:pos2+1) == Character cr.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3633	pos2 := pos2 + 1.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3634	[ (source at:pos2+1) isSeparator] whileTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3635	(source at:pos2+1) == Character cr ifTrue:[ didPassEndOfLine := true ].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3636	pos2 := pos2 + 1.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3637	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3638
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3639	didPassEndOfLine ifFalse:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3640	(source at:pos2+1) == $" ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3641	"/ comment follows - assume it belongs to the removed variable
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3642	pos2 := pos2 + 1.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3643	(source at:pos2+1) == $/ ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3644	"/ EOL comment
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3645	[ (source at:pos2+1) == Character cr ] whileFalse:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3646	pos2 := pos2 + 1.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3647	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3648	pos2 := pos2 + 1.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3649	] ifFalse:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3650	"/ regular comment
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3651	[ (source at:pos2+1) == $" ] whileFalse:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3652	pos2 := pos2 + 1.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3653	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3654	pos2 := pos2 + 1.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3655	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3656	[ (source at:pos2+1) isSeparator] whileTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3657	(source at:pos2+1) == Character cr ifTrue:[ didPassEndOfLine := true ].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3658	pos2 := pos2 + 1.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3659	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3660	]
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3661	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3662
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3663	(source at:pos2+1) == $\| ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3664	"/ there was a space after - leave it
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3665	pos2 := pos2 - 1.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3666	] ifFalse:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3667	isFirstVar ifFalse:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3668	pos2 := pos2 - 1.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3669	]
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3670	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3671	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3672
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3673	"/ if this was the last, remove empty var-declaration completely
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3674	((source at:pos-1) == $\|
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3675	and:[ (source at:pos2+1) == $\| ]) ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3676	pos := pos - 1.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3677	pos2 := pos2 + 1.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3678	"/ see if that gives us an empty line
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3679	p := pos.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3680	p2 := pos2.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3681
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3682	[(source at:p-1) == Character space] whileTrue:[ p := p - 1 ].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3683	[(source at:p2+1) == Character space] whileTrue:[ p2 := p2 + 1 ].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3684	((source at:p-1) == Character cr and:[ (source at:p2+1) == Character cr]) ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3685	pos := p-1.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3686	pos2 := p2.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3687	(((source at:pos-1) == Character cr) and:[((source at:pos-2) == Character cr)])
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3688	ifTrue:[ pos := pos - 1 ]
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3689	ifFalse:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3690	(((source at:pos2+1) == Character cr) and:[((source at:pos2+2) == Character cr)]) ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3691	pos2 := pos2 + 1 ]].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3692	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3693	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3694
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3695	self correctSourceByDeletingFrom:pos to:pos2.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3696	^ self.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3697	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3698	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3699	startSearch := pos2 + 1.
1779 4cb48fc7fb17 eliminated loop-send Claus Gittinger <cg@exept.de> parents: 1776 diff changeset	3700	]
4cb48fc7fb17 eliminated loop-send Claus Gittinger <cg@exept.de> parents: 1776 diff changeset	3701
4cb48fc7fb17 eliminated loop-send Claus Gittinger <cg@exept.de> parents: 1776 diff changeset	3702	"Modified: / 18-07-2006 / 08:56:25 / cg"
1167 34f58eacdbda unused variables correction Claus Gittinger <cg@exept.de> parents: 1165 diff changeset	3703	!
34f58eacdbda unused variables correction Claus Gittinger <cg@exept.de> parents: 1165 diff changeset	3704
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3705	findBestSelectorsFor:aString
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3706	"collect known selectors with their spelling distances to aString;
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3707	return the 10 best suggestions"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3708
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	3709	^ self class findBestSelectorsFor:aString
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3710
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3711	"Time millisecondsToRun:[Parser new findBestSelectorsFor:'foo']"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3712	"Parser new findBestSelectorsFor:'findBestSel'"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3713	"Parser new findBestSelectorsFor:'fildBestSelectrFr'"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3714	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3715
1022 32bc5fc06687 added selector correction. Claus Gittinger <cg@exept.de> parents: 1020 diff changeset	3716	findBestSelectorsFor:aString in:aClassOrNil
32bc5fc06687 added selector correction. Claus Gittinger <cg@exept.de> parents: 1020 diff changeset	3717	"collect known selectors with their spelling distances to aString;
2109 593859993fb6 return more bestSelectors Claus Gittinger <cg@exept.de> parents: 2108 diff changeset	3718	return the N best suggestions. If the argument, aClassOrNil is not nil,
1022 32bc5fc06687 added selector correction. Claus Gittinger <cg@exept.de> parents: 1020 diff changeset	3719	the message is assumed to be sent to instances of that class (i.e. offer
32bc5fc06687 added selector correction. Claus Gittinger <cg@exept.de> parents: 1020 diff changeset	3720	corrections from that hierarchy only)"
32bc5fc06687 added selector correction. Claus Gittinger <cg@exept.de> parents: 1020 diff changeset	3721
1187 902d406b9100 * empty log message * Claus Gittinger <cg@exept.de> parents: 1186 diff changeset	3722	^ self class findBestSelectorsFor:aString in:aClassOrNil
1022 32bc5fc06687 added selector correction. Claus Gittinger <cg@exept.de> parents: 1020 diff changeset	3723	!
32bc5fc06687 added selector correction. Claus Gittinger <cg@exept.de> parents: 1020 diff changeset	3724
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3725	findBestVariablesFor:aString
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3726	"collect known variables with their spelling distances to aString;
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3727	return the 10 best suggestions"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3728
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	3729	\|names dists searchBlock args vars "aClass className baseClass"
1647 89f03e0bc836 * empty log message * Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	3730	n instVarNames classVarNames spellAgainstNodeAction spellAgainstAction\|
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3731
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3732	names := OrderedCollection new.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3733	dists := OrderedCollection new.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3734
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	3735	spellAgainstAction :=
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3736	[:givenName \|
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3737	\|dist\|
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3738
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3739	names add:givenName.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3740	dist := aString spellAgainst:givenName.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3741	(aString startsWith:givenName) ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3742	dist := dist + (givenName size * 10).
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3743	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3744	dists add:dist
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3745	].
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	3746
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	3747	spellAgainstNodeAction :=
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3748	[:aVarNode \|
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3749	spellAgainstAction value:(aVarNode name).
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3750	].
1647 89f03e0bc836 * empty log message * Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	3751
89f03e0bc836 * empty log message * Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	3752	"block arguments"
89f03e0bc836 * empty log message * Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	3753	searchBlock := currentBlock.
89f03e0bc836 * empty log message * Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	3754	[searchBlock notNil] whileTrue:[
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3755	args := searchBlock arguments.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3756	args notNil ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3757	args do:spellAgainstNodeAction
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3758	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3759
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3760	vars := searchBlock variables.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3761	vars notNil ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3762	vars do:spellAgainstNodeAction
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3763	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3764	searchBlock := searchBlock home
1647 89f03e0bc836 * empty log message * Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	3765	].
89f03e0bc836 * empty log message * Claus Gittinger <cg@exept.de> parents: 1643 diff changeset	3766
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3767	"method-variables"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3768	methodVars notNil ifTrue:[
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3769	methodVarNames do:spellAgainstAction
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3770	].
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3771
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3772	"method-arguments"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3773	methodArgs notNil ifTrue:[
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3774	methodArgNames do:spellAgainstAction
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3775	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3776
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3777	classToCompileFor notNil ifTrue:[
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3778	"instance-variables"
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3779	self classesInstVarNames do:spellAgainstAction.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3780
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3781	"all class-variables"
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3782	self classesClassVarNames do:spellAgainstAction.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3783
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3784	"private classes"
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3785	(classToCompileFor privateClasses collect:[:each \| each nameWithoutPrefix]) do:spellAgainstAction.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3786
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3787	"pools"
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3788	classToCompileFor sharedPools do:[:eachPool \|
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3789	eachPool classVarNames do:spellAgainstAction.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3790	].
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3791	].
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3792
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3793	"globals"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3794	Smalltalk keysDo:[:aKey \|
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3795	\|globalVarName parts\|
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3796
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3797	globalVarName := aKey asString.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3798
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3799	"only compare strings where length is about right"
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3800	((globalVarName size - aString size) abs < 3) ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3801	spellAgainstAction value:globalVarName.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3802	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3803	(globalVarName includes:$:) ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3804	parts := globalVarName asCollectionOfSubCollectionsSeparatedByAll:'::'.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3805	parts size > 1 ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3806	parts do:[:eachPart \|
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3807	\|dist\|
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3808	((eachPart size - aString size) abs < 3) ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3809	names add:globalVarName.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3810	dist := aString spellAgainst:eachPart.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3811	(aString startsWith:eachPart) ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3812	dist := dist + (eachPart size * 10).
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3813	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3814	dists add:dist
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3815	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3816	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3817	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3818	].
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3819	].
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3820
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3821	"misc"
1200 aa96cdaf2780 * empty log message * Claus Gittinger <cg@exept.de> parents: 1199 diff changeset	3822	#('self' 'super' 'nil' 'thisContext') do:spellAgainstAction.
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3823
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3824	(dists size ~~ 0) ifTrue:[
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3825	dists sortWith:names.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3826	dists := dists reverse.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3827	names := names reverse.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3828	n := names size min:10.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3829	names := names copyTo:n.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3830
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3831	"if it starts with a lower case character, add all local & instvar names"
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3832	(aString at:1) isLowercase ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3833	methodVarNames size > 0 ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3834	names add:'---- method locals ----'.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3835	methodVarNames asSortedCollection do:[:methodVarName \|
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3836	names add:methodVarName.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3837	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3838	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3839
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3840
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3841	methodArgs size > 0 ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3842	names add:'---- method arguments ----'.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3843	methodArgNames asSortedCollection do:[:methodArgName \|
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3844	names add:methodArgName.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3845	]
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3846	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3847	classToCompileFor notNil ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3848	instVarNames := OrderedCollection new.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3849	self classesInstVarNames asSortedCollection do:[:instVarName \|
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3850	(names includes:instVarName) ifFalse:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3851	instVarNames add:instVarName.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3852	]
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3853	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3854
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3855	instVarNames size > 0 ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3856	(classToCompileFor notNil and:[classToCompileFor isMeta]) ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3857	names add:'---- class instance variables ----'.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3858	] ifFalse:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3859	names add:'---- instance variables ----'.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3860	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3861	instVarNames do:[:instVarName \|
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3862	(names includes:instVarName) ifFalse:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3863	names add:instVarName.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3864	]
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3865	]
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3866	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3867
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3868	classVarNames := OrderedCollection new.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3869	self classesClassVarNames asSortedCollection do:[:classVarName \|
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3870	(names includes:classVarName) ifFalse:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3871	classVarNames add:classVarName.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3872	]
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3873	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3874
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3875	classVarNames size > 0 ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3876	names add:'---- class variables ----'.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3877	classVarNames do:[:classVarName \|
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3878	(names includes:classVarName) ifFalse:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3879	names add:classVarName.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3880	]
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3881	]
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3882	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3883	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3884	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3885
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	3886	^ names
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3887	].
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3888	^ nil
450 8ad79af3e91c checkin from browser Claus Gittinger <cg@exept.de> parents: 448 diff changeset	3889
480 e4ac7e62ca9a better block-var name detection in debugger Claus Gittinger <cg@exept.de> parents: 473 diff changeset	3890	"Modified: 11.1.1997 / 21:28:28 / cg"
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3891	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3892
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3893	selectorCheck:aSelectorString for:receiver position:pos1 to:pos2
1439 0fddfcdca37b selector check improved Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	3894	^ self selectorCheck:aSelectorString for:receiver positions:(Array with:(pos1 to:pos2)).
0fddfcdca37b selector check improved Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	3895	!
0fddfcdca37b selector check improved Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	3896
0fddfcdca37b selector check improved Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	3897	selectorCheck:aSelectorString for:receiver positions:posVector
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	3898	"just a quick check: if a selector is totally unknown as a symbol,
1158 f2cbdb21e0b0 Check for obsolete methods, if possible. Stefan Vogel <sv@exept.de> parents: 1157 diff changeset	3899	has the same name as a variable, cannot be understood or is obsolete.
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3900	Simple, but catches many typos"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3901
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	3902	\|isSyntaxHighlighter err selectorSymbol rec names recType selClass newSelector nm nowhereImplemented
1499 69439abfdb93 Warn when using subclassResponsibility or shouldNotImplememt methods Stefan Vogel <sv@exept.de> parents: 1495 diff changeset	3903	pos1 pos2 canDefine\|
69439abfdb93 Warn when using subclassResponsibility or shouldNotImplememt methods Stefan Vogel <sv@exept.de> parents: 1495 diff changeset	3904
69439abfdb93 Warn when using subclassResponsibility or shouldNotImplememt methods Stefan Vogel <sv@exept.de> parents: 1495 diff changeset	3905	isSyntaxHighlighter := self isSyntaxHighlighter.
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3906	"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3907	if compiling lazy, or errors are to be ignored, or there
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3908	is no requestor, do not check
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3909	"
1499 69439abfdb93 Warn when using subclassResponsibility or shouldNotImplememt methods Stefan Vogel <sv@exept.de> parents: 1495 diff changeset	3910	isSyntaxHighlighter ifFalse:[
3210 903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	3911	(LazyCompilation == true) ifTrue:[^ aSelectorString].
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	3912	(ignoreErrors or:[ignoreWarnings]) ifTrue:[^ aSelectorString].
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	3913	(requestor isNil or:[requestor isStream]) ifTrue:[^ aSelectorString].
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	3914	parserFlags warnings ifFalse:[^ aSelectorString].
977 c1afbaf48a23 remember used & modified local vars; Claus Gittinger <cg@exept.de> parents: 971 diff changeset	3915	].
1934 1abdc93d3bf7 experimental toDoList support Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	3916	"/ do not check messages to undefined variables...
1936 ec0939bc5657 * empty log message * Claus Gittinger <cg@exept.de> parents: 1935 diff changeset	3917	(receiver isVariable and:[receiver isUndeclared]) ifTrue:[
3210 903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	3918	^ aSelectorString
1936 ec0939bc5657 * empty log message * Claus Gittinger <cg@exept.de> parents: 1935 diff changeset	3919	].
ec0939bc5657 * empty log message * Claus Gittinger <cg@exept.de> parents: 1935 diff changeset	3920	self isDoIt ifTrue:[
3210 903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	3921	^ aSelectorString
1934 1abdc93d3bf7 experimental toDoList support Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	3922	].
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3923
1499 69439abfdb93 Warn when using subclassResponsibility or shouldNotImplememt methods Stefan Vogel <sv@exept.de> parents: 1495 diff changeset	3924	canDefine := false.
69439abfdb93 Warn when using subclassResponsibility or shouldNotImplememt methods Stefan Vogel <sv@exept.de> parents: 1495 diff changeset	3925
69439abfdb93 Warn when using subclassResponsibility or shouldNotImplememt methods Stefan Vogel <sv@exept.de> parents: 1495 diff changeset	3926	pos1 := posVector first start.
69439abfdb93 Warn when using subclassResponsibility or shouldNotImplememt methods Stefan Vogel <sv@exept.de> parents: 1495 diff changeset	3927	pos2 := posVector last stop.
69439abfdb93 Warn when using subclassResponsibility or shouldNotImplememt methods Stefan Vogel <sv@exept.de> parents: 1495 diff changeset	3928
2149 61105ff49e8f extended selector: ^ Claus Gittinger <cg@exept.de> parents: 2147 diff changeset	3929	(#('#' '\|' '^') includes:aSelectorString) ifTrue:[
3210 903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	3930	self
3211 91fe352d2c20 class: Parser Claus Gittinger <cg@exept.de> parents: 3210 diff changeset	3931	warnPossibleIncompatibility:('''',aSelectorString,''' might not be a valid selector in other Smalltalk systems')
3210 903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	3932	position:pos1 to:pos2.
1301 677ca6e364d4 + warnPossible incompatibility Claus Gittinger <cg@exept.de> parents: 1299 diff changeset	3933	].
677ca6e364d4 + warnPossible incompatibility Claus Gittinger <cg@exept.de> parents: 1299 diff changeset	3934
2229 f3aafb167838 changed: #selectorCheck:for:positions: Claus Gittinger <cg@exept.de> parents: 2224 diff changeset	3935	requestor isNil ifTrue:[
3210 903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	3936	^ aSelectorString
2123 1a7ddedd2943 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 2120 diff changeset	3937	].
3291 6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	3938	parserFlags warnAboutPossiblyUnimplementedSelectors ifFalse:[
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	3939	^ aSelectorString
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	3940	].
2123 1a7ddedd2943 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 2120 diff changeset	3941
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3942	"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3943	check if the selector is known at all
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3944	- if not, it cannot be understood
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	3945	"
1327 133a7d16f2a2 more checks Claus Gittinger <cg@exept.de> parents: 1326 diff changeset	3946	nowhereImplemented := false.
133a7d16f2a2 more checks Claus Gittinger <cg@exept.de> parents: 1326 diff changeset	3947
1499 69439abfdb93 Warn when using subclassResponsibility or shouldNotImplememt methods Stefan Vogel <sv@exept.de> parents: 1495 diff changeset	3948	selectorSymbol := aSelectorString asSymbolIfInterned.
69439abfdb93 Warn when using subclassResponsibility or shouldNotImplememt methods Stefan Vogel <sv@exept.de> parents: 1495 diff changeset	3949	selectorSymbol isNil ifTrue:[
3210 903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	3950	nowhereImplemented := true.
1518 ae1f95e5ab9f * empty log message * Claus Gittinger <cg@exept.de> parents: 1517 diff changeset	3951	] ifFalse:[
ae1f95e5ab9f * empty log message * Claus Gittinger <cg@exept.de> parents: 1517 diff changeset	3952	"/ temporarily disabled - too slow.
ae1f95e5ab9f * empty log message * Claus Gittinger <cg@exept.de> parents: 1517 diff changeset	3953	"/ self isSyntaxHighlighter ifTrue:[
1934 1abdc93d3bf7 experimental toDoList support Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	3954	"/ nowhereImplemented := (self class implementedInAnyClass:selectorSymbol) not.
1518 ae1f95e5ab9f * empty log message * Claus Gittinger <cg@exept.de> parents: 1517 diff changeset	3955	"/ ]
1327 133a7d16f2a2 more checks Claus Gittinger <cg@exept.de> parents: 1326 diff changeset	3956	].
133a7d16f2a2 more checks Claus Gittinger <cg@exept.de> parents: 1326 diff changeset	3957
133a7d16f2a2 more checks Claus Gittinger <cg@exept.de> parents: 1326 diff changeset	3958	nowhereImplemented ifTrue:[
3210 903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	3959	isSyntaxHighlighter ifFalse:[
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	3960	self classToCompileFor notNil ifTrue:[
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	3961	Tools::ToDoListBrowser notNil ifTrue:[
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	3962	"/ experimental
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	3963	self
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	3964	notifyTodo:('"%1" is nowhere implemented' bindWith:aSelectorString) position:posVector first
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	3965	className:(self classToCompileFor name) selector:selector
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	3966	severity:#warning priority:#high
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	3967	equalityParameter:aSelectorString
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	3968	checkAction:[:e \|
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	3969	e problemMethod notNil
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	3970	and:[(e problemMethod sends:aSelectorString asSymbol)
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	3971	and:[self class implementedInAnyClass:aSelectorString]] ]
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	3972	].
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	3973	].
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	3974	].
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	3975
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	3976	err := ' is currently nowhere implemented'.
1327 133a7d16f2a2 more checks Claus Gittinger <cg@exept.de> parents: 1326 diff changeset	3977	] ifFalse:[
3210 903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	3978	receiver notNil ifTrue:[
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	3979	selClass := self typeOfNode:receiver.
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	3980	selClass notNil ifTrue:[
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	3981	"this could be performed if selClass isNil, but it is too slow"
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	3982	err := self checkSelector:selectorSymbol for:receiver inClass:selClass.
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	3983	].
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	3984
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	3985	err notNil ifTrue:[
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	3986	isSyntaxHighlighter ifFalse:[
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	3987	self classToCompileFor notNil ifTrue:[
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	3988	Tools::ToDoListBrowser notNil ifTrue:[
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	3989	"/ experimental
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	3990	self
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	3991	notifyTodo:(selectorSymbol ,' ',err) position:posVector first
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	3992	className:(self classToCompileFor name) selector:selector
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	3993	severity:#warning priority:#high
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	3994	equalityParameter:selectorSymbol
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	3995	checkAction:[:e \|
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	3996	\|selClass\|
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	3997
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	3998	selClass := self typeOfNode:receiver.
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	3999	e problemMethod notNil
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4000	and:[(e problemMethod sends:aSelectorString asSymbol)
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4001	and:[(self checkSelector:selectorSymbol for:receiver inClass:selClass) notNil]]].
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4002	].
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4003	].
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4004	].
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4005	].
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4006
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4007	(receiver isConstant or:[receiver isBlock]) ifTrue:[
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4008	err notNil ifTrue:[
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4009	err := err, ' in ' , selClass name , ' or any of its superclasses'.
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4010	].
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4011	] ifFalse:[(((recType := receiver type) == #GlobalVariable)
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4012	or:[recType == #PrivateClass]) ifTrue:[
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4013	rec := receiver evaluate.
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4014	"/ dont check autoloaded classes - it may work after loading
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4015	(rec isNil
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4016	or:[rec isBehavior and:[rec isLoaded not]]) ifTrue:[
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4017	^ aSelectorString
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4018	].
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4019
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4020	err notNil ifTrue:[
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4021	(rec isBehavior
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4022	and:[rec theNonMetaclass name = receiver name]) ifTrue:[
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4023	err := err, ' in ' , rec theNonMetaclass name.
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4024	] ifFalse:[
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4025	err := err, ' in currently assigned value (is currently ' , rec classNameWithArticle , ')'.
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4026	]
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4027	].
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4028	] ifFalse:[receiver isSuper ifTrue:[
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4029	receiver isHere ifFalse:[
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4030	err notNil ifTrue:[
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4031	err := err, ' in superclass chain'.
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4032	].
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4033	] ifTrue:[
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4034	err notNil ifTrue:[
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4035	err := err, ' in this class or superclass chain'.
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4036	].
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4037	]
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4038	] ifFalse:[receiver isSelf ifTrue:[
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4039	err notNil ifTrue:[
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4040	\|subErr nOther\|
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4041
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4042	"/ understood by all subclasses ?
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4043	nOther := 0.
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4044	classToCompileFor allSubclassesDo:[:eachSubclass \|
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4045	subErr isNil ifTrue:[
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4046	selClass := eachSubclass.
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4047	subErr := self checkSelector:selectorSymbol for:receiver inClass:selClass.
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4048	] ifFalse:[
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4049	(self checkSelector:selectorSymbol for:receiver inClass:selClass) notNil ifTrue:[ nOther := nOther + 1 ].
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4050	]
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4051	].
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4052	subErr notNil ifTrue:[
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4053	nOther > 0 ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4054	err := subErr, (' in %1 other subclass(es), this class or superclass chain' bindWith:nOther)
3210 903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4055	] ifFalse:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4056	err := subErr, ', in this class or superclass chain'
3210 903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4057	].
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4058	] ifFalse:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4059	err := err, ', in this class or superclass chain'.
3210 903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4060	].
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4061	canDefine := true.
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4062	].
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4063	] ifFalse:[(receiver isUnaryMessage
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4064	and:[receiver selector == #class
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4065	and:[receiver receiver isSelf]]) ifTrue:[
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4066	"its a message to self class - can check this too ..."
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4067	err notNil ifTrue:[
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4068	classToCompileFor isMeta ifTrue:[
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4069	err := err, ' for the classes class'.
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4070	(self checkSelector:selectorSymbol for:receiver inClass:classToCompileFor) isNil ifTrue:[
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4071	err := err, '...\\...but its implemented for the class itself. You probably do not want the #class message here.'.
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4072	err := err withCRs.
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4073	].
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4074	] ifFalse:[
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4075	err := err, ' for my class'.
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4076	(self checkSelector:selectorSymbol for:receiver inClass:classToCompileFor) isNil ifTrue:[
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4077	err := err, '...\\...but its implemented for instances. You may want to remove the #class message.'.
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4078	err := err withCRs.
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4079	].
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4080	].
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4081	].
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4082	] ifFalse:[(receiver isMethodVariable and:[receiver token type isNil]) ifTrue:[
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4083	"if it is an uninitialized variable ..."
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4084	((modifiedLocalVars isNil or:[(modifiedLocalVars includes:receiver name) not])
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4085	and:[hasPrimitiveCode not
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4086	and:[currentBlock isNil
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4087	and:[alreadyWarnedUninitializedVars isNil
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4088	or:[(alreadyWarnedUninitializedVars includes:receiver name) not]]]])
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4089	ifTrue:[
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4090	((#(at: at:put: basicAt: basicAt:put:) includes:selectorSymbol)
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4091	or:[(nil respondsTo:selectorSymbol) not])ifTrue:[
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4092	"/ avoid trouble in miniTalk
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4093	"/ during bootstrap
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4094	nm := receiver name.
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4095	Text notNil ifTrue:[
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4096	nm := nm allItalic
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4097	].
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4098	err := 'sent to possibly uninitialized variable ''' , nm , ''' here (?)'.
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4099	alreadyWarnedUninitializedVars isNil ifTrue:[
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4100	alreadyWarnedUninitializedVars := Set new
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4101	].
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4102	alreadyWarnedUninitializedVars add:receiver name
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4103	]
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4104	]
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4105	] ifFalse:[
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4106	(err notNil and:[selClass notNil]) ifTrue:[
3214 5192769f040a class: Parser Claus Gittinger <cg@exept.de> parents: 3213 diff changeset	4107	((selClass == Boolean)
5192769f040a class: Parser Claus Gittinger <cg@exept.de> parents: 3213 diff changeset	4108	and:[ receiver isMessage
5192769f040a class: Parser Claus Gittinger <cg@exept.de> parents: 3213 diff changeset	4109	and:[ receiver selector == #'=' ]])
5192769f040a class: Parser Claus Gittinger <cg@exept.de> parents: 3213 diff changeset	4110	ifTrue:[
5192769f040a class: Parser Claus Gittinger <cg@exept.de> parents: 3213 diff changeset	4111	err := err, ' (message to Boolean; did you mean ":=" instead of "=" in the receiver?)'
5192769f040a class: Parser Claus Gittinger <cg@exept.de> parents: 3213 diff changeset	4112	] ifFalse:[
5192769f040a class: Parser Claus Gittinger <cg@exept.de> parents: 3213 diff changeset	4113	err := err, ' (message to ' , selClass nameWithArticle , ')'.
5192769f040a class: Parser Claus Gittinger <cg@exept.de> parents: 3213 diff changeset	4114	]
3210 903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4115	].
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4116	]]]]]].
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4117	]
1158 f2cbdb21e0b0 Check for obsolete methods, if possible. Stefan Vogel <sv@exept.de> parents: 1157 diff changeset	4118	].
f2cbdb21e0b0 Check for obsolete methods, if possible. Stefan Vogel <sv@exept.de> parents: 1157 diff changeset	4119
f2cbdb21e0b0 Check for obsolete methods, if possible. Stefan Vogel <sv@exept.de> parents: 1157 diff changeset	4120	err notNil ifTrue:[
3291 6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	4121	"
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	4122	if the selector has the name of a variable, use another message
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	4123	"
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	4124	((methodVarNames notNil and:[methodVarNames includes:aSelectorString])
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	4125	or:[(methodArgNames notNil and:[methodArgNames includes:aSelectorString])
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	4126	or:[classToCompileFor notNil
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	4127	and:[((names := self classesInstVarNames) notNil and:[names includes:aSelectorString])
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	4128	or:[((names := self classesClassInstVarNames) notNil and:[names includes:aSelectorString])
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	4129	or:[(names := self classesClassVarNames) notNil and:[names includes:aSelectorString]
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	4130	]]]]]) ifTrue:[
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	4131	err := err , '
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	4132	.. but a variable with that name is defined.
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	4133
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	4134	Missing ''.'' after the previous expression
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	4135	or missing keyword/receiver before that word ?'.
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	4136	].
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	4137
3292 6031667026eb class: Parser Claus Gittinger <cg@exept.de> parents: 3291 diff changeset	4138	((aSelectorString startsWith:'x') or:[aSelectorString startsWith:'X']) and:[
6031667026eb class: Parser Claus Gittinger <cg@exept.de> parents: 3291 diff changeset	4139	(aSelectorString from:2 conform:[:ch \| ch isDigitRadix:16]) ifTrue:[
3291 6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	4140	(receiver isConstant
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	4141	and:[ receiver value == 0
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	4142	and:[ receiver startPosition == receiver endPosition "/ single digit
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	4143	]]) ifTrue:[
3292 6031667026eb class: Parser Claus Gittinger <cg@exept.de> parents: 3291 diff changeset	4144	err := err, ('\\or did you mean a C/Java hex integer (which should be 16r',(aSelectorString from:2),' in Smalltalk)')
3291 6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	4145	].
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	4146	].
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	4147	].
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	4148
3210 903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4149	(receiver notNil
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4150	and:[((recType := receiver type) == #GlobalVariable)
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4151	or:[recType == #PrivateClass]]) ifTrue:[
3291 6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	4152	"/ don't check autoloaded classes
3210 903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4153	"/ - it may work after loading
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4154
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4155	rec := receiver evaluate.
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4156	(rec notNil
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4157	and:[rec isBehavior
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4158	and:[rec isLoaded not]]) ifTrue:[
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4159	^ aSelectorString
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4160	].
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4161	rec class == UndefinedVariable ifTrue:[
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4162	"/ dont check undefined vars;
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4163	"/ it may work after loading/defining
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4164	^ aSelectorString
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4165	].
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4166	].
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4167	Text notNil ifTrue:[
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4168	err := '"' , aSelectorString allBold, '" ', err
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4169	] ifFalse:[
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4170	err := aSelectorString , ' ', err
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4171	].
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4172	"/ if its a recursive invocation of just that selector, do not complain
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4173	(selector = aSelectorString and:[ receiver isSelf]) ifTrue:[
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4174	^ aSelectorString
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4175	].
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4176	isSyntaxHighlighter ifTrue:[
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4177	posVector do:[:p \|
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4178	self markUnknownIdentifierFrom:(p start) to:(p stop).
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4179	].
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4180	].
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4181	isSyntaxHighlighter ifFalse:[
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	4182	self isDoIt ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	4183	err := err , '\\This is a warning from the compiler - the code has not yet been executed/compiled.'.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	4184	].
3210 903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4185	DoNotShowCompilerWarningAgainActionQuery handle:[:ex \|
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4186	parserFlags warnAboutPossiblyUnimplementedSelectors:false.
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4187	ParserFlags warnAboutPossiblyUnimplementedSelectors:false.
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4188	ex proceed.
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4189	] do:[
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4190	newSelector := self correctSelector:aSelectorString
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4191	message:err withCRs
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4192	positions:posVector in:selClass for:receiver.
1597 4866fce1e050 inplausible selector marking Claus Gittinger <cg@exept.de> parents: 1581 diff changeset	4193	"/ self warning:('#' , aSelectorString , '\\' , err) withCRs position:pos1 to:pos2.
3210 903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4194	].
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4195	^ newSelector.
903ad4739881 class: Parser Claus Gittinger <cg@exept.de> parents: 3208 diff changeset	4196	].
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	4197	].
1022 32bc5fc06687 added selector correction. Claus Gittinger <cg@exept.de> parents: 1020 diff changeset	4198	^ aSelectorString
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	4199
1934 1abdc93d3bf7 experimental toDoList support Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	4200	"Modified: / 05-09-1995 / 17:02:11 / claus"
2832 58356de46017 per method warning control Claus Gittinger <cg@exept.de> parents: 2814 diff changeset	4201	"Modified: / 28-02-2012 / 08:35:15 / cg"
1327 133a7d16f2a2 more checks Claus Gittinger <cg@exept.de> parents: 1326 diff changeset	4202	!
133a7d16f2a2 more checks Claus Gittinger <cg@exept.de> parents: 1326 diff changeset	4203
133a7d16f2a2 more checks Claus Gittinger <cg@exept.de> parents: 1326 diff changeset	4204	typeOfNode:aNode
1687 ecc241457f4d * empty log message * Claus Gittinger <cg@exept.de> parents: 1685 diff changeset	4205	\|nodeVal nodeType classHint rClass\|
1327 133a7d16f2a2 more checks Claus Gittinger <cg@exept.de> parents: 1326 diff changeset	4206
133a7d16f2a2 more checks Claus Gittinger <cg@exept.de> parents: 1326 diff changeset	4207	aNode isConstant ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4208	"if the receiver is a constant, we know its class..."
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4209	nodeVal := aNode evaluate.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4210	^ nodeVal class.
1327 133a7d16f2a2 more checks Claus Gittinger <cg@exept.de> parents: 1326 diff changeset	4211	].
133a7d16f2a2 more checks Claus Gittinger <cg@exept.de> parents: 1326 diff changeset	4212
133a7d16f2a2 more checks Claus Gittinger <cg@exept.de> parents: 1326 diff changeset	4213	aNode isBlock ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4214	"/ this should help with typos, sending #ifTrue to blocks ...
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4215	^ Block
1327 133a7d16f2a2 more checks Claus Gittinger <cg@exept.de> parents: 1326 diff changeset	4216	].
1687 ecc241457f4d * empty log message * Claus Gittinger <cg@exept.de> parents: 1685 diff changeset	4217
1597 4866fce1e050 inplausible selector marking Claus Gittinger <cg@exept.de> parents: 1581 diff changeset	4218	aNode isVariable ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4219	nodeType := aNode type.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4220	(nodeType == #GlobalVariable or:[nodeType == #PrivateClass]) ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4221	"if the receiver is a global, we check it too ..."
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4222
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4223	nodeVal := aNode evaluate.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4224	"/ dont check autoloaded classes
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4225	"/ - it may work after loading
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4226	(nodeVal isNil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4227	or:[nodeVal isBehavior and:[nodeVal isLoaded not]]) ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4228	^ nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4229	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4230
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4231	^ nodeVal class.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4232	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4233
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4234	(aNode isLocal) ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4235	classHint := aNode token classHint.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4236	classHint notNil ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4237	^ Smalltalk classNamed:classHint
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4238	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4239	].
1327 133a7d16f2a2 more checks Claus Gittinger <cg@exept.de> parents: 1326 diff changeset	4240	].
133a7d16f2a2 more checks Claus Gittinger <cg@exept.de> parents: 1326 diff changeset	4241
133a7d16f2a2 more checks Claus Gittinger <cg@exept.de> parents: 1326 diff changeset	4242	aNode isSuper ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4243	"if its a super- or here-send, we can do more checking"
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4244	aNode isHere ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4245	^ classToCompileFor superclass ? UndefinedObject.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4246	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4247	^ classToCompileFor.
1327 133a7d16f2a2 more checks Claus Gittinger <cg@exept.de> parents: 1326 diff changeset	4248	].
133a7d16f2a2 more checks Claus Gittinger <cg@exept.de> parents: 1326 diff changeset	4249	aNode isSelf ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4250	^ classToCompileFor.
1327 133a7d16f2a2 more checks Claus Gittinger <cg@exept.de> parents: 1326 diff changeset	4251	].
133a7d16f2a2 more checks Claus Gittinger <cg@exept.de> parents: 1326 diff changeset	4252
133a7d16f2a2 more checks Claus Gittinger <cg@exept.de> parents: 1326 diff changeset	4253	(aNode isUnaryMessage) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4254	(aNode selector == #class) ifTrue:[
1687 ecc241457f4d * empty log message * Claus Gittinger <cg@exept.de> parents: 1685 diff changeset	4255	"/ aNode receiver isSelf ifTrue:[
ecc241457f4d * empty log message * Claus Gittinger <cg@exept.de> parents: 1685 diff changeset	4256	"/ "its a message to self class - can check this too ..."
ecc241457f4d * empty log message * Claus Gittinger <cg@exept.de> parents: 1685 diff changeset	4257	"/ ^ classToCompileFor class.
ecc241457f4d * empty log message * Claus Gittinger <cg@exept.de> parents: 1685 diff changeset	4258	"/ ].
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4259	rClass := self typeOfNode:aNode receiver.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4260	rClass notNil ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4261	^ rClass class.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4262	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4263	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4264	( #(#'isNil' #'notNil') includes:aNode selector) ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4265	^ Boolean.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4266	]
1327 133a7d16f2a2 more checks Claus Gittinger <cg@exept.de> parents: 1326 diff changeset	4267	].
133a7d16f2a2 more checks Claus Gittinger <cg@exept.de> parents: 1326 diff changeset	4268	aNode isBinaryMessage ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4269	( #(#'<' #'>' #'>=' #'<=' #'=' #'==' #'~=' #'~~') includes:aNode selector) ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4270	^ Boolean.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4271	]
1327 133a7d16f2a2 more checks Claus Gittinger <cg@exept.de> parents: 1326 diff changeset	4272	].
133a7d16f2a2 more checks Claus Gittinger <cg@exept.de> parents: 1326 diff changeset	4273
133a7d16f2a2 more checks Claus Gittinger <cg@exept.de> parents: 1326 diff changeset	4274	^ nil
0 7ad01559b262 Initial revision claus parents: diff changeset	4275	! !
7ad01559b262 Initial revision claus parents: diff changeset	4276
7ad01559b262 Initial revision claus parents: diff changeset	4277	!Parser methodsFor:'error handling'!
7ad01559b262 Initial revision claus parents: diff changeset	4278
1259 c3d7847b92c1 error handling refactored Claus Gittinger <cg@exept.de> parents: 1257 diff changeset	4279	blockArgRedefined:tokenName from:pos1 to:pos2
c3d7847b92c1 error handling refactored Claus Gittinger <cg@exept.de> parents: 1257 diff changeset	4280	"argname reuse"
c3d7847b92c1 error handling refactored Claus Gittinger <cg@exept.de> parents: 1257 diff changeset	4281
c3d7847b92c1 error handling refactored Claus Gittinger <cg@exept.de> parents: 1257 diff changeset	4282	self isSyntaxHighlighter ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4283	self markBadIdentifierFrom:pos1 to:pos2.
1259 c3d7847b92c1 error handling refactored Claus Gittinger <cg@exept.de> parents: 1257 diff changeset	4284	] ifFalse:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4285	self
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4286	syntaxError:'redefinition of ''' , tokenName , ''' in argument list.'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4287	position:pos1 to:pos2
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	4288	].
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	4289	!
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	4290
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	4291	disableWarningsOnCurrentMethodFor:flagName
2832 58356de46017 per method warning control Claus Gittinger <cg@exept.de> parents: 2814 diff changeset	4292	ParserFlags disableFlag:flagName forClass:classToCompileFor selector:selector
58356de46017 per method warning control Claus Gittinger <cg@exept.de> parents: 2814 diff changeset	4293
58356de46017 per method warning control Claus Gittinger <cg@exept.de> parents: 2814 diff changeset	4294	"Created: / 28-02-2012 / 14:44:31 / cg"
58356de46017 per method warning control Claus Gittinger <cg@exept.de> parents: 2814 diff changeset	4295	!
58356de46017 per method warning control Claus Gittinger <cg@exept.de> parents: 2814 diff changeset	4296
1495 63d2a1a94504 * empty log message * Claus Gittinger <cg@exept.de> parents: 1491 diff changeset	4297	errorMessageForUndefined:aName
63d2a1a94504 * empty log message * Claus Gittinger <cg@exept.de> parents: 1491 diff changeset	4298	\|idx implementors\|
63d2a1a94504 * empty log message * Claus Gittinger <cg@exept.de> parents: 1491 diff changeset	4299
63d2a1a94504 * empty log message * Claus Gittinger <cg@exept.de> parents: 1491 diff changeset	4300	classToCompileFor notNil ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4301	"/ is it an instance-variable marked inaccessable ?
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4302
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4303	idx := (self classesInstVarNames) indexOf:(aName , '*') startingAt:1.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4304	idx ~~ 0 ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4305	^ '''%1'' is a hidden instvar (not accessable from ST-code)' bindWith:aName allBold.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4306	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4307
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4308	"/ is it an instance variable, while evaluateing for the class ?
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4309	classToCompileFor isMeta ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4310	(classToCompileFor soleInstance allInstVarNames includes:aName) ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4311	^ '''%1'' is an instvar\(hint: you are evaluating/compiling in the classes context)' bindWith:aName allBold.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4312	]
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4313	]
1495 63d2a1a94504 * empty log message * Claus Gittinger <cg@exept.de> parents: 1491 diff changeset	4314	].
63d2a1a94504 * empty log message * Claus Gittinger <cg@exept.de> parents: 1491 diff changeset	4315	self isDoIt ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4316	SystemBrowser notNil ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4317	implementors := SystemBrowser
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4318	findImplementorsOf:aName
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4319	in:(Smalltalk allClasses)
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4320	ignoreCase:false.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4321	implementors size > 0 ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4322	implementors size == 1 ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4323	^ '''%1'' is undefined but known as a message selector in %2.\(hint: did you forget to specify or select the receiver ?)'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4324	bindWith:aName allBold
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4325	with:implementors first mclass name allBold
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4326	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4327	^ '''%1'' is undefined but known as a message selector.\(hint: did you forget to specify or select the receiver ?)' bindWith:aName allBold.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4328	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4329	].
2110 2a2e7604dc16 * empty log message * Claus Gittinger <cg@exept.de> parents: 2109 diff changeset	4330	].
2150 a55391e93eb4 warning for non-existing namespace changed Claus Gittinger <cg@exept.de> parents: 2149 diff changeset	4331	peekChar == $: ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4332	^ 'NameSpace "%1" is undefined' bindWith:aName allBold.
2150 a55391e93eb4 warning for non-existing namespace changed Claus Gittinger <cg@exept.de> parents: 2149 diff changeset	4333	].
a55391e93eb4 warning for non-existing namespace changed Claus Gittinger <cg@exept.de> parents: 2149 diff changeset	4334	^ '"%1" is undefined' bindWith:aName allBold.
1495 63d2a1a94504 * empty log message * Claus Gittinger <cg@exept.de> parents: 1491 diff changeset	4335	!
63d2a1a94504 * empty log message * Claus Gittinger <cg@exept.de> parents: 1491 diff changeset	4336
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	4337	exitWith:something
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	4338	"this is the longjump out of evaluation via a return expression"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	4339
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	4340	evalExitBlock value:something
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	4341	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	4342
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	4343	identifierExpectedIn:what
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	4344	\|msg\|
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	4345
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	4346	(#(True False Self Nil Super ThisContext) includes:tokenType) ifTrue:[
3267 2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	4347	msg := 'Reserved keyword in '
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	4348	] ifFalse:[
3267 2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	4349	msg := 'Identifier expected in '
1260 50e4668049aa identifier expected - better error message Claus Gittinger <cg@exept.de> parents: 1259 diff changeset	4350	].
50e4668049aa identifier expected - better error message Claus Gittinger <cg@exept.de> parents: 1259 diff changeset	4351	self syntaxError:(msg , what , ' (got ''' , tokenType printString, ''')')
3267 2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	4352	position:tokenPosition to:source position.
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	4353	^ #Error
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	4354	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	4355
1259 c3d7847b92c1 error handling refactored Claus Gittinger <cg@exept.de> parents: 1257 diff changeset	4356	methodArgRedefined:tokenName from:pos1 to:pos2
c3d7847b92c1 error handling refactored Claus Gittinger <cg@exept.de> parents: 1257 diff changeset	4357	"argname reuse"
c3d7847b92c1 error handling refactored Claus Gittinger <cg@exept.de> parents: 1257 diff changeset	4358
c3d7847b92c1 error handling refactored Claus Gittinger <cg@exept.de> parents: 1257 diff changeset	4359	self isSyntaxHighlighter ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4360	self markBadIdentifierFrom:pos1 to:pos2.
1259 c3d7847b92c1 error handling refactored Claus Gittinger <cg@exept.de> parents: 1257 diff changeset	4361	] ifFalse:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4362	self
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4363	syntaxError:'redefinition of ''' , tokenName , ''' in argument list.'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4364	position:pos1 to:pos2
1259 c3d7847b92c1 error handling refactored Claus Gittinger <cg@exept.de> parents: 1257 diff changeset	4365	].
c3d7847b92c1 error handling refactored Claus Gittinger <cg@exept.de> parents: 1257 diff changeset	4366	!
c3d7847b92c1 error handling refactored Claus Gittinger <cg@exept.de> parents: 1257 diff changeset	4367
0 7ad01559b262 Initial revision claus parents: diff changeset	4368	showErrorMessage:aMessage position:pos
19 84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	4369	"redefined since parser can give more detailed info about
84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	4370	the class & selector where the error occured."
84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	4371
1534 2a298bacebfb * empty log message * ca parents: 1531 diff changeset	4372	\|msg\|
71 2aac7fbb5be0 * empty log message * claus parents: 66 diff changeset	4373
19 84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	4374	ignoreErrors ifFalse:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4375	Smalltalk silentLoading ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4376	msg := ''.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4377	pos notNil ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4378	msg := msg , (pos printString).
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4379	msg := msg , ' '.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4380	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4381	msg := msg , aMessage.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4382	selector notNil ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4383	msg := msg , ' in '.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4384	classToCompileFor notNil ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4385	msg := msg , classToCompileFor name , '>>'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4386	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4387	msg := msg , selector.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4388	] ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4389	classToCompileFor notNil ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4390	msg := msg , ' (' , classToCompileFor name , ')'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4391	]
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4392	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4393
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4394	UserInformation isHandled ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4395	UserInformation raiseErrorString:msg
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4396	] ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4397	Transcript showCR:msg.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4398	]
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4399	]
0 7ad01559b262 Initial revision claus parents: diff changeset	4400	]
273 2758f1723f53 showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 265 diff changeset	4401
2758f1723f53 showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 265 diff changeset	4402	"Modified: 18.5.1996 / 15:44:15 / cg"
0 7ad01559b262 Initial revision claus parents: diff changeset	4403	!
7ad01559b262 Initial revision claus parents: diff changeset	4404
171 fc14729145ff checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	4405	showErrorMessageForClass:aClass
fc14729145ff checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	4406	"/ compiler parseError:'syntax error'.
fc14729145ff checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	4407	Transcript show:' '.
fc14729145ff checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	4408	aClass notNil ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4409	Transcript show:aClass name , '>>'
171 fc14729145ff checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	4410	].
fc14729145ff checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	4411	selector notNil ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4412	Transcript show:(selector)
171 fc14729145ff checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	4413	].
273 2758f1723f53 showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 265 diff changeset	4414	Transcript showCR:' -> Error'.
171 fc14729145ff checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	4415
fc14729145ff checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	4416	"Created: 13.12.1995 / 20:24:34 / cg"
273 2758f1723f53 showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 265 diff changeset	4417	"Modified: 18.5.1996 / 15:44:17 / cg"
171 fc14729145ff checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	4418	!
fc14729145ff checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	4419
0 7ad01559b262 Initial revision claus parents: diff changeset	4420	undefError:aName position:pos1 to:pos2
3 b63b8a6b71fb * empty log message * claus parents: 0 diff changeset	4421	"report an undefined variable error - return true, if it should be
86 26316d17e8c0 . claus parents: 85 diff changeset	4422	corrected. If not corrected, only one warning is made per undefined
26316d17e8c0 . claus parents: 85 diff changeset	4423	variable."
26316d17e8c0 . claus parents: 85 diff changeset	4424
1934 1abdc93d3bf7 experimental toDoList support Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	4425	\|ex doCorrect boldName errMsg\|
1400 20ccdab04698 * empty log message * martin parents: 1399 diff changeset	4426
20ccdab04698 * empty log message * martin parents: 1399 diff changeset	4427	ex := UndefinedVariableNotification newException.
20ccdab04698 * empty log message * martin parents: 1399 diff changeset	4428	ex parser:self.
20ccdab04698 * empty log message * martin parents: 1399 diff changeset	4429	ex parameter:aName.
20ccdab04698 * empty log message * martin parents: 1399 diff changeset	4430	ex suspendedContext:thisContext.
20ccdab04698 * empty log message * martin parents: 1399 diff changeset	4431	doCorrect := ex raiseRequest.
1399 95b2eaa4e457 undefinedVariableNotification fix Claus Gittinger <cg@exept.de> parents: 1398 diff changeset	4432	doCorrect notNil ifTrue:[
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	4433	^ doCorrect
1399 95b2eaa4e457 undefinedVariableNotification fix Claus Gittinger <cg@exept.de> parents: 1398 diff changeset	4434	].
95b2eaa4e457 undefinedVariableNotification fix Claus Gittinger <cg@exept.de> parents: 1398 diff changeset	4435
86 26316d17e8c0 . claus parents: 85 diff changeset	4436	"
1985 f1baf3fd8efa comment Stefan Vogel <sv@exept.de> parents: 1983 diff changeset	4437	already warned about this one ?
86 26316d17e8c0 . claus parents: 85 diff changeset	4438	"
26316d17e8c0 . claus parents: 85 diff changeset	4439	warnedUndefVars notNil ifTrue:[
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	4440	(warnedUndefVars includes:aName) ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	4441	"already warned about this one"
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	4442	^ false
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	4443	].
86 26316d17e8c0 . claus parents: 85 diff changeset	4444	].
26316d17e8c0 . claus parents: 85 diff changeset	4445
1901 a539817c2dde undefined variables error is not turned off by disabling warnings. Claus Gittinger <cg@exept.de> parents: 1855 diff changeset	4446	"/ ignoreWarnings ifTrue:[^ false].
a539817c2dde undefined variables error is not turned off by disabling warnings. Claus Gittinger <cg@exept.de> parents: 1855 diff changeset	4447	parserFlags warnUndeclared ifFalse:[^ false].
a539817c2dde undefined variables error is not turned off by disabling warnings. Claus Gittinger <cg@exept.de> parents: 1855 diff changeset	4448
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	4449	"/ (classToCompileFor notNil
131 5fcdc8c7770d * empty log message * Claus Gittinger <cg@exept.de> parents: 126 diff changeset	4450	"/ and:[classToCompileFor superclass notNil
5fcdc8c7770d * empty log message * Claus Gittinger <cg@exept.de> parents: 126 diff changeset	4451	"/ and:[classToCompileFor superclass instanceVariableString isNil]]) ifTrue:[
132 5be56a5e90b7 added methods for silent parsing (parseMethod / parseMethodSpec) Claus Gittinger <cg@exept.de> parents: 131 diff changeset	4452	"/ self showErrorMessage:'Error: no source information (instvar names)' position:pos1.
5be56a5e90b7 added methods for silent parsing (parseMethod / parseMethodSpec) Claus Gittinger <cg@exept.de> parents: 131 diff changeset	4453	"/ ^ false
131 5fcdc8c7770d * empty log message * Claus Gittinger <cg@exept.de> parents: 126 diff changeset	4454	"/ ].
5fcdc8c7770d * empty log message * Claus Gittinger <cg@exept.de> parents: 126 diff changeset	4455
1285 32af9747bf9d error messages Claus Gittinger <cg@exept.de> parents: 1282 diff changeset	4456	boldName := aName allBold.
32af9747bf9d error messages Claus Gittinger <cg@exept.de> parents: 1282 diff changeset	4457
131 5fcdc8c7770d * empty log message * Claus Gittinger <cg@exept.de> parents: 126 diff changeset	4458	(requestor isNil or:[requestor isStream]) ifTrue:[
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	4459	errMsg := 'Error: "%1" is undefined' bindWith:boldName.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	4460	aName isUppercaseFirst ifFalse:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	4461	self showErrorMessage:errMsg position:pos1.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	4462	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	4463	doCorrect := false.
86 26316d17e8c0 . claus parents: 85 diff changeset	4464	] ifFalse:[
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	4465	"
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	4466	ask requestor for correct/continue/abort ...
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	4467	it is supposed to raise abort or return true/false.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	4468	True return means that correction is wanted.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	4469	"
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	4470	errMsg := self errorMessageForUndefined:aName.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	4471	aName isUppercaseFirst ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	4472	doCorrect := self
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	4473	correctableWarning:errMsg withCRs
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	4474	position:pos1 to:pos2
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	4475	] ifFalse:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	4476	doCorrect := self
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	4477	correctableError:errMsg withCRs
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	4478	position:pos1 to:pos2
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	4479	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	4480	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	4481	"/ notice: doCorrect may be a non-boolean
877 e75488a39c46 workspace variables. Claus Gittinger <cg@exept.de> parents: 869 diff changeset	4482	doCorrect == false ifTrue:[
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	4483	warnedUndefVars isNil ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	4484	warnedUndefVars := Set new.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	4485	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	4486	warnedUndefVars add:aName.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	4487	self classToCompileFor notNil ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	4488	Tools::ToDoListBrowser notNil ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	4489	"/ experimental
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	4490	self
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	4491	notifyTodo:errMsg position:pos1
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	4492	className:(self classToCompileFor name) selector:selector
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	4493	severity:#error priority:#high
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	4494	equalityParameter:aName
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	4495	checkAction:[:e \|
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	4496	e problemMethod notNil
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	4497	and:[(e problemMethod usedGlobals includes:aName)
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	4498	and:[(Smalltalk includesKey:aName) not]] ].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	4499	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	4500	].
3 b63b8a6b71fb * empty log message * claus parents: 0 diff changeset	4501	].
0 7ad01559b262 Initial revision claus parents: diff changeset	4502
86 26316d17e8c0 . claus parents: 85 diff changeset	4503	^ doCorrect
358 78b0d8954c49 removed possible conflict between #classVarNames here and in Class. Claus Gittinger <cg@exept.de> parents: 354 diff changeset	4504
2453 5cbc373cfa9f changed: #undefError:position:to: Claus Gittinger <cg@exept.de> parents: 2432 diff changeset	4505	"Modified: / 02-11-2010 / 13:32:21 / cg"
1160 972e7e337891 Warn about unused method vars Stefan Vogel <sv@exept.de> parents: 1158 diff changeset	4506	!
972e7e337891 Warn about unused method vars Stefan Vogel <sv@exept.de> parents: 1158 diff changeset	4507
1636 98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	4508	warnSTXHereExtensionUsedAt:position
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	4509	ignoreWarnings ifFalse:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4510	didWarnAboutSTXHereExtensionUsed ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4511	parserFlags warnSTXHereExtensionUsed ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4512	self warning:'here-sends are a nonstandard feature of ST/X'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4513	position:position to:position+3.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4514	"
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4515	only warn once
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4516	"
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4517	didWarnAboutSTXHereExtensionUsed := true
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4518	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4519	].
1636 98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	4520	].
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	4521	!
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	4522
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	4523	warnSTXNameSpaceUseAt:position
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	4524	ignoreWarnings ifFalse:[
3267 2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	4525	didWarnAboutSTXNameSpaceUse ifFalse:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	4526	parserFlags warnSTXNameSpaceUse ifTrue:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	4527	self warning:'NameSpaces are a nonstandard feature of ST/X'
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	4528	doNotShowAgainAction:[ ParserFlags warnSTXSpecials:false ]
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	4529	position:position to:(source position + 1).
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	4530	"
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	4531	only warn once
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	4532	"
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	4533	didWarnAboutSTXNameSpaceUse := false
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	4534	]
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	4535	]
1636 98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	4536	].
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	4537	!
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	4538
2832 58356de46017 per method warning control Claus Gittinger <cg@exept.de> parents: 2814 diff changeset	4539	warnSTXSpecialCommentAt:position to:endPosition
58356de46017 per method warning control Claus Gittinger <cg@exept.de> parents: 2814 diff changeset	4540	(ParserFlags isFlag:#warnSTXSpecials enabledForClass:classToCompileFor selector:selector) ifFalse:[^ self].
58356de46017 per method warning control Claus Gittinger <cg@exept.de> parents: 2814 diff changeset	4541	super warnSTXSpecialCommentAt:position to:endPosition
58356de46017 per method warning control Claus Gittinger <cg@exept.de> parents: 2814 diff changeset	4542
58356de46017 per method warning control Claus Gittinger <cg@exept.de> parents: 2814 diff changeset	4543	"Created: / 28-02-2012 / 14:55:36 / cg"
58356de46017 per method warning control Claus Gittinger <cg@exept.de> parents: 2814 diff changeset	4544	!
58356de46017 per method warning control Claus Gittinger <cg@exept.de> parents: 2814 diff changeset	4545
1160 972e7e337891 Warn about unused method vars Stefan Vogel <sv@exept.de> parents: 1158 diff changeset	4546	warnUnused:aNameCollection
972e7e337891 Warn about unused method vars Stefan Vogel <sv@exept.de> parents: 1158 diff changeset	4547	"report an unused method variable"
972e7e337891 Warn about unused method vars Stefan Vogel <sv@exept.de> parents: 1158 diff changeset	4548
2832 58356de46017 per method warning control Claus Gittinger <cg@exept.de> parents: 2814 diff changeset	4549	\|msg answer lineLength first queries\|
58356de46017 per method warning control Claus Gittinger <cg@exept.de> parents: 2814 diff changeset	4550
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	4551	ignoreErrors ifTrue:[^ self].
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	4552	ignoreWarnings ifTrue:[^ self].
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	4553	parserFlags warnUnusedVars ifFalse:[^ self].
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	4554
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	4555	(ParserFlags isFlag:#warnUnusedVars enabledForClass:classToCompileFor selector:selector)
3146 82df27e512f5 use #creator instead of #signal Claus Gittinger <cg@exept.de> parents: 3093 diff changeset	4556	ifFalse:[^ self].
2832 58356de46017 per method warning control Claus Gittinger <cg@exept.de> parents: 2814 diff changeset	4557
58356de46017 per method warning control Claus Gittinger <cg@exept.de> parents: 2814 diff changeset	4558	msg := 'Unused method variable(s): '.
58356de46017 per method warning control Claus Gittinger <cg@exept.de> parents: 2814 diff changeset	4559	lineLength := msg size.
58356de46017 per method warning control Claus Gittinger <cg@exept.de> parents: 2814 diff changeset	4560	first := true.
58356de46017 per method warning control Claus Gittinger <cg@exept.de> parents: 2814 diff changeset	4561	aNameCollection asSortedCollection do:[:name\|
3146 82df27e512f5 use #creator instead of #signal Claus Gittinger <cg@exept.de> parents: 3093 diff changeset	4562	first ifTrue:[ first := false ] ifFalse:[msg := msg , ', '].
82df27e512f5 use #creator instead of #signal Claus Gittinger <cg@exept.de> parents: 3093 diff changeset	4563	msg := msg , ('"',name allBold,'"').
82df27e512f5 use #creator instead of #signal Claus Gittinger <cg@exept.de> parents: 3093 diff changeset	4564	lineLength := lineLength + 2 + name size + 1.
82df27e512f5 use #creator instead of #signal Claus Gittinger <cg@exept.de> parents: 3093 diff changeset	4565	lineLength > 60 ifTrue:[
82df27e512f5 use #creator instead of #signal Claus Gittinger <cg@exept.de> parents: 3093 diff changeset	4566	msg := msg , '\' withCRs.
82df27e512f5 use #creator instead of #signal Claus Gittinger <cg@exept.de> parents: 3093 diff changeset	4567	lineLength := 0.
82df27e512f5 use #creator instead of #signal Claus Gittinger <cg@exept.de> parents: 3093 diff changeset	4568	].
2832 58356de46017 per method warning control Claus Gittinger <cg@exept.de> parents: 2814 diff changeset	4569	].
58356de46017 per method warning control Claus Gittinger <cg@exept.de> parents: 2814 diff changeset	4570
58356de46017 per method warning control Claus Gittinger <cg@exept.de> parents: 2814 diff changeset	4571	(requestor isNil or:[requestor isStream]) ifTrue:[
3146 82df27e512f5 use #creator instead of #signal Claus Gittinger <cg@exept.de> parents: 3093 diff changeset	4572	self showErrorMessage:('Warning: ', msg) position:nil.
2832 58356de46017 per method warning control Claus Gittinger <cg@exept.de> parents: 2814 diff changeset	4573	] ifFalse:[
3146 82df27e512f5 use #creator instead of #signal Claus Gittinger <cg@exept.de> parents: 3093 diff changeset	4574	queries := DoNotShowCompilerWarningAgainActionQuery.
82df27e512f5 use #creator instead of #signal Claus Gittinger <cg@exept.de> parents: 3093 diff changeset	4575	(self isDoIt not
82df27e512f5 use #creator instead of #signal Claus Gittinger <cg@exept.de> parents: 3093 diff changeset	4576	and:[ classToCompileFor notNil
82df27e512f5 use #creator instead of #signal Claus Gittinger <cg@exept.de> parents: 3093 diff changeset	4577	and:[ selector notNil ]]) ifTrue:[
82df27e512f5 use #creator instead of #signal Claus Gittinger <cg@exept.de> parents: 3093 diff changeset	4578	queries := queries , DoNotShowCompilerWarningAgainForThisMethodActionQuery.
82df27e512f5 use #creator instead of #signal Claus Gittinger <cg@exept.de> parents: 3093 diff changeset	4579	].
82df27e512f5 use #creator instead of #signal Claus Gittinger <cg@exept.de> parents: 3093 diff changeset	4580	queries handle:[:ex \|
82df27e512f5 use #creator instead of #signal Claus Gittinger <cg@exept.de> parents: 3093 diff changeset	4581	ex creator == DoNotShowCompilerWarningAgainActionQuery ifTrue:[
82df27e512f5 use #creator instead of #signal Claus Gittinger <cg@exept.de> parents: 3093 diff changeset	4582	parserFlags warnUnusedVars:false.
82df27e512f5 use #creator instead of #signal Claus Gittinger <cg@exept.de> parents: 3093 diff changeset	4583	ParserFlags warnUnusedVars:false.
82df27e512f5 use #creator instead of #signal Claus Gittinger <cg@exept.de> parents: 3093 diff changeset	4584	] ifFalse:[
82df27e512f5 use #creator instead of #signal Claus Gittinger <cg@exept.de> parents: 3093 diff changeset	4585	self disableWarningsOnCurrentMethodFor: #warnUnusedVars
82df27e512f5 use #creator instead of #signal Claus Gittinger <cg@exept.de> parents: 3093 diff changeset	4586	].
82df27e512f5 use #creator instead of #signal Claus Gittinger <cg@exept.de> parents: 3093 diff changeset	4587	ex proceed.
82df27e512f5 use #creator instead of #signal Claus Gittinger <cg@exept.de> parents: 3093 diff changeset	4588	] do:[
82df27e512f5 use #creator instead of #signal Claus Gittinger <cg@exept.de> parents: 3093 diff changeset	4589	answer := requestor
82df27e512f5 use #creator instead of #signal Claus Gittinger <cg@exept.de> parents: 3093 diff changeset	4590	unusedVariableWarning:msg
82df27e512f5 use #creator instead of #signal Claus Gittinger <cg@exept.de> parents: 3093 diff changeset	4591	position:(localVarDefPosition first) to:(localVarDefPosition last) from:self.
82df27e512f5 use #creator instead of #signal Claus Gittinger <cg@exept.de> parents: 3093 diff changeset	4592	].
82df27e512f5 use #creator instead of #signal Claus Gittinger <cg@exept.de> parents: 3093 diff changeset	4593	answer == true ifTrue:[
82df27e512f5 use #creator instead of #signal Claus Gittinger <cg@exept.de> parents: 3093 diff changeset	4594	"/ delete the definitions ...
82df27e512f5 use #creator instead of #signal Claus Gittinger <cg@exept.de> parents: 3093 diff changeset	4595	aNameCollection do:[:eachName \|
82df27e512f5 use #creator instead of #signal Claus Gittinger <cg@exept.de> parents: 3093 diff changeset	4596	self deleteDefinitionOf:eachName in:(localVarDefPosition first) to:(localVarDefPosition last).
82df27e512f5 use #creator instead of #signal Claus Gittinger <cg@exept.de> parents: 3093 diff changeset	4597	].
82df27e512f5 use #creator instead of #signal Claus Gittinger <cg@exept.de> parents: 3093 diff changeset	4598	RestartCompilationSignal raise
82df27e512f5 use #creator instead of #signal Claus Gittinger <cg@exept.de> parents: 3093 diff changeset	4599	].
2832 58356de46017 per method warning control Claus Gittinger <cg@exept.de> parents: 2814 diff changeset	4600	].
58356de46017 per method warning control Claus Gittinger <cg@exept.de> parents: 2814 diff changeset	4601
58356de46017 per method warning control Claus Gittinger <cg@exept.de> parents: 2814 diff changeset	4602	Tools::ToDoListBrowser notNil ifTrue:[
3146 82df27e512f5 use #creator instead of #signal Claus Gittinger <cg@exept.de> parents: 3093 diff changeset	4603	"/ experimental
82df27e512f5 use #creator instead of #signal Claus Gittinger <cg@exept.de> parents: 3093 diff changeset	4604	self
82df27e512f5 use #creator instead of #signal Claus Gittinger <cg@exept.de> parents: 3093 diff changeset	4605	notifyTodo:msg position:(localVarDefPosition first)
82df27e512f5 use #creator instead of #signal Claus Gittinger <cg@exept.de> parents: 3093 diff changeset	4606	className:(self classToCompileFor name) selector:selector
82df27e512f5 use #creator instead of #signal Claus Gittinger <cg@exept.de> parents: 3093 diff changeset	4607	severity:#warning priority:#low
82df27e512f5 use #creator instead of #signal Claus Gittinger <cg@exept.de> parents: 3093 diff changeset	4608	equalityParameter:nil
82df27e512f5 use #creator instead of #signal Claus Gittinger <cg@exept.de> parents: 3093 diff changeset	4609	checkAction:nil.
2832 58356de46017 per method warning control Claus Gittinger <cg@exept.de> parents: 2814 diff changeset	4610	].
58356de46017 per method warning control Claus Gittinger <cg@exept.de> parents: 2814 diff changeset	4611
58356de46017 per method warning control Claus Gittinger <cg@exept.de> parents: 2814 diff changeset	4612	"Modified: / 28-02-2012 / 14:55:07 / cg"
0 7ad01559b262 Initial revision claus parents: diff changeset	4613	! !
7ad01559b262 Initial revision claus parents: diff changeset	4614
1363 2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4615	!Parser methodsFor:'evaluating expressions'!
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4616
2991 035114ac9b4b common default failblock Claus Gittinger <cg@exept.de> parents: 2985 diff changeset	4617	defaultFailBlock
035114ac9b4b common default failblock Claus Gittinger <cg@exept.de> parents: 2985 diff changeset	4618	^ [:msg \| self error:(msg ? 'error in eval') ]
035114ac9b4b common default failblock Claus Gittinger <cg@exept.de> parents: 2985 diff changeset	4619	!
2995 ced78dd20036 class: Parser Stefan Vogel <sv@exept.de> parents: 2991 diff changeset	4620
1683 faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	4621	evaluate:aStringOrStream
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	4622	"return the result of evaluating aStringOrStream, errors are reported to requestor.
1683 faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	4623	Allow access to anObject as self and to its instVars (used in the inspector).
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	4624	If logged is true, an entry is added to the change-file. If the failBlock argument
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	4625	is non-nil, it is evaluated if an error occurs.
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	4626	Finally, compile specifies if the string should be compiled down to
1683 faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	4627	bytecode or instead be interpreted from the parseTree.
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	4628	The first should be done for doIts etc, where a readable walkback is
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	4629	required.
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	4630	The latter is better done for constants, styleSheet and resource
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	4631	reading and simple sends, where the overhead of compilation is bigger
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	4632	than the interpretation overhead."
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	4633
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	4634	^ self
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4635	evaluate:aStringOrStream
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4636	in:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4637	receiver:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4638	notifying:requestor
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4639	logged:logged
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4640	ifFail:(self defaultFailBlock)
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4641	compile:false
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4642	checkForEndOfInput:true
1683 faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	4643	!
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	4644
1963 b9a4d1820ec3 +evaluate:compile: Claus Gittinger <cg@exept.de> parents: 1957 diff changeset	4645	evaluate:aStringOrStream compile:compile
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	4646	"return the result of evaluating aStringOrStream, errors are reported to requestor.
1963 b9a4d1820ec3 +evaluate:compile: Claus Gittinger <cg@exept.de> parents: 1957 diff changeset	4647	Allow access to anObject as self and to its instVars (used in the inspector).
b9a4d1820ec3 +evaluate:compile: Claus Gittinger <cg@exept.de> parents: 1957 diff changeset	4648	If logged is true, an entry is added to the change-file. If the failBlock argument
b9a4d1820ec3 +evaluate:compile: Claus Gittinger <cg@exept.de> parents: 1957 diff changeset	4649	is non-nil, it is evaluated if an error occurs.
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	4650	Finally, compile specifies if the string should be compiled down to
1963 b9a4d1820ec3 +evaluate:compile: Claus Gittinger <cg@exept.de> parents: 1957 diff changeset	4651	bytecode or instead be interpreted from the parseTree.
b9a4d1820ec3 +evaluate:compile: Claus Gittinger <cg@exept.de> parents: 1957 diff changeset	4652	The first should be done for doIts etc, where a readable walkback is
b9a4d1820ec3 +evaluate:compile: Claus Gittinger <cg@exept.de> parents: 1957 diff changeset	4653	required.
b9a4d1820ec3 +evaluate:compile: Claus Gittinger <cg@exept.de> parents: 1957 diff changeset	4654	The latter is better done for constants, styleSheet and resource
b9a4d1820ec3 +evaluate:compile: Claus Gittinger <cg@exept.de> parents: 1957 diff changeset	4655	reading and simple sends, where the overhead of compilation is bigger
b9a4d1820ec3 +evaluate:compile: Claus Gittinger <cg@exept.de> parents: 1957 diff changeset	4656	than the interpretation overhead."
b9a4d1820ec3 +evaluate:compile: Claus Gittinger <cg@exept.de> parents: 1957 diff changeset	4657
b9a4d1820ec3 +evaluate:compile: Claus Gittinger <cg@exept.de> parents: 1957 diff changeset	4658	^ self
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4659	evaluate:aStringOrStream
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4660	in:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4661	receiver:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4662	notifying:requestor
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4663	logged:logged
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4664	ifFail:(self defaultFailBlock)
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4665	compile:compile
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4666	checkForEndOfInput:true
1963 b9a4d1820ec3 +evaluate:compile: Claus Gittinger <cg@exept.de> parents: 1957 diff changeset	4667
b9a4d1820ec3 +evaluate:compile: Claus Gittinger <cg@exept.de> parents: 1957 diff changeset	4668	"Created: / 07-12-2006 / 19:30:04 / cg"
b9a4d1820ec3 +evaluate:compile: Claus Gittinger <cg@exept.de> parents: 1957 diff changeset	4669	!
b9a4d1820ec3 +evaluate:compile: Claus Gittinger <cg@exept.de> parents: 1957 diff changeset	4670
1683 faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	4671	evaluate:aStringOrStream ifFail:failBlock
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	4672	"return the result of evaluating aStringOrStream, errors are reported to requestor.
1683 faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	4673	Allow access to anObject as self and to its instVars (used in the inspector).
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	4674	If logged is true, an entry is added to the change-file. If the failBlock argument
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	4675	is non-nil, it is evaluated if an error occurs.
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	4676	Finally, compile specifies if the string should be compiled down to
1683 faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	4677	bytecode or instead be interpreted from the parseTree.
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	4678	The first should be done for doIts etc, where a readable walkback is
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	4679	required.
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	4680	The latter is better done for constants, styleSheet and resource
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	4681	reading and simple sends, where the overhead of compilation is bigger
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	4682	than the interpretation overhead."
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	4683
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	4684	^ self
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4685	evaluate:aStringOrStream
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4686	in:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4687	receiver:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4688	notifying:requestor
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4689	logged:logged
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4690	ifFail:failBlock
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4691	compile:false
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4692	checkForEndOfInput:true
1683 faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	4693	!
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	4694
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	4695	evaluate:aStringOrStream in:aContext receiver:anObject
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	4696	"return the result of evaluating aStringOrStream, errors are reported to requestor.
1683 faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	4697	Allow access to anObject as self and to its instVars (used in the inspector).
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	4698	If logged is true, an entry is added to the change-file. If the failBlock argument
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	4699	is non-nil, it is evaluated if an error occurs.
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	4700	Finally, compile specifies if the string should be compiled down to
1683 faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	4701	bytecode or instead be interpreted from the parseTree.
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	4702	The first should be done for doIts etc, where a readable walkback is
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	4703	required.
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	4704	The latter is better done for constants, styleSheet and resource
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	4705	reading and simple sends, where the overhead of compilation is bigger
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	4706	than the interpretation overhead."
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	4707
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	4708	^ self
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4709	evaluate:aStringOrStream
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4710	in:aContext
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4711	receiver:anObject
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4712	notifying:requestor
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4713	logged:logged
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4714	ifFail:(self defaultFailBlock)
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4715	compile:false
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4716	checkForEndOfInput:true
1683 faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	4717	!
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	4718
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	4719	evaluate:aStringOrStream in:aContext receiver:anObject ifFail:failBlock
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	4720	"return the result of evaluating aStringOrStream, errors are reported to requestor.
1683 faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	4721	Allow access to anObject as self and to its instVars (used in the inspector).
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	4722	If logged is true, an entry is added to the change-file. If the failBlock argument
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	4723	is non-nil, it is evaluated if an error occurs.
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	4724	Finally, compile specifies if the string should be compiled down to
1683 faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	4725	bytecode or instead be interpreted from the parseTree.
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	4726	The first should be done for doIts etc, where a readable walkback is
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	4727	required.
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	4728	The latter is better done for constants, styleSheet and resource
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	4729	reading and simple sends, where the overhead of compilation is bigger
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	4730	than the interpretation overhead."
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	4731
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	4732	^ self
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4733	evaluate:aStringOrStream
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4734	in:aContext
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4735	receiver:anObject
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4736	notifying:requestor
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4737	logged:logged
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4738	ifFail:failBlock
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4739	compile:false
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4740	checkForEndOfInput:true
1683 faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	4741	!
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	4742
2063 c4c1a547548d sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 2062 diff changeset	4743	evaluate:aStringOrStream in:aContext receiver:anObject notifying:requestor logged:logged ifFail:failBlock
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	4744	"return the result of evaluating aStringOrStream, errors are reported to requestor.
2063 c4c1a547548d sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 2062 diff changeset	4745	Allow access to anObject as self and to its instVars (used in the inspector).
c4c1a547548d sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 2062 diff changeset	4746	If logged is true, an entry is added to the change-file. If the failBlock argument
c4c1a547548d sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 2062 diff changeset	4747	is non-nil, it is evaluated if an error occurs.
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	4748	Finally, compile specifies if the string should be compiled down to
2063 c4c1a547548d sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 2062 diff changeset	4749	bytecode or instead be interpreted from the parseTree.
c4c1a547548d sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 2062 diff changeset	4750	The first should be done for doIts etc, where a readable walkback is
c4c1a547548d sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 2062 diff changeset	4751	required.
c4c1a547548d sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 2062 diff changeset	4752	The latter is better done for constants, styleSheet and resource
c4c1a547548d sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 2062 diff changeset	4753	reading and simple sends, where the overhead of compilation is bigger
c4c1a547548d sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 2062 diff changeset	4754	than the interpretation overhead."
c4c1a547548d sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 2062 diff changeset	4755
c4c1a547548d sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 2062 diff changeset	4756	^ self
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4757	evaluate:aStringOrStream
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4758	in:aContext
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4759	receiver:anObject
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4760	notifying:requestor
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4761	logged:logged
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4762	ifFail:failBlock
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4763	compile:true
2063 c4c1a547548d sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 2062 diff changeset	4764	!
c4c1a547548d sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 2062 diff changeset	4765
1363 2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4766	evaluate:aStringOrStream in:aContext receiver:anObject notifying:requestor logged:logged ifFail:failBlock compile:compile
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	4767	"return the result of evaluating aStringOrStream, errors are reported to requestor.
1363 2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4768	Allow access to anObject as self and to its instVars (used in the inspector).
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4769	If logged is true, an entry is added to the change-file. If the failBlock argument
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4770	is non-nil, it is evaluated if an error occurs.
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	4771	Finally, compile specifies if the string should be compiled down to
1363 2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4772	bytecode or instead be interpreted from the parseTree.
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4773	The first should be done for doIts etc, where a readable walkback is
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4774	required.
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4775	The latter is better done for constants, styleSheet and resource
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4776	reading and simple sends, where the overhead of compilation is bigger
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4777	than the interpretation overhead."
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4778
1548 a8e0beb870b6 +evaluateFrom: Claus Gittinger <cg@exept.de> parents: 1547 diff changeset	4779	^ self
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4780	evaluate:aStringOrStream
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4781	in:aContext
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4782	receiver:anObject
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4783	notifying:requestor
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4784	logged:logged
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4785	ifFail:failBlock
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4786	compile:compile
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	4787	checkForEndOfInput:true
1548 a8e0beb870b6 +evaluateFrom: Claus Gittinger <cg@exept.de> parents: 1547 diff changeset	4788	!
a8e0beb870b6 +evaluateFrom: Claus Gittinger <cg@exept.de> parents: 1547 diff changeset	4789
a8e0beb870b6 +evaluateFrom: Claus Gittinger <cg@exept.de> parents: 1547 diff changeset	4790	evaluate:aStringOrStream in:aContext receiver:anObject notifying:requestor logged:logged ifFail:failBlock compile:compile checkForEndOfInput:checkForEndOfInput
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	4791	"return the result of evaluating aStringOrStream, errors are reported to requestor.
1548 a8e0beb870b6 +evaluateFrom: Claus Gittinger <cg@exept.de> parents: 1547 diff changeset	4792	Allow access to anObject as self and to its instVars (used in the inspector).
a8e0beb870b6 +evaluateFrom: Claus Gittinger <cg@exept.de> parents: 1547 diff changeset	4793	If logged is true, an entry is added to the change-file. If the failBlock argument
a8e0beb870b6 +evaluateFrom: Claus Gittinger <cg@exept.de> parents: 1547 diff changeset	4794	is non-nil, it is evaluated if an error occurs.
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	4795	Finally, compile specifies if the string should be compiled down to
1548 a8e0beb870b6 +evaluateFrom: Claus Gittinger <cg@exept.de> parents: 1547 diff changeset	4796	bytecode or instead be interpreted from the parseTree.
a8e0beb870b6 +evaluateFrom: Claus Gittinger <cg@exept.de> parents: 1547 diff changeset	4797	The first should be done for doIts etc, where a readable walkback is
a8e0beb870b6 +evaluateFrom: Claus Gittinger <cg@exept.de> parents: 1547 diff changeset	4798	required.
a8e0beb870b6 +evaluateFrom: Claus Gittinger <cg@exept.de> parents: 1547 diff changeset	4799	The latter is better done for constants, styleSheet and resource
a8e0beb870b6 +evaluateFrom: Claus Gittinger <cg@exept.de> parents: 1547 diff changeset	4800	reading and simple sends, where the overhead of compilation is bigger
2151 810e174ed906 When evaluating a expression while filing in, do not raise error Stefan Vogel <sv@exept.de> parents: 2150 diff changeset	4801	than the interpretation overhead.
810e174ed906 When evaluating a expression while filing in, do not raise error Stefan Vogel <sv@exept.de> parents: 2150 diff changeset	4802
810e174ed906 When evaluating a expression while filing in, do not raise error Stefan Vogel <sv@exept.de> parents: 2150 diff changeset	4803	If chekForEndOfInput is set, generate an error if EOF hat not been reached
810e174ed906 When evaluating a expression while filing in, do not raise error Stefan Vogel <sv@exept.de> parents: 2150 diff changeset	4804	at the end of the expression."
1548 a8e0beb870b6 +evaluateFrom: Claus Gittinger <cg@exept.de> parents: 1547 diff changeset	4805
1363 2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4806	\|tree mustBackup loggedString chgStream value s sReal spc
2328 09ef8479a874 changed: #evaluate:in:receiver:notifying:logged:ifFail:compile:checkForEndOfInput: Claus Gittinger <cg@exept.de> parents: 2309 diff changeset	4807	nameSpaceQuerySignal compiler cls\|
1363 2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4808
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4809	aStringOrStream isNil ifTrue:[
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4810	EmptySourceNotificationSignal raiseRequest.
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4811	^ nil
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4812	].
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4813	(mustBackup := aStringOrStream isStream) ifTrue:[
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4814	s := aStringOrStream.
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4815	] ifFalse:[
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4816	loggedString := aStringOrStream.
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4817	s := ReadStream on:aStringOrStream.
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4818	].
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4819
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4820	self source:s.
3287 915a98fda4d2 class: Parser Claus Gittinger <cg@exept.de> parents: 3286 diff changeset	4821	selector := #doIt. "/ so isDoit returns the correct answer!!
1363 2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4822
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4823	self parseForCode.
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4824	self foldConstants:nil.
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4825	self setSelf:anObject.
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4826	self setContext:aContext.
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4827	aContext notNil ifTrue:[
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4828	self setSelf:(aContext receiver).
2328 09ef8479a874 changed: #evaluate:in:receiver:notifying:logged:ifFail:compile:checkForEndOfInput: Claus Gittinger <cg@exept.de> parents: 2309 diff changeset	4829	aContext method notNil ifTrue:[
09ef8479a874 changed: #evaluate:in:receiver:notifying:logged:ifFail:compile:checkForEndOfInput: Claus Gittinger <cg@exept.de> parents: 2309 diff changeset	4830	cls := aContext method mclass
09ef8479a874 changed: #evaluate:in:receiver:notifying:logged:ifFail:compile:checkForEndOfInput: Claus Gittinger <cg@exept.de> parents: 2309 diff changeset	4831	].
09ef8479a874 changed: #evaluate:in:receiver:notifying:logged:ifFail:compile:checkForEndOfInput: Claus Gittinger <cg@exept.de> parents: 2309 diff changeset	4832	self setClassToCompileFor:(cls ? aContext receiver class).
09ef8479a874 changed: #evaluate:in:receiver:notifying:logged:ifFail:compile:checkForEndOfInput: Claus Gittinger <cg@exept.de> parents: 2309 diff changeset	4833	"/ self setClassToCompileFor:(aContext receiver class).
1363 2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4834	].
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4835	self notifying:requestor.
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4836	self nextToken.
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4837	self evalExitBlock:[:value \| self release. ^ value].
2119 b0362fb44c4e care for failBlock Claus Gittinger <cg@exept.de> parents: 2113 diff changeset	4838
b0362fb44c4e care for failBlock Claus Gittinger <cg@exept.de> parents: 2113 diff changeset	4839	failBlock isNil ifTrue:[
b0362fb44c4e care for failBlock Claus Gittinger <cg@exept.de> parents: 2113 diff changeset	4840	tree := self parseMethodBodyOrEmpty.
b0362fb44c4e care for failBlock Claus Gittinger <cg@exept.de> parents: 2113 diff changeset	4841	] ifFalse:[
b0362fb44c4e care for failBlock Claus Gittinger <cg@exept.de> parents: 2113 diff changeset	4842	ParseError handle:[:ex \|
2991 035114ac9b4b common default failblock Claus Gittinger <cg@exept.de> parents: 2985 diff changeset	4843	^ failBlock valueWithOptionalArgument:ex description
2119 b0362fb44c4e care for failBlock Claus Gittinger <cg@exept.de> parents: 2113 diff changeset	4844	] do:[
b0362fb44c4e care for failBlock Claus Gittinger <cg@exept.de> parents: 2113 diff changeset	4845	tree := self parseMethodBodyOrEmpty.
b0362fb44c4e care for failBlock Claus Gittinger <cg@exept.de> parents: 2113 diff changeset	4846	].
b0362fb44c4e care for failBlock Claus Gittinger <cg@exept.de> parents: 2113 diff changeset	4847	].
1548 a8e0beb870b6 +evaluateFrom: Claus Gittinger <cg@exept.de> parents: 1547 diff changeset	4848	checkForEndOfInput ifTrue:[self checkForEndOfInput].
1363 2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4849
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4850	"if reading from a stream, backup for next expression"
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4851	mustBackup ifTrue:[
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4852	self backupPosition
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4853	].
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4854
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4855	(self errorFlag or:[tree == #Error]) ifTrue:[
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4856	failBlock notNil ifTrue:[
2991 035114ac9b4b common default failblock Claus Gittinger <cg@exept.de> parents: 2985 diff changeset	4857	^ failBlock valueWithOptionalArgument:'parse error'
1363 2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4858	].
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4859	^ #Error
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4860	].
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4861
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4862	tree isNil ifTrue:[
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4863	EmptySourceNotificationSignal raiseRequest.
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4864	^ nil
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4865	].
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4866
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4867	(logged
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4868	and:[loggedString notNil
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4869	and:[Smalltalk logDoits]]) ifTrue:[
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4870	Class updateChangeFileQuerySignal query ifTrue:[
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4871	chgStream := Class changesStream.
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4872	chgStream notNil ifTrue:[
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4873	chgStream nextChunkPut:loggedString.
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4874	chgStream cr.
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4875	chgStream close
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4876	]
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4877	].
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4878	Project notNil ifTrue:[
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4879	Class updateChangeListQuerySignal query ifTrue:[
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4880	Project addDoIt:loggedString
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4881	]
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4882	]
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4883	].
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4884
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4885	"
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4886	during the evaluation, handle nameSpace queries
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4887	from the value as defined by any namespace directive.
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4888	This, if its a class definition expression, the class will
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4889	be installed there.
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4890	"
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4891	nameSpaceQuerySignal := Class nameSpaceQuerySignal.
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4892
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4893	spc := self getNameSpace.
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4894	spc isNil ifTrue:[
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4895	(requestor respondsTo:#currentNameSpace) ifTrue:[
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4896	spc := requestor currentNameSpace
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4897	] ifFalse:[
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4898	spc := nameSpaceQuerySignal query.
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4899	]
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4900	].
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4901
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	4902	Parser undefinedVariableError handle:[:ex \|
2124 9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4903	failBlock isNil ifTrue:[
2420 914eb1c66bda Raise UndefinedVariableError - not raising is caused class method patches for non-existing Stefan Vogel <sv@exept.de> parents: 2417 diff changeset	4904	ex reject.
914eb1c66bda Raise UndefinedVariableError - not raising is caused class method patches for non-existing Stefan Vogel <sv@exept.de> parents: 2417 diff changeset	4905	] ifFalse:[
2991 035114ac9b4b common default failblock Claus Gittinger <cg@exept.de> parents: 2985 diff changeset	4906	^ failBlock valueWithOptionalArgument:ex description.
2420 914eb1c66bda Raise UndefinedVariableError - not raising is caused class method patches for non-existing Stefan Vogel <sv@exept.de> parents: 2417 diff changeset	4907	].
2124 9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4908	] do:[
9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4909	nameSpaceQuerySignal answer:spc
9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4910	do:[
9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4911	\|method\|
9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4912
9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4913	"
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	4914	if compile is false, or the parse tree is that of a constant,
2124 9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4915	or a variable, quickly return its value.
9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4916	This is used for example, when reading simple objects
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	4917	via #readFrom:.
2124 9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4918	The overhead of compiling a method is avoided in this case.
9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4919	"
9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4920	((SuppressDoItCompilation == true)
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	4921	or:[compile not
2124 9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4922	or:[tree isSimpleConstant
9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4923	or:[tree isSimpleVariable
9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4924	or:[aStringOrStream isStream
2493 c9645b7f3986 comment/format in: #evaluate:in:receiver:notifying:logged:ifFail:compile:checkForEndOfInput: Michael Beyl <mb@exept.de> parents: 2483 diff changeset	4925	or:[aContext notNil "also, if we evaluate inside a context (cannot generate code for context access, yet)"
c9645b7f3986 comment/format in: #evaluate:in:receiver:notifying:logged:ifFail:compile:checkForEndOfInput: Michael Beyl <mb@exept.de> parents: 2483 diff changeset	4926	]]]]]) ifTrue:[
2124 9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4927	^ tree evaluate
9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4928	].
9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4929
9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4930	"
9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4931	if I am the ByteCodeCompiler,
9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4932	generate a dummy method, execute it and return the value.
9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4933	otherwise, just evaluate the tree; slower, but not too bad ...
9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4934
9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4935	This allows systems to be delivered without the ByteCodeCompiler,
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	4936	and still evaluate expressions
2124 9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4937	(needed to read resource files or to process .rc files).
9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4938	"
9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4939	self == Parser ifTrue:[
9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4940	self evalExitBlock:[:value \| self release. ^ value].
9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4941	value := tree evaluate.
9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4942	self evalExitBlock:nil.
9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4943	] ifFalse:[
9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4944	s := self correctedSource.
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	4945	s isNil ifTrue:[
2124 9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4946	aStringOrStream isStream ifTrue:[
9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4947	s := self collectedSource. "/ does not work yet ...
9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4948	] ifFalse:[
9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4949	s := aStringOrStream
9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4950	].
1363 2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4951	].
2124 9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4952
9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4953	"/ actually, its a block, to allow
9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4954	"/ easy return ...
9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4955
9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4956	sReal := 'doIt ^[ ' , s , '\] value' withCRs.
9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4957
9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4958	compiler := ByteCodeCompiler new.
9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4959	compiler initializeFlagsFrom:self.
9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4960	method := compiler
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	4961	compile:sReal
2124 9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4962	forClass:anObject class
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	4963	inCategory:'_temporary_'
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	4964	notifying:requestor
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	4965	install:false
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	4966	skipIfSame:false
2124 9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4967	silent:true
9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4968	foldConstants:false.
9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4969
9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4970	method notNil ifTrue:[
9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4971	method ~~ #Error ifTrue:[
9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4972	"
9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4973	fake: patch the source string, to what the user expects
9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4974	in the browser
9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4975	"
9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4976	method source:"' ' , "s string.
9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4977	"
9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4978	dont do any just-in-time compilation on it.
9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4979	"
9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4980	method checked:true.
9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4981
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	4982	value := method
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	4983	valueWithReceiver:anObject
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	4984	arguments:nil "/ (Array with:m)
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	4985	selector:(requestor isNil ifTrue:[#'doItX'] ifFalse:[#'doIt']) "/ #doIt:
2124 9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4986	search:nil
9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4987	sender:nil.
9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4988	] ifFalse:[
9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4989	self evalExitBlock:[:value \| self release. ^ value].
9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4990	value := tree evaluate.
9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4991	self evalExitBlock:nil.
9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4992	]
9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4993	].
9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4994	]
9746991850f3 finally eliminated UndefinedVariables ! Claus Gittinger <cg@exept.de> parents: 2123 diff changeset	4995	].
1363 2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4996	].
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4997	self release.
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4998	^ value
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	4999
2543 ddb7ed0f13e3 changed: #evaluate:in:receiver:notifying:logged:ifFail:compile:checkForEndOfInput: Claus Gittinger <cg@exept.de> parents: 2539 diff changeset	5000	"Created: / 08-02-1997 / 19:34:44 / cg"
ddb7ed0f13e3 changed: #evaluate:in:receiver:notifying:logged:ifFail:compile:checkForEndOfInput: Claus Gittinger <cg@exept.de> parents: 2539 diff changeset	5001	"Modified: / 18-03-1999 / 18:25:40 / stefan"
ddb7ed0f13e3 changed: #evaluate:in:receiver:notifying:logged:ifFail:compile:checkForEndOfInput: Claus Gittinger <cg@exept.de> parents: 2539 diff changeset	5002	"Modified: / 06-07-2011 / 11:46:24 / cg"
1683 faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	5003	!
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	5004
2106 363689af4ece * empty log message * Claus Gittinger <cg@exept.de> parents: 2100 diff changeset	5005	evaluate:aStringOrStream logged:logged
363689af4ece * empty log message * Claus Gittinger <cg@exept.de> parents: 2100 diff changeset	5006	^ self
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5007	evaluate:aStringOrStream
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5008	in:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5009	receiver:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5010	notifying:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5011	logged:logged
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5012	ifFail:(self defaultFailBlock)
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5013	compile:true
2106 363689af4ece * empty log message * Claus Gittinger <cg@exept.de> parents: 2100 diff changeset	5014	!
363689af4ece * empty log message * Claus Gittinger <cg@exept.de> parents: 2100 diff changeset	5015
2151 810e174ed906 When evaluating a expression while filing in, do not raise error Stefan Vogel <sv@exept.de> parents: 2150 diff changeset	5016	evaluate:aStringOrStream notifying:someRequestor
810e174ed906 When evaluating a expression while filing in, do not raise error Stefan Vogel <sv@exept.de> parents: 2150 diff changeset	5017	^ self
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5018	evaluate:aStringOrStream
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5019	in:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5020	receiver:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5021	notifying:someRequestor
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5022	logged:false
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5023	ifFail:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5024	compile:true
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5025	checkForEndOfInput:(aStringOrStream isStream not)
2151 810e174ed906 When evaluating a expression while filing in, do not raise error Stefan Vogel <sv@exept.de> parents: 2150 diff changeset	5026	!
810e174ed906 When evaluating a expression while filing in, do not raise error Stefan Vogel <sv@exept.de> parents: 2150 diff changeset	5027
810e174ed906 When evaluating a expression while filing in, do not raise error Stefan Vogel <sv@exept.de> parents: 2150 diff changeset	5028	evaluate:aStringOrStream notifying:someRequestor compile:compileBoolean
810e174ed906 When evaluating a expression while filing in, do not raise error Stefan Vogel <sv@exept.de> parents: 2150 diff changeset	5029	^ self
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5030	evaluate:aStringOrStream
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5031	in:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5032	receiver:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5033	notifying:someRequestor
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5034	logged:false
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5035	ifFail:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5036	compile:compileBoolean
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5037	checkForEndOfInput:(aStringOrStream isStream not)
2151 810e174ed906 When evaluating a expression while filing in, do not raise error Stefan Vogel <sv@exept.de> parents: 2150 diff changeset	5038	!
810e174ed906 When evaluating a expression while filing in, do not raise error Stefan Vogel <sv@exept.de> parents: 2150 diff changeset	5039
1683 faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	5040	evaluate:aStringOrStream receiver:anObject
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	5041	"return the result of evaluating aStringOrStream, errors are reported to requestor.
1683 faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	5042	Allow access to anObject as self and to its instVars (used in the inspector).
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	5043	If logged is true, an entry is added to the change-file. If the failBlock argument
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	5044	is non-nil, it is evaluated if an error occurs.
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	5045	Finally, compile specifies if the string should be compiled down to
1683 faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	5046	bytecode or instead be interpreted from the parseTree.
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	5047	The first should be done for doIts etc, where a readable walkback is
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	5048	required.
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	5049	The latter is better done for constants, styleSheet and resource
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	5050	reading and simple sends, where the overhead of compilation is bigger
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	5051	than the interpretation overhead."
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	5052
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	5053	^ self
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5054	evaluate:aStringOrStream
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5055	in:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5056	receiver:anObject
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5057	notifying:requestor
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5058	logged:logged
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5059	ifFail:(self defaultFailBlock)
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5060	compile:false
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5061	checkForEndOfInput:true
1683 faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	5062	!
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	5063
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	5064	evaluate:aStringOrStream receiver:anObject ifFail:failBlock
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	5065	"return the result of evaluating aStringOrStream, errors are reported to requestor.
1683 faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	5066	Allow access to anObject as self and to its instVars (used in the inspector).
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	5067	If logged is true, an entry is added to the change-file. If the failBlock argument
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	5068	is non-nil, it is evaluated if an error occurs.
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	5069	Finally, compile specifies if the string should be compiled down to
1683 faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	5070	bytecode or instead be interpreted from the parseTree.
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	5071	The first should be done for doIts etc, where a readable walkback is
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	5072	required.
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	5073	The latter is better done for constants, styleSheet and resource
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	5074	reading and simple sends, where the overhead of compilation is bigger
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	5075	than the interpretation overhead."
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	5076
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	5077	^ self
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5078	evaluate:aStringOrStream
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5079	in:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5080	receiver:anObject
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5081	notifying:requestor
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5082	logged:logged
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5083	ifFail:failBlock
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5084	compile:false
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5085	checkForEndOfInput:true
2417 0443c6601e71 added: #evaluateDeclarationFor: Claus Gittinger <cg@exept.de> parents: 2416 diff changeset	5086	!
0443c6601e71 added: #evaluateDeclarationFor: Claus Gittinger <cg@exept.de> parents: 2416 diff changeset	5087
0443c6601e71 added: #evaluateDeclarationFor: Claus Gittinger <cg@exept.de> parents: 2416 diff changeset	5088	evaluateDeclarationFor:anEnvironment
0443c6601e71 added: #evaluateDeclarationFor: Claus Gittinger <cg@exept.de> parents: 2416 diff changeset	5089	^ self
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5090	evaluate:source
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5091	in:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5092	receiver:selfValue
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5093	notifying:requestor
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5094	logged:logged
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5095	ifFail:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5096	compile:false
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5097	checkForEndOfInput:false.
2417 0443c6601e71 added: #evaluateDeclarationFor: Claus Gittinger <cg@exept.de> parents: 2416 diff changeset	5098
0443c6601e71 added: #evaluateDeclarationFor: Claus Gittinger <cg@exept.de> parents: 2416 diff changeset	5099	"Created: / 04-08-2010 / 11:42:42 / cg"
1363 2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	5100	! !
2ce77081f79a separated instance creation from parsing penk parents: 1361 diff changeset	5101
2063 c4c1a547548d sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 2062 diff changeset	5102	!Parser methodsFor:'initialization'!
c4c1a547548d sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 2062 diff changeset	5103
c4c1a547548d sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 2062 diff changeset	5104	initializeFlagsFrom:aParser
c4c1a547548d sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 2062 diff changeset	5105	"initialize flags from another scanner"
c4c1a547548d sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 2062 diff changeset	5106
c4c1a547548d sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 2062 diff changeset	5107	super initializeFlagsFrom:aParser.
c4c1a547548d sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 2062 diff changeset	5108
c4c1a547548d sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 2062 diff changeset	5109	moreSharedPools := aParser moreSharedPools.
c4c1a547548d sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 2062 diff changeset	5110	doItTemporaries := aParser doItTemporaries.
c4c1a547548d sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 2062 diff changeset	5111	selector := aParser selector.
c4c1a547548d sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 2062 diff changeset	5112	! !
c4c1a547548d sharedPool access in doIts Claus Gittinger <cg@exept.de> parents: 2062 diff changeset	5113
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5114	!Parser methodsFor:'obsolete'!
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5115
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5116	correctByDeleting
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5117	"correct (by deleting token) if user wants to;
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5118	return #Error if there was no correction;
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5119	nil if there was one."
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5120
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5121	\|selectionSize\|
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5122
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5123	(self confirm:'confirm deleting') ifFalse:[^ #Error].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5124
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5125	"
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5126	tell requestor (i.e. CodeView) about the change
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5127	this will update what the requestor shows.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5128	"
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5129	selectionSize := requestor selection size.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5130	requestor deleteSelection.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5131
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5132	"
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5133	get the updated source-string
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5134	which is needed, when we eventually install the new method
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5135	"
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5136	correctedSource := requestor currentSourceCode.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5137	"/ update the current source position
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5138	source := (ReadStream on:correctedSource)
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5139	position:(source position + 1 - selectionSize).
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5140
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5141	^ nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5142
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5143	"Modified: / 22.1.1998 / 16:39:11 / stefan"
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5144	! !
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5145
0 7ad01559b262 Initial revision claus parents: diff changeset	5146	!Parser methodsFor:'parsing'!
7ad01559b262 Initial revision claus parents: diff changeset	5147
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5148	block
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5149	"parse a block; return a node-tree, nil or #Error"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5150
2054 cee21c519bd0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2053 diff changeset	5151	\|startPos endPos node args argNames arg pos pos2 lno\|
cee21c519bd0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2053 diff changeset	5152
cee21c519bd0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2053 diff changeset	5153	startPos := tokenPosition.
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5154
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5155	lno := tokenLineNr.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5156	self nextToken.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5157	(tokenType == $: ) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5158	[tokenType == $:] whileTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5159	pos := tokenPosition.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5160	self nextToken.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5161
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5162	(pos == (tokenPosition - 1)) ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5163	self warnPossibleIncompatibility:'space(s) between colon and identifier may be non-portable' position:pos to:tokenPosition.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5164	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5165	(tokenType ~~ #Identifier) ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5166	^ self identifierExpectedIn:'block-arg declaration'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5167	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5168
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5169	pos2 := tokenPosition + tokenName size - 1.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5170	self markArgumentIdentifierFrom:tokenPosition to:pos2.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5171	self checkBlockArgumentNameConventionsFor:tokenName.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5172	arg := Variable name:tokenName.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5173	args isNil ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5174	args := Array with:arg.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5175	argNames := Array with:tokenName.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5176	] ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5177	(argNames includes:tokenName) ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5178	self blockArgRedefined:tokenName from:tokenPosition to:pos2
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5179	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5180	args := args copyWith:arg.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5181	argNames := argNames copyWith:tokenName.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5182	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5183	self nextToken.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5184	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5185	(tokenType ~~ $\| ) ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5186	"ST-80 allows [:arg ]"
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5187	(tokenType == $] ) ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5188	node := BlockNode arguments:args home:currentBlock variables:nil.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5189	node startPosition: startPos endPosition: tokenPosition.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5190	node lineNumber:lno.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5191	self markBlockFrom:startPos to:tokenPosition.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5192	"/ self nextToken. -- should be done & removed in caller
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5193	^ self blockNodeRewriteHookFor:node
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5194	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5195	self syntaxError:'\| expected after block-arg declaration'.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5196	^ #Error
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5197	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5198	self nextToken
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5199	].
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5200	node := self blockBody:args.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5201	(node notNil and:[node ~~ #Error]) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5202	endPos := tokenPosition.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5203	node lineNumber:lno.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5204	node startPosition:startPos; endPosition:endPos.
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5205	].
2054 cee21c519bd0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2053 diff changeset	5206
cee21c519bd0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2053 diff changeset	5207	self markBlockFrom:startPos to:endPos.
2539 9b26b2806091 comment/format in: Claus Gittinger <cg@exept.de> parents: 2535 diff changeset	5208	"/ self nextToken. -- should be done & removed in caller
2369 d10c7dc3f779 added: #blockNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2356 diff changeset	5209	^ self blockNodeRewriteHookFor:node
d10c7dc3f779 added: #blockNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2356 diff changeset	5210
2539 9b26b2806091 comment/format in: Claus Gittinger <cg@exept.de> parents: 2535 diff changeset	5211	"Modified (comment): / 05-07-2011 / 23:23:08 / cg"
2621 d4eb080f1693 start/end position fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2619 diff changeset	5212	"Modified: / 01-08-2011 / 12:34:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5213	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5214
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5215	blockBody:args
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5216	"parse a blocks body; return a node-tree, nil or #Error"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5217
2482 296eb8e022fe changed: Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	5218	\|prevFlags stats node var vars lno pos2\|
296eb8e022fe changed: Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	5219
296eb8e022fe changed: Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	5220	((tokenType == #BinaryOperator) and:[tokenName = '<']) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5221	prevFlags := parserFlags copy.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5222	self parsePrimitiveOrResourceSpecOrEmpty.
2482 296eb8e022fe changed: Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	5223	].
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5224
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5225	lno := tokenLineNr.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5226	(tokenType == $\| ) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5227	self nextToken.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5228	[tokenType == $\|] whileFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5229	(tokenType == #Identifier) ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5230	^ self identifierExpectedIn:'block-var declaration'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5231	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5232	pos2 := tokenPosition + tokenName size - 1.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5233	self markLocalIdentifierFrom:tokenPosition to:pos2.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5234	self checkBlockVariableNameConventionsFor:tokenName.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5235	var := Variable name:tokenName.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5236	vars isNil ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5237	vars := Array with:var.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5238	] ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5239	(vars contains:[:var \| var name = tokenName]) ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5240	"/ varname reuse
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5241	self isSyntaxHighlighter ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5242	self markBadIdentifierFrom:tokenPosition to:pos2.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5243	] ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5244	self
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5245	parseError:'redefinition of ''' , tokenName , ''' in local variables'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5246	position:tokenPosition to:pos2.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5247	]
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5248	] ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5249	vars := vars copyWith:var.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5250	]
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5251	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5252	self nextToken.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5253
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5254	parserFlags allowLocalVariableDeclarationWithInitializerExpression == true ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5255	((tokenType == $_) or:[tokenType == #':=']) ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5256	self nextToken.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5257	"/ Q: should we allow literals only, or arbitrary expressions ?
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5258	self shouldImplement.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5259	]
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5260	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5261	parserFlags allowDomainVariables == true ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5262	(tokenType == $() ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5263	self variableTypeDeclarationFor:var.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5264	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5265	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5266	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5267	self nextToken
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5268	].
382 49aeeb0746ba more lineNumber info Claus Gittinger <cg@exept.de> parents: 377 diff changeset	5269
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5270	node := BlockNode arguments:args home:currentBlock variables:vars.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5271	node lineNumber:lno.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5272	currentBlock := node.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5273	stats := self blockStatementList.
1169 7204e72c7c3c better error message with bad parentNesting in a block. Claus Gittinger <cg@exept.de> parents: 1168 diff changeset	5274	(stats == #Error) ifTrue:[^ #Error].
7204e72c7c3c better error message with bad parentNesting in a block. Claus Gittinger <cg@exept.de> parents: 1168 diff changeset	5275
2928 6479e1be24b3 lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	5276	parserFlags fullLineNumberInfo ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5277	node endLineNumber:tokenLineNr
382 49aeeb0746ba more lineNumber info Claus Gittinger <cg@exept.de> parents: 377 diff changeset	5278	].
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5279	node statements:stats.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5280	currentBlock := node home.
2482 296eb8e022fe changed: Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	5281
296eb8e022fe changed: Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	5282	prevFlags notNil ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5283	parserFlags := prevFlags.
2482 296eb8e022fe changed: Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	5284	].
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5285	^ node
382 49aeeb0746ba more lineNumber info Claus Gittinger <cg@exept.de> parents: 377 diff changeset	5286
2928 6479e1be24b3 lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	5287	"Modified: / 26-09-2012 / 14:15:41 / cg"
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5288	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5289
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5290	blockExpression
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5291	"parse a blockExpression; return a node-tree, nil or #Error.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5292	Not used by ST/X's parser, but added for ST-80 compatibility."
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5293
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5294	tokenType ~~ $[ ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5295	self syntaxError:'[ expected'.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5296	^ #Error.
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5297	].
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5298	^ self block
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5299	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5300
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5301	blockStatementList
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5302	"parse a blocks statementlist; return a node-tree, nil or #Error"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5303
2413 8c24ef6a74a7 changed: #blockStatementList Claus Gittinger <cg@exept.de> parents: 2412 diff changeset	5304	\|thisStatement prevStatement firstStatement eMsg blockStart\|
8c24ef6a74a7 changed: #blockStatementList Claus Gittinger <cg@exept.de> parents: 2412 diff changeset	5305
8c24ef6a74a7 changed: #blockStatementList Claus Gittinger <cg@exept.de> parents: 2412 diff changeset	5306	blockStart := tokenPosition.
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5307
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5308	(tokenType == $] ) ifTrue:[^ nil].
2522 98d9b2d23ca5 changed: #blockStatementList Claus Gittinger <cg@exept.de> parents: 2511 diff changeset	5309
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5310	thisStatement := self statement.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5311	(thisStatement == #Error) ifTrue:[^ #Error].
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5312	firstStatement := thisStatement.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5313	[tokenType == $] ] whileFalse:[
3238 606300b013e7 Fix in Parser>>#blockStatementList Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3236 diff changeset	5314	(tokenType == $.) ifFalse:[
606300b013e7 Fix in Parser>>#blockStatementList Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3236 diff changeset	5315	(tokenType == #EOF) ifTrue:[
3267 2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5316	self syntaxError:'missing '']'' in block' position:blockStart to:(source position + 1).
3238 606300b013e7 Fix in Parser>>#blockStatementList Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3236 diff changeset	5317	^ #Error.
606300b013e7 Fix in Parser>>#blockStatementList Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3236 diff changeset	5318	].
606300b013e7 Fix in Parser>>#blockStatementList Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3236 diff changeset	5319
606300b013e7 Fix in Parser>>#blockStatementList Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3236 diff changeset	5320	(tokenType == $) ) ifTrue:[
606300b013e7 Fix in Parser>>#blockStatementList Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3236 diff changeset	5321	eMsg := 'missing '']'' or bad '')'' in block'
606300b013e7 Fix in Parser>>#blockStatementList Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3236 diff changeset	5322	] ifFalse:[
606300b013e7 Fix in Parser>>#blockStatementList Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3236 diff changeset	5323	eMsg := 'missing ''.'' between statements (i.e. ''' , tokenType printString , '''-token unexpected)'
606300b013e7 Fix in Parser>>#blockStatementList Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3236 diff changeset	5324	].
606300b013e7 Fix in Parser>>#blockStatementList Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3236 diff changeset	5325
606300b013e7 Fix in Parser>>#blockStatementList Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3236 diff changeset	5326	self syntaxError:eMsg position:thisStatement startPosition to:tokenPosition.
606300b013e7 Fix in Parser>>#blockStatementList Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3236 diff changeset	5327	"/ ^ #Error --- can proceed
606300b013e7 Fix in Parser>>#blockStatementList Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3236 diff changeset	5328	] ifTrue:[
606300b013e7 Fix in Parser>>#blockStatementList Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3236 diff changeset	5329	self nextToken.
606300b013e7 Fix in Parser>>#blockStatementList Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3236 diff changeset	5330	].
606300b013e7 Fix in Parser>>#blockStatementList Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3236 diff changeset	5331
606300b013e7 Fix in Parser>>#blockStatementList Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3236 diff changeset	5332	prevStatement := thisStatement.
606300b013e7 Fix in Parser>>#blockStatementList Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3236 diff changeset	5333
606300b013e7 Fix in Parser>>#blockStatementList Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3236 diff changeset	5334	tokenType == $] ifTrue:[
606300b013e7 Fix in Parser>>#blockStatementList Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3236 diff changeset	5335	"
606300b013e7 Fix in Parser>>#blockStatementList Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3236 diff changeset	5336	*** I had a warning here (since it was not defined
606300b013e7 Fix in Parser>>#blockStatementList Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3236 diff changeset	5337	*** in the blue-book; but PD-code contains a lot of
606300b013e7 Fix in Parser>>#blockStatementList Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3236 diff changeset	5338	*** code with periods at the end so that the warnings
606300b013e7 Fix in Parser>>#blockStatementList Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3236 diff changeset	5339	*** became annoying
606300b013e7 Fix in Parser>>#blockStatementList Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3236 diff changeset	5340
606300b013e7 Fix in Parser>>#blockStatementList Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3236 diff changeset	5341	self warning:'period after last statement in block'.
606300b013e7 Fix in Parser>>#blockStatementList Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3236 diff changeset	5342	"
606300b013e7 Fix in Parser>>#blockStatementList Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3236 diff changeset	5343	self markBracketAt:tokenPosition.
606300b013e7 Fix in Parser>>#blockStatementList Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3236 diff changeset	5344	^ self statementListRewriteHookFor:firstStatement
606300b013e7 Fix in Parser>>#blockStatementList Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3236 diff changeset	5345	].
606300b013e7 Fix in Parser>>#blockStatementList Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3236 diff changeset	5346	thisStatement := self statement.
606300b013e7 Fix in Parser>>#blockStatementList Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3236 diff changeset	5347	(thisStatement == #Error) ifTrue:[^ #Error].
606300b013e7 Fix in Parser>>#blockStatementList Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3236 diff changeset	5348	prevStatement nextStatement:thisStatement
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5349	].
673 0c66b7cb1d2f checkin from browser ca parents: 672 diff changeset	5350	self markBracketAt:tokenPosition.
2386 1661103e3a18 added: #statementListRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2381 diff changeset	5351	^ self statementListRewriteHookFor:firstStatement
743 3ced4791090c changes for cascades to super/here semantics. Claus Gittinger <cg@exept.de> parents: 739 diff changeset	5352
2522 98d9b2d23ca5 changed: #blockStatementList Claus Gittinger <cg@exept.de> parents: 2511 diff changeset	5353	"Modified: / 30-06-2011 / 19:45:49 / cg"
3238 606300b013e7 Fix in Parser>>#blockStatementList Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3236 diff changeset	5354	"Modified: / 28-07-2013 / 23:04:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5355	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5356
1309 f85561a7b90e preps for nonDeterministic and FD variables. Claus Gittinger <cg@exept.de> parents: 1306 diff changeset	5357	checkForEndOfInput
2151 810e174ed906 When evaluating a expression while filing in, do not raise error Stefan Vogel <sv@exept.de> parents: 2150 diff changeset	5358	"check, that we have reached the end of input.
810e174ed906 When evaluating a expression while filing in, do not raise error Stefan Vogel <sv@exept.de> parents: 2150 diff changeset	5359	Error, if not"
810e174ed906 When evaluating a expression while filing in, do not raise error Stefan Vogel <sv@exept.de> parents: 2150 diff changeset	5360
1855 61936f01108e error messages shortened and cleanup Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	5361	\|what msg endPos\|
1412 af3ec9f24a38 array indexing extension (experimental) Claus Gittinger <cg@exept.de> parents: 1411 diff changeset	5362
1309 f85561a7b90e preps for nonDeterministic and FD variables. Claus Gittinger <cg@exept.de> parents: 1306 diff changeset	5363	(tokenType ~~ #EOF) ifTrue:[
3267 2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5364	"/ just for the nicer error message
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5365	(#(Self Nil True False Super Here) includes:tokenType) ifTrue:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5366	msg := '"',tokenName allBold,'" unexpected (missing "." or ":" before ' , tokenName , ' ?)'.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5367	endPos := tokenPosition + tokenName size - 1.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5368	] ifFalse:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5369	tokenType isCharacter ifTrue:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5370	what := '"' , tokenType asString allBold, '"'.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5371	] ifFalse:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5372	what := tokenType printString allBold.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5373	].
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5374	msg := what , ' unexpected. (missing ".", ":" or selector before it ?)'.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5375	endPos := source position.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5376	].
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5377	self parseError:msg position:tokenPosition to:endPos.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5378	^#Error
1309 f85561a7b90e preps for nonDeterministic and FD variables. Claus Gittinger <cg@exept.de> parents: 1306 diff changeset	5379	]
1855 61936f01108e error messages shortened and cleanup Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	5380
61936f01108e error messages shortened and cleanup Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	5381	"Modified: / 22-08-2006 / 14:22:45 / cg"
1309 f85561a7b90e preps for nonDeterministic and FD variables. Claus Gittinger <cg@exept.de> parents: 1306 diff changeset	5382	!
f85561a7b90e preps for nonDeterministic and FD variables. Claus Gittinger <cg@exept.de> parents: 1306 diff changeset	5383
1951 0f4461378196 * empty log message * Claus Gittinger <cg@exept.de> parents: 1946 diff changeset	5384	emptyStatement
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	5385	(parserFlags allowEmptyStatements
2059 25c8eb0ff9df empty statement parsing (squeak compat.) Claus Gittinger <cg@exept.de> parents: 2054 diff changeset	5386	or:[parserFlags allowSqueakExtensions == true]) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5387	self warnAboutEmptyStatement.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5388	self nextToken.
2120 814949599c47 better error string for empty statement Claus Gittinger <cg@exept.de> parents: 2119 diff changeset	5389	] ifFalse:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5390	self parseError:'empty statement - please enable in the settings' position:tokenPosition to:tokenPosition
1951 0f4461378196 * empty log message * Claus Gittinger <cg@exept.de> parents: 1946 diff changeset	5391	].
0f4461378196 * empty log message * Claus Gittinger <cg@exept.de> parents: 1946 diff changeset	5392
0f4461378196 * empty log message * Claus Gittinger <cg@exept.de> parents: 1946 diff changeset	5393	"Created: / 20-11-2006 / 14:04:14 / cg"
2404 659ea12c9deb changed: #emptyStatement Claus Gittinger <cg@exept.de> parents: 2394 diff changeset	5394	"Modified: / 05-07-2010 / 17:15:34 / cg"
1951 0f4461378196 * empty log message * Claus Gittinger <cg@exept.de> parents: 1946 diff changeset	5395	!
0f4461378196 * empty log message * Claus Gittinger <cg@exept.de> parents: 1946 diff changeset	5396
2970 e2159f9de126 removed an obsolete method Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	5397	makeSelector:rawSelector
e2159f9de126 removed an obsolete method Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	5398	false ifTrue:[ "/ will eventually support namespace selectors
e2159f9de126 removed an obsolete method Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	5399	currentNamespace notNil ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5400	^ (':',currentNamespace name,':',rawSelector) asSymbol
2970 e2159f9de126 removed an obsolete method Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	5401	].
e2159f9de126 removed an obsolete method Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	5402	].
e2159f9de126 removed an obsolete method Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	5403	^ rawSelector asSymbol.
e2159f9de126 removed an obsolete method Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	5404	!
e2159f9de126 removed an obsolete method Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	5405
1006 ffce16b01b0a checkin from browser Claus Gittinger <cg@exept.de> parents: 1003 diff changeset	5406	parseExpressionWithSelf:anObject notifying:someOne ignoreErrors:ignoreErrors ignoreWarnings:ignoreWarnings inNameSpace:aNameSpaceOrNil
ffce16b01b0a checkin from browser Claus Gittinger <cg@exept.de> parents: 1003 diff changeset	5407	"parse aString as an expression with self set to anObject;
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	5408	Return the parseTree (if ok), nil (for an empty string
1006 ffce16b01b0a checkin from browser Claus Gittinger <cg@exept.de> parents: 1003 diff changeset	5409	or comment only ) or #Error (syntactic error).
ffce16b01b0a checkin from browser Claus Gittinger <cg@exept.de> parents: 1003 diff changeset	5410
ffce16b01b0a checkin from browser Claus Gittinger <cg@exept.de> parents: 1003 diff changeset	5411	Errors and warnings are forwarded to someOne (usually some
ffce16b01b0a checkin from browser Claus Gittinger <cg@exept.de> parents: 1003 diff changeset	5412	codeView) which can highlight it and show a popup box,
ffce16b01b0a checkin from browser Claus Gittinger <cg@exept.de> parents: 1003 diff changeset	5413	iff ignoreErrors/ignoreWarnings is true respectively."
ffce16b01b0a checkin from browser Claus Gittinger <cg@exept.de> parents: 1003 diff changeset	5414
3180 acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	5415	\|tree\|
1006 ffce16b01b0a checkin from browser Claus Gittinger <cg@exept.de> parents: 1003 diff changeset	5416
ffce16b01b0a checkin from browser Claus Gittinger <cg@exept.de> parents: 1003 diff changeset	5417	aNameSpaceOrNil notNil ifTrue:[
3180 acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	5418	self currentNameSpace:aNameSpaceOrNil
1006 ffce16b01b0a checkin from browser Claus Gittinger <cg@exept.de> parents: 1003 diff changeset	5419	].
ffce16b01b0a checkin from browser Claus Gittinger <cg@exept.de> parents: 1003 diff changeset	5420	self setSelf:anObject.
ffce16b01b0a checkin from browser Claus Gittinger <cg@exept.de> parents: 1003 diff changeset	5421	self notifying:someOne.
1365 19b74038d133 ignoreErrors / ignoreWarnings are not getters. penk parents: 1364 diff changeset	5422	self ignoreErrors:ignoreErrors.
19b74038d133 ignoreErrors / ignoreWarnings are not getters. penk parents: 1364 diff changeset	5423	self ignoreWarnings:ignoreWarnings.
3180 acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	5424	tokenType isNil ifTrue:[
acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	5425	self nextToken.
acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	5426	].
acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	5427	(tokenType == $^) ifTrue:[
acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	5428	self nextToken.
acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	5429	].
acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	5430	(tokenType == #EOF) ifTrue:[
acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	5431	^ nil
1564 fa3538426964 empty expression -> nil handling Claus Gittinger <cg@exept.de> parents: 1562 diff changeset	5432	].
1006 ffce16b01b0a checkin from browser Claus Gittinger <cg@exept.de> parents: 1003 diff changeset	5433	tree := self expression.
ffce16b01b0a checkin from browser Claus Gittinger <cg@exept.de> parents: 1003 diff changeset	5434	(self errorFlag or:[tree == #Error]) ifTrue:[^ #Error].
1182 34aac67e6e72 care for unexpected stuff at the end (in a doit) Claus Gittinger <cg@exept.de> parents: 1180 diff changeset	5435	"/ tokenType ~~ #EOF ifTrue:[
34aac67e6e72 care for unexpected stuff at the end (in a doit) Claus Gittinger <cg@exept.de> parents: 1180 diff changeset	5436	"/ self parseError:'nothing more expected' position:tokenPosition
34aac67e6e72 care for unexpected stuff at the end (in a doit) Claus Gittinger <cg@exept.de> parents: 1180 diff changeset	5437	"/ ].
1006 ffce16b01b0a checkin from browser Claus Gittinger <cg@exept.de> parents: 1003 diff changeset	5438	^ tree
ffce16b01b0a checkin from browser Claus Gittinger <cg@exept.de> parents: 1003 diff changeset	5439
2765 dfe99f87fed8 changed: #parseExpressionWithSelf:notifying:ignoreErrors:ignoreWarnings:inNameSpace: Claus Gittinger <cg@exept.de> parents: 2761 diff changeset	5440	"Created: / 14-12-1999 / 15:11:37 / cg"
1006 ffce16b01b0a checkin from browser Claus Gittinger <cg@exept.de> parents: 1003 diff changeset	5441	!
ffce16b01b0a checkin from browser Claus Gittinger <cg@exept.de> parents: 1003 diff changeset	5442
2971 0534f98e8e65 added: #parseLiteralArray: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2970 diff changeset	5443	parseLiteralArray: aStringOrStream
0534f98e8e65 added: #parseLiteralArray: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2970 diff changeset	5444	"Parser literal array in given String or Stream.
0534f98e8e65 added: #parseLiteralArray: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2970 diff changeset	5445	Returns that array"
0534f98e8e65 added: #parseLiteralArray: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2970 diff changeset	5446
0534f98e8e65 added: #parseLiteralArray: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2970 diff changeset	5447	self nextToken ~~ #HashLeftParen ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5448	self syntaxError: '# expected, ', token printString ,'found.'.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5449	^ ParseError raise.
2971 0534f98e8e65 added: #parseLiteralArray: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2970 diff changeset	5450	].
0534f98e8e65 added: #parseLiteralArray: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2970 diff changeset	5451	self nextToken.
0534f98e8e65 added: #parseLiteralArray: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2970 diff changeset	5452	^self array.
0534f98e8e65 added: #parseLiteralArray: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2970 diff changeset	5453
0534f98e8e65 added: #parseLiteralArray: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2970 diff changeset	5454	"Created: / 06-11-2012 / 12:51:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3028 6b84cb98abd6 class: Parser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3014 diff changeset	5455	"Modified: / 27-02-2013 / 11:05:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2971 0534f98e8e65 added: #parseLiteralArray: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2970 diff changeset	5456	!
0534f98e8e65 added: #parseLiteralArray: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2970 diff changeset	5457
0 7ad01559b262 Initial revision claus parents: diff changeset	5458	parseMethod
19 84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	5459	"parse a method.
84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	5460	Return the parseTree or #Error.
84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	5461
84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	5462	method ::= methodSpec methodBody
84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	5463	"
0 7ad01559b262 Initial revision claus parents: diff changeset	5464
7ad01559b262 Initial revision claus parents: diff changeset	5465	\|parseTree\|
7ad01559b262 Initial revision claus parents: diff changeset	5466
255 13a059f6569d no need to send nextToken when parsing a method Claus Gittinger <cg@exept.de> parents: 229 diff changeset	5467	"/ self nextToken.
0 7ad01559b262 Initial revision claus parents: diff changeset	5468	(self parseMethodSpec == #Error) ifTrue:[^ #Error].
7ad01559b262 Initial revision claus parents: diff changeset	5469	parseTree := self parseMethodBody.
7ad01559b262 Initial revision claus parents: diff changeset	5470	(parseTree == #Error) ifFalse:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5471	self tree:parseTree
0 7ad01559b262 Initial revision claus parents: diff changeset	5472	].
1186 014c3db76517 oops - end of input check should not be done when simply evaluating Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	5473	self checkForEndOfInput.
0 7ad01559b262 Initial revision claus parents: diff changeset	5474	^ parseTree
255 13a059f6569d no need to send nextToken when parsing a method Claus Gittinger <cg@exept.de> parents: 229 diff changeset	5475
2511 5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	5476	"Modified: / 20-04-1996 / 20:09:26 / cg"
5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	5477	"Modified: / 12-07-2010 / 10:08:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0 7ad01559b262 Initial revision claus parents: diff changeset	5478	!
7ad01559b262 Initial revision claus parents: diff changeset	5479
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	5480	parseMethod:aString in:aClass
2736 322dfba464df added: #parseMethod:in: Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5481	"parse a method in a given class.
322dfba464df added: #parseMethod:in: Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5482	Return a parser (if ok) or #Error (syntax).
322dfba464df added: #parseMethod:in: Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5483	The parser can be queried for selector, receiver, args, locals,
322dfba464df added: #parseMethod:in: Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5484	used selectors, modified instvars, referenced classvars etc.
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	5485	The noErrors and noWarnings arguments specify if error and warning
2736 322dfba464df added: #parseMethod:in: Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5486	messages should be sent to the Transcript or suppressed."
322dfba464df added: #parseMethod:in: Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5487
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	5488	^ self
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5489	parseMethod:aString
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5490	in:aClass
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5491	ignoreErrors:false
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5492	ignoreWarnings:false
2736 322dfba464df added: #parseMethod:in: Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5493
322dfba464df added: #parseMethod:in: Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5494	"Modified: / 06-03-2007 / 18:33:39 / cg"
322dfba464df added: #parseMethod:in: Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5495	"Created: / 04-10-2011 / 15:35:15 / cg"
322dfba464df added: #parseMethod:in: Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5496	!
322dfba464df added: #parseMethod:in: Claus Gittinger <cg@exept.de> parents: 2713 diff changeset	5497
1842 dfc0639340e4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1820 diff changeset	5498	parseMethod:aString in:aClass ignoreErrors:ignoreErrors ignoreWarnings:ignoreWarnings
dfc0639340e4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1820 diff changeset	5499	"parse a method in a given class.
dfc0639340e4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1820 diff changeset	5500	Return a parser (if ok), nil (empty) or #Error (syntax).
dfc0639340e4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1820 diff changeset	5501	The parser can be queried for selector, receiver, args, locals,
dfc0639340e4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1820 diff changeset	5502	used selectors, modified instvars, referenced classvars etc.
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	5503	The noErrors and noWarnings arguments specify if error and warning
1842 dfc0639340e4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1820 diff changeset	5504	messages should be sent to the Transcript or suppressed."
dfc0639340e4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1820 diff changeset	5505
2262 82e1879fe7ed comment/format in: Stefan Vogel <sv@exept.de> parents: 2261 diff changeset	5506	\|tree\|
1842 dfc0639340e4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1820 diff changeset	5507
dfc0639340e4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1820 diff changeset	5508	aString isNil ifTrue:[^ nil].
dfc0639340e4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1820 diff changeset	5509
dfc0639340e4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1820 diff changeset	5510	self initializeFor:(ReadStream on:aString).
dfc0639340e4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1820 diff changeset	5511	self setClassToCompileFor:aClass.
dfc0639340e4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1820 diff changeset	5512	self ignoreErrors:ignoreErrors.
dfc0639340e4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1820 diff changeset	5513	self ignoreWarnings:ignoreWarnings.
dfc0639340e4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1820 diff changeset	5514	tree := self parseMethod.
dfc0639340e4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1820 diff changeset	5515	(self errorFlag or:[tree == #Error]) ifTrue:[^ nil].
dfc0639340e4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1820 diff changeset	5516	^ tree
dfc0639340e4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1820 diff changeset	5517
dfc0639340e4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1820 diff changeset	5518	"Created: / 21-08-2006 / 18:26:36 / cg"
dfc0639340e4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1820 diff changeset	5519	!
dfc0639340e4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1820 diff changeset	5520
19 84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	5521	parseMethodBody
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	5522	"parse a methods body (locals & statements).
19 84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	5523	No more tokens may follow.
84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	5524	Return a node-tree, or #Error
84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	5525
84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	5526	methodBody ::= '<' st80Primitive '>' #EOF
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5527	\| '<' st80Primitive '>' methodBodyVarSpec statementList #EOF
19 84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	5528
84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	5529	"
1222 f3f602267070 check if returning both boolean / non-boolean Claus Gittinger <cg@exept.de> parents: 1221 diff changeset	5530	\|stats\|
f3f602267070 check if returning both boolean / non-boolean Claus Gittinger <cg@exept.de> parents: 1221 diff changeset	5531
2859 6c2fd91f06c6 changed: #parseMethodBody Stefan Vogel <sv@exept.de> parents: 2857 diff changeset	5532	tokenType isNil ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5533	self nextToken.
2859 6c2fd91f06c6 changed: #parseMethodBody Stefan Vogel <sv@exept.de> parents: 2857 diff changeset	5534	].
6c2fd91f06c6 changed: #parseMethodBody Stefan Vogel <sv@exept.de> parents: 2857 diff changeset	5535
1951 0f4461378196 * empty log message * Claus Gittinger <cg@exept.de> parents: 1946 diff changeset	5536	tokenType == $. ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5537	self emptyStatement.
1951 0f4461378196 * empty log message * Claus Gittinger <cg@exept.de> parents: 1946 diff changeset	5538	].
1222 f3f602267070 check if returning both boolean / non-boolean Claus Gittinger <cg@exept.de> parents: 1221 diff changeset	5539	stats := self parseMethodBodyOrEmpty.
19 84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	5540	(stats == #Error) ifFalse:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5541	self checkForEndOfInput.
19 84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	5542	].
2169 aabc712ae855 be silent (unused variables) if there is no requestor (fileIn) Claus Gittinger <cg@exept.de> parents: 2167 diff changeset	5543	(requestor notNil and:[ignoreWarnings not]) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5544	parserFlags warnings ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5545	self hasPrimitiveCode ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5546	self checkUnusedMethodVars.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5547	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5548	self checkReturnedValues.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5549	]
1160 972e7e337891 Warn about unused method vars Stefan Vogel <sv@exept.de> parents: 1158 diff changeset	5550	].
19 84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	5551	^ stats
165 213e3f12fc56 better error message when selector is missing Claus Gittinger <cg@exept.de> parents: 148 diff changeset	5552
1951 0f4461378196 * empty log message * Claus Gittinger <cg@exept.de> parents: 1946 diff changeset	5553	"Modified: / 20-11-2006 / 14:04:24 / cg"
19 84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	5554	!
84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	5555
79 26f81a94a6ea * empty log message * claus parents: 78 diff changeset	5556	parseMethodBodyOrEmpty
0 7ad01559b262 Initial revision claus parents: diff changeset	5557	"parse a methods body (locals & statements);
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	5558	return a node-tree, nil or #Error.
19 84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	5559	empty (or comment only) input is accepted and returns nil.
84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	5560
84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	5561	methodBodyOrNil ::= '<' st80Primitive '>'
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5562	\| '<' st80Primitive '>' methodBodyVarSpec statementList
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5563	\| <empty>
19 84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	5564	"
0 7ad01559b262 Initial revision claus parents: diff changeset	5565
265 a8617dc49bbf examples Claus Gittinger <cg@exept.de> parents: 263 diff changeset	5566	\|stats\|
0 7ad01559b262 Initial revision claus parents: diff changeset	5567
7ad01559b262 Initial revision claus parents: diff changeset	5568	(self parseMethodBodyVarSpec == #Error) ifTrue:[^ #Error].
7ad01559b262 Initial revision claus parents: diff changeset	5569
1951 0f4461378196 * empty log message * Claus Gittinger <cg@exept.de> parents: 1946 diff changeset	5570	tokenType == $. ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5571	self emptyStatement.
1951 0f4461378196 * empty log message * Claus Gittinger <cg@exept.de> parents: 1946 diff changeset	5572	].
0 7ad01559b262 Initial revision claus parents: diff changeset	5573	(tokenType ~~ #EOF) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5574	stats := self statementList
1182 34aac67e6e72 care for unexpected stuff at the end (in a doit) Claus Gittinger <cg@exept.de> parents: 1180 diff changeset	5575	].
1186 014c3db76517 oops - end of input check should not be done when simply evaluating Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	5576	"/ (tokenType ~~ #EOF) ifTrue:[
014c3db76517 oops - end of input check should not be done when simply evaluating Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	5577	"/ self parseError:'nothing more expected here' position:tokenPosition to:tokenPosition.
014c3db76517 oops - end of input check should not be done when simply evaluating Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	5578	"/ ^ #Error
014c3db76517 oops - end of input check should not be done when simply evaluating Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	5579	"/ ].
1231 637e0e215633 returnValue check Claus Gittinger <cg@exept.de> parents: 1230 diff changeset	5580	(stats notNil
637e0e215633 returnValue check Claus Gittinger <cg@exept.de> parents: 1230 diff changeset	5581	and:[stats ~~ #Error]) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5582	(self isStatementListAnUnconditionalReturn:stats) ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5583	"/ remember a returned self here.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5584	self rememberReturnedValue:(self selfNode)
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5585	].
1231 637e0e215633 returnValue check Claus Gittinger <cg@exept.de> parents: 1230 diff changeset	5586	].
1551 29f4971331f9 c-callout; ca parents: 1548 diff changeset	5587	tree notNil ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5588	tree last nextStatement:stats.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5589	^ tree.
1551 29f4971331f9 c-callout; ca parents: 1548 diff changeset	5590	].
0 7ad01559b262 Initial revision claus parents: diff changeset	5591	^ stats
265 a8617dc49bbf examples Claus Gittinger <cg@exept.de> parents: 263 diff changeset	5592
2425 eddd4fcc7806 added: #isStatementListAnUnconditionalReturn: Claus Gittinger <cg@exept.de> parents: 2424 diff changeset	5593	"Modified: / 24-09-2010 / 18:03:59 / cg"
0 7ad01559b262 Initial revision claus parents: diff changeset	5594	!
7ad01559b262 Initial revision claus parents: diff changeset	5595
19 84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	5596	parseMethodBodyVarSpec
265 a8617dc49bbf examples Claus Gittinger <cg@exept.de> parents: 263 diff changeset	5597	"parse a methods local variable specification, handling
a8617dc49bbf examples Claus Gittinger <cg@exept.de> parents: 263 diff changeset	5598	possible primitive or resourceSpecs.
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	5599	.
19 84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	5600	Leave spec of locals in methodLocals as a side effect.
2304 9282b0f7b350 changed: #parseMethodBodyVarSpec Claus Gittinger <cg@exept.de> parents: 2303 diff changeset	5601	Return #Error or self.
0 7ad01559b262 Initial revision claus parents: diff changeset	5602
19 84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	5603	methodBodyVarSpec ::= '\|' { IDENTIFIER } '\|'
3267 2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5604	\| <empty>
19 84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	5605	"
0 7ad01559b262 Initial revision claus parents: diff changeset	5606
2851 31e5801244a2 changed: #parseMethodBodyVarSpec Claus Gittinger <cg@exept.de> parents: 2850 diff changeset	5607	\|var pos pos2 msg classHint whatIsHidden\|
0 7ad01559b262 Initial revision claus parents: diff changeset	5608
265 a8617dc49bbf examples Claus Gittinger <cg@exept.de> parents: 263 diff changeset	5609	((tokenType == #BinaryOperator) and:[tokenName = '<']) ifTrue:[
3267 2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5610	self parsePrimitiveOrResourceSpecOrEmpty.
265 a8617dc49bbf examples Claus Gittinger <cg@exept.de> parents: 263 diff changeset	5611	].
a8617dc49bbf examples Claus Gittinger <cg@exept.de> parents: 263 diff changeset	5612
0 7ad01559b262 Initial revision claus parents: diff changeset	5613	(tokenType == $\|) ifTrue:[
3267 2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5614	"memorize position for declaration in correction"
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5615
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5616	localVarDefPosition := Array with:tokenPosition with:nil.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5617	self nextToken.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5618	pos := tokenPosition.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5619	[tokenType == #Identifier] whileTrue:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5620	pos2 := tokenPosition + tokenName size - 1.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5621	self markLocalIdentifierFrom:tokenPosition to:pos2.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5622	self checkMethodVariableNameConventionsFor:tokenName.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5623	var := Variable name:tokenName.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5624
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5625	methodVars isNil ifTrue:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5626	methodVars := OrderedCollection with:var.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5627	methodVarNames := OrderedCollection with:tokenName
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5628	] ifFalse:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5629	(methodVarNames includes:tokenName) ifTrue:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5630	"/ redefinition
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5631	self isSyntaxHighlighter ifTrue:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5632	self markBadIdentifierFrom:tokenPosition to:pos2.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5633	] ifFalse:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5634	self
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5635	parseError:'redefinition of ''' , tokenName , ''' in local variables.'
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5636	position:tokenPosition to:pos2.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5637	]
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5638	] ifFalse:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5639	methodVars add:var.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5640	methodVarNames add:tokenName
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5641	]
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5642	].
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5643
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5644	(self isDoIt not
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5645	and:[ parserFlags warnHiddenVariables
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5646	and:[ ignoreWarnings not
3267 2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5647	and:[(ParserFlags isFlag:#warnHiddenVariables enabledForClass:classToCompileFor selector:selector)
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5648	]]]) ifTrue:[
3267 2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5649	whatIsHidden := nil.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5650	methodArgNames notNil ifTrue:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5651	(methodArgNames includes:tokenName) ifTrue:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5652	whatIsHidden := 'method argument'
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5653	]
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5654	].
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5655	classToCompileFor notNil ifTrue:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5656	(self classesInstVarNames includes:tokenName) ifTrue:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5657	classToCompileFor isMeta ifTrue:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5658	whatIsHidden := 'class instance variable'.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5659	] ifFalse:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5660	whatIsHidden := 'instance variable'.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5661	]
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5662	]
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5663	].
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5664	whatIsHidden notNil ifTrue:[
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5665	PossibleCorrectionsQuery answer:{ CorrectByInteractiveRename . CorrectByDeletingLocalIdentifier } do:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5666	\|fix\|
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5667
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5668	fix := self
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5669	correctableWarning:(('local variable "%1" hides ',whatIsHidden,'.') bindWith:tokenName allBold)
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5670	doNotShowAgainAction:[ parserFlags warnHiddenVariables:false. ParserFlags warnHiddenVariables:false ]
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5671	doNotShowAgainForThisMethodAction: [ self disableWarningsOnCurrentMethodFor: #warnHiddenVariables ]
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5672	position:tokenPosition to:pos2.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5673	fix isBehavior ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5674	self correctWith:(fix new) from:pos to:pos2.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5675	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5676	self breakPoint:#cg.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5677	fix == #Error ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5678	^ #Error
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5679	]
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5680	]
3267 2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5681	]
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5682	].
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5683
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5684	self nextToken.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5685
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5686	classHint := nil.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5687	lastDirective notNil ifTrue:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5688	lastDirective isClassHintDirective ifTrue:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5689	var classHint:lastDirective className.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5690	].
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5691	lastDirective := nil.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5692	].
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5693
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5694	parserFlags allowLocalVariableDeclarationWithInitializerExpression == true ifTrue:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5695	((tokenType == $_) or:[tokenType == #':=']) ifTrue:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5696	self nextToken.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5697	"/ Q: should we allow literals only, or arbitrary expressions ?
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5698	self shouldImplement.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5699	]
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5700	].
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5701	parserFlags allowDomainVariables == true ifTrue:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5702	(tokenType == $() ifTrue:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5703	self variableTypeDeclarationFor:var.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5704	].
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5705	].
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5706	pos := tokenPosition
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5707	].
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5708
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5709	(tokenType ~~ $\|) ifTrue:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5710	(#(True False Self Nil Super ThisContext) includes:tokenType) ifTrue:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5711	msg := 'reserved keyword "',tokenName allBold,'" in local var declaration'.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5712	pos2 := tokenPosition + tokenName size - 1.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5713	self markBadIdentifierFrom:tokenPosition to:pos2.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5714	] ifFalse:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5715	pos2 := source position.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5716	msg := 'Identifier or \| expected in local var declaration'
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5717	].
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5718	self syntaxError:msg position:tokenPosition to:pos2.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5719	^ #Error
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5720	].
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5721	localVarDefPosition at:2 put:tokenPosition.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5722	self nextToken
0 7ad01559b262 Initial revision claus parents: diff changeset	5723	].
984 0994fa625709 more squeak-parsing Claus Gittinger <cg@exept.de> parents: 977 diff changeset	5724
1690 9878628e15ac support parsing (at least) of V'Age primitives Claus Gittinger <cg@exept.de> parents: 1687 diff changeset	5725	(parserFlags allowSqueakPrimitives
1744 b5241887a350 * empty log message * Claus Gittinger <cg@exept.de> parents: 1741 diff changeset	5726	or:[ parserFlags allowSqueakExtensions
1710 78346eeddbec ST/V parsing support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	5727	or:[ parserFlags allowVisualAgePrimitives
1744 b5241887a350 * empty log message * Claus Gittinger <cg@exept.de> parents: 1741 diff changeset	5728	or:[ parserFlags allowSTVPrimitives ]]]) ifTrue:[
3267 2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5729	"/ allow for primitiveSpec after local-var decl.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5730
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5731	((tokenType == #BinaryOperator) and:[tokenName = '<']) ifTrue:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5732	self parsePrimitiveOrResourceSpecOrEmpty.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5733	]
984 0994fa625709 more squeak-parsing Claus Gittinger <cg@exept.de> parents: 977 diff changeset	5734	].
0994fa625709 more squeak-parsing Claus Gittinger <cg@exept.de> parents: 977 diff changeset	5735
2304 9282b0f7b350 changed: #parseMethodBodyVarSpec Claus Gittinger <cg@exept.de> parents: 2303 diff changeset	5736	^ self
139 65eaf1a009f5 warn if method local hides method arg Claus Gittinger <cg@exept.de> parents: 135 diff changeset	5737
2855 e82a7e290774 changed:7 methods Claus Gittinger <cg@exept.de> parents: 2851 diff changeset	5738	"Modified: / 16-03-2012 / 18:36:56 / cg"
0 7ad01559b262 Initial revision claus parents: diff changeset	5739	!
7ad01559b262 Initial revision claus parents: diff changeset	5740
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5741	parseMethodSpec
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5742	"parse a methods selector & arg specification;
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5743	Set selector and methodArgs in the receiver as a side effect.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5744	Return the receiver or #Error.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5745
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5746	methodSpec ::= { KEYWORD IDENTIFIER }
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5747	\| binaryOperator IDENTIFIER
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5748	\| IDENTIFIER
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5749	"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5750
2970 e2159f9de126 removed an obsolete method Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	5751	\|arg pos1 pos2 argPos1 argPos2 rawSelector\|
2511 5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	5752
255 13a059f6569d no need to send nextToken when parsing a method Claus Gittinger <cg@exept.de> parents: 229 diff changeset	5753	tokenType isNil ifTrue:[
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5754	self nextToken.
255 13a059f6569d no need to send nextToken when parsing a method Claus Gittinger <cg@exept.de> parents: 229 diff changeset	5755	].
2970 e2159f9de126 removed an obsolete method Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	5756
e2159f9de126 removed an obsolete method Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	5757	pos1 := tokenPosition.
e2159f9de126 removed an obsolete method Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	5758
2671 9a0de515880c added: #markMethodArgumentIdentifierFrom:to: Claus Gittinger <cg@exept.de> parents: 2669 diff changeset	5759	"/ selectorPositions := OrderedCollection new.
255 13a059f6569d no need to send nextToken when parsing a method Claus Gittinger <cg@exept.de> parents: 229 diff changeset	5760
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5761	(tokenType == #Keyword) ifTrue:[
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5762	rawSelector := ''.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5763	[tokenType == #Keyword] whileTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5764	"/ selectorPositions add:(tokenPosition to:(tokenPosition+tokenName size - 1)).
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5765	self markMethodSelectorFrom:tokenPosition to:(tokenPosition+tokenName size - 1).
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5766	rawSelector := rawSelector , tokenName.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5767	self nextToken.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5768
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5769	(tokenType ~~ #Identifier) ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5770	"/ ^ #Error].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5771	^ self identifierExpectedIn:'method-arg declaration'
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5772	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5773	argPos1 := tokenPosition.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5774	argPos2 := argPos1+tokenName size - 1.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5775	pos2 := argPos2.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5776	self markMethodArgumentIdentifierFrom:argPos1 to:argPos2.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5777	self checkMethodArgumentNameConventionsFor:tokenName.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5778	arg := Variable name:tokenName.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5779	methodArgs isNil ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5780	methodArgs := Array with:arg.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5781	methodArgNames := Array with:tokenName
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5782	] ifFalse:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5783	(methodArgNames includes:tokenName) ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5784	self methodArgRedefined:tokenName from:argPos1 to:argPos2
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5785	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5786	methodArgs := methodArgs copyWith:arg.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5787	methodArgNames := methodArgNames copyWith:tokenName
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5788	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5789	self isSyntaxHighlighter ifFalse:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5790	(ignoreWarnings not and:[parserFlags warnHiddenVariables]) ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5791	classToCompileFor isClass ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5792	(self classesInstVarNames includes:tokenName) ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5793	PossibleCorrectionsQuery answer:{ CorrectByInteractiveRename } do:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5794	\|fix\|
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5795
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5796	fix := self
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5797	correctableWarning:'argument "' , tokenName allBold , '" hides instance variable.'
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5798	position:argPos1 to:argPos2.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5799	"/ migrating to the new scheme...
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5800	fix isBehavior ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5801	self correctWith:(fix new) from:argPos1 to:argPos2.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5802	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5803	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5804	]
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5805	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5806	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5807	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5808	self nextToken.
1309 f85561a7b90e preps for nonDeterministic and FD variables. Claus Gittinger <cg@exept.de> parents: 1306 diff changeset	5809	"/ ((tokenType == #BinaryOperator) and:[token = '#']) ifTrue:[
f85561a7b90e preps for nonDeterministic and FD variables. Claus Gittinger <cg@exept.de> parents: 1306 diff changeset	5810	"/ self nextToken.
f85561a7b90e preps for nonDeterministic and FD variables. Claus Gittinger <cg@exept.de> parents: 1306 diff changeset	5811	"/ arg domain:nil.
f85561a7b90e preps for nonDeterministic and FD variables. Claus Gittinger <cg@exept.de> parents: 1306 diff changeset	5812	"/ ].
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5813	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5814
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5815	selector := self makeSelector:rawSelector.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5816	endOfSelectorPosition := pos2.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5817	beginOfBodyPosition := tokenPosition.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5818	^ self
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5819	].
1306 90f45715a0d7 optionally allow nil, true, false etc. as unary selector Claus Gittinger <cg@exept.de> parents: 1304 diff changeset	5820
90f45715a0d7 optionally allow nil, true, false etc. as unary selector Claus Gittinger <cg@exept.de> parents: 1304 diff changeset	5821	(self isValidUnarySelector:tokenType) ifTrue:[
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5822	pos2 := pos1+tokenName size - 1.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5823	self markMethodSelectorFrom:pos1 to:pos2.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5824	rawSelector := tokenName.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5825	self nextToken.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5826
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5827	selector := self makeSelector:rawSelector.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5828	endOfSelectorPosition := pos2.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5829	beginOfBodyPosition := tokenPosition.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5830	^ self
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5831	].
1306 90f45715a0d7 optionally allow nil, true, false etc. as unary selector Claus Gittinger <cg@exept.de> parents: 1304 diff changeset	5832
2149 61105ff49e8f extended selector: ^ Claus Gittinger <cg@exept.de> parents: 2147 diff changeset	5833	"/ special handling for \| and ^, which are also lexical tokens
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	5834	(tokenType == $\|
2305 148e2f271b54 changed: Claus Gittinger <cg@exept.de> parents: 2304 diff changeset	5835	or:[(tokenType == $^) and:[parserFlags allowCaretAsBinop]]) ifTrue:[
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5836	pos2 := pos1+token size - 1.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5837	token := tokenName := (String with:tokenType).
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5838	tokenType := #BinaryOperator.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5839	self
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5840	warnPossibleIncompatibility:('''',token,''' might not be a valid selector in other smalltalk systems')
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5841	position:pos1 to:pos2.
461 1d24cc165fac oops - did not allow \| as method-selector Claus Gittinger <cg@exept.de> parents: 457 diff changeset	5842	].
1d24cc165fac oops - did not allow \| as method-selector Claus Gittinger <cg@exept.de> parents: 457 diff changeset	5843
2511 5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	5844
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5845	(tokenType == #BinaryOperator) ifTrue:[
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5846	self markMethodSelectorFrom:pos1 to:(pos1+tokenName size - 1).
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5847	rawSelector := tokenName.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5848	self nextToken.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5849	(tokenType ~~ #Identifier) ifTrue:[^ #Error].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5850	argPos1 := tokenPosition.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5851	pos2 := argPos2 := argPos1+tokenName size - 1.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5852	self markMethodArgumentIdentifierFrom:argPos1 to:argPos2.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5853	self checkMethodArgumentNameConventionsFor:tokenName.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5854	arg := Variable name:tokenName.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5855
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5856	methodArgs := Array with:arg.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5857	methodArgNames := Array with:tokenName.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5858
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5859	endOfSelectorPosition := pos2.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5860	self nextToken.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5861	selector := self makeSelector:rawSelector.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5862	beginOfBodyPosition := tokenPosition.
1309 f85561a7b90e preps for nonDeterministic and FD variables. Claus Gittinger <cg@exept.de> parents: 1306 diff changeset	5863	"/ ((tokenType == #BinaryOperator) and:[token = '#']) ifTrue:[
f85561a7b90e preps for nonDeterministic and FD variables. Claus Gittinger <cg@exept.de> parents: 1306 diff changeset	5864	"/ self nextToken.
f85561a7b90e preps for nonDeterministic and FD variables. Claus Gittinger <cg@exept.de> parents: 1306 diff changeset	5865	"/ arg domain:nil.
f85561a7b90e preps for nonDeterministic and FD variables. Claus Gittinger <cg@exept.de> parents: 1306 diff changeset	5866	"/ ].
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	5867	^ self
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5868	].
461 1d24cc165fac oops - did not allow \| as method-selector Claus Gittinger <cg@exept.de> parents: 457 diff changeset	5869
2970 e2159f9de126 removed an obsolete method Claus Gittinger <cg@exept.de> parents: 2956 diff changeset	5870	^ #Error
255 13a059f6569d no need to send nextToken when parsing a method Claus Gittinger <cg@exept.de> parents: 229 diff changeset	5871
2511 5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	5872	"Modified: / 12-07-2010 / 09:57:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2671 9a0de515880c added: #markMethodArgumentIdentifierFrom:to: Claus Gittinger <cg@exept.de> parents: 2669 diff changeset	5873	"Modified: / 21-08-2011 / 08:12:20 / cg"
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5874	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	5875
2535 1185b5e67a04 added: #returnStatement Claus Gittinger <cg@exept.de> parents: 2532 diff changeset	5876	returnStatement
1185b5e67a04 added: #returnStatement Claus Gittinger <cg@exept.de> parents: 2532 diff changeset	5877	"parse a return statement;
1185b5e67a04 added: #returnStatement Claus Gittinger <cg@exept.de> parents: 2532 diff changeset	5878
1185b5e67a04 added: #returnStatement Claus Gittinger <cg@exept.de> parents: 2532 diff changeset	5879	statement ::= '^' expression
1185b5e67a04 added: #returnStatement Claus Gittinger <cg@exept.de> parents: 2532 diff changeset	5880	"
1185b5e67a04 added: #returnStatement Claus Gittinger <cg@exept.de> parents: 2532 diff changeset	5881
2788 0282ad201349 refactored checkPlausibilityOf:from:to: Claus Gittinger <cg@exept.de> parents: 2765 diff changeset	5882	\|expr node lnr pos\|
2535 1185b5e67a04 added: #returnStatement Claus Gittinger <cg@exept.de> parents: 2532 diff changeset	5883
1185b5e67a04 added: #returnStatement Claus Gittinger <cg@exept.de> parents: 2532 diff changeset	5884	pos := tokenPosition.
1185b5e67a04 added: #returnStatement Claus Gittinger <cg@exept.de> parents: 2532 diff changeset	5885
1185b5e67a04 added: #returnStatement Claus Gittinger <cg@exept.de> parents: 2532 diff changeset	5886	self markReturnAt:tokenPosition.
1185b5e67a04 added: #returnStatement Claus Gittinger <cg@exept.de> parents: 2532 diff changeset	5887	lnr := tokenLineNr.
1185b5e67a04 added: #returnStatement Claus Gittinger <cg@exept.de> parents: 2532 diff changeset	5888	self nextToken.
1185b5e67a04 added: #returnStatement Claus Gittinger <cg@exept.de> parents: 2532 diff changeset	5889	expr := self expression.
1185b5e67a04 added: #returnStatement Claus Gittinger <cg@exept.de> parents: 2532 diff changeset	5890	(expr == #Error) ifTrue:[^ #Error].
1185b5e67a04 added: #returnStatement Claus Gittinger <cg@exept.de> parents: 2532 diff changeset	5891
1185b5e67a04 added: #returnStatement Claus Gittinger <cg@exept.de> parents: 2532 diff changeset	5892	node := ReturnNode expression:expr.
1185b5e67a04 added: #returnStatement Claus Gittinger <cg@exept.de> parents: 2532 diff changeset	5893	node startPosition:pos.
2614 7fb9c052438e More fixes to keep node position in the source. Not yet fully implemented Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2567 diff changeset	5894	node endPosition: expr endPosition.
2535 1185b5e67a04 added: #returnStatement Claus Gittinger <cg@exept.de> parents: 2532 diff changeset	5895	node home:self blockHome:currentBlock.
1185b5e67a04 added: #returnStatement Claus Gittinger <cg@exept.de> parents: 2532 diff changeset	5896	true "(lineNumberInfo == #full)" ifTrue:[node lineNumber:lnr].
2861 86e0d53257d0 changed: #returnStatement Stefan Vogel <sv@exept.de> parents: 2860 diff changeset	5897	self checkPlausibilityOf:node from:pos to:node endPosition.
2535 1185b5e67a04 added: #returnStatement Claus Gittinger <cg@exept.de> parents: 2532 diff changeset	5898
2850 fec54b255b1f changed: #returnStatement Claus Gittinger <cg@exept.de> parents: 2847 diff changeset	5899	"/ already in expression
fec54b255b1f changed: #returnStatement Claus Gittinger <cg@exept.de> parents: 2847 diff changeset	5900	"/ self checkPlausibilityOf:expr from:pos to:tokenPosition.
2535 1185b5e67a04 added: #returnStatement Claus Gittinger <cg@exept.de> parents: 2532 diff changeset	5901	self rememberReturnedValue:expr.
1185b5e67a04 added: #returnStatement Claus Gittinger <cg@exept.de> parents: 2532 diff changeset	5902	^ node
1185b5e67a04 added: #returnStatement Claus Gittinger <cg@exept.de> parents: 2532 diff changeset	5903
1185b5e67a04 added: #returnStatement Claus Gittinger <cg@exept.de> parents: 2532 diff changeset	5904	"Created: / 05-07-2011 / 21:22:05 / cg"
2614 7fb9c052438e More fixes to keep node position in the source. Not yet fully implemented Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2567 diff changeset	5905	"Modified: / 27-07-2011 / 13:47:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2850 fec54b255b1f changed: #returnStatement Claus Gittinger <cg@exept.de> parents: 2847 diff changeset	5906	"Modified: / 08-03-2012 / 01:03:36 / cg"
2535 1185b5e67a04 added: #returnStatement Claus Gittinger <cg@exept.de> parents: 2532 diff changeset	5907	!
1185b5e67a04 added: #returnStatement Claus Gittinger <cg@exept.de> parents: 2532 diff changeset	5908
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	5909	statement
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	5910	"parse a statement; return a node-tree or #Error.
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	5911
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	5912	statement ::= '^' expression
3180 acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	5913	\| PRIMITIVECODE
acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	5914	\| expression
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	5915	"
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	5916
2535 1185b5e67a04 added: #returnStatement Claus Gittinger <cg@exept.de> parents: 2532 diff changeset	5917	\|expr node lnr code pos\|
2388 69e82fe32b8c changed: Claus Gittinger <cg@exept.de> parents: 2386 diff changeset	5918
69e82fe32b8c changed: Claus Gittinger <cg@exept.de> parents: 2386 diff changeset	5919	pos := tokenPosition.
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	5920
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	5921	(tokenType == $^) ifTrue:[
3180 acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	5922	^ self returnStatement
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	5923	].
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	5924
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	5925	(tokenType == #Primitive) ifTrue:[
3180 acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	5926	code := tokenValue.
acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	5927	node := PrimitiveNode code:code.
3267 2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	5928	node startPosition: tokenPosition endPosition: source position + 1.
3180 acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	5929	self nextToken.
acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	5930	node isOptional ifFalse:[
acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	5931	hasNonOptionalPrimitiveCode := true
acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	5932	].
acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	5933	hasPrimitiveCode := true.
acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	5934	^ node
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	5935	].
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	5936
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	5937	(tokenType == #EOF) ifTrue:[
3180 acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	5938	currentBlock notNil ifTrue:[
acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	5939	self syntaxError:'missing '']'' at end of block'.
acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	5940	] ifFalse:[
acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	5941	self syntaxError:'period after last statement'.
acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	5942	].
acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	5943	^ #Error
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	5944	].
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	5945
984 0994fa625709 more squeak-parsing Claus Gittinger <cg@exept.de> parents: 977 diff changeset	5946	(tokenType == $.) ifTrue:[
3180 acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	5947	(parserFlags allowEmptyStatements
acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	5948	or:[parserFlags allowSqueakExtensions == true]) ifTrue:[
acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	5949	"/ allow empty statement
acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	5950	self warnAboutEmptyStatement.
acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	5951	node := StatementNode expression:nil.
acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	5952	node startPosition:pos.
acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	5953	^ node
acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	5954	].
acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	5955	].
acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	5956
acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	5957	lnr := tokenLineNr.
984 0994fa625709 more squeak-parsing Claus Gittinger <cg@exept.de> parents: 977 diff changeset	5958
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	5959	expr := self expression.
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	5960	(expr == #Error) ifTrue:[^ #Error].
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	5961
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	5962	"/ classToCompileFor notNil ifTrue:[
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	5963	"/ currentBlock isNil ifTrue:[
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	5964	"/ expr isPrimary ifTrue:[
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	5965	"/ self warning:'useless computation - missing ^ ?'
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	5966	"/ ]
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	5967	"/ ]
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	5968	"/ ].
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	5969
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	5970	node := StatementNode expression:expr.
2928 6479e1be24b3 lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	5971	parserFlags fullLineNumberInfo ifTrue:[node lineNumber:lnr].
2388 69e82fe32b8c changed: Claus Gittinger <cg@exept.de> parents: 2386 diff changeset	5972	node startPosition:pos.
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	5973	^ node
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	5974
2621 d4eb080f1693 start/end position fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2619 diff changeset	5975	"Modified: / 01-08-2011 / 12:03:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2928 6479e1be24b3 lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	5976	"Modified: / 26-09-2012 / 14:15:10 / cg"
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	5977	!
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	5978
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	5979	statementList
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	5980	"parse a statementlist; return a node-tree, nil or #Error.
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	5981	Statements must be separated by periods.
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	5982
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	5983	statementList ::= <statement>
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5984	\| <statementList> . <statement>
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	5985	"
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	5986
1901 a539817c2dde undefined variables error is not turned off by disabling warnings. Claus Gittinger <cg@exept.de> parents: 1855 diff changeset	5987	\|thisStatement prevStatement firstStatement periodPos prevExpr\|
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	5988
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	5989	thisStatement := self statement.
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	5990	(thisStatement == #Error) ifTrue:[^ #Error].
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	5991	firstStatement := thisStatement.
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	5992	[tokenType == $.] whileTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5993	prevExpr := thisStatement expression.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5994	(prevExpr notNil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5995	and:[prevExpr isMessage
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5996	and:[thisStatement isReturnNode not]]) ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5997	(#(#'=' #'==') includes:prevExpr selector) ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5998	self warning:'useless computation - mistyped assignment (i.e. did you mean '':='') ?' position:prevExpr selectorPosition
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	5999	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6000	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6001
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6002	periodPos := tokenPosition.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6003	self nextToken.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6004	tokenType == $. ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6005	self emptyStatement.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6006	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6007	(tokenType == $]) ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6008	currentBlock isNil ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6009	self parseError:''']'' unexpected (block nesting error)'.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6010	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6011	^ self statementListRewriteHookFor:firstStatement
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6012	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6013	(tokenType == #EOF) ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6014	currentBlock notNil ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6015	self parseError:''']'' expected (block nesting error)'.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6016	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6017	^ self statementListRewriteHookFor:firstStatement
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6018	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6019
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6020	prevStatement := thisStatement.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6021	prevStatement isReturnNode ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6022	self warning:'Statements after return.\\Some other Smalltalk systems will not allow this (Squeak, for example)' withCRs position:tokenPosition
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6023	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6024
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6025	thisStatement := self statement.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6026	(thisStatement == #Error) ifTrue:[^ #Error].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6027	prevStatement nextStatement:thisStatement
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6028	].
2386 1661103e3a18 added: #statementListRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2381 diff changeset	6029	^ self statementListRewriteHookFor:firstStatement
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6030
2856 ab5aa22d7cfb changed: #statementList Claus Gittinger <cg@exept.de> parents: 2855 diff changeset	6031	"Modified: / 20-03-2012 / 12:44:12 / cg"
1309 f85561a7b90e preps for nonDeterministic and FD variables. Claus Gittinger <cg@exept.de> parents: 1306 diff changeset	6032	!
f85561a7b90e preps for nonDeterministic and FD variables. Claus Gittinger <cg@exept.de> parents: 1306 diff changeset	6033
f85561a7b90e preps for nonDeterministic and FD variables. Claus Gittinger <cg@exept.de> parents: 1306 diff changeset	6034	variableTypeDeclarationFor:aVariable
1471 8752bd8a5581 * empty log message * Claus Gittinger <cg@exept.de> parents: 1468 diff changeset	6035	"experimental support for Domain variables (constraint programming support):
8752bd8a5581 * empty log message * Claus Gittinger <cg@exept.de> parents: 1468 diff changeset	6036	a variable-declaration of the form
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6037	\|var (domain) ... \|
1471 8752bd8a5581 * empty log message * Claus Gittinger <cg@exept.de> parents: 1468 diff changeset	6038	declares var as a domainVariable.
8752bd8a5581 * empty log message * Claus Gittinger <cg@exept.de> parents: 1468 diff changeset	6039	Valid domains are:
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6040	min %% max - integer range domain
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6041	Bool - boolean domain
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6042	Nat - positive integer domain
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6043	Int - integer domain
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6044	#sym1 ... #sym2 - enumerated symbolic domain
1471 8752bd8a5581 * empty log message * Claus Gittinger <cg@exept.de> parents: 1468 diff changeset	6045	"
8752bd8a5581 * empty log message * Claus Gittinger <cg@exept.de> parents: 1468 diff changeset	6046
1309 f85561a7b90e preps for nonDeterministic and FD variables. Claus Gittinger <cg@exept.de> parents: 1306 diff changeset	6047	\|min max domain enumValues\|
f85561a7b90e preps for nonDeterministic and FD variables. Claus Gittinger <cg@exept.de> parents: 1306 diff changeset	6048
f85561a7b90e preps for nonDeterministic and FD variables. Claus Gittinger <cg@exept.de> parents: 1306 diff changeset	6049	(tokenType == $() ifFalse:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6050	self syntaxError:'''('' expected' position:tokenPosition.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6051	^ #Error
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	6052	].
1309 f85561a7b90e preps for nonDeterministic and FD variables. Claus Gittinger <cg@exept.de> parents: 1306 diff changeset	6053	self nextToken.
f85561a7b90e preps for nonDeterministic and FD variables. Claus Gittinger <cg@exept.de> parents: 1306 diff changeset	6054
f85561a7b90e preps for nonDeterministic and FD variables. Claus Gittinger <cg@exept.de> parents: 1306 diff changeset	6055	(tokenType == #Integer) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6056	min := token.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6057	self nextToken.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6058	((tokenType == #BinaryOperator) and:[token = '%%']) ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6059	self syntaxError:'''%%'' expected' position:tokenPosition.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6060	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6061	self nextToken.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6062	(tokenType == #Integer) ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6063	self syntaxError:'Integer (upper bound) expected' position:tokenPosition.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6064	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6065	max := token.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6066	self nextToken.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6067	domain := IntegerDomain min:min max:max.
1309 f85561a7b90e preps for nonDeterministic and FD variables. Claus Gittinger <cg@exept.de> parents: 1306 diff changeset	6068	] ifFalse:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6069	((tokenType == #Identifier) and:[token isUppercaseFirst]) ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6070	token = 'Bool' ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6071	self nextToken.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6072	domain := BooleanDomain singleton.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6073	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6074	token = 'Nat' ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6075	self nextToken.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6076	domain := IntegerDomain min:0 max:(SmallInteger maxVal).
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6077	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6078	token = 'Int' ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6079	self nextToken.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6080	domain := IntegerDomain min:(SmallInteger minVal) max:(SmallInteger maxVal).
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6081	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6082	] ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6083	((tokenType == #Symbol) or:[(tokenType == #Identifier)]) ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6084	enumValues := OrderedCollection new.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6085	[((tokenType == #Symbol) or:[(tokenType == #Identifier)])] whileTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6086	enumValues add:token.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6087	self nextToken.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6088	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6089	domain := EnumeratedDomain new values:enumValues.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6090	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6091	].
1309 f85561a7b90e preps for nonDeterministic and FD variables. Claus Gittinger <cg@exept.de> parents: 1306 diff changeset	6092	].
f85561a7b90e preps for nonDeterministic and FD variables. Claus Gittinger <cg@exept.de> parents: 1306 diff changeset	6093	domain isNil ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6094	self syntaxError:'invalid domain' position:tokenPosition.
1309 f85561a7b90e preps for nonDeterministic and FD variables. Claus Gittinger <cg@exept.de> parents: 1306 diff changeset	6095	].
f85561a7b90e preps for nonDeterministic and FD variables. Claus Gittinger <cg@exept.de> parents: 1306 diff changeset	6096	aVariable domain:domain.
f85561a7b90e preps for nonDeterministic and FD variables. Claus Gittinger <cg@exept.de> parents: 1306 diff changeset	6097
f85561a7b90e preps for nonDeterministic and FD variables. Claus Gittinger <cg@exept.de> parents: 1306 diff changeset	6098	(tokenType == $)) ifFalse:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6099	self syntaxError:''')'' expected' position:tokenPosition.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6100	^ #Error
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	6101	].
1309 f85561a7b90e preps for nonDeterministic and FD variables. Claus Gittinger <cg@exept.de> parents: 1306 diff changeset	6102	self nextToken.
2421 c3aeb6eea86b changed: #variableTypeDeclarationFor: Claus Gittinger <cg@exept.de> parents: 2420 diff changeset	6103
c3aeb6eea86b changed: #variableTypeDeclarationFor: Claus Gittinger <cg@exept.de> parents: 2420 diff changeset	6104	"Modified: / 09-08-2010 / 00:27:16 / cg"
2059 25c8eb0ff9df empty statement parsing (squeak compat.) Claus Gittinger <cg@exept.de> parents: 2054 diff changeset	6105	!
25c8eb0ff9df empty statement parsing (squeak compat.) Claus Gittinger <cg@exept.de> parents: 2054 diff changeset	6106
25c8eb0ff9df empty statement parsing (squeak compat.) Claus Gittinger <cg@exept.de> parents: 2054 diff changeset	6107	warnAboutEmptyStatement
25c8eb0ff9df empty statement parsing (squeak compat.) Claus Gittinger <cg@exept.de> parents: 2054 diff changeset	6108	parserFlags warnAboutPossibleSTCCompilationProblems ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6109	self
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6110	warning:'stc will not compile empty statements'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6111	line:lineNr.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6112
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6113	(Tools::ToDoListBrowser notNil and:[self classToCompileFor notNil]) ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6114	self
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6115	notifyTodo:'stc will not compile empty statements' position:tokenPosition
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6116	className:(self classToCompileFor name) selector:selector
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6117	severity:#warning priority:#medium
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6118	equalityParameter:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6119	checkAction:nil.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6120	].
2059 25c8eb0ff9df empty statement parsing (squeak compat.) Claus Gittinger <cg@exept.de> parents: 2054 diff changeset	6121	].
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6122	! !
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6123
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6124	!Parser methodsFor:'parsing-expressions'!
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6125
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6126	array
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6127	\|arr elements elem pos1\|
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6128
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6129	pos1 := tokenPosition.
3243 877eab7771c6 class: Parser Claus Gittinger <cg@exept.de> parents: 3242 diff changeset	6130	elements := OrderedCollection new.
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6131	[tokenType ~~ $) ] whileTrue:[
3243 877eab7771c6 class: Parser Claus Gittinger <cg@exept.de> parents: 3242 diff changeset	6132	elem := self arrayConstant.
1165 09d40e1ff75d oops - invalid literal array const was not signalling an error Claus Gittinger <cg@exept.de> parents: 1164 diff changeset	6133
1062 119b394e10b5 parse bug: #(#Error) Claus Gittinger <cg@exept.de> parents: 1061 diff changeset	6134	"/ (elem == #Error) ifTrue:[
119b394e10b5 parse bug: #(#Error) Claus Gittinger <cg@exept.de> parents: 1061 diff changeset	6135	"/ (tokenType == #EOF) ifTrue:[
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	6136	"/ self syntaxError:'unterminated array-constant; '')'' expected'
1062 119b394e10b5 parse bug: #(#Error) Claus Gittinger <cg@exept.de> parents: 1061 diff changeset	6137	"/ position:pos1 to:tokenPosition
119b394e10b5 parse bug: #(#Error) Claus Gittinger <cg@exept.de> parents: 1061 diff changeset	6138	"/ ].
119b394e10b5 parse bug: #(#Error) Claus Gittinger <cg@exept.de> parents: 1061 diff changeset	6139	"/ ^ #Error
119b394e10b5 parse bug: #(#Error) Claus Gittinger <cg@exept.de> parents: 1061 diff changeset	6140	"/ ].
3243 877eab7771c6 class: Parser Claus Gittinger <cg@exept.de> parents: 3242 diff changeset	6141	elem isSymbol ifTrue:[
3267 2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	6142	self markSymbolFrom:tokenPosition to:(source position).
3243 877eab7771c6 class: Parser Claus Gittinger <cg@exept.de> parents: 3242 diff changeset	6143	].
877eab7771c6 class: Parser Claus Gittinger <cg@exept.de> parents: 3242 diff changeset	6144	elements add:elem.
877eab7771c6 class: Parser Claus Gittinger <cg@exept.de> parents: 3242 diff changeset	6145	self nextToken.
2303 3c5e5d394615 changed: #array Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	6146	"/ tokenType == $. ifTrue:[
3c5e5d394615 changed: #array Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	6147	"/ self emptyStatement.
3c5e5d394615 changed: #array Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	6148	"/ ].
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6149	].
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6150	arr := Array withAll:elements.
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6151
1636 98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	6152	parserFlags arraysAreImmutable ifTrue:[
3243 877eab7771c6 class: Parser Claus Gittinger <cg@exept.de> parents: 3242 diff changeset	6153	^ self makeImmutableArray:arr
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6154	].
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6155	^ arr
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6156
3243 877eab7771c6 class: Parser Claus Gittinger <cg@exept.de> parents: 3242 diff changeset	6157	"Modified: / 30-07-2013 / 19:33:43 / cg"
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6158	!
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6159
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6160	arrayConstant
1042 d192446cb745 fixed qualifiedName handling (as array constant) Claus Gittinger <cg@exept.de> parents: 1041 diff changeset	6161	\|val\|
d192446cb745 fixed qualifiedName handling (as array constant) Claus Gittinger <cg@exept.de> parents: 1041 diff changeset	6162
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6163	(tokenType == #Nil) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6164	self warnPossibleIncompatibility:'nil in array constant is interpreted as #nil (symbol) in other smalltalks' position:tokenPosition to:tokenPosition+token size - 1.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6165	^ tokenValue
1683 faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	6166	].
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	6167	(tokenType == #True) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6168	self warnPossibleIncompatibility:'true in array constant is interpreted as #true (symbol) in other smalltalks' position:tokenPosition to:tokenPosition+token size - 1.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6169	^ tokenValue
1683 faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	6170	].
faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	6171	(tokenType == #False) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6172	self warnPossibleIncompatibility:'false in array constant is interpreted as #false (symbol) in other smalltalks' position:tokenPosition to:tokenPosition+token size - 1.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6173	^ tokenValue
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	6174	].
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	6175	((tokenType == #Integer)
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6176	or:[tokenType == #Float]) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6177	^ tokenValue
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6178	].
1615 95cb173a5fcd immutable strings Claus Gittinger <cg@exept.de> parents: 1605 diff changeset	6179	(tokenType == #String) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6180	parserFlags stringsAreImmutable ifTrue:[^ self makeImmutableString:tokenValue].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6181	^ tokenValue
1615 95cb173a5fcd immutable strings Claus Gittinger <cg@exept.de> parents: 1605 diff changeset	6182	].
95cb173a5fcd immutable strings Claus Gittinger <cg@exept.de> parents: 1605 diff changeset	6183	(tokenType == #Character) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6184	^ tokenValue
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6185	].
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6186	(tokenType == #Error) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6187	^ ParseError raise.
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6188	].
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6189	(tokenType == #BinaryOperator) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6190	val := tokenName asSymbol.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6191	parseForCode ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6192	self rememberSymbolUsed:val.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6193	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6194	^ val
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6195	].
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6196
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6197	"/ some more special symbol consts ...
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6198	(tokenType == $\| ) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6199	^ #\|
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6200	].
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6201	(tokenType == #Self ) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6202	^ #'self'
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6203	].
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6204	(tokenType == #Super ) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6205	^ #'super'
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6206	].
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6207	(tokenType == #Here ) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6208	^ #'here'
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6209	].
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6210	(tokenType == #ThisContext ) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6211	^ #'thisContext'
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	6212	].
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	6213
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	6214	((tokenType == #Keyword)
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6215	or:[tokenType == #Identifier]) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6216	val := tokenName asSymbol.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6217	parseForCode ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6218	self rememberSymbolUsed:val.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6219	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6220	^ val
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6221	].
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6222	((tokenType == $()
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6223	or:[tokenType == #HashLeftParen]) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6224	self nextToken.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6225	^ self array
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	6226	].
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	6227	((tokenType == $[)
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6228	or:[tokenType == #HashLeftBrack]) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6229	self nextToken.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6230	^ self byteArray
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6231	].
1042 d192446cb745 fixed qualifiedName handling (as array constant) Claus Gittinger <cg@exept.de> parents: 1041 diff changeset	6232	(tokenType == #HashLeftBrace) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6233	parserFlags allowQualifiedNames == true ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6234	self parseError:'non-Standard VisualWorks extension: #{..}. Please enable in settings.' position:tokenPosition to:tokenPosition+1.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6235	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6236	val := self qualifiedNameOrInlineObject .
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6237	"/ val := QualifiedName for:val name.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6238	val := val value.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6239	^ val
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	6240	].
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6241	(tokenType == #Symbol) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6242	parseForCode ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6243	self rememberSymbolUsed:tokenValue.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6244	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6245	^ tokenValue
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6246	].
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6247	(tokenType == #EOF) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6248	"just for the better error-hilight; let caller handle error"
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6249	self syntaxError:'EOF unexpected in array-constant'.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6250	^ ParseError raise.
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	6251	].
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	6252	self syntaxError:('"'
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6253	, tokenType printString
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6254	, '" unexpected in array-constant').
3067 2b9666f7c3c7 class: Parser Claus Gittinger <cg@exept.de> parents: 3045 diff changeset	6255	^ ParseError raise.
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6256
1855 61936f01108e error messages shortened and cleanup Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	6257	"Modified: / 22-08-2006 / 14:21:16 / cg"
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6258	!
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6259
1405 f888caa1f2d8 refactored primitive-decl parsing; Claus Gittinger <cg@exept.de> parents: 1400 diff changeset	6260	arrayIndexingExpression
f888caa1f2d8 refactored primitive-decl parsing; Claus Gittinger <cg@exept.de> parents: 1400 diff changeset	6261	"parse an array index expression; this is a squeak/stx extension.
2996 286c5425492a class: Parser Claus Gittinger <cg@exept.de> parents: 2995 diff changeset	6262	foo[x] is syntactic sugar for 'foo at:x'
286c5425492a class: Parser Claus Gittinger <cg@exept.de> parents: 2995 diff changeset	6263	and foo[x] := expr is syntactic sugar for 'foo at:x put:expr';
286c5425492a class: Parser Claus Gittinger <cg@exept.de> parents: 2995 diff changeset	6264	with commas, foo[x , y] generates foo at:x at:y"
1405 f888caa1f2d8 refactored primitive-decl parsing; Claus Gittinger <cg@exept.de> parents: 1400 diff changeset	6265
1412 af3ec9f24a38 array indexing extension (experimental) Claus Gittinger <cg@exept.de> parents: 1411 diff changeset	6266	\|receiver argList selectorStream valNode\|
1405 f888caa1f2d8 refactored primitive-decl parsing; Claus Gittinger <cg@exept.de> parents: 1400 diff changeset	6267
f888caa1f2d8 refactored primitive-decl parsing; Claus Gittinger <cg@exept.de> parents: 1400 diff changeset	6268	receiver := self functionCallExpression.
f888caa1f2d8 refactored primitive-decl parsing; Claus Gittinger <cg@exept.de> parents: 1400 diff changeset	6269	tokenType == $[ ifFalse:[^ receiver].
2996 286c5425492a class: Parser Claus Gittinger <cg@exept.de> parents: 2995 diff changeset	6270
1636 98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	6271	parserFlags allowArrayIndexSyntaxExtension == true ifFalse:[^ receiver.].
1405 f888caa1f2d8 refactored primitive-decl parsing; Claus Gittinger <cg@exept.de> parents: 1400 diff changeset	6272	(receiver == #Error) ifTrue:[^ #Error].
f888caa1f2d8 refactored primitive-decl parsing; Claus Gittinger <cg@exept.de> parents: 1400 diff changeset	6273
f888caa1f2d8 refactored primitive-decl parsing; Claus Gittinger <cg@exept.de> parents: 1400 diff changeset	6274	selectorStream := WriteStream on: (String new: 32).
f888caa1f2d8 refactored primitive-decl parsing; Claus Gittinger <cg@exept.de> parents: 1400 diff changeset	6275	argList := OrderedCollection new.
1412 af3ec9f24a38 array indexing extension (experimental) Claus Gittinger <cg@exept.de> parents: 1411 diff changeset	6276
af3ec9f24a38 array indexing extension (experimental) Claus Gittinger <cg@exept.de> parents: 1411 diff changeset	6277	[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6278	[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6279	\|indexNode\|
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6280
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6281	self nextToken.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6282	indexNode := self expression.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6283	argList isEmpty ifTrue:[selectorStream nextPutAll:'_'].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6284	selectorStream nextPutAll:'at:'.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6285	argList add: indexNode.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6286	(tokenType == #BinaryOperator ) and:[ token = ',']
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6287	] whileTrue.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6288
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6289	tokenType == $] ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6290	self parseError:''']'' expected'.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6291	^ #Error
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6292	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6293	self nextToken.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6294
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6295	tokenType == $[ ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6296	receiver := MessageNode
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6297	receiver:receiver
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6298	selector:(selectorStream contents)
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6299	args:argList.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6300	selectorStream := WriteStream on: (String new: 32).
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6301	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6302	tokenType == $[
1405 f888caa1f2d8 refactored primitive-decl parsing; Claus Gittinger <cg@exept.de> parents: 1400 diff changeset	6303	] whileTrue.
1411 c71cf8b2be10 checkin from browser Claus Gittinger <cg@exept.de> parents: 1410 diff changeset	6304
1405 f888caa1f2d8 refactored primitive-decl parsing; Claus Gittinger <cg@exept.de> parents: 1400 diff changeset	6305	tokenType == #':=' ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6306	self nextToken.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6307	selectorStream nextPutAll:'put:'.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6308	valNode := self expression.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6309	valNode == #Error ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6310	^ valNode
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6311	].
1412 af3ec9f24a38 array indexing extension (experimental) Claus Gittinger <cg@exept.de> parents: 1411 diff changeset	6312	"/ this was found in squeak - why make it a block ?
1405 f888caa1f2d8 refactored primitive-decl parsing; Claus Gittinger <cg@exept.de> parents: 1400 diff changeset	6313	"/ (valNode isKindOf: BlockNode) ifFalse:[
f888caa1f2d8 refactored primitive-decl parsing; Claus Gittinger <cg@exept.de> parents: 1400 diff changeset	6314	"/ valNode _ BlockNode new
f888caa1f2d8 refactored primitive-decl parsing; Claus Gittinger <cg@exept.de> parents: 1400 diff changeset	6315	"/ arguments: #()
f888caa1f2d8 refactored primitive-decl parsing; Claus Gittinger <cg@exept.de> parents: 1400 diff changeset	6316	"/ statements: (OrderedCollection with: valNode)
f888caa1f2d8 refactored primitive-decl parsing; Claus Gittinger <cg@exept.de> parents: 1400 diff changeset	6317	"/ returns: false
f888caa1f2d8 refactored primitive-decl parsing; Claus Gittinger <cg@exept.de> parents: 1400 diff changeset	6318	"/ from: encoder.
f888caa1f2d8 refactored primitive-decl parsing; Claus Gittinger <cg@exept.de> parents: 1400 diff changeset	6319	"/ ].
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6320	argList add: valNode
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	6321	].
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	6322
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	6323	^ MessageNode
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6324	receiver:receiver
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6325	selector:selectorStream contents
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6326	args:argList.
1405 f888caa1f2d8 refactored primitive-decl parsing; Claus Gittinger <cg@exept.de> parents: 1400 diff changeset	6327
f888caa1f2d8 refactored primitive-decl parsing; Claus Gittinger <cg@exept.de> parents: 1400 diff changeset	6328	"
1412 af3ec9f24a38 array indexing extension (experimental) Claus Gittinger <cg@exept.de> parents: 1411 diff changeset	6329	AllowArrayIndexSyntaxExtension := true.
af3ec9f24a38 array indexing extension (experimental) Claus Gittinger <cg@exept.de> parents: 1411 diff changeset	6330	AllowArrayIndexSyntaxExtension := false.
1405 f888caa1f2d8 refactored primitive-decl parsing; Claus Gittinger <cg@exept.de> parents: 1400 diff changeset	6331	"
f888caa1f2d8 refactored primitive-decl parsing; Claus Gittinger <cg@exept.de> parents: 1400 diff changeset	6332
f888caa1f2d8 refactored primitive-decl parsing; Claus Gittinger <cg@exept.de> parents: 1400 diff changeset	6333	"
f888caa1f2d8 refactored primitive-decl parsing; Claus Gittinger <cg@exept.de> parents: 1400 diff changeset	6334	\|foo\|
f888caa1f2d8 refactored primitive-decl parsing; Claus Gittinger <cg@exept.de> parents: 1400 diff changeset	6335
1412 af3ec9f24a38 array indexing extension (experimental) Claus Gittinger <cg@exept.de> parents: 1411 diff changeset	6336	foo := Array new:10 withAll:2.
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	6337	1 + foo[1].
1405 f888caa1f2d8 refactored primitive-decl parsing; Claus Gittinger <cg@exept.de> parents: 1400 diff changeset	6338	"
f888caa1f2d8 refactored primitive-decl parsing; Claus Gittinger <cg@exept.de> parents: 1400 diff changeset	6339	"
f888caa1f2d8 refactored primitive-decl parsing; Claus Gittinger <cg@exept.de> parents: 1400 diff changeset	6340	\|foo\|
f888caa1f2d8 refactored primitive-decl parsing; Claus Gittinger <cg@exept.de> parents: 1400 diff changeset	6341
f888caa1f2d8 refactored primitive-decl parsing; Claus Gittinger <cg@exept.de> parents: 1400 diff changeset	6342	foo := Array new:10.
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	6343	foo[1] := 'hello'.
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	6344	foo[2].
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	6345	foo[1].
1405 f888caa1f2d8 refactored primitive-decl parsing; Claus Gittinger <cg@exept.de> parents: 1400 diff changeset	6346	"
f888caa1f2d8 refactored primitive-decl parsing; Claus Gittinger <cg@exept.de> parents: 1400 diff changeset	6347	!
f888caa1f2d8 refactored primitive-decl parsing; Claus Gittinger <cg@exept.de> parents: 1400 diff changeset	6348
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6349	binaryExpression
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6350	"parse a binary-expression; return a node-tree, nil or #Error"
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6351
1328 af0a47799078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1327 diff changeset	6352	\|receiver\|
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6353
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6354	receiver := self unaryExpression.
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6355	(receiver == #Error) ifTrue:[^ #Error].
3208 093f1891db93 class: Parser Claus Gittinger <cg@exept.de> parents: 3200 diff changeset	6356	tokenType == #EOF ifTrue:[^ receiver].
093f1891db93 class: Parser Claus Gittinger <cg@exept.de> parents: 3200 diff changeset	6357	tokenType == $] ifTrue:[^ receiver].
093f1891db93 class: Parser Claus Gittinger <cg@exept.de> parents: 3200 diff changeset	6358	tokenType == $) ifTrue:[^ receiver].
093f1891db93 class: Parser Claus Gittinger <cg@exept.de> parents: 3200 diff changeset	6359
1328 af0a47799078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1327 diff changeset	6360	^ self binaryExpressionFor:receiver
af0a47799078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1327 diff changeset	6361	!
af0a47799078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1327 diff changeset	6362
af0a47799078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1327 diff changeset	6363	binaryExpressionFor:receiverArg
af0a47799078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1327 diff changeset	6364	"parse a binary-expression; return a node-tree, nil or #Error"
af0a47799078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1327 diff changeset	6365
2788 0282ad201349 refactored checkPlausibilityOf:from:to: Claus Gittinger <cg@exept.de> parents: 2765 diff changeset	6366	\|receiver expr arg sel pos1 pos2 lno\|
1328 af0a47799078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1327 diff changeset	6367
af0a47799078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1327 diff changeset	6368	receiver := receiverArg.
af0a47799078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1327 diff changeset	6369	(receiver == #Error) ifTrue:[^ #Error].
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6370
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6371	"special kludge: since Scanner cannot know if -digit is a binary
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6372	expression or a negative constant, handle cases here"
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6373
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	6374	[(tokenType == #BinaryOperator)
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6375	or:[(tokenType == $\|)
3212 589d3bcf3308 class: Parser Claus Gittinger <cg@exept.de> parents: 3211 diff changeset	6376	or:[(tokenType == $^ and:[parserFlags allowCaretAsBinop or:[parserFlags allowExtendedBinarySelectors]])
589d3bcf3308 class: Parser Claus Gittinger <cg@exept.de> parents: 3211 diff changeset	6377	or:[((tokenType == #Integer) or:[tokenType == #Float])
589d3bcf3308 class: Parser Claus Gittinger <cg@exept.de> parents: 3211 diff changeset	6378	and:[tokenValue < 0]]]]
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6379	] whileTrue:[
3212 589d3bcf3308 class: Parser Claus Gittinger <cg@exept.de> parents: 3211 diff changeset	6380	"/ kludge alarm: in a function-call argList, #, is not a binarySelector
589d3bcf3308 class: Parser Claus Gittinger <cg@exept.de> parents: 3211 diff changeset	6381	inFunctionCallArgument == true ifTrue:[
589d3bcf3308 class: Parser Claus Gittinger <cg@exept.de> parents: 3211 diff changeset	6382	((tokenType == #BinaryOperator) and:[tokenName = ',']) ifTrue:[
589d3bcf3308 class: Parser Claus Gittinger <cg@exept.de> parents: 3211 diff changeset	6383	^ receiver
589d3bcf3308 class: Parser Claus Gittinger <cg@exept.de> parents: 3211 diff changeset	6384	].
589d3bcf3308 class: Parser Claus Gittinger <cg@exept.de> parents: 3211 diff changeset	6385	].
589d3bcf3308 class: Parser Claus Gittinger <cg@exept.de> parents: 3211 diff changeset	6386
589d3bcf3308 class: Parser Claus Gittinger <cg@exept.de> parents: 3211 diff changeset	6387	pos1 := tokenPosition.
589d3bcf3308 class: Parser Claus Gittinger <cg@exept.de> parents: 3211 diff changeset	6388	lno := tokenLineNr.
589d3bcf3308 class: Parser Claus Gittinger <cg@exept.de> parents: 3211 diff changeset	6389
589d3bcf3308 class: Parser Claus Gittinger <cg@exept.de> parents: 3211 diff changeset	6390	"/ kludge alarm: bar, caret and minus are not scanned as binop
589d3bcf3308 class: Parser Claus Gittinger <cg@exept.de> parents: 3211 diff changeset	6391	(tokenType == $\|) ifTrue:[
589d3bcf3308 class: Parser Claus Gittinger <cg@exept.de> parents: 3211 diff changeset	6392	sel := '\|'.
589d3bcf3308 class: Parser Claus Gittinger <cg@exept.de> parents: 3211 diff changeset	6393	sel := self selectorCheck:sel for:receiver position:tokenPosition to:tokenPosition.
589d3bcf3308 class: Parser Claus Gittinger <cg@exept.de> parents: 3211 diff changeset	6394	self nextToken.
589d3bcf3308 class: Parser Claus Gittinger <cg@exept.de> parents: 3211 diff changeset	6395	] ifFalse:[
589d3bcf3308 class: Parser Claus Gittinger <cg@exept.de> parents: 3211 diff changeset	6396	(tokenType == $^) ifTrue:[
589d3bcf3308 class: Parser Claus Gittinger <cg@exept.de> parents: 3211 diff changeset	6397	sel := '^'.
589d3bcf3308 class: Parser Claus Gittinger <cg@exept.de> parents: 3211 diff changeset	6398	sel := self selectorCheck:sel for:receiver position:tokenPosition to:tokenPosition.
589d3bcf3308 class: Parser Claus Gittinger <cg@exept.de> parents: 3211 diff changeset	6399	self nextToken.
589d3bcf3308 class: Parser Claus Gittinger <cg@exept.de> parents: 3211 diff changeset	6400	] ifFalse:[
589d3bcf3308 class: Parser Claus Gittinger <cg@exept.de> parents: 3211 diff changeset	6401	(tokenType == #BinaryOperator) ifTrue:[
589d3bcf3308 class: Parser Claus Gittinger <cg@exept.de> parents: 3211 diff changeset	6402	sel := tokenName.
589d3bcf3308 class: Parser Claus Gittinger <cg@exept.de> parents: 3211 diff changeset	6403	sel := self selectorCheck:sel for:receiver position:tokenPosition to:(tokenPosition + tokenName size - 1).
589d3bcf3308 class: Parser Claus Gittinger <cg@exept.de> parents: 3211 diff changeset	6404	self nextToken
589d3bcf3308 class: Parser Claus Gittinger <cg@exept.de> parents: 3211 diff changeset	6405	] ifFalse:[
589d3bcf3308 class: Parser Claus Gittinger <cg@exept.de> parents: 3211 diff changeset	6406	sel := '-'.
589d3bcf3308 class: Parser Claus Gittinger <cg@exept.de> parents: 3211 diff changeset	6407	token := tokenValue := tokenValue negated.
589d3bcf3308 class: Parser Claus Gittinger <cg@exept.de> parents: 3211 diff changeset	6408	tokenPosition := tokenPosition + 1. "/ to skip the sign
589d3bcf3308 class: Parser Claus Gittinger <cg@exept.de> parents: 3211 diff changeset	6409	]
589d3bcf3308 class: Parser Claus Gittinger <cg@exept.de> parents: 3211 diff changeset	6410	].
589d3bcf3308 class: Parser Claus Gittinger <cg@exept.de> parents: 3211 diff changeset	6411	].
589d3bcf3308 class: Parser Claus Gittinger <cg@exept.de> parents: 3211 diff changeset	6412
589d3bcf3308 class: Parser Claus Gittinger <cg@exept.de> parents: 3211 diff changeset	6413	pos2 := pos1 + sel size - 1.
589d3bcf3308 class: Parser Claus Gittinger <cg@exept.de> parents: 3211 diff changeset	6414	self markSelector:sel from:pos1 to:pos2 receiverNode:receiver.
589d3bcf3308 class: Parser Claus Gittinger <cg@exept.de> parents: 3211 diff changeset	6415
589d3bcf3308 class: Parser Claus Gittinger <cg@exept.de> parents: 3211 diff changeset	6416	arg := self unaryExpression.
589d3bcf3308 class: Parser Claus Gittinger <cg@exept.de> parents: 3211 diff changeset	6417	(arg == #Error) ifTrue:[^ #Error].
589d3bcf3308 class: Parser Claus Gittinger <cg@exept.de> parents: 3211 diff changeset	6418
589d3bcf3308 class: Parser Claus Gittinger <cg@exept.de> parents: 3211 diff changeset	6419	expr := BinaryNode receiver:receiver selector:sel arg:arg fold:foldConstants.
589d3bcf3308 class: Parser Claus Gittinger <cg@exept.de> parents: 3211 diff changeset	6420	expr isErrorNode ifTrue:[
589d3bcf3308 class: Parser Claus Gittinger <cg@exept.de> parents: 3211 diff changeset	6421	self parseError:(expr errorString) position:pos1 to:tokenPosition.
589d3bcf3308 class: Parser Claus Gittinger <cg@exept.de> parents: 3211 diff changeset	6422	errorFlag := false. "ok, user wants it - so he'll get it"
589d3bcf3308 class: Parser Claus Gittinger <cg@exept.de> parents: 3211 diff changeset	6423	expr := BinaryNode receiver:receiver selector:sel arg:arg fold:nil.
589d3bcf3308 class: Parser Claus Gittinger <cg@exept.de> parents: 3211 diff changeset	6424	].
589d3bcf3308 class: Parser Claus Gittinger <cg@exept.de> parents: 3211 diff changeset	6425	expr lineNumber:lno.
589d3bcf3308 class: Parser Claus Gittinger <cg@exept.de> parents: 3211 diff changeset	6426	expr selectorPosition:pos1.
589d3bcf3308 class: Parser Claus Gittinger <cg@exept.de> parents: 3211 diff changeset	6427
589d3bcf3308 class: Parser Claus Gittinger <cg@exept.de> parents: 3211 diff changeset	6428	self checkPlausibilityOf:expr from:pos1 to:pos2.
589d3bcf3308 class: Parser Claus Gittinger <cg@exept.de> parents: 3211 diff changeset	6429	parseForCode ifFalse:[
589d3bcf3308 class: Parser Claus Gittinger <cg@exept.de> parents: 3211 diff changeset	6430	self rememberSelectorUsed:sel receiver:receiver
589d3bcf3308 class: Parser Claus Gittinger <cg@exept.de> parents: 3211 diff changeset	6431	].
589d3bcf3308 class: Parser Claus Gittinger <cg@exept.de> parents: 3211 diff changeset	6432	expr := self messageNodeRewriteHookFor:expr.
589d3bcf3308 class: Parser Claus Gittinger <cg@exept.de> parents: 3211 diff changeset	6433	receiver := expr. "/ for next message
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6434	].
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6435	^ receiver
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6436
2356 db41cf4d0ed7 added: #messageNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2353 diff changeset	6437	"Modified: / 09-01-1998 / 19:05:18 / stefan"
2788 0282ad201349 refactored checkPlausibilityOf:from:to: Claus Gittinger <cg@exept.de> parents: 2765 diff changeset	6438	"Modified: / 19-01-2012 / 10:44:22 / cg"
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6439	!
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6440
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6441	byteArray
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6442	"started with ST-80 R4 - allow byteArray constants as #[ ... ]"
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6443
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6444	\|bytes index limit newArray elem pos1 pos2\|
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6445
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6446	pos1 := tokenPosition.
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6447	bytes := ByteArray uninitializedNew:5000.
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6448	index := 0. limit := 5000.
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6449	[tokenType ~~ $] ] whileTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6450	pos2 := tokenPosition.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6451	"
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6452	this is not good programming style, but speeds up
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6453	reading of huge byte arrays (i.e. stored Images ...)
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6454	"
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6455	(tokenType == #Integer) ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6456	elem := tokenValue
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6457	] ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6458	elem := self arrayConstant.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6459	(elem == #Error) ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6460	(tokenType == #EOF) ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6461	self syntaxError:'unterminated bytearray-constant; '']'' expected'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6462	position:pos1 to:tokenPosition
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6463	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6464	^ #Error
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6465	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6466	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6467	((elem isMemberOf:SmallInteger) and:[elem between:0 and:255]) ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6468	index := index + 1.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6469	bytes at:index put:elem.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6470	index == limit ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6471	newArray := ByteArray uninitializedNew:(limit * 2).
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6472	newArray replaceFrom:1 to:limit with:bytes startingAt:1.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6473	limit := limit * 2.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6474	bytes := newArray
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6475	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6476	] ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6477	self parseError:'invalid ByteArray element' position:pos2 to:tokenPosition - 1
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6478	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6479	self nextToken.
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6480	].
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6481	newArray := ByteArray uninitializedNew:index.
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6482	newArray replaceFrom:1 to:index with:bytes startingAt:1.
2255 402689fb28d9 ImmutableByteArray Claus Gittinger <cg@exept.de> parents: 2233 diff changeset	6483	parserFlags arraysAreImmutable ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6484	^ self class makeImmutableByteArray:newArray
2255 402689fb28d9 ImmutableByteArray Claus Gittinger <cg@exept.de> parents: 2233 diff changeset	6485	].
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6486	^ newArray
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6487	!
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6488
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6489	degeneratedKeywordExpressionForSelector
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	6490	"parse a keyword-expression without receiver - for the selector only.
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	6491	Return the selector or nil (if it cannot be determined).
1406 cb80600efd76 checkin from browser Claus Gittinger <cg@exept.de> parents: 1405 diff changeset	6492	This is not used in normal parsing, but instead to extract the selector from a code fragment.
cb80600efd76 checkin from browser Claus Gittinger <cg@exept.de> parents: 1405 diff changeset	6493	(for example, the system browsers 'implementors'-function uses this to extract a selector from
cb80600efd76 checkin from browser Claus Gittinger <cg@exept.de> parents: 1405 diff changeset	6494	the selection)"
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6495
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6496	\|sel arg rec\|
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6497
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6498	(tokenType == #Keyword) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6499	sel := tokenName.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6500	self nextToken.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6501	arg := self binaryExpression.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6502	(arg == #Error) ifTrue:[^ sel].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6503	[tokenType == #Keyword] whileTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6504	sel := sel , tokenName.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6505	self nextToken.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6506	arg := self binaryExpression.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6507	(arg == #Error) ifTrue:[^ sel].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6508	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6509	^ sel
1271 47c443af9bb9 better code for squeak computed array; Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	6510	].
47c443af9bb9 better code for squeak computed array; Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	6511
1406 cb80600efd76 checkin from browser Claus Gittinger <cg@exept.de> parents: 1405 diff changeset	6512	(rec := self arrayIndexingExpression) == #Error ifTrue:[ ^ nil].
cb80600efd76 checkin from browser Claus Gittinger <cg@exept.de> parents: 1405 diff changeset	6513	sel := self degeneratedKeywordExpressionForSelector.
cb80600efd76 checkin from browser Claus Gittinger <cg@exept.de> parents: 1405 diff changeset	6514	sel notNil ifTrue:[ ^ sel].
cb80600efd76 checkin from browser Claus Gittinger <cg@exept.de> parents: 1405 diff changeset	6515
1407 d8c34d91199e checkin from browser Claus Gittinger <cg@exept.de> parents: 1406 diff changeset	6516	rec isAssignment ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6517	rec := rec expression
1407 d8c34d91199e checkin from browser Claus Gittinger <cg@exept.de> parents: 1406 diff changeset	6518	].
1406 cb80600efd76 checkin from browser Claus Gittinger <cg@exept.de> parents: 1405 diff changeset	6519	rec isMessage ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6520	^ rec selector
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	6521	].
1406 cb80600efd76 checkin from browser Claus Gittinger <cg@exept.de> parents: 1405 diff changeset	6522	^ nil
1524 078c644495de example penk parents: 1523 diff changeset	6523
078c644495de example penk parents: 1523 diff changeset	6524	"
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	6525	(self new source:'hello:world:') nextToken; degeneratedKeywordExpressionForSelector
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	6526	(self new source:'hello:world') nextToken; degeneratedKeywordExpressionForSelector
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	6527	(self new source:'hello:') nextToken; degeneratedKeywordExpressionForSelector
1524 078c644495de example penk parents: 1523 diff changeset	6528	"
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6529	!
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6530
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6531	expression
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6532	"parse a cascade-expression; return a node-tree, nil or #Error.
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6533
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6534	expression ::= keywordExpression
3150 dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6535	\| keywordExpression cascade
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6536
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6537	cascade ::= ';' expressionSendPart
3150 dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6538	\| cascade ';' expressionSendPart
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6539
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6540	expressionSendPart ::= { KEYWORD binaryExpression }
3150 dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6541	\| BINARYOPERATOR unaryExpression
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6542	\| IDENTIFIER
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6543	"
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6544
864 a716d90fa5a9 better selector marking Claus Gittinger <cg@exept.de> parents: 837 diff changeset	6545	\|receiver arg sel args pos pos2 lno tokenEnd realReceiver positions\|
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6546
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6547	pos := tokenPosition.
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6548	receiver := self keywordExpression.
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6549	(receiver == #Error) ifTrue:[^ #Error].
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6550	(tokenType == $;) ifTrue:[
3150 dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6551	receiver isMessage ifFalse:[
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6552	self syntaxError:'left side of cascade must be a message expression'
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6553	position:pos to:tokenPosition.
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6554	realReceiver := receiver. "/ only to allow continuing.
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6555	] ifTrue:[
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6556	realReceiver := receiver receiver.
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6557	].
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6558	[tokenType == $;] whileTrue:[
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6559	self nextToken.
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6560	(tokenType == #Identifier) ifTrue:[
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6561	tokenEnd := tokenPosition + tokenName size - 1.
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6562	self markSelector:tokenName from:tokenPosition to:tokenEnd receiverNode:realReceiver.
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6563	sel := tokenName.
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6564	sel := self selectorCheck:tokenName for:realReceiver position:tokenPosition to:tokenEnd.
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6565	receiver := CascadeNode receiver:receiver selector:sel.
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6566	receiver startPosition: receiver receiver startPosition
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6567	endPosition: tokenLastEndPosition.
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6568	receiver lineNumber:tokenLineNr.
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6569	receiver := self messageNodeRewriteHookFor:receiver.
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6570	parseForCode ifFalse:[
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6571	self rememberSelectorUsed:sel receiver:realReceiver
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6572	].
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6573	self nextToken.
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6574	] ifFalse:[
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6575	(tokenType == #BinaryOperator) ifTrue:[
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6576	tokenEnd := tokenPosition + tokenName size - 1.
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6577	self markSelector:tokenName from:tokenPosition to:tokenEnd receiverNode:realReceiver.
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6578	sel := tokenName.
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6579	sel := self selectorCheck:tokenName for:realReceiver position:tokenPosition to:tokenEnd.
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6580	lno := tokenLineNr.
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6581	self nextToken.
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6582	arg := self unaryExpression.
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6583	(arg == #Error) ifTrue:[^ #Error].
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6584	receiver := CascadeNode receiver:receiver selector:sel arg:arg.
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6585	receiver lineNumber:lno.
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6586	receiver := self messageNodeRewriteHookFor:receiver.
3200 b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	6587	receiver lineNumber:lno.
3150 dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6588	parseForCode ifFalse:[
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6589	self rememberSelectorUsed:sel receiver:realReceiver
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6590	].
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6591	] ifFalse:[
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6592	(tokenType == #Keyword) ifTrue:[
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6593	tokenEnd := tokenPosition + tokenName size - 1.
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6594	positions := OrderedCollection with:(tokenPosition to:tokenEnd).
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6595	pos := tokenPosition.
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6596	pos2 := tokenEnd.
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6597	lno := tokenLineNr.
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6598	sel := tokenName.
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6599	self nextToken.
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6600	arg := self binaryExpression.
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6601	(arg == #Error) ifTrue:[^ #Error].
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6602	args := Array with:arg.
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6603	[tokenType == #Keyword] whileTrue:[
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6604	tokenEnd := tokenPosition + tokenName size - 1.
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6605	positions add:(tokenPosition to:tokenEnd).
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6606	sel := sel , tokenName.
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6607	self nextToken.
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6608	arg := self binaryExpression.
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6609	(arg == #Error) ifTrue:[^ #Error].
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6610	args := args copyWith:arg.
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6611	pos2 := tokenEnd
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6612	].
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6613	positions do:[:p \|
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6614	self markSelector:sel from:p start to:p stop receiverNode:realReceiver.
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6615	].
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6616
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6617	sel := self selectorCheck:sel for:realReceiver position:pos to:pos2.
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6618
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6619	receiver := CascadeNode receiver:receiver selector:sel args:args.
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6620	receiver lineNumber:lno.
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6621	receiver := self messageNodeRewriteHookFor:receiver.
3200 b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	6622	receiver lineNumber:lno.
3150 dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6623	parseForCode ifFalse:[
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6624	self rememberSelectorUsed:sel receiver:realReceiver args:args
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6625	].
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6626	] ifFalse:[
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6627	(tokenType == #Error) ifTrue:[^ #Error].
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6628	self syntaxError:('invalid cascade; ' , tokenType printString , ' unexpected')
3267 2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	6629	position:tokenPosition to:source position.
3150 dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6630	^ #Error
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6631	]
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6632	]
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6633	]
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6634	].
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6635
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6636	"obscure (unspecified ?) if selector follows; Question:
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6637
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6638	is
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6639	'expr sel1; sel2 sel3'
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6640
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6641	to be parsed as:
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6642	(t := expr.
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6643	t sel1.
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6644	t sel2) sel3
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6645
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6646	or:
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6647	(t := expr.
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6648	t sel1.
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6649	t sel2 sel3)
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6650	"
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6651	((tokenType == #Identifier)
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6652	or:[(tokenType == #BinaryOperator)
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6653	or:[tokenType == #Keyword]]) ifTrue:[
dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6654	self syntaxError:'ambigous cascade - please group using (...)'
3267 2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	6655	position:tokenPosition to:source position.
3150 dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6656	^ #Error
1328 af0a47799078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1327 diff changeset	6657	"/ self warning: "syntaxError:" 'possibly ambigous cascade - please group using (...)'
af0a47799078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1327 diff changeset	6658	"/ position:tokenPosition to:source position - 1.
af0a47799078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1327 diff changeset	6659	"/ tokenType == #Identifier ifTrue:[
af0a47799078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1327 diff changeset	6660	"/ ^ self unaryExpressionFor:receiver
af0a47799078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1327 diff changeset	6661	"/ ].
af0a47799078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1327 diff changeset	6662	"/ tokenType == #BinaryOperator ifTrue:[
af0a47799078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1327 diff changeset	6663	"/ ^ self binaryExpressionFor:receiver
af0a47799078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1327 diff changeset	6664	"/ ].
af0a47799078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1327 diff changeset	6665	"/ ^ self keywordExpressionFor:receiver
3150 dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6666	]
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6667	].
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6668	^ receiver
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6669
2614 7fb9c052438e More fixes to keep node position in the source. Not yet fully implemented Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2567 diff changeset	6670	"Modified: / 19-01-2000 / 16:22:16 / cg"
3150 dd7370ac8c8d Added messageNodeRewriteHookFor: for CascadeNode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3146 diff changeset	6671	"Modified: / 24-04-2013 / 21:10:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6672	!
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6673
1337 b558251f5e77 function call is now compiled into an #eval: message Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	6674	functionCallArgList
b558251f5e77 function call is now compiled into an #eval: message Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	6675	\|argList arg prevInFunctionCallArgument\|
b558251f5e77 function call is now compiled into an #eval: message Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	6676
b558251f5e77 function call is now compiled into an #eval: message Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	6677	self nextToken.
b558251f5e77 function call is now compiled into an #eval: message Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	6678	tokenType == $) ifTrue:[ self nextToken. ^ #() ].
b558251f5e77 function call is now compiled into an #eval: message Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	6679
b558251f5e77 function call is now compiled into an #eval: message Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	6680	argList := OrderedCollection new.
b558251f5e77 function call is now compiled into an #eval: message Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	6681	[ true ] whileTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6682	prevInFunctionCallArgument := inFunctionCallArgument.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6683	inFunctionCallArgument := true.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6684
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6685	arg := self expression.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6686	arg == #Error ifTrue:[^ #Error].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6687	argList add:arg.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6688
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6689	inFunctionCallArgument := prevInFunctionCallArgument.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6690
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6691	tokenType == $) ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6692	self nextToken.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6693	^ argList
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6694	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6695	((tokenType == #BinaryOperator) and:[tokenName = ',']) ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6696	self parseError:'"," or ")" expected'.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6697	^ argList
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6698	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6699	self nextToken.
1337 b558251f5e77 function call is now compiled into an #eval: message Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	6700	].
b558251f5e77 function call is now compiled into an #eval: message Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	6701	!
b558251f5e77 function call is now compiled into an #eval: message Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	6702
1271 47c443af9bb9 better code for squeak computed array; Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	6703	functionCallExpression
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	6704	"parse a functionCall;
1636 98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	6705	this is an st/x extension.
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6706	foo(x)
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	6707	is syntactic sugar for
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6708	foo value:x
1636 98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	6709	"
1337 b558251f5e77 function call is now compiled into an #eval: message Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	6710
1342 65f8f4d0ce09 only autoDefine workspace vars on the top level (i.e. not within blocks) Claus Gittinger <cg@exept.de> parents: 1341 diff changeset	6711	\|receiver numArgs argList evalSelectors evalSelector\|
1271 47c443af9bb9 better code for squeak computed array; Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	6712
47c443af9bb9 better code for squeak computed array; Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	6713	receiver := self primary.
1337 b558251f5e77 function call is now compiled into an #eval: message Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	6714	tokenType == $( ifFalse:[^ receiver].
1636 98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	6715	parserFlags allowFunctionCallSyntaxForBlockEvaluation ifFalse:[^ receiver.].
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	6716
1271 47c443af9bb9 better code for squeak computed array; Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	6717	(receiver == #Error) ifTrue:[^ #Error].
1337 b558251f5e77 function call is now compiled into an #eval: message Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	6718
b558251f5e77 function call is now compiled into an #eval: message Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	6719	receiver isVariable ifFalse:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6720	((receiver isMessage or:[receiver isAssignment]) and:[receiver parenthesized]) ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6721	receiver isBlock ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6722	^ receiver
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6723	]
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6724	].
1337 b558251f5e77 function call is now compiled into an #eval: message Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	6725	].
b558251f5e77 function call is now compiled into an #eval: message Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	6726
b558251f5e77 function call is now compiled into an #eval: message Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	6727	argList := self functionCallArgList.
b558251f5e77 function call is now compiled into an #eval: message Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	6728
b558251f5e77 function call is now compiled into an #eval: message Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	6729	"/ make it a block evaluation
b558251f5e77 function call is now compiled into an #eval: message Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	6730	numArgs := argList size.
b558251f5e77 function call is now compiled into an #eval: message Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	6731	numArgs == 0 ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6732	^ UnaryNode receiver:receiver selector:#value
1341 e6cb61331a88 eval -> value Claus Gittinger <cg@exept.de> parents: 1340 diff changeset	6733	].
1579 22f4d629eeee * empty log message * Claus Gittinger <cg@exept.de> parents: 1576 diff changeset	6734	evalSelectors := #(#'value:'
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6735	#'value:value:'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6736	#'value:value:value:'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6737	#'value:value:value:value:'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6738	#'value:value:value:value:value:'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6739	#'value:value:value:value:value:value:'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6740	#'value:value:value:value:value:value:value:'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6741	#'value:value:value:value:value:value:value:value:'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6742	).
1337 b558251f5e77 function call is now compiled into an #eval: message Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	6743
b558251f5e77 function call is now compiled into an #eval: message Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	6744	numArgs <= evalSelectors size ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6745	evalSelector := evalSelectors at:numArgs.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6746	^ (MessageNode
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6747	receiver:receiver
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6748	selector:evalSelector
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6749	args:argList)
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6750	startPosition: receiver startPosition
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6751	endPosition: tokenLastEndPosition.
1337 b558251f5e77 function call is now compiled into an #eval: message Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	6752	].
b558251f5e77 function call is now compiled into an #eval: message Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	6753	"/ gen argument vector
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	6754	^ (MessageNode
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6755	receiver:receiver
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6756	selector:#valueWithArguments:
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6757	args:(self genMakeArrayWith:argList))
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6758	startPosition: receiver startPosition
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6759	endPosition: tokenLastEndPosition.
1337 b558251f5e77 function call is now compiled into an #eval: message Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	6760	"
1636 98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	6761	Parser allowFunctionCallSyntaxForBlockEvaluation:true.
1337 b558251f5e77 function call is now compiled into an #eval: message Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	6762	"
b558251f5e77 function call is now compiled into an #eval: message Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	6763
1271 47c443af9bb9 better code for squeak computed array; Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	6764	"
47c443af9bb9 better code for squeak computed array; Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	6765	\|foo\|
47c443af9bb9 better code for squeak computed array; Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	6766
47c443af9bb9 better code for squeak computed array; Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	6767	foo := [:x \| x + 1].
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	6768	1 + foo(1).
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	6769	foo(1).
1271 47c443af9bb9 better code for squeak computed array; Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	6770	"
47c443af9bb9 better code for squeak computed array; Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	6771	"
47c443af9bb9 better code for squeak computed array; Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	6772	\|addN add1\|
47c443af9bb9 better code for squeak computed array; Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	6773
47c443af9bb9 better code for squeak computed array; Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	6774	addN := [:n \| [:x \| x + n]].
47c443af9bb9 better code for squeak computed array; Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	6775	add1 := addN(1).
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	6776	add1(10).
1271 47c443af9bb9 better code for squeak computed array; Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	6777	"
47c443af9bb9 better code for squeak computed array; Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	6778	"AllowFunctionCallSyntaxForBlockEvaluation := false."
47c443af9bb9 better code for squeak computed array; Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	6779	"
47c443af9bb9 better code for squeak computed array; Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	6780	\|addN add1\|
47c443af9bb9 better code for squeak computed array; Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	6781
47c443af9bb9 better code for squeak computed array; Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	6782	addN := [:n \| [:x \| x + n]].
47c443af9bb9 better code for squeak computed array; Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	6783	add1 := addN value:1.
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	6784	add1 value:10
1271 47c443af9bb9 better code for squeak computed array; Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	6785	"
2614 7fb9c052438e More fixes to keep node position in the source. Not yet fully implemented Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2567 diff changeset	6786
7fb9c052438e More fixes to keep node position in the source. Not yet fully implemented Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2567 diff changeset	6787	"Modified: / 27-07-2011 / 15:39:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1271 47c443af9bb9 better code for squeak computed array; Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	6788	!
47c443af9bb9 better code for squeak computed array; Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	6789
2143 ce63c9486614 * empty log message * Claus Gittinger <cg@exept.de> parents: 2136 diff changeset	6790	inlineObjectFrom:pos1
ce63c9486614 * empty log message * Claus Gittinger <cg@exept.de> parents: 2136 diff changeset	6791	"an experimental ST/X feature.
ce63c9486614 * empty log message * Claus Gittinger <cg@exept.de> parents: 2136 diff changeset	6792	InlineObject as #{ name1: value1. ... nameN: valueN }
ce63c9486614 * empty log message * Claus Gittinger <cg@exept.de> parents: 2136 diff changeset	6793	creates a literal object with an anon class which provides getter/setters on all
ce63c9486614 * empty log message * Claus Gittinger <cg@exept.de> parents: 2136 diff changeset	6794	names and is preinitialized with valueI.
ce63c9486614 * empty log message * Claus Gittinger <cg@exept.de> parents: 2136 diff changeset	6795	The initial #{ is supposed to be skipped and its position passed in as pos1."
ce63c9486614 * empty log message * Claus Gittinger <cg@exept.de> parents: 2136 diff changeset	6796
ce63c9486614 * empty log message * Claus Gittinger <cg@exept.de> parents: 2136 diff changeset	6797	\|namesAndValues name value\|
ce63c9486614 * empty log message * Claus Gittinger <cg@exept.de> parents: 2136 diff changeset	6798
ce63c9486614 * empty log message * Claus Gittinger <cg@exept.de> parents: 2136 diff changeset	6799	namesAndValues := OrderedCollection new.
ce63c9486614 * empty log message * Claus Gittinger <cg@exept.de> parents: 2136 diff changeset	6800	[ tokenType ~~ $} ] whileTrue:[
3152 228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	6801	(tokenType == #Keyword) ifFalse:[
228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	6802	self syntaxError:'Bad inlineObject; Keyword expected'
228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	6803	position:pos1 to:tokenPosition
228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	6804	].
228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	6805	name := tokenName copyButLast:1.
228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	6806	self nextToken.
228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	6807	value := self arrayConstant.
228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	6808	self nextToken.
228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	6809	namesAndValues add:(name -> value).
228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	6810
228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	6811	tokenType = $. ifTrue:[
228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	6812	self nextToken.
228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	6813	].
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	6814	].
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	6815
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	6816	self
3152 228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	6817	warning:'InlineObjects are an experimental feature which is not yet supported by stc'
228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	6818	position:pos1 to:tokenPosition.
2143 ce63c9486614 * empty log message * Claus Gittinger <cg@exept.de> parents: 2136 diff changeset	6819
ce63c9486614 * empty log message * Claus Gittinger <cg@exept.de> parents: 2136 diff changeset	6820	self nextToken.
ce63c9486614 * empty log message * Claus Gittinger <cg@exept.de> parents: 2136 diff changeset	6821	^ ConstantNode type:#Object value:(self literalInlineObjectFor:namesAndValues).
ce63c9486614 * empty log message * Claus Gittinger <cg@exept.de> parents: 2136 diff changeset	6822	!
ce63c9486614 * empty log message * Claus Gittinger <cg@exept.de> parents: 2136 diff changeset	6823
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6824	keywordExpression
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6825	"parse a keyword-expression; return a node-tree, nil or #Error.
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6826
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6827	keywordExpression ::= binaryexpression
3208 093f1891db93 class: Parser Claus Gittinger <cg@exept.de> parents: 3200 diff changeset	6828	\| { KEYWORD-PART binaryExpression }
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6829	"
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6830
3299 a36f24765520 class: Parser Claus Gittinger <cg@exept.de> parents: 3298 diff changeset	6831	\|receiver expr\|
1328 af0a47799078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1327 diff changeset	6832
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6833	receiver := self binaryExpression.
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6834	(receiver == #Error) ifTrue:[^ #Error].
3208 093f1891db93 class: Parser Claus Gittinger <cg@exept.de> parents: 3200 diff changeset	6835	(tokenType == #EOF) ifTrue:[^ receiver].
093f1891db93 class: Parser Claus Gittinger <cg@exept.de> parents: 3200 diff changeset	6836	tokenType == $] ifTrue:[^ receiver].
093f1891db93 class: Parser Claus Gittinger <cg@exept.de> parents: 3200 diff changeset	6837	tokenType == $) ifTrue:[^ receiver].
3299 a36f24765520 class: Parser Claus Gittinger <cg@exept.de> parents: 3298 diff changeset	6838	expr := self keywordExpressionFor:receiver.
a36f24765520 class: Parser Claus Gittinger <cg@exept.de> parents: 3298 diff changeset	6839
a36f24765520 class: Parser Claus Gittinger <cg@exept.de> parents: 3298 diff changeset	6840	"/ expr could be an assignment as well, here
a36f24765520 class: Parser Claus Gittinger <cg@exept.de> parents: 3298 diff changeset	6841	(ignoreWarnings or:[ignoreErrors]) ifFalse:[
a36f24765520 class: Parser Claus Gittinger <cg@exept.de> parents: 3298 diff changeset	6842	"/ for a better error message, in case of a missing period in the previous message,
a36f24765520 class: Parser Claus Gittinger <cg@exept.de> parents: 3298 diff changeset	6843	"/ <expr> <missing period> foo := ...
a36f24765520 class: Parser Claus Gittinger <cg@exept.de> parents: 3298 diff changeset	6844	"/ would be parsed as unary message foo; detect this here, instead of high up in the calling hierarchy,
a36f24765520 class: Parser Claus Gittinger <cg@exept.de> parents: 3298 diff changeset	6845	"/ where it is difficult to provide a reasonable error message
a36f24765520 class: Parser Claus Gittinger <cg@exept.de> parents: 3298 diff changeset	6846	tokenType == #':=' ifTrue:[
a36f24765520 class: Parser Claus Gittinger <cg@exept.de> parents: 3298 diff changeset	6847	\|positionOfPeriod\|
a36f24765520 class: Parser Claus Gittinger <cg@exept.de> parents: 3298 diff changeset	6848
a36f24765520 class: Parser Claus Gittinger <cg@exept.de> parents: 3298 diff changeset	6849	expr isMessage ifTrue:[
a36f24765520 class: Parser Claus Gittinger <cg@exept.de> parents: 3298 diff changeset	6850	expr isUnaryMessage ifTrue:[
a36f24765520 class: Parser Claus Gittinger <cg@exept.de> parents: 3298 diff changeset	6851	positionOfPeriod := expr receiver positionToInsertPeriodForStatementSeparation
a36f24765520 class: Parser Claus Gittinger <cg@exept.de> parents: 3298 diff changeset	6852	] ifFalse:[
a36f24765520 class: Parser Claus Gittinger <cg@exept.de> parents: 3298 diff changeset	6853	\|lastArg\|
a36f24765520 class: Parser Claus Gittinger <cg@exept.de> parents: 3298 diff changeset	6854
a36f24765520 class: Parser Claus Gittinger <cg@exept.de> parents: 3298 diff changeset	6855	(lastArg := expr args last) isUnaryMessage ifTrue:[
a36f24765520 class: Parser Claus Gittinger <cg@exept.de> parents: 3298 diff changeset	6856	positionOfPeriod := lastArg receiver positionToInsertPeriodForStatementSeparation
a36f24765520 class: Parser Claus Gittinger <cg@exept.de> parents: 3298 diff changeset	6857	].
a36f24765520 class: Parser Claus Gittinger <cg@exept.de> parents: 3298 diff changeset	6858	].
a36f24765520 class: Parser Claus Gittinger <cg@exept.de> parents: 3298 diff changeset	6859	].
a36f24765520 class: Parser Claus Gittinger <cg@exept.de> parents: 3298 diff changeset	6860	positionOfPeriod notNil ifTrue:[
a36f24765520 class: Parser Claus Gittinger <cg@exept.de> parents: 3298 diff changeset	6861	PossibleCorrectionsQuery answer:{ CorrectByInsertingPeriod new positionOfPeriod:positionOfPeriod} do:[
a36f24765520 class: Parser Claus Gittinger <cg@exept.de> parents: 3298 diff changeset	6862	\|fix\|
a36f24765520 class: Parser Claus Gittinger <cg@exept.de> parents: 3298 diff changeset	6863
a36f24765520 class: Parser Claus Gittinger <cg@exept.de> parents: 3298 diff changeset	6864	fix := self
a36f24765520 class: Parser Claus Gittinger <cg@exept.de> parents: 3298 diff changeset	6865	correctableWarning:('":=" unexpected. Probably missing "." in previous expression.')
a36f24765520 class: Parser Claus Gittinger <cg@exept.de> parents: 3298 diff changeset	6866	position:tokenPosition to:tokenPosition+token size-1.
a36f24765520 class: Parser Claus Gittinger <cg@exept.de> parents: 3298 diff changeset	6867
a36f24765520 class: Parser Claus Gittinger <cg@exept.de> parents: 3298 diff changeset	6868	(fix isBehavior or:[fix isKindOf:Correction]) ifTrue:[
a36f24765520 class: Parser Claus Gittinger <cg@exept.de> parents: 3298 diff changeset	6869	self correctWith:fix from:tokenPosition to:tokenPosition+token size-1.
a36f24765520 class: Parser Claus Gittinger <cg@exept.de> parents: 3298 diff changeset	6870	].
a36f24765520 class: Parser Claus Gittinger <cg@exept.de> parents: 3298 diff changeset	6871	self breakPoint:#cg.
a36f24765520 class: Parser Claus Gittinger <cg@exept.de> parents: 3298 diff changeset	6872	fix == #Error ifTrue:[
a36f24765520 class: Parser Claus Gittinger <cg@exept.de> parents: 3298 diff changeset	6873	^ #Error
a36f24765520 class: Parser Claus Gittinger <cg@exept.de> parents: 3298 diff changeset	6874	]
a36f24765520 class: Parser Claus Gittinger <cg@exept.de> parents: 3298 diff changeset	6875	]
a36f24765520 class: Parser Claus Gittinger <cg@exept.de> parents: 3298 diff changeset	6876	]
a36f24765520 class: Parser Claus Gittinger <cg@exept.de> parents: 3298 diff changeset	6877	].
a36f24765520 class: Parser Claus Gittinger <cg@exept.de> parents: 3298 diff changeset	6878	].
a36f24765520 class: Parser Claus Gittinger <cg@exept.de> parents: 3298 diff changeset	6879
a36f24765520 class: Parser Claus Gittinger <cg@exept.de> parents: 3298 diff changeset	6880	^ expr
1328 af0a47799078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1327 diff changeset	6881	!
af0a47799078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1327 diff changeset	6882
af0a47799078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1327 diff changeset	6883	keywordExpressionFor:receiverArg
af0a47799078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1327 diff changeset	6884	"parse a keyword-expression; return a node-tree, nil or #Error.
af0a47799078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1327 diff changeset	6885
af0a47799078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1327 diff changeset	6886	keywordExpression ::= binaryexpression
3289 81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	6887	\| { KEYWORD-PART binaryExpression }
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	6888	"
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	6889
3294 67a0a812ec4f Workaround in Parser>>#keywordExpressionFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3293 diff changeset	6890	\|expr receiver sel selChecked arg args posR1 posR2 pos1 pos2 lno selectorPartPositions\|
1328 af0a47799078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1327 diff changeset	6891
af0a47799078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1327 diff changeset	6892	receiver := receiverArg.
af0a47799078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1327 diff changeset	6893	posR1 := tokenPosition.
1531 47f714bc1981 squeak extension: c/java style arguments Claus Gittinger <cg@exept.de> parents: 1525 diff changeset	6894	(tokenType == #Keyword) ifFalse:[^ receiver].
47f714bc1981 squeak extension: c/java style arguments Claus Gittinger <cg@exept.de> parents: 1525 diff changeset	6895
47f714bc1981 squeak extension: c/java style arguments Claus Gittinger <cg@exept.de> parents: 1525 diff changeset	6896	pos1 := posR2 := tokenPosition.
47f714bc1981 squeak extension: c/java style arguments Claus Gittinger <cg@exept.de> parents: 1525 diff changeset	6897	pos2 := tokenPosition + tokenName size - 1.
3289 81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	6898	selectorPartPositions := OrderedCollection with:(pos1 to:pos2).
1531 47f714bc1981 squeak extension: c/java style arguments Claus Gittinger <cg@exept.de> parents: 1525 diff changeset	6899	sel := tokenName.
47f714bc1981 squeak extension: c/java style arguments Claus Gittinger <cg@exept.de> parents: 1525 diff changeset	6900	lno := tokenLineNr.
47f714bc1981 squeak extension: c/java style arguments Claus Gittinger <cg@exept.de> parents: 1525 diff changeset	6901	self nextToken.
47f714bc1981 squeak extension: c/java style arguments Claus Gittinger <cg@exept.de> parents: 1525 diff changeset	6902	arg := self binaryExpression.
47f714bc1981 squeak extension: c/java style arguments Claus Gittinger <cg@exept.de> parents: 1525 diff changeset	6903	(arg == #Error) ifTrue:[^ #Error].
47f714bc1981 squeak extension: c/java style arguments Claus Gittinger <cg@exept.de> parents: 1525 diff changeset	6904	args := Array with:arg.
47f714bc1981 squeak extension: c/java style arguments Claus Gittinger <cg@exept.de> parents: 1525 diff changeset	6905	[tokenType == #Keyword] whileTrue:[
3289 81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	6906	sel := sel , tokenName.
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	6907	pos2 := tokenPosition + tokenName size - 1.
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	6908	selectorPartPositions add:(tokenPosition to:pos2).
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	6909	self nextToken.
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	6910	arg := self binaryExpression.
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	6911	(arg == #Error) ifTrue:[^ #Error].
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	6912	args := args copyWith:arg.
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	6913	].
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	6914
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	6915	selectorPartPositions do:[:p \|
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	6916	self markSelector:sel from:p start to:p stop receiverNode:receiver.
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	6917	].
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	6918
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	6919	"/ need this before, so receiver has a parent (needed by correction)
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	6920	expr := MessageNode receiver:receiver selector:sel args:args fold:foldConstants.
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	6921	expr selectorPartPositions:selectorPartPositions.
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	6922
3294 67a0a812ec4f Workaround in Parser>>#keywordExpressionFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3293 diff changeset	6923	selChecked := self selectorCheck:sel for:receiver positions:selectorPartPositions.
1531 47f714bc1981 squeak extension: c/java style arguments Claus Gittinger <cg@exept.de> parents: 1525 diff changeset	6924
1987 9e2e24397b1f Do no treat subclass creation messages to undefined classes as error when filing in. Stefan Vogel <sv@exept.de> parents: 1985 diff changeset	6925	ignoreWarnings ifFalse:[
3289 81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	6926	(Class definitionSelectors includes:sel) ifTrue:[
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	6927	(receiver isVariable and:[receiver isUndeclared]) ifTrue:[
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	6928	"this is not an error - the undefined class may be loaded after this code!!"
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	6929	self warning:('as yet undefined superclass: ' , receiver name) position:pos1 to:pos2.
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	6930	].
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	6931	].
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	6932	].
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	6933
1531 47f714bc1981 squeak extension: c/java style arguments Claus Gittinger <cg@exept.de> parents: 1525 diff changeset	6934	expr isErrorNode ifTrue:[
3289 81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	6935	self parseError:(expr errorString) position:pos1 to:pos2.
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	6936	errorFlag := false. "ok, user wants it - so he'll get it"
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	6937	expr := MessageNode receiver:receiver selector:sel args:args fold:nil.
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	6938	].
3294 67a0a812ec4f Workaround in Parser>>#keywordExpressionFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3293 diff changeset	6939
67a0a812ec4f Workaround in Parser>>#keywordExpressionFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3293 diff changeset	6940	sel ~~ selChecked ifTrue:[
67a0a812ec4f Workaround in Parser>>#keywordExpressionFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3293 diff changeset	6941	expr args size ~~ args size ifTrue:[
67a0a812ec4f Workaround in Parser>>#keywordExpressionFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3293 diff changeset	6942	self parseError:'Parser: selector botch (message folded?'.
67a0a812ec4f Workaround in Parser>>#keywordExpressionFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3293 diff changeset	6943	].
67a0a812ec4f Workaround in Parser>>#keywordExpressionFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3293 diff changeset	6944	expr selector:sel. "/ in case it was changed in the selectorCheck.
67a0a812ec4f Workaround in Parser>>#keywordExpressionFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3293 diff changeset	6945	].
1531 47f714bc1981 squeak extension: c/java style arguments Claus Gittinger <cg@exept.de> parents: 1525 diff changeset	6946	expr lineNumber:lno.
2788 0282ad201349 refactored checkPlausibilityOf:from:to: Claus Gittinger <cg@exept.de> parents: 2765 diff changeset	6947	self checkPlausibilityOf:expr from:pos1 to:pos2.
3289 81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	6948
2947 38208aab9400 class definition Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	6949	"/ parseForCode ifFalse:[
3289 81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	6950	self rememberSelectorUsed:sel receiver:receiver args:args.
2947 38208aab9400 class definition Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	6951	"/ ].
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6952
1193 c441d3b202e5 check bad super message Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	6953	"/ (contextToEvaluateIn isNil and:[selfValue isNil]) ifTrue:[ "/ do not check this for doits
c441d3b202e5 check bad super message Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	6954	"/ receiver isSuper ifTrue:[
c441d3b202e5 check bad super message Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	6955	"/ sel ~= selector ifTrue:[
c441d3b202e5 check bad super message Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	6956	"/ self warnCommonMistake:'possible bad super message (selector should be same as in current method) ?'
c441d3b202e5 check bad super message Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	6957	"/ position:posR1 to:posR2-1
c441d3b202e5 check bad super message Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	6958	"/ ].
c441d3b202e5 check bad super message Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	6959	"/ ].
c441d3b202e5 check bad super message Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	6960	"/ ].
c441d3b202e5 check bad super message Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	6961	"/
2274 eac570b08474 comment/format in: #keywordExpressionFor: Claus Gittinger <cg@exept.de> parents: 2272 diff changeset	6962
2356 db41cf4d0ed7 added: #messageNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2353 diff changeset	6963	self isSyntaxHighlighter ifTrue:[
3289 81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	6964	"/ look for true ifTrue / false ifFalse and mark as comment
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	6965	self markUnreachableCodeAsCommentIn:expr.
2356 db41cf4d0ed7 added: #messageNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2353 diff changeset	6966	].
db41cf4d0ed7 added: #messageNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2353 diff changeset	6967
db41cf4d0ed7 added: #messageNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2353 diff changeset	6968	^ self messageNodeRewriteHookFor:expr.
db41cf4d0ed7 added: #messageNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2353 diff changeset	6969
2788 0282ad201349 refactored checkPlausibilityOf:from:to: Claus Gittinger <cg@exept.de> parents: 2765 diff changeset	6970	"Modified: / 19-01-2012 / 10:44:42 / cg"
3294 67a0a812ec4f Workaround in Parser>>#keywordExpressionFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3293 diff changeset	6971	"Modified: / 27-08-2013 / 10:43:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6972	!
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	6973
2143 ce63c9486614 * empty log message * Claus Gittinger <cg@exept.de> parents: 2136 diff changeset	6974	literalInlineObjectFor:namesAndValues
2194 46cb5c8810b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 2192 diff changeset	6975	\|class instance names values inlineObjectsAreReadonly\|
46cb5c8810b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 2192 diff changeset	6976
46cb5c8810b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 2192 diff changeset	6977	inlineObjectsAreReadonly := true.
2143 ce63c9486614 * empty log message * Claus Gittinger <cg@exept.de> parents: 2136 diff changeset	6978
ce63c9486614 * empty log message * Claus Gittinger <cg@exept.de> parents: 2136 diff changeset	6979	names := namesAndValues collect:[:each \| each key].
ce63c9486614 * empty log message * Claus Gittinger <cg@exept.de> parents: 2136 diff changeset	6980	values := namesAndValues collect:[:each \| each value].
ce63c9486614 * empty log message * Claus Gittinger <cg@exept.de> parents: 2136 diff changeset	6981
2194 46cb5c8810b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 2192 diff changeset	6982	class := InlineObjectClassDescription new.
2143 ce63c9486614 * empty log message * Claus Gittinger <cg@exept.de> parents: 2136 diff changeset	6983	class setSuperclass: InlineObject.
ce63c9486614 * empty log message * Claus Gittinger <cg@exept.de> parents: 2136 diff changeset	6984	class setInstanceVariableString:(names asStringWith:Character space).
ce63c9486614 * empty log message * Claus Gittinger <cg@exept.de> parents: 2136 diff changeset	6985	class instSize: names size.
ce63c9486614 * empty log message * Claus Gittinger <cg@exept.de> parents: 2136 diff changeset	6986
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	6987	names keysAndValuesDo:[:idx :instVarName \|
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6988	idx <= InlineObjectPrototype instSize ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6989	class basicAddSelector:(instVarName asSymbol) withMethod:(InlineObjectPrototype compiledMethodAt:('i%1' bindWith:idx) asSymbol).
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6990	inlineObjectsAreReadonly ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6991	class basicAddSelector:((instVarName,':') asSymbol) withMethod:(InlineObjectPrototype compiledMethodAt:('i%1:' bindWith:idx) asSymbol).
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6992	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6993	] ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6994	Class withoutUpdatingChangesDo:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6995	Compiler compile:('%1 ^%1' bindWith:instVarName) forClass:class.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6996	inlineObjectsAreReadonly ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6997	Compiler compile:('%1:something %1 := something' bindWith:instVarName) forClass:class.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6998	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	6999	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	7000	].
2143 ce63c9486614 * empty log message * Claus Gittinger <cg@exept.de> parents: 2136 diff changeset	7001	].
ce63c9486614 * empty log message * Claus Gittinger <cg@exept.de> parents: 2136 diff changeset	7002
ce63c9486614 * empty log message * Claus Gittinger <cg@exept.de> parents: 2136 diff changeset	7003	instance := class new.
ce63c9486614 * empty log message * Claus Gittinger <cg@exept.de> parents: 2136 diff changeset	7004	1 to:names size do:[:idx \| instance instVarAt:idx put:(values at:idx) ].
ce63c9486614 * empty log message * Claus Gittinger <cg@exept.de> parents: 2136 diff changeset	7005	^ instance
ce63c9486614 * empty log message * Claus Gittinger <cg@exept.de> parents: 2136 diff changeset	7006	!
ce63c9486614 * empty log message * Claus Gittinger <cg@exept.de> parents: 2136 diff changeset	7007
0 7ad01559b262 Initial revision claus parents: diff changeset	7008	primary
1028 cbdce68d87f6 fixed qualifiedName parsing Claus Gittinger <cg@exept.de> parents: 1025 diff changeset	7009	"parse a primary-expression; return a node-tree, nil or #Error.
cbdce68d87f6 fixed qualifiedName parsing Claus Gittinger <cg@exept.de> parents: 1025 diff changeset	7010	This also cares for namespace-access-pathes."
0 7ad01559b262 Initial revision claus parents: diff changeset	7011
1855 61936f01108e error messages shortened and cleanup Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	7012	\|val pos node eMsg endPos\|
924 6214afc7e312 qualifiedName support Claus Gittinger <cg@exept.de> parents: 921 diff changeset	7013
44 74ddc944c27f * empty log message * claus parents: 35 diff changeset	7014	(tokenType == #Self) ifTrue:[
3176 fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7015	^ self primary_self.
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7016	].
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7017
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7018	pos := tokenPosition.
0 7ad01559b262 Initial revision claus parents: diff changeset	7019	(tokenType == #Identifier) ifTrue:[
3176 fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7020	"
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7021	must check for variable first, to be backward compatible
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7022	with other smalltalks.
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7023	"
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7024	tokenName = 'here' ifTrue:[
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7025	(self variableOrError:tokenName) == #Error ifTrue:[
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7026	self warnSTXHereExtensionUsedAt:pos.
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7027	tokenType := #Here.
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7028	^ self primary_here.
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7029	]
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7030	].
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7031	node := self primary_identifier.
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7032	node isVariable ifTrue:[
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7033	^ self variableReadRewriteHookFor:node
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7034	].
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7035	^ node.
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	7036	].
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	7037
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	7038	((tokenType == #Integer)
120 13f0112a469a . claus parents: 117 diff changeset	7039	or:[(tokenType == #String)
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	7040	or:[(tokenType == #Character)
44 74ddc944c27f * empty log message * claus parents: 35 diff changeset	7041	or:[(tokenType == #Float)
1657 451328cc3264 ESSymbols Claus Gittinger <cg@exept.de> parents: 1654 diff changeset	7042	or:[(tokenType == #Symbol)
451328cc3264 ESSymbols Claus Gittinger <cg@exept.de> parents: 1654 diff changeset	7043	or:[(tokenType == #ESSymbol)]]]]]) ifTrue:[
3176 fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7044	^ self primary_simpleLiteral.
0 7ad01559b262 Initial revision claus parents: diff changeset	7045	].
924 6214afc7e312 qualifiedName support Claus Gittinger <cg@exept.de> parents: 921 diff changeset	7046
1347 6168b045f2ef preps for fixedPoint literals Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	7047	(tokenType == #FixedPoint) ifTrue:[
3176 fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7048	parserFlags allowFixedPointLiterals == true ifFalse:[
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7049	self parseError:'non-Standard literal: FixedPoint. Please enable in settings.' position:pos to:pos+2.
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7050	^ #Error
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7051	].
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7052	^ self primary_simpleLiteral.
1347 6168b045f2ef preps for fixedPoint literals Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	7053	].
0 7ad01559b262 Initial revision claus parents: diff changeset	7054	(tokenType == #Nil) ifTrue:[
3176 fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7055	^ self primary_nil.
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7056	].
0 7ad01559b262 Initial revision claus parents: diff changeset	7057	(tokenType == #True) ifTrue:[
3176 fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7058	^ self primary_true
0 7ad01559b262 Initial revision claus parents: diff changeset	7059	].
7ad01559b262 Initial revision claus parents: diff changeset	7060	(tokenType == #False) ifTrue:[
3176 fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7061	^ self primary_false
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7062	].
0 7ad01559b262 Initial revision claus parents: diff changeset	7063	(tokenType == #Super) ifTrue:[
3176 fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7064	^ self primary_super.
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7065	].
924 6214afc7e312 qualifiedName support Claus Gittinger <cg@exept.de> parents: 921 diff changeset	7066
0 7ad01559b262 Initial revision claus parents: diff changeset	7067	(tokenType == #ThisContext) ifTrue:[
3176 fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7068	^ self primary_thisContext
0 7ad01559b262 Initial revision claus parents: diff changeset	7069	].
924 6214afc7e312 qualifiedName support Claus Gittinger <cg@exept.de> parents: 921 diff changeset	7070
0 7ad01559b262 Initial revision claus parents: diff changeset	7071	(tokenType == #HashLeftParen) ifTrue:[
3176 fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7072	self nextToken.
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7073	self inArrayLiteral:true.
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7074	ParseError handle:[:ex \|
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7075	self inArrayLiteral:false.
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7076	^ #Error
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7077	] do:[
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7078	val := self array.
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7079	].
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7080	self inArrayLiteral:false.
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7081	self nextToken.
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7082	(self noAssignmentAllowed:'Assignment to a constant' at:pos) ifFalse:[
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7083	^ #Error
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7084	].
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7085	^ ConstantNode type:#Array value:val from: pos to: tokenLastEndPosition.
0 7ad01559b262 Initial revision claus parents: diff changeset	7086	].
924 6214afc7e312 qualifiedName support Claus Gittinger <cg@exept.de> parents: 921 diff changeset	7087
6214afc7e312 qualifiedName support Claus Gittinger <cg@exept.de> parents: 921 diff changeset	7088	(tokenType == #HashLeftBrace) ifTrue:[
3176 fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7089	parserFlags allowQualifiedNames == true ifFalse:[
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7090	self parseError:'non-Standard VisualWorks extension: #{..}. Please enable in settings.' position:pos to:tokenPosition.
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7091	].
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7092	val := self qualifiedNameOrInlineObject.
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7093	^ val.
924 6214afc7e312 qualifiedName support Claus Gittinger <cg@exept.de> parents: 921 diff changeset	7094	].
6214afc7e312 qualifiedName support Claus Gittinger <cg@exept.de> parents: 921 diff changeset	7095
0 7ad01559b262 Initial revision claus parents: diff changeset	7096	(tokenType == #HashLeftBrack) ifTrue:[
3176 fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7097	self nextToken.
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7098	val := self byteArray.
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7099	self nextToken.
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7100	(self noAssignmentAllowed:'Assignment to a constant' at:pos) ifFalse:[
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7101	^ #Error
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7102	].
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7103	^ ConstantNode type:#ByteArray value:val from: pos to: tokenLastEndPosition.
0 7ad01559b262 Initial revision claus parents: diff changeset	7104	].
432 2b7b75f1ee12 * empty log message * Claus Gittinger <cg@exept.de> parents: 429 diff changeset	7105
0 7ad01559b262 Initial revision claus parents: diff changeset	7106	(tokenType == $() ifTrue:[
3176 fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7107	parenthesisLevel := parenthesisLevel + 1.
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7108	self markParenthesisAt:tokenPosition.
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7109	^ self primary_expression.
0 7ad01559b262 Initial revision claus parents: diff changeset	7110	].
924 6214afc7e312 qualifiedName support Claus Gittinger <cg@exept.de> parents: 921 diff changeset	7111
0 7ad01559b262 Initial revision claus parents: diff changeset	7112	(tokenType == $[ ) ifTrue:[
3176 fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7113	self markBracketAt:tokenPosition.
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7114	val := self block.
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7115	self nextToken.
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7116	(self noAssignmentAllowed:'invalid assignment' at:pos) ifFalse:[
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7117	^ #Error
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7118	].
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7119	^ val
0 7ad01559b262 Initial revision claus parents: diff changeset	7120	].
19 84a1ddf215a5 * empty log message * claus parents: 15 diff changeset	7121
1262 85c57c7eee77 experimental: refs Claus Gittinger <cg@exept.de> parents: 1260 diff changeset	7122	"/ EXPERIMENTAL - may be in next release
1636 98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	7123	parserFlags allowVariableReferences == true ifTrue:[
3176 fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7124	((tokenType == #BinaryOperator) and:[token = '&']) ifTrue:[
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7125	self nextToken.
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7126	node := self primary_identifier.
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7127	"/ generate a Reference
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7128	^ self makeReferenceFor:node
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7129	].
1295 8d3e193bb30d experimental lazyValues Claus Gittinger <cg@exept.de> parents: 1286 diff changeset	7130	].
8d3e193bb30d experimental lazyValues Claus Gittinger <cg@exept.de> parents: 1286 diff changeset	7131
894 943b6d0d26b3 changes to support loading squeak code containing computed Claus Gittinger <cg@exept.de> parents: 887 diff changeset	7132	(tokenType == ${ ) ifTrue:[
3176 fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7133	parserFlags allowSqueakExtensions == true ifFalse:[
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7134	didWarnAboutSqueakExtensions~~ true ifTrue:[
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7135	didWarnAboutSqueakExtensions := true.
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7136	"/ self parseError:'non-Standard Squeak extension: Brace Computed Array. Enable in settings.' position:pos to:tokenPosition.
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7137	self
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7138	warning:('non-Standard Squeak extension: Brace Computed Array. Enable in settings.')
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7139	doNotShowAgainAction:[ ParserFlags allowSqueakExtensions:true ]
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7140	position:pos to:tokenPosition.
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7141
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7142	"/ errorFlag := false.
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7143	].
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7144	].
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7145	^ self primary_squeakComputedArray.
894 943b6d0d26b3 changes to support loading squeak code containing computed Claus Gittinger <cg@exept.de> parents: 887 diff changeset	7146	].
943b6d0d26b3 changes to support loading squeak code containing computed Claus Gittinger <cg@exept.de> parents: 887 diff changeset	7147
502 410af1c0df1d parse primitive-primary expression Claus Gittinger <cg@exept.de> parents: 501 diff changeset	7148	(tokenType == #Primitive) ifTrue:[
3176 fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7149	node := PrimitiveNode code:tokenValue.
3267 2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	7150	node startPosition: tokenPosition endPosition: source position + 1.
3176 fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7151	self nextToken.
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7152	hasNonOptionalPrimitiveCode := true.
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7153	hasPrimitiveCode := true.
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7154	^ node
502 410af1c0df1d parse primitive-primary expression Claus Gittinger <cg@exept.de> parents: 501 diff changeset	7155	].
410af1c0df1d parse primitive-primary expression Claus Gittinger <cg@exept.de> parents: 501 diff changeset	7156
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7157	tokenType == #HashHashLeftParen ifTrue:[
3176 fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7158	self nextToken.
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7159	parserFlags allowDolphinExtensions == true ifFalse:[
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7160	self parseError:'non-Standard Dolphin extension: ##(..). Enable in settings.' position:pos to:tokenPosition.
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7161	^ #Error
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7162	].
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7163	^ self primary_dolphinComputedLiteral.
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7164	].
1299 6c182cd87b6c * empty log message * Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	7165	tokenType == #ExclaLeftBrack ifTrue:[
3176 fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7166	self nextToken.
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7167	parserFlags allowLazyValueExtension == true ifFalse:[
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7168	self parseError:'non-Standard LazyValue extension. Enable in classVariable.' position:pos to:tokenPosition.
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7169	^ #Error
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7170	].
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7171	^ self primary_lazyValue.
1295 8d3e193bb30d experimental lazyValues Claus Gittinger <cg@exept.de> parents: 1286 diff changeset	7172	].
8d3e193bb30d experimental lazyValues Claus Gittinger <cg@exept.de> parents: 1286 diff changeset	7173	tokenType == #HashHash ifTrue:[
3176 fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7174	self warnPossibleIncompatibility:'''##'' might be interpreted differently in other smalltalk systems' position:pos to:tokenPosition.
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7175	tokenType := #Symbol.
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7176	token := tokenValue := tokenName := '#'.
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7177	^ self primary_simpleLiteral.
1295 8d3e193bb30d experimental lazyValues Claus Gittinger <cg@exept.de> parents: 1286 diff changeset	7178	].
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7179
1636 98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	7180	parserFlags allowSqueakExtensions == true ifTrue:[
3176 fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7181	"allow # (element...) - i.e. with a separator inbetween"
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7182	((tokenType == #BinaryOperator) and:[token = '#']) ifTrue:[
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7183	self nextToken.
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7184	(tokenType == $( ) ifFalse:[
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7185	self parseError:'''('' expected after #.' position:pos to:tokenPosition.
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7186	^ #Error.
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7187	].
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7188	self nextToken.
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7189	self inArrayLiteral:true.
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7190	ParseError handle:[:ex \|
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7191	self inArrayLiteral:false.
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7192	^ #Error
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7193	] do:[
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7194	val := self array.
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7195	].
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7196	self inArrayLiteral:false.
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7197	self nextToken.
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7198	(self noAssignmentAllowed:'Assignment to a constant' at:pos) ifFalse:[
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7199	^ #Error
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7200	].
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7201	^ ConstantNode type:#Array value:val from: pos to: tokenLastEndPosition.
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7202	].
1538 c55990043eb6 squeak allow space between '#" and '(' Claus Gittinger <cg@exept.de> parents: 1537 diff changeset	7203	].
c55990043eb6 squeak allow space between '#" and '(' Claus Gittinger <cg@exept.de> parents: 1537 diff changeset	7204
1537 de5fc45c2f10 squeak allows whiteSpace between sign and number Claus Gittinger <cg@exept.de> parents: 1535 diff changeset	7205	((tokenType == #BinaryOperator) and:[token = '-']) ifTrue:[
3176 fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7206	self nextToken.
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7207	((tokenType == #Integer)
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7208	or:[(tokenType == #Float)]) ifFalse:[
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7209	self parseError:'number expected after sign.' position:pos to:tokenPosition.
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7210	^ #Error.
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7211	].
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7212	((parserFlags allowSqueakExtensions == true)
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7213	or:[parserFlags allowSTVExtensions == true]) ifFalse:[
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7214	self parseError:'non-Standard Squeak (or ST/V) extension: space between sign and number. Enable in settings.' position:pos to:tokenPosition.
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7215	errorFlag := false.
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7216	].
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7217
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7218	node := self primary_simpleLiteral.
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7219	node isConstant ifFalse:[
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7220	self parseError:'number expected after sign.' position:pos to:tokenPosition.
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7221	^ #Error.
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7222	].
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7223	^ ConstantNode type:(node type) value:(node value negated) from: node startPosition to: node endPosition.
1537 de5fc45c2f10 squeak allows whiteSpace between sign and number Claus Gittinger <cg@exept.de> parents: 1535 diff changeset	7224	].
de5fc45c2f10 squeak allows whiteSpace between sign and number Claus Gittinger <cg@exept.de> parents: 1535 diff changeset	7225
0 7ad01559b262 Initial revision claus parents: diff changeset	7226	(tokenType == #Error) ifTrue:[^ #Error].
44 74ddc944c27f * empty log message * claus parents: 35 diff changeset	7227	tokenType isCharacter ifTrue:[
3176 fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7228	eMsg := '"',tokenType printString,'" unexpected in primary.'.
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7229	endPos := tokenPosition.
0 7ad01559b262 Initial revision claus parents: diff changeset	7230	] ifFalse:[
3176 fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7231	(#(BinaryOperator Keyword) includes:tokenType) ifTrue:[
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7232	eMsg := tokenType printString,' ("' , tokenName , '") ',' unexpected in primary. (missing receiver ?)'
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7233	] ifFalse:[
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7234	(#(Integer Float) includes:tokenType) ifTrue:[
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7235	eMsg := tokenType printString,' (' , tokenValue , ') ',' unexpected in primary. (missing receiver ?)'
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7236	] ifFalse:[
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7237	eMsg := '"',(token ? ''),'" (',tokenType printString,') unexpected in primary.'
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7238	]
fecb6e599d09 class: Parser Claus Gittinger <cg@exept.de> parents: 3171 diff changeset	7239	].
3267 2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	7240	endPos :=source position.
1855 61936f01108e error messages shortened and cleanup Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	7241	].
61936f01108e error messages shortened and cleanup Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	7242	self syntaxError:eMsg position:tokenPosition to:endPos.
0 7ad01559b262 Initial revision claus parents: diff changeset	7243	^ #Error
120 13f0112a469a . claus parents: 117 diff changeset	7244
1855 61936f01108e error messages shortened and cleanup Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	7245	"Created: / 13-09-1995 / 12:50:50 / claus"
2621 d4eb080f1693 start/end position fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2619 diff changeset	7246	"Modified: / 01-08-2011 / 12:04:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2889 3139b6dd1220 changed:12 methods Claus Gittinger <cg@exept.de> parents: 2880 diff changeset	7247	"Modified: / 26-07-2012 / 11:35:46 / cg"
0 7ad01559b262 Initial revision claus parents: diff changeset	7248	!
7ad01559b262 Initial revision claus parents: diff changeset	7249
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7250	primary_dolphinComputedLiteral
1273 3a9541cd8fef dolphin compile-time constant strings Claus Gittinger <cg@exept.de> parents: 1272 diff changeset	7251	"parse a dolphin computed literal; return a node-tree, or raise an Error.
3a9541cd8fef dolphin compile-time constant strings Claus Gittinger <cg@exept.de> parents: 1272 diff changeset	7252	In dolphin, these are written as: ##( expression )
3a9541cd8fef dolphin compile-time constant strings Claus Gittinger <cg@exept.de> parents: 1272 diff changeset	7253	and create a literal constant for the expressions value.
1274 7d4a3391a81a comments Claus Gittinger <cg@exept.de> parents: 1273 diff changeset	7254	Right now, only a subset is supported - Strings, ByteArrays and Characters.
2713 8743af4e0968 added: Claus Gittinger <cg@exept.de> parents: 2699 diff changeset	7255	WARNING: this is only supported to allow file-in of dolphin code.
2224 07830bba4407 comment/format in: #primary_dolphinComputedLiteral Claus Gittinger <cg@exept.de> parents: 2222 diff changeset	7256	Since stc cannot handle this (at the moment), you should rewrite the code
07830bba4407 comment/format in: #primary_dolphinComputedLiteral Claus Gittinger <cg@exept.de> parents: 2222 diff changeset	7257	if you ever plan to stc-compile it into a shared library.
07830bba4407 comment/format in: #primary_dolphinComputedLiteral Claus Gittinger <cg@exept.de> parents: 2222 diff changeset	7258	The question is still: how should stc ever be able to do this, as it cannot execute
07830bba4407 comment/format in: #primary_dolphinComputedLiteral Claus Gittinger <cg@exept.de> parents: 2222 diff changeset	7259	smalltalk code; it could generate code to execute it at initialization time of the
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	7260	generated code, but then, it is no longer a compile-time constant
2713 8743af4e0968 added: Claus Gittinger <cg@exept.de> parents: 2699 diff changeset	7261	(for example, generating a compilation-Date constant is then not possible...)"
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7262
2614 7fb9c052438e More fixes to keep node position in the source. Not yet fully implemented Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2567 diff changeset	7263	\|pos pos2 expr val\|
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7264
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7265	pos := tokenPosition.
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7266
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7267	expr := self expression.
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7268
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7269	tokenType ~~ $) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	7270	self parseError:''')'' expected' position:tokenPosition.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	7271	^ #Error
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7272	].
2614 7fb9c052438e More fixes to keep node position in the source. Not yet fully implemented Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2567 diff changeset	7273	pos2 := tokenPosition.
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7274	self nextToken.
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7275
2889 3139b6dd1220 changed:12 methods Claus Gittinger <cg@exept.de> parents: 2880 diff changeset	7276	(self noAssignmentAllowed:'Invalid assignment to a computed constant' at:pos) ifFalse:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	7277	^ #Error
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7278	].
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7279
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7280	val := expr evaluate.
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7281
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7282	val isLiteral ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	7283	val isString ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	7284	^ ConstantNode type:#String value:val from: pos to: pos2
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	7285	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	7286	val isByteArray ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	7287	^ ConstantNode type:#ByteArray value:val from: pos to: pos2
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	7288	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	7289	val isCharacter ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	7290	^ ConstantNode type:#Character value:val from: pos to: pos2
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	7291	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	7292	val isInteger ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	7293	^ ConstantNode type:#Integer value:val from: pos to: pos2
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	7294	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	7295	val isLimitedPrecisionReal ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	7296	^ ConstantNode type:#Float value:val from: pos to: pos2
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	7297	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	7298	val isArray ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	7299	^ ConstantNode type:#Array value:val from: pos to: pos2
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	7300	].
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7301	] ifFalse:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	7302	self parseError:'must be representable as a literal (for now)' position:pos.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	7303	^ #Error
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7304	].
2224 07830bba4407 comment/format in: #primary_dolphinComputedLiteral Claus Gittinger <cg@exept.de> parents: 2222 diff changeset	7305
07830bba4407 comment/format in: #primary_dolphinComputedLiteral Claus Gittinger <cg@exept.de> parents: 2222 diff changeset	7306	self shouldImplement.
07830bba4407 comment/format in: #primary_dolphinComputedLiteral Claus Gittinger <cg@exept.de> parents: 2222 diff changeset	7307
07830bba4407 comment/format in: #primary_dolphinComputedLiteral Claus Gittinger <cg@exept.de> parents: 2222 diff changeset	7308	"
07830bba4407 comment/format in: #primary_dolphinComputedLiteral Claus Gittinger <cg@exept.de> parents: 2222 diff changeset	7309	ParserFlags allowDolphinExtensions:true.
2713 8743af4e0968 added: Claus Gittinger <cg@exept.de> parents: 2699 diff changeset	7310	Parser evaluate:' ##( 5 * 7) '.x
2224 07830bba4407 comment/format in: #primary_dolphinComputedLiteral Claus Gittinger <cg@exept.de> parents: 2222 diff changeset	7311	ParserFlags allowDolphinExtensions:false.
07830bba4407 comment/format in: #primary_dolphinComputedLiteral Claus Gittinger <cg@exept.de> parents: 2222 diff changeset	7312	"
07830bba4407 comment/format in: #primary_dolphinComputedLiteral Claus Gittinger <cg@exept.de> parents: 2222 diff changeset	7313
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7314	"/ "/ make it an array creation expression ...
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	7315	"/ expr := MessageNode
1309 f85561a7b90e preps for nonDeterministic and FD variables. Claus Gittinger <cg@exept.de> parents: 1306 diff changeset	7316	"/ receiver:(VariableNode globalNamed:#Array)
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7317	"/ selector:#new:
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7318	"/ arg:(ConstantNode type:#Integer value:(exprList size)).
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7319	"/
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7320	"/ exprList size == 0 ifTrue:[
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7321	"/ ^ expr.
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7322	"/ ].
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7323	"/ exprList keysAndValuesDo:[:idx :e \|
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7324	"/ expr := (idx == 1 ifTrue:[MessageNode] ifFalse:[CascadeNode])
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7325	"/ receiver:expr
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7326	"/ selector:#at:put:
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7327	"/ arg1:(ConstantNode type:#Integer value:idx)
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7328	"/ arg2:e
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7329	"/ fold:false.
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7330	"/ ].
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7331	"/ expr := CascadeNode
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7332	"/ receiver:expr
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7333	"/ selector:#yourself.
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7334	"/ ^ expr
2614 7fb9c052438e More fixes to keep node position in the source. Not yet fully implemented Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2567 diff changeset	7335
7fb9c052438e More fixes to keep node position in the source. Not yet fully implemented Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2567 diff changeset	7336	"Modified: / 27-07-2011 / 15:50:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2889 3139b6dd1220 changed:12 methods Claus Gittinger <cg@exept.de> parents: 2880 diff changeset	7337	"Modified: / 26-07-2012 / 11:36:07 / cg"
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7338	!
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7339
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7340	primary_expression
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7341	"parse a parentized expression primary; return a node-tree, or raise an Error."
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7342
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7343	\|pos val eMsg\|
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7344
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7345	pos := tokenPosition.
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7346
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7347	self nextToken.
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7348	val := self expression.
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7349	(val == #Error) ifTrue:[^ #Error].
1758 75ec68a356c2 * empty log message * Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	7350	(tokenType == $) ) ifFalse:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	7351	tokenType isCharacter ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	7352	eMsg := 'missing '')'' (i.e. ''' , tokenType asString , ''' unexpected)'.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	7353	] ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	7354	eMsg := 'missing '')'''.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	7355	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	7356	self syntaxError:eMsg withCRs position:pos to:tokenPosition.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	7357	^ #Error
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7358	].
1640 261459ccc704 emphasize parenthesis nesting Claus Gittinger <cg@exept.de> parents: 1638 diff changeset	7359	self markParenthesisAt:tokenPosition.
261459ccc704 emphasize parenthesis nesting Claus Gittinger <cg@exept.de> parents: 1638 diff changeset	7360	parenthesisLevel := parenthesisLevel - 1.
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7361	self nextToken.
2889 3139b6dd1220 changed:12 methods Claus Gittinger <cg@exept.de> parents: 2880 diff changeset	7362	(self noAssignmentAllowed:'Invalid assignment to an expression' at:pos) ifFalse:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	7363	^ #Error
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7364	].
1991 a5f7cd07dcb6 oops - parenthesized was written with typo Claus Gittinger <cg@exept.de> parents: 1987 diff changeset	7365	val parenthesized:true.
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7366	^ val
2889 3139b6dd1220 changed:12 methods Claus Gittinger <cg@exept.de> parents: 2880 diff changeset	7367
3139b6dd1220 changed:12 methods Claus Gittinger <cg@exept.de> parents: 2880 diff changeset	7368	"Modified: / 26-07-2012 / 11:36:42 / cg"
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7369	!
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7370
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7371	primary_false
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7372	"parse a false primary; return a node-tree, or raise an Error."
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7373
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7374	\|pos\|
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7375
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7376	pos := tokenPosition.
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7377
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7378	self nextToken.
2889 3139b6dd1220 changed:12 methods Claus Gittinger <cg@exept.de> parents: 2880 diff changeset	7379	(self noAssignmentAllowed:'Assignment to ''false'' would break Smalltalk' at:pos) ifFalse:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	7380	^ #Error
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7381	].
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7382	self markBooleanConstantFrom:pos to:pos+4.
2567 30fd2329c3bd - parse tree nodes are no longer shared Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2563 diff changeset	7383	^ ConstantNode type:#False value:false from: pos to: pos + 4
30fd2329c3bd - parse tree nodes are no longer shared Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2563 diff changeset	7384
30fd2329c3bd - parse tree nodes are no longer shared Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2563 diff changeset	7385	"Modified: / 19-07-2011 / 17:50:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2889 3139b6dd1220 changed:12 methods Claus Gittinger <cg@exept.de> parents: 2880 diff changeset	7386	"Modified: / 26-07-2012 / 11:37:22 / cg"
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7387	!
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7388
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7389	primary_here
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7390	"parse a here primary; return a node-tree, nil or #Error."
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7391
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7392	\|pos\|
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7393
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7394	pos := tokenPosition.
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7395
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7396	self nextToken.
2889 3139b6dd1220 changed:12 methods Claus Gittinger <cg@exept.de> parents: 2880 diff changeset	7397	(self noAssignmentAllowed:'Assignment to pseudo variable ''here''' at:pos) ifFalse:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	7398	^ #Error
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7399	].
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7400	classToCompileFor isNil ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	7401	self warning:'in which class are you ?' position:pos to:(pos + 3).
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7402	].
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7403	self markSelfFrom:pos to:pos+3.
2567 30fd2329c3bd - parse tree nodes are no longer shared Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2563 diff changeset	7404	^ (SuperNode value:selfValue inClass:classToCompileFor here:true)
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	7405	startPosition: pos endPosition: pos + 3;
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	7406	yourself
2567 30fd2329c3bd - parse tree nodes are no longer shared Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2563 diff changeset	7407
30fd2329c3bd - parse tree nodes are no longer shared Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2563 diff changeset	7408	"Modified: / 19-07-2011 / 17:51:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2889 3139b6dd1220 changed:12 methods Claus Gittinger <cg@exept.de> parents: 2880 diff changeset	7409	"Modified: / 26-07-2012 / 11:36:53 / cg"
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7410	!
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7411
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7412	primary_identifier
2686 622fad544c41 changed: #primary_identifier Claus Gittinger <cg@exept.de> parents: 2683 diff changeset	7413	"parse a primary starting with an identifier: either a variable or an assignment.
622fad544c41 changed: #primary_identifier Claus Gittinger <cg@exept.de> parents: 2683 diff changeset	7414	return a node-tree, or raise an Error."
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7415
1337 b558251f5e77 function call is now compiled into an #eval: message Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	7416	\|pos1 pos2 expr varName rawName var globlName nameSpace nameSpaceGlobal
1551 29f4971331f9 c-callout; ca parents: 1548 diff changeset	7417	t cls lnr node holder autoHow assignmentAllowed\|
1337 b558251f5e77 function call is now compiled into an #eval: message Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	7418
b558251f5e77 function call is now compiled into an #eval: message Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	7419	pos1 := tokenPosition.
b558251f5e77 function call is now compiled into an #eval: message Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	7420	pos2 := tokenPosition + tokenName size - 1.
b558251f5e77 function call is now compiled into an #eval: message Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	7421
b558251f5e77 function call is now compiled into an #eval: message Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	7422	varName := tokenName.
b558251f5e77 function call is now compiled into an #eval: message Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	7423
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	7424	(self isDoIt
2529 dcf7147b9db1 changed: #primary_identifier Claus Gittinger <cg@exept.de> parents: 2522 diff changeset	7425	and:[ currentBlock isNil
dcf7147b9db1 changed: #primary_identifier Claus Gittinger <cg@exept.de> parents: 2522 diff changeset	7426	and:[ requestor notNil
dcf7147b9db1 changed: #primary_identifier Claus Gittinger <cg@exept.de> parents: 2522 diff changeset	7427	and:[ (autoHow := requestor perform:#autoDefineVariables ifNotUnderstood:nil) notNil]]]) ifTrue:[
3183 2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7428	var := self variableOrError:varName.
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7429	self nextToken.
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7430	(var == #Error) ifTrue:[
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7431	((tokenType == $_) or:[tokenType == #':=']) ifTrue:[
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7432	autoHow == #workspace ifTrue:[
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7433	holder := Workspace addWorkspaceVariable:varName.
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7434	var := VariableNode type:#WorkspaceVariable holder:holder name:varName.
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7435	] ifFalse:[
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7436	holder := self addDoItTemporary:varName.
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7437	var := VariableNode type:#DoItTemporary holder:holder name:varName.
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7438	].
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7439	] ifFalse:[
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7440	var := self correctVariable:varName atPosition:pos1 to:pos2.
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7441	].
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7442	var startPosition: pos1 endPosition: pos2.
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7443	]
1337 b558251f5e77 function call is now compiled into an #eval: message Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	7444	] ifFalse:[
3183 2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7445	var := self variable.
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7446	self nextToken.
1337 b558251f5e77 function call is now compiled into an #eval: message Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	7447	].
b558251f5e77 function call is now compiled into an #eval: message Claus Gittinger <cg@exept.de> parents: 1336 diff changeset	7448
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7449	"/ errorFlag == true ifTrue:[self halt].
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7450	(var == #Error) ifTrue:[
3183 2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7451	errorFlag := true
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7452	].
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7453
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7454	(tokenType == #'::') ifTrue:[
3183 2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7455	globlName := rawName := varName.
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7456
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7457	"is it in a namespace ?"
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7458	nameSpace := self findNameSpaceWith:globlName.
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7459	nameSpace notNil ifTrue:[
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7460	globlName := nameSpace name , '::' , globlName
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7461	].
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7462
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7463	[tokenType == #'::'] whileTrue:[
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7464	nameSpace := globlName.
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7465
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7466	self nextToken.
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7467	(tokenType == #Identifier) ifTrue:[
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7468	self warnSTXNameSpaceUseAt:pos1.
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7469	varName := tokenName.
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7470
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7471	globlName := (nameSpace , '::' , varName).
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7472	rawName := (rawName , '::' , varName).
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7473
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7474	nameSpaceGlobal := Smalltalk at:nameSpace asSymbol ifAbsent:nil.
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7475	nameSpaceGlobal isNil ifTrue:[
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7476	warnedUnknownNamespaces isNil ifTrue:[
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7477	warnedUnknownNamespaces := Set new.
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7478	].
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7479	(warnedUnknownNamespaces includes:nameSpace) ifFalse:[
2150 a55391e93eb4 warning for non-existing namespace changed Claus Gittinger <cg@exept.de> parents: 2149 diff changeset	7480	"/ not needed; already warned.
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	7481	"/ "correctIt :=" requestor
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	7482	"/ correctableError:('Unknown nameSpace: "', nameSpace,'"')
2150 a55391e93eb4 warning for non-existing namespace changed Claus Gittinger <cg@exept.de> parents: 2149 diff changeset	7483	"/ position:pos1 to:tokenPosition-1 from:self.
a55391e93eb4 warning for non-existing namespace changed Claus Gittinger <cg@exept.de> parents: 2149 diff changeset	7484
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	7485	"/ self warning:('unknown nameSpace: ', nameSpace)
2150 a55391e93eb4 warning for non-existing namespace changed Claus Gittinger <cg@exept.de> parents: 2149 diff changeset	7486	"/ position:pos1 to:tokenPosition-1.
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7487	"/ self parseError:('unknown nameSpace: ', nameSpace) position:pos to:tokenPosition-1.
3183 2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7488	warnedUnknownNamespaces add:nameSpace.
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7489	]
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7490	] ifFalse:[
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7491	nameSpaceGlobal isNameSpace ifTrue:[
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7492	"/ for now: only Smalltalk is allowed
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7493	nameSpaceGlobal ~~ Smalltalk ifTrue:[
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7494	"/ self parseError:('(currently) the only valid nameSpace is `Smalltalk''') position:pos to:tokenPosition-1.
3183 2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7495	] ifFalse:[
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7496	globlName := varName
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7497	].
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7498	] ifFalse:[
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7499	nameSpaceGlobal isBehavior ifFalse:[
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7500	self parseError:('invalid nameSpace: ' , nameSpace) position:pos1 to:tokenPosition-1.
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7501	] ifTrue:[
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7502	nameSpaceGlobal isLoaded ifTrue:[
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7503	(nameSpaceGlobal privateClassesAt:varName asSymbol) isNil ifTrue:[
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7504	(Smalltalk at:rawName asSymbol) notNil ifTrue:[
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7505	self warning:('Possible name clash (global: ' , rawName , ' vs. private: ' , (nameSpace , '::', varName) , ') - assume globl.')
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7506	position:pos1 to:source position "tokenPosition-1".
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7507	globlName := rawName asSymbol.
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7508	] ifFalse:[
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7509	self warning:('no private class: ' , varName allBold , ' in class: ' , nameSpace)
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7510	position:pos1 to:source position "tokenPosition-1".
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	7511	"/ self parseError:('no private class: ' , name , ' in class: ' , nameSpace) position:pos to:tokenPosition-1.
3183 2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7512	]
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7513	] ifFalse:[
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7514	"/ reference to a private class
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7515	(classToCompileFor notNil and:[nameSpaceGlobal ~~ classToCompileFor theNonMetaclass]) ifTrue:[
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7516	self classToCompileFor notNil ifTrue:[
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7517	self isDoIt ifFalse:[
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7518	parserFlags warnAboutReferenceToPrivateClass ifTrue:[
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7519	self warning:('Referring to private class ''' , varName allBold , ''' here.')
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7520	doNotShowAgainAction:[ ParserFlags warnAboutReferenceToPrivateClass:false.
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7521	parserFlags warnAboutReferenceToPrivateClass:false. ]
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7522	position:pos1 to:source position " tokenPosition-1".
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7523	].
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7524	Tools::ToDoListBrowser notNil ifTrue:[
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7525	self
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7526	notifyTodo:('Referring to private class ''' , varName allBold , ''' here.') position:pos1
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7527	className:(self classToCompileFor name) selector:selector
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7528	severity:#warning priority:#medium
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7529	equalityParameter:nil
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7530	checkAction:nil.
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7531	].
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7532	].
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7533	].
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7534	]
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7535	].
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7536	]
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7537	]
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7538	].
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7539	].
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7540	pos2 := source position.
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7541	self nextToken.
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7542	].
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7543	var := VariableNode globalNamed:globlName.
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7544	var startPosition: pos1 endPosition: pos2.
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7545	parseForCode ifFalse:[self rememberGlobalUsed:globlName].
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7546	].
3188 cb84ffe12163 class: Parser Claus Gittinger <cg@exept.de> parents: 3185 diff changeset	7547	self markVariable:var from:pos1 to:pos1 + rawName size - 1 assigned:false.
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7548	].
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7549
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7550	var == #Error ifTrue:[
3183 2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7551	^ #Error
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7552	].
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7553
2113 d8302157aff6 care for undefined identifiers (do not re-color as global) Claus Gittinger <cg@exept.de> parents: 2112 diff changeset	7554	"/ errorFlag ~~ true ifTrue:[
d8302157aff6 care for undefined identifiers (do not re-color as global) Claus Gittinger <cg@exept.de> parents: 2112 diff changeset	7555	"/ self markVariable:var from:pos1 to:pos1 + varName size - 1.
d8302157aff6 care for undefined identifiers (do not re-color as global) Claus Gittinger <cg@exept.de> parents: 2112 diff changeset	7556	"/ ].
1901 a539817c2dde undefined variables error is not turned off by disabling warnings. Claus Gittinger <cg@exept.de> parents: 1855 diff changeset	7557	(ignoreErrors or:[parseForCode not and:[ignoreWarnings]]) ifTrue:[
3183 2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7558	errorFlag := false.
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7559	].
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7560
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7561	((tokenType ~~ $_) and:[tokenType ~~ #':=']) ifTrue:[
3183 2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7562	parseForCode ifFalse:[
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7563	var isInstanceVariable ifTrue:[ self rememberInstVarRead:var name].
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7564	var isClassVariable ifTrue:[ self rememberClassVarRead:var name].
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7565	var isPoolVariable ifTrue:[ self rememberPoolVarRead:var name].
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7566	var isGlobalVariable ifTrue:[ self rememberGlobalRead:var name].
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7567	].
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7568	^ var
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7569	].
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7570
1551 29f4971331f9 c-callout; ca parents: 1548 diff changeset	7571	"/ assignment...
29f4971331f9 c-callout; ca parents: 1548 diff changeset	7572
2814 dac5d824ebf9 changed: #primary_identifier Claus Gittinger <cg@exept.de> parents: 2812 diff changeset	7573	(usedGlobals notNil and:[usedGlobals includes:(Smalltalk undeclaredPrefix,var name)]) ifFalse:[
3183 2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7574	self markAssignedVariable:var from:pos1 to:pos1 + var name size - 1.
2814 dac5d824ebf9 changed: #primary_identifier Claus Gittinger <cg@exept.de> parents: 2812 diff changeset	7575	].
2812 2e472a6a134f added: #markAssignedVariable:from:to: Claus Gittinger <cg@exept.de> parents: 2810 diff changeset	7576
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7577	"/ careful: it could already be an implicit self send
1636 98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	7578	parserFlags implicitSelfSends ifTrue:[
3183 2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7579	var isMessage ifTrue:[
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7580	self nextToken.
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7581	expr := self expression.
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7582	self isSyntaxHighlighter ifFalse:[
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7583	(errorFlag or:[expr == #Error]) ifTrue:[^ #Error].
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7584	].
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7585	^ MessageNode receiver:(self selfNode) selector:('__' , varName , ':') asSymbol arg:expr.
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7586	].
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7587	].
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7588
1551 29f4971331f9 c-callout; ca parents: 1548 diff changeset	7589	assignmentAllowed := true.
29f4971331f9 c-callout; ca parents: 1548 diff changeset	7590
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7591	(var ~~ #Error) ifTrue:[
3183 2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7592	t := var type.
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7593	t == #MethodVariable ifTrue:[
3213 afd78b84a2a1 class: Parser Claus Gittinger <cg@exept.de> parents: 3212 diff changeset	7594	self rememberLocalModified:var name.
3183 2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7595	] ifFalse:[ (t == #InstanceVariable) ifTrue:[
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7596	varName := self classesInstVarNames at:(var index).
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7597
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7598	classToCompileFor isMeta ifTrue:[
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7599	"/ ca once assigned to "name" on the class side and wondered what happened to his class ...
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7600	"/ (not really a beginners bug, but may happen as a typo or missing local variable;
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7601	"/ and is hard to track down later)
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7602	ignoreWarnings ifFalse:[
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7603	parserFlags warnings ifTrue:[
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7604	parserFlags warnCommonMistakes ifTrue:[
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7605	(classToCompileFor isSubclassOf:Class) ifTrue:[
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7606	(Class allInstVarNames includes:(var name)) ifTrue:[
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7607	self warning:'assignment to a classInstanceVariable\(see hierarchy of "Class")' withCRs position:pos1 to:pos2.
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7608	]
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7609	]
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7610	]
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7611	].
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7612	].
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7613	].
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7614
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7615	parseForCode ifFalse:[
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7616	self rememberInstVarModified:varName
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7617	]
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7618	] ifFalse:[ (t == #ClassVariable) ifTrue:[
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7619	varName := var name.
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7620	varName := varName copyFrom:((varName indexOf:$:) + 1).
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7621	parseForCode ifFalse:[
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7622	self rememberClassVarModified:varName
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7623	]
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7624	] ifFalse:[ (t == #GlobalVariable) ifTrue:[
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7625	(cls := Smalltalk classNamed:var name) notNil ifTrue:[
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7626	cls name = var name ifTrue:[
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7627	self warning:'assignment to global which refers to a class' position:pos1 to:pos2.
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7628	]
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7629	].
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7630	parseForCode ifFalse:[
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7631	self rememberGlobalModified:var name
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7632	]
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7633	] ifFalse:[
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7634	(t == #PrivateClass) ifTrue:[
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7635	assignmentAllowed := false.
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7636	self parseError:'assignment to private class' position:pos1 to:pos2.
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7637	] ifFalse:[ (t == #MethodArg) ifTrue:[
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7638	(assignmentAllowed := parserFlags allowAssignmentToMethodArgument) ifTrue:[
3221 fc4f384da00e class: Parser Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	7639	parserFlags warnAssignmentToMethodArgument ifTrue:[
fc4f384da00e class: Parser Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	7640	DoNotShowCompilerWarningAgainActionQuery handle:[:ex \|
fc4f384da00e class: Parser Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	7641	parserFlags warnAssignmentToMethodArgument:false.
fc4f384da00e class: Parser Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	7642	parserFlags warnAssignmentToMethodArgument:false.
fc4f384da00e class: Parser Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	7643	ex proceed.
fc4f384da00e class: Parser Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	7644	] do:[
fc4f384da00e class: Parser Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	7645	self warning:'assignment to method argument.\\Not all Smalltalk dialects allow this.' withCRs position:pos1 to:pos2.
fc4f384da00e class: Parser Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	7646	]
fc4f384da00e class: Parser Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	7647	]
3183 2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7648	] ifFalse:[
3221 fc4f384da00e class: Parser Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	7649	DoNotShowCompilerWarningAgainActionQuery handle:[:ex \|
fc4f384da00e class: Parser Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	7650	parserFlags allowAssignmentToMethodArgument:true.
fc4f384da00e class: Parser Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	7651	ParserFlags allowAssignmentToMethodArgument:true.
fc4f384da00e class: Parser Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	7652	ex proceed.
fc4f384da00e class: Parser Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	7653	] do:[
fc4f384da00e class: Parser Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	7654	self parseError:'assignment to method argument.' withCRs position:pos1 to:pos2.
fc4f384da00e class: Parser Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	7655	errorFlag := false. "ok, user wants it - so he'll get it"
fc4f384da00e class: Parser Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	7656	assignmentAllowed := true. "/ if proceeded
fc4f384da00e class: Parser Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	7657	].
fc4f384da00e class: Parser Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	7658	]
3183 2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7659	] ifFalse:[ (t == #BlockArg) ifTrue:[
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7660	(assignmentAllowed := parserFlags allowAssignmentToBlockArgument) ifTrue:[
3221 fc4f384da00e class: Parser Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	7661	parserFlags warnAssignmentToBlockArgument ifTrue:[
fc4f384da00e class: Parser Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	7662	DoNotShowCompilerWarningAgainActionQuery handle:[:ex \|
fc4f384da00e class: Parser Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	7663	parserFlags warnAssignmentToBlockArgument:false.
fc4f384da00e class: Parser Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	7664	parserFlags warnAssignmentToBlockArgument:false.
fc4f384da00e class: Parser Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	7665	ex proceed.
fc4f384da00e class: Parser Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	7666	] do:[
3222 27dfd1b2c9a4 class: Parser Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	7667	self warning:'assignment to block argument.\\Not all Smalltalk dialects allow this.' withCRs position:pos1 to:pos2.
3221 fc4f384da00e class: Parser Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	7668	]
fc4f384da00e class: Parser Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	7669	].
3183 2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7670	] ifFalse:[
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7671	DoNotShowCompilerWarningAgainActionQuery handle:[:ex \|
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7672	parserFlags allowAssignmentToBlockArgument:true.
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7673	ParserFlags allowAssignmentToBlockArgument:true.
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7674	ex proceed.
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7675	] do:[
3221 fc4f384da00e class: Parser Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	7676	self parseError:'assignment to block argument.' position:pos1 to:pos2.
fc4f384da00e class: Parser Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	7677	]
fc4f384da00e class: Parser Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	7678	].
fc4f384da00e class: Parser Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	7679	errorFlag := false. "ok, user wants it - so he'll get it"
fc4f384da00e class: Parser Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	7680	assignmentAllowed := true. "/ if proceeded
3183 2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7681	] ifFalse:[ (t == #PoolVariable) ifTrue:[
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7682	self isDoIt ifTrue:[
3222 27dfd1b2c9a4 class: Parser Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	7683	self warning:'assignment to pool variable.\\Not all Smalltalk dialects allow this.' withCRs position:pos1 to:pos2.
3183 2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7684	assignmentAllowed := true.
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7685	] ifFalse:[
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7686	(assignmentAllowed := parserFlags allowAssignmentToPoolVariable) ifTrue:[
3222 27dfd1b2c9a4 class: Parser Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	7687	parserFlags warnAssignmentToPoolVariable ifTrue:[
27dfd1b2c9a4 class: Parser Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	7688	DoNotShowCompilerWarningAgainActionQuery handle:[:ex \|
27dfd1b2c9a4 class: Parser Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	7689	parserFlags warnAssignmentToPoolVariable:false.
27dfd1b2c9a4 class: Parser Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	7690	ParserFlags warnAssignmentToPoolVariable:false.
27dfd1b2c9a4 class: Parser Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	7691	ex proceed.
27dfd1b2c9a4 class: Parser Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	7692	] do:[
27dfd1b2c9a4 class: Parser Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	7693	self warning:'assignment to pool variable.\\Not all Smalltalk dialects allow this.' withCRs position:pos1 to:pos2.
27dfd1b2c9a4 class: Parser Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	7694	]
3221 fc4f384da00e class: Parser Claus Gittinger <cg@exept.de> parents: 3217 diff changeset	7695	]
3183 2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7696	] ifFalse:[
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7697	DoNotShowCompilerWarningAgainActionQuery handle:[:ex \|
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7698	parserFlags allowAssignmentToPoolVariable:true.
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7699	ParserFlags allowAssignmentToPoolVariable:true.
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7700	ex proceed.
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7701	] do:[
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7702	self parseError:'assignment to pool variable' position:pos1 to:pos2.
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7703	].
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7704	errorFlag := false. "ok, user wants it - so he'll get it"
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7705	assignmentAllowed := true. "/ if proceeded
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7706	parseForCode ifFalse:[
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7707	self rememberPoolVarModified:var name
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7708	]
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7709	].
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7710	]
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7711	]]]]]]]
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7712	].
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7713	].
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7714
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7715	lnr := tokenLineNr.
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7716
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7717	self nextToken.
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7718	pos2 := tokenPosition.
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7719	expr := self expression.
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7720
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7721	"/ a typical beginner error:
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7722	"/ expr ifTrue:[
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7723	"/ var := super
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7724	"/ ] ifFalse:[
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7725	"/ var := something-else
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7726	"/ ].
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7727	"/ var messageSend
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7728	"/
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7729	"/ does not what a beginner might think.
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7730
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7731	self isSyntaxHighlighter ifTrue:[
3183 2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7732	(expr == #Error) ifTrue:[^ #Error].
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7733	] ifFalse:[
3299 a36f24765520 class: Parser Claus Gittinger <cg@exept.de> parents: 3298 diff changeset	7734	(errorFlag or:[expr == #Error]) ifTrue:[^ #Error].
a36f24765520 class: Parser Claus Gittinger <cg@exept.de> parents: 3298 diff changeset	7735
a36f24765520 class: Parser Claus Gittinger <cg@exept.de> parents: 3298 diff changeset	7736	(ignoreWarnings not
a36f24765520 class: Parser Claus Gittinger <cg@exept.de> parents: 3298 diff changeset	7737	and:[ parserFlags warnings ]) ifTrue:[
3183 2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7738	parserFlags warnCommonMistakes ifTrue:[
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7739	(expr ~~ #Error and:[expr isSuper]) ifTrue:[
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7740	self warning:'followup messageSends to "' , var name , '" will have normal send semantics\(i.e. NO super- or here-sends). Use self to avoid confusion.' withCRs position:pos1 to:pos2.
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7741	].
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7742	].
3299 a36f24765520 class: Parser Claus Gittinger <cg@exept.de> parents: 3298 diff changeset	7743
a36f24765520 class: Parser Claus Gittinger <cg@exept.de> parents: 3298 diff changeset	7744	expr isVariable ifTrue:[
a36f24765520 class: Parser Claus Gittinger <cg@exept.de> parents: 3298 diff changeset	7745	expr name = var name ifTrue:[
a36f24765520 class: Parser Claus Gittinger <cg@exept.de> parents: 3298 diff changeset	7746	self warning:('useless assignment to "' , var name, '"' ) position:pos1 to:pos2-1.
a36f24765520 class: Parser Claus Gittinger <cg@exept.de> parents: 3298 diff changeset	7747	].
3183 2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7748	].
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7749	].
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7750	].
1551 29f4971331f9 c-callout; ca parents: 1548 diff changeset	7751	assignmentAllowed ifTrue:[
3183 2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7752	node := AssignmentNode variable:var expression:expr.
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7753	parserFlags fullLineNumberInfo ifTrue:[node lineNumber:lnr].
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7754	node := self assignmentRewriteHookFor:node.
1551 29f4971331f9 c-callout; ca parents: 1548 diff changeset	7755	] ifFalse:[
3183 2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7756	self parseError:('assignment to "' , var name, '" suppressed' ) position:pos1 to:pos2-1.
2a83da3e72b4 class: Parser Claus Gittinger <cg@exept.de> parents: 3180 diff changeset	7757	node := expr.
1551 29f4971331f9 c-callout; ca parents: 1548 diff changeset	7758	].
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7759	^ node
1901 a539817c2dde undefined variables error is not turned off by disabling warnings. Claus Gittinger <cg@exept.de> parents: 1855 diff changeset	7760
2669 1f35533d050f Fixes for node position in: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2621 diff changeset	7761	"Modified: / 20-08-2011 / 23:32:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2743 3d6ae861426a added: #whichClassIncludesClassVar: az parents: 2736 diff changeset	7762	"Modified: / 05-10-2011 / 15:36:55 / az"
2928 6479e1be24b3 lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	7763	"Modified: / 26-09-2012 / 14:15:23 / cg"
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7764	!
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7765
1295 8d3e193bb30d experimental lazyValues Claus Gittinger <cg@exept.de> parents: 1286 diff changeset	7766	primary_lazyValue
8d3e193bb30d experimental lazyValues Claus Gittinger <cg@exept.de> parents: 1286 diff changeset	7767	\|pos block expr\|
8d3e193bb30d experimental lazyValues Claus Gittinger <cg@exept.de> parents: 1286 diff changeset	7768
8d3e193bb30d experimental lazyValues Claus Gittinger <cg@exept.de> parents: 1286 diff changeset	7769	pos := tokenPosition.
8d3e193bb30d experimental lazyValues Claus Gittinger <cg@exept.de> parents: 1286 diff changeset	7770
8d3e193bb30d experimental lazyValues Claus Gittinger <cg@exept.de> parents: 1286 diff changeset	7771	(tokenType == $: ) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	7772	self parseError:'lazyValues have no arguments' position:tokenPosition.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	7773	^ #Error
1295 8d3e193bb30d experimental lazyValues Claus Gittinger <cg@exept.de> parents: 1286 diff changeset	7774	].
8d3e193bb30d experimental lazyValues Claus Gittinger <cg@exept.de> parents: 1286 diff changeset	7775
8d3e193bb30d experimental lazyValues Claus Gittinger <cg@exept.de> parents: 1286 diff changeset	7776	block := self blockBody:#().
8d3e193bb30d experimental lazyValues Claus Gittinger <cg@exept.de> parents: 1286 diff changeset	7777	self nextToken.
8d3e193bb30d experimental lazyValues Claus Gittinger <cg@exept.de> parents: 1286 diff changeset	7778
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	7779	expr := MessageNode
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	7780	receiver:(VariableNode globalNamed:#LazyValue)
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	7781	selector:#'block:'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	7782	arg:block.
1295 8d3e193bb30d experimental lazyValues Claus Gittinger <cg@exept.de> parents: 1286 diff changeset	7783	^ expr
8d3e193bb30d experimental lazyValues Claus Gittinger <cg@exept.de> parents: 1286 diff changeset	7784	!
8d3e193bb30d experimental lazyValues Claus Gittinger <cg@exept.de> parents: 1286 diff changeset	7785
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7786	primary_nil
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7787	"parse a nil primary; return a node-tree, nil or #Error."
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7788
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7789	\|pos\|
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7790
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7791	pos := tokenPosition.
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7792
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7793	self nextToken.
2889 3139b6dd1220 changed:12 methods Claus Gittinger <cg@exept.de> parents: 2880 diff changeset	7794	(self noAssignmentAllowed:'Assignment to ''nil'' would break Smalltalk' at:pos) ifFalse:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	7795	^ #Error
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7796	].
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7797	"/ self markConstantFrom:pos to:pos+2.
2567 30fd2329c3bd - parse tree nodes are no longer shared Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2563 diff changeset	7798	"/ JV@2011-07-19: Changed not to share the nodes
30fd2329c3bd - parse tree nodes are no longer shared Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2563 diff changeset	7799
30fd2329c3bd - parse tree nodes are no longer shared Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2563 diff changeset	7800	^ConstantNode type:#Nil value:nil from: pos to: pos + 2
30fd2329c3bd - parse tree nodes are no longer shared Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2563 diff changeset	7801
30fd2329c3bd - parse tree nodes are no longer shared Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2563 diff changeset	7802	"/ Old code
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	7803	"/ nilNode isNil ifTrue:[
2567 30fd2329c3bd - parse tree nodes are no longer shared Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2563 diff changeset	7804	"/ nilNode := ConstantNode type:#Nil value:nil
30fd2329c3bd - parse tree nodes are no longer shared Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2563 diff changeset	7805	"/ ].
30fd2329c3bd - parse tree nodes are no longer shared Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2563 diff changeset	7806	"/ ^ nilNode
30fd2329c3bd - parse tree nodes are no longer shared Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2563 diff changeset	7807
30fd2329c3bd - parse tree nodes are no longer shared Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2563 diff changeset	7808	"Modified: / 19-07-2011 / 18:06:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2889 3139b6dd1220 changed:12 methods Claus Gittinger <cg@exept.de> parents: 2880 diff changeset	7809	"Modified: / 26-07-2012 / 11:37:32 / cg"
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7810	!
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7811
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7812	primary_self
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7813	"parse a self primary; return a node-tree, nil or #Error."
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7814
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7815	\|pos\|
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7816
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7817	pos := tokenPosition.
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7818
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7819	self nextToken.
2889 3139b6dd1220 changed:12 methods Claus Gittinger <cg@exept.de> parents: 2880 diff changeset	7820	(self noAssignmentAllowed:'Assignment to pseudo variable ''self''' at:pos) ifFalse:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	7821	^ ParseError raiseErrorString:'Assignment to self'.
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7822	].
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7823	self markSelfFrom:pos to:pos+3.
2567 30fd2329c3bd - parse tree nodes are no longer shared Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2563 diff changeset	7824	^ self selfNode startPosition: pos endPosition: pos + 3
1855 61936f01108e error messages shortened and cleanup Claus Gittinger <cg@exept.de> parents: 1842 diff changeset	7825
2567 30fd2329c3bd - parse tree nodes are no longer shared Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2563 diff changeset	7826	"Modified (format): / 19-07-2011 / 18:09:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2889 3139b6dd1220 changed:12 methods Claus Gittinger <cg@exept.de> parents: 2880 diff changeset	7827	"Modified: / 26-07-2012 / 11:37:40 / cg"
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7828	!
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7829
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7830	primary_simpleLiteral
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7831	"parse a simple literal primary; return a node-tree, or raise an Error."
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7832
2669 1f35533d050f Fixes for node position in: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2621 diff changeset	7833	\|pos pos2 val\|
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7834
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7835	pos := tokenPosition.
3267 2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	7836	pos2 := source position.
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7837
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7838	"/
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7839	"/ ImmutableStrings are experimental
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7840	"/
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7841	((tokenType == #String)
1636 98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	7842	and:[(parserFlags stringsAreImmutable)]) ifTrue:[
3267 2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	7843	token := tokenValue := self makeImmutableString:tokenValue.
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7844	].
1657 451328cc3264 ESSymbols Claus Gittinger <cg@exept.de> parents: 1654 diff changeset	7845
451328cc3264 ESSymbols Claus Gittinger <cg@exept.de> parents: 1654 diff changeset	7846	((tokenType == #Symbol) or:[tokenType == #ESSymbol]) ifTrue:[
3267 2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	7847	parseForCode ifFalse:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	7848	self rememberSymbolUsed:tokenValue
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	7849	].
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7850	].
2567 30fd2329c3bd - parse tree nodes are no longer shared Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2563 diff changeset	7851	val := ConstantNode type: tokenType value:tokenValue
3267 2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	7852	from: pos to: pos2.
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7853
1683 faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	7854	((tokenType == #Symbol) or:[tokenType == #ESSymbol]) ifTrue:[
3267 2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	7855	self markSymbolFrom:tokenPosition to:tokenPosition+tokenValue size-1.
1683 faa80a7dac3d * empty log message * Claus Gittinger <cg@exept.de> parents: 1675 diff changeset	7856	] ifFalse:[
3267 2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	7857	tokenType == #String ifTrue:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	7858	self markStringFrom:pos to:source position.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	7859	] ifFalse:[
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	7860	self markConstantFrom:pos to:source position.
2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	7861	].
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7862	].
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7863
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7864	self nextToken.
2889 3139b6dd1220 changed:12 methods Claus Gittinger <cg@exept.de> parents: 2880 diff changeset	7865	(self noAssignmentAllowed:'Assignment to a constant' at:pos) ifFalse:[
3267 2ecb618c908e class: Parser Stefan Vogel <sv@exept.de> parents: 3244 diff changeset	7866	^ #Error
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7867	].
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7868	^ val
2567 30fd2329c3bd - parse tree nodes are no longer shared Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2563 diff changeset	7869
2669 1f35533d050f Fixes for node position in: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2621 diff changeset	7870	"Modified: / 21-08-2011 / 08:10:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2889 3139b6dd1220 changed:12 methods Claus Gittinger <cg@exept.de> parents: 2880 diff changeset	7871	"Modified: / 26-07-2012 / 11:37:44 / cg"
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7872	!
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7873
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7874	primary_squeakComputedArray
1274 7d4a3391a81a comments Claus Gittinger <cg@exept.de> parents: 1273 diff changeset	7875	"parse a squeak computed array literal; return a node-tree, or raise an Error.
7d4a3391a81a comments Claus Gittinger <cg@exept.de> parents: 1273 diff changeset	7876	In squeak, these are written as: { expr1 . expr2 . ... exprN )
2682 c27c69dca5e7 comment/format in: #primary_squeakComputedArray Claus Gittinger <cg@exept.de> parents: 2681 diff changeset	7877	and create a message to construct an Array containing the exprI values"
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7878
2614 7fb9c052438e More fixes to keep node position in the source. Not yet fully implemented Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2567 diff changeset	7879	\|pos pos2 exprList\|
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7880
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7881	pos := tokenPosition.
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7882
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7883	self nextToken.
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7884	exprList := self squeakComputedArray.
1277 f7c21ebe1520 squeak computed arrays again Claus Gittinger <cg@exept.de> parents: 1276 diff changeset	7885	(exprList == #Error) ifTrue:[ ^ #Error ].
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7886
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7887	tokenType ~~ $} ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	7888	self parseError:'"." or "}" expected in computed array expression' position:tokenPosition.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	7889	^ #Error
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7890	].
2614 7fb9c052438e More fixes to keep node position in the source. Not yet fully implemented Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2567 diff changeset	7891	pos2 := tokenPosition.
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7892	self nextToken.
2889 3139b6dd1220 changed:12 methods Claus Gittinger <cg@exept.de> parents: 2880 diff changeset	7893	(self noAssignmentAllowed:'Invalid assignment' at:pos) ifFalse:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	7894	^ #Error
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7895	].
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7896
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7897	"/ make it an array creation expression ...
2614 7fb9c052438e More fixes to keep node position in the source. Not yet fully implemented Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2567 diff changeset	7898	^ (self genMakeArrayWith:exprList)
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	7899	startPosition: pos
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	7900	endPosition: pos2
1271 47c443af9bb9 better code for squeak computed array; Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	7901
47c443af9bb9 better code for squeak computed array; Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	7902	"
47c443af9bb9 better code for squeak computed array; Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	7903	Compiler allowSqueakExtensions:true.
1299 6c182cd87b6c * empty log message * Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	7904	"
6c182cd87b6c * empty log message * Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	7905
6c182cd87b6c * empty log message * Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	7906	"
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	7907	{ 1@2. 10 factorial. Date today }.
1299 6c182cd87b6c * empty log message * Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	7908	"
6c182cd87b6c * empty log message * Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	7909
1762 219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	7910	"
1271 47c443af9bb9 better code for squeak computed array; Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	7911	Compiler allowSqueakExtensions:false.
47c443af9bb9 better code for squeak computed array; Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	7912	"
2614 7fb9c052438e More fixes to keep node position in the source. Not yet fully implemented Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2567 diff changeset	7913
7fb9c052438e More fixes to keep node position in the source. Not yet fully implemented Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2567 diff changeset	7914	"Modified: / 27-07-2011 / 15:56:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2902 27b6a3db11dc changed: #primary_squeakComputedArray Claus Gittinger <cg@exept.de> parents: 2901 diff changeset	7915	"Modified: / 22-08-2012 / 13:20:58 / cg"
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7916	!
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7917
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7918	primary_super
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7919	"parse a super primary; return a node-tree, nil or #Error."
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7920
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7921	\|pos\|
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7922
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7923	pos := tokenPosition.
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7924
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7925	usesSuper := true.
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7926	self nextToken.
2889 3139b6dd1220 changed:12 methods Claus Gittinger <cg@exept.de> parents: 2880 diff changeset	7927	(self noAssignmentAllowed:'Assignment to pseudo variable ''super''' at:pos) ifFalse:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	7928	^ #Error
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7929	].
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7930	(classToCompileFor isNil or:[classToCompileFor superclass isNil]) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	7931	self warning:'superclass is (currently ?) nil' position:pos to:(pos + 4).
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7932	].
2567 30fd2329c3bd - parse tree nodes are no longer shared Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2563 diff changeset	7933	"/ JV@2011-07-19: Changed not to share the nodes
30fd2329c3bd - parse tree nodes are no longer shared Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2563 diff changeset	7934	"/ superNode isNil ifTrue:[
30fd2329c3bd - parse tree nodes are no longer shared Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2563 diff changeset	7935	"/ superNode := SuperNode value:selfValue inClass:classToCompileFor
30fd2329c3bd - parse tree nodes are no longer shared Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2563 diff changeset	7936	"/ ].
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7937	self markSelfFrom:pos to:pos+4.
2567 30fd2329c3bd - parse tree nodes are no longer shared Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2563 diff changeset	7938
30fd2329c3bd - parse tree nodes are no longer shared Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2563 diff changeset	7939	"/ JV@2011-07-19: Changed not to share the nodes
30fd2329c3bd - parse tree nodes are no longer shared Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2563 diff changeset	7940	"/ ^ superNode
30fd2329c3bd - parse tree nodes are no longer shared Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2563 diff changeset	7941	^ (SuperNode value:selfValue inClass:classToCompileFor)
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	7942	startPosition: pos endPosition: pos + 4
2567 30fd2329c3bd - parse tree nodes are no longer shared Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2563 diff changeset	7943
30fd2329c3bd - parse tree nodes are no longer shared Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2563 diff changeset	7944	"Modified: / 19-07-2011 / 18:12:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2889 3139b6dd1220 changed:12 methods Claus Gittinger <cg@exept.de> parents: 2880 diff changeset	7945	"Modified: / 26-07-2012 / 11:37:58 / cg"
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7946	!
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7947
1262 85c57c7eee77 experimental: refs Claus Gittinger <cg@exept.de> parents: 1260 diff changeset	7948	primary_thisContext
85c57c7eee77 experimental: refs Claus Gittinger <cg@exept.de> parents: 1260 diff changeset	7949	"parse a thisContext primary; return a node-tree, or raise an Error."
85c57c7eee77 experimental: refs Claus Gittinger <cg@exept.de> parents: 1260 diff changeset	7950
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	7951	\|pos\|
1262 85c57c7eee77 experimental: refs Claus Gittinger <cg@exept.de> parents: 1260 diff changeset	7952
85c57c7eee77 experimental: refs Claus Gittinger <cg@exept.de> parents: 1260 diff changeset	7953	pos := tokenPosition.
85c57c7eee77 experimental: refs Claus Gittinger <cg@exept.de> parents: 1260 diff changeset	7954
85c57c7eee77 experimental: refs Claus Gittinger <cg@exept.de> parents: 1260 diff changeset	7955	self nextToken.
2889 3139b6dd1220 changed:12 methods Claus Gittinger <cg@exept.de> parents: 2880 diff changeset	7956	(self noAssignmentAllowed:'Assignment to pseudo variable ''thisContext''' at:pos) ifFalse:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	7957	^ #Error
1262 85c57c7eee77 experimental: refs Claus Gittinger <cg@exept.de> parents: 1260 diff changeset	7958	].
85c57c7eee77 experimental: refs Claus Gittinger <cg@exept.de> parents: 1260 diff changeset	7959	self markIdentifierFrom:pos to:pos+10.
2567 30fd2329c3bd - parse tree nodes are no longer shared Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2563 diff changeset	7960	^ (VariableNode type:#ThisContext context:contextToEvaluateIn "often nil")
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	7961	startPosition: pos endPosition: pos + 10
2567 30fd2329c3bd - parse tree nodes are no longer shared Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2563 diff changeset	7962
30fd2329c3bd - parse tree nodes are no longer shared Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2563 diff changeset	7963	"Modified: / 19-07-2011 / 18:14:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2889 3139b6dd1220 changed:12 methods Claus Gittinger <cg@exept.de> parents: 2880 diff changeset	7964	"Modified: / 26-07-2012 / 11:38:01 / cg"
1262 85c57c7eee77 experimental: refs Claus Gittinger <cg@exept.de> parents: 1260 diff changeset	7965	!
85c57c7eee77 experimental: refs Claus Gittinger <cg@exept.de> parents: 1260 diff changeset	7966
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7967	primary_true
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7968	"parse a true primary; return a node-tree, or raise an Error."
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7969
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7970	\|pos\|
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7971
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7972	pos := tokenPosition.
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7973
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7974	self nextToken.
2889 3139b6dd1220 changed:12 methods Claus Gittinger <cg@exept.de> parents: 2880 diff changeset	7975	(self noAssignmentAllowed:'Assignment to ''true'' would break Smalltalk' at:pos) ifFalse:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	7976	^ #Error
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7977	].
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7978	self markBooleanConstantFrom:pos to:pos+3.
2567 30fd2329c3bd - parse tree nodes are no longer shared Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2563 diff changeset	7979	^ ConstantNode type:#True value:true from:pos to:pos+3
30fd2329c3bd - parse tree nodes are no longer shared Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2563 diff changeset	7980
30fd2329c3bd - parse tree nodes are no longer shared Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2563 diff changeset	7981	"Modified: / 19-07-2011 / 18:14:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2889 3139b6dd1220 changed:12 methods Claus Gittinger <cg@exept.de> parents: 2880 diff changeset	7982	"Modified: / 26-07-2012 / 11:38:11 / cg"
1227 74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7983	!
74d5695ce8dc dolphin compatibility; Claus Gittinger <cg@exept.de> parents: 1225 diff changeset	7984
2143 ce63c9486614 * empty log message * Claus Gittinger <cg@exept.de> parents: 2136 diff changeset	7985	qualifiedNameFrom:pos1
924 6214afc7e312 qualifiedName support Claus Gittinger <cg@exept.de> parents: 921 diff changeset	7986	"a vw3.x (and later) feature: QualifiedName is #{ id ... id }
6214afc7e312 qualifiedName support Claus Gittinger <cg@exept.de> parents: 921 diff changeset	7987	and mapped to a global variable here.
2143 ce63c9486614 * empty log message * Claus Gittinger <cg@exept.de> parents: 2136 diff changeset	7988	The initial #{ is supposed to be skipped and its position passed in as pos1."
ce63c9486614 * empty log message * Claus Gittinger <cg@exept.de> parents: 2136 diff changeset	7989
ce63c9486614 * empty log message * Claus Gittinger <cg@exept.de> parents: 2136 diff changeset	7990	\|elements elem nm\|
ce63c9486614 * empty log message * Claus Gittinger <cg@exept.de> parents: 2136 diff changeset	7991
924 6214afc7e312 qualifiedName support Claus Gittinger <cg@exept.de> parents: 921 diff changeset	7992	elements := OrderedCollection new.
1436 e345acd83456 qualified name stuff Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	7993	[ tokenType ~~ $} ] whileTrue:[
3217 82a2cb220c5f class: Parser Claus Gittinger <cg@exept.de> parents: 3214 diff changeset	7994	(tokenType == #Identifier) ifFalse:[
82a2cb220c5f class: Parser Claus Gittinger <cg@exept.de> parents: 3214 diff changeset	7995	self syntaxError:'Bad qualifiedName; Identifier expected'
82a2cb220c5f class: Parser Claus Gittinger <cg@exept.de> parents: 3214 diff changeset	7996	position:pos1 to:tokenPosition
82a2cb220c5f class: Parser Claus Gittinger <cg@exept.de> parents: 3214 diff changeset	7997	].
82a2cb220c5f class: Parser Claus Gittinger <cg@exept.de> parents: 3214 diff changeset	7998	elem := tokenName.
82a2cb220c5f class: Parser Claus Gittinger <cg@exept.de> parents: 3214 diff changeset	7999	elements add:elem.
82a2cb220c5f class: Parser Claus Gittinger <cg@exept.de> parents: 3214 diff changeset	8000
82a2cb220c5f class: Parser Claus Gittinger <cg@exept.de> parents: 3214 diff changeset	8001	self nextToken.
82a2cb220c5f class: Parser Claus Gittinger <cg@exept.de> parents: 3214 diff changeset	8002	tokenType = $} ifTrue:[
82a2cb220c5f class: Parser Claus Gittinger <cg@exept.de> parents: 3214 diff changeset	8003	] ifFalse:[
82a2cb220c5f class: Parser Claus Gittinger <cg@exept.de> parents: 3214 diff changeset	8004	tokenType == #'::' ifTrue:[
82a2cb220c5f class: Parser Claus Gittinger <cg@exept.de> parents: 3214 diff changeset	8005	"/ notice that Foo.Bar has already been scanned as Foo::Bar
82a2cb220c5f class: Parser Claus Gittinger <cg@exept.de> parents: 3214 diff changeset	8006	"/ (which is a kludge)
82a2cb220c5f class: Parser Claus Gittinger <cg@exept.de> parents: 3214 diff changeset	8007	self nextToken.
82a2cb220c5f class: Parser Claus Gittinger <cg@exept.de> parents: 3214 diff changeset	8008	] ifFalse:[
82a2cb220c5f class: Parser Claus Gittinger <cg@exept.de> parents: 3214 diff changeset	8009	self syntaxError:'bad qualifiedName syntax; ''.'' or ''}'' expected (got ',tokenType,')'
82a2cb220c5f class: Parser Claus Gittinger <cg@exept.de> parents: 3214 diff changeset	8010	position:pos1 to:tokenPosition.
82a2cb220c5f class: Parser Claus Gittinger <cg@exept.de> parents: 3214 diff changeset	8011	].
82a2cb220c5f class: Parser Claus Gittinger <cg@exept.de> parents: 3214 diff changeset	8012	].
1436 e345acd83456 qualified name stuff Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	8013
e345acd83456 qualified name stuff Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	8014	"/ elem := self variable.
e345acd83456 qualified name stuff Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	8015	"/ (elem == #Error) ifTrue:[
e345acd83456 qualified name stuff Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	8016	"/ (tokenType == #EOF) ifTrue:[
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	8017	"/ self syntaxError:'unterminated qualifiedName; ''}'' expected'
1436 e345acd83456 qualified name stuff Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	8018	"/ position:pos1 to:tokenPosition
e345acd83456 qualified name stuff Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	8019	"/ ].
e345acd83456 qualified name stuff Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	8020	"/ ^ #Error
e345acd83456 qualified name stuff Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	8021	"/ ].
e345acd83456 qualified name stuff Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	8022	"/ errorFlag := false.
e345acd83456 qualified name stuff Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	8023	"/ (elem isVariable and:[elem isGlobal]) ifFalse:[
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	8024	"/ self warning:'elements of a qualifiedName should be globalIdentifiers'
1436 e345acd83456 qualified name stuff Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	8025	"/ position:pos1 to:tokenPosition
e345acd83456 qualified name stuff Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	8026	"/ ].
e345acd83456 qualified name stuff Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	8027	"/ elements add:elem.
e345acd83456 qualified name stuff Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	8028	"/
e345acd83456 qualified name stuff Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	8029	"/ self nextToken.
e345acd83456 qualified name stuff Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	8030	"/ tokenType == #'::' ifTrue:[
e345acd83456 qualified name stuff Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	8031	"/ "/ notice that Foo.Bar has already been scanned as Foo::Bar
e345acd83456 qualified name stuff Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	8032	"/ "/(which is a kludge)
e345acd83456 qualified name stuff Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	8033	"/ self nextToken.
e345acd83456 qualified name stuff Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	8034	"/ ] ifFalse:[
e345acd83456 qualified name stuff Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	8035	"/ tokenType ~~ $} ifTrue:[
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	8036	"/ self syntaxError:'bad qualifiedName syntax; ''.'' or ''}'' expected'
1436 e345acd83456 qualified name stuff Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	8037	"/ position:pos1 to:tokenPosition.
e345acd83456 qualified name stuff Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	8038	"/ ^ #Error
e345acd83456 qualified name stuff Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	8039	"/ ].
e345acd83456 qualified name stuff Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	8040	"/ ].
e345acd83456 qualified name stuff Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	8041	].
1716 cfbef30a7cb7 qualified names again (VW7); Claus Gittinger <cg@exept.de> parents: 1714 diff changeset	8042
2143 ce63c9486614 * empty log message * Claus Gittinger <cg@exept.de> parents: 2136 diff changeset	8043	self nextToken.
ce63c9486614 * empty log message * Claus Gittinger <cg@exept.de> parents: 2136 diff changeset	8044
1716 cfbef30a7cb7 qualified names again (VW7); Claus Gittinger <cg@exept.de> parents: 1714 diff changeset	8045	parserFlags flattenVisualWorksNamespaces ifTrue:[
3217 82a2cb220c5f class: Parser Claus Gittinger <cg@exept.de> parents: 3214 diff changeset	8046	elements size > 1 ifTrue:[
82a2cb220c5f class: Parser Claus Gittinger <cg@exept.de> parents: 3214 diff changeset	8047	"/ temporary kludge when loading VW UIBuilder code...
82a2cb220c5f class: Parser Claus Gittinger <cg@exept.de> parents: 3214 diff changeset	8048	( #('UI' 'Core' 'Graphics') includes:elements first) ifTrue:[
82a2cb220c5f class: Parser Claus Gittinger <cg@exept.de> parents: 3214 diff changeset	8049	elements := elements copyFrom:2.
82a2cb220c5f class: Parser Claus Gittinger <cg@exept.de> parents: 3214 diff changeset	8050	]
82a2cb220c5f class: Parser Claus Gittinger <cg@exept.de> parents: 3214 diff changeset	8051	].
1716 cfbef30a7cb7 qualified names again (VW7); Claus Gittinger <cg@exept.de> parents: 1714 diff changeset	8052	].
cfbef30a7cb7 qualified names again (VW7); Claus Gittinger <cg@exept.de> parents: 1714 diff changeset	8053
1437 a7a5db01ad12 * empty log message * Claus Gittinger <cg@exept.de> parents: 1436 diff changeset	8054	nm := (elements asStringWith:'::') asSymbol.
1436 e345acd83456 qualified name stuff Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	8055	^ ConstantNode type:#Symbol value:nm
e345acd83456 qualified name stuff Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	8056
e345acd83456 qualified name stuff Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	8057	"/ elements size > 1 ifTrue:[
e345acd83456 qualified name stuff Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	8058	"/ self syntaxError:'Sorry: qualified names are not yet implemented.'.
e345acd83456 qualified name stuff Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	8059	"/ ].
e345acd83456 qualified name stuff Claus Gittinger <cg@exept.de> parents: 1434 diff changeset	8060	"/ ^ elements first.
924 6214afc7e312 qualifiedName support Claus Gittinger <cg@exept.de> parents: 921 diff changeset	8061
6214afc7e312 qualifiedName support Claus Gittinger <cg@exept.de> parents: 921 diff changeset	8062	"Modified: / 14.4.1998 / 17:03:29 / cg"
6214afc7e312 qualifiedName support Claus Gittinger <cg@exept.de> parents: 921 diff changeset	8063	!
6214afc7e312 qualifiedName support Claus Gittinger <cg@exept.de> parents: 921 diff changeset	8064
2143 ce63c9486614 * empty log message * Claus Gittinger <cg@exept.de> parents: 2136 diff changeset	8065	qualifiedNameOrInlineObject
ce63c9486614 * empty log message * Claus Gittinger <cg@exept.de> parents: 2136 diff changeset	8066	"either a vw3.x (and later) QualifiedName #{ id ... id }
2194 46cb5c8810b2 * empty log message * Claus Gittinger <cg@exept.de> parents: 2192 diff changeset	8067	or an ST/X experimental inline object #{ name: value. ... name: value }
2143 ce63c9486614 * empty log message * Claus Gittinger <cg@exept.de> parents: 2136 diff changeset	8068	The initial #{ is skipped here, but the position passed down."
ce63c9486614 * empty log message * Claus Gittinger <cg@exept.de> parents: 2136 diff changeset	8069
ce63c9486614 * empty log message * Claus Gittinger <cg@exept.de> parents: 2136 diff changeset	8070	\|pos1\|
ce63c9486614 * empty log message * Claus Gittinger <cg@exept.de> parents: 2136 diff changeset	8071
ce63c9486614 * empty log message * Claus Gittinger <cg@exept.de> parents: 2136 diff changeset	8072	pos1 := tokenPosition.
ce63c9486614 * empty log message * Claus Gittinger <cg@exept.de> parents: 2136 diff changeset	8073	self nextToken.
ce63c9486614 * empty log message * Claus Gittinger <cg@exept.de> parents: 2136 diff changeset	8074
ce63c9486614 * empty log message * Claus Gittinger <cg@exept.de> parents: 2136 diff changeset	8075	(tokenType == #Keyword) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8076	^ self inlineObjectFrom:pos1.
2143 ce63c9486614 * empty log message * Claus Gittinger <cg@exept.de> parents: 2136 diff changeset	8077	].
ce63c9486614 * empty log message * Claus Gittinger <cg@exept.de> parents: 2136 diff changeset	8078	^ self qualifiedNameFrom:pos1
ce63c9486614 * empty log message * Claus Gittinger <cg@exept.de> parents: 2136 diff changeset	8079	!
ce63c9486614 * empty log message * Claus Gittinger <cg@exept.de> parents: 2136 diff changeset	8080
894 943b6d0d26b3 changes to support loading squeak code containing computed Claus Gittinger <cg@exept.de> parents: 887 diff changeset	8081	squeakComputedArray
943b6d0d26b3 changes to support loading squeak code containing computed Claus Gittinger <cg@exept.de> parents: 887 diff changeset	8082	\|expressions elem pos1\|
943b6d0d26b3 changes to support loading squeak code containing computed Claus Gittinger <cg@exept.de> parents: 887 diff changeset	8083
1275 91a0eead9e0e oops - stc bug workaround - scans keyword selectors Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	8084	tokenType == $} ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8085	^ #()
1275 91a0eead9e0e oops - stc bug workaround - scans keyword selectors Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	8086	].
91a0eead9e0e oops - stc bug workaround - scans keyword selectors Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	8087
894 943b6d0d26b3 changes to support loading squeak code containing computed Claus Gittinger <cg@exept.de> parents: 887 diff changeset	8088	pos1 := tokenPosition.
943b6d0d26b3 changes to support loading squeak code containing computed Claus Gittinger <cg@exept.de> parents: 887 diff changeset	8089	expressions := OrderedCollection new:20.
1275 91a0eead9e0e oops - stc bug workaround - scans keyword selectors Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	8090	[true] whileTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8091	elem := self expression.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8092	(elem == #Error) ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8093	(tokenType == #EOF) ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8094	self syntaxError:'unterminated computed-array-element; ''}'' expected'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8095	position:pos1 to:tokenPosition
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8096	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8097	^ #Error
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8098	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8099	expressions add:elem.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8100	tokenType == $. ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8101	^ expressions
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8102	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8103	self nextToken.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8104	tokenType == $} ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8105	^ expressions
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8106	].
894 943b6d0d26b3 changes to support loading squeak code containing computed Claus Gittinger <cg@exept.de> parents: 887 diff changeset	8107	].
1275 91a0eead9e0e oops - stc bug workaround - scans keyword selectors Claus Gittinger <cg@exept.de> parents: 1274 diff changeset	8108	"/ not reached
894 943b6d0d26b3 changes to support loading squeak code containing computed Claus Gittinger <cg@exept.de> parents: 887 diff changeset	8109	!
943b6d0d26b3 changes to support loading squeak code containing computed Claus Gittinger <cg@exept.de> parents: 887 diff changeset	8110
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	8111	unaryExpression
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	8112	"parse a unary-expression; return a node-tree, nil or #Error"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	8113
1328 af0a47799078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1327 diff changeset	8114	\|receiver\|
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	8115
1405 f888caa1f2d8 refactored primitive-decl parsing; Claus Gittinger <cg@exept.de> parents: 1400 diff changeset	8116	receiver := self arrayIndexingExpression.
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	8117	(receiver == #Error) ifTrue:[^ #Error].
3208 093f1891db93 class: Parser Claus Gittinger <cg@exept.de> parents: 3200 diff changeset	8118	(tokenType == #EOF) ifTrue:[^ receiver].
093f1891db93 class: Parser Claus Gittinger <cg@exept.de> parents: 3200 diff changeset	8119	tokenType == $] ifTrue:[^ receiver].
093f1891db93 class: Parser Claus Gittinger <cg@exept.de> parents: 3200 diff changeset	8120	tokenType == $) ifTrue:[^ receiver].
1328 af0a47799078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1327 diff changeset	8121	^ self unaryExpressionFor:receiver
af0a47799078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1327 diff changeset	8122	!
af0a47799078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1327 diff changeset	8123
af0a47799078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1327 diff changeset	8124	unaryExpressionFor:receiverArg
af0a47799078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1327 diff changeset	8125	"parse a unary-expression; return a node-tree, nil or #Error"
af0a47799078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1327 diff changeset	8126
2788 0282ad201349 refactored checkPlausibilityOf:from:to: Claus Gittinger <cg@exept.de> parents: 2765 diff changeset	8127	\|receiver expr sel pos pos2 lNr arguments\|
1328 af0a47799078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1327 diff changeset	8128
af0a47799078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1327 diff changeset	8129	receiver := receiverArg.
af0a47799078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1327 diff changeset	8130	(receiver == #Error) ifTrue:[^ #Error].
1776 65df22979f49 plausibilityCheck of unary expression fixed Claus Gittinger <cg@exept.de> parents: 1774 diff changeset	8131
1306 90f45715a0d7 optionally allow nil, true, false etc. as unary selector Claus Gittinger <cg@exept.de> parents: 1304 diff changeset	8132	[ self isValidUnarySelector:tokenType ] whileTrue:[
3291 6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	8133	pos := tokenPosition.
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	8134	pos2 := pos + tokenName size - 1.
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	8135	lNr := tokenLineNr.
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	8136	sel := tokenName.
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	8137
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	8138	self markSelector:sel from:pos to:pos2 receiverNode:receiver.
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	8139
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	8140	self nextToken.
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	8141	tokenType == $( ifTrue:[
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	8142	parserFlags allowSqueakExtensions == true ifTrue:[
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	8143	"/ croquet/squeak extension - c/java-style arguments
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	8144	arguments := self functionCallArgList.
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	8145	(arguments == #Error) ifTrue:[^ #Error].
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	8146	"/ synthetic selector: foo[:[with:[with:[...]]]]
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	8147	arguments notEmpty ifTrue:[
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	8148	sel := sel , ':'.
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	8149	arguments size - 1 timesRepeat:[ sel := sel , 'with:' ].
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	8150	].
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	8151	sel := self selectorCheck:sel for:receiver position:pos to:pos2.
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	8152	expr := MessageNode receiver:receiver selector:sel args:arguments fold:foldConstants.
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	8153	expr isErrorNode ifTrue:[
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	8154	self parseError:(expr errorString) position:pos to:pos2.
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	8155	errorFlag := false. "ok, user wants it - so he'll get it"
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	8156	expr := MessageNode receiver:receiver selector:sel args:arguments fold:nil.
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	8157	].
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	8158	expr lineNumber:lNr.
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	8159
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	8160	self checkPlausibilityOf:expr from:pos to:pos2.
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	8161	parseForCode ifFalse:[
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	8162	self rememberSelectorUsed:sel receiver:receiver
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	8163	].
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	8164	^ expr.
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	8165	].
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	8166	].
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	8167
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	8168	"/ create the expression before (corrector may need it)
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	8169	expr := UnaryNode receiver:receiver selector:sel fold:foldConstants.
3305 1c46ca0f443c Fix in Parser>>unaryExpressionFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3304 diff changeset	8170	expr startPosition: receiver startPosition endPosition: pos2.
3291 6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	8171
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	8172	"/ attention: may have been optimized (Character return -> const!!
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	8173	expr isMessage ifTrue:[
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	8174	expr selectorPosition:pos.
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	8175
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	8176	sel := self selectorCheck:sel for:receiver position:pos to:pos2.
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	8177
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	8178	expr selector:sel. "/ update possibly changed selector.
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	8179	].
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	8180
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	8181	expr isErrorNode ifTrue:[
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	8182	self warning:(expr errorString , '.\\If you proceed, that error will happen at runtime.') withCRs position:pos to:pos2.
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	8183	errorFlag := false. "ok, user wants it - so he'll get it"
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	8184	expr := UnaryNode receiver:receiver selector:sel fold:nil.
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	8185	expr startPosition: receiver startPosition endPosition: pos2.
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	8186	].
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	8187	expr lineNumber:lNr.
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	8188
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	8189	self checkPlausibilityOf:expr from:pos to:pos2.
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	8190	parseForCode ifFalse:[
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	8191	self rememberSelectorUsed:sel receiver:receiver
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	8192	].
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	8193
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	8194	expr := self messageNodeRewriteHookFor:expr.
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	8195	receiver := expr. "/ for next message
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	8196	].
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	8197	^ receiver
210 b22f4472833b allow enable/disable of constantFolding Claus Gittinger <cg@exept.de> parents: 207 diff changeset	8198
2788 0282ad201349 refactored checkPlausibilityOf:from:to: Claus Gittinger <cg@exept.de> parents: 2765 diff changeset	8199	"Modified: / 19-01-2012 / 10:46:35 / cg"
3305 1c46ca0f443c Fix in Parser>>unaryExpressionFor: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3304 diff changeset	8200	"Modified: / 30-08-2013 / 13:02:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	8201	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	8202
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	8203	variable
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	8204	"parse a simple (i.e. non-namespace-access path) variable;
1028 cbdce68d87f6 fixed qualifiedName parsing Claus Gittinger <cg@exept.de> parents: 1025 diff changeset	8205	return a node-tree, nil or #Error.
cbdce68d87f6 fixed qualifiedName parsing Claus Gittinger <cg@exept.de> parents: 1025 diff changeset	8206	Does not advance to next token.
cbdce68d87f6 fixed qualifiedName parsing Claus Gittinger <cg@exept.de> parents: 1025 diff changeset	8207	If undefined, notify error and correct if user wants to"
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	8208
864 a716d90fa5a9 better selector marking Claus Gittinger <cg@exept.de> parents: 837 diff changeset	8209	\|v pos1 pos2\|
687 27565829b5d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 685 diff changeset	8210
454 00a079c9832f handle uses: usedNameSpace info Claus Gittinger <cg@exept.de> parents: 451 diff changeset	8211	v := self variableOrError:tokenName.
664 63d1460e8ee3 checkin from browser Claus Gittinger <cg@exept.de> parents: 663 diff changeset	8212	(v ~~ #Error) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8213	(v isMemberOf:VariableNode) ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8214	self markVariable:v.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8215	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8216	^ v
663 6c6a20f144ea more syntaxHighlighting Claus Gittinger <cg@exept.de> parents: 660 diff changeset	8217	].
865 580b3f73021b checkin from browser Claus Gittinger <cg@exept.de> parents: 864 diff changeset	8218
687 27565829b5d4 checkin from browser Claus Gittinger <cg@exept.de> parents: 685 diff changeset	8219	pos1 := tokenPosition.
2680 7a4b8c972fb3 changed: #variable Claus Gittinger <cg@exept.de> parents: 2679 diff changeset	8220	pos2 := pos1+tokenName size-1.
864 a716d90fa5a9 better selector marking Claus Gittinger <cg@exept.de> parents: 837 diff changeset	8221	self markUnknownIdentifierFrom:pos1 to:pos2.
664 63d1460e8ee3 checkin from browser Claus Gittinger <cg@exept.de> parents: 663 diff changeset	8222
2108 653ffef8aa51 +allowUndeclared flag Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	8223	parseForCode ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8224	allowUndeclaredVariables ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8225	self
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8226	parseError:'Parser [error]: undeclared variable: ',tokenName
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8227	position:pos1 to:pos2.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8228	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8229	v := self correctVariable:tokenName atPosition:pos1 to:pos2.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8230	(v ~~ #Error) ifTrue:[^ v].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8231
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8232	self errorFlag:true.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8233
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8234	tokenName first isLowercase ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8235	parserFlags implicitSelfSends ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8236	^ UnaryNode receiver:(self selfNode) selector:('__' , tokenName) asSymbol.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8237	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8238	^ #Error
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8239	]
2108 653ffef8aa51 +allowUndeclared flag Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	8240	] ifFalse:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8241	self rememberGlobalUsed:(Smalltalk undeclaredPrefix) , tokenName.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8242	self rememberGlobalUsed:tokenName.
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	8243	].
865 580b3f73021b checkin from browser Claus Gittinger <cg@exept.de> parents: 864 diff changeset	8244
869 c483b1e6a0c3 checkin from browser Claus Gittinger <cg@exept.de> parents: 866 diff changeset	8245	"/ self markGlobalIdentifierFrom:pos1 to:pos2.
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	8246	^ (VariableNode globalNamed:tokenName)
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8247	startPosition: pos1 endPosition: (pos1 + tokenName size - 1)
454 00a079c9832f handle uses: usedNameSpace info Claus Gittinger <cg@exept.de> parents: 451 diff changeset	8248
2679 7f868d5843cd Fixes in start/endPosition for Variable node Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2671 diff changeset	8249	"Modified: / 25-08-2011 / 11:57:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2680 7a4b8c972fb3 changed: #variable Claus Gittinger <cg@exept.de> parents: 2679 diff changeset	8250	"Modified: / 04-09-2011 / 07:34:57 / cg"
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	8251	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	8252
0 7ad01559b262 Initial revision claus parents: diff changeset	8253	variableOrError
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	8254	"parse a simple (i.e. non-namespace-access path) variable;
1028 cbdce68d87f6 fixed qualifiedName parsing Claus Gittinger <cg@exept.de> parents: 1025 diff changeset	8255	return a node-tree, nil or #Error.
cbdce68d87f6 fixed qualifiedName parsing Claus Gittinger <cg@exept.de> parents: 1025 diff changeset	8256	Does not advance to next token."
0 7ad01559b262 Initial revision claus parents: diff changeset	8257
21 338c3cfeffbf * empty log message * claus parents: 20 diff changeset	8258	^ self variableOrError:tokenName
338c3cfeffbf * empty log message * claus parents: 20 diff changeset	8259	!
338c3cfeffbf * empty log message * claus parents: 20 diff changeset	8260
338c3cfeffbf * empty log message * claus parents: 20 diff changeset	8261	variableOrError:varName
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	8262	"parse a simple (i.e. non-namespace-access path) variable;
1028 cbdce68d87f6 fixed qualifiedName parsing Claus Gittinger <cg@exept.de> parents: 1025 diff changeset	8263	return a node-tree, nil or #Error.
cbdce68d87f6 fixed qualifiedName parsing Claus Gittinger <cg@exept.de> parents: 1025 diff changeset	8264	Does not advance to next token."
21 338c3cfeffbf * empty log message * claus parents: 20 diff changeset	8265
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	8266	\|varIndex aClass searchBlock args vars
2062 c37a1f2d69a5 moreSharedPools Claus Gittinger <cg@exept.de> parents: 2060 diff changeset	8267	tokenSymbol space classVarIndex holder node
c37a1f2d69a5 moreSharedPools Claus Gittinger <cg@exept.de> parents: 2060 diff changeset	8268	checkSharedPoolAction\|
c37a1f2d69a5 moreSharedPools Claus Gittinger <cg@exept.de> parents: 2060 diff changeset	8269
c37a1f2d69a5 moreSharedPools Claus Gittinger <cg@exept.de> parents: 2060 diff changeset	8270	checkSharedPoolAction :=
3236 a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8271	[:eachPoolName \|
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8272	\|sharedPool\|
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8273
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8274	sharedPool := Smalltalk classNamed:eachPoolName.
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8275	sharedPool isNil ifTrue:[
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8276	Transcript showCR:'No such pool: ' , eachPoolName.
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8277	"/ self warning:('No such pool: ' , eachPoolName).
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8278	] ifFalse:[
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8279	(sharedPool includesKey:varName) ifTrue:[
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8280	parseForCode ifFalse:[self rememberGlobalUsed:(sharedPool name , ':' , varName)].
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8281	^ (VariableNode type:#PoolVariable class:sharedPool name:varName)
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8282	startPosition: tokenPosition endPosition: tokenPosition + varName size - 1
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8283	].
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8284	].
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8285	].
0 7ad01559b262 Initial revision claus parents: diff changeset	8286
7ad01559b262 Initial revision claus parents: diff changeset	8287	"is it a block-arg or block-var ?"
7ad01559b262 Initial revision claus parents: diff changeset	8288	searchBlock := currentBlock.
7ad01559b262 Initial revision claus parents: diff changeset	8289	[searchBlock notNil] whileTrue:[
3236 a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8290	vars := searchBlock variables.
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8291	vars notNil ifTrue:[
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8292	varIndex := vars findFirst:[:aBlockVar \| aBlockVar name = varName].
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8293	varIndex ~~ 0 ifTrue:[
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8294	^ (VariableNode type:#BlockVariable
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8295	name:varName
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8296	token:(vars at:varIndex)
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8297	index:varIndex
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8298	block:searchBlock
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8299	from:currentBlock)
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8300	startPosition: tokenPosition endPosition: tokenPosition + varName size - 1
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8301	].
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8302	].
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8303
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8304	args := searchBlock arguments.
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8305	args notNil ifTrue:[
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8306	varIndex := args findFirst:[:aBlockArg \| aBlockArg name = varName].
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8307	varIndex ~~ 0 ifTrue:[
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8308	^ (VariableNode type:#BlockArg
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8309	name:varName
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8310	token:(args at:varIndex)
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8311	index:varIndex
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8312	block:searchBlock
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8313	from:currentBlock)
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8314	startPosition: tokenPosition endPosition: tokenPosition + varName size - 1
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8315	].
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8316
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8317	].
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8318
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8319	searchBlock := searchBlock home
0 7ad01559b262 Initial revision claus parents: diff changeset	8320	].
7ad01559b262 Initial revision claus parents: diff changeset	8321
7ad01559b262 Initial revision claus parents: diff changeset	8322	"is it a method-variable ?"
1309 f85561a7b90e preps for nonDeterministic and FD variables. Claus Gittinger <cg@exept.de> parents: 1306 diff changeset	8323	(node := self nodeForMethodVariable:varName) notNil
f85561a7b90e preps for nonDeterministic and FD variables. Claus Gittinger <cg@exept.de> parents: 1306 diff changeset	8324	ifTrue:[
3236 a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8325	^ node
0 7ad01559b262 Initial revision claus parents: diff changeset	8326	].
7ad01559b262 Initial revision claus parents: diff changeset	8327
7ad01559b262 Initial revision claus parents: diff changeset	8328	"is it a method-argument ?"
1309 f85561a7b90e preps for nonDeterministic and FD variables. Claus Gittinger <cg@exept.de> parents: 1306 diff changeset	8329	(node := self nodeForMethodArg:varName) notNil
f85561a7b90e preps for nonDeterministic and FD variables. Claus Gittinger <cg@exept.de> parents: 1306 diff changeset	8330	ifTrue:[
3236 a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8331	^ node
0 7ad01559b262 Initial revision claus parents: diff changeset	8332	].
7ad01559b262 Initial revision claus parents: diff changeset	8333
640 c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame) Claus Gittinger <cg@exept.de> parents: 637 diff changeset	8334	contextToEvaluateIn notNil ifTrue:[
3236 a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8335	\|con varNames\|
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8336
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8337	"/
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8338	"/ search names of the context.
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8339	"/
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8340	con := contextToEvaluateIn.
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8341	[con notNil] whileTrue:[
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8342	varNames := con argAndVarNames.
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8343	varNames size > 0 ifTrue:[
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8344	varIndex := varNames lastIndexOf:varName.
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8345	varIndex ~~ 0 ifTrue:[
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8346	^ (VariableNode
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8347	type:#ContextVariable
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8348	name:varName
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8349	context:con
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8350	index:varIndex)
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8351	startPosition: tokenPosition endPosition: tokenPosition + varName size - 1
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8352	].
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8353	].
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8354	con := con home.
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8355	].
640 c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame) Claus Gittinger <cg@exept.de> parents: 637 diff changeset	8356	].
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame) Claus Gittinger <cg@exept.de> parents: 637 diff changeset	8357
0 7ad01559b262 Initial revision claus parents: diff changeset	8358	classToCompileFor notNil ifTrue:[
3236 a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8359	"is it an instance-variable ?"
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8360
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8361	varIndex := (self classesInstVarNames) lastIndexOf:varName.
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8362	varIndex ~~ 0 ifTrue:[
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8363	classToCompileFor isMeta ifTrue:[
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8364	classVarIndex := (self classesClassVarNames) lastIndexOf:varName.
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8365	classVarIndex ~~ 0 ifTrue:[
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8366
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8367	"/ give a warning - that maybe a common error
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8368	alreadyWarnedClassInstVarRefs isNil ifTrue:[
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8369	alreadyWarnedClassInstVarRefs := Set new
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8370	].
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8371	(alreadyWarnedClassInstVarRefs includes:varName) ifFalse:[
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8372	self warning:('there is both a class variable and a class-instance variable named "%1" (in %2).\\Refering to the class-instance variable here.' withCRs
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8373	bindWith:varName with:(self whichClassIncludesClassVar:varName) name).
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8374	alreadyWarnedClassInstVarRefs add:varName.
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8375	].
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8376	].
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8377	].
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8378	parseForCode ifFalse:[self rememberInstVarUsed:varName].
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8379	^ (VariableNode
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8380	type:#InstanceVariable
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8381	name:varName
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8382	index:varIndex
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8383	selfValue:selfValue)
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8384	startPosition: tokenPosition endPosition: tokenPosition + varName size - 1
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8385	].
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8386
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8387	"/ see if there is a corresponding classVar (for the warning)
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8388	classVarIndex := (self classesClassVarNames) lastIndexOf:varName.
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8389
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8390	"/ "is it a class-instance-variable ?"
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8391	"/
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8392	"/ Notice:
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8393	"/ it is no longer allowed to fetch class-instance variables
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8394	"/ from instance methods ...
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8395	"/ (used to be in previous ST/X versions)
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8396	"/
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8397	varIndex := (self classesClassInstVarNames) lastIndexOf:varName.
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8398	varIndex ~~ 0 ifTrue:[
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8399	aClass := self inWhichClassIsClassInstVar:varName.
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8400	aClass notNil ifTrue:[
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8401	classToCompileFor isMeta ifFalse:[
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8402	classVarIndex == 0 ifTrue:[
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8403	"/ there is no corresponding classVar;
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8404	"/ wants to access classInstVar ?
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8405	contextToEvaluateIn notNil ifTrue:[
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8406	"/ allow it in a doIt ...
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8407
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8408	^ (VariableNode type:#ClassInstanceVariable
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8409	name:varName
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8410	index:varIndex
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8411	selfClass:aClass)
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8412	startPosition: tokenPosition endPosition: tokenPosition + varName size - 1
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8413	].
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8414	self parseError:'access to class-inst-var from inst method is not allowed'.
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8415	^ #Error.
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8416	] ifFalse:[
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8417	"/ give a warning - that maybe a common error
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8418	self warning:('there is both a class variable and a class-instance variable named ''' , varName , '''.\\Refering to the class variable here (instMethods dont see classInstVars).') withCRs.
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8419	]
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8420	].
628 54fa351ac6be * empty log message * Claus Gittinger <cg@exept.de> parents: 624 diff changeset	8421
54fa351ac6be * empty log message * Claus Gittinger <cg@exept.de> parents: 624 diff changeset	8422	"/ OLD CODE:
54fa351ac6be * empty log message * Claus Gittinger <cg@exept.de> parents: 624 diff changeset	8423	"/ self warning:'access to class-inst-var from inst method will soon be no longer supported'.
443 e7d0bad68d60 oops - previous versions allowed access to class-instance variables Claus Gittinger <cg@exept.de> parents: 432 diff changeset	8424	"/
628 54fa351ac6be * empty log message * Claus Gittinger <cg@exept.de> parents: 624 diff changeset	8425	"/ parseForCode ifFalse:[self rememberClassVarUsed:varName].
54fa351ac6be * empty log message * Claus Gittinger <cg@exept.de> parents: 624 diff changeset	8426	"/ ^ VariableNode type:#ClassInstanceVariable
54fa351ac6be * empty log message * Claus Gittinger <cg@exept.de> parents: 624 diff changeset	8427	"/ name:varName
640 c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame) Claus Gittinger <cg@exept.de> parents: 637 diff changeset	8428	"/ index:varIndex
628 54fa351ac6be * empty log message * Claus Gittinger <cg@exept.de> parents: 624 diff changeset	8429	"/ selfClass:aClass
54fa351ac6be * empty log message * Claus Gittinger <cg@exept.de> parents: 624 diff changeset	8430	"/ ].
3236 a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8431	] ifFalse:[
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8432	"/ self halt:'oops - should not happen'.
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8433	]
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8434	].
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8435
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8436	"is it a class-variable ?"
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8437
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8438	varIndex := classVarIndex.
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8439	varIndex ~~ 0 ifTrue:[
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8440	aClass := self inWhichClassIsClassVar:varName.
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8441	aClass notNil ifTrue:[
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8442	parseForCode ifFalse:[self rememberClassVarUsed:varName].
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8443	^ (VariableNode type:#ClassVariable class:aClass name:varName)
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8444	startPosition: tokenPosition endPosition: tokenPosition + varName size - 1
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8445	].
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8446	"/ self halt:'oops - should not happen'.
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8447	].
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8448
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8449	"is it a private-class ?"
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8450
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8451	aClass := self classToLookForClassVars.
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8452	aClass := aClass theNonMetaclass.
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8453	aClass isLoaded ifTrue:[
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8454	(aClass privateClassesAt:varName) notNil ifTrue:[
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8455	parseForCode ifFalse:[self rememberGlobalUsed:(aClass name , '::' , varName)].
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8456	^ (VariableNode type:#PrivateClass class:aClass name:varName)
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8457	startPosition: tokenPosition endPosition: tokenPosition + varName size - 1
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8458	].
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8459	].
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8460
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8461	" is it a pool-variable ?"
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8462	classToCompileFor theNonMetaclass realSharedPoolNames do:checkSharedPoolAction.
2062 c37a1f2d69a5 moreSharedPools Claus Gittinger <cg@exept.de> parents: 2060 diff changeset	8463	].
c37a1f2d69a5 moreSharedPools Claus Gittinger <cg@exept.de> parents: 2060 diff changeset	8464
c37a1f2d69a5 moreSharedPools Claus Gittinger <cg@exept.de> parents: 2060 diff changeset	8465	(self isDoIt) ifTrue:[
3236 a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8466	moreSharedPools notNil ifTrue:[
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8467	moreSharedPools do:checkSharedPoolAction.
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8468	].
418 6a3d240e7db6 namespace support Claus Gittinger <cg@exept.de> parents: 412 diff changeset	8469	].
6a3d240e7db6 namespace support Claus Gittinger <cg@exept.de> parents: 412 diff changeset	8470
455 2e234d3bc96d fixed parsing of private classes within a nameSpace Claus Gittinger <cg@exept.de> parents: 454 diff changeset	8471	"is it in a namespace ?"
2e234d3bc96d fixed parsing of private classes within a nameSpace Claus Gittinger <cg@exept.de> parents: 454 diff changeset	8472	space := self findNameSpaceWith:varName.
2e234d3bc96d fixed parsing of private classes within a nameSpace Claus Gittinger <cg@exept.de> parents: 454 diff changeset	8473	space notNil ifTrue:[
3236 a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8474	space ~~ Smalltalk ifTrue:[
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8475	parseForCode ifFalse:[self rememberGlobalUsed:(space name , '::' , varName)].
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8476	space isNameSpace ifTrue:[
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8477	^ (VariableNode globalNamed:(space name , '::' , varName))
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8478	startPosition: tokenPosition endPosition: tokenPosition + varName size - 1
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8479	].
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8480	^ (VariableNode type:#PrivateClass class:space name:varName)
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8481	startPosition: tokenPosition endPosition: tokenPosition + varName size -1
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8482	].
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8483	parseForCode ifFalse:[self rememberGlobalUsed:varName].
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8484	^ (VariableNode globalNamed:varName) startPosition: tokenPosition endPosition: tokenPosition + varName size - 1
454 00a079c9832f handle uses: usedNameSpace info Claus Gittinger <cg@exept.de> parents: 451 diff changeset	8485	].
00a079c9832f handle uses: usedNameSpace info Claus Gittinger <cg@exept.de> parents: 451 diff changeset	8486
0 7ad01559b262 Initial revision claus parents: diff changeset	8487	"is it a global-variable ?"
63 c30ce56de7a8 * empty log message * claus parents: 62 diff changeset	8488	tokenSymbol := varName asSymbolIfInterned.
c30ce56de7a8 * empty log message * claus parents: 62 diff changeset	8489	tokenSymbol notNil ifTrue:[
3236 a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8490	(Smalltalk includesKey:tokenSymbol) ifTrue:[
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8491	parseForCode ifFalse:[self rememberGlobalUsed:varName].
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8492	^ (VariableNode globalNamed:tokenSymbol) startPosition: tokenPosition endPosition: tokenPosition + varName size - 1
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8493	]
0 7ad01559b262 Initial revision claus parents: diff changeset	8494	].
358 78b0d8954c49 removed possible conflict between #classVarNames here and in Class. Claus Gittinger <cg@exept.de> parents: 354 diff changeset	8495
877 e75488a39c46 workspace variables. Claus Gittinger <cg@exept.de> parents: 869 diff changeset	8496	"is it a workspace variable ?"
e75488a39c46 workspace variables. Claus Gittinger <cg@exept.de> parents: 869 diff changeset	8497	(requestor notNil and:[requestor isStream not]) ifTrue:[
3236 a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8498	"/ when parsing doits, this is done twice;
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8499	"/ first, for the parse, then as a block-code
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8500	"/ for the code.
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8501	"/ We only care for WorkspaceVars in doIts
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8502	(self isDoIt) ifTrue:[
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8503	(Workspace notNil
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8504	and:[(holder := Workspace workspaceVariableAt:varName) notNil])
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8505	ifTrue:[
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8506	^ (VariableNode type:#WorkspaceVariable holder:holder name:varName)
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8507	startPosition: tokenPosition endPosition: tokenPosition + varName size - 1
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8508	]
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8509	]
877 e75488a39c46 workspace variables. Claus Gittinger <cg@exept.de> parents: 869 diff changeset	8510	].
1295 8d3e193bb30d experimental lazyValues Claus Gittinger <cg@exept.de> parents: 1286 diff changeset	8511	"is it a doIt variable ?"
8d3e193bb30d experimental lazyValues Claus Gittinger <cg@exept.de> parents: 1286 diff changeset	8512
8d3e193bb30d experimental lazyValues Claus Gittinger <cg@exept.de> parents: 1286 diff changeset	8513	"/ (requestor notNil and:[requestor isStream not]) ifTrue:[
3236 a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8514	"/ when parsing doits, this is done twice;
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8515	"/ first, for the parse, then as a block-code
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8516	"/ for the code.
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8517	"/ We only care for WorkspaceVars in doIts
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8518
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8519	(self isDoIt) ifTrue:[
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8520	(doItTemporaries notNil
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8521	and:[(holder := doItTemporaries at:varName asSymbol ifAbsent:nil) notNil])
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8522	ifTrue:[
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8523	^ (VariableNode type:#DoItTemporary holder:holder name:varName)
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8524	startPosition: tokenPosition endPosition: tokenPosition + varName size - 1
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8525	]
a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8526	].
1295 8d3e193bb30d experimental lazyValues Claus Gittinger <cg@exept.de> parents: 1286 diff changeset	8527	"/ ].
0 7ad01559b262 Initial revision claus parents: diff changeset	8528	^ #Error
1907 ffaa6fba267f * empty log message * Claus Gittinger <cg@exept.de> parents: 1901 diff changeset	8529
2468 421fb68c9689 changed: #variableOrError: Claus Gittinger <cg@exept.de> parents: 2463 diff changeset	8530	"Modified: / 18-01-2011 / 18:02:32 / cg"
2679 7f868d5843cd Fixes in start/endPosition for Variable node Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2671 diff changeset	8531	"Modified: / 25-08-2011 / 13:53:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2743 3d6ae861426a added: #whichClassIncludesClassVar: az parents: 2736 diff changeset	8532	"Modified: / 05-10-2011 / 15:25:20 / az"
3236 a18d2c543556 class: Parser Claus Gittinger <cg@exept.de> parents: 3234 diff changeset	8533	"Modified (format): / 27-07-2013 / 17:37:53 / cg"
455 2e234d3bc96d fixed parsing of private classes within a nameSpace Claus Gittinger <cg@exept.de> parents: 454 diff changeset	8534	! !
2e234d3bc96d fixed parsing of private classes within a nameSpace Claus Gittinger <cg@exept.de> parents: 454 diff changeset	8535
1410 e93635fe8c40 pragma & ffi stuff Claus Gittinger <cg@exept.de> parents: 1407 diff changeset	8536	!Parser methodsFor:'parsing-primitives & pragmas'!
e93635fe8c40 pragma & ffi stuff Claus Gittinger <cg@exept.de> parents: 1407 diff changeset	8537
1420 57f3f5c8a070 more for exotic primitives/pragmas Claus Gittinger <cg@exept.de> parents: 1419 diff changeset	8538	checkForClosingAngle
57f3f5c8a070 more for exotic primitives/pragmas Claus Gittinger <cg@exept.de> parents: 1419 diff changeset	8539	((tokenType == #BinaryOperator) and:[tokenName = '>']) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8540	self nextToken.
1420 57f3f5c8a070 more for exotic primitives/pragmas Claus Gittinger <cg@exept.de> parents: 1419 diff changeset	8541	] ifFalse:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8542	self parseError:'bad primitive definition (''>'' expected)'.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8543	self skipForClosingAngle.
1420 57f3f5c8a070 more for exotic primitives/pragmas Claus Gittinger <cg@exept.de> parents: 1419 diff changeset	8544	]
57f3f5c8a070 more for exotic primitives/pragmas Claus Gittinger <cg@exept.de> parents: 1419 diff changeset	8545	!
57f3f5c8a070 more for exotic primitives/pragmas Claus Gittinger <cg@exept.de> parents: 1419 diff changeset	8546
2188 61697f2ad11d some wellknown predefined types added to vw-ctypes Claus Gittinger <cg@exept.de> parents: 2187 diff changeset	8547	defineWellknownCTypesIn:aDictionary
61697f2ad11d some wellknown predefined types added to vw-ctypes Claus Gittinger <cg@exept.de> parents: 2187 diff changeset	8548	"/ a few wellknown types
61697f2ad11d some wellknown predefined types added to vw-ctypes Claus Gittinger <cg@exept.de> parents: 2187 diff changeset	8549
61697f2ad11d some wellknown predefined types added to vw-ctypes Claus Gittinger <cg@exept.de> parents: 2187 diff changeset	8550	aDictionary at:#'BOOL' put:(CType typedef:CType bool name:'BOOL').
61697f2ad11d some wellknown predefined types added to vw-ctypes Claus Gittinger <cg@exept.de> parents: 2187 diff changeset	8551	aDictionary at:#'UINT' put:(CType typedef:CType unsignedInt name:'UINT').
61697f2ad11d some wellknown predefined types added to vw-ctypes Claus Gittinger <cg@exept.de> parents: 2187 diff changeset	8552	aDictionary at:#'LONG' put:(CType typedef:CType long name:'LONG').
61697f2ad11d some wellknown predefined types added to vw-ctypes Claus Gittinger <cg@exept.de> parents: 2187 diff changeset	8553	aDictionary at:#'DWORD' put:(CType typedef:CType int name:'DWORD').
61697f2ad11d some wellknown predefined types added to vw-ctypes Claus Gittinger <cg@exept.de> parents: 2187 diff changeset	8554	aDictionary at:#'HANDLE' put:(CType typedef:CType voidPointer name:'HANDLE').
61697f2ad11d some wellknown predefined types added to vw-ctypes Claus Gittinger <cg@exept.de> parents: 2187 diff changeset	8555	aDictionary at:#'HWND' put:(CType typedef:CType voidPointer name:'HWND') .
61697f2ad11d some wellknown predefined types added to vw-ctypes Claus Gittinger <cg@exept.de> parents: 2187 diff changeset	8556	"/ aDictionary at:#'HPALETTE' put:(CType typedef:CType voidPointer name:'HPALETTE') .
61697f2ad11d some wellknown predefined types added to vw-ctypes Claus Gittinger <cg@exept.de> parents: 2187 diff changeset	8557	!
61697f2ad11d some wellknown predefined types added to vw-ctypes Claus Gittinger <cg@exept.de> parents: 2187 diff changeset	8558
1817 a46b6c33237f * empty log message * ca parents: 1816 diff changeset	8559	generateCallToExternalFunction:fn lineNr:lineNr
a46b6c33237f * empty log message * ca parents: 1816 diff changeset	8560	\|args sel node\|
a46b6c33237f * empty log message * ca parents: 1816 diff changeset	8561
2041 ff97935254cf Make <ole:> work - mazbe other suff breaks now... fm parents: 2040 diff changeset	8562	fn argumentTypes size ~~ (methodArgNames size
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8563	"the following stuff was commented (2007-07-30), to make ole: work.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8564	Ask felix or stefan"
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8565	" + (fn isCPPFunction ifTrue:1 ifFalse:0)") ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8566	self
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8567	ignorableParseError:('Number of method args (%1) does not match function arg list (ST/V api call)'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8568	bindWith: methodArgNames size).
1817 a46b6c33237f * empty log message * ca parents: 1816 diff changeset	8569	].
a46b6c33237f * empty log message * ca parents: 1816 diff changeset	8570
a46b6c33237f * empty log message * ca parents: 1816 diff changeset	8571	args := (methodArgNames ? #()) collect:[:eachArgName \| self nodeForMethodArg:eachArgName].
a46b6c33237f * empty log message * ca parents: 1816 diff changeset	8572	fn isVirtualCPP ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8573	sel := #(
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8574	invokeCPPVirtualOn:
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8575	invokeCPPVirtualOn:with:
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8576	invokeCPPVirtualOn:with:with:
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8577	invokeCPPVirtualOn:with:with:with:
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8578	) at:args size+1 ifAbsent:nil.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8579	sel isNil ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8580	args := Array with:(self selfNode) with:(self genMakeArrayWith:args).
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8581	sel := #invokeCPPVirtualOn:withArguments:.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8582	] ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8583	args := (Array with:(self selfNode)) , args.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8584	].
1817 a46b6c33237f * empty log message * ca parents: 1816 diff changeset	8585	] ifFalse:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8586	fn isNonVirtualCPP ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8587	args := (Array with:(self selfNode)) , args
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8588	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8589	sel := #(
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8590	invoke
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8591	invokeWith:
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8592	invokeWith:with:
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8593	invokeWith:with:with:
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8594	) at:args size+1 ifAbsent:nil.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8595	sel isNil ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8596	args := Array with:(self genMakeArrayWith:args).
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8597	sel := #invokeWithArguments:.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8598	].
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	8599	].
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	8600
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	8601	node := MessageNode
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8602	receiver:(ConstantNode type:nil value:fn)
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8603	selector:sel
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8604	args:args
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8605	fold:false.
1817 a46b6c33237f * empty log message * ca parents: 1816 diff changeset	8606	node lineNumber:lineNr.
3045 8c1c52abd3cf class: Parser Claus Gittinger <cg@exept.de> parents: 3040 diff changeset	8607	tree := ReturnNode expression:node.
1817 a46b6c33237f * empty log message * ca parents: 1816 diff changeset	8608	tree lineNumber:lineNr.
a46b6c33237f * empty log message * ca parents: 1816 diff changeset	8609
a46b6c33237f * empty log message * ca parents: 1816 diff changeset	8610	"Created: / 01-08-2006 / 13:47:44 / cg"
1937 ba58036b48db comments & method rename Claus Gittinger <cg@exept.de> parents: 1936 diff changeset	8611	"Modified: / 25-10-2006 / 11:28:21 / cg"
1817 a46b6c33237f * empty log message * ca parents: 1816 diff changeset	8612	!
a46b6c33237f * empty log message * ca parents: 1816 diff changeset	8613
2051 91c2cbbfcacd c: #define added Claus Gittinger <cg@exept.de> parents: 2050 diff changeset	8614	generateReturnOfValue:aValue
1741 467d7120e6bd c-call parsing Claus Gittinger <cg@exept.de> parents: 1739 diff changeset	8615	\|node\|
467d7120e6bd c-call parsing Claus Gittinger <cg@exept.de> parents: 1739 diff changeset	8616
2051 91c2cbbfcacd c: #define added Claus Gittinger <cg@exept.de> parents: 2050 diff changeset	8617	node := ConstantNode type:nil value:aValue.
1741 467d7120e6bd c-call parsing Claus Gittinger <cg@exept.de> parents: 1739 diff changeset	8618	node lineNumber:tokenLineNr.
3045 8c1c52abd3cf class: Parser Claus Gittinger <cg@exept.de> parents: 3040 diff changeset	8619	tree := ReturnNode expression:node.
1946 7d7c1dc9fa5f care for lineNumbers in Return statements. Claus Gittinger <cg@exept.de> parents: 1944 diff changeset	8620	tree lineNumber:tokenLineNr.
2388 69e82fe32b8c changed: Claus Gittinger <cg@exept.de> parents: 2386 diff changeset	8621	tree startPosition:tokenPosition.
1946 7d7c1dc9fa5f care for lineNumbers in Return statements. Claus Gittinger <cg@exept.de> parents: 1944 diff changeset	8622
7d7c1dc9fa5f care for lineNumbers in Return statements. Claus Gittinger <cg@exept.de> parents: 1944 diff changeset	8623	"Modified: / 16-11-2006 / 14:36:35 / cg"
1741 467d7120e6bd c-call parsing Claus Gittinger <cg@exept.de> parents: 1739 diff changeset	8624	!
467d7120e6bd c-call parsing Claus Gittinger <cg@exept.de> parents: 1739 diff changeset	8625
1764 a95475f1f456 * empty log message * Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	8626	generateTrapCodeForUnavailableCParser
a95475f1f456 * empty log message * Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	8627	\|args node\|
a95475f1f456 * empty log message * Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	8628
a95475f1f456 * empty log message * Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	8629	self ignorableParseError:'CParser Missing'.
a95475f1f456 * empty log message * Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	8630
a95475f1f456 * empty log message * Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	8631	args := Array with:(ConstantNode type:nil value:'External function call error - CParser missing.').
a95475f1f456 * empty log message * Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	8632	node := MessageNode receiver:(self selfNode) selector:#error: args:args fold:false.
a95475f1f456 * empty log message * Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	8633	node lineNumber:lineNr.
3045 8c1c52abd3cf class: Parser Claus Gittinger <cg@exept.de> parents: 3040 diff changeset	8634	tree := ReturnNode expression:node.
1764 a95475f1f456 * empty log message * Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	8635	tree lineNumber:lineNr.
a95475f1f456 * empty log message * Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	8636	^ -1
a95475f1f456 * empty log message * Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	8637
a95475f1f456 * empty log message * Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	8638	"Created: / 21-06-2006 / 09:58:43 / cg"
a95475f1f456 * empty log message * Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	8639	!
a95475f1f456 * empty log message * Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	8640
2511 5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8641	parseAnotationLiteral
5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8642	\|value\|
5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8643
5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8644	(((tokenType == #String) or: [(tokenType == #Integer)] or: [(tokenType == #True)] or: [(tokenType == #False)] or: [(tokenType == #Nil)])
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8645	or: [(tokenType == #Symbol)] or:[(tokenType == #Character)]) ifTrue: [
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8646	value := tokenValue.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8647	self nextToken.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8648	^ value.
2511 5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8649	].
5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8650
5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8651	(tokenType == #Identifier) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8652	value := tokenName asSymbol.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8653	self nextToken.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8654	^ value.
2511 5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8655	].
5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8656
5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8657	"
5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8658	(tokenType == #Keyword) ifTrue: [
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8659	value := '#', tokenName.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8660	self nextToken.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8661	^ value.
2511 5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8662	].
5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8663	"
5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8664
5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8665	((tokenType == $() or:[tokenType == #HashLeftParen]) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8666	self nextToken.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8667	value := self array.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8668	self nextToken.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8669	^ value.
2511 5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8670	].
5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8671
5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8672	((tokenType == $[) or:[tokenType == #HashLeftBrack]) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8673	self nextToken.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8674	value := self byteArray.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8675	self nextToken.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8676	^value.
2511 5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8677	].
5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8678	^ #Error
5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8679
5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8680	"Created: / 12-11-2009 / 14:08:29 / Jan Travnicek <travnja3@fel.cvut.cz>"
5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8681	"Modified: / 15-12-2009 / 14:01:42 / Jan Travnicek <travnja3@fel.cvut.cz>"
5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8682	"Modified: / 12-07-2010 / 10:07:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8683	!
5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8684
2093 b6b27c9c4d26 remember already warned unimplemented selectors; Claus Gittinger <cg@exept.de> parents: 2090 diff changeset	8685	parseExceptionOrContextPragma
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	8686	"parse
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8687	<exception: #handle\|raise\|unwind>,
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8688	<context: #return>
2136 a6e7c3c43870 comment Claus Gittinger <cg@exept.de> parents: 2132 diff changeset	8689	context flagging pragmas."
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	8690
2093 b6b27c9c4d26 remember already warned unimplemented selectors; Claus Gittinger <cg@exept.de> parents: 2090 diff changeset	8691	\|pragmaType\|
b6b27c9c4d26 remember already warned unimplemented selectors; Claus Gittinger <cg@exept.de> parents: 2090 diff changeset	8692
b6b27c9c4d26 remember already warned unimplemented selectors; Claus Gittinger <cg@exept.de> parents: 2090 diff changeset	8693	"/ notice: '<' has already been parsed.
b6b27c9c4d26 remember already warned unimplemented selectors; Claus Gittinger <cg@exept.de> parents: 2090 diff changeset	8694	pragmaType := tokenName.
b6b27c9c4d26 remember already warned unimplemented selectors; Claus Gittinger <cg@exept.de> parents: 2090 diff changeset	8695	self nextToken.
b6b27c9c4d26 remember already warned unimplemented selectors; Claus Gittinger <cg@exept.de> parents: 2090 diff changeset	8696	(tokenType ~~ #Symbol) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8697	self parseError:'symbol expected'.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8698	^ #Error
2093 b6b27c9c4d26 remember already warned unimplemented selectors; Claus Gittinger <cg@exept.de> parents: 2090 diff changeset	8699	].
2563 7a9c41b4a1dc added: Claus Gittinger <cg@exept.de> parents: 2543 diff changeset	8700	(pragmaType = 'context:') ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8701	(tokenValue == #return) ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8702	self rememberContextReturnablePragma
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8703	] ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8704	self parseError:'unrecognized context pragma: ' , tokenValue.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8705	].
2563 7a9c41b4a1dc added: Claus Gittinger <cg@exept.de> parents: 2543 diff changeset	8706	].
7a9c41b4a1dc added: Claus Gittinger <cg@exept.de> parents: 2543 diff changeset	8707
7a9c41b4a1dc added: Claus Gittinger <cg@exept.de> parents: 2543 diff changeset	8708	(pragmaType = 'exception:') ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8709	(tokenValue == #handle
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8710	or:[ tokenValue == #raise
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8711	or:[ tokenValue == #unwind ]]) ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8712	self rememberContextPragma:pragmaType value:tokenValue
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8713	] ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8714	self parseError:'unrecognized exception pragma: ' , tokenValue.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8715	].
2563 7a9c41b4a1dc added: Claus Gittinger <cg@exept.de> parents: 2543 diff changeset	8716	].
7a9c41b4a1dc added: Claus Gittinger <cg@exept.de> parents: 2543 diff changeset	8717
7a9c41b4a1dc added: Claus Gittinger <cg@exept.de> parents: 2543 diff changeset	8718	annotations := annotations copyWith:{ pragmaType asSymbol . { tokenValue }}.
2093 b6b27c9c4d26 remember already warned unimplemented selectors; Claus Gittinger <cg@exept.de> parents: 2090 diff changeset	8719	self nextToken.
2511 5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8720
5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8721	"Modified: / 19-11-2009 / 11:10:04 / Jan Travnicek <travnja3@fel.cvut.cz>"
5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8722	"Modified: / 01-07-2010 / 12:33:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2563 7a9c41b4a1dc added: Claus Gittinger <cg@exept.de> parents: 2543 diff changeset	8723	"Modified: / 15-07-2011 / 08:16:03 / cg"
2093 b6b27c9c4d26 remember already warned unimplemented selectors; Claus Gittinger <cg@exept.de> parents: 2090 diff changeset	8724	!
b6b27c9c4d26 remember already warned unimplemented selectors; Claus Gittinger <cg@exept.de> parents: 2090 diff changeset	8725
1551 29f4971331f9 c-callout; ca parents: 1548 diff changeset	8726	parseExternalFunctionCallDeclaration
2262 82e1879fe7ed comment/format in: Stefan Vogel <sv@exept.de> parents: 2261 diff changeset	8727	\|callType cString cStream dictionaryOfKnownTypes lineNr\|
1741 467d7120e6bd c-call parsing Claus Gittinger <cg@exept.de> parents: 1739 diff changeset	8728
467d7120e6bd c-call parsing Claus Gittinger <cg@exept.de> parents: 1739 diff changeset	8729	"callType is one of c: / cdecl: / api: / apicall: ..."
467d7120e6bd c-call parsing Claus Gittinger <cg@exept.de> parents: 1739 diff changeset	8730	callType := tokenName asLowercase.
467d7120e6bd c-call parsing Claus Gittinger <cg@exept.de> parents: 1739 diff changeset	8731	lineNr := tokenLineNr.
1410 e93635fe8c40 pragma & ffi stuff Claus Gittinger <cg@exept.de> parents: 1407 diff changeset	8732	cString := source upTo:$>.
e93635fe8c40 pragma & ffi stuff Claus Gittinger <cg@exept.de> parents: 1407 diff changeset	8733	self nextToken.
2511 5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8734	parseForCode ifFalse:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8735	^ -1
2511 5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8736	].
1764 a95475f1f456 * empty log message * Claus Gittinger <cg@exept.de> parents: 1762 diff changeset	8737	CParser notNil ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8738	dictionaryOfKnownTypes := Dictionary new.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8739
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8740	"/ a few wellknown types
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8741
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8742	self defineWellknownCTypesIn:dictionaryOfKnownTypes.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8743
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8744	"/ collect existing types...
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8745
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8746	classToCompileFor
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8747	methodsDo:[:m \|
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8748	m
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8749	literalsDo:[:lit \|
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8750	(lit isKindOf:CType) ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8751	self assert:lit name notNil.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8752	dictionaryOfKnownTypes at:lit name put:lit.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8753	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8754	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8755	].
2511 5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8756	].
1741 467d7120e6bd c-call parsing Claus Gittinger <cg@exept.de> parents: 1739 diff changeset	8757	cStream := cString readStream.
2511 5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8758	(#( 'apicall:' 'cdecl:' 'stdcall:' 'virtual' ) includes:callType) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8759	"/ squeak/dolphin/stx external function definition
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8760	annotations := annotations
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8761	copyWith:(Array with:callType asSymbol with:cString).
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8762	self
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8763	parseSTXOrSqueakOrDolphinExternalFunctionDeclarationFrom:cStream
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8764	definitionType:callType
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8765	knownDefinitions:dictionaryOfKnownTypes
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8766	lineNr:lineNr.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8767	^ -1
1741 467d7120e6bd c-call parsing Claus Gittinger <cg@exept.de> parents: 1739 diff changeset	8768	].
467d7120e6bd c-call parsing Claus Gittinger <cg@exept.de> parents: 1739 diff changeset	8769	callType = 'c:' ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8770	"/ VW external function definition
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8771	annotations := annotations
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8772	copyWith:(Array with:callType asSymbol with:cString).
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8773	self
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8774	parseVWTypeOrExternalFunctionDeclarationFrom:cStream
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8775	definitionType:callType
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8776	knownDefinitions:dictionaryOfKnownTypes
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8777	lineNr:lineNr.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8778	^ -1
1741 467d7120e6bd c-call parsing Claus Gittinger <cg@exept.de> parents: 1739 diff changeset	8779	].
467d7120e6bd c-call parsing Claus Gittinger <cg@exept.de> parents: 1739 diff changeset	8780	(callType = 'api:' or:[ callType = 'ole:' ]) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8781	"/ ST/V external function definition
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8782	annotations := annotations
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8783	copyWith:(Array with:callType asSymbol with:cString).
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8784	self
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8785	parseSTVExternalFunctionDeclarationFrom:cStream
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8786	definitionType:callType
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8787	knownDefinitions:dictionaryOfKnownTypes
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8788	lineNr:lineNr.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8789	^ -1
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	8790	].
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	8791	self
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8792	ignorableParseError:'unsupported external function call type: ' , callType.
1410 e93635fe8c40 pragma & ffi stuff Claus Gittinger <cg@exept.de> parents: 1407 diff changeset	8793	^ -1
1551 29f4971331f9 c-callout; ca parents: 1548 diff changeset	8794
29f4971331f9 c-callout; ca parents: 1548 diff changeset	8795	"
29f4971331f9 c-callout; ca parents: 1548 diff changeset	8796	(Parser for:'foo <cdecl: void ''glFlush'' (void) module: ''GL''>')
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8797	nextToken;
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8798	parseMethod"
1937 ba58036b48db comments & method rename Claus Gittinger <cg@exept.de> parents: 1936 diff changeset	8799	"Modified: / 25-10-2006 / 12:03:33 / cg"
2511 5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8800	"Modified: / 19-11-2009 / 11:09:51 / Jan Travnicek <travnja3@fel.cvut.cz>"
5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8801	"Modified: / 01-07-2010 / 12:05:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8802	!
5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8803
2860 95de50137dbe Support for GNU Smalltalk-style FFI calls Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2859 diff changeset	8804	parseGSTExternalFunctionDeclaration: argArray
95de50137dbe Support for GNU Smalltalk-style FFI calls Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2859 diff changeset	8805	"Handles GNU Smalltalk-style exteranl function declarations.
95de50137dbe Support for GNU Smalltalk-style FFI calls Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2859 diff changeset	8806	Example:
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8807	<cCall: 'cairo_close_path' returning: #void args: #(#cObject )>
2860 95de50137dbe Support for GNU Smalltalk-style FFI calls Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2859 diff changeset	8808	"
95de50137dbe Support for GNU Smalltalk-style FFI calls Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2859 diff changeset	8809	\| function \|
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	8810	function := ExternalLibraryFunction
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8811	name:argArray first
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8812	module:nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8813	returnType:argArray second
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8814	argumentTypes:argArray third asArray.
2860 95de50137dbe Support for GNU Smalltalk-style FFI calls Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2859 diff changeset	8815	function beCallTypeC.
95de50137dbe Support for GNU Smalltalk-style FFI calls Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2859 diff changeset	8816	function owningClass:classToCompileFor.
95de50137dbe Support for GNU Smalltalk-style FFI calls Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2859 diff changeset	8817	self generateCallToExternalFunction:function lineNr:lineNr.
95de50137dbe Support for GNU Smalltalk-style FFI calls Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2859 diff changeset	8818
95de50137dbe Support for GNU Smalltalk-style FFI calls Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2859 diff changeset	8819	"Created: / 09-04-2012 / 19:52:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
95de50137dbe Support for GNU Smalltalk-style FFI calls Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2859 diff changeset	8820	!
95de50137dbe Support for GNU Smalltalk-style FFI calls Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2859 diff changeset	8821
2511 5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8822	parseOtherPrimitives
5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8823	\|key value values\|
5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8824
5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8825	key := tokenName.
5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8826	value := true.
5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8827	self nextToken.
5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8828	((tokenType == #BinaryOperator) and:[ tokenName = '>' ]) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8829	annotations := annotations copyWith:(Array with:key asSymbol with:value).
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8830	self nextToken.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8831	^ nil.
2511 5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8832	].
5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8833	value := self parseAnotationLiteral.
5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8834	(value == #Error) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8835	^ #Error.
2511 5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8836	].
5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8837	((tokenType == #BinaryOperator) and:[ tokenName = '>' ]) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8838	annotations := annotations
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8839	copyWith:(Array with:key asSymbol with:(Array with:value)).
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8840	self nextToken.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8841	^ nil.
2511 5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8842	].
5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8843	values := OrderedCollection new:4.
5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8844	values add:value.
5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8845	[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8846	(tokenType == #Keyword or:[ tokenType == #Identifier ])
2511 5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8847	] whileTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8848	key := key , tokenName.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8849	self nextToken.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8850	value := self parseAnotationLiteral.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8851	(value == #Error) ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8852	^ #Error.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8853	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8854	values add:value.
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	8855	].
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	8856	annotations := annotations
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8857	copyWith:(Array with:key asSymbol with:(values asArray)).
2860 95de50137dbe Support for GNU Smalltalk-style FFI calls Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2859 diff changeset	8858
95de50137dbe Support for GNU Smalltalk-style FFI calls Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2859 diff changeset	8859	"JV@2012-04-09: Check for GNU Smalltalk-style external function declaration"
95de50137dbe Support for GNU Smalltalk-style FFI calls Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2859 diff changeset	8860	key = #'cCall:returning:args:' ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8861	self parseGSTExternalFunctionDeclaration: values.
2860 95de50137dbe Support for GNU Smalltalk-style FFI calls Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2859 diff changeset	8862	].
95de50137dbe Support for GNU Smalltalk-style FFI calls Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2859 diff changeset	8863
2511 5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8864	self checkForClosingAngle.
5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8865	^ nil.
5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8866
5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8867	"Created: / 04-11-2009 / 08:51:48 / Jan Travnicek <travnja3@fel.cvut.cz>"
5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8868	"Modified: / 19-11-2009 / 11:48:24 / Jan Travnicek <travnja3@fel.cvut.cz>"
2860 95de50137dbe Support for GNU Smalltalk-style FFI calls Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2859 diff changeset	8869	"Modified (comment): / 09-04-2012 / 20:18:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1410 e93635fe8c40 pragma & ffi stuff Claus Gittinger <cg@exept.de> parents: 1407 diff changeset	8870	!
e93635fe8c40 pragma & ffi stuff Claus Gittinger <cg@exept.de> parents: 1407 diff changeset	8871
2996 286c5425492a class: Parser Claus Gittinger <cg@exept.de> parents: 2995 diff changeset	8872	parsePragma
286c5425492a class: Parser Claus Gittinger <cg@exept.de> parents: 2995 diff changeset	8873	" '<' has already been parsed."
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	8874
2996 286c5425492a class: Parser Claus Gittinger <cg@exept.de> parents: 2995 diff changeset	8875	\|type flagValue\|
286c5425492a class: Parser Claus Gittinger <cg@exept.de> parents: 2995 diff changeset	8876
286c5425492a class: Parser Claus Gittinger <cg@exept.de> parents: 2995 diff changeset	8877	type := token.
286c5425492a class: Parser Claus Gittinger <cg@exept.de> parents: 2995 diff changeset	8878	type ~= 'pragma:' ifTrue:[
3200 b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	8879	self parseError:'pragma expected'.
b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	8880	^ #self
2996 286c5425492a class: Parser Claus Gittinger <cg@exept.de> parents: 2995 diff changeset	8881	].
286c5425492a class: Parser Claus Gittinger <cg@exept.de> parents: 2995 diff changeset	8882
286c5425492a class: Parser Claus Gittinger <cg@exept.de> parents: 2995 diff changeset	8883	self nextToken.
286c5425492a class: Parser Claus Gittinger <cg@exept.de> parents: 2995 diff changeset	8884	((token = '+') or:[token = '-']) ifTrue:[
3200 b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	8885	flagValue := (token = '+').
b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	8886	self nextToken.
b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	8887	(tokenType == #Identifier) ifTrue:[
b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	8888	token = 'arrayIndexSyntaxExtension' ifTrue:[
b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	8889	parserFlags perform:('allow',token asUppercaseFirst,':') asSymbol with:flagValue.
b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	8890	self nextToken.
b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	8891	self checkForClosingAngle.
b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	8892	^ self.
b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	8893	].
b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	8894	].
b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	8895	self breakPoint:#cg.
b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	8896	self parseError:'unknown pragma'.
b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	8897	^ self
2996 286c5425492a class: Parser Claus Gittinger <cg@exept.de> parents: 2995 diff changeset	8898	].
286c5425492a class: Parser Claus Gittinger <cg@exept.de> parents: 2995 diff changeset	8899
286c5425492a class: Parser Claus Gittinger <cg@exept.de> parents: 2995 diff changeset	8900	self parseError:'+/- expected'.
286c5425492a class: Parser Claus Gittinger <cg@exept.de> parents: 2995 diff changeset	8901	^ self
286c5425492a class: Parser Claus Gittinger <cg@exept.de> parents: 2995 diff changeset	8902	!
286c5425492a class: Parser Claus Gittinger <cg@exept.de> parents: 2995 diff changeset	8903
1410 e93635fe8c40 pragma & ffi stuff Claus Gittinger <cg@exept.de> parents: 1407 diff changeset	8904	parsePrimitive
e93635fe8c40 pragma & ffi stuff Claus Gittinger <cg@exept.de> parents: 1407 diff changeset	8905	"parse an ST-80 type primitive as '< primitive: nr >';
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8906	(return primitive number or #Error)
1410 e93635fe8c40 pragma & ffi stuff Claus Gittinger <cg@exept.de> parents: 1407 diff changeset	8907	or a Squeak-style primitive, as '< primitive: string >';
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8908	(return primitive name or #Error)
1690 9878628e15ac support parsing (at least) of V'Age primitives Claus Gittinger <cg@exept.de> parents: 1687 diff changeset	8909	or a V'Age-style primitive, as '< primitive: identifier >';
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8910	(return primitive name or #Error)
1410 e93635fe8c40 pragma & ffi stuff Claus Gittinger <cg@exept.de> parents: 1407 diff changeset	8911
2511 5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8912	Also, resource specs are parsed; the result is left (as side effect) in primitiveResource.
1690 9878628e15ac support parsing (at least) of V'Age primitives Claus Gittinger <cg@exept.de> parents: 1687 diff changeset	8913	It is used to flag methods, for faster finding of used keyboard accelerators,
1410 e93635fe8c40 pragma & ffi stuff Claus Gittinger <cg@exept.de> parents: 1407 diff changeset	8914	and to mark resource methods (image, menu or canvas resources).
e93635fe8c40 pragma & ffi stuff Claus Gittinger <cg@exept.de> parents: 1407 diff changeset	8915
e93635fe8c40 pragma & ffi stuff Claus Gittinger <cg@exept.de> parents: 1407 diff changeset	8916	prim ::= st80Primitive \| st80Pragma \| stxPragma
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8917	\| squeakPrimitive \| vAgePrimitive \| newSTXPrimitive
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8918	\| externalFuncDecl
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8919	\| resourceDecl
1410 e93635fe8c40 pragma & ffi stuff Claus Gittinger <cg@exept.de> parents: 1407 diff changeset	8920
e93635fe8c40 pragma & ffi stuff Claus Gittinger <cg@exept.de> parents: 1407 diff changeset	8921	st80Primitive ::= 'primitive:' INTEGER
e93635fe8c40 pragma & ffi stuff Claus Gittinger <cg@exept.de> parents: 1407 diff changeset	8922	st80Pragma ::= 'exception:' ( 'handle \| 'raise' \| 'unwind' )
e93635fe8c40 pragma & ffi stuff Claus Gittinger <cg@exept.de> parents: 1407 diff changeset	8923	stxPragma ::= 'context:' 'return'
e93635fe8c40 pragma & ffi stuff Claus Gittinger <cg@exept.de> parents: 1407 diff changeset	8924
e93635fe8c40 pragma & ffi stuff Claus Gittinger <cg@exept.de> parents: 1407 diff changeset	8925	squeakPrimitive ::= 'primitive:' STRING
e93635fe8c40 pragma & ffi stuff Claus Gittinger <cg@exept.de> parents: 1407 diff changeset	8926
e93635fe8c40 pragma & ffi stuff Claus Gittinger <cg@exept.de> parents: 1407 diff changeset	8927	newSTXPrimitive ::= 'primitive'
e93635fe8c40 pragma & ffi stuff Claus Gittinger <cg@exept.de> parents: 1407 diff changeset	8928
1690 9878628e15ac support parsing (at least) of V'Age primitives Claus Gittinger <cg@exept.de> parents: 1687 diff changeset	8929	vAgePrimitive ::= 'primitive:' IDENTIFIER
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8930	\| 'sysprim:' IDENTIFIER
1690 9878628e15ac support parsing (at least) of V'Age primitives Claus Gittinger <cg@exept.de> parents: 1687 diff changeset	8931
2209 89aba5bfa3ee changed: #parsePrimitive Claus Gittinger <cg@exept.de> parents: 2207 diff changeset	8932	externalFuncDecl ::= vwExternalFuncDecl
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8933	\| stvExternalFuncDecl
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8934	\| squeakExternalFuncDecl
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8935	\| dolphinExternalFuncDecl
2209 89aba5bfa3ee changed: #parsePrimitive Claus Gittinger <cg@exept.de> parents: 2207 diff changeset	8936
89aba5bfa3ee changed: #parsePrimitive Claus Gittinger <cg@exept.de> parents: 2207 diff changeset	8937	vwExternalFuncDecl ::= 'c:' vwFuncDecl
89aba5bfa3ee changed: #parsePrimitive Claus Gittinger <cg@exept.de> parents: 2207 diff changeset	8938
89aba5bfa3ee changed: #parsePrimitive Claus Gittinger <cg@exept.de> parents: 2207 diff changeset	8939	stvExternalFuncDecl ::= 'api:' stvFuncDecl
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8940	\| 'ole:' stvFuncDecl
2209 89aba5bfa3ee changed: #parsePrimitive Claus Gittinger <cg@exept.de> parents: 2207 diff changeset	8941
89aba5bfa3ee changed: #parsePrimitive Claus Gittinger <cg@exept.de> parents: 2207 diff changeset	8942	squeakExternalFuncDecl ::= 'apicall:' stvFuncDecl
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8943	\| 'cdecl:' stvFuncDecl
2209 89aba5bfa3ee changed: #parsePrimitive Claus Gittinger <cg@exept.de> parents: 2207 diff changeset	8944
89aba5bfa3ee changed: #parsePrimitive Claus Gittinger <cg@exept.de> parents: 2207 diff changeset	8945	dolphinExternalFuncDecl ::= 'stdcall:' stvFuncDecl
89aba5bfa3ee changed: #parsePrimitive Claus Gittinger <cg@exept.de> parents: 2207 diff changeset	8946
89aba5bfa3ee changed: #parsePrimitive Claus Gittinger <cg@exept.de> parents: 2207 diff changeset	8947	resourceDecl ::= 'resource:' SYMBOL - leave SYMBOL in primitiveResource
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8948	\| 'resource:' SYMBOL (...) - leave (SYMBOL (...)) in primitiveResource
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8949	\| 'pragma:' SYMBOL - same as resource; alternative syntax
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8950	\| 'pragma:' SYMBOL (...) - same as resource; alternative syntax
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8951	\| 'attribute:' SYMBOL - same as resource; alternative syntax
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8952	\| 'attribute:' SYMBOL (...) - same as resource; alternative syntax"
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	8953
2511 5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8954	\|lcTokenName tmp\|
5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8955
5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8956	(tokenType == #Keyword or:[ tokenType == #Identifier ]) ifFalse:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8957	self parseError:'bad primitive definition (keyword expected)'.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8958	^ #Error
1410 e93635fe8c40 pragma & ffi stuff Claus Gittinger <cg@exept.de> parents: 1407 diff changeset	8959	].
e93635fe8c40 pragma & ffi stuff Claus Gittinger <cg@exept.de> parents: 1407 diff changeset	8960	(tokenName = 'primitive:') ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8961	tmp := self parseTraditionalPrimitive.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8962	annotations := annotations
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8963	copyWith:(Array with:'primitive:' asSymbol with:tmp).
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8964	^ tmp.
1420 57f3f5c8a070 more for exotic primitives/pragmas Claus Gittinger <cg@exept.de> parents: 1419 diff changeset	8965	].
1690 9878628e15ac support parsing (at least) of V'Age primitives Claus Gittinger <cg@exept.de> parents: 1687 diff changeset	8966	(tokenName = 'sysprim:') ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8967	parserFlags allowVisualAgePrimitives ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8968	tmp := self parseTraditionalPrimitive.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8969	annotations := annotations
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8970	copyWith:(Array with:'sysprim:' asSymbol with:tmp).
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8971	^ tmp.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8972	].
2511 5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8973	].
1420 57f3f5c8a070 more for exotic primitives/pragmas Claus Gittinger <cg@exept.de> parents: 1419 diff changeset	8974	(tokenName = 'primitive') ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8975	self nextToken.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8976	self checkForClosingAngle.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8977	annotations := annotations
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8978	copyWith:(Array with:'primitive' asSymbol with:0).
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8979	^ 0
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8980	"/ no primitive number
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8981	.
2511 5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8982	].
5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8983	(tokenName = 'resource:') ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8984	self parseResourcePragma.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8985	^ nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8986	"/ no primitive number
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8987	.
2511 5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8988	].
2996 286c5425492a class: Parser Claus Gittinger <cg@exept.de> parents: 2995 diff changeset	8989	(tokenName = 'pragma:') ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8990	self parsePragma.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8991	^ nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8992	"/ no primitive number
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8993	.
2996 286c5425492a class: Parser Claus Gittinger <cg@exept.de> parents: 2995 diff changeset	8994	].
2511 5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	8995	(tokenName = 'exception:' or:[ tokenName = 'context:' ]) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8996	(self parseExceptionOrContextPragma) == #Error ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8997	^ #Error
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8998	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	8999	self checkForClosingAngle.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9000	^ nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9001	"/ no primitive number
2511 5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	9002	].
1741 467d7120e6bd c-call parsing Claus Gittinger <cg@exept.de> parents: 1739 diff changeset	9003	lcTokenName := tokenName asLowercase.
2511 5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	9004	((lcTokenName = 'c:'
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9005	"/ vw external function definition
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9006	)
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9007	or:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9008	lcTokenName = 'api:'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9009	"/ st/v external function definition
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9010
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9011	or:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9012	lcTokenName = 'ole:'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9013	"/ st/v external function definition
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9014
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9015	or:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9016	lcTokenName = 'apicall:'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9017	"/ squeak external function definition
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9018
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9019	or:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9020	lcTokenName = 'cdecl:'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9021	"/ squeak external function definition
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9022
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9023	or:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9024	lcTokenName = 'stdcall:'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9025	"/ dolphin external function definition
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9026	]
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9027	]
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9028	]
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9029	]
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9030	])
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9031	ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9032	self parseExternalFunctionCallDeclaration.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9033	^ nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9034	"/ no primitive number
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9035	].
2511 5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	9036	^ self parseOtherPrimitives.
5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	9037
5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	9038	"Modified: / 10-01-2010 / 17:10:11 / Jan Travnicek <travnja3@fel.cvut.cz>"
5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	9039	"Modified: / 01-07-2010 / 18:12:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1410 e93635fe8c40 pragma & ffi stuff Claus Gittinger <cg@exept.de> parents: 1407 diff changeset	9040	!
e93635fe8c40 pragma & ffi stuff Claus Gittinger <cg@exept.de> parents: 1407 diff changeset	9041
e93635fe8c40 pragma & ffi stuff Claus Gittinger <cg@exept.de> parents: 1407 diff changeset	9042	parsePrimitiveOrResourceSpecOrEmpty
e93635fe8c40 pragma & ffi stuff Claus Gittinger <cg@exept.de> parents: 1407 diff changeset	9043	"parse a methods primitive or resource spec"
e93635fe8c40 pragma & ffi stuff Claus Gittinger <cg@exept.de> parents: 1407 diff changeset	9044
e93635fe8c40 pragma & ffi stuff Claus Gittinger <cg@exept.de> parents: 1407 diff changeset	9045	\|pos wmsg primNr primNrOrString\|
e93635fe8c40 pragma & ffi stuff Claus Gittinger <cg@exept.de> parents: 1407 diff changeset	9046
e93635fe8c40 pragma & ffi stuff Claus Gittinger <cg@exept.de> parents: 1407 diff changeset	9047	[(tokenType == #BinaryOperator) and:[tokenName = '<']] whileTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9048	pos := tokenPosition.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9049	self nextToken.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9050	primNrOrString := self parsePrimitive.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9051
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9052	(primNrOrString == #Error) ifTrue:[^ #Error].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9053	wmsg := nil.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9054
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9055	primNrOrString isString ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9056	primNr := self primitiveNumberFromName:primNrOrString
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9057	] ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9058	primNr := primNrOrString
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9059	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9060
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9061	primNr notNil ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9062	primNr < 0 ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9063	parserFlags warnST80Directives == true ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9064	wmsg := 'ST-80/Squeak directive ignored'.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9065	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9066	] ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9067	primNr > 0 ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9068	primitiveNr := primNr.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9069	wmsg := 'ST-80 primitive may not work'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9070	] ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9071	primitiveNr := primNr.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9072	wmsg := 'ST/X primitives only work in rel5 and newer'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9073	]
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9074	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9075	wmsg notNil ifTrue:[self warning:wmsg position:pos]
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9076	].
1410 e93635fe8c40 pragma & ffi stuff Claus Gittinger <cg@exept.de> parents: 1407 diff changeset	9077	].
e93635fe8c40 pragma & ffi stuff Claus Gittinger <cg@exept.de> parents: 1407 diff changeset	9078
e93635fe8c40 pragma & ffi stuff Claus Gittinger <cg@exept.de> parents: 1407 diff changeset	9079	"Created: 27.4.1996 / 16:55:55 / cg"
e93635fe8c40 pragma & ffi stuff Claus Gittinger <cg@exept.de> parents: 1407 diff changeset	9080	"Modified: 29.5.1996 / 17:25:52 / cg"
e93635fe8c40 pragma & ffi stuff Claus Gittinger <cg@exept.de> parents: 1407 diff changeset	9081	!
e93635fe8c40 pragma & ffi stuff Claus Gittinger <cg@exept.de> parents: 1407 diff changeset	9082
e93635fe8c40 pragma & ffi stuff Claus Gittinger <cg@exept.de> parents: 1407 diff changeset	9083	parseResourcePragma
2996 286c5425492a class: Parser Claus Gittinger <cg@exept.de> parents: 2995 diff changeset	9084	" '<' has already been parsed."
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	9085
2996 286c5425492a class: Parser Claus Gittinger <cg@exept.de> parents: 2995 diff changeset	9086	\|type keys resource resourceValue\|
2482 296eb8e022fe changed: Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	9087
296eb8e022fe changed: Claus Gittinger <cg@exept.de> parents: 2480 diff changeset	9088	type := token.
1410 e93635fe8c40 pragma & ffi stuff Claus Gittinger <cg@exept.de> parents: 1407 diff changeset	9089	self nextToken.
e93635fe8c40 pragma & ffi stuff Claus Gittinger <cg@exept.de> parents: 1407 diff changeset	9090	(tokenType ~~ #Symbol) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9091	self parseError:'symbol expected'.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9092	^ #Error
1410 e93635fe8c40 pragma & ffi stuff Claus Gittinger <cg@exept.de> parents: 1407 diff changeset	9093	].
e93635fe8c40 pragma & ffi stuff Claus Gittinger <cg@exept.de> parents: 1407 diff changeset	9094	resource := tokenValue.
e93635fe8c40 pragma & ffi stuff Claus Gittinger <cg@exept.de> parents: 1407 diff changeset	9095	resourceValue := true.
e93635fe8c40 pragma & ffi stuff Claus Gittinger <cg@exept.de> parents: 1407 diff changeset	9096	self nextToken.
e93635fe8c40 pragma & ffi stuff Claus Gittinger <cg@exept.de> parents: 1407 diff changeset	9097	tokenType == $( ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9098	self nextToken.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9099	keys := OrderedCollection new.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9100	[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9101	(tokenType == $)) or:[ tokenType == #EOF ]
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9102	] whileFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9103	keys add:tokenValue.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9104	self nextToken.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9105	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9106	resourceValue := keys.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9107	(tokenType == $)) ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9108	self parseError:'unterminated primitive/spec (missing '')'')'.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9109	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9110	self nextToken.
1410 e93635fe8c40 pragma & ffi stuff Claus Gittinger <cg@exept.de> parents: 1407 diff changeset	9111	].
e93635fe8c40 pragma & ffi stuff Claus Gittinger <cg@exept.de> parents: 1407 diff changeset	9112	primitiveResource isNil ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9113	primitiveResource := IdentityDictionary new.
1410 e93635fe8c40 pragma & ffi stuff Claus Gittinger <cg@exept.de> parents: 1407 diff changeset	9114	].
e93635fe8c40 pragma & ffi stuff Claus Gittinger <cg@exept.de> parents: 1407 diff changeset	9115	primitiveResource at:(resource asSymbol) put:resourceValue.
1420 57f3f5c8a070 more for exotic primitives/pragmas Claus Gittinger <cg@exept.de> parents: 1419 diff changeset	9116	self checkForClosingAngle.
2511 5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	9117	(resourceValue isBoolean and:[ resourceValue ]) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9118	annotations := annotations
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9119	copyWith:(Array with:#resource: asSymbol with:(Array with:resource)).
2511 5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	9120	] ifFalse:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9121	annotations := annotations
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9122	copyWith:(Array with:#resource:values: asSymbol
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9123	with:(Array with:resource with:resourceValue)).
2511 5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	9124	]
5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	9125
5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	9126	"Modified: / 19-11-2009 / 11:11:26 / Jan Travnicek <travnja3@fel.cvut.cz>"
5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	9127	"Modified: / 01-07-2010 / 12:23:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1420 57f3f5c8a070 more for exotic primitives/pragmas Claus Gittinger <cg@exept.de> parents: 1419 diff changeset	9128	!
57f3f5c8a070 more for exotic primitives/pragmas Claus Gittinger <cg@exept.de> parents: 1419 diff changeset	9129
1741 467d7120e6bd c-call parsing Claus Gittinger <cg@exept.de> parents: 1739 diff changeset	9130	parseSTVExternalFunctionDeclarationFrom:aStream definitionType:definitionType knownDefinitions:dictionaryOfTypesOrNil lineNr:lineNr
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	9131	"parses ST/V function declarations of the forms
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9132	'<api: functionName argType1 .. argTypeN returnType>'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9133	'<ole: vFunctionIndex argType1 .. argTypeN returnType>'
1780 572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	9134	"
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	9135
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	9136	\|primParser function\|
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	9137
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	9138	primParser := PrimitiveSpecParser new.
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	9139	function := primParser
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9140	parseSTVExternalFunctionDeclarationFrom:aStream
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9141	definitionType:definitionType
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9142	lineNr:lineNr
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9143	for:self.
2683 7940716b1020 changed: Claus Gittinger <cg@exept.de> parents: 2682 diff changeset	9144	function notNil ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9145	function owningClass:classToCompileFor.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9146	self generateCallToExternalFunction:function lineNr:lineNr.
2683 7940716b1020 changed: Claus Gittinger <cg@exept.de> parents: 2682 diff changeset	9147	].
7940716b1020 changed: Claus Gittinger <cg@exept.de> parents: 2682 diff changeset	9148
7940716b1020 changed: Claus Gittinger <cg@exept.de> parents: 2682 diff changeset	9149	"Modified: / 07-09-2011 / 22:07:36 / cg"
1748 6ba00add9039 * empty log message * Claus Gittinger <cg@exept.de> parents: 1747 diff changeset	9150	!
6ba00add9039 * empty log message * Claus Gittinger <cg@exept.de> parents: 1747 diff changeset	9151
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	9152	parseSTXOrSqueakOrDolphinExternalFunctionDeclarationFrom:aStream definitionType:definitionType
1748 6ba00add9039 * empty log message * Claus Gittinger <cg@exept.de> parents: 1747 diff changeset	9153	knownDefinitions:dictionaryOfTypesOrNil lineNr:lineNr
1780 572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	9154
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	9155	"parses squeak/dolphin/stx function declarations of the forms
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9156	'<stdcall: [virtual\|nonVirtual] returnType functionNameOrIndex argType1..argTypeN>'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9157	'<cdecl: [virtual\|nonVirtual] returnType functionNameOrIndex argType1..argTypeN>'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9158
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9159	'<cdecl: [async] [virtual\|nonVirtual] returnType functionNameOrIndex ( argType1..argTypeN ) module: moduleName >'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9160	'<apicall: [async] [virtual\|nonVirtual] returnType functionNameOrIndex ( argType1..argTypeN ) module: moduleName >'
1780 572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	9161	"
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	9162
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	9163	\|primParser function\|
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	9164
1816 408690039009 * empty log message * ca parents: 1812 diff changeset	9165	primParser := PrimitiveSpecParser new setClassToCompileFor:classToCompileFor.
408690039009 * empty log message * ca parents: 1812 diff changeset	9166	primParser notifying:requestor.
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	9167	function := primParser
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9168	parseSTXOrSqueakOrDolphinExternalFunctionDeclarationFrom:aStream
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9169	definitionType:definitionType
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9170	lineNr:lineNr
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9171	for:self.
1780 572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	9172
1816 408690039009 * empty log message * ca parents: 1812 diff changeset	9173	function notNil ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9174	function owningClass:classToCompileFor.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9175	self generateCallToExternalFunction:function lineNr:lineNr.
1816 408690039009 * empty log message * ca parents: 1812 diff changeset	9176	].
1780 572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	9177
1937 ba58036b48db comments & method rename Claus Gittinger <cg@exept.de> parents: 1936 diff changeset	9178	"Created: / 25-10-2006 / 12:03:24 / cg"
1741 467d7120e6bd c-call parsing Claus Gittinger <cg@exept.de> parents: 1739 diff changeset	9179	!
467d7120e6bd c-call parsing Claus Gittinger <cg@exept.de> parents: 1739 diff changeset	9180
1420 57f3f5c8a070 more for exotic primitives/pragmas Claus Gittinger <cg@exept.de> parents: 1419 diff changeset	9181	parseTraditionalPrimitive
57f3f5c8a070 more for exotic primitives/pragmas Claus Gittinger <cg@exept.de> parents: 1419 diff changeset	9182	"parse everything after the initial '<primitive:'"
57f3f5c8a070 more for exotic primitives/pragmas Claus Gittinger <cg@exept.de> parents: 1419 diff changeset	9183
57f3f5c8a070 more for exotic primitives/pragmas Claus Gittinger <cg@exept.de> parents: 1419 diff changeset	9184	\|primNumber\|
57f3f5c8a070 more for exotic primitives/pragmas Claus Gittinger <cg@exept.de> parents: 1419 diff changeset	9185
57f3f5c8a070 more for exotic primitives/pragmas Claus Gittinger <cg@exept.de> parents: 1419 diff changeset	9186	self nextToken.
57f3f5c8a070 more for exotic primitives/pragmas Claus Gittinger <cg@exept.de> parents: 1419 diff changeset	9187	(tokenType == #Integer) ifFalse:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9188	(tokenType == #String) ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9189	(parserFlags allowSqueakExtensions
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9190	or:[ parserFlags allowSqueakPrimitives
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9191	or:[ parserFlags allowVisualAgePrimitives ]]) ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9192	self parseError:'primitive name as string expected (Squeak/V''Age primitives not allowed - see settings)'.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9193	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9194	] ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9195	(tokenType == #Identifier) ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9196	(false "parserFlags allowVisualAgeExtensions"
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9197	or:[ parserFlags allowVisualAgePrimitives ]) ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9198	self parseError:'primitive number expected (V''Age-primitives not allowed - see settings)'.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9199	]
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9200	] ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9201	self parseError:'primitive number expected'.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9202	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9203	].
2748 68c8278c0d49 changed: #parseTraditionalPrimitive Claus Gittinger <cg@exept.de> parents: 2743 diff changeset	9204	"/ (parserFlags allowSqueakExtensions
68c8278c0d49 changed: #parseTraditionalPrimitive Claus Gittinger <cg@exept.de> parents: 2743 diff changeset	9205	"/ or:[ parserFlags allowSqueakPrimitives ]) ifTrue:[
68c8278c0d49 changed: #parseTraditionalPrimitive Claus Gittinger <cg@exept.de> parents: 2743 diff changeset	9206	"/ (tokenType == #String) ifFalse:[
68c8278c0d49 changed: #parseTraditionalPrimitive Claus Gittinger <cg@exept.de> parents: 2743 diff changeset	9207	"/ self parseError:'primitive name as string expected (Squeak primitives not allowed - see settings)'.
68c8278c0d49 changed: #parseTraditionalPrimitive Claus Gittinger <cg@exept.de> parents: 2743 diff changeset	9208	"/ ^ #Error
68c8278c0d49 changed: #parseTraditionalPrimitive Claus Gittinger <cg@exept.de> parents: 2743 diff changeset	9209	"/ ]
68c8278c0d49 changed: #parseTraditionalPrimitive Claus Gittinger <cg@exept.de> parents: 2743 diff changeset	9210	"/ ] ifFalse:[
68c8278c0d49 changed: #parseTraditionalPrimitive Claus Gittinger <cg@exept.de> parents: 2743 diff changeset	9211	"/ parserFlags allowVisualAgePrimitives ifTrue:[
68c8278c0d49 changed: #parseTraditionalPrimitive Claus Gittinger <cg@exept.de> parents: 2743 diff changeset	9212	"/ (tokenType == #Identifier) ifFalse:[
68c8278c0d49 changed: #parseTraditionalPrimitive Claus Gittinger <cg@exept.de> parents: 2743 diff changeset	9213	"/ self parseError:'primitive name expected'.
68c8278c0d49 changed: #parseTraditionalPrimitive Claus Gittinger <cg@exept.de> parents: 2743 diff changeset	9214	"/ ^ #Error
68c8278c0d49 changed: #parseTraditionalPrimitive Claus Gittinger <cg@exept.de> parents: 2743 diff changeset	9215	"/ ]
68c8278c0d49 changed: #parseTraditionalPrimitive Claus Gittinger <cg@exept.de> parents: 2743 diff changeset	9216	"/ ] ifFalse:[
68c8278c0d49 changed: #parseTraditionalPrimitive Claus Gittinger <cg@exept.de> parents: 2743 diff changeset	9217	"/ self parseError:'primitive number expected (VA-primitives not allowed - see settings)'.
68c8278c0d49 changed: #parseTraditionalPrimitive Claus Gittinger <cg@exept.de> parents: 2743 diff changeset	9218	"/ ^ #Error
68c8278c0d49 changed: #parseTraditionalPrimitive Claus Gittinger <cg@exept.de> parents: 2743 diff changeset	9219	"/ ].
68c8278c0d49 changed: #parseTraditionalPrimitive Claus Gittinger <cg@exept.de> parents: 2743 diff changeset	9220	"/ ]
1420 57f3f5c8a070 more for exotic primitives/pragmas Claus Gittinger <cg@exept.de> parents: 1419 diff changeset	9221	].
57f3f5c8a070 more for exotic primitives/pragmas Claus Gittinger <cg@exept.de> parents: 1419 diff changeset	9222	primitiveNr notNil ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9223	self parseError:'only one primitive spec allowed'.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9224	primNumber := -1.
1420 57f3f5c8a070 more for exotic primitives/pragmas Claus Gittinger <cg@exept.de> parents: 1419 diff changeset	9225	] ifFalse:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9226	primNumber := tokenValue.
1420 57f3f5c8a070 more for exotic primitives/pragmas Claus Gittinger <cg@exept.de> parents: 1419 diff changeset	9227	].
57f3f5c8a070 more for exotic primitives/pragmas Claus Gittinger <cg@exept.de> parents: 1419 diff changeset	9228	self nextToken.
1556 ce528f32646b care for missing pools Claus Gittinger <cg@exept.de> parents: 1551 diff changeset	9229
ce528f32646b care for missing pools Claus Gittinger <cg@exept.de> parents: 1551 diff changeset	9230	(tokenType == #Keyword) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9231	(tokenName = 'errorCode:') ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9232	self nextToken.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9233	(tokenType == #Identifier) ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9234	self nextToken.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9235	] ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9236	self error:'not yet implemented'.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9237	]
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9238	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9239	(tokenName = 'module:') ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9240	self nextToken.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9241	(tokenType == #String) ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9242	self nextToken.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9243	] ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9244	self error:'not yet implemented'.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9245	]
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9246	].
1420 57f3f5c8a070 more for exotic primitives/pragmas Claus Gittinger <cg@exept.de> parents: 1419 diff changeset	9247	].
57f3f5c8a070 more for exotic primitives/pragmas Claus Gittinger <cg@exept.de> parents: 1419 diff changeset	9248
2808 b754fa4e8172 changed: #parseTraditionalPrimitive Claus Gittinger <cg@exept.de> parents: 2790 diff changeset	9249	tokenType == $: ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9250	"/ va-style:
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9251	"/ <primitive: 'PACKAGER_PRIMITIVES':EsMakeAssociationGlobal>
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9252	primNumber isString ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9253	self error:'unknown V''Age primitive spec format'.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9254	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9255	self nextToken.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9256	tokenType == #Identifier ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9257	self parseError:'unknown V''Age primitive spec format'.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9258	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9259	primNumber := primNumber,':',tokenName.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9260	self nextToken.
2808 b754fa4e8172 changed: #parseTraditionalPrimitive Claus Gittinger <cg@exept.de> parents: 2790 diff changeset	9261	].
b754fa4e8172 changed: #parseTraditionalPrimitive Claus Gittinger <cg@exept.de> parents: 2790 diff changeset	9262
1420 57f3f5c8a070 more for exotic primitives/pragmas Claus Gittinger <cg@exept.de> parents: 1419 diff changeset	9263	self checkForClosingAngle.
57f3f5c8a070 more for exotic primitives/pragmas Claus Gittinger <cg@exept.de> parents: 1419 diff changeset	9264	^ primNumber
2511 5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	9265
5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	9266	"Modified: / 03-11-2009 / 17:14:48 / Jan Travnicek <travnja3@fel.cvut.cz>"
2808 b754fa4e8172 changed: #parseTraditionalPrimitive Claus Gittinger <cg@exept.de> parents: 2790 diff changeset	9267	"Modified: / 07-02-2012 / 17:22:52 / cg"
1410 e93635fe8c40 pragma & ffi stuff Claus Gittinger <cg@exept.de> parents: 1407 diff changeset	9268	!
e93635fe8c40 pragma & ffi stuff Claus Gittinger <cg@exept.de> parents: 1407 diff changeset	9269
1741 467d7120e6bd c-call parsing Claus Gittinger <cg@exept.de> parents: 1739 diff changeset	9270	parseVWTypeOrExternalFunctionDeclarationFrom:aStream definitionType:definitionType knownDefinitions:dictionaryOfTypesOrNil lineNr:lineNr
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	9271	"parses visualWorks type/function declarations of the form:
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9272	'<c: ...>'"
1741 467d7120e6bd c-call parsing Claus Gittinger <cg@exept.de> parents: 1739 diff changeset	9273
2052 8460eb468d03 * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	9274	\|primParser functionOrTypeOrValue\|
8460eb468d03 * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	9275
8460eb468d03 * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	9276	primParser := PrimitiveSpecParser new setClassToCompileFor:classToCompileFor.
8460eb468d03 * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	9277	functionOrTypeOrValue := primParser
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9278	parseVWTypeOrExternalFunctionDeclarationFrom:aStream
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9279	definitionType:definitionType
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9280	knownDefinitions:dictionaryOfTypesOrNil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9281	lineNr:lineNr
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9282	for: self.
1780 572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	9283
2051 91c2cbbfcacd c: #define added Claus Gittinger <cg@exept.de> parents: 2050 diff changeset	9284	functionOrTypeOrValue isNil ifTrue:[^ self].
91c2cbbfcacd c: #define added Claus Gittinger <cg@exept.de> parents: 2050 diff changeset	9285
2901 42bd6f8a3451 Avoid #isKindOf: where possible Stefan Vogel <sv@exept.de> parents: 2891 diff changeset	9286	(functionOrTypeOrValue isExternalLibraryFunction) ifFalse:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9287	self generateReturnOfValue:functionOrTypeOrValue.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9288	^ self
1741 467d7120e6bd c-call parsing Claus Gittinger <cg@exept.de> parents: 1739 diff changeset	9289	].
467d7120e6bd c-call parsing Claus Gittinger <cg@exept.de> parents: 1739 diff changeset	9290
2051 91c2cbbfcacd c: #define added Claus Gittinger <cg@exept.de> parents: 2050 diff changeset	9291	functionOrTypeOrValue owningClass:classToCompileFor.
91c2cbbfcacd c: #define added Claus Gittinger <cg@exept.de> parents: 2050 diff changeset	9292	self generateCallToExternalFunction:functionOrTypeOrValue lineNr:lineNr.
1780 572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	9293
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	9294	"Modified: / 01-08-2006 / 16:21:36 / cg"
1741 467d7120e6bd c-call parsing Claus Gittinger <cg@exept.de> parents: 1739 diff changeset	9295	!
467d7120e6bd c-call parsing Claus Gittinger <cg@exept.de> parents: 1739 diff changeset	9296
1410 e93635fe8c40 pragma & ffi stuff Claus Gittinger <cg@exept.de> parents: 1407 diff changeset	9297	primitiveNumberFromName:aPrimitiveName
e93635fe8c40 pragma & ffi stuff Claus Gittinger <cg@exept.de> parents: 1407 diff changeset	9298	"for future compatibility with Squeak ..."
e93635fe8c40 pragma & ffi stuff Claus Gittinger <cg@exept.de> parents: 1407 diff changeset	9299
e93635fe8c40 pragma & ffi stuff Claus Gittinger <cg@exept.de> parents: 1407 diff changeset	9300	^ nil
2093 b6b27c9c4d26 remember already warned unimplemented selectors; Claus Gittinger <cg@exept.de> parents: 2090 diff changeset	9301	!
b6b27c9c4d26 remember already warned unimplemented selectors; Claus Gittinger <cg@exept.de> parents: 2090 diff changeset	9302
2563 7a9c41b4a1dc added: Claus Gittinger <cg@exept.de> parents: 2543 diff changeset	9303	rememberContextPragma:pragmaType value:pragmaValue
7a9c41b4a1dc added: Claus Gittinger <cg@exept.de> parents: 2543 diff changeset	9304	primitiveContextInfo isNil ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9305	primitiveContextInfo := Set new.
2563 7a9c41b4a1dc added: Claus Gittinger <cg@exept.de> parents: 2543 diff changeset	9306	].
7a9c41b4a1dc added: Claus Gittinger <cg@exept.de> parents: 2543 diff changeset	9307	primitiveContextInfo add:(pragmaType -> pragmaValue).
7a9c41b4a1dc added: Claus Gittinger <cg@exept.de> parents: 2543 diff changeset	9308
7a9c41b4a1dc added: Claus Gittinger <cg@exept.de> parents: 2543 diff changeset	9309	"Created: / 15-07-2011 / 08:15:08 / cg"
7a9c41b4a1dc added: Claus Gittinger <cg@exept.de> parents: 2543 diff changeset	9310	!
7a9c41b4a1dc added: Claus Gittinger <cg@exept.de> parents: 2543 diff changeset	9311
7a9c41b4a1dc added: Claus Gittinger <cg@exept.de> parents: 2543 diff changeset	9312	rememberContextReturnablePragma
7a9c41b4a1dc added: Claus Gittinger <cg@exept.de> parents: 2543 diff changeset	9313	self rememberContextPragma:#'context:' value:#'return'
7a9c41b4a1dc added: Claus Gittinger <cg@exept.de> parents: 2543 diff changeset	9314
7a9c41b4a1dc added: Claus Gittinger <cg@exept.de> parents: 2543 diff changeset	9315	"Created: / 15-07-2011 / 08:11:08 / cg"
7a9c41b4a1dc added: Claus Gittinger <cg@exept.de> parents: 2543 diff changeset	9316	!
7a9c41b4a1dc added: Claus Gittinger <cg@exept.de> parents: 2543 diff changeset	9317
2093 b6b27c9c4d26 remember already warned unimplemented selectors; Claus Gittinger <cg@exept.de> parents: 2090 diff changeset	9318	skipForClosingAngle
b6b27c9c4d26 remember already warned unimplemented selectors; Claus Gittinger <cg@exept.de> parents: 2090 diff changeset	9319	"/ skip
b6b27c9c4d26 remember already warned unimplemented selectors; Claus Gittinger <cg@exept.de> parents: 2090 diff changeset	9320	[tokenType ~~ #EOF] whileTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9321	((tokenType == #BinaryOperator) and:[tokenName = '>']) ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9322	self nextToken.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9323	^ nil "/ no primitive number
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9324	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9325	self nextToken.
2093 b6b27c9c4d26 remember already warned unimplemented selectors; Claus Gittinger <cg@exept.de> parents: 2090 diff changeset	9326	].
1410 e93635fe8c40 pragma & ffi stuff Claus Gittinger <cg@exept.de> parents: 1407 diff changeset	9327	! !
e93635fe8c40 pragma & ffi stuff Claus Gittinger <cg@exept.de> parents: 1407 diff changeset	9328
455 2e234d3bc96d fixed parsing of private classes within a nameSpace Claus Gittinger <cg@exept.de> parents: 454 diff changeset	9329	!Parser methodsFor:'private'!
2e234d3bc96d fixed parsing of private classes within a nameSpace Claus Gittinger <cg@exept.de> parents: 454 diff changeset	9330
2e234d3bc96d fixed parsing of private classes within a nameSpace Claus Gittinger <cg@exept.de> parents: 454 diff changeset	9331	currentNameSpace
2e234d3bc96d fixed parsing of private classes within a nameSpace Claus Gittinger <cg@exept.de> parents: 454 diff changeset	9332	\|spc\|
2e234d3bc96d fixed parsing of private classes within a nameSpace Claus Gittinger <cg@exept.de> parents: 454 diff changeset	9333
2e234d3bc96d fixed parsing of private classes within a nameSpace Claus Gittinger <cg@exept.de> parents: 454 diff changeset	9334	spc := currentNamespace.
2e234d3bc96d fixed parsing of private classes within a nameSpace Claus Gittinger <cg@exept.de> parents: 454 diff changeset	9335	spc isNil ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9336	(requestor respondsTo:#currentNameSpace) ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9337	spc := requestor currentNameSpace
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9338	] ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9339	spc := Class nameSpaceQuerySignal query.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9340	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9341	currentNamespace := spc.
455 2e234d3bc96d fixed parsing of private classes within a nameSpace Claus Gittinger <cg@exept.de> parents: 454 diff changeset	9342	].
2e234d3bc96d fixed parsing of private classes within a nameSpace Claus Gittinger <cg@exept.de> parents: 454 diff changeset	9343	^ spc
2e234d3bc96d fixed parsing of private classes within a nameSpace Claus Gittinger <cg@exept.de> parents: 454 diff changeset	9344
832 553c25252a78 Use #query instead of #raise when invoking QuerySignals Stefan Vogel <sv@exept.de> parents: 825 diff changeset	9345	"Created: / 19.12.1996 / 23:47:58 / cg"
553c25252a78 Use #query instead of #raise when invoking QuerySignals Stefan Vogel <sv@exept.de> parents: 825 diff changeset	9346	"Modified: / 14.10.1997 / 20:56:06 / cg"
553c25252a78 Use #query instead of #raise when invoking QuerySignals Stefan Vogel <sv@exept.de> parents: 825 diff changeset	9347	"Modified: / 18.3.1999 / 18:25:50 / stefan"
455 2e234d3bc96d fixed parsing of private classes within a nameSpace Claus Gittinger <cg@exept.de> parents: 454 diff changeset	9348	!
2e234d3bc96d fixed parsing of private classes within a nameSpace Claus Gittinger <cg@exept.de> parents: 454 diff changeset	9349
492 fe778fd0ce46 additional entry, passing the namespace Claus Gittinger <cg@exept.de> parents: 489 diff changeset	9350	currentNameSpace:aNameSpace
fe778fd0ce46 additional entry, passing the namespace Claus Gittinger <cg@exept.de> parents: 489 diff changeset	9351	currentNamespace := aNameSpace.
fe778fd0ce46 additional entry, passing the namespace Claus Gittinger <cg@exept.de> parents: 489 diff changeset	9352
2847 2042d73c3877 added: #currentNamespace: Claus Gittinger <cg@exept.de> parents: 2844 diff changeset	9353	"Created: / 08-02-1997 / 19:37:03 / cg"
2042d73c3877 added: #currentNamespace: Claus Gittinger <cg@exept.de> parents: 2844 diff changeset	9354	!
2042d73c3877 added: #currentNamespace: Claus Gittinger <cg@exept.de> parents: 2844 diff changeset	9355
2042d73c3877 added: #currentNamespace: Claus Gittinger <cg@exept.de> parents: 2844 diff changeset	9356	currentNamespace:aNameSpace
2891 dabca38805b2 changed: Claus Gittinger <cg@exept.de> parents: 2890 diff changeset	9357	<resource: #obsolete>
2890 77c81bd3a1f1 changed: Claus Gittinger <cg@exept.de> parents: 2889 diff changeset	9358	self obsoleteMethodWarning:'use currentNameSpace:'.
2847 2042d73c3877 added: #currentNamespace: Claus Gittinger <cg@exept.de> parents: 2844 diff changeset	9359	currentNamespace := aNameSpace.
2042d73c3877 added: #currentNamespace: Claus Gittinger <cg@exept.de> parents: 2844 diff changeset	9360
2042d73c3877 added: #currentNamespace: Claus Gittinger <cg@exept.de> parents: 2844 diff changeset	9361	"Created: / 04-03-2012 / 13:36:07 / cg"
492 fe778fd0ce46 additional entry, passing the namespace Claus Gittinger <cg@exept.de> parents: 489 diff changeset	9362	!
fe778fd0ce46 additional entry, passing the namespace Claus Gittinger <cg@exept.de> parents: 489 diff changeset	9363
1247 ce0d19140248 care for package directive (remember) Claus Gittinger <cg@exept.de> parents: 1246 diff changeset	9364	currentPackage
ce0d19140248 care for package directive (remember) Claus Gittinger <cg@exept.de> parents: 1246 diff changeset	9365	\|pkg\|
ce0d19140248 care for package directive (remember) Claus Gittinger <cg@exept.de> parents: 1246 diff changeset	9366
ce0d19140248 care for package directive (remember) Claus Gittinger <cg@exept.de> parents: 1246 diff changeset	9367	pkg := currentPackage.
ce0d19140248 care for package directive (remember) Claus Gittinger <cg@exept.de> parents: 1246 diff changeset	9368	pkg isNil ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9369	(requestor respondsTo:#currentPackage) ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9370	pkg := requestor currentPackage
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9371	] ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9372	pkg := Class packageQuerySignal query.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9373	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9374	currentPackage := pkg.
1247 ce0d19140248 care for package directive (remember) Claus Gittinger <cg@exept.de> parents: 1246 diff changeset	9375	].
ce0d19140248 care for package directive (remember) Claus Gittinger <cg@exept.de> parents: 1246 diff changeset	9376	^ pkg
ce0d19140248 care for package directive (remember) Claus Gittinger <cg@exept.de> parents: 1246 diff changeset	9377	!
ce0d19140248 care for package directive (remember) Claus Gittinger <cg@exept.de> parents: 1246 diff changeset	9378
455 2e234d3bc96d fixed parsing of private classes within a nameSpace Claus Gittinger <cg@exept.de> parents: 454 diff changeset	9379	currentUsedNameSpaces
2e234d3bc96d fixed parsing of private classes within a nameSpace Claus Gittinger <cg@exept.de> parents: 454 diff changeset	9380	\|spaces\|
2e234d3bc96d fixed parsing of private classes within a nameSpace Claus Gittinger <cg@exept.de> parents: 454 diff changeset	9381
2e234d3bc96d fixed parsing of private classes within a nameSpace Claus Gittinger <cg@exept.de> parents: 454 diff changeset	9382	spaces := currentUsedNamespaces.
2e234d3bc96d fixed parsing of private classes within a nameSpace Claus Gittinger <cg@exept.de> parents: 454 diff changeset	9383	spaces isNil ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9384	(requestor respondsTo:#usedNameSpaces) ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9385	spaces := requestor usedNameSpaces
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9386	] ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9387	spaces := Class usedNameSpaceQuerySignal query.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9388	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9389	spaces isNil ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9390	spaces := #()
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9391	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9392	currentUsedNamespaces := spaces.
455 2e234d3bc96d fixed parsing of private classes within a nameSpace Claus Gittinger <cg@exept.de> parents: 454 diff changeset	9393	].
2e234d3bc96d fixed parsing of private classes within a nameSpace Claus Gittinger <cg@exept.de> parents: 454 diff changeset	9394	^ spaces
2e234d3bc96d fixed parsing of private classes within a nameSpace Claus Gittinger <cg@exept.de> parents: 454 diff changeset	9395
679 6a60e6d0ccd1 avoid redoing work in #currentUsedNameSpaces Claus Gittinger <cg@exept.de> parents: 673 diff changeset	9396	"Created: / 19.12.1996 / 23:49:10 / cg"
6a60e6d0ccd1 avoid redoing work in #currentUsedNameSpaces Claus Gittinger <cg@exept.de> parents: 673 diff changeset	9397	"Modified: / 7.4.1998 / 08:59:28 / cg"
832 553c25252a78 Use #query instead of #raise when invoking QuerySignals Stefan Vogel <sv@exept.de> parents: 825 diff changeset	9398	"Modified: / 18.3.1999 / 18:25:57 / stefan"
455 2e234d3bc96d fixed parsing of private classes within a nameSpace Claus Gittinger <cg@exept.de> parents: 454 diff changeset	9399	!
2e234d3bc96d fixed parsing of private classes within a nameSpace Claus Gittinger <cg@exept.de> parents: 454 diff changeset	9400
2e234d3bc96d fixed parsing of private classes within a nameSpace Claus Gittinger <cg@exept.de> parents: 454 diff changeset	9401	findNameSpaceWith:aVariableName
692 78647d24f59a * empty log message * Claus Gittinger <cg@exept.de> parents: 690 diff changeset	9402	\|ns currentSpace usedSpaces\|
486 e894035d5223 fixed name resolving for private classes when accessing Claus Gittinger <cg@exept.de> parents: 481 diff changeset	9403
e894035d5223 fixed name resolving for private classes when accessing Claus Gittinger <cg@exept.de> parents: 481 diff changeset	9404	"/ private names have already been searched for.
455 2e234d3bc96d fixed parsing of private classes within a nameSpace Claus Gittinger <cg@exept.de> parents: 454 diff changeset	9405
2e234d3bc96d fixed parsing of private classes within a nameSpace Claus Gittinger <cg@exept.de> parents: 454 diff changeset	9406	classToCompileFor notNil ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9407	"/ Q:
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9408	"/ consider private classes of superclasses.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9409	"/ or search in the top owing classes namespace only ?
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9410
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9411	"/ for now, ignore other private classes - they are only
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9412	"/ known to the corresponding ownerClass.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9413
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9414	"is it in the classes namespace ?"
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9415
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9416	ns := classToCompileFor topNameSpace.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9417	(ns notNil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9418	and:[ns ~~ Smalltalk]) ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9419	ns isNameSpace ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9420	(ns at:aVariableName) notNil ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9421	^ ns
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9422	]
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9423	]
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9424	].
494 bb3e71c90dfd currentClasses nameSpace is first to look for globals. Claus Gittinger <cg@exept.de> parents: 493 diff changeset	9425
495 03187fd2a7da oops Claus Gittinger <cg@exept.de> parents: 494 diff changeset	9426	"/ ns := classToCompileFor nameSpace.
03187fd2a7da oops Claus Gittinger <cg@exept.de> parents: 494 diff changeset	9427	"/ ns notNil ifTrue:[
03187fd2a7da oops Claus Gittinger <cg@exept.de> parents: 494 diff changeset	9428	"/ "is it in the current classes namespace ?"
03187fd2a7da oops Claus Gittinger <cg@exept.de> parents: 494 diff changeset	9429	"/ (ns at:aVariableName asSymbol) notNil ifTrue:[
03187fd2a7da oops Claus Gittinger <cg@exept.de> parents: 494 diff changeset	9430	"/ ^ ns
03187fd2a7da oops Claus Gittinger <cg@exept.de> parents: 494 diff changeset	9431	"/ ]
03187fd2a7da oops Claus Gittinger <cg@exept.de> parents: 494 diff changeset	9432	"/ ].
455 2e234d3bc96d fixed parsing of private classes within a nameSpace Claus Gittinger <cg@exept.de> parents: 454 diff changeset	9433	].
2e234d3bc96d fixed parsing of private classes within a nameSpace Claus Gittinger <cg@exept.de> parents: 454 diff changeset	9434
2e234d3bc96d fixed parsing of private classes within a nameSpace Claus Gittinger <cg@exept.de> parents: 454 diff changeset	9435	"is it in the current namespace ?"
2e234d3bc96d fixed parsing of private classes within a nameSpace Claus Gittinger <cg@exept.de> parents: 454 diff changeset	9436	currentSpace := self currentNameSpace.
2e234d3bc96d fixed parsing of private classes within a nameSpace Claus Gittinger <cg@exept.de> parents: 454 diff changeset	9437	(currentSpace notNil
2e234d3bc96d fixed parsing of private classes within a nameSpace Claus Gittinger <cg@exept.de> parents: 454 diff changeset	9438	and:[currentSpace ~~ Smalltalk]) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9439	currentSpace isNameSpace ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9440	(currentSpace at:aVariableName) notNil ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9441	^ currentSpace
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9442	]
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9443	] ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9444	(currentSpace privateClassesAt:aVariableName) notNil ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9445	^ currentSpace
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9446	]
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9447	]
455 2e234d3bc96d fixed parsing of private classes within a nameSpace Claus Gittinger <cg@exept.de> parents: 454 diff changeset	9448	].
2e234d3bc96d fixed parsing of private classes within a nameSpace Claus Gittinger <cg@exept.de> parents: 454 diff changeset	9449
2e234d3bc96d fixed parsing of private classes within a nameSpace Claus Gittinger <cg@exept.de> parents: 454 diff changeset	9450	"is it in one of the used namespaces ?"
2e234d3bc96d fixed parsing of private classes within a nameSpace Claus Gittinger <cg@exept.de> parents: 454 diff changeset	9451	usedSpaces := self currentUsedNameSpaces.
2e234d3bc96d fixed parsing of private classes within a nameSpace Claus Gittinger <cg@exept.de> parents: 454 diff changeset	9452	usedSpaces notNil ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9453	^ usedSpaces detect:[:aNameSpace \| (aNameSpace at:aVariableName) notNil] ifNone:nil.
455 2e234d3bc96d fixed parsing of private classes within a nameSpace Claus Gittinger <cg@exept.de> parents: 454 diff changeset	9454	].
2e234d3bc96d fixed parsing of private classes within a nameSpace Claus Gittinger <cg@exept.de> parents: 454 diff changeset	9455	^ nil
2e234d3bc96d fixed parsing of private classes within a nameSpace Claus Gittinger <cg@exept.de> parents: 454 diff changeset	9456
2e234d3bc96d fixed parsing of private classes within a nameSpace Claus Gittinger <cg@exept.de> parents: 454 diff changeset	9457	"Created: 19.12.1996 / 23:51:02 / cg"
619 247c7807db14 empty source notification Claus Gittinger <cg@exept.de> parents: 607 diff changeset	9458	"Modified: 14.10.1997 / 20:56:35 / cg"
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	9459	!
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	9460
1762 219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9461	genMakeArrayWith:elementExpressions
219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9462	"return a node to generate an array at runtime.
219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9463	Will generate:
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9464	Array with:el1 ... with:elN (if N <= 5)
1762 219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9465	or:
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9466	(Array new at:1 put:el1; ... at:N put:elN; yourself) (otherwise)
1762 219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9467	"
219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9468
219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9469	\|numEl arrRec sel expr\|
219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9470
219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9471	arrRec := VariableNode globalNamed:#Array.
2621 d4eb080f1693 start/end position fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2619 diff changeset	9472	arrRec startPosition: -1 endPosition: -1. "/ -1 means artifitial node
1762 219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9473
219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9474	numEl := elementExpressions size.
219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9475
219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9476	(numEl between:1 and:8) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9477	sel := #(
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9478	#'with:'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9479	#'with:with:'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9480	#'with:with:with:'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9481	#'with:with:with:with:'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9482	#'with:with:with:with:with:'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9483	#'with:with:with:with:with:with:'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9484	#'with:with:with:with:with:with:with:'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9485	#'with:with:with:with:with:with:with:with:'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9486	) at:numEl.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9487
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9488	^ MessageNode
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9489	receiver:arrRec
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9490	selector:sel
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9491	args:elementExpressions.
1762 219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9492	].
219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9493
219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9494	"/ array creation expression ...
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	9495	expr := MessageNode
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9496	receiver:arrRec
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9497	selector:#new:
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9498	arg:(ConstantNode type:#Integer value:numEl from: -1 to: -1). "/ -1 means artifitial node
1762 219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9499
219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9500	numEl == 0 ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9501	^ expr.
1762 219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9502	].
219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9503	"/ followed by a bunch of #at:put: messages...
219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9504	elementExpressions keysAndValuesDo:[:idx :e \|
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9505	expr := (idx == 1 ifTrue:[MessageNode] ifFalse:[CascadeNode])
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9506	receiver:expr
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9507	selector:#at:put:
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9508	arg1:(ConstantNode type:#Integer value:idx from: -1 to:-1)"/ -1 means artifitial node
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9509	arg2:e
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9510	fold:false.
1762 219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9511	].
219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9512	"/ followed by a #yourself: message...
219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9513	expr := CascadeNode
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9514	receiver:expr
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9515	selector:#yourself.
1762 219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9516	^ expr
2621 d4eb080f1693 start/end position fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2619 diff changeset	9517
d4eb080f1693 start/end position fixes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2619 diff changeset	9518	"Modified: / 01-08-2011 / 12:38:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1762 219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9519	!
219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9520
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	9521	inWhichClassIsClassInstVar:aString
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	9522	"search class-chain for the class-instance variable named aString
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	9523	- return the class or nil if not found"
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	9524
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	9525	\|aClass\|
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	9526
735 4012fa1611b1 code cleanup & fix for doIt (implementing class) Claus Gittinger <cg@exept.de> parents: 733 diff changeset	9527	aClass := self classToLookForClassVars.
732 c36e5ef1e6ce oops - when evaluating in a context, classVars must be Claus Gittinger <cg@exept.de> parents: 725 diff changeset	9528
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	9529	[aClass notNil] whileTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9530	(aClass class instVarNames includes:aString) ifTrue:[ ^ aClass].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9531	aClass := aClass superclass
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	9532	].
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	9533	^ nil
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	9534
735 4012fa1611b1 code cleanup & fix for doIt (implementing class) Claus Gittinger <cg@exept.de> parents: 733 diff changeset	9535	"Modified: / 18.6.1998 / 15:45:34 / cg"
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	9536	!
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	9537
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	9538	inWhichClassIsClassVar:aString
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	9539	"search class-chain for the classvariable named aString
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	9540	- return the class or nil if not found"
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	9541
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	9542	\|aClass className baseClass\|
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	9543
735 4012fa1611b1 code cleanup & fix for doIt (implementing class) Claus Gittinger <cg@exept.de> parents: 733 diff changeset	9544	aClass := self classToLookForClassVars.
732 c36e5ef1e6ce oops - when evaluating in a context, classVars must be Claus Gittinger <cg@exept.de> parents: 725 diff changeset	9545
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	9546	aClass isMeta ifTrue:[
3152 228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	9547	className := aClass name copyButLast:6.
228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	9548	baseClass := Smalltalk at:(className asSymbol).
228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	9549	baseClass notNil ifTrue:[
228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	9550	aClass := baseClass
228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	9551	]
713 ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	9552	].
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	9553	^ aClass whichClassDefinesClassVar:aString
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	9554
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	9555	"/ [aClass notNil] whileTrue:[
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	9556	"/ (aClass classVarNames includes:aString) ifTrue:[ ^ aClass].
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	9557	"/ aClass := aClass superclass
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	9558	"/ ].
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	9559	"/ ^ nil
ae3141c892d7 checkin from browser Claus Gittinger <cg@exept.de> parents: 712 diff changeset	9560
732 c36e5ef1e6ce oops - when evaluating in a context, classVars must be Claus Gittinger <cg@exept.de> parents: 725 diff changeset	9561	"Modified: / 17.6.1996 / 17:18:41 / stefan"
735 4012fa1611b1 code cleanup & fix for doIt (implementing class) Claus Gittinger <cg@exept.de> parents: 733 diff changeset	9562	"Modified: / 18.6.1998 / 15:45:29 / cg"
787 9a178fa050b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 762 diff changeset	9563	!
9a178fa050b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 762 diff changeset	9564
1512 52986e9b02af better isReturn (used when checking for consistent return value) Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	9565	isStatementAnUnconditionalReturn:aStatementNode
2425 eddd4fcc7806 added: #isStatementListAnUnconditionalReturn: Claus Gittinger <cg@exept.de> parents: 2424 diff changeset	9566	"used on the last statement, to see if this is doing a return already
eddd4fcc7806 added: #isStatementListAnUnconditionalReturn: Claus Gittinger <cg@exept.de> parents: 2424 diff changeset	9567	(i.e. its own return value is to be ignored."
eddd4fcc7806 added: #isStatementListAnUnconditionalReturn: Claus Gittinger <cg@exept.de> parents: 2424 diff changeset	9568
eddd4fcc7806 added: #isStatementListAnUnconditionalReturn: Claus Gittinger <cg@exept.de> parents: 2424 diff changeset	9569	\|expr checkBlock check2Blocks selector block1 block2\|
eddd4fcc7806 added: #isStatementListAnUnconditionalReturn: Claus Gittinger <cg@exept.de> parents: 2424 diff changeset	9570
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	9571	checkBlock :=
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9572	[:block \|
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9573	\|stats\|
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9574
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9575	stats := block statements.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9576	stats notEmptyOrNil and:[ self isStatementListAnUnconditionalReturn:stats ]
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9577	].
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	9578
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	9579	check2Blocks :=
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9580	[:block1 :block2 \|
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9581	block1 isBlockNode
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9582	and:[ block2 isBlockNode
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9583	and:[ (checkBlock value:block1)
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9584	and:[ (checkBlock value:block2) ]]]
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9585	].
1512 52986e9b02af better isReturn (used when checking for consistent return value) Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	9586
52986e9b02af better isReturn (used when checking for consistent return value) Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	9587	aStatementNode isReturnNode ifTrue:[^ true ].
2425 eddd4fcc7806 added: #isStatementListAnUnconditionalReturn: Claus Gittinger <cg@exept.de> parents: 2424 diff changeset	9588
1512 52986e9b02af better isReturn (used when checking for consistent return value) Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	9589	((expr := aStatementNode expression) notNil
52986e9b02af better isReturn (used when checking for consistent return value) Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	9590	and:[expr isMessage]) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9591	selector := expr selector.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9592
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9593	"/ if both pathes of an if end in return...
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9594	"/ or both the handler and the block of a handle:do: end in a return...
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9595	(selector == #'ifTrue:ifFalse:'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9596	or:[ selector == #'ifFalse:ifTrue:'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9597	or:[ selector == #'handle:do:' ]]) ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9598	block1 := expr arg1.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9599	block2 := expr arguments at:2.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9600	^ check2Blocks value:block1 value:block2
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9601	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9602	(selector == #'on:do:') ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9603	block1 := expr receiver.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9604	block2 := expr arguments at:2.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9605	^ check2Blocks value:block1 value:block2
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9606	].
1512 52986e9b02af better isReturn (used when checking for consistent return value) Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	9607	].
52986e9b02af better isReturn (used when checking for consistent return value) Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	9608	^ false.
2425 eddd4fcc7806 added: #isStatementListAnUnconditionalReturn: Claus Gittinger <cg@exept.de> parents: 2424 diff changeset	9609
eddd4fcc7806 added: #isStatementListAnUnconditionalReturn: Claus Gittinger <cg@exept.de> parents: 2424 diff changeset	9610	"Modified: / 24-09-2010 / 18:10:20 / cg"
eddd4fcc7806 added: #isStatementListAnUnconditionalReturn: Claus Gittinger <cg@exept.de> parents: 2424 diff changeset	9611	!
eddd4fcc7806 added: #isStatementListAnUnconditionalReturn: Claus Gittinger <cg@exept.de> parents: 2424 diff changeset	9612
eddd4fcc7806 added: #isStatementListAnUnconditionalReturn: Claus Gittinger <cg@exept.de> parents: 2424 diff changeset	9613	isStatementListAnUnconditionalReturn:aStatementNode
eddd4fcc7806 added: #isStatementListAnUnconditionalReturn: Claus Gittinger <cg@exept.de> parents: 2424 diff changeset	9614	"used on a statement-list, to see if this is doing an unconditional return"
eddd4fcc7806 added: #isStatementListAnUnconditionalReturn: Claus Gittinger <cg@exept.de> parents: 2424 diff changeset	9615
eddd4fcc7806 added: #isStatementListAnUnconditionalReturn: Claus Gittinger <cg@exept.de> parents: 2424 diff changeset	9616	\|stat\|
eddd4fcc7806 added: #isStatementListAnUnconditionalReturn: Claus Gittinger <cg@exept.de> parents: 2424 diff changeset	9617
eddd4fcc7806 added: #isStatementListAnUnconditionalReturn: Claus Gittinger <cg@exept.de> parents: 2424 diff changeset	9618	stat := aStatementNode.
eddd4fcc7806 added: #isStatementListAnUnconditionalReturn: Claus Gittinger <cg@exept.de> parents: 2424 diff changeset	9619	[stat notNil] whileTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9620	(self isStatementAnUnconditionalReturn:stat) ifTrue:[^ true].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9621	stat := stat nextStatement
2425 eddd4fcc7806 added: #isStatementListAnUnconditionalReturn: Claus Gittinger <cg@exept.de> parents: 2424 diff changeset	9622	].
eddd4fcc7806 added: #isStatementListAnUnconditionalReturn: Claus Gittinger <cg@exept.de> parents: 2424 diff changeset	9623	^ false.
eddd4fcc7806 added: #isStatementListAnUnconditionalReturn: Claus Gittinger <cg@exept.de> parents: 2424 diff changeset	9624
eddd4fcc7806 added: #isStatementListAnUnconditionalReturn: Claus Gittinger <cg@exept.de> parents: 2424 diff changeset	9625	"Created: / 24-09-2010 / 18:02:08 / cg"
1512 52986e9b02af better isReturn (used when checking for consistent return value) Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	9626	!
52986e9b02af better isReturn (used when checking for consistent return value) Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	9627
1762 219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9628	isValidUnarySelector:tokenType
219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9629	tokenType == #Identifier ifTrue:[^true].
219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9630	tokenType == #Here ifTrue:[^true].
219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9631
219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9632	parserFlags allowReservedWordsAsSelectors == true ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9633	tokenType == #Self ifTrue:[^true].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9634	tokenType == #Nil ifTrue:[^true].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9635	tokenType == #True ifTrue:[^true].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9636	tokenType == #False ifTrue:[^true].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9637	tokenType == #Super ifTrue:[^true].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9638	tokenType == #ThisContext ifTrue:[^true].
1762 219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9639	].
219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9640	^ false
219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9641
219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9642	"
219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9643	ParserFlags allowReservedWordsAsSelectors:true.
219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9644	1234 self.
219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9645
219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9646	ParserFlags allowReservedWordsAsSelectors:false
219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9647	1234 self.
219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9648	"
219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9649
219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9650	"
219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9651	1234 self
219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9652	1234 nil
219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9653	1234 true
219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9654	1234 false
219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9655	1234 here
219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9656	1234 super
219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9657	1234 thisContext
219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9658	"
219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9659	!
219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9660
1615 95cb173a5fcd immutable strings Claus Gittinger <cg@exept.de> parents: 1605 diff changeset	9661	makeImmutableArray:anArray
1621 490b30bfc501 * empty log message * Claus Gittinger <cg@exept.de> parents: 1619 diff changeset	9662	^ self class makeImmutableArray:anArray
1615 95cb173a5fcd immutable strings Claus Gittinger <cg@exept.de> parents: 1605 diff changeset	9663	!
95cb173a5fcd immutable strings Claus Gittinger <cg@exept.de> parents: 1605 diff changeset	9664
95cb173a5fcd immutable strings Claus Gittinger <cg@exept.de> parents: 1605 diff changeset	9665	makeImmutableString:aString
1621 490b30bfc501 * empty log message * Claus Gittinger <cg@exept.de> parents: 1619 diff changeset	9666	^ self class makeImmutableString:aString
1615 95cb173a5fcd immutable strings Claus Gittinger <cg@exept.de> parents: 1605 diff changeset	9667	!
95cb173a5fcd immutable strings Claus Gittinger <cg@exept.de> parents: 1605 diff changeset	9668
1262 85c57c7eee77 experimental: refs Claus Gittinger <cg@exept.de> parents: 1260 diff changeset	9669	makeReferenceFor:aNode
2713 8743af4e0968 added: Claus Gittinger <cg@exept.de> parents: 2699 diff changeset	9670	"/ variable references (&var)
8743af4e0968 added: Claus Gittinger <cg@exept.de> parents: 2699 diff changeset	9671	"/ EXPERIMENTAL - may be in next release
8743af4e0968 added: Claus Gittinger <cg@exept.de> parents: 2699 diff changeset	9672
1262 85c57c7eee77 experimental: refs Claus Gittinger <cg@exept.de> parents: 1260 diff changeset	9673	\|rec sel indexNode contextNode arg1 arg2\|
85c57c7eee77 experimental: refs Claus Gittinger <cg@exept.de> parents: 1260 diff changeset	9674
85c57c7eee77 experimental: refs Claus Gittinger <cg@exept.de> parents: 1260 diff changeset	9675	contextNode := VariableNode type:#ThisContext context:contextToEvaluateIn.
85c57c7eee77 experimental: refs Claus Gittinger <cg@exept.de> parents: 1260 diff changeset	9676	indexNode := ConstantNode type:#Integer value:aNode index.
85c57c7eee77 experimental: refs Claus Gittinger <cg@exept.de> parents: 1260 diff changeset	9677
85c57c7eee77 experimental: refs Claus Gittinger <cg@exept.de> parents: 1260 diff changeset	9678	aNode isArgument ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9679	sel := #forArgument:in:.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9680	arg1 := indexNode.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9681	arg2 := contextNode.
1262 85c57c7eee77 experimental: refs Claus Gittinger <cg@exept.de> parents: 1260 diff changeset	9682	] ifFalse:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9683	aNode isLocal ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9684	sel := #forLocal:in:.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9685	arg1 := indexNode.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9686	arg2 := contextNode.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9687	] ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9688	self parseError:'unsupported variable reference (must be local or argument)'.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9689	^ aNode
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9690	]
1262 85c57c7eee77 experimental: refs Claus Gittinger <cg@exept.de> parents: 1260 diff changeset	9691	].
85c57c7eee77 experimental: refs Claus Gittinger <cg@exept.de> parents: 1260 diff changeset	9692
85c57c7eee77 experimental: refs Claus Gittinger <cg@exept.de> parents: 1260 diff changeset	9693	parseForCode ifFalse:[self rememberGlobalUsed:'Reference'].
1309 f85561a7b90e preps for nonDeterministic and FD variables. Claus Gittinger <cg@exept.de> parents: 1306 diff changeset	9694	rec := VariableNode globalNamed:'Reference'.
1262 85c57c7eee77 experimental: refs Claus Gittinger <cg@exept.de> parents: 1260 diff changeset	9695
85c57c7eee77 experimental: refs Claus Gittinger <cg@exept.de> parents: 1260 diff changeset	9696	^ MessageNode receiver:rec selector:sel arg1:arg1 arg2:arg2.
2713 8743af4e0968 added: Claus Gittinger <cg@exept.de> parents: 2699 diff changeset	9697
8743af4e0968 added: Claus Gittinger <cg@exept.de> parents: 2699 diff changeset	9698	"Modified (comment): / 30-09-2011 / 12:20:08 / cg"
1262 85c57c7eee77 experimental: refs Claus Gittinger <cg@exept.de> parents: 1260 diff changeset	9699	!
85c57c7eee77 experimental: refs Claus Gittinger <cg@exept.de> parents: 1260 diff changeset	9700
3289 81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	9701	markUnreachableCodeAsCommentIn:expr
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	9702	\|sel constVal receiver args\|
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	9703
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	9704	sel := expr selector.
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	9705	receiver := expr receiver.
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	9706	args:= expr args.
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	9707
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	9708	"/ look for true ifTrue / false ifFalse and mark as comment
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	9709	(sel = #ifTrue:
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	9710	or:[sel = #ifFalse:
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	9711	or:[sel = #ifTrue:ifFalse:
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	9712	or:[sel = #ifFalse:ifTrue:]]]) ifTrue:[
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	9713	(receiver withConstantValueDo:[:val \| constVal := val]) ifTrue:[
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	9714	\|indexOfArgNotExecuted\|
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	9715
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	9716	"/ receiver evaluates to a constant
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	9717	constVal == true ifTrue:[
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	9718	indexOfArgNotExecuted := (sel startsWith: #ifFalse:) ifTrue:[1] ifFalse:[2]
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	9719	].
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	9720	constVal == false ifTrue:[
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	9721	indexOfArgNotExecuted := (sel startsWith: #ifTrue:) ifTrue:[1] ifFalse:[2]
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	9722	].
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	9723	indexOfArgNotExecuted == 2 ifTrue:[
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	9724	args size == 1 ifTrue:[ indexOfArgNotExecuted := nil]
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	9725	].
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	9726
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	9727	indexOfArgNotExecuted notNil ifTrue:[
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	9728	\|argIsNotExecuted\|
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	9729
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	9730	"/ self warning:'receiver is constant; arg',indexOfArgNotExecuted printString,' is never executed' position:pos1 to:tokenPosition.
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	9731	argIsNotExecuted := expr args at:indexOfArgNotExecuted.
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	9732	argIsNotExecuted isBlockNode ifTrue:[
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	9733	self markCommentFrom:argIsNotExecuted startPosition to:argIsNotExecuted endPosition.
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	9734	].
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	9735	].
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	9736	].
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	9737	].
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	9738	!
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	9739
1003 37badd2eb5b0 dont stop syntaxHighlighting when a bad assignment is encountered Claus Gittinger <cg@exept.de> parents: 997 diff changeset	9740	noAssignmentAllowed:eMsg at:pos
37badd2eb5b0 dont stop syntaxHighlighting when a bad assignment is encountered Claus Gittinger <cg@exept.de> parents: 997 diff changeset	9741	((tokenType == $_) or:[tokenType == #':=']) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9742	self parseError:eMsg position:pos to:tokenPosition + tokenType size - 1.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9743	self isSyntaxHighlighter ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9744	^ false
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9745	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9746	self nextToken. "/ eat the assign when doing highlighting only
1003 37badd2eb5b0 dont stop syntaxHighlighting when a bad assignment is encountered Claus Gittinger <cg@exept.de> parents: 997 diff changeset	9747	].
37badd2eb5b0 dont stop syntaxHighlighting when a bad assignment is encountered Claus Gittinger <cg@exept.de> parents: 997 diff changeset	9748	^ true
37badd2eb5b0 dont stop syntaxHighlighting when a bad assignment is encountered Claus Gittinger <cg@exept.de> parents: 997 diff changeset	9749	!
37badd2eb5b0 dont stop syntaxHighlighting when a bad assignment is encountered Claus Gittinger <cg@exept.de> parents: 997 diff changeset	9750
1762 219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9751	nodeForMethodArg:varName
219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9752	\|varIndex var\|
219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9753
219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9754	methodArgNames isNil ifTrue:[^ nil].
219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9755	varIndex := methodArgNames indexOf:varName.
219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9756	varIndex == 0 ifTrue:[^ nil].
219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9757
219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9758	var := methodArgs at:varIndex.
219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9759	"/ var used:true.
2614 7fb9c052438e More fixes to keep node position in the source. Not yet fully implemented Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2567 diff changeset	9760	^ (VariableNode type:#MethodArg
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9761	name:varName
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9762	token:var
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9763	index:varIndex)
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9764	startPosition: tokenPosition endPosition: tokenPosition + varName size - 1
2669 1f35533d050f Fixes for node position in: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2621 diff changeset	9765
1f35533d050f Fixes for node position in: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2621 diff changeset	9766	"Modified: / 21-08-2011 / 07:58:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1762 219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9767	!
219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9768
219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9769	nodeForMethodVariable:varName
219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9770	\|varIndex var\|
219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9771
219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9772	methodVarNames isNil ifTrue:[^ nil].
219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9773	varIndex := methodVarNames indexOf:varName.
219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9774	varIndex == 0 ifTrue:[^ nil].
219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9775
219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9776	var := methodVars at:varIndex.
219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9777	var used:true.
219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9778	parseForCode ifFalse:[self rememberLocalUsed:varName].
2614 7fb9c052438e More fixes to keep node position in the source. Not yet fully implemented Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2567 diff changeset	9779	^ (VariableNode type:#MethodVariable
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9780	name:varName
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9781	token:var
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9782	index:varIndex)
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9783	startPosition: tokenPosition endPosition: tokenPosition + varName size - 1
2679 7f868d5843cd Fixes in start/endPosition for Variable node Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2671 diff changeset	9784
7f868d5843cd Fixes in start/endPosition for Variable node Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2671 diff changeset	9785	"Modified: / 25-08-2011 / 11:42:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1762 219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9786	!
219f7751c212 category Claus Gittinger <cg@exept.de> parents: 1758 diff changeset	9787
787 9a178fa050b9 checkin from browser Claus Gittinger <cg@exept.de> parents: 762 diff changeset	9788	plausibilityCheck:aNode
1687 ecc241457f4d * empty log message * Claus Gittinger <cg@exept.de> parents: 1685 diff changeset	9789	\|note rcvr\|
1193 c441d3b202e5 check bad super message Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	9790
2093 b6b27c9c4d26 remember already warned unimplemented selectors; Claus Gittinger <cg@exept.de> parents: 2090 diff changeset	9791	note := aNode plausibilityCheckIn:self.
1193 c441d3b202e5 check bad super message Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	9792	note isNil ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9793	aNode isMessage ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9794	(contextToEvaluateIn isNil and:[selfValue isNil]) ifTrue:[ "/ do not check this for doits
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9795	rcvr := aNode receiver.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9796	(rcvr isSuper and:[rcvr isHere not]) ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9797	aNode selector ~= selector ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9798	didWarnAboutBadSupersend ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9799	didWarnAboutBadSupersend := true.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9800	note := 'possible bad super message ? (selector should usually be the same as in current method)'.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9801	]
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9802	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9803	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9804	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9805	].
1193 c441d3b202e5 check bad super message Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	9806	].
2100 fae3bbf851e0 obfuscated code detection Claus Gittinger <cg@exept.de> parents: 2098 diff changeset	9807	note isNil ifTrue:[ ^ nil].
fae3bbf851e0 obfuscated code detection Claus Gittinger <cg@exept.de> parents: 2098 diff changeset	9808	^ note withCRs
fae3bbf851e0 obfuscated code detection Claus Gittinger <cg@exept.de> parents: 2098 diff changeset	9809
2432 0f5bf994c828 changed: #plausibilityCheck: Claus Gittinger <cg@exept.de> parents: 2430 diff changeset	9810	"Modified: / 26-10-2010 / 10:21:18 / cg"
1262 85c57c7eee77 experimental: refs Claus Gittinger <cg@exept.de> parents: 1260 diff changeset	9811	!
85c57c7eee77 experimental: refs Claus Gittinger <cg@exept.de> parents: 1260 diff changeset	9812
85c57c7eee77 experimental: refs Claus Gittinger <cg@exept.de> parents: 1260 diff changeset	9813	selfNode
2567 30fd2329c3bd - parse tree nodes are no longer shared Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2563 diff changeset	9814
30fd2329c3bd - parse tree nodes are no longer shared Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2563 diff changeset	9815	"/JV@2011-07-19: Changed not to share the nodes
30fd2329c3bd - parse tree nodes are no longer shared Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2563 diff changeset	9816
30fd2329c3bd - parse tree nodes are no longer shared Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2563 diff changeset	9817	^ SelfNode value:selfValue
30fd2329c3bd - parse tree nodes are no longer shared Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2563 diff changeset	9818
30fd2329c3bd - parse tree nodes are no longer shared Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2563 diff changeset	9819	"/ Old code
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	9820	"/ selfNode isNil ifTrue:[
2567 30fd2329c3bd - parse tree nodes are no longer shared Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2563 diff changeset	9821	"/ selfNode := SelfNode value:selfValue
30fd2329c3bd - parse tree nodes are no longer shared Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2563 diff changeset	9822	"/ ].
30fd2329c3bd - parse tree nodes are no longer shared Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2563 diff changeset	9823	"/ ^ selfNode
30fd2329c3bd - parse tree nodes are no longer shared Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2563 diff changeset	9824
30fd2329c3bd - parse tree nodes are no longer shared Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2563 diff changeset	9825	"Modified: / 19-07-2011 / 17:22:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	9826	! !
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	9827
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	9828	!Parser methodsFor:'queries'!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	9829
2511 5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	9830	annotations
5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	9831	^ annotations
5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	9832
5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	9833	"Created: / 03-11-2009 / 17:09:45 / Jan Travnicek <travnja3@fel.cvut.cz>"
5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	9834	"Modified: / 15-12-2009 / 14:07:24 / Jan Travnicek <travnja3@fel.cvut.cz>"
5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	9835	!
5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	9836
735 4012fa1611b1 code cleanup & fix for doIt (implementing class) Claus Gittinger <cg@exept.de> parents: 733 diff changeset	9837	classToLookForClassVars
4012fa1611b1 code cleanup & fix for doIt (implementing class) Claus Gittinger <cg@exept.de> parents: 733 diff changeset	9838	"helper - return the class to look for classVars.
4012fa1611b1 code cleanup & fix for doIt (implementing class) Claus Gittinger <cg@exept.de> parents: 733 diff changeset	9839	If there is a context in which we evaluate, the
4012fa1611b1 code cleanup & fix for doIt (implementing class) Claus Gittinger <cg@exept.de> parents: 733 diff changeset	9840	methods implementing class is used instead of the
4012fa1611b1 code cleanup & fix for doIt (implementing class) Claus Gittinger <cg@exept.de> parents: 733 diff changeset	9841	class of the receiver."
4012fa1611b1 code cleanup & fix for doIt (implementing class) Claus Gittinger <cg@exept.de> parents: 733 diff changeset	9842
1160 972e7e337891 Warn about unused method vars Stefan Vogel <sv@exept.de> parents: 1158 diff changeset	9843	\|m who\|
735 4012fa1611b1 code cleanup & fix for doIt (implementing class) Claus Gittinger <cg@exept.de> parents: 733 diff changeset	9844
4012fa1611b1 code cleanup & fix for doIt (implementing class) Claus Gittinger <cg@exept.de> parents: 733 diff changeset	9845	contextToEvaluateIn notNil ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9846	m := contextToEvaluateIn method.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9847	m notNil ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9848	who := contextToEvaluateIn method who.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9849	who notNil ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9850	^ who methodClass.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9851	]
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9852	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9853	"/ mhmh - might be a doIt ...
735 4012fa1611b1 code cleanup & fix for doIt (implementing class) Claus Gittinger <cg@exept.de> parents: 733 diff changeset	9854	].
4012fa1611b1 code cleanup & fix for doIt (implementing class) Claus Gittinger <cg@exept.de> parents: 733 diff changeset	9855	^ classToCompileFor
4012fa1611b1 code cleanup & fix for doIt (implementing class) Claus Gittinger <cg@exept.de> parents: 733 diff changeset	9856
4012fa1611b1 code cleanup & fix for doIt (implementing class) Claus Gittinger <cg@exept.de> parents: 733 diff changeset	9857	"Created: / 18.6.1998 / 15:43:42 / cg"
748 9c44179d6b03 checkin from browser Claus Gittinger <cg@exept.de> parents: 743 diff changeset	9858	"Modified: / 21.7.1998 / 18:19:52 / cg"
735 4012fa1611b1 code cleanup & fix for doIt (implementing class) Claus Gittinger <cg@exept.de> parents: 733 diff changeset	9859	!
4012fa1611b1 code cleanup & fix for doIt (implementing class) Claus Gittinger <cg@exept.de> parents: 733 diff changeset	9860
358 78b0d8954c49 removed possible conflict between #classVarNames here and in Class. Claus Gittinger <cg@exept.de> parents: 354 diff changeset	9861	classesClassInstVarNames
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	9862	"caching allInstVarNames for next compilation saves time ..."
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	9863
735 4012fa1611b1 code cleanup & fix for doIt (implementing class) Claus Gittinger <cg@exept.de> parents: 733 diff changeset	9864	\|names\|
694 1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars Claus Gittinger <cg@exept.de> parents: 692 diff changeset	9865
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars Claus Gittinger <cg@exept.de> parents: 692 diff changeset	9866	[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9867	\|cls\|
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9868
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9869	cls := self classToLookForClassVars.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9870
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9871	(PrevClassInstVarNames isNil or:[PrevClass ~~ cls]) ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9872	PrevClass notNil ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9873	PrevClass removeDependent:Parser
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9874	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9875	PrevClass := cls.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9876
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9877	PrevClassInstVarNames := cls class allInstVarNames.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9878	PrevClass addDependent:Parser.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9879	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9880	names := PrevClassInstVarNames.
694 1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars Claus Gittinger <cg@exept.de> parents: 692 diff changeset	9881	] valueUninterruptably.
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars Claus Gittinger <cg@exept.de> parents: 692 diff changeset	9882	^ names
358 78b0d8954c49 removed possible conflict between #classVarNames here and in Class. Claus Gittinger <cg@exept.de> parents: 354 diff changeset	9883
732 c36e5ef1e6ce oops - when evaluating in a context, classVars must be Claus Gittinger <cg@exept.de> parents: 725 diff changeset	9884	"Created: / 14.10.1996 / 18:03:35 / cg"
735 4012fa1611b1 code cleanup & fix for doIt (implementing class) Claus Gittinger <cg@exept.de> parents: 733 diff changeset	9885	"Modified: / 18.6.1998 / 15:44:41 / cg"
0 7ad01559b262 Initial revision claus parents: diff changeset	9886	!
7ad01559b262 Initial revision claus parents: diff changeset	9887
358 78b0d8954c49 removed possible conflict between #classVarNames here and in Class. Claus Gittinger <cg@exept.de> parents: 354 diff changeset	9888	classesClassVarNames
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	9889	"caching allClassVarNames for next compilation saves time ..."
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	9890
735 4012fa1611b1 code cleanup & fix for doIt (implementing class) Claus Gittinger <cg@exept.de> parents: 733 diff changeset	9891	\|names\|
694 1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars Claus Gittinger <cg@exept.de> parents: 692 diff changeset	9892
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars Claus Gittinger <cg@exept.de> parents: 692 diff changeset	9893	[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9894	\|cls aClass\|
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9895
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9896	cls := self classToLookForClassVars.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9897
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9898	(PrevClassVarNames isNil or:[PrevClass ~~ cls]) ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9899	PrevClass notNil ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9900	PrevClass removeDependent:Parser
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9901	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9902	aClass := PrevClass := cls.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9903	aClass isMeta ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9904	aClass := aClass soleInstance.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9905	aClass isNil ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9906	aClass := classToCompileFor
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9907	]
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9908	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9909	PrevClassVarNames := aClass allClassVarNames.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9910	PrevClass addDependent:Parser.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9911	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9912	names := PrevClassVarNames.
694 1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars Claus Gittinger <cg@exept.de> parents: 692 diff changeset	9913	] valueUninterruptably.
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars Claus Gittinger <cg@exept.de> parents: 692 diff changeset	9914	^ names
290 d1650b17b9e9 Change the name of a classes Metaclass from e.g. "SmallIntegerclass" to Stefan Vogel <sv@exept.de> parents: 285 diff changeset	9915
732 c36e5ef1e6ce oops - when evaluating in a context, classVars must be Claus Gittinger <cg@exept.de> parents: 725 diff changeset	9916	"Modified: / 17.6.1996 / 17:15:53 / stefan"
c36e5ef1e6ce oops - when evaluating in a context, classVars must be Claus Gittinger <cg@exept.de> parents: 725 diff changeset	9917	"Created: / 14.10.1996 / 18:02:41 / cg"
735 4012fa1611b1 code cleanup & fix for doIt (implementing class) Claus Gittinger <cg@exept.de> parents: 733 diff changeset	9918	"Modified: / 18.6.1998 / 15:44:30 / cg"
358 78b0d8954c49 removed possible conflict between #classVarNames here and in Class. Claus Gittinger <cg@exept.de> parents: 354 diff changeset	9919	!
78b0d8954c49 removed possible conflict between #classVarNames here and in Class. Claus Gittinger <cg@exept.de> parents: 354 diff changeset	9920
78b0d8954c49 removed possible conflict between #classVarNames here and in Class. Claus Gittinger <cg@exept.de> parents: 354 diff changeset	9921	classesInstVarNames
78b0d8954c49 removed possible conflict between #classVarNames here and in Class. Claus Gittinger <cg@exept.de> parents: 354 diff changeset	9922	"caching allInstVarNames for next compilation saves time ..."
78b0d8954c49 removed possible conflict between #classVarNames here and in Class. Claus Gittinger <cg@exept.de> parents: 354 diff changeset	9923
694 1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars Claus Gittinger <cg@exept.de> parents: 692 diff changeset	9924	\|names\|
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars Claus Gittinger <cg@exept.de> parents: 692 diff changeset	9925
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars Claus Gittinger <cg@exept.de> parents: 692 diff changeset	9926	[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9927	(PrevInstVarNames isNil or:[PrevClass ~~ classToCompileFor]) ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9928	PrevClass notNil ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9929	PrevClass removeDependent:Parser
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9930	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9931	PrevClass := classToCompileFor.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9932	PrevInstVarNames := classToCompileFor allInstVarNames.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9933	PrevClassInstVarNames := nil.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9934	PrevClassVarNames := nil.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9935	PrevClass addDependent:Parser
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9936	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9937	names := PrevInstVarNames
694 1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars Claus Gittinger <cg@exept.de> parents: 692 diff changeset	9938	] valueUninterruptably.
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars Claus Gittinger <cg@exept.de> parents: 692 diff changeset	9939
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars Claus Gittinger <cg@exept.de> parents: 692 diff changeset	9940	^ names
358 78b0d8954c49 removed possible conflict between #classVarNames here and in Class. Claus Gittinger <cg@exept.de> parents: 354 diff changeset	9941
78b0d8954c49 removed possible conflict between #classVarNames here and in Class. Claus Gittinger <cg@exept.de> parents: 354 diff changeset	9942	"Created: 14.10.1996 / 18:00:26 / cg"
0 7ad01559b262 Initial revision claus parents: diff changeset	9943	!
7ad01559b262 Initial revision claus parents: diff changeset	9944
934 716f9c76b06b pass down returnable-context flag via method. Claus Gittinger <cg@exept.de> parents: 931 diff changeset	9945	contextMustBeReturnable
2928 6479e1be24b3 lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	9946	"/ misusing/misinterpreting the lineNumberInfo flag is a q&d hack; there should be an extra flag
6479e1be24b3 lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	9947	^ (parserFlags fullLineNumberInfo)
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	9948	or:[ primitiveContextInfo notNil
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	9949	and:[ primitiveContextInfo includes:('context:' -> #return) ]]
2928 6479e1be24b3 lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	9950
6479e1be24b3 lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	9951	"Modified: / 26-09-2012 / 14:15:33 / cg"
934 716f9c76b06b pass down returnable-context flag via method. Claus Gittinger <cg@exept.de> parents: 931 diff changeset	9952	!
716f9c76b06b pass down returnable-context flag via method. Claus Gittinger <cg@exept.de> parents: 931 diff changeset	9953
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	9954	hasNonOptionalPrimitiveCode
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	9955	"return true if there was any ST/X style primitive code (valid after parsing)"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	9956
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	9957	^ hasNonOptionalPrimitiveCode
0 7ad01559b262 Initial revision claus parents: diff changeset	9958	!
7ad01559b262 Initial revision claus parents: diff changeset	9959
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	9960	hasPrimitiveCode
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	9961	"return true if there was any ST/X style primitive code (valid after parsing)"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	9962
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	9963	^ hasPrimitiveCode
98 ccc7f9389a8e . claus parents: 97 diff changeset	9964	!
ccc7f9389a8e . claus parents: 97 diff changeset	9965
2085 9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	9966	isCompiling
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	9967	"return true if compiling code as opposed to evaluating"
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	9968
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	9969	^ false
2085 9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	9970	!
9e68a92eb94a Enable coding style checks only when compiling Stefan Vogel <sv@exept.de> parents: 2082 diff changeset	9971
1440 7084ae99ced7 * empty log message * Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	9972	isDoIt
3287 915a98fda4d2 class: Parser Claus Gittinger <cg@exept.de> parents: 3286 diff changeset	9973	^ (false "selector isNil" or:[selector == #'doIt' or:[selector == #'doIt:']])
1440 7084ae99ced7 * empty log message * Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	9974	!
7084ae99ced7 * empty log message * Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	9975
2213 d7b52f6cece6 added: #isEmptyMethod fm parents: 2210 diff changeset	9976	isEmptyMethod
d7b52f6cece6 added: #isEmptyMethod fm parents: 2210 diff changeset	9977	"return true (after a parse) if this is an empty (documentation) method"
d7b52f6cece6 added: #isEmptyMethod fm parents: 2210 diff changeset	9978
d7b52f6cece6 added: #isEmptyMethod fm parents: 2210 diff changeset	9979	^ tree isNil
d7b52f6cece6 added: #isEmptyMethod fm parents: 2210 diff changeset	9980	!
d7b52f6cece6 added: #isEmptyMethod fm parents: 2210 diff changeset	9981
883 e595802b4853 mark badIdentifiers Claus Gittinger <cg@exept.de> parents: 879 diff changeset	9982	isSyntaxHighlighter
e595802b4853 mark badIdentifiers Claus Gittinger <cg@exept.de> parents: 879 diff changeset	9983	^ false
e595802b4853 mark badIdentifiers Claus Gittinger <cg@exept.de> parents: 879 diff changeset	9984	!
e595802b4853 mark badIdentifiers Claus Gittinger <cg@exept.de> parents: 879 diff changeset	9985
3185 72d7c67a9416 class: Parser Claus Gittinger <cg@exept.de> parents: 3183 diff changeset	9986	methodArgs
72d7c67a9416 class: Parser Claus Gittinger <cg@exept.de> parents: 3183 diff changeset	9987	"return an array with methodarg names (valid after parsing spec)"
72d7c67a9416 class: Parser Claus Gittinger <cg@exept.de> parents: 3183 diff changeset	9988
72d7c67a9416 class: Parser Claus Gittinger <cg@exept.de> parents: 3183 diff changeset	9989	^ methodArgNames
72d7c67a9416 class: Parser Claus Gittinger <cg@exept.de> parents: 3183 diff changeset	9990	!
72d7c67a9416 class: Parser Claus Gittinger <cg@exept.de> parents: 3183 diff changeset	9991
72d7c67a9416 class: Parser Claus Gittinger <cg@exept.de> parents: 3183 diff changeset	9992	methodVars
72d7c67a9416 class: Parser Claus Gittinger <cg@exept.de> parents: 3183 diff changeset	9993	"return a collection with method variablenames (valid after parsing)"
72d7c67a9416 class: Parser Claus Gittinger <cg@exept.de> parents: 3183 diff changeset	9994
72d7c67a9416 class: Parser Claus Gittinger <cg@exept.de> parents: 3183 diff changeset	9995	^ methodVarNames
72d7c67a9416 class: Parser Claus Gittinger <cg@exept.de> parents: 3183 diff changeset	9996	!
72d7c67a9416 class: Parser Claus Gittinger <cg@exept.de> parents: 3183 diff changeset	9997
72d7c67a9416 class: Parser Claus Gittinger <cg@exept.de> parents: 3183 diff changeset	9998	numberOfMethodArgs
72d7c67a9416 class: Parser Claus Gittinger <cg@exept.de> parents: 3183 diff changeset	9999	"return the number of methodargs (valid after parsing spec)"
72d7c67a9416 class: Parser Claus Gittinger <cg@exept.de> parents: 3183 diff changeset	10000
72d7c67a9416 class: Parser Claus Gittinger <cg@exept.de> parents: 3183 diff changeset	10001	^ methodArgs size
72d7c67a9416 class: Parser Claus Gittinger <cg@exept.de> parents: 3183 diff changeset	10002	!
72d7c67a9416 class: Parser Claus Gittinger <cg@exept.de> parents: 3183 diff changeset	10003
72d7c67a9416 class: Parser Claus Gittinger <cg@exept.de> parents: 3183 diff changeset	10004	numberOfMethodVars
72d7c67a9416 class: Parser Claus Gittinger <cg@exept.de> parents: 3183 diff changeset	10005	"return the number of method variables (valid after parsing)"
72d7c67a9416 class: Parser Claus Gittinger <cg@exept.de> parents: 3183 diff changeset	10006
72d7c67a9416 class: Parser Claus Gittinger <cg@exept.de> parents: 3183 diff changeset	10007	^ methodVars size
72d7c67a9416 class: Parser Claus Gittinger <cg@exept.de> parents: 3183 diff changeset	10008	!
72d7c67a9416 class: Parser Claus Gittinger <cg@exept.de> parents: 3183 diff changeset	10009
72d7c67a9416 class: Parser Claus Gittinger <cg@exept.de> parents: 3183 diff changeset	10010	selector
72d7c67a9416 class: Parser Claus Gittinger <cg@exept.de> parents: 3183 diff changeset	10011	"return the selector (valid after parsing spec)"
72d7c67a9416 class: Parser Claus Gittinger <cg@exept.de> parents: 3183 diff changeset	10012
72d7c67a9416 class: Parser Claus Gittinger <cg@exept.de> parents: 3183 diff changeset	10013	^ selector
72d7c67a9416 class: Parser Claus Gittinger <cg@exept.de> parents: 3183 diff changeset	10014	!
72d7c67a9416 class: Parser Claus Gittinger <cg@exept.de> parents: 3183 diff changeset	10015
72d7c67a9416 class: Parser Claus Gittinger <cg@exept.de> parents: 3183 diff changeset	10016	shouldPerformCodingStyleChecks
72d7c67a9416 class: Parser Claus Gittinger <cg@exept.de> parents: 3183 diff changeset	10017	^ ignoreWarnings not and:[ self isCompiling ]
72d7c67a9416 class: Parser Claus Gittinger <cg@exept.de> parents: 3183 diff changeset	10018	!
72d7c67a9416 class: Parser Claus Gittinger <cg@exept.de> parents: 3183 diff changeset	10019
72d7c67a9416 class: Parser Claus Gittinger <cg@exept.de> parents: 3183 diff changeset	10020	whichClassIncludesClassVar:aVariableName
72d7c67a9416 class: Parser Claus Gittinger <cg@exept.de> parents: 3183 diff changeset	10021	\|cls\|
72d7c67a9416 class: Parser Claus Gittinger <cg@exept.de> parents: 3183 diff changeset	10022
72d7c67a9416 class: Parser Claus Gittinger <cg@exept.de> parents: 3183 diff changeset	10023	cls := self classToLookForClassVars.
72d7c67a9416 class: Parser Claus Gittinger <cg@exept.de> parents: 3183 diff changeset	10024	cls isMeta ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10025	cls := cls soleInstance.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10026	cls isNil ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10027	cls := classToCompileFor
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10028	]
3185 72d7c67a9416 class: Parser Claus Gittinger <cg@exept.de> parents: 3183 diff changeset	10029	].
72d7c67a9416 class: Parser Claus Gittinger <cg@exept.de> parents: 3183 diff changeset	10030	^ cls whichClassDefinesClassVar:aVariableName
72d7c67a9416 class: Parser Claus Gittinger <cg@exept.de> parents: 3183 diff changeset	10031
72d7c67a9416 class: Parser Claus Gittinger <cg@exept.de> parents: 3183 diff changeset	10032	"Created: / 05-10-2011 / 15:23:24 / az"
72d7c67a9416 class: Parser Claus Gittinger <cg@exept.de> parents: 3183 diff changeset	10033	! !
72d7c67a9416 class: Parser Claus Gittinger <cg@exept.de> parents: 3183 diff changeset	10034
72d7c67a9416 class: Parser Claus Gittinger <cg@exept.de> parents: 3183 diff changeset	10035	!Parser methodsFor:'queries-statistic'!
72d7c67a9416 class: Parser Claus Gittinger <cg@exept.de> parents: 3183 diff changeset	10036
2947 38208aab9400 class definition Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	10037	messagesPossiblySent
38208aab9400 class definition Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	10038	"return a collection with possible message selectors (valid after parsing).
38208aab9400 class definition Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	10039	Includes things known or possibly used with #perform or in specs."
38208aab9400 class definition Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	10040
38208aab9400 class definition Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	10041	^ (messagesPossiblySent ? #()) collect:[:each \| each asSymbol]
38208aab9400 class definition Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	10042	!
38208aab9400 class definition Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	10043
1082 f795099895c5 keep track of messages sent to self (for checker) Claus Gittinger <cg@exept.de> parents: 1078 diff changeset	10044	messagesSent
f795099895c5 keep track of messages sent to self (for checker) Claus Gittinger <cg@exept.de> parents: 1078 diff changeset	10045	"return a collection with sent message selectors (valid after parsing).
f795099895c5 keep track of messages sent to self (for checker) Claus Gittinger <cg@exept.de> parents: 1078 diff changeset	10046	Includes all sent messages (i.e. also sent super messages)"
f795099895c5 keep track of messages sent to self (for checker) Claus Gittinger <cg@exept.de> parents: 1078 diff changeset	10047
f795099895c5 keep track of messages sent to self (for checker) Claus Gittinger <cg@exept.de> parents: 1078 diff changeset	10048	^ (messagesSent ? #()) collect:[:each \| each asSymbol]
f795099895c5 keep track of messages sent to self (for checker) Claus Gittinger <cg@exept.de> parents: 1078 diff changeset	10049	!
f795099895c5 keep track of messages sent to self (for checker) Claus Gittinger <cg@exept.de> parents: 1078 diff changeset	10050
f795099895c5 keep track of messages sent to self (for checker) Claus Gittinger <cg@exept.de> parents: 1078 diff changeset	10051	messagesSentToSelf
f795099895c5 keep track of messages sent to self (for checker) Claus Gittinger <cg@exept.de> parents: 1078 diff changeset	10052	"return a collection with message selectors sent to self only (valid after parsing)"
f795099895c5 keep track of messages sent to self (for checker) Claus Gittinger <cg@exept.de> parents: 1078 diff changeset	10053
f795099895c5 keep track of messages sent to self (for checker) Claus Gittinger <cg@exept.de> parents: 1078 diff changeset	10054	^ (messagesSentToSelf ? #()) collect:[:each \| each asSymbol]
f795099895c5 keep track of messages sent to self (for checker) Claus Gittinger <cg@exept.de> parents: 1078 diff changeset	10055	!
f795099895c5 keep track of messages sent to self (for checker) Claus Gittinger <cg@exept.de> parents: 1078 diff changeset	10056
f795099895c5 keep track of messages sent to self (for checker) Claus Gittinger <cg@exept.de> parents: 1078 diff changeset	10057	messagesSentToSuper
f795099895c5 keep track of messages sent to self (for checker) Claus Gittinger <cg@exept.de> parents: 1078 diff changeset	10058	"return a collection with message selectors sent to super only (valid after parsing)"
f795099895c5 keep track of messages sent to self (for checker) Claus Gittinger <cg@exept.de> parents: 1078 diff changeset	10059
f795099895c5 keep track of messages sent to self (for checker) Claus Gittinger <cg@exept.de> parents: 1078 diff changeset	10060	^ (messagesSentToSuper ? #()) collect:[:each \| each asSymbol]
f795099895c5 keep track of messages sent to self (for checker) Claus Gittinger <cg@exept.de> parents: 1078 diff changeset	10061	!
f795099895c5 keep track of messages sent to self (for checker) Claus Gittinger <cg@exept.de> parents: 1078 diff changeset	10062
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10063	modifiedClassVars
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10064	"return a collection with classvariablenames modified by method (valid after parsing)"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10065
541 63f0c6734fb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 540 diff changeset	10066	^ modifiedClassVars ? #()
63f0c6734fb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 540 diff changeset	10067
63f0c6734fb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 540 diff changeset	10068	"Modified: 19.6.1997 / 17:54:48 / cg"
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10069	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10070
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10071	modifiedGlobals
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10072	"return a collection with globalnames modified by method (valid after parsing)"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10073
541 63f0c6734fb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 540 diff changeset	10074	^ modifiedGlobals ? #()
63f0c6734fb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 540 diff changeset	10075
63f0c6734fb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 540 diff changeset	10076	"Modified: 19.6.1997 / 17:54:51 / cg"
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10077	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10078
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10079	modifiedInstVars
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10080	"return a collection with instvariablenames modified by method (valid after parsing)"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10081
541 63f0c6734fb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 540 diff changeset	10082	^ modifiedInstVars ? #()
63f0c6734fb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 540 diff changeset	10083
63f0c6734fb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 540 diff changeset	10084	"Modified: 19.6.1997 / 17:54:27 / cg"
0 7ad01559b262 Initial revision claus parents: diff changeset	10085	!
7ad01559b262 Initial revision claus parents: diff changeset	10086
2956 87b1fd54dcaa keep track of used pool vars as well Claus Gittinger <cg@exept.de> parents: 2947 diff changeset	10087	modifiedPoolVars
87b1fd54dcaa keep track of used pool vars as well Claus Gittinger <cg@exept.de> parents: 2947 diff changeset	10088	"return a collection with pool variable names modified by method (valid after parsing)"
87b1fd54dcaa keep track of used pool vars as well Claus Gittinger <cg@exept.de> parents: 2947 diff changeset	10089
87b1fd54dcaa keep track of used pool vars as well Claus Gittinger <cg@exept.de> parents: 2947 diff changeset	10090	^ modifiedPoolVars ? #()
87b1fd54dcaa keep track of used pool vars as well Claus Gittinger <cg@exept.de> parents: 2947 diff changeset	10091
87b1fd54dcaa keep track of used pool vars as well Claus Gittinger <cg@exept.de> parents: 2947 diff changeset	10092	"Modified: 19.6.1997 / 17:54:48 / cg"
87b1fd54dcaa keep track of used pool vars as well Claus Gittinger <cg@exept.de> parents: 2947 diff changeset	10093	!
87b1fd54dcaa keep track of used pool vars as well Claus Gittinger <cg@exept.de> parents: 2947 diff changeset	10094
1077 e34f711bd1d1 #readInstVars & #readClassVars Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	10095	readClassVars
e34f711bd1d1 #readInstVars & #readClassVars Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	10096	"return a collection with classvariablenames read by method (valid after parsing)"
e34f711bd1d1 #readInstVars & #readClassVars Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	10097
e34f711bd1d1 #readInstVars & #readClassVars Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	10098	^ readClassVars ? #()
e34f711bd1d1 #readInstVars & #readClassVars Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	10099
e34f711bd1d1 #readInstVars & #readClassVars Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	10100	"Modified: 19.6.1997 / 17:54:38 / cg"
e34f711bd1d1 #readInstVars & #readClassVars Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	10101	!
e34f711bd1d1 #readInstVars & #readClassVars Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	10102
2053 5bf23d84c6ac remember global accesses Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	10103	readGlobals
5bf23d84c6ac remember global accesses Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	10104	"return a collection with global varNames read by method (valid after parsing)"
5bf23d84c6ac remember global accesses Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	10105
5bf23d84c6ac remember global accesses Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	10106	^ readGlobals ? #()
5bf23d84c6ac remember global accesses Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	10107
5bf23d84c6ac remember global accesses Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	10108	"Modified: 19.6.1997 / 17:54:38 / cg"
5bf23d84c6ac remember global accesses Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	10109	!
5bf23d84c6ac remember global accesses Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	10110
1077 e34f711bd1d1 #readInstVars & #readClassVars Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	10111	readInstVars
e34f711bd1d1 #readInstVars & #readClassVars Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	10112	"return a collection with instvariablenames read by method (valid after parsing)"
e34f711bd1d1 #readInstVars & #readClassVars Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	10113
e34f711bd1d1 #readInstVars & #readClassVars Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	10114	^ readInstVars ? #()
e34f711bd1d1 #readInstVars & #readClassVars Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	10115
e34f711bd1d1 #readInstVars & #readClassVars Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	10116	"Modified: 19.6.1997 / 17:54:38 / cg"
e34f711bd1d1 #readInstVars & #readClassVars Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	10117	!
e34f711bd1d1 #readInstVars & #readClassVars Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	10118
2956 87b1fd54dcaa keep track of used pool vars as well Claus Gittinger <cg@exept.de> parents: 2947 diff changeset	10119	readPoolVars
87b1fd54dcaa keep track of used pool vars as well Claus Gittinger <cg@exept.de> parents: 2947 diff changeset	10120	"return a collection with pool var names read by method (valid after parsing)"
87b1fd54dcaa keep track of used pool vars as well Claus Gittinger <cg@exept.de> parents: 2947 diff changeset	10121
87b1fd54dcaa keep track of used pool vars as well Claus Gittinger <cg@exept.de> parents: 2947 diff changeset	10122	^ readPoolVars ? #()
87b1fd54dcaa keep track of used pool vars as well Claus Gittinger <cg@exept.de> parents: 2947 diff changeset	10123
87b1fd54dcaa keep track of used pool vars as well Claus Gittinger <cg@exept.de> parents: 2947 diff changeset	10124	"Modified: 19.6.1997 / 17:54:38 / cg"
87b1fd54dcaa keep track of used pool vars as well Claus Gittinger <cg@exept.de> parents: 2947 diff changeset	10125	!
87b1fd54dcaa keep track of used pool vars as well Claus Gittinger <cg@exept.de> parents: 2947 diff changeset	10126
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10127	usedClassVars
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10128	"return a collection with classvariablenames refd by method (valid after parsing)"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10129
541 63f0c6734fb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 540 diff changeset	10130	^ usedClassVars ? #()
63f0c6734fb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 540 diff changeset	10131
63f0c6734fb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 540 diff changeset	10132	"Modified: 19.6.1997 / 17:54:56 / cg"
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10133	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10134
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10135	usedGlobals
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10136	"return a collection with globalnames refd by method (valid after parsing)"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10137
541 63f0c6734fb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 540 diff changeset	10138	^ usedGlobals ? #()
63f0c6734fb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 540 diff changeset	10139
63f0c6734fb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 540 diff changeset	10140	"Modified: 19.6.1997 / 17:55:00 / cg"
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10141	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10142
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10143	usedInstVars
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10144	"return a collection with instvariablenames refd by method (valid after parsing)"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10145
541 63f0c6734fb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 540 diff changeset	10146	^ usedInstVars ? #()
63f0c6734fb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 540 diff changeset	10147
63f0c6734fb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 540 diff changeset	10148	"Modified: 19.6.1997 / 17:54:38 / cg"
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10149	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10150
2956 87b1fd54dcaa keep track of used pool vars as well Claus Gittinger <cg@exept.de> parents: 2947 diff changeset	10151	usedPoolVars
87b1fd54dcaa keep track of used pool vars as well Claus Gittinger <cg@exept.de> parents: 2947 diff changeset	10152	"return a collection with pool variable names refd by method (valid after parsing)"
87b1fd54dcaa keep track of used pool vars as well Claus Gittinger <cg@exept.de> parents: 2947 diff changeset	10153
87b1fd54dcaa keep track of used pool vars as well Claus Gittinger <cg@exept.de> parents: 2947 diff changeset	10154	^ usedPoolVars ? #()
87b1fd54dcaa keep track of used pool vars as well Claus Gittinger <cg@exept.de> parents: 2947 diff changeset	10155
87b1fd54dcaa keep track of used pool vars as well Claus Gittinger <cg@exept.de> parents: 2947 diff changeset	10156	"Modified: 19.6.1997 / 17:54:56 / cg"
87b1fd54dcaa keep track of used pool vars as well Claus Gittinger <cg@exept.de> parents: 2947 diff changeset	10157	!
87b1fd54dcaa keep track of used pool vars as well Claus Gittinger <cg@exept.de> parents: 2947 diff changeset	10158
1064 ecd50cdfb881 added #usedSymbols statistic Claus Gittinger <cg@exept.de> parents: 1063 diff changeset	10159	usedSymbols
ecd50cdfb881 added #usedSymbols statistic Claus Gittinger <cg@exept.de> parents: 1063 diff changeset	10160	"return a collection with used symbols (except for sent messages) (valid after parsing)"
ecd50cdfb881 added #usedSymbols statistic Claus Gittinger <cg@exept.de> parents: 1063 diff changeset	10161
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	10162	^ (usedSymbols ? #())
1064 ecd50cdfb881 added #usedSymbols statistic Claus Gittinger <cg@exept.de> parents: 1063 diff changeset	10163	!
ecd50cdfb881 added #usedSymbols statistic Claus Gittinger <cg@exept.de> parents: 1063 diff changeset	10164
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10165	usedVars
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10166	"return a collection with variablenames refd by method (valid after parsing)"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10167
541 63f0c6734fb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 540 diff changeset	10168	^ usedVars ? #()
63f0c6734fb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 540 diff changeset	10169
63f0c6734fb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 540 diff changeset	10170	"Modified: 19.6.1997 / 17:55:04 / cg"
0 7ad01559b262 Initial revision claus parents: diff changeset	10171	!
7ad01559b262 Initial revision claus parents: diff changeset	10172
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10173	usesSuper
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10174	"return true if the parsed method uses super (valid after parsing)"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10175
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10176	^ usesSuper
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10177	! !
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10178
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10179	!Parser methodsFor:'setup'!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10180
1636 98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	10181	arraysAreImmutable
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	10182	^ parserFlags arraysAreImmutable
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	10183	!
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	10184
1615 95cb173a5fcd immutable strings Claus Gittinger <cg@exept.de> parents: 1605 diff changeset	10185	arraysAreImmutable:aBoolean
1636 98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	10186	parserFlags arraysAreImmutable:aBoolean.
1615 95cb173a5fcd immutable strings Claus Gittinger <cg@exept.de> parents: 1605 diff changeset	10187	!
95cb173a5fcd immutable strings Claus Gittinger <cg@exept.de> parents: 1605 diff changeset	10188
1220 53e6eeadee72 added declare instVar and classInstVar Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	10189	classToCompileFor
53e6eeadee72 added declare instVar and classInstVar Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	10190	^ classToCompileFor
53e6eeadee72 added declare instVar and classInstVar Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	10191
53e6eeadee72 added declare instVar and classInstVar Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	10192	"Created: / 15.11.2001 / 17:21:10 / cg"
53e6eeadee72 added declare instVar and classInstVar Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	10193	!
53e6eeadee72 added declare instVar and classInstVar Claus Gittinger <cg@exept.de> parents: 1215 diff changeset	10194
229 7aecb52d907d dont fold constants with immediate evaluations Claus Gittinger <cg@exept.de> parents: 223 diff changeset	10195	foldConstants:aSymbolOrNil
7aecb52d907d dont fold constants with immediate evaluations Claus Gittinger <cg@exept.de> parents: 223 diff changeset	10196	"change the constant folding level. See the classMethod for a description."
7aecb52d907d dont fold constants with immediate evaluations Claus Gittinger <cg@exept.de> parents: 223 diff changeset	10197
7aecb52d907d dont fold constants with immediate evaluations Claus Gittinger <cg@exept.de> parents: 223 diff changeset	10198	foldConstants := aSymbolOrNil
7aecb52d907d dont fold constants with immediate evaluations Claus Gittinger <cg@exept.de> parents: 223 diff changeset	10199
7aecb52d907d dont fold constants with immediate evaluations Claus Gittinger <cg@exept.de> parents: 223 diff changeset	10200	"Created: 21.3.1996 / 16:03:22 / cg"
7aecb52d907d dont fold constants with immediate evaluations Claus Gittinger <cg@exept.de> parents: 223 diff changeset	10201	"Modified: 21.3.1996 / 16:05:04 / cg"
7aecb52d907d dont fold constants with immediate evaluations Claus Gittinger <cg@exept.de> parents: 223 diff changeset	10202	!
7aecb52d907d dont fold constants with immediate evaluations Claus Gittinger <cg@exept.de> parents: 223 diff changeset	10203
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10204	initialize
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10205	super initialize.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10206
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10207	hasPrimitiveCode := hasNonOptionalPrimitiveCode := false.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10208	usesSuper := false.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10209	parseForCode := false.
2108 653ffef8aa51 +allowUndeclared flag Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	10210	allowUndeclaredVariables := true.
377 bee1c21ecc62 checkin from browser Claus Gittinger <cg@exept.de> parents: 376 diff changeset	10211	foldConstants := FoldConstants.
1640 261459ccc704 emphasize parenthesis nesting Claus Gittinger <cg@exept.de> parents: 1638 diff changeset	10212	parenthesisLevel := 0.
1636 98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	10213
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	10214	didWarnAboutSTXNameSpaceUse := false.
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	10215	didWarnAboutSTXHereExtensionUsed := false.
1803 ea888d90dfef only warn once about bad super-message Claus Gittinger <cg@exept.de> parents: 1782 diff changeset	10216	didWarnAboutBadSupersend := false.
607 118452a23976 allow dollars in identifiers Claus Gittinger <cg@exept.de> parents: 603 diff changeset	10217
2511 5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	10218	annotations := Array new.
5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	10219
5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	10220	"Modified: / 01-07-2010 / 12:03:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2928 6479e1be24b3 lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 2926 diff changeset	10221	"Modified: / 26-09-2012 / 13:29:58 / cg"
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10222	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10223
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10224	parseForCode
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10225	"turns off certain statistics (keeping referenced variables, modified vars etc.)
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10226	Use this when parsing for compilation or evaluation"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10227
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10228	parseForCode := true
0 7ad01559b262 Initial revision claus parents: diff changeset	10229	!
7ad01559b262 Initial revision claus parents: diff changeset	10230
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10231	setClassToCompileFor:aClass
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10232	"set the class to be used for parsing/evaluating"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10233
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10234	classToCompileFor := aClass.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10235	(classToCompileFor ~~ PrevClass) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10236	PrevClass notNil ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10237	Parser update:PrevClass
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10238	]
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10239	]
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10240	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10241
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10242	setContext:aContext
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10243	"set the context used while evaluating"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10244
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10245	contextToEvaluateIn := aContext
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10246	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10247
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10248	setSelf:anObject
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10249	"set the value to be used for self while evaluating"
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10250
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10251	selfValue := anObject.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10252	classToCompileFor := anObject class.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10253	(classToCompileFor ~~ PrevClass) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10254	PrevClass notNil ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10255	Parser update:PrevClass
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10256	]
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10257	]
607 118452a23976 allow dollars in identifiers Claus Gittinger <cg@exept.de> parents: 603 diff changeset	10258	!
118452a23976 allow dollars in identifiers Claus Gittinger <cg@exept.de> parents: 603 diff changeset	10259
1636 98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	10260	stringsAreImmutable
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	10261	^ parserFlags stringsAreImmutable.
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	10262	!
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	10263
1615 95cb173a5fcd immutable strings Claus Gittinger <cg@exept.de> parents: 1605 diff changeset	10264	stringsAreImmutable:aBoolean
1636 98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	10265	parserFlags stringsAreImmutable:aBoolean.
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	10266	!
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	10267
2412 80b885c86be7 removed: #warnAboutMissingMethodComment Claus Gittinger <cg@exept.de> parents: 2409 diff changeset	10268	warnAboutMissingMethodComment
80b885c86be7 removed: #warnAboutMissingMethodComment Claus Gittinger <cg@exept.de> parents: 2409 diff changeset	10269	^ parserFlags warnAboutMissingMethodComment
80b885c86be7 removed: #warnAboutMissingMethodComment Claus Gittinger <cg@exept.de> parents: 2409 diff changeset	10270
80b885c86be7 removed: #warnAboutMissingMethodComment Claus Gittinger <cg@exept.de> parents: 2409 diff changeset	10271	"Created: / 17-07-2010 / 14:39:46 / cg"
80b885c86be7 removed: #warnAboutMissingMethodComment Claus Gittinger <cg@exept.de> parents: 2409 diff changeset	10272	!
80b885c86be7 removed: #warnAboutMissingMethodComment Claus Gittinger <cg@exept.de> parents: 2409 diff changeset	10273
1636 98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	10274	warnUndeclared
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	10275	^ parserFlags warnUndeclared
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	10276
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	10277	"Created: 7.9.1997 / 02:05:00 / cg"
1615 95cb173a5fcd immutable strings Claus Gittinger <cg@exept.de> parents: 1605 diff changeset	10278	!
95cb173a5fcd immutable strings Claus Gittinger <cg@exept.de> parents: 1605 diff changeset	10279
607 118452a23976 allow dollars in identifiers Claus Gittinger <cg@exept.de> parents: 603 diff changeset	10280	warnUndeclared:aBoolean
1636 98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	10281	parserFlags warnUndeclared:aBoolean.
607 118452a23976 allow dollars in identifiers Claus Gittinger <cg@exept.de> parents: 603 diff changeset	10282
118452a23976 allow dollars in identifiers Claus Gittinger <cg@exept.de> parents: 603 diff changeset	10283	"Created: 7.9.1997 / 02:05:00 / cg"
1160 972e7e337891 Warn about unused method vars Stefan Vogel <sv@exept.de> parents: 1158 diff changeset	10284	!
972e7e337891 Warn about unused method vars Stefan Vogel <sv@exept.de> parents: 1158 diff changeset	10285
1636 98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	10286	warnUnusedVars
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	10287	^ parserFlags warnUnusedVars
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	10288	!
98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	10289
1160 972e7e337891 Warn about unused method vars Stefan Vogel <sv@exept.de> parents: 1158 diff changeset	10290	warnUnusedVars:aBoolean
1636 98afdcdacde8 compilerflags separated into ParserFlags. Claus Gittinger <cg@exept.de> parents: 1632 diff changeset	10291	parserFlags warnUnusedVars:aBoolean.
0 7ad01559b262 Initial revision claus parents: diff changeset	10292	! !
7ad01559b262 Initial revision claus parents: diff changeset	10293
84 ecb74f0507fd . claus parents: 83 diff changeset	10294	!Parser methodsFor:'statistic'!
ecb74f0507fd . claus parents: 83 diff changeset	10295
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	10296	rememberClassVarModified:name
2053 5bf23d84c6ac remember global accesses Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	10297	modifiedClassVars isNil ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10298	modifiedClassVars := Set new
2053 5bf23d84c6ac remember global accesses Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	10299	].
5bf23d84c6ac remember global accesses Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	10300	modifiedClassVars add:name.
5bf23d84c6ac remember global accesses Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	10301	self rememberClassVarUsed:name
5bf23d84c6ac remember global accesses Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	10302	!
5bf23d84c6ac remember global accesses Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	10303
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	10304	rememberClassVarRead:name
1077 e34f711bd1d1 #readInstVars & #readClassVars Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	10305	readClassVars isNil ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10306	readClassVars := Set new
1077 e34f711bd1d1 #readInstVars & #readClassVars Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	10307	].
e34f711bd1d1 #readInstVars & #readClassVars Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	10308	readClassVars add:name.
e34f711bd1d1 #readInstVars & #readClassVars Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	10309	self rememberClassVarUsed:name
e34f711bd1d1 #readInstVars & #readClassVars Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	10310	!
e34f711bd1d1 #readInstVars & #readClassVars Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	10311
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	10312	rememberClassVarUsed:name
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10313	usedClassVars isNil ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10314	usedClassVars := Set new
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10315	].
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10316	usedClassVars add:name.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10317	self rememberVariableUsed:name
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10318	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10319
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	10320	rememberGlobalModified:name
2053 5bf23d84c6ac remember global accesses Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	10321	modifiedGlobals isNil ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10322	modifiedGlobals := Set new
2053 5bf23d84c6ac remember global accesses Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	10323	].
5bf23d84c6ac remember global accesses Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	10324	modifiedGlobals add:name.
5bf23d84c6ac remember global accesses Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	10325	self rememberGlobalUsed:name.
5bf23d84c6ac remember global accesses Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	10326	!
5bf23d84c6ac remember global accesses Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	10327
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	10328	rememberGlobalRead:name
2053 5bf23d84c6ac remember global accesses Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	10329	readGlobals isNil ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10330	readGlobals := Set new
2053 5bf23d84c6ac remember global accesses Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	10331	].
5bf23d84c6ac remember global accesses Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	10332	readGlobals add:name.
5bf23d84c6ac remember global accesses Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	10333	self rememberGlobalUsed:name
5bf23d84c6ac remember global accesses Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	10334	!
5bf23d84c6ac remember global accesses Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	10335
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	10336	rememberGlobalUsed:name
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10337	usedGlobals isNil ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10338	usedGlobals := Set new
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10339	].
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10340	usedGlobals add:name.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10341	self rememberVariableUsed:name
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10342	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10343
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	10344	rememberInstVarModified:name
2053 5bf23d84c6ac remember global accesses Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	10345	modifiedInstVars isNil ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10346	modifiedInstVars := Set new
2053 5bf23d84c6ac remember global accesses Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	10347	].
5bf23d84c6ac remember global accesses Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	10348	modifiedInstVars add:name.
5bf23d84c6ac remember global accesses Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	10349	self rememberInstVarUsed:name.
5bf23d84c6ac remember global accesses Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	10350	!
5bf23d84c6ac remember global accesses Claus Gittinger <cg@exept.de> parents: 2052 diff changeset	10351
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	10352	rememberInstVarRead:name
1077 e34f711bd1d1 #readInstVars & #readClassVars Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	10353	readInstVars isNil ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10354	readInstVars := Set new
1077 e34f711bd1d1 #readInstVars & #readClassVars Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	10355	].
e34f711bd1d1 #readInstVars & #readClassVars Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	10356	readInstVars add:name.
e34f711bd1d1 #readInstVars & #readClassVars Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	10357	self rememberVariableUsed:name
e34f711bd1d1 #readInstVars & #readClassVars Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	10358	!
e34f711bd1d1 #readInstVars & #readClassVars Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	10359
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	10360	rememberInstVarUsed:name
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10361	usedInstVars isNil ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10362	usedInstVars := Set new
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10363	].
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10364	usedInstVars add:name.
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10365	self rememberVariableUsed:name
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10366	!
d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	10367
3213 afd78b84a2a1 class: Parser Claus Gittinger <cg@exept.de> parents: 3212 diff changeset	10368	rememberLocalModified:name
afd78b84a2a1 class: Parser Claus Gittinger <cg@exept.de> parents: 3212 diff changeset	10369	modifiedLocalVars isNil ifTrue:[
afd78b84a2a1 class: Parser Claus Gittinger <cg@exept.de> parents: 3212 diff changeset	10370	modifiedLocalVars := Set new.
afd78b84a2a1 class: Parser Claus Gittinger <cg@exept.de> parents: 3212 diff changeset	10371	].
afd78b84a2a1 class: Parser Claus Gittinger <cg@exept.de> parents: 3212 diff changeset	10372	modifiedLocalVars add:name.
afd78b84a2a1 class: Parser Claus Gittinger <cg@exept.de> parents: 3212 diff changeset	10373	self rememberLocalUsed:name
afd78b84a2a1 class: Parser Claus Gittinger <cg@exept.de> parents: 3212 diff changeset	10374	!
afd78b84a2a1 class: Parser Claus Gittinger <cg@exept.de> parents: 3212 diff changeset	10375
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	10376	rememberLocalUsed:name
977 c1afbaf48a23 remember used & modified local vars; Claus Gittinger <cg@exept.de> parents: 971 diff changeset	10377	usedLocalVars isNil ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10378	usedLocalVars := Set new
977 c1afbaf48a23 remember used & modified local vars; Claus Gittinger <cg@exept.de> parents: 971 diff changeset	10379	].
c1afbaf48a23 remember used & modified local vars; Claus Gittinger <cg@exept.de> parents: 971 diff changeset	10380	usedLocalVars add:name.
c1afbaf48a23 remember used & modified local vars; Claus Gittinger <cg@exept.de> parents: 971 diff changeset	10381
c1afbaf48a23 remember used & modified local vars; Claus Gittinger <cg@exept.de> parents: 971 diff changeset	10382	!
c1afbaf48a23 remember used & modified local vars; Claus Gittinger <cg@exept.de> parents: 971 diff changeset	10383
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	10384	rememberPoolVarModified:name
2956 87b1fd54dcaa keep track of used pool vars as well Claus Gittinger <cg@exept.de> parents: 2947 diff changeset	10385	modifiedPoolVars isNil ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10386	modifiedPoolVars := Set new
2956 87b1fd54dcaa keep track of used pool vars as well Claus Gittinger <cg@exept.de> parents: 2947 diff changeset	10387	].
87b1fd54dcaa keep track of used pool vars as well Claus Gittinger <cg@exept.de> parents: 2947 diff changeset	10388	modifiedPoolVars add:name.
87b1fd54dcaa keep track of used pool vars as well Claus Gittinger <cg@exept.de> parents: 2947 diff changeset	10389	self rememberPoolVarUsed:name.
87b1fd54dcaa keep track of used pool vars as well Claus Gittinger <cg@exept.de> parents: 2947 diff changeset	10390	!
87b1fd54dcaa keep track of used pool vars as well Claus Gittinger <cg@exept.de> parents: 2947 diff changeset	10391
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	10392	rememberPoolVarRead:name
2956 87b1fd54dcaa keep track of used pool vars as well Claus Gittinger <cg@exept.de> parents: 2947 diff changeset	10393	readPoolVars isNil ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10394	readPoolVars := Set new
2956 87b1fd54dcaa keep track of used pool vars as well Claus Gittinger <cg@exept.de> parents: 2947 diff changeset	10395	].
87b1fd54dcaa keep track of used pool vars as well Claus Gittinger <cg@exept.de> parents: 2947 diff changeset	10396	readPoolVars add:name.
87b1fd54dcaa keep track of used pool vars as well Claus Gittinger <cg@exept.de> parents: 2947 diff changeset	10397	self rememberPoolVarUsed:name
87b1fd54dcaa keep track of used pool vars as well Claus Gittinger <cg@exept.de> parents: 2947 diff changeset	10398	!
87b1fd54dcaa keep track of used pool vars as well Claus Gittinger <cg@exept.de> parents: 2947 diff changeset	10399
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	10400	rememberPoolVarUsed:name
2956 87b1fd54dcaa keep track of used pool vars as well Claus Gittinger <cg@exept.de> parents: 2947 diff changeset	10401	usedPoolVars isNil ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10402	usedPoolVars := Set new
2956 87b1fd54dcaa keep track of used pool vars as well Claus Gittinger <cg@exept.de> parents: 2947 diff changeset	10403	].
87b1fd54dcaa keep track of used pool vars as well Claus Gittinger <cg@exept.de> parents: 2947 diff changeset	10404	usedPoolVars add:name.
87b1fd54dcaa keep track of used pool vars as well Claus Gittinger <cg@exept.de> parents: 2947 diff changeset	10405	self rememberVariableUsed:name
87b1fd54dcaa keep track of used pool vars as well Claus Gittinger <cg@exept.de> parents: 2947 diff changeset	10406	!
87b1fd54dcaa keep track of used pool vars as well Claus Gittinger <cg@exept.de> parents: 2947 diff changeset	10407
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	10408	rememberReturnedValue:anExpressionNode
1231 637e0e215633 returnValue check Claus Gittinger <cg@exept.de> parents: 1230 diff changeset	10409	\|expr\|
637e0e215633 returnValue check Claus Gittinger <cg@exept.de> parents: 1230 diff changeset	10410
637e0e215633 returnValue check Claus Gittinger <cg@exept.de> parents: 1230 diff changeset	10411	returnedValues isNil ifTrue:[returnedValues := Set new].
637e0e215633 returnValue check Claus Gittinger <cg@exept.de> parents: 1230 diff changeset	10412
637e0e215633 returnValue check Claus Gittinger <cg@exept.de> parents: 1230 diff changeset	10413	expr := anExpressionNode.
637e0e215633 returnValue check Claus Gittinger <cg@exept.de> parents: 1230 diff changeset	10414	expr isAssignment ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10415	expr := expr expression.
1231 637e0e215633 returnValue check Claus Gittinger <cg@exept.de> parents: 1230 diff changeset	10416	].
637e0e215633 returnValue check Claus Gittinger <cg@exept.de> parents: 1230 diff changeset	10417	(expr isConstant or:[expr isSelf]) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10418	returnedValues add:expr
1231 637e0e215633 returnValue check Claus Gittinger <cg@exept.de> parents: 1230 diff changeset	10419	].
637e0e215633 returnValue check Claus Gittinger <cg@exept.de> parents: 1230 diff changeset	10420	!
637e0e215633 returnValue check Claus Gittinger <cg@exept.de> parents: 1230 diff changeset	10421
2947 38208aab9400 class definition Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	10422	rememberSelectorPossiblyUsed:sel
38208aab9400 class definition Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	10423	messagesPossiblySent isNil ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10424	messagesPossiblySent := IdentitySet new.
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	10425	].
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	10426	messagesPossiblySent add:sel
2947 38208aab9400 class definition Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	10427	!
38208aab9400 class definition Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	10428
84 ecb74f0507fd . claus parents: 83 diff changeset	10429	rememberSelectorUsed:sel
1082 f795099895c5 keep track of messages sent to self (for checker) Claus Gittinger <cg@exept.de> parents: 1078 diff changeset	10430	messagesSent isNil ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10431	messagesSent := IdentitySet new.
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	10432	].
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	10433	messagesSent add:sel
1060 9978f9d22dde more queries (remember super messages) Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	10434	!
9978f9d22dde more queries (remember super messages) Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	10435
2995 ced78dd20036 class: Parser Stefan Vogel <sv@exept.de> parents: 2991 diff changeset	10436	rememberSelectorUsed:selectorArg receiver:receiverNode
ced78dd20036 class: Parser Stefan Vogel <sv@exept.de> parents: 2991 diff changeset	10437	\|sel\|
ced78dd20036 class: Parser Stefan Vogel <sv@exept.de> parents: 2991 diff changeset	10438
ced78dd20036 class: Parser Stefan Vogel <sv@exept.de> parents: 2991 diff changeset	10439	sel := selectorArg asSymbol.
1060 9978f9d22dde more queries (remember super messages) Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	10440	self rememberSelectorUsed:sel.
3242 b8316cc0b977 class: Parser Claus Gittinger <cg@exept.de> parents: 3241 diff changeset	10441
1060 9978f9d22dde more queries (remember super messages) Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	10442	receiverNode isSuper ifTrue:[
3242 b8316cc0b977 class: Parser Claus Gittinger <cg@exept.de> parents: 3241 diff changeset	10443	self rememberSelectorUsedInSuperSend:sel
1082 f795099895c5 keep track of messages sent to self (for checker) Claus Gittinger <cg@exept.de> parents: 1078 diff changeset	10444	] ifFalse:[
3242 b8316cc0b977 class: Parser Claus Gittinger <cg@exept.de> parents: 3241 diff changeset	10445	receiverNode isSelf ifTrue:[
b8316cc0b977 class: Parser Claus Gittinger <cg@exept.de> parents: 3241 diff changeset	10446	self rememberSelectorUsedInSelfSend:sel
b8316cc0b977 class: Parser Claus Gittinger <cg@exept.de> parents: 3241 diff changeset	10447	].
b8316cc0b977 class: Parser Claus Gittinger <cg@exept.de> parents: 3241 diff changeset	10448	].
b8316cc0b977 class: Parser Claus Gittinger <cg@exept.de> parents: 3241 diff changeset	10449
b8316cc0b977 class: Parser Claus Gittinger <cg@exept.de> parents: 3241 diff changeset	10450	"Modified (format): / 30-07-2013 / 15:51:56 / cg"
1060 9978f9d22dde more queries (remember super messages) Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	10451	!
9978f9d22dde more queries (remember super messages) Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	10452
2995 ced78dd20036 class: Parser Stefan Vogel <sv@exept.de> parents: 2991 diff changeset	10453	rememberSelectorUsed:selectorArg receiver:receiverNode args:args
ced78dd20036 class: Parser Stefan Vogel <sv@exept.de> parents: 2991 diff changeset	10454	\|selPerformed sel\|
ced78dd20036 class: Parser Stefan Vogel <sv@exept.de> parents: 2991 diff changeset	10455
ced78dd20036 class: Parser Stefan Vogel <sv@exept.de> parents: 2991 diff changeset	10456	sel := selectorArg asSymbol.
2947 38208aab9400 class definition Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	10457	self rememberSelectorUsed:sel receiver:receiverNode.
3242 b8316cc0b977 class: Parser Claus Gittinger <cg@exept.de> parents: 3241 diff changeset	10458
b8316cc0b977 class: Parser Claus Gittinger <cg@exept.de> parents: 3241 diff changeset	10459	(
b8316cc0b977 class: Parser Claus Gittinger <cg@exept.de> parents: 3241 diff changeset	10460	#( 'perform:'
b8316cc0b977 class: Parser Claus Gittinger <cg@exept.de> parents: 3241 diff changeset	10461	'pushEvent:'
b8316cc0b977 class: Parser Claus Gittinger <cg@exept.de> parents: 3241 diff changeset	10462	'pushUserEvent:'
3280 ddf981c815d8 class: Parser Claus Gittinger <cg@exept.de> parents: 3271 diff changeset	10463	'enqueueMessage:'
3242 b8316cc0b977 class: Parser Claus Gittinger <cg@exept.de> parents: 3241 diff changeset	10464	)
b8316cc0b977 class: Parser Claus Gittinger <cg@exept.de> parents: 3241 diff changeset	10465	contains:[:prefix \| sel startsWith:prefix]) ifTrue:[
b8316cc0b977 class: Parser Claus Gittinger <cg@exept.de> parents: 3241 diff changeset	10466	args first isConstant ifTrue:[
b8316cc0b977 class: Parser Claus Gittinger <cg@exept.de> parents: 3241 diff changeset	10467	(selPerformed := args first value) isSymbol ifTrue:[
b8316cc0b977 class: Parser Claus Gittinger <cg@exept.de> parents: 3241 diff changeset	10468	self rememberSelectorPossiblyUsed:selPerformed
b8316cc0b977 class: Parser Claus Gittinger <cg@exept.de> parents: 3241 diff changeset	10469	]
b8316cc0b977 class: Parser Claus Gittinger <cg@exept.de> parents: 3241 diff changeset	10470	]
b8316cc0b977 class: Parser Claus Gittinger <cg@exept.de> parents: 3241 diff changeset	10471	].
b8316cc0b977 class: Parser Claus Gittinger <cg@exept.de> parents: 3241 diff changeset	10472
b8316cc0b977 class: Parser Claus Gittinger <cg@exept.de> parents: 3241 diff changeset	10473	"Modified (format): / 30-07-2013 / 15:48:37 / cg"
2947 38208aab9400 class definition Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	10474	!
38208aab9400 class definition Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	10475
1082 f795099895c5 keep track of messages sent to self (for checker) Claus Gittinger <cg@exept.de> parents: 1078 diff changeset	10476	rememberSelectorUsedInSelfSend:sel
f795099895c5 keep track of messages sent to self (for checker) Claus Gittinger <cg@exept.de> parents: 1078 diff changeset	10477	messagesSentToSelf isNil ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10478	messagesSentToSelf := IdentitySet new.
1060 9978f9d22dde more queries (remember super messages) Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	10479	].
1082 f795099895c5 keep track of messages sent to self (for checker) Claus Gittinger <cg@exept.de> parents: 1078 diff changeset	10480	messagesSentToSelf add:sel
f795099895c5 keep track of messages sent to self (for checker) Claus Gittinger <cg@exept.de> parents: 1078 diff changeset	10481	!
f795099895c5 keep track of messages sent to self (for checker) Claus Gittinger <cg@exept.de> parents: 1078 diff changeset	10482
f795099895c5 keep track of messages sent to self (for checker) Claus Gittinger <cg@exept.de> parents: 1078 diff changeset	10483	rememberSelectorUsedInSuperSend:sel
f795099895c5 keep track of messages sent to self (for checker) Claus Gittinger <cg@exept.de> parents: 1078 diff changeset	10484	messagesSentToSuper isNil ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10485	messagesSentToSuper := IdentitySet new.
1082 f795099895c5 keep track of messages sent to self (for checker) Claus Gittinger <cg@exept.de> parents: 1078 diff changeset	10486	].
f795099895c5 keep track of messages sent to self (for checker) Claus Gittinger <cg@exept.de> parents: 1078 diff changeset	10487	messagesSentToSuper add:sel
84 ecb74f0507fd . claus parents: 83 diff changeset	10488	!
ecb74f0507fd . claus parents: 83 diff changeset	10489
1064 ecd50cdfb881 added #usedSymbols statistic Claus Gittinger <cg@exept.de> parents: 1063 diff changeset	10490	rememberSymbolUsed:aSymbol
ecd50cdfb881 added #usedSymbols statistic Claus Gittinger <cg@exept.de> parents: 1063 diff changeset	10491	usedSymbols isNil ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10492	usedSymbols := IdentitySet new.
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	10493	].
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	10494	usedSymbols add:aSymbol
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	10495	!
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	10496
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	10497	rememberVariableUsed:name
84 ecb74f0507fd . claus parents: 83 diff changeset	10498	usedVars isNil ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10499	usedVars := Set new
84 ecb74f0507fd . claus parents: 83 diff changeset	10500	].
ecb74f0507fd . claus parents: 83 diff changeset	10501	usedVars add:name
ecb74f0507fd . claus parents: 83 diff changeset	10502	! !
ecb74f0507fd . claus parents: 83 diff changeset	10503
2430 f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10504	!Parser::AskForVariableTypeOfUndeclaredQuery class methodsFor:'documentation'!
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10505
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10506	documentation
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10507	"
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10508	can be used to redefine the list of offered veriable types in a correct-variable
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10509	operation (for now, this is only done in expecco).
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10510	"
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10511	! !
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10512
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10513	!Parser::AskForVariableTypeOfUndeclaredQuery methodsFor:'accessing'!
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10514
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10515	classToCompileFor
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10516	^ parser classToCompileFor
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10517
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10518	"Modified: / 20-10-2010 / 18:27:29 / cg"
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10519	!
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10520
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10521	nameOfUnknownVariable
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10522	^ nameOfUnknownVariable
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10523	!
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10524
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10525	parser
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10526	^ parser
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10527
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10528	"Created: / 20-10-2010 / 18:27:24 / cg"
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10529	!
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10530
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	10531	parser:parserArg nameOfUnknownVariable:nameOfUnknownVariableArg
2430 f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10532	parser := parserArg.
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10533	nameOfUnknownVariable := nameOfUnknownVariableArg.
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10534
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10535	"Created: / 20-10-2010 / 18:27:40 / cg"
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10536	! !
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10537
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10538	!Parser::AskForVariableTypeOfUndeclaredQuery methodsFor:'default action'!
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10539
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10540	defaultAction
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10541	"the default action is to open a popupmenu asking for the variable type"
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10542
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10543	\|list\|
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10544
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10545	list := self listOfPossibleVariableTypes.
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10546	^ self startUpMenuAskingForVariableTypeFromList:list.
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10547
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10548	"Modified: / 20-10-2010 / 18:52:30 / cg"
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10549	!
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10550
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10551	listOfPossibleVariableTypes
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10552	"the default action is to open a popupmenu asking for the variable type"
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10553
3180 acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	10554	\|list varNameIsLowercase classToCompileFor\|
2430 f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10555
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10556	list := OrderedCollection new.
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10557
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10558	classToCompileFor := self classToCompileFor.
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10559	varNameIsLowercase := (nameOfUnknownVariable at:1) isLowercase.
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10560
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10561	"/ BlockVar, InstVar and classInstVar not yet implemented
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10562	varNameIsLowercase ifTrue:[
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10563	"/ currentBlock notNil ifTrue:[
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10564	"/ list add: #BlockVariable.
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10565	"/ ].
3180 acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	10566	parser selector notNil ifTrue:[
acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	10567	list add: #MethodVariable.
acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	10568	].
acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	10569	(classToCompileFor notNil
acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	10570	and:[classToCompileFor isMeta not
acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	10571	and:[classToCompileFor isBuiltInClass not
acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	10572	and:[(parser isDoIt not)]]]) ifTrue:[
acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	10573	list add: #InstanceVariable.
acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	10574	].
2430 f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10575	] ifFalse:[
3180 acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	10576	list addAll: #( NewClass GlobalVariable NameSpace ).
acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	10577
acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	10578	(classToCompileFor notNil
acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	10579	and:[classToCompileFor isBuiltInClass not
acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	10580	and:[parser isDoIt not]]) ifTrue:[
acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	10581	classToCompileFor isMeta ifTrue:[
acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	10582	list add: #ClassInstanceVariable.
acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	10583	].
acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	10584	list addAll: #( #ClassVariable #PrivateClass ).
acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	10585	]
2430 f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10586	].
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10587
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10588	parser isDoIt ifTrue:[
3180 acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	10589	list notEmpty ifTrue:[
acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	10590	list add: nil.
acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	10591	].
acb7a3d569bd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3176 diff changeset	10592	list addAll: #( WorkspaceVariable DoItTemporary ).
2430 f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10593	].
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10594
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10595	^ list
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10596
2473 145866e0c658 better define-as query for pools Claus Gittinger <cg@exept.de> parents: 2468 diff changeset	10597	"Modified: / 29-01-2011 / 11:13:53 / cg"
2430 f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10598	!
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10599
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10600	startUpMenuAskingForVariableTypeFromList:list
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10601	"start the popup menu; return the chosen type-symbol or nil"
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10602
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10603	\|valueList menuLabels popupMenu choiceIndex typeChoice\|
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10604
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10605	list notEmptyOrNil ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10606	menuLabels := self userfriendlyMenuItemNameListFor:list.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10607
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10608	menuLabels := (Array
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10609	with:('Declare ' , nameOfUnknownVariable allBold , ' as:')
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10610	with:'-'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10611	) , menuLabels.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10612	valueList := #(nil nil) , list.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10613	popupMenu := PopUpMenu labels:menuLabels.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10614
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10615	choiceIndex := popupMenu startUp.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10616	(choiceIndex notNil and:[choiceIndex > 0]) ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10617	typeChoice := valueList at:choiceIndex.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10618	].
2430 f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10619	].
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10620
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10621	^ typeChoice
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10622
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10623	"Created: / 20-10-2010 / 18:52:10 / cg"
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10624	!
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10625
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10626	userfriendlyMenuItemNameFor:varType
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	10627	varType = #BlockVariable ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10628	^ 'Block Local'
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	10629	].
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	10630	varType = #MethodVariable ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10631	^ 'Method Local Variable'
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	10632	].
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	10633	varType = #InstanceVariable ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10634	^ 'Instance Variable'
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	10635	].
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	10636	varType = #NewClass ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10637	^ 'New Class'
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	10638	].
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	10639	varType = #GlobalVariable ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10640	^ 'Global'
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	10641	].
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	10642	varType = #NameSpace ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10643	^ 'NameSpace'
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	10644	].
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	10645	varType = #ClassInstanceVariable ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10646	^ 'Class Instance Variable'
2430 f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10647	].
2473 145866e0c658 better define-as query for pools Claus Gittinger <cg@exept.de> parents: 2468 diff changeset	10648	varType = #ClassVariable ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10649	(self classToCompileFor notNil and:[self classToCompileFor theNonMetaclass isSharedPool]) ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10650	^ 'Pool Constant (= Class Variable)'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10651	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10652	^ 'Class Variable'
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	10653	].
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	10654	varType = #PrivateClass ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10655	^ 'Private Class'
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	10656	].
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	10657	varType = #WorkspaceVariable ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10658	^ 'Workspace Variable'
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	10659	].
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	10660	varType = #DoItTemporary ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10661	^ 'DoIt Temporary'
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	10662	].
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	10663	varType isNil ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10664	^ '-'
2430 f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10665	].
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10666	^ varType
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10667
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10668	"Created: / 20-10-2010 / 18:46:17 / cg"
2473 145866e0c658 better define-as query for pools Claus Gittinger <cg@exept.de> parents: 2468 diff changeset	10669	"Modified: / 29-01-2011 / 11:13:11 / cg"
2430 f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10670	!
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10671
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10672	userfriendlyMenuItemNameListFor:listOfPossibleVariableTypes
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10673	^ listOfPossibleVariableTypes
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10674	collect:[:varType \| self userfriendlyMenuItemNameFor:varType]
2430 f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10675
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10676	"Created: / 20-10-2010 / 18:42:13 / cg"
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10677	! !
f9098a3a7d9d added: #askForVariableTypeOfUndeclaredQuery Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	10678
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10679	!Parser::Correction class methodsFor:'documentation'!
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10680
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10681	documentation
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10682	"
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10683	a new correction scheme.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10684
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10685	Previously, there were only 2 hardcoded interactive corrections possible when
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10686	the compiler had a correctbleError to report (declare as and correct).
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10687	The use was asked via the correctableError: message (to the requestor),
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10688	which had to return a symbol.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10689
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10690	Now, we move to a more flexible correction scheme, where the parser provides a list
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10691	of plausible corrections as a collection of operations (actually class instances),
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10692	which provide button labels (and possibly addition information in the future).
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10693
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10694	Also, the correction object is supposed (in the future) to do the correction, so those
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10695	operations are to be moved out of the compiler.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10696	"
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10697	! !
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10698
3289 81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10699	!Parser::Correction class methodsFor:'instance creation'!
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10700
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10701	instance
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10702	^ self new
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10703	! !
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10704
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10705	!Parser::Correction class methodsFor:'queries'!
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10706
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10707	buttonLabel
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10708	self subclassResponsibility
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10709	! !
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10710
3299 a36f24765520 class: Parser Claus Gittinger <cg@exept.de> parents: 3298 diff changeset	10711	!Parser::Correction methodsFor:'accessing'!
a36f24765520 class: Parser Claus Gittinger <cg@exept.de> parents: 3298 diff changeset	10712
a36f24765520 class: Parser Claus Gittinger <cg@exept.de> parents: 3298 diff changeset	10713	buttonLabel
a36f24765520 class: Parser Claus Gittinger <cg@exept.de> parents: 3298 diff changeset	10714	^ self class buttonLabel
a36f24765520 class: Parser Claus Gittinger <cg@exept.de> parents: 3298 diff changeset	10715	! !
a36f24765520 class: Parser Claus Gittinger <cg@exept.de> parents: 3298 diff changeset	10716
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10717	!Parser::Correction methodsFor:'correcting'!
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10718
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10719	fixFrom:position1 to:position2 for:aCompiler
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10720	"to be redefined by subclasses.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10721	should return corrected source or nil"
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10722
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10723	self breakPoint:#cg.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10724	Dialog warn:'Sorry - no correction possible/implemented in ',self class nameWithoutPrefix.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10725	^ nil
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10726	! !
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10727
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10728	!Parser::Correction methodsFor:'ignored accessing'!
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10729
3286 dda2d8584e1c class: Parser Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	10730	positionOfPeriod:ignored
dda2d8584e1c class: Parser Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	10731	!
dda2d8584e1c class: Parser Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	10732
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10733	receiverClass:ignoredClass
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10734	!
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10735
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10736	receiverNode:ignoredNode
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10737	!
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10738
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10739	selector:ignoredSelector
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10740	! !
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10741
3289 81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10742	!Parser::Correction methodsFor:'instance creation'!
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10743
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10744	instance
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10745	^ self
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10746	! !
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10747
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10748	!Parser::CorrectByDeclaringIdentifierAs class methodsFor:'documentation'!
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10749
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10750	documentation
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10751	"
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10752	a new correction scheme
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10753	"
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10754	! !
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10755
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10756	!Parser::CorrectByDeclaringIdentifierAs class methodsFor:'queries'!
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10757
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10758	buttonLabel
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10759	^ 'Declare As...'
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10760	! !
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10761
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10762	!Parser::CorrectByDeclaringIdentifierAs methodsFor:'fixing'!
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10763
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10764	fixFrom:pos1 to:pos2 for:aCompiler
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10765
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10766	self halt.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10767	! !
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	10768
3298 7974ee6d7b9c class: Parser Claus Gittinger <cg@exept.de> parents: 3297 diff changeset	10769	!Parser::CorrectByDeclaringIdentifierAs methodsFor:'queries'!
7974ee6d7b9c class: Parser Claus Gittinger <cg@exept.de> parents: 3297 diff changeset	10770
7974ee6d7b9c class: Parser Claus Gittinger <cg@exept.de> parents: 3297 diff changeset	10771	buttonLabel
7974ee6d7b9c class: Parser Claus Gittinger <cg@exept.de> parents: 3297 diff changeset	10772	lastType isNil ifTrue:[
7974ee6d7b9c class: Parser Claus Gittinger <cg@exept.de> parents: 3297 diff changeset	10773	^ self class buttonLabel
7974ee6d7b9c class: Parser Claus Gittinger <cg@exept.de> parents: 3297 diff changeset	10774	].
7974ee6d7b9c class: Parser Claus Gittinger <cg@exept.de> parents: 3297 diff changeset	10775	^ 'Declare as ',lastType.
7974ee6d7b9c class: Parser Claus Gittinger <cg@exept.de> parents: 3297 diff changeset	10776	! !
7974ee6d7b9c class: Parser Claus Gittinger <cg@exept.de> parents: 3297 diff changeset	10777
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10778	!Parser::CorrectByDeletingLocalIdentifier class methodsFor:'queries'!
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10779
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10780	buttonLabel
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10781	^ 'Remove Local'
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10782	! !
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10783
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10784	!Parser::CorrectByDeletingLocalIdentifier methodsFor:'fixing'!
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10785
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10786	fixFrom:pos1 to:pos2 for:aCompiler
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10787	\|source varName\|
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10788
3291 6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	10789	source := aCompiler currentSource.
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10790	varName := source copyFrom:pos1 to:pos2.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10791	aCompiler deleteDefinitionOf:varName in:pos1 to:pos2.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10792	self halt.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10793	aCompiler class restartCompilationSignal raiseRequest.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10794	! !
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10795
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10796	!Parser::CorrectByGeneratingMissingMethod class methodsFor:'queries'!
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10797
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10798	buttonLabel
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10799	^ 'Generate...'
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10800	! !
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10801
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10802	!Parser::CorrectByGeneratingMissingMethod methodsFor:'accessing'!
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10803
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10804	receiverNode:something
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10805	receiverNode := something.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10806	!
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10807
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10808	selector:something
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10809	selector := something.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10810	! !
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10811
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10812	!Parser::CorrectByGeneratingMissingMethod methodsFor:'correcting'!
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10813
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10814	fixFrom:pos1 to:pos2 for:aCompiler
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10815	"an method needs to be defined"
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10816
3304 d1eb4409e3c8 class: Parser Claus Gittinger <cg@exept.de> parents: 3302 diff changeset	10817	\|classToGenerateCode suggestedClassToCompileFor className varName codeGeneratorClass\|
d1eb4409e3c8 class: Parser Claus Gittinger <cg@exept.de> parents: 3302 diff changeset	10818
d1eb4409e3c8 class: Parser Claus Gittinger <cg@exept.de> parents: 3302 diff changeset	10819	"/ todo: look for variables first and ask if setter/getter first,
d1eb4409e3c8 class: Parser Claus Gittinger <cg@exept.de> parents: 3302 diff changeset	10820	"/ so we can reduce the set of offered classes. Left as an excercise...
d1eb4409e3c8 class: Parser Claus Gittinger <cg@exept.de> parents: 3302 diff changeset	10821
d1eb4409e3c8 class: Parser Claus Gittinger <cg@exept.de> parents: 3302 diff changeset	10822	suggestedClassToCompileFor := aCompiler classToCompileFor.
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10823
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10824	receiverNode isSelf ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10825	classToGenerateCode := aCompiler classToCompileFor
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10826	] ifFalse:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10827	receiverNode isVariable ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10828	receiverNode isGlobal ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10829	classToGenerateCode := receiverNode evaluate.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10830	classToGenerateCode isBehavior ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10831	classToGenerateCode := classToGenerateCode theMetaclass.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10832	] ifFalse:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10833	classToGenerateCode := nil
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10834	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10835	].
3304 d1eb4409e3c8 class: Parser Claus Gittinger <cg@exept.de> parents: 3302 diff changeset	10836	] ifFalse:[
d1eb4409e3c8 class: Parser Claus Gittinger <cg@exept.de> parents: 3302 diff changeset	10837	(receiverNode isMessage
d1eb4409e3c8 class: Parser Claus Gittinger <cg@exept.de> parents: 3302 diff changeset	10838	and:[ receiverNode receiver isSelf
d1eb4409e3c8 class: Parser Claus Gittinger <cg@exept.de> parents: 3302 diff changeset	10839	and:[ receiverNode selector == #class]]) ifTrue:[
d1eb4409e3c8 class: Parser Claus Gittinger <cg@exept.de> parents: 3302 diff changeset	10840	suggestedClassToCompileFor := aCompiler classToCompileFor theMetaclass
d1eb4409e3c8 class: Parser Claus Gittinger <cg@exept.de> parents: 3302 diff changeset	10841	].
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10842	]
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10843	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10844	classToGenerateCode isNil ifTrue:[
3304 d1eb4409e3c8 class: Parser Claus Gittinger <cg@exept.de> parents: 3302 diff changeset	10845	"/ className := Dialog request:'Generate code in class:' initialAnswer:suggestedClassToCompileFor name.
d1eb4409e3c8 class: Parser Claus Gittinger <cg@exept.de> parents: 3302 diff changeset	10846	className := Dialog
d1eb4409e3c8 class: Parser Claus Gittinger <cg@exept.de> parents: 3302 diff changeset	10847	request:'Generate code in class:'
d1eb4409e3c8 class: Parser Claus Gittinger <cg@exept.de> parents: 3302 diff changeset	10848	initialAnswer:(suggestedClassToCompileFor name)
d1eb4409e3c8 class: Parser Claus Gittinger <cg@exept.de> parents: 3302 diff changeset	10849	okLabel:'OK'
d1eb4409e3c8 class: Parser Claus Gittinger <cg@exept.de> parents: 3302 diff changeset	10850	title:('Generate code in class:')
d1eb4409e3c8 class: Parser Claus Gittinger <cg@exept.de> parents: 3302 diff changeset	10851	onCancel:nil
d1eb4409e3c8 class: Parser Claus Gittinger <cg@exept.de> parents: 3302 diff changeset	10852	list:(suggestedClassToCompileFor withAllSuperclasses collect:[:cls \| cls name])
d1eb4409e3c8 class: Parser Claus Gittinger <cg@exept.de> parents: 3302 diff changeset	10853	entryCompletionBlock:(DoWhatIMeanSupport classNameEntryCompletionBlock).
d1eb4409e3c8 class: Parser Claus Gittinger <cg@exept.de> parents: 3302 diff changeset	10854
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10855	className size == 0 ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10856	^ nil
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10857	].
3291 6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	10858	classToGenerateCode := Smalltalk classNamed:className.
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10859	classToGenerateCode isNil ifTrue:[
3291 6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	10860	self warn:'Oops: No such class: ',className.
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10861	^ nil
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10862	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10863	].
3304 d1eb4409e3c8 class: Parser Claus Gittinger <cg@exept.de> parents: 3302 diff changeset	10864	codeGeneratorClass := classToGenerateCode programmingLanguage codeGeneratorClass.
d1eb4409e3c8 class: Parser Claus Gittinger <cg@exept.de> parents: 3302 diff changeset	10865	codeGeneratorClass isNil ifTrue:[
d1eb4409e3c8 class: Parser Claus Gittinger <cg@exept.de> parents: 3302 diff changeset	10866	Dialog information:'sorry - no codegeneration facility for this class'.
d1eb4409e3c8 class: Parser Claus Gittinger <cg@exept.de> parents: 3302 diff changeset	10867	^ nil.
d1eb4409e3c8 class: Parser Claus Gittinger <cg@exept.de> parents: 3302 diff changeset	10868	].
d1eb4409e3c8 class: Parser Claus Gittinger <cg@exept.de> parents: 3302 diff changeset	10869
d1eb4409e3c8 class: Parser Claus Gittinger <cg@exept.de> parents: 3302 diff changeset	10870	"do not overwrite an already existing method"
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10871	(classToGenerateCode includesSelector:selector asSymbol) ifFalse:[
3304 d1eb4409e3c8 class: Parser Claus Gittinger <cg@exept.de> parents: 3302 diff changeset	10872	\|code category wantSetter wantGetter varNames lcVarNames\|
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10873
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10874	wantSetter := wantGetter := false.
3304 d1eb4409e3c8 class: Parser Claus Gittinger <cg@exept.de> parents: 3302 diff changeset	10875	varNames := classToGenerateCode isMeta
d1eb4409e3c8 class: Parser Claus Gittinger <cg@exept.de> parents: 3302 diff changeset	10876	ifTrue:[ classToGenerateCode theNonMetaclass classVarNames , classToGenerateCode instVarNames ]
d1eb4409e3c8 class: Parser Claus Gittinger <cg@exept.de> parents: 3302 diff changeset	10877	ifFalse:[ classToGenerateCode instVarNames ].
d1eb4409e3c8 class: Parser Claus Gittinger <cg@exept.de> parents: 3302 diff changeset	10878	lcVarNames := varNames collect:[:nm \| nm asLowercaseFirst].
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10879
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10880	(selector isKeywordSelector
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10881	and:[selector numArgs == 1
3304 d1eb4409e3c8 class: Parser Claus Gittinger <cg@exept.de> parents: 3302 diff changeset	10882	and:[lcVarNames includes:(selector copyButLast:1)]]) ifTrue:[
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10883	"/ want a setter ?
3304 d1eb4409e3c8 class: Parser Claus Gittinger <cg@exept.de> parents: 3302 diff changeset	10884	varName := varNames at:(lcVarNames indexOf:(selector copyButLast:1)).
d1eb4409e3c8 class: Parser Claus Gittinger <cg@exept.de> parents: 3302 diff changeset	10885	wantSetter := Dialog confirmWithCancel:('Generate as setter for %1 ?' bindWith:varName allBold) default:true.
d1eb4409e3c8 class: Parser Claus Gittinger <cg@exept.de> parents: 3302 diff changeset	10886	wantSetter isNil ifTrue:[ AbortOperationRequest raise. "^ selector"].
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10887	] ifFalse:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10888	(selector isUnarySelector
3304 d1eb4409e3c8 class: Parser Claus Gittinger <cg@exept.de> parents: 3302 diff changeset	10889	and:[lcVarNames includes:selector]) ifTrue:[
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10890	"/ want a getter ?
3304 d1eb4409e3c8 class: Parser Claus Gittinger <cg@exept.de> parents: 3302 diff changeset	10891	varName := varNames at:(lcVarNames indexOf:selector).
d1eb4409e3c8 class: Parser Claus Gittinger <cg@exept.de> parents: 3302 diff changeset	10892	wantGetter := Dialog confirmWithCancel:('Generate as getter for %1 ?' bindWith:varName allBold) default:true.
d1eb4409e3c8 class: Parser Claus Gittinger <cg@exept.de> parents: 3302 diff changeset	10893	wantGetter isNil ifTrue:[AbortOperationRequest raise "^ selector"].
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10894	]
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10895	].
3304 d1eb4409e3c8 class: Parser Claus Gittinger <cg@exept.de> parents: 3302 diff changeset	10896
d1eb4409e3c8 class: Parser Claus Gittinger <cg@exept.de> parents: 3302 diff changeset	10897	"/ get the real name (UC if classvar)
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10898	wantSetter ifTrue:[
3304 d1eb4409e3c8 class: Parser Claus Gittinger <cg@exept.de> parents: 3302 diff changeset	10899	codeGeneratorClass new createSetterFor:varName in:classToGenerateCode.
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10900	] ifFalse:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10901	wantGetter ifTrue:[
3304 d1eb4409e3c8 class: Parser Claus Gittinger <cg@exept.de> parents: 3302 diff changeset	10902	codeGeneratorClass new createGetterFor:varName in:classToGenerateCode.
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10903	] ifFalse:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10904	code := (Parser methodSpecificationForSelector:selector) , '\ self shouldImplement' withCRs.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10905	category := Compiler defaultMethodCategory.
3304 d1eb4409e3c8 class: Parser Claus Gittinger <cg@exept.de> parents: 3302 diff changeset	10906	classToGenerateCode
d1eb4409e3c8 class: Parser Claus Gittinger <cg@exept.de> parents: 3302 diff changeset	10907	compile:code
d1eb4409e3c8 class: Parser Claus Gittinger <cg@exept.de> parents: 3302 diff changeset	10908	classified:category.
d1eb4409e3c8 class: Parser Claus Gittinger <cg@exept.de> parents: 3302 diff changeset	10909	]
d1eb4409e3c8 class: Parser Claus Gittinger <cg@exept.de> parents: 3302 diff changeset	10910	]
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10911	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10912
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10913	"/ return nil, so nothing is done in the compiler
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10914	^ nil
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10915	! !
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10916
3289 81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10917	!Parser::CorrectByGroupingMessage methodsFor:'accessing'!
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10918
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10919	buttonLabel
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10920	possibleSplits size > 1 ifTrue:[
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10921	^ 'Correct by Grouping...'
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10922	].
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10923	^ 'Correct by Grouping (%1)' bindWith:possibleSplits first first
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10924	!
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10925
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10926	possibleSplits:something
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10927	possibleSplits := something.
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10928	!
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10929
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10930	receiverNode:something
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10931	receiverNode := something.
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10932	!
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10933
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10934	selectorPositions:something
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10935	selectorPositions := something.
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10936	! !
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10937
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10938	!Parser::CorrectByGroupingMessage methodsFor:'correction'!
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10939
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10940	fixFrom:position1 to:position2 for:aCompiler
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10941	"regroup a keyword message from:
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10942	rcvr foo:a1 bar:a2 baz: a3
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10943	into:
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10944	rcvr foo:(a1 bar:a2 baz:a3)
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10945	"
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10946
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10947	\|split source numParts1 source1 source2 newSource source3\|
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10948
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10949	possibleSplits size > 1 ifTrue:[
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10950	split := Dialog
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10951	choose:'Choose grouping:'
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10952	fromList:(possibleSplits collect:[:split \| split first,'(',split second,')'])
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10953	values:possibleSplits
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10954	lines:5.
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10955	split isNil ifTrue:[^ nil].
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10956
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10957
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10958	] ifFalse:[
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10959	split := possibleSplits first.
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10960	].
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10961
3291 6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	10962	source := aCompiler currentSource.
3289 81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10963	numParts1 := split first partsIfSelector size.
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10964	source := source string.
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10965	source1 := source copyTo:(selectorPositions at:numParts1) stop.
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10966	source2 := source copyFrom:(selectorPositions at:numParts1) stop+1 to:(receiverNode parent endPosition).
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10967	source3 := source copyFrom:(receiverNode parent endPosition + 1).
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10968	newSource := source1,'(',source2,')',source3.
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10969
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10970	^ newSource
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10971	! !
81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10972
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10973	!Parser::CorrectByInsertingPeriod class methodsFor:'queries'!
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10974
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10975	buttonLabel
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10976	^ 'Insert "."'
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10977	! !
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10978
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10979	!Parser::CorrectByInsertingPeriod methodsFor:'accessing'!
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10980
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10981	positionOfPeriod:something
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10982	positionOfPeriod := something.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10983	! !
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10984
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10985	!Parser::CorrectByInsertingPeriod methodsFor:'fixing'!
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10986
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10987	fixFrom:pos1 to:pos2 for:aCompiler
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10988	"a period (full stop) needs to be inserted"
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10989
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10990	\|source newSource\|
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10991
3291 6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	10992	source := aCompiler currentSource.
3289 81f10f1ae8c3 class: Parser Claus Gittinger <cg@exept.de> parents: 3287 diff changeset	10993	newSource := source copyWithAll:'.' insertedAfterIndex:positionOfPeriod.
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10994	^ newSource
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10995	! !
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10996
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10997	!Parser::CorrectByInteractiveCorrection class methodsFor:'documentation'!
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10998
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	10999	documentation
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11000	"
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11001	a new correction scheme
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11002	"
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11003	! !
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11004
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11005	!Parser::CorrectByInteractiveCorrection class methodsFor:'queries'!
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11006
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11007	buttonLabel
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11008	^ 'Correct...'
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11009	! !
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11010
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11011	!Parser::CorrectByInteractiveRename class methodsFor:'queries'!
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11012
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11013	buttonLabel
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11014	^ 'Rename...'
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11015	! !
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11016
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11017	!Parser::CorrectByInteractiveRename methodsFor:'correcting'!
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11018
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11019	fixFrom:pos1 to:pos2 for:aCompiler
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11020	"an identifier needs to be renamed"
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11021
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11022	\|badName source newName node definingNode refactoring\|
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11023
3291 6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	11024	source := aCompiler currentSource.
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11025	badName := source copyFrom:pos1 to:pos2.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11026
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11027	node := DoWhatIMeanSupport
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11028	findNodeForInterval:(pos1 to:pos2)
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11029	in:source.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11030	node isNil ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11031	Dialog information:'Sorry - could not extract identifier node from the source'.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11032	^ nil.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11033	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11034	node isVariable ifFalse:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11035	Dialog information:'Huh - node is not a variable'.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11036	^ nil.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11037	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11038	definingNode := node whoDefines: badName.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11039	definingNode isNil ifTrue: [
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11040	Dialog information: badName , ' is not a temporary variable in the method'.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11041	^ nil.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11042	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11043
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11044	newName := Dialog request:(Dialog resources string:'Rename "%1" to:' with:badName) initialAnswer:badName.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11045	newName isNil ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11046	AbortOperationRequest raise.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11047	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11048	(newName isEmpty or:[newName = badName]) ifTrue:[
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11049	^ nil
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11050	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11051
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11052	refactoring := RenameTemporaryRefactoring
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11053	renameTemporaryFrom:node sourceInterval
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11054	to:newName
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11055	in:nil
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11056	selector:nil.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11057
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11058	"/ refactoring oldName:badName.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11059	refactoring source:source.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11060	refactoring okToRenameAsKnownVariable:true.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11061
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11062	refactoring checkPreconditions.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11063	refactoring transform.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11064	^ refactoring newSource
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11065	! !
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11066
3291 6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	11067	!Parser::CorrectByMakingValidHexConstant class methodsFor:'queries'!
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	11068
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	11069	buttonLabel
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	11070	^ 'Correct Hex Constant'
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	11071	! !
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	11072
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	11073	!Parser::CorrectByMakingValidHexConstant methodsFor:'accessing'!
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	11074
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	11075	receiverNode:something
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	11076	receiverNode := something.
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	11077	!
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	11078
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	11079	selector:something
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	11080	selector := something.
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	11081	! !
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	11082
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	11083	!Parser::CorrectByMakingValidHexConstant methodsFor:'correcting'!
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	11084
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	11085	fixFrom:pos1 to:pos2 for:aCompiler
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	11086	"a selector needs to be changed in a message send"
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	11087
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	11088	\|source newSource\|
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	11089
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	11090	source := aCompiler currentSource string.
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	11091
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	11092	newSource := (source copyTo:receiverNode startPosition - 1),'16r',(selector copyFrom:2),(source copyFrom:receiverNode parent selectorPosition + selector size).
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	11093	^ newSource.
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	11094	! !
6d3aa0cbac53 class: Parser Claus Gittinger <cg@exept.de> parents: 3289 diff changeset	11095
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11096	!Parser::CorrectByChangingSelector class methodsFor:'queries'!
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11097
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11098	buttonLabel
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11099	^ 'Correct...'
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11100	! !
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11101
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11102	!Parser::CorrectByChangingSelector methodsFor:'accessing'!
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11103
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11104	receiverClass:something
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11105	receiverClass := something.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11106	!
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11107
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11108	receiverNode:something
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11109	receiverNode := something.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11110	!
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11111
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11112	selector:something
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11113	selector := something.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11114	! !
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11115
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11116	!Parser::CorrectByChangingSelector methodsFor:'correcting'!
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11117
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11118	fixFrom:pos1 to:pos2 for:aCompiler
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11119	"a selector needs to be changed in a message send"
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11120
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11121	\|suggestedNames newSelector\|
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11122
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11123	suggestedNames := aCompiler findBestSelectorsFor:selector in:receiverClass.
3306 41da3ba696f4 class: Parser Claus Gittinger <cg@exept.de> parents: 3305 diff changeset	11124	suggestedNames isEmptyOrNil ifTrue:[
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11125	self information:'no good correction found'.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11126	^ nil
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11127	].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11128	newSelector := aCompiler askForCorrection:'Correct Selector to: ' fromList:suggestedNames for:selector.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11129	newSelector isNil ifTrue:[AbortSignal raise "^ aSelectorString"].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11130
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11131	newSelector = selector ifTrue:[^ nil].
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11132
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11133	"
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11134	tell requestor (i.e. CodeView) about the change
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11135	this will update what the requestor shows.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11136	"
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11137	aCompiler requestor replaceSelectionBy:newSelector keepCursor:false.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11138	"
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11139	get the updated source-string
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11140	which is needed, when we eventually install the new method
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11141	"
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11142	^ aCompiler requestor currentSourceCode.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11143	! !
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11144
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11145	!Parser::PossibleCorrectionsQuery class methodsFor:'documentation'!
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11146
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11147	documentation
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11148	"
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11149	answered by the compile when a correctable error/warning is reported.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11150	Can be used by caller of the compiler to ask what type of correction is possible.
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11151	"
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11152	! !
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11153
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11154	!Parser::PossibleCorrectionsQuery methodsFor:'queries'!
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11155
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11156	defaultResumeValue
3298 7974ee6d7b9c class: Parser Claus Gittinger <cg@exept.de> parents: 3297 diff changeset	11157	"/ returning an instance here, so it can keep some state in case it is
7974ee6d7b9c class: Parser Claus Gittinger <cg@exept.de> parents: 3297 diff changeset	11158	"/ reused (same for all)
7974ee6d7b9c class: Parser Claus Gittinger <cg@exept.de> parents: 3297 diff changeset	11159	^ { Parser correctByDeclaringIdentifierAs new . Parser correctByInteractiveCorrection }
3282 ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11160
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11161	"
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11162	Parser possibleCorrectionsQuery query
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11163	Parser possibleCorrectionsQuery defaultResumeValue
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11164	"
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11165	! !
ffec41d8e105 class: Parser Claus Gittinger <cg@exept.de> parents: 3280 diff changeset	11166
1780 572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11167	!Parser::PrimitiveSpecParser methodsFor:'initialization'!
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11168
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11169	initialize
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11170	super initialize.
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11171
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11172	actionArray := actionArray copy.
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11173	actionArray at:$" codePoint put:(actionArray at:$' codePoint).
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11174
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11175	"Created: / 01-08-2006 / 14:39:24 / cg"
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11176	! !
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11177
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11178	!Parser::PrimitiveSpecParser methodsFor:'parsing'!
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11179
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11180	parseSTVExternalFunctionDeclarationFrom:aStream definitionType:definitionType lineNr:lineNr for:aParserOrNil
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	11181	"parses ST/V function declarations of the forms
3152 228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	11182	'<api: functionName argType1 .. argTypeN returnType>'
228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	11183	'<ccall: functionName argType1 .. argTypeN returnType>'
228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	11184	'<ole: [async] vFunctionIndex argType1 .. argTypeN returnType>'
2424 880ed6513601 support async ole (with simple args only) Claus Gittinger <cg@exept.de> parents: 2422 diff changeset	11185	"
880ed6513601 support async ole (with simple args only) Claus Gittinger <cg@exept.de> parents: 2422 diff changeset	11186
880ed6513601 support async ole (with simple args only) Claus Gittinger <cg@exept.de> parents: 2422 diff changeset	11187	\|returnType functionName argTypes function virtualFunctionIndex isAsync\|
1780 572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11188
2038 ae0f419831c8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2033 diff changeset	11189	masterParser := aParserOrNil.
ae0f419831c8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2033 diff changeset	11190
1780 572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11191	self source:aStream.
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11192	self nextToken.
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11193
2424 880ed6513601 support async ole (with simple args only) Claus Gittinger <cg@exept.de> parents: 2422 diff changeset	11194	((tokenType == #Identifier) and:[ token = 'async' ]) ifTrue:[
3152 228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	11195	self nextToken.
228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	11196	isAsync := true
2424 880ed6513601 support async ole (with simple args only) Claus Gittinger <cg@exept.de> parents: 2422 diff changeset	11197	] ifFalse:[
3152 228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	11198	isAsync := false
2424 880ed6513601 support async ole (with simple args only) Claus Gittinger <cg@exept.de> parents: 2422 diff changeset	11199	].
880ed6513601 support async ole (with simple args only) Claus Gittinger <cg@exept.de> parents: 2422 diff changeset	11200
1780 572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11201	(definitionType = 'ole:') ifTrue:[
3152 228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	11202	(tokenType == #Integer) ifFalse:[
228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	11203	self parseError:'virtual function number expected (got ' , token printString , ')'.
228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	11204	].
228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	11205	virtualFunctionIndex := token.
228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	11206	self nextToken.
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	11207	] ifFalse:[
3152 228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	11208	(tokenType == #String) ifTrue:[
228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	11209	functionName := tokenValue.
228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	11210	] ifFalse:[
228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	11211	(tokenType == #Identifier) ifTrue:[
228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	11212	functionName := token.
228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	11213	] ifFalse:[
228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	11214	self parseError:'function identifier expected (got ' , token printString , ')'.
228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	11215	].
228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	11216	].
228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	11217	self nextToken.
228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	11218
228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	11219	functionName isAlphaNumeric ifFalse:[
228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	11220	"/ mhm a newer squeak definition in the form 'extern void warning(char *s)'
228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	11221	self parseError:'cannot (yet) parse new style squeak external functions'.
228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	11222	^ nil
228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	11223	].
2683 7940716b1020 changed: Claus Gittinger <cg@exept.de> parents: 2682 diff changeset	11224	].
1780 572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11225
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11226	argTypes := OrderedCollection new.
1816 408690039009 * empty log message * ca parents: 1812 diff changeset	11227	[ token notNil and:[ (token ~= '>') and:[ (tokenType ~~ #BinaryOperator) or:[tokenName ~= '>']]]] whileTrue:[
3152 228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	11228	argTypes add:(self typeMappingFor:token).
228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	11229	self nextToken.
1780 572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11230	].
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11231	returnType := argTypes last.
3152 228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	11232	argTypes := argTypes copyButLast:1.
1780 572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11233
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	11234	function := ExternalLibraryFunction
3152 228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	11235	name:(functionName ? virtualFunctionIndex)
228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	11236	module:nil
228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	11237	returnType:returnType
228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	11238	argumentTypes:argTypes asArray.
1780 572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11239
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11240	(definitionType = 'api:') ifTrue:[
3152 228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	11241	function beCallTypeAPI
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	11242	] ifFalse:[
3152 228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	11243	(definitionType = 'ole:') ifTrue:[
228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	11244	function beCallTypeOLE
228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	11245	] ifFalse:[
228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	11246	function beCallTypeC
228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	11247	].
1780 572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11248	].
2424 880ed6513601 support async ole (with simple args only) Claus Gittinger <cg@exept.de> parents: 2422 diff changeset	11249	isAsync ifTrue:[
3152 228cc0646db3 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3150 diff changeset	11250	function beAsync
2424 880ed6513601 support async ole (with simple args only) Claus Gittinger <cg@exept.de> parents: 2422 diff changeset	11251	].
1780 572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11252	^ function
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11253
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11254	"Created: / 01-08-2006 / 16:11:24 / cg"
2926 1243ca7f2c09 ole spec parser fix. Claus Gittinger <cg@exept.de> parents: 2902 diff changeset	11255	"Modified: / 25-09-2012 / 09:45:46 / cg"
1780 572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11256	!
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11257
1937 ba58036b48db comments & method rename Claus Gittinger <cg@exept.de> parents: 1936 diff changeset	11258	parseSTXOrSqueakOrDolphinExternalFunctionDeclarationFrom:aStream definitionType:definitionType lineNr:lineNrArg for: aParserOrNil
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	11259	"parses squeak/dolphin function declarations of the forms
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11260	'<stdcall: [virtual\|nonVirtual][const] returnType functionNameStringOrIndex argType1..argTypeN>'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11261	'<cdecl: [virtual\|nonVirtual][const] returnType functionNameStringOrIndex argType1..argTypeN>'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11262
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11263	'<cdecl: [async] [virtual\|nonVirtual][const] returnType functionNameStringOrIndex ( argType1..argTypeN ) module: moduleName >'
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11264	'<apicall: [async] [virtual\|nonVirtual][const] returnType functionNameStringOrIndex ( argType1..argTypeN ) module: moduleName >'
1820 a8e315786148 const specifier (is this a good name ?) ca parents: 1819 diff changeset	11265	"
a8e315786148 const specifier (is this a good name ?) ca parents: 1819 diff changeset	11266
a8e315786148 const specifier (is this a good name ?) ca parents: 1819 diff changeset	11267	\|isVirtualCall isNonVirtualCall isAsyncCall isUnlimitedStack isConst scanningCallModifiers
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	11268	returnType functionName virtualFunctionIndex argTypes moduleName argType function
1818 918baf269481 * empty log message * ca parents: 1817 diff changeset	11269	parentized thisType\|
1780 572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11270
2038 ae0f419831c8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2033 diff changeset	11271	masterParser := aParserOrNil.
1820 a8e315786148 const specifier (is this a good name ?) ca parents: 1819 diff changeset	11272	isVirtualCall := isNonVirtualCall := isAsyncCall := isUnlimitedStack := isConst := false.
1780 572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11273
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11274	"/ self knownDefinitions:dictionaryOfTypesOrNil.
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11275	self source:aStream.
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11276	lineNr := lineNrArg.
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11277
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11278	self nextToken.
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11279
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	11280	scanningCallModifiers := true.
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	11281	[scanningCallModifiers] whileTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11282	scanningCallModifiers := false.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11283	(tokenType == #Identifier) ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11284	(token = 'async') ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11285	self nextToken.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11286	isAsyncCall := true.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11287	scanningCallModifiers := true.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11288	] ifFalse:[ (token = 'virtual') ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11289	self nextToken.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11290	isVirtualCall := true.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11291	scanningCallModifiers := true.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11292	] ifFalse:[ (token = 'nonVirtual') ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11293	self nextToken.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11294	isNonVirtualCall := true.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11295	scanningCallModifiers := true.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11296	] ifFalse:[ (token = 'unlimitedStack') ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11297	self nextToken.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11298	isUnlimitedStack := true.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11299	scanningCallModifiers := true.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11300	] ifFalse:[ (token = 'const') ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11301	self nextToken.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11302	isConst := true.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11303	scanningCallModifiers := true.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11304	]]]]]
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11305	]
1780 572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11306	].
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11307
1818 918baf269481 * empty log message * ca parents: 1817 diff changeset	11308	returnType := self parseTypeSpec.
1780 572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11309
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11310	isVirtualCall ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11311	tokenType ~~ #Integer ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11312	(masterParser ? self) ignorableParseError:'invalid cdecl - virtual function index expected'.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11313	^ nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11314	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11315	virtualFunctionIndex := token.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11316	self nextToken.
1780 572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11317	] ifFalse:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11318	tokenType ~~ #String ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11319	(masterParser ? self) ignorableParseError:'invalid cdecl - functionName expected'.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11320	^ nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11321	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11322	functionName := token asSymbol.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11323	self nextToken.
1780 572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11324	].
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11325
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11326	tokenType = $( ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11327	parentized := true.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11328	self nextToken.
1780 572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11329	] ifFalse:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11330	parentized := false.
1780 572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11331	].
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11332
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11333	argTypes := OrderedCollection new.
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11334	[ tokenType == #EOF
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11335	or:[ parentized and:[tokenType = $) ]] ] whileFalse:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11336	argType := self parseTypeSpec.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11337	argTypes add:argType.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11338	(tokenType = $,
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11339	or:[ tokenType == #BinaryOperator and:[token = ','] ]) ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11340	self nextToken
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11341	]
1780 572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11342	].
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11343	tokenType = $) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11344	self nextToken.
1780 572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11345	].
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11346
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11347	((tokenType == #Identifier and:[token = 'module'])
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11348	or:[tokenType == #Keyword and:[ token = 'module:']]) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11349	self nextToken.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11350	tokenType == $: ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11351	self nextToken.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11352	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11353
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11354	tokenType ~~ #String ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11355	(masterParser ? self) ignorableParseError:'Invalid declaration - moduleName expected'.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11356	^ nil
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11357	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11358	moduleName := token asSymbol.
1780 572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11359	].
1816 408690039009 * empty log message * ca parents: 1812 diff changeset	11360	(argTypes size == 1 and:[argTypes first == #void "isCVoid"]) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11361	argTypes := #()
1780 572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11362	].
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11363
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11364	isNonVirtualCall ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11365	(classToCompileFor isSubclassOf:ExternalStructure) ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11366	thisType := classToCompileFor name.
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	11367	"/ (thisType := classToCompileFor cType) isNil ifTrue:[
1816 408690039009 * empty log message * ca parents: 1812 diff changeset	11368	"/ "/ self warning:'missing CType definition in ' , tok printString.
408690039009 * empty log message * ca parents: 1812 diff changeset	11369	"/ thisType := CType newStructType.
408690039009 * empty log message * ca parents: 1812 diff changeset	11370	"/ thisType name:(classToCompileFor nameWithoutPrefix).
408690039009 * empty log message * ca parents: 1812 diff changeset	11371	"/ thisType := CType pointerTypeClass new baseType:thisType.
408690039009 * empty log message * ca parents: 1812 diff changeset	11372	"/ ].
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11373	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11374	thisType := thisType ? #pointer.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11375	argTypes := (Array with:thisType) , argTypes.
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	11376	].
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	11377
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	11378	function := ExternalLibraryFunction
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11379	name:(functionName ? virtualFunctionIndex)
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11380	module:moduleName
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11381	returnType:returnType
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11382	argumentTypes:argTypes asArray.
1780 572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11383
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11384	(definitionType = 'apicall:') ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11385	function beCallTypeAPI
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	11386	] ifFalse:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11387	(definitionType = 'olecall:') ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11388	function beCallTypeOLE
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11389	] ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11390	function beCallTypeC
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11391	].
1780 572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11392	].
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11393	isNonVirtualCall ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11394	function beNonVirtualCPP
1780 572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11395	].
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11396	isAsyncCall ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11397	function beAsync
1780 572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11398	].
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11399	isUnlimitedStack ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11400	function beUnlimitedStack
1780 572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11401	].
1820 a8e315786148 const specifier (is this a good name ?) ca parents: 1819 diff changeset	11402	isConst ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11403	function beConstReturnValue
1820 a8e315786148 const specifier (is this a good name ?) ca parents: 1819 diff changeset	11404	].
1780 572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11405	^ function
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11406
1937 ba58036b48db comments & method rename Claus Gittinger <cg@exept.de> parents: 1936 diff changeset	11407	"Created: / 25-10-2006 / 12:03:59 / cg"
2038 ae0f419831c8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2033 diff changeset	11408	"Modified: / 07-06-2007 / 13:13:35 / cg"
1780 572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11409	!
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11410
1818 918baf269481 * empty log message * ca parents: 1817 diff changeset	11411	parseTypeSpec
918baf269481 * empty log message * ca parents: 1817 diff changeset	11412	\|type typeName ns cls\|
918baf269481 * empty log message * ca parents: 1817 diff changeset	11413
918baf269481 * empty log message * ca parents: 1817 diff changeset	11414	typeName := token.
918baf269481 * empty log message * ca parents: 1817 diff changeset	11415	self nextToken.
918baf269481 * empty log message * ca parents: 1817 diff changeset	11416
918baf269481 * empty log message * ca parents: 1817 diff changeset	11417	((tokenType == #'::') or:[(tokenType == #'.')]) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11418	"/ namespace...
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11419	[(tokenType == #'::') or:[(tokenType == #'.')]] whileTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11420	typeName := typeName , '::'.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11421	self nextToken.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11422	tokenType ~~ #Identifier ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11423	(masterParser ? self) parseError:'invalid type identifier'.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11424	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11425	typeName := typeName , token.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11426	self nextToken.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11427	]
1818 918baf269481 * empty log message * ca parents: 1817 diff changeset	11428	].
918baf269481 * empty log message * ca parents: 1817 diff changeset	11429
2233 bdfb7e25e14b long long, long long int etc. types Claus Gittinger <cg@exept.de> parents: 2232 diff changeset	11430	(tokenType == #Identifier and:[tokenName = 'long']) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11431	"/ long long
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11432	(type = 'long') ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11433	"/ long long
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11434	typeName := 'longLong'.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11435	self nextToken.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11436	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11437	"/ unsigned long
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11438	(type = 'unsigned') ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11439	"/ unsigned long
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11440	typeName := 'ulong'.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11441	self nextToken.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11442	].
2233 bdfb7e25e14b long long, long long int etc. types Claus Gittinger <cg@exept.de> parents: 2232 diff changeset	11443	].
bdfb7e25e14b long long, long long int etc. types Claus Gittinger <cg@exept.de> parents: 2232 diff changeset	11444	(tokenType == #Identifier and:[tokenName = 'int']) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11445	"/ long long int
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11446	"/ unsigned int
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11447	"/ long int
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11448	( #('longLong' 'unsigned' 'long') includes: typeName) ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11449	self nextToken.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11450	].
2233 bdfb7e25e14b long long, long long int etc. types Claus Gittinger <cg@exept.de> parents: 2232 diff changeset	11451	].
bdfb7e25e14b long long, long long int etc. types Claus Gittinger <cg@exept.de> parents: 2232 diff changeset	11452	(tokenType == #Identifier and:[tokenName = 'unsigned']) ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11453	"/ long long unsigned
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11454	"/ int unsigned
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11455	"/ long unsigned
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11456	( #('longLong' 'int' 'long') includes: typeName) ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11457	typeName := 'u',typeName.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11458	self nextToken.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11459	].
2233 bdfb7e25e14b long long, long long int etc. types Claus Gittinger <cg@exept.de> parents: 2232 diff changeset	11460	].
bdfb7e25e14b long long, long long int etc. types Claus Gittinger <cg@exept.de> parents: 2232 diff changeset	11461
1818 918baf269481 * empty log message * ca parents: 1817 diff changeset	11462	type := self typeMappingFor:typeName.
2233 bdfb7e25e14b long long, long long int etc. types Claus Gittinger <cg@exept.de> parents: 2232 diff changeset	11463
bdfb7e25e14b long long, long long int etc. types Claus Gittinger <cg@exept.de> parents: 2232 diff changeset	11464	[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11465	(tokenType = $*)
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11466	or:[((tokenType == #BinaryOperator) and:[tokenName conform:[:ch \| ch = $*]])]
2039 b68b14df2495 pointer types Claus Gittinger <cg@exept.de> parents: 2038 diff changeset	11467	] whileTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11468	"/ that many indirections added
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11469	tokenName size timesRepeat:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11470	type := self pointerTypeMappingFor:type.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11471	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11472	self nextToken.
1818 918baf269481 * empty log message * ca parents: 1817 diff changeset	11473	].
918baf269481 * empty log message * ca parents: 1817 diff changeset	11474
2192 da3846f1b41d use isUppercaseFirst Claus Gittinger <cg@exept.de> parents: 2189 diff changeset	11475	type isUppercaseFirst ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11476	(ns := classToCompileFor nameSpace) notNil ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11477	cls := ns at:type.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11478	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11479	cls isNil ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11480	cls := Smalltalk at:type.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11481	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11482	cls isNil ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11483	(masterParser ? self) ignorableParseError:'possibly unknown type: ', type allBold.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11484	] ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11485	cls autoload.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11486	(cls isSubclassOf:ExternalBytes) ifFalse:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11487	(masterParser ? self) ignorableParseError:'possibly wrong type: ', type allBold.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11488	].
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11489	type := cls name.
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11490	].
1818 918baf269481 * empty log message * ca parents: 1817 diff changeset	11491	].
918baf269481 * empty log message * ca parents: 1817 diff changeset	11492
918baf269481 * empty log message * ca parents: 1817 diff changeset	11493	^ type
2038 ae0f419831c8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2033 diff changeset	11494
ae0f419831c8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2033 diff changeset	11495	"Modified: / 07-06-2007 / 13:14:59 / cg"
ae0f419831c8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2033 diff changeset	11496	!
ae0f419831c8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2033 diff changeset	11497
ae0f419831c8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2033 diff changeset	11498	parseVWTypeOrExternalFunctionDeclarationFrom:aStream definitionType:definitionType knownDefinitions:dictionaryOfTypesOrNil lineNr:lineNr for:aParserOrNil
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	11499	"parses visualWorks type/function declarations of the form:
3200 b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	11500	'<c: ...>'
b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	11501	'<c: #define NAME value>'"
2051 91c2cbbfcacd c: #define added Claus Gittinger <cg@exept.de> parents: 2050 diff changeset	11502
2210 0c4b63e4a841 * empty log message * Claus Gittinger <cg@exept.de> parents: 2209 diff changeset	11503	\|cParser moduleName type name val
2188 61697f2ad11d some wellknown predefined types added to vw-ctypes Claus Gittinger <cg@exept.de> parents: 2187 diff changeset	11504	nameAndFunctionOrType functionOrType function libName\|
1780 572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11505
2038 ae0f419831c8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2033 diff changeset	11506	masterParser := aParserOrNil.
ae0f419831c8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2033 diff changeset	11507
2051 91c2cbbfcacd c: #define added Claus Gittinger <cg@exept.de> parents: 2050 diff changeset	11508	self source:aStream.
91c2cbbfcacd c: #define added Claus Gittinger <cg@exept.de> parents: 2050 diff changeset	11509	self nextToken.
91c2cbbfcacd c: #define added Claus Gittinger <cg@exept.de> parents: 2050 diff changeset	11510	((tokenType == #Symbol) and:[token = #define]) ifTrue:[
3200 b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	11511	self nextToken.
b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	11512	(tokenType == #Identifier) ifFalse:[
b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	11513	(masterParser ? self) ignorableParseError:'invalid cdecl - identifier expected'.
b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	11514	self generateTrapCodeForUnavailableCParser.
b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	11515	^ nil.
b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	11516	].
b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	11517	name := token.
b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	11518	self nextToken.
b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	11519	"/ for now, only allow integer, string or floats.
b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	11520	(#(Integer String Float) includes:tokenType) ifTrue:[
b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	11521	^ token
b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	11522	].
b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	11523	tokenType == $( ifTrue:[
b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	11524	self nextToken.
b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	11525	(#(Integer String Float) includes:tokenType) ifTrue:[
b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	11526	val := token.
b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	11527	self nextToken.
b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	11528	tokenType == $) ifTrue:[ ^ val ].
b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	11529	].
b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	11530	].
b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	11531
b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	11532	(masterParser ? self) ignorableParseError:'invalid cdecl - integer, float or string expected'.
b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	11533	self generateTrapCodeForUnavailableCParser.
b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	11534	^ nil.
2051 91c2cbbfcacd c: #define added Claus Gittinger <cg@exept.de> parents: 2050 diff changeset	11535	].
91c2cbbfcacd c: #define added Claus Gittinger <cg@exept.de> parents: 2050 diff changeset	11536
91c2cbbfcacd c: #define added Claus Gittinger <cg@exept.de> parents: 2050 diff changeset	11537	aStream reset.
91c2cbbfcacd c: #define added Claus Gittinger <cg@exept.de> parents: 2050 diff changeset	11538
1780 572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11539	CParser isNil ifTrue:[
3200 b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	11540	self generateTrapCodeForUnavailableCParser.
b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	11541	^ nil.
1780 572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11542	].
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11543
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11544	cParser := CParser new.
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11545	cParser knownDefinitions:dictionaryOfTypesOrNil.
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11546	cParser allowRedefinitions:true.
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11547	cParser source:aStream scannerClass:CDeclScanner.
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11548	cParser nextToken.
2052 8460eb468d03 * empty log message * Claus Gittinger <cg@exept.de> parents: 2051 diff changeset	11549
1780 572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11550	cParser tokenType == #struct ifTrue:[
3200 b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	11551	type := cParser type.
1780 572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11552	] ifFalse:[
3200 b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	11553	cParser tokenType == #typedef ifTrue:[
b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	11554	type := cParser typedef.
b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	11555	] ifFalse:[
b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	11556	nameAndFunctionOrType := cParser typeOrFunctionDeclaration.
b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	11557	functionOrType := nameAndFunctionOrType second.
b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	11558	functionOrType isCFunction ifFalse:[
b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	11559	type := functionOrType.
b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	11560	function := nil.
b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	11561	] ifTrue:[
b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	11562	function := functionOrType.
b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	11563	type := nil.
b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	11564	].
b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	11565	]
1780 572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11566	].
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11567	cParser token notNil ifTrue:[
3200 b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	11568	(masterParser ? self) ignorableParseError:'invalid cdecl - nothing more expected'.
b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	11569	^ nil.
1780 572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11570	].
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11571	type notNil ifTrue:[
3200 b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	11572	^ type.
1780 572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11573	].
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11574
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11575	moduleName isNil ifTrue:[
3200 b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	11576	self breakPoint:#cg.
b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	11577	libName := classToCompileFor theNonMetaclass perform:#libraryName ifNotUnderstood:'unknown'.
b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	11578	moduleName := libName asSymbol.
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	11579	].
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	11580
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	11581	function := ExternalLibraryFunction
3200 b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	11582	name:function name
b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	11583	module:moduleName
b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	11584	returnType:function returnType
b3b51a1bc518 class: Parser Claus Gittinger <cg@exept.de> parents: 3188 diff changeset	11585	argumentTypes:function argumentTypes asArray.
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	11586
8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	11587	function beCallTypeC.
1780 572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11588	^ function
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11589
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11590	"Created: / 01-08-2006 / 16:18:05 / cg"
2038 ae0f419831c8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2033 diff changeset	11591	"Modified: / 07-06-2007 / 13:14:06 / cg"
1780 572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11592	! !
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11593
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11594	!Parser::PrimitiveSpecParser methodsFor:'parsing-primitives & pragmas'!
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11595
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11596	pointerTypeMappingFor: aTypeSymbol
2039 b68b14df2495 pointer types Claus Gittinger <cg@exept.de> parents: 2038 diff changeset	11597	"given a type, make it a 'pointer to that-type'"
2230 3434cb57441a * empty log message * Claus Gittinger <cg@exept.de> parents: 2229 diff changeset	11598
3434cb57441a * empty log message * Claus Gittinger <cg@exept.de> parents: 2229 diff changeset	11599	\|e cls\|
1780 572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11600
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11601	e := #(
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11602	(void voidPointer )
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11603	(char charPointer )
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11604	(byte bytePointer )
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11605	(uint8 uint8Pointer )
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11606	(uint16 uint16Pointer )
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11607	(uint32 uint32Pointer )
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11608	(uint64 uint64Pointer )
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11609	(int8 int8Pointer )
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11610	(int16 int16Pointer )
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11611	(int32 int32Pointer )
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11612	(int64 int64Pointer )
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11613	(int intPointer )
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11614	(short shortPointer )
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11615	(ushort ushortPointer )
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11616	(long longPointer )
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11617	(uint uintPointer )
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11618	(ulong ulongPointer )
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11619	(float floatPointer )
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11620	(double doublePointer )
1780 572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11621	) detect:[:p \| p first = aTypeSymbol] ifNone:nil.
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11622	e notNil ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11623	^ e second
1780 572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11624	].
2302 370e9e90ac64 * empty log message * Claus Gittinger <cg@exept.de> parents: 2293 diff changeset	11625
2230 3434cb57441a * empty log message * Claus Gittinger <cg@exept.de> parents: 2229 diff changeset	11626	cls := Smalltalk classNamed:aTypeSymbol.
3434cb57441a * empty log message * Claus Gittinger <cg@exept.de> parents: 2229 diff changeset	11627	cls notNil ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11628	(cls isSubclassOf:ExternalStructure) ifTrue:[
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11629	^ #pointer
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11630	].
2230 3434cb57441a * empty log message * Claus Gittinger <cg@exept.de> parents: 2229 diff changeset	11631	].
3434cb57441a * empty log message * Claus Gittinger <cg@exept.de> parents: 2229 diff changeset	11632
2302 370e9e90ac64 * empty log message * Claus Gittinger <cg@exept.de> parents: 2293 diff changeset	11633	(aTypeSymbol endsWith:'Pointer') ifTrue:[
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11634	^ aTypeSymbol , 'Pointer'
2302 370e9e90ac64 * empty log message * Claus Gittinger <cg@exept.de> parents: 2293 diff changeset	11635	].
370e9e90ac64 * empty log message * Claus Gittinger <cg@exept.de> parents: 2293 diff changeset	11636
2038 ae0f419831c8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2033 diff changeset	11637	(masterParser ? self) ignorableParseError:'missing pointer type mapping for type: ', aTypeSymbol allBold.
ae0f419831c8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2033 diff changeset	11638	^ #pointer "/ aTypeSymbol asSymbol
1780 572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11639
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11640	"Created: / 01-08-2006 / 15:33:53 / cg"
2038 ae0f419831c8 * empty log message * Claus Gittinger <cg@exept.de> parents: 2033 diff changeset	11641	"Modified: / 11-06-2007 / 01:51:26 / cg"
1780 572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11642	!
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11643
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11644	typeMappingFor:aTypeSymbol
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11645	\|e\|
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11646
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11647	e := #(
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11648	(short int16 )
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11649	(long int32 )
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11650	(int int32 )
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11651	(ushort uint16 )
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11652	(ulong uint32 )
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11653	(unsignedByte uint8 )
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11654	(unsignedChar uint8 )
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11655	(unsignedShort uint16 )
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11656	(unsignedLong uint32 )
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11657	(double double )
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11658	(float float )
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11659	(char char )
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11660	(uchar uint8 )
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11661	(byte uint8 )
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11662	(void void )
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11663	(bool bool )
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11664	(boolean bool )
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11665	(dword uint32 )
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11666	(sdword int32 )
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11667	(word uint16 )
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11668	(sword int16 )
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11669	(handle voidPointer )
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11670	(lpstr charPointer )
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11671	(hresult uint32 )
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11672	(ulongReturn uint32 )
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11673	(none void )
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11674	(struct voidPointer )
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11675	(structIn voidPointer )
27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11676	(structOut voidPointer )
1780 572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11677	) detect:[:p \| p first = aTypeSymbol] ifNone:nil.
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11678
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11679	e notNil ifTrue:[ ^ e second ].
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11680
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11681	"/ the following is now done in ExternalFunction (if at all), as the ctype is not required to
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11682	"/ be present right now, and also to allow for stc-compilation, where no
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11683	"/ ctypes are avaliable at all.
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11684
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11685	"/ e isNil ifTrue:[
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11686	"/ cls := classToCompileFor nameSpace classNamed:tok.
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11687	"/ cls isNil ifTrue:[
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11688	"/ cls := Smalltalk classNamed:tok.
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11689	"/ ].
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11690	"/ cls notNil ifTrue:[
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11691	"/ (cls isSubclassOf:ExternalStructure) ifTrue:[
3093 8acc90252393 class: Parser Claus Gittinger <cg@exept.de> parents: 3067 diff changeset	11692	"/ (cType := cls cType) isNil ifTrue:[
1780 572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11693	"/ "/ self warning:'missing CType definition in ' , tok printString.
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11694	"/ cType := CType newStructType.
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11695	"/ cType name:cls name.
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11696	"/ ].
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11697	"/ cType
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11698	"/ ] ifFalse:[
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11699	"/ cls
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11700	"/ ].
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11701	"/ ] ifFalse:[
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11702	"/ self parseError:'ulong, ushort, or another valid Squeak type identifier expected (got ' , tok printString , ')'.
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11703	"/ nil
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11704	"/ ]
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11705	"/ ] ifFalse:[
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11706	"/ e second
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11707	"/ ].
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11708
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11709	^ aTypeSymbol asSymbol
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11710
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11711	"Created: / 01-08-2006 / 15:35:52 / cg"
2040 146dbe058644 * empty log message * Claus Gittinger <cg@exept.de> parents: 2039 diff changeset	11712	"Modified: / 14-06-2007 / 17:18:54 / cg"
1780 572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11713	! !
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11714
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11715	!Parser::PrimitiveSpecParser methodsFor:'reading next token'!
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11716
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11717	isCommentCharacter:ch
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11718	"no comments"
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11719
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11720	^ false
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11721
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11722	"Created: / 01-08-2006 / 14:54:48 / cg"
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11723	! !
572da5701f89 rewrite & cleanup of primitive parsing code Claus Gittinger <cg@exept.de> parents: 1779 diff changeset	11724
358 78b0d8954c49 removed possible conflict between #classVarNames here and in Class. Claus Gittinger <cg@exept.de> parents: 354 diff changeset	11725	!Parser class methodsFor:'documentation'!
148 ef0e604209ec version method at the end Claus Gittinger <cg@exept.de> parents: 145 diff changeset	11726
2683 7940716b1020 changed: Claus Gittinger <cg@exept.de> parents: 2682 diff changeset	11727	version
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11728	^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.790 2013-08-31 22:35:44 cg Exp $'
2683 7940716b1020 changed: Claus Gittinger <cg@exept.de> parents: 2682 diff changeset	11729	!
7940716b1020 changed: Claus Gittinger <cg@exept.de> parents: 2682 diff changeset	11730
2213 d7b52f6cece6 added: #isEmptyMethod fm parents: 2210 diff changeset	11731	version_CVS
3311 27947a95f378 class: Parser Claus Gittinger <cg@exept.de> parents: 3306 diff changeset	11732	^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.790 2013-08-31 22:35:44 cg Exp $'
2511 5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	11733	!
5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	11734
5ee5e40e1d7a Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2493 diff changeset	11735	version_SVN
3171 40f97fdceb9a class: Parser Claus Gittinger <cg@exept.de> parents: 3152 diff changeset	11736	^ '$ Id $'
148 ef0e604209ec version method at the end Claus Gittinger <cg@exept.de> parents: 145 diff changeset	11737	! !
1322 da25e31f423c autodefine workspace variables Claus Gittinger <cg@exept.de> parents: 1315 diff changeset	11738
2995 ced78dd20036 class: Parser Stefan Vogel <sv@exept.de> parents: 2991 diff changeset	11739
141 d378d997aab0 checkin from browser Claus Gittinger <cg@exept.de> parents: 139 diff changeset	11740	Parser initialize!

author	Claus Gittinger <cg@exept.de>
	Sun, 01 Sep 2013 00:35:44 +0200
changeset 3311	27947a95f378
parent 3306	41da3ba696f4
child 3323	75c66bad4cf9
permissions	-rw-r--r--