Parser.st
author Claus Gittinger <cg@exept.de>
Wed, 19 May 2004 16:43:05 +0200
changeset 1515 8ffe6db5e53f
parent 1514 cf0c183c5ad9
child 1516 9e981654a0f5
permissions -rw-r--r--
suppress notifications while searching for blockAtLine.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
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
44
74ddc944c27f *** empty log message ***
claus
parents: 35
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
"
7ad01559b262 Initial revision
claus
parents:
diff changeset
    12
1043
08ad8eb7532d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1042
diff changeset
    13
"{ Package: 'stx:libcomp' }"
08ad8eb7532d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1042
diff changeset
    14
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
    15
Scanner subclass:#Parser
165
213e3f12fc56 better error message when selector is missing
Claus Gittinger <cg@exept.de>
parents: 148
diff changeset
    16
	instanceVariableNames:'classToCompileFor selfValue contextToEvaluateIn selector
213e3f12fc56 better error message when selector is missing
Claus Gittinger <cg@exept.de>
parents: 148
diff changeset
    17
		methodArgs methodArgNames methodVars methodVarNames tree
1077
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
    18
		currentBlock parseForCode readInstVars readClassVars readGlobals
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
    19
		usedInstVars usedClassVars usedVars modifiedInstVars
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
    20
		modifiedClassVars modifiedGlobals usesSuper usedGlobals
1082
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
    21
		usedSymbols messagesSent messagesSentToSelf messagesSentToSuper
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
    22
		localVarDefPosition evalExitBlock selfNode superNode nilNode
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
    23
		hasPrimitiveCode hasNonOptionalPrimitiveCode primitiveNr
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
    24
		primitiveResource logged warnedUndefVars warnedUnknownNamespaces
1160
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
    25
		warnSTXHereExtensionUsed warnUnusedVars correctedSource
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
    26
		foldConstants lineNumberInfo currentNamespace
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
    27
		currentUsedNamespaces warnUndeclared methodNode
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
    28
		alreadyWarnedClassInstVarRefs localBlockVarDefPosition
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
    29
		endOfSelectorPosition startOfBlockPosition primitiveContextInfo
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
    30
		usedLocalVars modifiedLocalVars alreadyWarnedUninitializedVars
1295
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
    31
		alreadyWarnedUnimplementedSelectors returnedValues currentPackage
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
    32
		doItTemporaries inFunctionCallArgument'
165
213e3f12fc56 better error message when selector is missing
Claus Gittinger <cg@exept.de>
parents: 148
diff changeset
    33
	classVariableNames:'PrevClass PrevInstVarNames PrevClassVarNames
213e3f12fc56 better error message when selector is missing
Claus Gittinger <cg@exept.de>
parents: 148
diff changeset
    34
		PrevClassInstVarNames LazyCompilation ArraysAreImmutable
1160
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
    35
		ImplicitSelfSends WarnST80Directives WarnUnusedVars FoldConstants
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
    36
		LineNumberInfo SuppressDoItCompilation StringsAreImmutable
1271
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
    37
		ParseErrorSignal RestartCompilationSignal
1295
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
    38
		AllowFunctionCallSyntaxForBlockEvaluation AllowLazyValueExtension
1342
65f8f4d0ce09 only autoDefine workspace vars on the top level (i.e. not within blocks)
Claus Gittinger <cg@exept.de>
parents: 1341
diff changeset
    39
		AllowVariableReferences AllowReservedWordsAsSelectors
1405
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
    40
		AllowLocalVariableDeclarationWithInitializerExpression
1471
8752bd8a5581 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1468
diff changeset
    41
		AllowArrayIndexSyntaxExtension AllowDomainVariables'
165
213e3f12fc56 better error message when selector is missing
Claus Gittinger <cg@exept.de>
parents: 148
diff changeset
    42
	poolDictionaries:''
213e3f12fc56 better error message when selector is missing
Claus Gittinger <cg@exept.de>
parents: 148
diff changeset
    43
	category:'System-Compiler'
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
    44
!
7ad01559b262 Initial revision
claus
parents:
diff changeset
    45
1423
6460943f32b7 Make ParserError proceedable
Stefan Vogel <sv@exept.de>
parents: 1421
diff changeset
    46
ProceedableError subclass:#ParseError
1434
e7d527d493d3 optional lineNumber info added to parseError
Claus Gittinger <cg@exept.de>
parents: 1432
diff changeset
    47
	instanceVariableNames:'errorMessage startPosition endPosition lineNumber'
971
00581dfc0b59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 964
diff changeset
    48
	classVariableNames:''
00581dfc0b59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 964
diff changeset
    49
	poolDictionaries:''
00581dfc0b59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 964
diff changeset
    50
	privateIn:Parser
00581dfc0b59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 964
diff changeset
    51
!
00581dfc0b59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 964
diff changeset
    52
00581dfc0b59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 964
diff changeset
    53
Parser::ParseError subclass:#UndefinedSuperclassError
00581dfc0b59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 964
diff changeset
    54
	instanceVariableNames:''
00581dfc0b59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 964
diff changeset
    55
	classVariableNames:''
00581dfc0b59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 964
diff changeset
    56
	poolDictionaries:''
00581dfc0b59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 964
diff changeset
    57
	privateIn:Parser
00581dfc0b59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 964
diff changeset
    58
!
00581dfc0b59 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 964
diff changeset
    59
1398
eaef898b063e added undefinedVariableNotification
Claus Gittinger <cg@exept.de>
parents: 1394
diff changeset
    60
Notification subclass:#UndefinedVariableNotification
1399
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
    61
	instanceVariableNames:'parser'
1398
eaef898b063e added undefinedVariableNotification
Claus Gittinger <cg@exept.de>
parents: 1394
diff changeset
    62
	classVariableNames:''
eaef898b063e added undefinedVariableNotification
Claus Gittinger <cg@exept.de>
parents: 1394
diff changeset
    63
	poolDictionaries:''
eaef898b063e added undefinedVariableNotification
Claus Gittinger <cg@exept.de>
parents: 1394
diff changeset
    64
	privateIn:Parser
eaef898b063e added undefinedVariableNotification
Claus Gittinger <cg@exept.de>
parents: 1394
diff changeset
    65
!
eaef898b063e added undefinedVariableNotification
Claus Gittinger <cg@exept.de>
parents: 1394
diff changeset
    66
358
78b0d8954c49 removed possible conflict between #classVarNames here and in Class.
Claus Gittinger <cg@exept.de>
parents: 354
diff changeset
    67
!Parser class methodsFor:'documentation'!
19
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
    68
20
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
    69
copyright
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
    70
"
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
    71
 COPYRIGHT (c) 1989 by Claus Gittinger
44
74ddc944c27f *** empty log message ***
claus
parents: 35
diff changeset
    72
	      All Rights Reserved
20
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
    73
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
    74
 This software is furnished under a license and may be used
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
    75
 only in accordance with the terms of that license and with the
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
    76
 inclusion of the above copyright notice.   This software may not
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
    77
 be provided or otherwise made available to, or used by, any
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
    78
 other person.  No title to or ownership of the software is
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
    79
 hereby transferred.
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
    80
"
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
    81
!
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
    82
19
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
    83
documentation
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
    84
"
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
    85
    Parser is used for both parsing and evaluating smalltalk expressions;
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
    86
    it first builds a parseTree which is then interpreted (evaluate) or
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
    87
    compiled. Compilation is done in the subclass ByteCodeCompiler and/or
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
    88
    the (planned) MachineCodeCompiler.
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
    89
173
247ae4b8af76 interest is written with one 'r' (shame on me)
Claus Gittinger <cg@exept.de>
parents: 171
diff changeset
    90
    methods of main interest are:
755
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
    91
        Parser evaluateExpression:...
19
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
    92
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
    93
    and:
755
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
    94
        Parser parseExpression:...
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
    95
        Parser parseMethod:...
19
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
    96
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
    97
    there is protocol to parse complete methods, selector specs, body only etc.
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
    98
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
    99
    Parser is also used to find the referenced/modified inst/classvars of
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
   100
    a method - this is done by sending parseXXX message to a parser and asking
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
   101
    the parser for referencedXVars or modifiedXVars (see SystemBrowser).
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
   102
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
   103
    You can also use parsers for all kinds of other things (ChangesBrowser for
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
   104
    example analyzes the expressions in the changelist ...) by looking at the
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
   105
    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
   106
    compilers internals ... better style is to add specialized query methods here)
19
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
   107
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
   108
    One instance of Parser is created to parse one method or expression - i.e.
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
   109
    its not suggested to reuse parsers.
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
   110
212
ff39051e219f more constant folding options
Claus Gittinger <cg@exept.de>
parents: 210
diff changeset
   111
ff39051e219f more constant folding options
Claus Gittinger <cg@exept.de>
parents: 210
diff changeset
   112
  Constant folding:
ff39051e219f more constant folding options
Claus Gittinger <cg@exept.de>
parents: 210
diff changeset
   113
ff39051e219f more constant folding options
Claus Gittinger <cg@exept.de>
parents: 210
diff changeset
   114
    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
   115
    expressions involving integers and floats are constant folded
ff39051e219f more constant folding options
Claus Gittinger <cg@exept.de>
parents: 210
diff changeset
   116
    (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
   117
ff39051e219f more constant folding options
Claus Gittinger <cg@exept.de>
parents: 210
diff changeset
   118
    Constant folding can be turned off completely (setting FoldConstants to nil)
ff39051e219f more constant folding options
Claus Gittinger <cg@exept.de>
parents: 210
diff changeset
   119
    to ``secure folding'', which only folds constant numbers (#level1) or to #full. 
ff39051e219f more constant folding options
Claus Gittinger <cg@exept.de>
parents: 210
diff changeset
   120
    In full mode, more constant expressions are folded (for example: '1.0 @ 1.0' is 
ff39051e219f more constant folding options
Claus Gittinger <cg@exept.de>
parents: 210
diff changeset
   121
    reduced to a constant point), but the resulting code may not be compatible with other 
ff39051e219f more constant folding options
Claus Gittinger <cg@exept.de>
parents: 210
diff changeset
   122
    smalltalk systems (consider the case, where the point is modified using #x: or #y: messages). 
ff39051e219f more constant folding options
Claus Gittinger <cg@exept.de>
parents: 210
diff changeset
   123
    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
   124
    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
   125
    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
   126
    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
   127
    if its known that the used constant objects are subject of modifications as described above.
212
ff39051e219f more constant folding options
Claus Gittinger <cg@exept.de>
parents: 210
diff changeset
   128
    
ff39051e219f more constant folding options
Claus Gittinger <cg@exept.de>
parents: 210
diff changeset
   129
ff39051e219f more constant folding options
Claus Gittinger <cg@exept.de>
parents: 210
diff changeset
   130
  Immutable arrays:
ff39051e219f more constant folding options
Claus Gittinger <cg@exept.de>
parents: 210
diff changeset
   131
ff39051e219f more constant folding options
Claus Gittinger <cg@exept.de>
parents: 210
diff changeset
   132
    Immutable arrays are experimental and being evaluated.
ff39051e219f more constant folding options
Claus Gittinger <cg@exept.de>
parents: 210
diff changeset
   133
    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
   134
    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
   135
    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
   136
    return the modified array. These are hard to find bugs.
ff39051e219f more constant folding options
Claus Gittinger <cg@exept.de>
parents: 210
diff changeset
   137
    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
   138
    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
   139
ff39051e219f more constant folding options
Claus Gittinger <cg@exept.de>
parents: 210
diff changeset
   140
    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
   141
    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
   142
    of st/x.
ff39051e219f more constant folding options
Claus Gittinger <cg@exept.de>
parents: 210
diff changeset
   143
ff39051e219f more constant folding options
Claus Gittinger <cg@exept.de>
parents: 210
diff changeset
   144
ff39051e219f more constant folding options
Claus Gittinger <cg@exept.de>
parents: 210
diff changeset
   145
260
b881b17d0da6 commentary
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   146
    [Instance variables:]
b881b17d0da6 commentary
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   147
755
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   148
        classToCompileFor   <Class>             the class (or nil) we are compiling for
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   149
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   150
        selfValue           <any>               value to use as self when interpreting
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   151
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   152
        contextToEvaluateIn <Context>           the context (or nil) when interpreting
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   153
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   154
        selector            <Symbol>            the selector of the parsed method
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   155
                                                (valid after parseMethodSpecification)
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   156
        methodArgs                              internal
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   157
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   158
        methodArgNames      <Collection>        the names of the arguments
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   159
                                                (valid after parseMethodSpecification)
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   160
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   161
        methodVars                              internal
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   162
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   163
        methodVarNames      <Collection>        the names of the method locals
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   164
                                                (valid after parseMethodBodyVarSpec)
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   165
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   166
        tree                <ParseTree>         the parse tree - valid after parsing
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   167
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   168
        currentBlock                            if currently parsing for a block
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   169
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   170
        usedInstVars                            set of all accessed instances variables
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   171
                                                (valid after parsing)
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   172
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   173
        usedClassVars                           same for classVars
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   174
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   175
        usedVars                                all used variables (inst, class & globals)
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   176
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   177
        modifiedInstVars                        set of all modified instance variables
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   178
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   179
        modifiedClassVars                       same for clasVars
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   180
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   181
        localVarDefPosition <Integer>           the character offset of the local variable
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   182
                                                def. (i.e. the first '|' if any)
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   183
                                                Not yet used - prepared for automatic add of
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   184
                                                undefined variables
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   185
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   186
        evalExitBlock                           internal for interpretation
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   187
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   188
        selfNode            <Node>              cached one-and-only 'self' node
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   189
        superNode           <Node>              cached one-and-only 'super' node
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   190
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   191
        hasPrimitiveCode    <Boolean>           true, if it contains ST/X style primitive code
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   192
        hasNonOptionalPrimitiveCode    
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   193
                            <Boolean>           true, if it contains ST/X style primitive code
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   194
                                                which is NOT flagged by the OPTIONAL directive.
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   195
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   196
        primitiveNr         <Integer>           the parsed ST-80 type primitive number (or nil)
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   197
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   198
        logged
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   199
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   200
        warnedUndefVars     <Set>               set of all variables which the parser has
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   201
                                                already output a warning (to avoid multiple
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   202
                                                warnings about the same variable)
260
b881b17d0da6 commentary
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   203
b881b17d0da6 commentary
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   204
    [Class variables:]
b881b17d0da6 commentary
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   205
755
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   206
        PrevClass           <Class>             class, of which properties are
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   207
                                                cached in:
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   208
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   209
        PrevInstVarNames      <Collection>      instance variablenames of cached class
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   210
        PrevClassVarNames     <Collection>      class variablenames of cached class
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   211
        PrevClassInstVarNames <Collection>      class instance variablenames of cached class
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   212
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   213
        LazyCompilation       <Boolean>         EXPERIMENTAL: lazy compilation
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   214
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   215
        ArraysAreImmutable    <Boolean>         if true, create array literals
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   216
                                                as instances of ImmutableArray,
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   217
                                                which cannot be stored into.
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   218
                                                Default is false, for compatibility.
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   219
                                                Can be turned on while developping
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   220
                                                new code to make certain that side
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   221
                                                effects are avoided.
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   222
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   223
        WarnST80Directives    <Boolean>         if true, give warnings about
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   224
                                                ST-80 directives (resource defs)
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   225
                                                which are ignored in st/x.
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   226
                                                defaults to false.
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   227
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   228
        FoldConstants         <Symbol>          controls how constant folding should be
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   229
                                                done.
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   230
                                                Can be one of:
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   231
                                                        nil      - no constant folding
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   232
                                                        #level1  - numeric optimizations only
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   233
                                                        #level2  - secure optimizations only
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   234
                                                        #full    - full folding
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   235
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   236
                                                level1:   arithmetic on constant numbers
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   237
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   238
                                                level2:   above PLUS array conversions with #asFloatArray,
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   239
                                                          #asDoubleArray, string concatenation
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   240
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   241
                                                full:     constant points.
260
b881b17d0da6 commentary
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   242
                                                          
b881b17d0da6 commentary
Claus Gittinger <cg@exept.de>
parents: 258
diff changeset
   243
    [see also:]
755
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   244
        ByteCodeCompiler Scanner ObjectFileLoader
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   245
        Workspace
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   246
        SystemBrowser
263
3b21d0991eff documentation
Claus Gittinger <cg@exept.de>
parents: 260
diff changeset
   247
3b21d0991eff documentation
Claus Gittinger <cg@exept.de>
parents: 260
diff changeset
   248
    [author:]
755
49ae81e86b7b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 752
diff changeset
   249
        Claus Gittinger
19
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
   250
"
1399
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
   251
!
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
   252
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
   253
examples
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
   254
"
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
   255
                                                                        [exBegin]
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
   256
    Parser 
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
   257
        evaluate:'1+2*3' 
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
   258
        in:nil 
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
   259
        receiver:nil 
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
   260
        notifying:nil 
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
   261
        logged:false 
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
   262
        ifFail:nil      
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
   263
                                                                        [exEnd]
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
   264
                                                                        [exBegin]
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
   265
    Parser undefinedVariableNotification handle:[:ex |
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
   266
        |badName|
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
   267
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
   268
        badName := ex variableName.
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
   269
        ex proceedWith:(ConstantNode value:5).
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
   270
    ] do:[
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
   271
        ^ self compilerClass 
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
   272
            evaluate:'foo * 3' 
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
   273
            in:nil 
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
   274
            receiver:nil 
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
   275
            notifying:nil 
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
   276
            logged:false 
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
   277
            ifFail:nil 
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
   278
    ]
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
   279
                                                                        [exEnd]
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
   280
"
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   281
! !
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   282
358
78b0d8954c49 removed possible conflict between #classVarNames here and in Class.
Claus Gittinger <cg@exept.de>
parents: 354
diff changeset
   283
!Parser class methodsFor:'instance creation'!
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   284
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   285
for:aStringOrStream in:aClass
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   286
    "return a new parser, reading code for aClass from aStringOrStream"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   287
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   288
    |parser|
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   289
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   290
    parser := self for:aStringOrStream.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   291
    parser setClassToCompileFor:aClass.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   292
    ^ parser
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   293
! !
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   294
1419
9cd1adac1785 category
Claus Gittinger <cg@exept.de>
parents: 1418
diff changeset
   295
!Parser class methodsFor:'Compatibility-ST80'!
540
642f56fab795 ST80 compatible parse:class:
Claus Gittinger <cg@exept.de>
parents: 508
diff changeset
   296
642f56fab795 ST80 compatible parse:class:
Claus Gittinger <cg@exept.de>
parents: 508
diff changeset
   297
parse:aString class:aClass
642f56fab795 ST80 compatible parse:class:
Claus Gittinger <cg@exept.de>
parents: 508
diff changeset
   298
    "same as #parseMethod:in: for ST80 compatibility."
642f56fab795 ST80 compatible parse:class:
Claus Gittinger <cg@exept.de>
parents: 508
diff changeset
   299
642f56fab795 ST80 compatible parse:class:
Claus Gittinger <cg@exept.de>
parents: 508
diff changeset
   300
    |parser|
642f56fab795 ST80 compatible parse:class:
Claus Gittinger <cg@exept.de>
parents: 508
diff changeset
   301
642f56fab795 ST80 compatible parse:class:
Claus Gittinger <cg@exept.de>
parents: 508
diff changeset
   302
    parser := self parseMethod:aString in:aClass.
642f56fab795 ST80 compatible parse:class:
Claus Gittinger <cg@exept.de>
parents: 508
diff changeset
   303
    parser notNil ifTrue:[^ parser tree].
642f56fab795 ST80 compatible parse:class:
Claus Gittinger <cg@exept.de>
parents: 508
diff changeset
   304
    ^ nil
642f56fab795 ST80 compatible parse:class:
Claus Gittinger <cg@exept.de>
parents: 508
diff changeset
   305
642f56fab795 ST80 compatible parse:class:
Claus Gittinger <cg@exept.de>
parents: 508
diff changeset
   306
    "Modified: 19.6.1997 / 16:34:57 / cg"
642f56fab795 ST80 compatible parse:class:
Claus Gittinger <cg@exept.de>
parents: 508
diff changeset
   307
! !
642f56fab795 ST80 compatible parse:class:
Claus Gittinger <cg@exept.de>
parents: 508
diff changeset
   308
1419
9cd1adac1785 category
Claus Gittinger <cg@exept.de>
parents: 1418
diff changeset
   309
!Parser class methodsFor:'Compatibility-Squeak'!
920
23f7bb1023cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 919
diff changeset
   310
23f7bb1023cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 919
diff changeset
   311
evaluate:someString for:aReceiver logged:logged
23f7bb1023cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 919
diff changeset
   312
    ^ self evaluate:someString receiver:aReceiver logged:logged
23f7bb1023cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 919
diff changeset
   313
        
23f7bb1023cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 919
diff changeset
   314
23f7bb1023cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 919
diff changeset
   315
23f7bb1023cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 919
diff changeset
   316
! !
23f7bb1023cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 919
diff changeset
   317
1062
119b394e10b5 parse bug: #(#Error)
Claus Gittinger <cg@exept.de>
parents: 1061
diff changeset
   318
!Parser class methodsFor:'Signal constants'!
119b394e10b5 parse bug: #(#Error)
Claus Gittinger <cg@exept.de>
parents: 1061
diff changeset
   319
119b394e10b5 parse bug: #(#Error)
Claus Gittinger <cg@exept.de>
parents: 1061
diff changeset
   320
parseErrorSignal
119b394e10b5 parse bug: #(#Error)
Claus Gittinger <cg@exept.de>
parents: 1061
diff changeset
   321
    ^ ParseErrorSignal
1398
eaef898b063e added undefinedVariableNotification
Claus Gittinger <cg@exept.de>
parents: 1394
diff changeset
   322
!
eaef898b063e added undefinedVariableNotification
Claus Gittinger <cg@exept.de>
parents: 1394
diff changeset
   323
1468
891259e2dbe4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1461
diff changeset
   324
restartCompilationSignal
891259e2dbe4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1461
diff changeset
   325
    ^ RestartCompilationSignal
891259e2dbe4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1461
diff changeset
   326
891259e2dbe4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1461
diff changeset
   327
    "Created: / 15.11.2001 / 22:57:05 / cg"
891259e2dbe4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1461
diff changeset
   328
!
891259e2dbe4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1461
diff changeset
   329
1398
eaef898b063e added undefinedVariableNotification
Claus Gittinger <cg@exept.de>
parents: 1394
diff changeset
   330
undefinedVariableNotification
eaef898b063e added undefinedVariableNotification
Claus Gittinger <cg@exept.de>
parents: 1394
diff changeset
   331
    ^ UndefinedVariableNotification
1062
119b394e10b5 parse bug: #(#Error)
Claus Gittinger <cg@exept.de>
parents: 1061
diff changeset
   332
! !
119b394e10b5 parse bug: #(#Error)
Claus Gittinger <cg@exept.de>
parents: 1061
diff changeset
   333
358
78b0d8954c49 removed possible conflict between #classVarNames here and in Class.
Claus Gittinger <cg@exept.de>
parents: 354
diff changeset
   334
!Parser class methodsFor:'changes'!
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   335
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   336
flushNameCache
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   337
    "unconditional flush name caches"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   338
694
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
   339
    [
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
   340
        PrevClass notNil ifTrue:[
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
   341
            PrevClass removeDependent:Parser
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
   342
        ].
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
   343
        PrevClass := nil.
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
   344
        PrevInstVarNames := nil.
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
   345
        PrevClassVarNames := nil.
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
   346
        PrevClassInstVarNames := nil.
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
   347
    ] valueUninterruptably
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   348
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   349
    "Parser flushNameCache"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   350
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   351
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   352
update:something with:someArgument from:changedObject
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   353
    "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
   354
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   355
    (changedObject == PrevClass) ifTrue:[
1090
7f49c607a315 catch change-notifications from Smalltalk (to flush PrevClass cache)
Claus Gittinger <cg@exept.de>
parents: 1089
diff changeset
   356
        something == #definition ifTrue:[
7f49c607a315 catch change-notifications from Smalltalk (to flush PrevClass cache)
Claus Gittinger <cg@exept.de>
parents: 1089
diff changeset
   357
            self flushNameCache
7f49c607a315 catch change-notifications from Smalltalk (to flush PrevClass cache)
Claus Gittinger <cg@exept.de>
parents: 1089
diff changeset
   358
        ]
7f49c607a315 catch change-notifications from Smalltalk (to flush PrevClass cache)
Claus Gittinger <cg@exept.de>
parents: 1089
diff changeset
   359
    ].
7f49c607a315 catch change-notifications from Smalltalk (to flush PrevClass cache)
Claus Gittinger <cg@exept.de>
parents: 1089
diff changeset
   360
    (changedObject == Smalltalk) ifTrue:[
7f49c607a315 catch change-notifications from Smalltalk (to flush PrevClass cache)
Claus Gittinger <cg@exept.de>
parents: 1089
diff changeset
   361
        something == #classDefinition ifTrue:[
7f49c607a315 catch change-notifications from Smalltalk (to flush PrevClass cache)
Claus Gittinger <cg@exept.de>
parents: 1089
diff changeset
   362
            self flushNameCache
7f49c607a315 catch change-notifications from Smalltalk (to flush PrevClass cache)
Claus Gittinger <cg@exept.de>
parents: 1089
diff changeset
   363
        ]
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   364
    ]
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   365
! !
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   366
717
627b2379d5ce moved signal to scanner
Claus Gittinger <cg@exept.de>
parents: 713
diff changeset
   367
!Parser class methodsFor:'class initialization'!
627b2379d5ce moved signal to scanner
Claus Gittinger <cg@exept.de>
parents: 713
diff changeset
   368
627b2379d5ce moved signal to scanner
Claus Gittinger <cg@exept.de>
parents: 713
diff changeset
   369
initialize
627b2379d5ce moved signal to scanner
Claus Gittinger <cg@exept.de>
parents: 713
diff changeset
   370
    LazyCompilation := false.      "/ usually set to true in your .rc file
752
dc6c757579b9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 748
diff changeset
   371
    ArraysAreImmutable := false.   "/ usually left false for ST-80 compatibility
1221
2768cbe3be2b finished remove unused vars;
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
   372
    StringsAreImmutable := false.  "/ usually left false for ST-80 compatibility
752
dc6c757579b9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 748
diff changeset
   373
717
627b2379d5ce moved signal to scanner
Claus Gittinger <cg@exept.de>
parents: 713
diff changeset
   374
    ImplicitSelfSends := false.
627b2379d5ce moved signal to scanner
Claus Gittinger <cg@exept.de>
parents: 713
diff changeset
   375
    WarnST80Directives := false.
1221
2768cbe3be2b finished remove unused vars;
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
   376
    WarnUnusedVars := true.
717
627b2379d5ce moved signal to scanner
Claus Gittinger <cg@exept.de>
parents: 713
diff changeset
   377
    FoldConstants := #level1.
627b2379d5ce moved signal to scanner
Claus Gittinger <cg@exept.de>
parents: 713
diff changeset
   378
    LineNumberInfo := false.
627b2379d5ce moved signal to scanner
Claus Gittinger <cg@exept.de>
parents: 713
diff changeset
   379
1062
119b394e10b5 parse bug: #(#Error)
Claus Gittinger <cg@exept.de>
parents: 1061
diff changeset
   380
    ParseErrorSignal isNil ifTrue:[
1380
7288e4623e2b parseError
Claus Gittinger <cg@exept.de>
parents: 1373
diff changeset
   381
        ParseErrorSignal := ParseError.
1062
119b394e10b5 parse bug: #(#Error)
Claus Gittinger <cg@exept.de>
parents: 1061
diff changeset
   382
        ParseErrorSignal notifierString:'parse error'.
1380
7288e4623e2b parseError
Claus Gittinger <cg@exept.de>
parents: 1373
diff changeset
   383
7288e4623e2b parseError
Claus Gittinger <cg@exept.de>
parents: 1373
diff changeset
   384
"/        ParseErrorSignal := Error newSignalMayProceed:true.
7288e4623e2b parseError
Claus Gittinger <cg@exept.de>
parents: 1373
diff changeset
   385
"/        ParseErrorSignal notifierString:'parse error'.
7288e4623e2b parseError
Claus Gittinger <cg@exept.de>
parents: 1373
diff changeset
   386
"/        ParseErrorSignal nameClass:self message:#parseErrorSignal.
1062
119b394e10b5 parse bug: #(#Error)
Claus Gittinger <cg@exept.de>
parents: 1061
diff changeset
   387
    ].
1221
2768cbe3be2b finished remove unused vars;
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
   388
    RestartCompilationSignal := Signal new.
2768cbe3be2b finished remove unused vars;
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
   389
1090
7f49c607a315 catch change-notifications from Smalltalk (to flush PrevClass cache)
Claus Gittinger <cg@exept.de>
parents: 1089
diff changeset
   390
    Smalltalk addDependent:self.
1062
119b394e10b5 parse bug: #(#Error)
Claus Gittinger <cg@exept.de>
parents: 1061
diff changeset
   391
717
627b2379d5ce moved signal to scanner
Claus Gittinger <cg@exept.de>
parents: 713
diff changeset
   392
    "
627b2379d5ce moved signal to scanner
Claus Gittinger <cg@exept.de>
parents: 713
diff changeset
   393
     self initialize
627b2379d5ce moved signal to scanner
Claus Gittinger <cg@exept.de>
parents: 713
diff changeset
   394
    "
627b2379d5ce moved signal to scanner
Claus Gittinger <cg@exept.de>
parents: 713
diff changeset
   395
1221
2768cbe3be2b finished remove unused vars;
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
   396
    "Modified: / 15.11.2001 / 22:54:09 / cg"
717
627b2379d5ce moved signal to scanner
Claus Gittinger <cg@exept.de>
parents: 713
diff changeset
   397
! !
627b2379d5ce moved signal to scanner
Claus Gittinger <cg@exept.de>
parents: 713
diff changeset
   398
358
78b0d8954c49 removed possible conflict between #classVarNames here and in Class.
Claus Gittinger <cg@exept.de>
parents: 354
diff changeset
   399
!Parser class methodsFor:'controlling compilation'!
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   400
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   401
arraysAreImmutable
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   402
    "return true if arrays are immutable literals"
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
    ^ ArraysAreImmutable
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   405
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   406
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   407
arraysAreImmutable:aBoolean
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   408
    "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
   409
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   410
    ArraysAreImmutable := aBoolean.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   411
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   412
    "
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   413
     can be added to your private.rc file:
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   414
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   415
     Compiler arraysAreImmutable:true     
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   416
     Compiler arraysAreImmutable:false      
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   417
    "
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   418
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   419
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   420
compileLazy
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   421
    "return true if compiling lazy"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   422
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   423
    ^ LazyCompilation.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   424
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   425
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   426
compileLazy:aBoolean
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   427
    "turn on/off lazy compilation - return previous setting.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   428
     Actually this flag belongs into the ByteCodeCompiler subclass,
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   429
     but it also controls the reporting of some errors here; therefore
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   430
     its located here"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   431
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   432
    |oldLazy|
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   433
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   434
    oldLazy := LazyCompilation.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   435
    LazyCompilation := aBoolean.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   436
    ^ oldLazy
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   437
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   438
    "
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   439
     Compiler compileLazy:false         
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   440
     Compiler compileLazy:true          
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   441
    "
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   442
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   443
210
b22f4472833b allow enable/disable of constantFolding
Claus Gittinger <cg@exept.de>
parents: 207
diff changeset
   444
foldConstants
212
ff39051e219f more constant folding options
Claus Gittinger <cg@exept.de>
parents: 210
diff changeset
   445
    "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
   446
b22f4472833b allow enable/disable of constantFolding
Claus Gittinger <cg@exept.de>
parents: 207
diff changeset
   447
    ^ FoldConstants
b22f4472833b allow enable/disable of constantFolding
Claus Gittinger <cg@exept.de>
parents: 207
diff changeset
   448
b22f4472833b allow enable/disable of constantFolding
Claus Gittinger <cg@exept.de>
parents: 207
diff changeset
   449
    "Created: 9.2.1996 / 17:40:13 / cg"
b22f4472833b allow enable/disable of constantFolding
Claus Gittinger <cg@exept.de>
parents: 207
diff changeset
   450
!
b22f4472833b allow enable/disable of constantFolding
Claus Gittinger <cg@exept.de>
parents: 207
diff changeset
   451
212
ff39051e219f more constant folding options
Claus Gittinger <cg@exept.de>
parents: 210
diff changeset
   452
foldConstants:aSymbol
ff39051e219f more constant folding options
Claus Gittinger <cg@exept.de>
parents: 210
diff changeset
   453
    "set the symbol describing how constants are to be folded.
ff39051e219f more constant folding options
Claus Gittinger <cg@exept.de>
parents: 210
diff changeset
   454
     It can be:
619
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
   455
	nil             - no constant folding
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
   456
	#level1         - numeric constants only
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
   457
	#level2         - level1 PLUS array conversions PLUS string concatenation
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
   458
	#full           - level2 PLUS constant points, constant rectangles (dangerous)"
212
ff39051e219f more constant folding options
Claus Gittinger <cg@exept.de>
parents: 210
diff changeset
   459
ff39051e219f more constant folding options
Claus Gittinger <cg@exept.de>
parents: 210
diff changeset
   460
    FoldConstants := aSymbol
210
b22f4472833b allow enable/disable of constantFolding
Claus Gittinger <cg@exept.de>
parents: 207
diff changeset
   461
b22f4472833b allow enable/disable of constantFolding
Claus Gittinger <cg@exept.de>
parents: 207
diff changeset
   462
    "Created: 9.2.1996 / 17:40:34 / cg"
b22f4472833b allow enable/disable of constantFolding
Claus Gittinger <cg@exept.de>
parents: 207
diff changeset
   463
!
b22f4472833b allow enable/disable of constantFolding
Claus Gittinger <cg@exept.de>
parents: 207
diff changeset
   464
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   465
implicitSelfSends
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   466
    "return true if undefined variables with
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   467
     lowercase first character are to be turned
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   468
     into implicit self sends"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   469
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   470
    ^ ImplicitSelfSends
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   471
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   472
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   473
implicitSelfSends:aBoolean
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   474
    "turn on/off implicit self sends"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   475
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   476
    ImplicitSelfSends := aBoolean
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   477
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   478
    "
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   479
     Compiler implicitSelfSends:true
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   480
     Compiler implicitSelfSends:false 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   481
    "
377
bee1c21ecc62 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 376
diff changeset
   482
!
bee1c21ecc62 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 376
diff changeset
   483
bee1c21ecc62 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 376
diff changeset
   484
lineNumberInfo
bee1c21ecc62 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 376
diff changeset
   485
    ^ LineNumberInfo
bee1c21ecc62 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 376
diff changeset
   486
!
bee1c21ecc62 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 376
diff changeset
   487
bee1c21ecc62 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 376
diff changeset
   488
lineNumberInfo:aBoolean
bee1c21ecc62 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 376
diff changeset
   489
    LineNumberInfo := aBoolean
752
dc6c757579b9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 748
diff changeset
   490
!
dc6c757579b9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 748
diff changeset
   491
dc6c757579b9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 748
diff changeset
   492
stringsAreImmutable
dc6c757579b9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 748
diff changeset
   493
    "return true if strings are immutable literals"
dc6c757579b9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 748
diff changeset
   494
dc6c757579b9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 748
diff changeset
   495
    ^ StringsAreImmutable
dc6c757579b9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 748
diff changeset
   496
dc6c757579b9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 748
diff changeset
   497
    "Created: / 3.8.1998 / 14:53:25 / cg"
dc6c757579b9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 748
diff changeset
   498
!
dc6c757579b9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 748
diff changeset
   499
dc6c757579b9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 748
diff changeset
   500
stringsAreImmutable:aBoolean
dc6c757579b9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 748
diff changeset
   501
    "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
   502
dc6c757579b9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 748
diff changeset
   503
    StringsAreImmutable := aBoolean.
dc6c757579b9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 748
diff changeset
   504
dc6c757579b9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 748
diff changeset
   505
    "
dc6c757579b9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 748
diff changeset
   506
     can be added to your private.rc file:
dc6c757579b9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 748
diff changeset
   507
dc6c757579b9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 748
diff changeset
   508
     Compiler stringsAreImmutable:true     
dc6c757579b9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 748
diff changeset
   509
     Compiler stringsAreImmutable:false      
dc6c757579b9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 748
diff changeset
   510
    "
dc6c757579b9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 748
diff changeset
   511
dc6c757579b9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 748
diff changeset
   512
    "Created: / 3.8.1998 / 14:53:28 / cg"
1160
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
   513
!
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
   514
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
   515
warnUnusedVars
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
   516
    "controls generation of warning messages about unued method variables"
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
   517
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
   518
    ^ WarnUnusedVars
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
   519
!
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
   520
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
   521
warnUnusedVars:aBoolean
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
   522
    "controls generation of warning messages about unued method variables"
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
   523
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
   524
    WarnUnusedVars := aBoolean
19
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
   525
! !
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
   526
481
187a88a9695d care for maxLineNo when looking for a block-by-lineNo
Claus Gittinger <cg@exept.de>
parents: 480
diff changeset
   527
!Parser class methodsFor:'defaults'!
187a88a9695d care for maxLineNo when looking for a block-by-lineNo
Claus Gittinger <cg@exept.de>
parents: 480
diff changeset
   528
1413
75e5b1b10079 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1412
diff changeset
   529
allowArrayIndexSyntaxExtension
75e5b1b10079 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1412
diff changeset
   530
    "experimental"
75e5b1b10079 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1412
diff changeset
   531
75e5b1b10079 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1412
diff changeset
   532
    ^ AllowArrayIndexSyntaxExtension ? false
75e5b1b10079 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1412
diff changeset
   533
!
75e5b1b10079 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1412
diff changeset
   534
75e5b1b10079 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1412
diff changeset
   535
allowArrayIndexSyntaxExtension:aBoolean
75e5b1b10079 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1412
diff changeset
   536
    "experimental"
75e5b1b10079 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1412
diff changeset
   537
75e5b1b10079 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1412
diff changeset
   538
    AllowArrayIndexSyntaxExtension := aBoolean.
75e5b1b10079 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1412
diff changeset
   539
75e5b1b10079 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1412
diff changeset
   540
    "
75e5b1b10079 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1412
diff changeset
   541
     self allowArrayIndexSyntaxExtension:true
75e5b1b10079 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1412
diff changeset
   542
     self allowArrayIndexSyntaxExtension:false
75e5b1b10079 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1412
diff changeset
   543
    "
75e5b1b10079 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1412
diff changeset
   544
!
75e5b1b10079 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1412
diff changeset
   545
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
   546
allowReservedWordsAsSelectors
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
   547
    "return true, if self, super, thisContext, nil, true and false are to be allowed
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
   548
     as unary message selectors."
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
   549
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
   550
    ^ AllowReservedWordsAsSelectors ? false
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
   551
!
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
   552
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
   553
allowReservedWordsAsSelectors:aBoolean
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
   554
    "enable/disable, if self, super, thisContext, nil, true and false are to be allowed
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
   555
     as unary message selectors."
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
   556
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
   557
    AllowReservedWordsAsSelectors := aBoolean.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
   558
    self setupActions
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
   559
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
   560
    "
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
   561
     self allowReservedWordsAsSelectors:true
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
   562
     self allowReservedWordsAsSelectors:false
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
   563
    "
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
   564
!
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
   565
481
187a88a9695d care for maxLineNo when looking for a block-by-lineNo
Claus Gittinger <cg@exept.de>
parents: 480
diff changeset
   566
maxLineNumber
187a88a9695d care for maxLineNo when looking for a block-by-lineNo
Claus Gittinger <cg@exept.de>
parents: 480
diff changeset
   567
    "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
   568
     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
   569
     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
   570
     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
   571
187a88a9695d care for maxLineNo when looking for a block-by-lineNo
Claus Gittinger <cg@exept.de>
parents: 480
diff changeset
   572
    ^ 255
187a88a9695d care for maxLineNo when looking for a block-by-lineNo
Claus Gittinger <cg@exept.de>
parents: 480
diff changeset
   573
187a88a9695d care for maxLineNo when looking for a block-by-lineNo
Claus Gittinger <cg@exept.de>
parents: 480
diff changeset
   574
    "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
   575
! !
187a88a9695d care for maxLineNo when looking for a block-by-lineNo
Claus Gittinger <cg@exept.de>
parents: 480
diff changeset
   576
1187
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   577
!Parser class methodsFor:'error correction'!
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   578
1199
3ffc14d393a7 best selector matching improved
Claus Gittinger <cg@exept.de>
parents: 1197
diff changeset
   579
findBest:nMax selectorsFor:aString in:aClassOrNil
1187
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   580
    "collect known selectors with their spelling distances to aString;
1199
3ffc14d393a7 best selector matching improved
Claus Gittinger <cg@exept.de>
parents: 1197
diff changeset
   581
     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
   582
     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
   583
     corrections from that hierarchy only)"
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   584
1286
b21dfcad59a6 Remove unused method var
Stefan Vogel <sv@exept.de>
parents: 1285
diff changeset
   585
    |info block lcSelector|
1187
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   586
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   587
    info := SortedCollection new.
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   588
    info sortBlock:[:a :b | a value > b value].
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   589
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   590
    lcSelector := aString asLowercase.
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   591
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   592
    block := [:sym :mthd|
1215
f2b18b227c78 speedup findBestSelector
Claus Gittinger <cg@exept.de>
parents: 1214
diff changeset
   593
        |dist lcSym keepThis|
1187
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   594
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   595
        lcSym := sym asLowercase.
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   596
        (info contains:[:i | i key == sym]) ifFalse:[
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   597
            dist := lcSelector spellAgainst:lcSym.
1199
3ffc14d393a7 best selector matching improved
Claus Gittinger <cg@exept.de>
parents: 1197
diff changeset
   598
3ffc14d393a7 best selector matching improved
Claus Gittinger <cg@exept.de>
parents: 1197
diff changeset
   599
            (lcSym startsWith:lcSelector) ifTrue:[
3ffc14d393a7 best selector matching improved
Claus Gittinger <cg@exept.de>
parents: 1197
diff changeset
   600
                dist := dist + (aString size * 10).
3ffc14d393a7 best selector matching improved
Claus Gittinger <cg@exept.de>
parents: 1197
diff changeset
   601
            ].
3ffc14d393a7 best selector matching improved
Claus Gittinger <cg@exept.de>
parents: 1197
diff changeset
   602
        
1215
f2b18b227c78 speedup findBestSelector
Claus Gittinger <cg@exept.de>
parents: 1214
diff changeset
   603
            (dist > 20) ifTrue:[
1199
3ffc14d393a7 best selector matching improved
Claus Gittinger <cg@exept.de>
parents: 1197
diff changeset
   604
                (info contains:[:entry | entry key = sym]) ifFalse:[
1215
f2b18b227c78 speedup findBestSelector
Claus Gittinger <cg@exept.de>
parents: 1214
diff changeset
   605
                    keepThis := true.
f2b18b227c78 speedup findBestSelector
Claus Gittinger <cg@exept.de>
parents: 1214
diff changeset
   606
                    info size >= nMax ifTrue:[
f2b18b227c78 speedup findBestSelector
Claus Gittinger <cg@exept.de>
parents: 1214
diff changeset
   607
                        "will remove last entry anyway - so check if this one will remain ..."
f2b18b227c78 speedup findBestSelector
Claus Gittinger <cg@exept.de>
parents: 1214
diff changeset
   608
                        dist < info last value ifTrue:[
f2b18b227c78 speedup findBestSelector
Claus Gittinger <cg@exept.de>
parents: 1214
diff changeset
   609
                            keepThis := false.
f2b18b227c78 speedup findBestSelector
Claus Gittinger <cg@exept.de>
parents: 1214
diff changeset
   610
                        ]
f2b18b227c78 speedup findBestSelector
Claus Gittinger <cg@exept.de>
parents: 1214
diff changeset
   611
                    ].
f2b18b227c78 speedup findBestSelector
Claus Gittinger <cg@exept.de>
parents: 1214
diff changeset
   612
                    keepThis ifTrue:[
f2b18b227c78 speedup findBestSelector
Claus Gittinger <cg@exept.de>
parents: 1214
diff changeset
   613
                        "expensive - therefore do this check at last"
f2b18b227c78 speedup findBestSelector
Claus Gittinger <cg@exept.de>
parents: 1214
diff changeset
   614
                        mthd isObsolete ifFalse:[
f2b18b227c78 speedup findBestSelector
Claus Gittinger <cg@exept.de>
parents: 1214
diff changeset
   615
                            info add:(sym -> dist).
f2b18b227c78 speedup findBestSelector
Claus Gittinger <cg@exept.de>
parents: 1214
diff changeset
   616
                            info size > nMax ifTrue:[
f2b18b227c78 speedup findBestSelector
Claus Gittinger <cg@exept.de>
parents: 1214
diff changeset
   617
                                info removeLast.
f2b18b227c78 speedup findBestSelector
Claus Gittinger <cg@exept.de>
parents: 1214
diff changeset
   618
                            ]
f2b18b227c78 speedup findBestSelector
Claus Gittinger <cg@exept.de>
parents: 1214
diff changeset
   619
                        ]
1199
3ffc14d393a7 best selector matching improved
Claus Gittinger <cg@exept.de>
parents: 1197
diff changeset
   620
                    ]
1187
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   621
                ]
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   622
            ]
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   623
        ]
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   624
    ].
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   625
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   626
    aClassOrNil isNil ifTrue:[
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   627
        Smalltalk allClassesDo:[:cls |
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   628
            cls methodDictionary keysAndValuesDo:block.
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   629
            cls class methodDictionary keysAndValuesDo:block.
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   630
        ]
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   631
    ] ifFalse:[
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   632
        aClassOrNil withAllSuperclassesDo:[:cls |
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   633
            cls methodDictionary keysAndValuesDo:block.
1323
34b29c93134b fixed correct for doits
Claus Gittinger <cg@exept.de>
parents: 1322
diff changeset
   634
            "/ cls class methodDictionary keysAndValuesDo:block.
1187
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   635
        ]
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   636
    ].
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   637
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   638
    ^ info asOrderedCollection collect:[:a | a key]
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   639
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   640
    "Modified: / 19.1.2000 / 16:43:37 / cg"
1199
3ffc14d393a7 best selector matching improved
Claus Gittinger <cg@exept.de>
parents: 1197
diff changeset
   641
!
3ffc14d393a7 best selector matching improved
Claus Gittinger <cg@exept.de>
parents: 1197
diff changeset
   642
3ffc14d393a7 best selector matching improved
Claus Gittinger <cg@exept.de>
parents: 1197
diff changeset
   643
findBestSelectorsFor:aString
3ffc14d393a7 best selector matching improved
Claus Gittinger <cg@exept.de>
parents: 1197
diff changeset
   644
    "collect known selectors with their spelling distances to aString;
3ffc14d393a7 best selector matching improved
Claus Gittinger <cg@exept.de>
parents: 1197
diff changeset
   645
     return the 10 best suggestions"
3ffc14d393a7 best selector matching improved
Claus Gittinger <cg@exept.de>
parents: 1197
diff changeset
   646
3ffc14d393a7 best selector matching improved
Claus Gittinger <cg@exept.de>
parents: 1197
diff changeset
   647
    ^ self findBestSelectorsFor:aString in:nil
3ffc14d393a7 best selector matching improved
Claus Gittinger <cg@exept.de>
parents: 1197
diff changeset
   648
3ffc14d393a7 best selector matching improved
Claus Gittinger <cg@exept.de>
parents: 1197
diff changeset
   649
    "
3ffc14d393a7 best selector matching improved
Claus Gittinger <cg@exept.de>
parents: 1197
diff changeset
   650
     Parser findBestSelectorsFor:'at'
3ffc14d393a7 best selector matching improved
Claus Gittinger <cg@exept.de>
parents: 1197
diff changeset
   651
     Parser findBestSelectorsFor:'at:pu'
3ffc14d393a7 best selector matching improved
Claus Gittinger <cg@exept.de>
parents: 1197
diff changeset
   652
    "
3ffc14d393a7 best selector matching improved
Claus Gittinger <cg@exept.de>
parents: 1197
diff changeset
   653
!
3ffc14d393a7 best selector matching improved
Claus Gittinger <cg@exept.de>
parents: 1197
diff changeset
   654
3ffc14d393a7 best selector matching improved
Claus Gittinger <cg@exept.de>
parents: 1197
diff changeset
   655
findBestSelectorsFor:aString in:aClassOrNil
3ffc14d393a7 best selector matching improved
Claus Gittinger <cg@exept.de>
parents: 1197
diff changeset
   656
    "collect known selectors with their spelling distances to aString;
1323
34b29c93134b fixed correct for doits
Claus Gittinger <cg@exept.de>
parents: 1322
diff changeset
   657
     return the 15 best suggestions. If the argument, aClassOrNil is not nil,
1199
3ffc14d393a7 best selector matching improved
Claus Gittinger <cg@exept.de>
parents: 1197
diff changeset
   658
     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
   659
     corrections from that hierarchy only)"
3ffc14d393a7 best selector matching improved
Claus Gittinger <cg@exept.de>
parents: 1197
diff changeset
   660
3ffc14d393a7 best selector matching improved
Claus Gittinger <cg@exept.de>
parents: 1197
diff changeset
   661
    ^ self
1323
34b29c93134b fixed correct for doits
Claus Gittinger <cg@exept.de>
parents: 1322
diff changeset
   662
        findBest:15 selectorsFor:aString in:aClassOrNil
1187
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   663
! !
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   664
358
78b0d8954c49 removed possible conflict between #classVarNames here and in Class.
Claus Gittinger <cg@exept.de>
parents: 354
diff changeset
   665
!Parser class methodsFor:'evaluating expressions'!
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
   666
19
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
   667
evaluate:aStringOrStream
71
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   668
    "return the result of evaluating an expression in aStringOrStream.
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   669
     No doit-entry is added to the changeLog."
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
   670
19
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
   671
    ^ self 
44
74ddc944c27f *** empty log message ***
claus
parents: 35
diff changeset
   672
	evaluate:aStringOrStream 
74ddc944c27f *** empty log message ***
claus
parents: 35
diff changeset
   673
	in:nil 
74ddc944c27f *** empty log message ***
claus
parents: 35
diff changeset
   674
	receiver:nil 
74ddc944c27f *** empty log message ***
claus
parents: 35
diff changeset
   675
	notifying:nil 
74ddc944c27f *** empty log message ***
claus
parents: 35
diff changeset
   676
	logged:false
74ddc944c27f *** empty log message ***
claus
parents: 35
diff changeset
   677
	ifFail:nil 
71
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   678
	compile:true
19
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
   679
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
   680
    "
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
   681
     Compiler evaluate:'1 + 2'
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
   682
     Compiler evaluate:'''hello world'' asSortedCollection displayString printNL'
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
   683
     Compiler evaluate:'''hello world'' asSortedCollection printNL'
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
   684
    "
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
   685
!
7ad01559b262 Initial revision
claus
parents:
diff changeset
   686
71
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   687
evaluate:aStringOrStream compile:compile
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   688
    "return the result of evaluating aString, 
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   689
     The compile argument specifies if the string should be compiled down to 
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   690
     bytecode or instead be interpreted from the parseTree.
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   691
     The first should be done for doIts etc, where a readable walkback is
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   692
     required.
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   693
     The latter is better done for constants, styleSheet and resource
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   694
     reading and simple sends, where the overhead of compilation is bigger
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   695
     than the interpretation overhead."
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   696
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   697
    ^ self 
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   698
	evaluate:aStringOrStream
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   699
	in:nil
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   700
	receiver:nil 
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   701
	notifying:nil 
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   702
	logged:false
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   703
	ifFail:nil
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   704
	compile:compile 
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   705
!
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   706
20
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
   707
evaluate:aStringOrStream ifFail:failBlock
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
   708
    "return the result of evaluating an expression in aStringOrStream.
71
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   709
     In case of any syntax errors, return the value of failBlock.
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   710
     No doit-entry is added to the changeLog."
20
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
   711
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
   712
    ^ self 
44
74ddc944c27f *** empty log message ***
claus
parents: 35
diff changeset
   713
	evaluate:aStringOrStream 
74ddc944c27f *** empty log message ***
claus
parents: 35
diff changeset
   714
	in:nil 
74ddc944c27f *** empty log message ***
claus
parents: 35
diff changeset
   715
	receiver:nil 
74ddc944c27f *** empty log message ***
claus
parents: 35
diff changeset
   716
	notifying:nil 
74ddc944c27f *** empty log message ***
claus
parents: 35
diff changeset
   717
	logged:false
74ddc944c27f *** empty log message ***
claus
parents: 35
diff changeset
   718
	ifFail:failBlock 
71
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   719
	compile:true
20
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
   720
    "
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
   721
     Compiler evaluate:'1 +' ifFail:['oops']   
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
   722
    "
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
   723
!
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
   724
71
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   725
evaluate:aStringOrStream in:aContext receiver:anObject notifying:requestor ifFail:failBlock
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   726
    "return the result of evaluating aStringOrStream, errors are reported to requestor. 
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   727
     Allow access to anObject as self and to its instVars (used in the inspector).
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   728
     No doIt entry is added to the change-file. 
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   729
     If the failBlock argument is non-nil, it is evaluated if an error occurs."
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   730
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   731
    ^ self 
640
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
   732
        evaluate:aStringOrStream
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
   733
        in:aContext
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
   734
        receiver:anObject
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
   735
        notifying:requestor
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
   736
        logged:false
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
   737
        ifFail:nil
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
   738
        compile:true
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
   739
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
   740
    "Modified: / 17.1.1998 / 02:54:07 / cg"
20
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
   741
!
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
   742
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
   743
evaluate:aStringOrStream in:aContext receiver:anObject notifying:requestor logged:logged ifFail:failBlock
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
   744
    "return the result of evaluating aStringOrStream, errors are reported to requestor. 
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
   745
     Allow access to anObject as self and to its instVars (used in the inspector).
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
   746
     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
   747
     is non-nil, it is evaluated if an error occurs."
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
   748
71
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   749
    ^ self 
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   750
	evaluate:aStringOrStream
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   751
	in:aContext
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   752
	receiver:anObject
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   753
	notifying:requestor
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   754
	logged:logged 
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   755
	ifFail:failBlock 
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   756
	compile:true
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   757
!
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   758
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   759
evaluate:aStringOrStream in:aContext receiver:anObject notifying:requestor logged:logged ifFail:failBlock compile:compile
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   760
    "return the result of evaluating aStringOrStream, errors are reported to requestor. 
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   761
     Allow access to anObject as self and to its instVars (used in the inspector).
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   762
     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
   763
     is non-nil, it is evaluated if an error occurs.
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   764
     Finally, compile specifies if the string should be compiled down to 
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   765
     bytecode or instead be interpreted from the parseTree.
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   766
     The first should be done for doIts etc, where a readable walkback is
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   767
     required.
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   768
     The latter is better done for constants, styleSheet and resource
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   769
     reading and simple sends, where the overhead of compilation is bigger
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   770
     than the interpretation overhead."
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   771
1363
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
   772
    ^ self new
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
   773
        evaluate:aStringOrStream in:aContext receiver:anObject notifying:requestor logged:logged ifFail:failBlock compile:compile
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   774
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   775
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   776
evaluate:aStringOrStream logged:logged
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   777
    "return the result of evaluating an expression in aStringOrStream.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   778
     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
   779
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   780
    ^ self 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   781
	evaluate:aStringOrStream 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   782
	in:nil 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   783
	receiver:nil 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   784
	notifying:nil 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   785
	logged:logged
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   786
	ifFail:nil 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   787
	compile:true
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   788
    "
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   789
     Compiler evaluate:'''some string''' logged:false   
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   790
     Compiler evaluate:'''some string''' logged:true   
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   791
    "
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   792
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   793
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   794
evaluate:aStringOrStream notifying:requestor
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   795
    "return the result of evaluating aString, 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   796
     errors are reported to requestor"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   797
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   798
    ^ self 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   799
	evaluate:aStringOrStream 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   800
	in:nil 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   801
	receiver:nil 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   802
	notifying:requestor
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   803
	logged:false
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   804
	ifFail:nil 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   805
	compile:true
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   806
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   807
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   808
evaluate:aStringOrStream notifying:requestor compile:compile
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   809
    "return the result of evaluating aString, 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   810
     errors are reported to requestor.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   811
     The compile argument specifies if the string should be compiled down to 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   812
     bytecode or instead be interpreted from the parseTree.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   813
     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
   814
     required.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   815
     The latter is better done for constants, styleSheet and resource
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   816
     reading and simple sends, where the overhead of compilation is bigger
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   817
     than the interpretation overhead."
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   818
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   819
    ^ self 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   820
	evaluate:aStringOrStream 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   821
	in:nil 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   822
	receiver:nil 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   823
	notifying:requestor
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   824
	logged:false
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   825
	ifFail:nil 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   826
	compile:compile
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   827
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   828
1025
5b3022ecb269 added #evaluate:notifying:logged: (for RB)
Claus Gittinger <cg@exept.de>
parents: 1022
diff changeset
   829
evaluate:aStringOrStream notifying:requestor logged:logged
5b3022ecb269 added #evaluate:notifying:logged: (for RB)
Claus Gittinger <cg@exept.de>
parents: 1022
diff changeset
   830
    "return the result of evaluating aString, 
5b3022ecb269 added #evaluate:notifying:logged: (for RB)
Claus Gittinger <cg@exept.de>
parents: 1022
diff changeset
   831
     errors are reported to requestor"
5b3022ecb269 added #evaluate:notifying:logged: (for RB)
Claus Gittinger <cg@exept.de>
parents: 1022
diff changeset
   832
5b3022ecb269 added #evaluate:notifying:logged: (for RB)
Claus Gittinger <cg@exept.de>
parents: 1022
diff changeset
   833
    ^ self 
5b3022ecb269 added #evaluate:notifying:logged: (for RB)
Claus Gittinger <cg@exept.de>
parents: 1022
diff changeset
   834
        evaluate:aStringOrStream 
5b3022ecb269 added #evaluate:notifying:logged: (for RB)
Claus Gittinger <cg@exept.de>
parents: 1022
diff changeset
   835
        in:nil 
5b3022ecb269 added #evaluate:notifying:logged: (for RB)
Claus Gittinger <cg@exept.de>
parents: 1022
diff changeset
   836
        receiver:nil 
5b3022ecb269 added #evaluate:notifying:logged: (for RB)
Claus Gittinger <cg@exept.de>
parents: 1022
diff changeset
   837
        notifying:requestor
5b3022ecb269 added #evaluate:notifying:logged: (for RB)
Claus Gittinger <cg@exept.de>
parents: 1022
diff changeset
   838
        logged:logged
5b3022ecb269 added #evaluate:notifying:logged: (for RB)
Claus Gittinger <cg@exept.de>
parents: 1022
diff changeset
   839
        ifFail:nil 
5b3022ecb269 added #evaluate:notifying:logged: (for RB)
Claus Gittinger <cg@exept.de>
parents: 1022
diff changeset
   840
        compile:true
5b3022ecb269 added #evaluate:notifying:logged: (for RB)
Claus Gittinger <cg@exept.de>
parents: 1022
diff changeset
   841
!
5b3022ecb269 added #evaluate:notifying:logged: (for RB)
Claus Gittinger <cg@exept.de>
parents: 1022
diff changeset
   842
572
6608880c73bc added #evaluate:receiver:
Claus Gittinger <cg@exept.de>
parents: 569
diff changeset
   843
evaluate:aStringOrStream receiver:anObject
6608880c73bc added #evaluate:receiver:
Claus Gittinger <cg@exept.de>
parents: 569
diff changeset
   844
    "return the result of evaluating aString, 
6608880c73bc added #evaluate:receiver:
Claus Gittinger <cg@exept.de>
parents: 569
diff changeset
   845
     errors are reported to requestor. Allow access to
6608880c73bc added #evaluate:receiver:
Claus Gittinger <cg@exept.de>
parents: 569
diff changeset
   846
     anObject as self and to its instVars "
6608880c73bc added #evaluate:receiver:
Claus Gittinger <cg@exept.de>
parents: 569
diff changeset
   847
6608880c73bc added #evaluate:receiver:
Claus Gittinger <cg@exept.de>
parents: 569
diff changeset
   848
    ^ self 
619
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
   849
	evaluate:aStringOrStream
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
   850
	in:nil
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
   851
	receiver:anObject
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
   852
	notifying:nil
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
   853
	logged:false
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
   854
	ifFail:nil
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
   855
	compile:true
572
6608880c73bc added #evaluate:receiver:
Claus Gittinger <cg@exept.de>
parents: 569
diff changeset
   856
6608880c73bc added #evaluate:receiver:
Claus Gittinger <cg@exept.de>
parents: 569
diff changeset
   857
    "
6608880c73bc added #evaluate:receiver:
Claus Gittinger <cg@exept.de>
parents: 569
diff changeset
   858
     Compiler evaluate:'self x' receiver:(1 @ 2)
6608880c73bc added #evaluate:receiver:
Claus Gittinger <cg@exept.de>
parents: 569
diff changeset
   859
    "
6608880c73bc added #evaluate:receiver:
Claus Gittinger <cg@exept.de>
parents: 569
diff changeset
   860
6608880c73bc added #evaluate:receiver:
Claus Gittinger <cg@exept.de>
parents: 569
diff changeset
   861
    "Created: 1.7.1997 / 19:02:24 / cg"
6608880c73bc added #evaluate:receiver:
Claus Gittinger <cg@exept.de>
parents: 569
diff changeset
   862
    "Modified: 1.7.1997 / 19:02:33 / cg"
6608880c73bc added #evaluate:receiver:
Claus Gittinger <cg@exept.de>
parents: 569
diff changeset
   863
!
6608880c73bc added #evaluate:receiver:
Claus Gittinger <cg@exept.de>
parents: 569
diff changeset
   864
919
212f477f8d7f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   865
evaluate:aStringOrStream receiver:someOne logged:logged
212f477f8d7f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   866
    "return the result of evaluating an expression in aStringOrStream.
212f477f8d7f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   867
     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
   868
212f477f8d7f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   869
    ^ self 
212f477f8d7f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   870
        evaluate:aStringOrStream 
212f477f8d7f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   871
        in:nil 
212f477f8d7f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   872
        receiver:someOne 
212f477f8d7f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   873
        notifying:nil 
212f477f8d7f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   874
        logged:logged
212f477f8d7f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   875
        ifFail:nil 
212f477f8d7f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   876
        compile:true
212f477f8d7f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   877
    "
212f477f8d7f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   878
     Compiler evaluate:'''some string''' logged:false   
212f477f8d7f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   879
     Compiler evaluate:'''some string''' logged:true   
212f477f8d7f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   880
     Compiler evaluate:'self class' receiver:nil logged:false
212f477f8d7f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   881
     Compiler evaluate:'self class' receiver:1 logged:false 
212f477f8d7f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   882
    "
212f477f8d7f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   883
!
212f477f8d7f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   884
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   885
evaluate:aStringOrStream receiver:anObject notifying:requestor
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   886
    "return the result of evaluating aString, 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   887
     errors are reported to requestor. Allow access to
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   888
     anObject as self and to its instVars (used in the inspector)"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   889
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   890
    ^ self 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   891
	evaluate:aStringOrStream
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   892
	in:nil
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   893
	receiver:anObject
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   894
	notifying:requestor
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   895
	logged:false
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   896
	ifFail:nil
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   897
	compile:true
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   898
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   899
    "
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   900
     Compiler evaluate:'self x' receiver:(1 @ 2) notifying:nil 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   901
    "
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   902
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   903
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   904
evaluate:aStringOrStream receiver:anObject notifying:requestor compile:compile
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   905
    "return the result of evaluating aString, 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   906
     errors are reported to requestor. Allow access to
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   907
     anObject as self and to its instVars (used in the inspector).
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   908
     The compile argument specifies if the string should be compiled down to 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   909
     bytecode or instead be interpreted from the parseTree.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   910
     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
   911
     required.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   912
     The latter is better done for constants, styleSheet and resource
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   913
     reading and simple sends, where the overhead of compilation is bigger
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   914
     than the interpretation overhead."
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   915
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   916
    ^ self 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   917
	evaluate:aStringOrStream
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   918
	in:nil
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   919
	receiver:anObject
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   920
	notifying:requestor
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   921
	logged:false
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   922
	ifFail:nil
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   923
	compile:compile 
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
   924
! !
7ad01559b262 Initial revision
claus
parents:
diff changeset
   925
640
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
   926
!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
   927
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
   928
argAndVarNamesForContext:aContext
1446
ac887ee4881a ** changed access to blockContexts source, args and vars -- please watch out
penk
parents: 1445
diff changeset
   929
    self obsoleteMethodWarning.
ac887ee4881a ** changed access to blockContexts source, args and vars -- please watch out
penk
parents: 1445
diff changeset
   930
    ^ aContext argAndVarNames.
640
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
   931
! !
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
   932
358
78b0d8954c49 removed possible conflict between #classVarNames here and in Class.
Claus Gittinger <cg@exept.de>
parents: 354
diff changeset
   933
!Parser class methodsFor:'parsing'!
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   934
480
e4ac7e62ca9a better block-var name detection in debugger
Claus Gittinger <cg@exept.de>
parents: 473
diff changeset
   935
blockAtLine:line in:aMethod orSource:aString numArgs:nA numVars:nV
391
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
   936
    "given a lineNr in some method, 
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
   937
     return the containing BlockNode or nil.
480
e4ac7e62ca9a better block-var name detection in debugger
Claus Gittinger <cg@exept.de>
parents: 473
diff changeset
   938
     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
   939
     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
   940
     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
   941
     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
   942
     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
   943
429
ffc4e2ab5581 cleanup
Claus Gittinger <cg@exept.de>
parents: 427
diff changeset
   944
    |compiler tree mSource who mClass blocks 
397
118267bf78e5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 391
diff changeset
   945
     maxSoFar innerBlock m|
118267bf78e5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 391
diff changeset
   946
481
187a88a9695d care for maxLineNo when looking for a block-by-lineNo
Claus Gittinger <cg@exept.de>
parents: 480
diff changeset
   947
    (line isNil or:[line == self maxLineNumber]) ifTrue:[
815
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
   948
        ^ nil
457
ad25339043ef care for nil-lineNumber when looking for a block
Claus Gittinger <cg@exept.de>
parents: 455
diff changeset
   949
    ].
ad25339043ef care for nil-lineNumber when looking for a block
Claus Gittinger <cg@exept.de>
parents: 455
diff changeset
   950
480
e4ac7e62ca9a better block-var name detection in debugger
Claus Gittinger <cg@exept.de>
parents: 473
diff changeset
   951
    aMethod notNil ifTrue:[
815
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
   952
        m := aMethod.
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
   953
        who := m who.
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
   954
        who isNil ifTrue:[
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
   955
            m isWrapped ifTrue:[
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
   956
                m := m wrapper.
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
   957
                m notNil ifTrue:[
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
   958
                    who := m who.
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
   959
                ]
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
   960
            ]
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
   961
        ].
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
   962
        who notNil ifTrue:[
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
   963
            mClass := who methodClass.
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
   964
            mClass isNil ifTrue:[ ^ nil].
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
   965
        ].
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
   966
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
   967
        mSource := m source.
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
   968
        mSource isNil ifTrue:[^ nil].
480
e4ac7e62ca9a better block-var name detection in debugger
Claus Gittinger <cg@exept.de>
parents: 473
diff changeset
   969
    ] ifFalse:[
815
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
   970
        aString notNil ifTrue:[
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
   971
            mSource := aString.
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
   972
            mClass := UndefinedObject
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
   973
        ] ifFalse:[
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
   974
            ^ nil
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
   975
        ]
397
118267bf78e5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 391
diff changeset
   976
    ].
118267bf78e5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 391
diff changeset
   977
391
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
   978
    "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
   979
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
   980
    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
   981
    compiler parseForCode.
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
   982
    compiler notifying:nil.
1365
19b74038d133 ignoreErrors / ignoreWarnings are not getters.
penk
parents: 1364
diff changeset
   983
    compiler ignoreWarnings:true.
19b74038d133 ignoreErrors / ignoreWarnings are not getters.
penk
parents: 1364
diff changeset
   984
    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
   985
    compiler lineNumberInfo:#full.
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
   986
1515
8ffe6db5e53f suppress notifications while searching for blockAtLine.
Claus Gittinger <cg@exept.de>
parents: 1514
diff changeset
   987
    Notification 
8ffe6db5e53f suppress notifications while searching for blockAtLine.
Claus Gittinger <cg@exept.de>
parents: 1514
diff changeset
   988
        handle:
8ffe6db5e53f suppress notifications while searching for blockAtLine.
Claus Gittinger <cg@exept.de>
parents: 1514
diff changeset
   989
            [:ex |
8ffe6db5e53f suppress notifications while searching for blockAtLine.
Claus Gittinger <cg@exept.de>
parents: 1514
diff changeset
   990
                ex proceed
8ffe6db5e53f suppress notifications while searching for blockAtLine.
Claus Gittinger <cg@exept.de>
parents: 1514
diff changeset
   991
            ]
8ffe6db5e53f suppress notifications while searching for blockAtLine.
Claus Gittinger <cg@exept.de>
parents: 1514
diff changeset
   992
        do:[
1514
cf0c183c5ad9 description
Claus Gittinger <cg@exept.de>
parents: 1512
diff changeset
   993
            aMethod notNil ifTrue:[
cf0c183c5ad9 description
Claus Gittinger <cg@exept.de>
parents: 1512
diff changeset
   994
                (compiler parseMethodSpec == #Error) ifTrue:[
cf0c183c5ad9 description
Claus Gittinger <cg@exept.de>
parents: 1512
diff changeset
   995
                    ^ nil.
cf0c183c5ad9 description
Claus Gittinger <cg@exept.de>
parents: 1512
diff changeset
   996
                ].
cf0c183c5ad9 description
Claus Gittinger <cg@exept.de>
parents: 1512
diff changeset
   997
cf0c183c5ad9 description
Claus Gittinger <cg@exept.de>
parents: 1512
diff changeset
   998
                who notNil ifTrue:[
cf0c183c5ad9 description
Claus Gittinger <cg@exept.de>
parents: 1512
diff changeset
   999
                    compiler selector ~~ (who methodSelector) ifTrue:[
cf0c183c5ad9 description
Claus Gittinger <cg@exept.de>
parents: 1512
diff changeset
  1000
                        ^ nil
cf0c183c5ad9 description
Claus Gittinger <cg@exept.de>
parents: 1512
diff changeset
  1001
                    ]
cf0c183c5ad9 description
Claus Gittinger <cg@exept.de>
parents: 1512
diff changeset
  1002
                ].
cf0c183c5ad9 description
Claus Gittinger <cg@exept.de>
parents: 1512
diff changeset
  1003
            ] ifFalse:[
cf0c183c5ad9 description
Claus Gittinger <cg@exept.de>
parents: 1512
diff changeset
  1004
                compiler nextToken.
cf0c183c5ad9 description
Claus Gittinger <cg@exept.de>
parents: 1512
diff changeset
  1005
            ].
cf0c183c5ad9 description
Claus Gittinger <cg@exept.de>
parents: 1512
diff changeset
  1006
cf0c183c5ad9 description
Claus Gittinger <cg@exept.de>
parents: 1512
diff changeset
  1007
            tree := compiler parseMethodBody.
1515
8ffe6db5e53f suppress notifications while searching for blockAtLine.
Claus Gittinger <cg@exept.de>
parents: 1514
diff changeset
  1008
        ].
391
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
  1009
815
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
  1010
    (compiler errorFlag 
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
  1011
    or:[tree == #Error
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
  1012
    or:[tree isNil]]) ifTrue:[
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
  1013
        ^ nil
391
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
  1014
    ].
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
  1015
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
  1016
    blocks := OrderedCollection new.
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
  1017
    tree collectBlocksInto:blocks.
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
  1018
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
  1019
    blocks := blocks select:[:aBlock |
815
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
  1020
                                line between: aBlock lineNumber and:aBlock endLineNumber
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
  1021
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
  1022
                            ].
391
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
  1023
    blocks size == 1 ifTrue:[
815
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
  1024
        ^ 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
  1025
    ].
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
  1026
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
  1027
    nA notNil ifTrue:[
815
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
  1028
        blocks := blocks select:[:aBlock |
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
  1029
                                aBlock numArgs == nA
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
  1030
                                ].
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
  1031
        blocks size == 1 ifTrue:[
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
  1032
            ^ blocks at:1
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
  1033
        ].
391
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
  1034
    ].
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
  1035
    nV notNil ifTrue:[
815
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
  1036
        blocks := blocks select:[:aBlock |
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
  1037
                                aBlock numVars == nV
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
  1038
                                ].
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
  1039
        blocks size == 1 ifTrue:[
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
  1040
            ^ blocks at:1
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
  1041
        ].
391
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
  1042
    ].
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
  1043
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
  1044
    "/ 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
  1045
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
  1046
    maxSoFar := 0.
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
  1047
    blocks do:[:aBlock |
815
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
  1048
        aBlock lineNumber > maxSoFar ifTrue:[
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
  1049
            innerBlock := aBlock.
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
  1050
            maxSoFar := aBlock lineNumber
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
  1051
        ]
391
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
  1052
    ].
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
  1053
    ^ innerBlock.
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
  1054
480
e4ac7e62ca9a better block-var name detection in debugger
Claus Gittinger <cg@exept.de>
parents: 473
diff changeset
  1055
    "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
  1056
    "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
  1057
!
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
  1058
1365
19b74038d133 ignoreErrors / ignoreWarnings are not getters.
penk
parents: 1364
diff changeset
  1059
checkMethod:aString in:aClass ignoreErrors:ignoreErrors ignoreWarnings:ignoreWarnings
629
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  1060
    "parse a method in a given class.
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  1061
     Return a parser (if ok), nil (empty) or #Error (syntax).
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  1062
     The parser can be queried for selector, receiver, args, locals,
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  1063
     used selectors, modified instvars, referenced classvars etc.
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  1064
     The noErrors and noWarnings arguments specify if error and warning 
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  1065
     messages should be sent to the Transcript or suppressed."
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  1066
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  1067
    |parser tree|
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  1068
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  1069
    aString isNil ifTrue:[^ nil].
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  1070
    parser := self for:(ReadStream on:aString) in:aClass.
1365
19b74038d133 ignoreErrors / ignoreWarnings are not getters.
penk
parents: 1364
diff changeset
  1071
    parser ignoreErrors:ignoreErrors.
19b74038d133 ignoreErrors / ignoreWarnings are not getters.
penk
parents: 1364
diff changeset
  1072
    parser ignoreWarnings:ignoreWarnings.
629
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  1073
    tree := parser parseMethod.
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  1074
    (parser errorFlag or:[tree == #Error]) ifTrue:[^ nil].
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  1075
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  1076
    ReadBeforeWrittenTester searchForReadBeforeWrittenIn:tree
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  1077
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  1078
    "
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  1079
     self
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  1080
        checkMethod:'foo
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  1081
                        |local1 local2 local3|
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  1082
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  1083
                        local1 := local2.
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  1084
                        ^ local3
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  1085
                    '
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  1086
        in:UndefinedObject 
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  1087
        ignoreErrors:true 
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  1088
        ignoreWarnings:true 
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  1089
    "
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  1090
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  1091
    "Modified: / 30.10.1997 / 16:38:31 / cg"
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  1092
!
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  1093
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1094
parseExpression:aString
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1095
    "parse aString as an expression; 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1096
     Return the parseTree (if ok), nil (for an empty string 
258
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1097
     or comment only) or #Error (syntactic error).
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1098
     Error and warning messages are suppressed."
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1099
548
79948fed91a7 added entry to parse an expression in a specific nameSpace
Claus Gittinger <cg@exept.de>
parents: 547
diff changeset
  1100
    ^ self 
1096
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1101
        withSelf:nil 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1102
        parseExpression:aString 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1103
        onError:#Error
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1104
        notifying:nil 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1105
        ignoreErrors:true       "silence on Transcript"
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1106
        ignoreWarnings:true
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1107
        inNameSpace:nil
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1108
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1109
    "
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1110
     Parser parseExpression:'self foo'
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1111
     Parser parseExpression:'self:123'
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1112
     Parser parseExpression:'self:123' onError:nil
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1113
    "
548
79948fed91a7 added entry to parse an expression in a specific nameSpace
Claus Gittinger <cg@exept.de>
parents: 547
diff changeset
  1114
!
79948fed91a7 added entry to parse an expression in a specific nameSpace
Claus Gittinger <cg@exept.de>
parents: 547
diff changeset
  1115
79948fed91a7 added entry to parse an expression in a specific nameSpace
Claus Gittinger <cg@exept.de>
parents: 547
diff changeset
  1116
parseExpression:aString inNameSpace:aNameSpaceOrNil
79948fed91a7 added entry to parse an expression in a specific nameSpace
Claus Gittinger <cg@exept.de>
parents: 547
diff changeset
  1117
    "parse aString as an expression; 
79948fed91a7 added entry to parse an expression in a specific nameSpace
Claus Gittinger <cg@exept.de>
parents: 547
diff changeset
  1118
     Return the parseTree (if ok), nil (for an empty string 
79948fed91a7 added entry to parse an expression in a specific nameSpace
Claus Gittinger <cg@exept.de>
parents: 547
diff changeset
  1119
     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
  1120
     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
  1121
79948fed91a7 added entry to parse an expression in a specific nameSpace
Claus Gittinger <cg@exept.de>
parents: 547
diff changeset
  1122
    ^ self 
1096
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1123
        withSelf:nil 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1124
        parseExpression:aString 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1125
        onError:#Error
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1126
        notifying:nil 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1127
        ignoreErrors:true       "silence on Transcript"
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1128
        ignoreWarnings:true
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1129
        inNameSpace:aNameSpaceOrNil
548
79948fed91a7 added entry to parse an expression in a specific nameSpace
Claus Gittinger <cg@exept.de>
parents: 547
diff changeset
  1130
79948fed91a7 added entry to parse an expression in a specific nameSpace
Claus Gittinger <cg@exept.de>
parents: 547
diff changeset
  1131
    "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
  1132
    "Created: 24.6.1997 / 16:44:26 / cg"
141
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
1096
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1135
parseExpression:aString inNameSpace:aNameSpaceOrNil onError:errorValue
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1136
    "parse aString as an expression; 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1137
     Return the parseTree (if ok), nil (for an empty string 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1138
     or comment only) or errorValue (syntactic error).
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1139
     Error and warning messages are suppressed."
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1140
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1141
    ^ self 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1142
        withSelf:nil 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1143
        parseExpression:aString 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1144
        onError:errorValue
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1145
        notifying:nil 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1146
        ignoreErrors:true       "silence on Transcript"
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1147
        ignoreWarnings:true
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1148
        inNameSpace:aNameSpaceOrNil
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1149
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1150
    "Modified: 24.6.1997 / 16:44:00 / cg"
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1151
    "Created: 24.6.1997 / 16:44:26 / cg"
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1152
!
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1153
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1154
parseExpression:aString onError:errorValue
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1155
    "parse aString as an expression; 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1156
     Return the parseTree (if ok), nil (for an empty string 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1157
     or comment only) or errorValue (syntactic error).
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1158
     Error and warning messages are suppressed."
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1159
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1160
    ^ self 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1161
        withSelf:nil 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1162
        parseExpression:aString 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1163
        onError:errorValue
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1164
        notifying:nil 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1165
        ignoreErrors:true       "silence on Transcript"
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1166
        ignoreWarnings:true
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1167
        inNameSpace:nil
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1168
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1169
    "Modified: 24.6.1997 / 16:44:00 / cg"
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1170
!
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1171
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1172
parseMethod:aString
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1173
    "parse a method.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1174
     Return a parser (if ok), nil (empty) or #Error (syntax).
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1175
     The parser can be queried for selector, receiver, args, locals,
258
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1176
     used selectors etc.
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1177
     Error and warning messages are sent to the Transcript."
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1178
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1179
    ^ self parseMethod:aString in:nil
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1180
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1181
    "
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1182
     |p|
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1183
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1184
     p := Parser 
619
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  1185
	     parseMethod:'
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  1186
		 foo:arg1 bar:arg2 baz:arg3 
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  1187
		     |l1 l2| 
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  1188
		     l1 := 0. 
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  1189
		     l2 := arg1. 
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  1190
		     ^ self'.
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1191
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1192
     'nArgs:  ' print. p numberOfMethodArgs printNL.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1193
     'args:   ' print. p methodArgs printNL.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1194
     'sel:    ' print. p selector printNL.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1195
     'nLocal: ' print. p numberOfMethodVars printNL.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1196
     'locals: ' print. p methodVars printNL.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1197
     'tree:   ' printNL. p tree printAllOn:Stdout. Stdout cr.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1198
    "
258
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1199
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1200
    "Modified: 24.4.1996 / 13:18:02 / cg"
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1201
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1202
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1203
parseMethod:aString in:aClass
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1204
    "parse a method in a given class.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1205
     Return a parser (if ok), nil (empty) or #Error (syntax).
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1206
     The parser can be queried for selector, receiver, args, locals,
258
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1207
     used selectors, modified instvars, referenced classvars etc.
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1208
     Error and warning messages are sent to the Transcript."
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1209
257
435dcaed969f dont parse body (when interrested in args & locals only)
Claus Gittinger <cg@exept.de>
parents: 255
diff changeset
  1210
    ^ self 
619
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  1211
	parseMethod:aString 
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  1212
	in:aClass 
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  1213
	ignoreErrors:false 
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  1214
	ignoreWarnings:false
257
435dcaed969f dont parse body (when interrested in args & locals only)
Claus Gittinger <cg@exept.de>
parents: 255
diff changeset
  1215
258
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1216
    "Modified: 24.4.1996 / 13:18:34 / cg"
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1217
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1218
1365
19b74038d133 ignoreErrors / ignoreWarnings are not getters.
penk
parents: 1364
diff changeset
  1219
parseMethod:aString in:aClass ignoreErrors:ignoreErrors ignoreWarnings:ignoreWarnings
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1220
    "parse a method in a given class.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1221
     Return a parser (if ok), nil (empty) or #Error (syntax).
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1222
     The parser can be queried for selector, receiver, args, locals,
258
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1223
     used selectors, modified instvars, referenced classvars etc.
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1224
     The noErrors and noWarnings arguments specify if error and warning 
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1225
     messages should be sent to the Transcript or suppressed."
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1226
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1227
    |parser tree|
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1228
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1229
    aString isNil ifTrue:[^ nil].
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1230
    parser := self for:(ReadStream on:aString) in:aClass.
1365
19b74038d133 ignoreErrors / ignoreWarnings are not getters.
penk
parents: 1364
diff changeset
  1231
    parser ignoreErrors:ignoreErrors.
19b74038d133 ignoreErrors / ignoreWarnings are not getters.
penk
parents: 1364
diff changeset
  1232
    parser ignoreWarnings:ignoreWarnings.
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1233
    tree := parser parseMethod.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1234
    (parser errorFlag or:[tree == #Error]) ifTrue:[^ nil].
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1235
    ^ parser
258
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1236
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1237
    "Modified: 24.4.1996 / 13:19:23 / cg"
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1238
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1239
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1240
parseMethod:aString in:aClass warnings:warnBoolean
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1241
    "parse a method in a given class.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1242
     Return a parser (if ok), nil (empty) or #Error (syntax).
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1243
     The parser can be queried for selector, receiver, args, locals,
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1244
     used selectors, modified instvars, referenced classvars etc.
258
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1245
     The warnBoolean arguments specifies if warning 
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1246
     messages should be sent to the Transcript or suppressed.
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1247
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1248
     This method is OBSOLETE, and left in for backward compatibility."
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1249
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1250
    self obsoleteMethodWarning.
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1251
    ^ self
619
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  1252
	parseMethod:aString 
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  1253
	in:aClass 
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  1254
	ignoreErrors:false 
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  1255
	ignoreWarnings:warnBoolean not
258
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1256
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1257
    "Modified: 24.4.1996 / 13:28:05 / cg"
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1258
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1259
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1260
parseMethodArgAndVarSpecification:aString
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1261
    "parse a methods selector, arg and var spec (i.e. locals);
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1262
     Return a parser (if ok), nil (empty) or #Error (syntax).
258
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1263
     The parser can be queried for selector, receiver etc.
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1264
     Error and warning messages are sent to the Transcript.
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1265
     This method is OBSOLETE."
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1266
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1267
    self obsoleteMethodWarning.
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1268
    ^ self parseMethodArgAndVarSpecification:aString in:nil
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1269
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1270
    "
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1271
     |p|
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1272
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1273
     p := Parser 
619
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  1274
	     parseMethodArgAndVarSpecification:'
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  1275
		      foo:arg1 bar:arg2 baz:arg3 
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  1276
		      |l1 l2|'.
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1277
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1278
     'nArgs:  ' print. p numberOfMethodArgs printNL.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1279
     'args:   ' print. p methodArgs printNL.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1280
     'sel:    ' print. p selector printNL.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1281
     'nLocal: ' print. p numberOfMethodVars printNL.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1282
     'locals: ' print. p methodVars printNL.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1283
    "
258
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1284
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1285
    "Modified: 24.4.1996 / 13:29:43 / cg"
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1286
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1287
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1288
parseMethodArgAndVarSpecification:aString in:aClass
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1289
    "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
  1290
     Return a parser (if ok), nil (empty) or #Error (syntax).
258
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1291
     The parser can be queried for selector, receiver, args and locals.
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1292
     Error and warning messages are sent to the Transcript.
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1293
     This method is OBSOLETE."
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1294
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1295
    self obsoleteMethodWarning.
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1296
    ^ self parseMethodArgAndVarSpecification:aString 
619
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  1297
	   in:aClass 
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  1298
	   ignoreErrors:false
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  1299
	   ignoreWarnings:false 
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  1300
	   parseBody:false
257
435dcaed969f dont parse body (when interrested in args & locals only)
Claus Gittinger <cg@exept.de>
parents: 255
diff changeset
  1301
258
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1302
    "Modified: 24.4.1996 / 13:30:03 / cg"
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1303
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1304
1365
19b74038d133 ignoreErrors / ignoreWarnings are not getters.
penk
parents: 1364
diff changeset
  1305
parseMethodArgAndVarSpecification:aString in:aClass ignoreErrors:ignoreErrors ignoreWarnings:ignoreWarnings parseBody:body
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1306
    "parse a methods selector, arg and var spec in a given class;
257
435dcaed969f dont parse body (when interrested in args & locals only)
Claus Gittinger <cg@exept.de>
parents: 255
diff changeset
  1307
     If parseBody is true, also parse the statements 
435dcaed969f dont parse body (when interrested in args & locals only)
Claus Gittinger <cg@exept.de>
parents: 255
diff changeset
  1308
     (for primitives & resourceSpecs).
258
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1309
     The noErrors and noWarnings arguments specify if error and warning 
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1310
     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
  1311
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1312
     Return a parser (if ok), nil (empty) or #Error (syntax).
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1313
     The parser can be queried for selector, receiver, args and locals"
19
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  1314
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  1315
    |parser|
7ad01559b262 Initial revision
claus
parents:
diff changeset
  1316
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1317
    aString isNil ifTrue:[^ nil].
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1318
    parser := self for:(ReadStream on:aString) in:aClass.
1365
19b74038d133 ignoreErrors / ignoreWarnings are not getters.
penk
parents: 1364
diff changeset
  1319
    parser ignoreErrors:ignoreErrors.
19b74038d133 ignoreErrors / ignoreWarnings are not getters.
penk
parents: 1364
diff changeset
  1320
    parser ignoreWarnings:ignoreWarnings.
255
13a059f6569d no need to send nextToken when parsing a method
Claus Gittinger <cg@exept.de>
parents: 229
diff changeset
  1321
"/    parser nextToken.
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1322
    (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
  1323
    "/
435dcaed969f dont parse body (when interrested in args & locals only)
Claus Gittinger <cg@exept.de>
parents: 255
diff changeset
  1324
    "/ used to be #parseMethodBodyVarSpec
435dcaed969f dont parse body (when interrested in args & locals only)
Claus Gittinger <cg@exept.de>
parents: 255
diff changeset
  1325
    "/ - 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
  1326
    "/
435dcaed969f dont parse body (when interrested in args & locals only)
Claus Gittinger <cg@exept.de>
parents: 255
diff changeset
  1327
    body ifTrue:[
878
f9c8d2544909 added declare-as (local, global or workspace-war)
Claus Gittinger <cg@exept.de>
parents: 877
diff changeset
  1328
        parser parseMethodBodyOrEmpty
257
435dcaed969f dont parse body (when interrested in args & locals only)
Claus Gittinger <cg@exept.de>
parents: 255
diff changeset
  1329
    ] ifFalse:[
878
f9c8d2544909 added declare-as (local, global or workspace-war)
Claus Gittinger <cg@exept.de>
parents: 877
diff changeset
  1330
        parser parseMethodBodyVarSpec
257
435dcaed969f dont parse body (when interrested in args & locals only)
Claus Gittinger <cg@exept.de>
parents: 255
diff changeset
  1331
    ].
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1332
    parser errorFlag ifTrue:[^ nil].
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  1333
    ^ parser
255
13a059f6569d no need to send nextToken when parsing a method
Claus Gittinger <cg@exept.de>
parents: 229
diff changeset
  1334
257
435dcaed969f dont parse body (when interrested in args & locals only)
Claus Gittinger <cg@exept.de>
parents: 255
diff changeset
  1335
    "Created: 24.4.1996 / 13:13:06 / cg"
265
a8617dc49bbf examples
Claus Gittinger <cg@exept.de>
parents: 263
diff changeset
  1336
    "Modified: 27.4.1996 / 16:58:02 / cg"
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1337
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1338
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1339
parseMethodArgAndVarSpecificationSilent:aString
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1340
    "parse a methods selector, arg and var spec (i.e. locals);
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1341
     Return a parser (if ok), nil (empty) or #Error (syntax).
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1342
     The parser can be queried for selector, receiver etc.
258
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1343
     Like #parseMethodArgAndVarSpecification:, but does NOT
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1344
     display error/warning messages on the transcript."
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1345
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1346
    ^ self parseMethodArgAndVarSpecificationSilent:aString in:nil
258
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1347
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1348
    "Modified: 24.4.1996 / 13:30:54 / cg"
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1349
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1350
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1351
parseMethodArgAndVarSpecificationSilent:aString in:aClass
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1352
    "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
  1353
     Return a parser (if ok), nil (empty) or #Error (syntax).
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1354
     The parser can be queried for selector, receiver, args and locals.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1355
     Like #parseMethodArgAndVarSpecification:in:, but does not
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1356
     display error/warning messages on the transcript."
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1357
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1358
    ^ self parseMethodArgAndVarSpecification:aString 
619
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  1359
	   in:aClass 
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  1360
	   ignoreErrors:true 
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  1361
	   ignoreWarnings:true 
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  1362
	   parseBody:false
257
435dcaed969f dont parse body (when interrested in args & locals only)
Claus Gittinger <cg@exept.de>
parents: 255
diff changeset
  1363
435dcaed969f dont parse body (when interrested in args & locals only)
Claus Gittinger <cg@exept.de>
parents: 255
diff changeset
  1364
    "Modified: 24.4.1996 / 13:14:27 / cg"
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1365
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1366
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1367
parseMethodSilent:aString
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1368
    "parse a method.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1369
     Return a parser (if ok), nil (empty) or #Error (syntax).
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1370
     The parser can be queried for selector, receiver, args, locals,
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1371
     used selectors etc.
258
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1372
     Like #parseMethod:, but warning/error messages are suppressed."
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1373
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1374
    ^ self parseMethodSilent:aString in:nil
258
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1375
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1376
    "Modified: 24.4.1996 / 13:32:44 / cg"
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1377
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1378
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1379
parseMethodSilent:aString in:aClass
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1380
    "parse a method in a given class.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1381
     Return a parser (if ok), nil (empty) or #Error (syntax).
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1382
     The parser can be queried for selector, receiver, args, locals,
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1383
     used selectors, modified instvars, referenced classvars etc.
258
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1384
     Like #parseMethod:in:, but warning/error messages are suppressed."
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1385
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1386
    ^ self 
619
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  1387
	parseMethod:aString 
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  1388
	in:aClass 
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  1389
	ignoreErrors:true 
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  1390
	ignoreWarnings:true
258
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1391
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1392
    "Modified: 24.4.1996 / 13:32:57 / cg"
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1393
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1394
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1395
parseMethodSpecification:aString
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1396
    "parse a methods selector & arg specification; 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1397
     Return a parser (if ok), nil (empty) or #Error (syntax).
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1398
     The parser can be queried for selector, receiver etc."
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1399
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1400
    ^ self parseMethodSpecification:aString in:nil
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1401
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1402
    "
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1403
     |p|
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1404
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1405
     p := Parser parseMethodSpecification:'foo:arg1 bar:arg2 baz:arg3'.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1406
     'nArgs: ' print. p numberOfMethodArgs printNL.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1407
     'args:  ' print. p methodArgs printNL.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1408
     'sel:   ' print. p selector printNL
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1409
    "
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1410
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1411
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1412
parseMethodSpecification:aString in:aClass
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1413
    "parse a methods selector & arg spec for a given class;
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1414
     Return a parser (if ok), nil (empty) or #Error (syntax).
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1415
     The parser can be queried for selector, receiver etc."
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1416
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1417
    ^ self parseMethodSpecification:aString 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1418
	   in:aClass 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1419
	   ignoreErrors:false
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1420
	   ignoreWarnings:false 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1421
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1422
1365
19b74038d133 ignoreErrors / ignoreWarnings are not getters.
penk
parents: 1364
diff changeset
  1423
parseMethodSpecification:aString in:aClass ignoreErrors:ignoreErrors ignoreWarnings:ignoreWarnings 
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1424
    "parse a methods selector & arg spec for a given class;
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1425
     Return a parser (if ok), nil (empty) or #Error (syntax).
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1426
     The parser can be queried for selector, receiver etc.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1427
     noErrors and noWarnings specify if error- and warningMessages are
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1428
     to be output onto the Transcript."
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1429
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1430
    |parser tree|
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1431
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1432
    aString isNil ifTrue:[^ nil].
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1433
    parser := self for:(ReadStream on:aString) in:aClass.
1365
19b74038d133 ignoreErrors / ignoreWarnings are not getters.
penk
parents: 1364
diff changeset
  1434
    parser ignoreErrors:ignoreErrors.
19b74038d133 ignoreErrors / ignoreWarnings are not getters.
penk
parents: 1364
diff changeset
  1435
    parser ignoreWarnings:ignoreWarnings.
255
13a059f6569d no need to send nextToken when parsing a method
Claus Gittinger <cg@exept.de>
parents: 229
diff changeset
  1436
"/    parser nextToken.
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1437
    tree := parser parseMethodSpec.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1438
    (parser errorFlag or:[tree == #Error]) ifTrue:[^ #Error].
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1439
    ^ parser
255
13a059f6569d no need to send nextToken when parsing a method
Claus Gittinger <cg@exept.de>
parents: 229
diff changeset
  1440
13a059f6569d no need to send nextToken when parsing a method
Claus Gittinger <cg@exept.de>
parents: 229
diff changeset
  1441
    "Modified: 20.4.1996 / 20:09:48 / 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
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1444
parseMethodSpecificationSilent:aString
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1445
    "parse a methods selector & arg specification; 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1446
     Return a parser (if ok), nil (empty) or #Error (syntax).
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1447
     The parser can be queried for selector, receiver etc.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1448
     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
  1449
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1450
    ^ self parseMethodSpecificationSilent:aString in:nil
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1451
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1452
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1453
parseMethodSpecificationSilent:aString in:aClass
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1454
    "parse a methods selector & arg spec for a given class;
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1455
     Return a parser (if ok), nil (empty) or #Error (syntax).
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1456
     The parser can be queried for selector, receiver etc.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1457
     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
  1458
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1459
    ^ self parseMethodSpecification:aString 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1460
	   in:aClass 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1461
	   ignoreErrors:true 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1462
	   ignoreWarnings:true
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1463
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1464
    "Created: 31.10.1995 / 14:37:49 / cg"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1465
!
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  1466
7
6c2bc76f0b8f *** empty log message ***
claus
parents: 4
diff changeset
  1467
selectorInExpression:aString
47
f861ad42703e *** empty log message ***
claus
parents: 45
diff changeset
  1468
    "parse an expression - return the selector. Even malformed expressions
f861ad42703e *** empty log message ***
claus
parents: 45
diff changeset
  1469
     (such as missing receiver or missing arg are parsed.
f861ad42703e *** empty log message ***
claus
parents: 45
diff changeset
  1470
     Used for the SystemBrowsers implementors/senders query-box initial text.
21
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  1471
     Returns nil if unparsable."
7
6c2bc76f0b8f *** empty log message ***
claus
parents: 4
diff changeset
  1472
1297
67332caafef7 catch errors when extracting a message selector
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
  1473
    |tree parser sel|
7
6c2bc76f0b8f *** empty log message ***
claus
parents: 4
diff changeset
  1474
813
4d3ec8ff238c (isNil or:[isEmpty ]) -> (size == 0)
Claus Gittinger <cg@exept.de>
parents: 807
diff changeset
  1475
    (aString size == 0) ifTrue:[^ nil].
7
6c2bc76f0b8f *** empty log message ***
claus
parents: 4
diff changeset
  1476
1297
67332caafef7 catch errors when extracting a message selector
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
  1477
    Error 
67332caafef7 catch errors when extracting a message selector
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
  1478
        handle:[:ex | ]
67332caafef7 catch errors when extracting a message selector
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
  1479
        do:[
67332caafef7 catch errors when extracting a message selector
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
  1480
            tree := self withSelf:nil 
67332caafef7 catch errors when extracting a message selector
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
  1481
                         parseExpression:aString 
67332caafef7 catch errors when extracting a message selector
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
  1482
                         notifying:nil 
67332caafef7 catch errors when extracting a message selector
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
  1483
                         ignoreErrors:true 
67332caafef7 catch errors when extracting a message selector
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
  1484
                         ignoreWarnings:true. 
67332caafef7 catch errors when extracting a message selector
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
  1485
        ].
21
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  1486
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  1487
    "
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  1488
     special: take the expression of the right side, if its an
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  1489
     assignment or return
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  1490
    "
7
6c2bc76f0b8f *** empty log message ***
claus
parents: 4
diff changeset
  1491
    (tree notNil and:[tree ~~ #Error]) ifTrue:[
813
4d3ec8ff238c (isNil or:[isEmpty ]) -> (size == 0)
Claus Gittinger <cg@exept.de>
parents: 807
diff changeset
  1492
        (tree isAssignment 
4d3ec8ff238c (isNil or:[isEmpty ]) -> (size == 0)
Claus Gittinger <cg@exept.de>
parents: 807
diff changeset
  1493
        or:[tree isReturnNode]) ifTrue:[
4d3ec8ff238c (isNil or:[isEmpty ]) -> (size == 0)
Claus Gittinger <cg@exept.de>
parents: 807
diff changeset
  1494
            tree expression isMessage ifTrue:[
4d3ec8ff238c (isNil or:[isEmpty ]) -> (size == 0)
Claus Gittinger <cg@exept.de>
parents: 807
diff changeset
  1495
                tree := tree expression
4d3ec8ff238c (isNil or:[isEmpty ]) -> (size == 0)
Claus Gittinger <cg@exept.de>
parents: 807
diff changeset
  1496
            ]
4d3ec8ff238c (isNil or:[isEmpty ]) -> (size == 0)
Claus Gittinger <cg@exept.de>
parents: 807
diff changeset
  1497
        ].
4d3ec8ff238c (isNil or:[isEmpty ]) -> (size == 0)
Claus Gittinger <cg@exept.de>
parents: 807
diff changeset
  1498
4d3ec8ff238c (isNil or:[isEmpty ]) -> (size == 0)
Claus Gittinger <cg@exept.de>
parents: 807
diff changeset
  1499
        tree isMessage ifTrue:[
4d3ec8ff238c (isNil or:[isEmpty ]) -> (size == 0)
Claus Gittinger <cg@exept.de>
parents: 807
diff changeset
  1500
            ^ tree selector
4d3ec8ff238c (isNil or:[isEmpty ]) -> (size == 0)
Claus Gittinger <cg@exept.de>
parents: 807
diff changeset
  1501
        ].
7
6c2bc76f0b8f *** empty log message ***
claus
parents: 4
diff changeset
  1502
    ].
6c2bc76f0b8f *** empty log message ***
claus
parents: 4
diff changeset
  1503
21
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  1504
    "
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  1505
     mhmh, try expression without receiver
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  1506
    "
7
6c2bc76f0b8f *** empty log message ***
claus
parents: 4
diff changeset
  1507
    parser := self for:(ReadStream on:aString).
1365
19b74038d133 ignoreErrors / ignoreWarnings are not getters.
penk
parents: 1364
diff changeset
  1508
    parser ignoreErrors:true.
1297
67332caafef7 catch errors when extracting a message selector
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
  1509
    Error 
67332caafef7 catch errors when extracting a message selector
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
  1510
        handle:[:ex | ]
67332caafef7 catch errors when extracting a message selector
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
  1511
        do:[
1482
d80c83f1167a catch twoByte string parsing in selectorInExpression
Claus Gittinger <cg@exept.de>
parents: 1471
diff changeset
  1512
            parser nextToken.
1297
67332caafef7 catch errors when extracting a message selector
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
  1513
            sel := parser degeneratedKeywordExpressionForSelector
67332caafef7 catch errors when extracting a message selector
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
  1514
        ].
67332caafef7 catch errors when extracting a message selector
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
  1515
    ^ sel
7
6c2bc76f0b8f *** empty log message ***
claus
parents: 4
diff changeset
  1516
6c2bc76f0b8f *** empty log message ***
claus
parents: 4
diff changeset
  1517
"
20
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1518
    Parser selectorInExpression:'foo at:1 put:(5 * bar)'     
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1519
    Parser selectorInExpression:'(foo at:1) at:1'           
47
f861ad42703e *** empty log message ***
claus
parents: 45
diff changeset
  1520
    Parser selectorInExpression:'a + 4'                     
f861ad42703e *** empty log message ***
claus
parents: 45
diff changeset
  1521
    Parser selectorInExpression:'a negated'                 
20
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1522
    Parser selectorInExpression:'at:1 put:5'            
47
f861ad42703e *** empty log message ***
claus
parents: 45
diff changeset
  1523
    Parser selectorInExpression:'at:1 put:'            
f861ad42703e *** empty log message ***
claus
parents: 45
diff changeset
  1524
    Parser selectorInExpression:'a at:1 put:5'            
f861ad42703e *** empty log message ***
claus
parents: 45
diff changeset
  1525
    Parser selectorInExpression:'a at:1 put:'            
20
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1526
    Parser selectorInExpression:'a := foo at:1 put:5'    
7
6c2bc76f0b8f *** empty log message ***
claus
parents: 4
diff changeset
  1527
"
451
9e116ffc172c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 450
diff changeset
  1528
9e116ffc172c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 450
diff changeset
  1529
    "Modified: 17.12.1996 / 12:12:47 / cg"
7
6c2bc76f0b8f *** empty log message ***
claus
parents: 4
diff changeset
  1530
!
6c2bc76f0b8f *** empty log message ***
claus
parents: 4
diff changeset
  1531
6c2bc76f0b8f *** empty log message ***
claus
parents: 4
diff changeset
  1532
withSelf:anObject parseExpression:aString notifying:someOne 
6c2bc76f0b8f *** empty log message ***
claus
parents: 4
diff changeset
  1533
    "parse aString as an expression with self set to anObject;
21
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  1534
     Return the parseTree (if ok), nil (for an empty string 
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  1535
     or comment only ) or #Error (syntactic error).
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  1536
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  1537
     Errors and warnings are forwarded to someOne (usually some
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  1538
     codeView) which can highlight it and show a popup box."
7
6c2bc76f0b8f *** empty log message ***
claus
parents: 4
diff changeset
  1539
548
79948fed91a7 added entry to parse an expression in a specific nameSpace
Claus Gittinger <cg@exept.de>
parents: 547
diff changeset
  1540
    ^ self 
1096
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1541
        withSelf:anObject 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1542
        parseExpression:aString 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1543
        onError:#Error
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1544
        notifying:someOne 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1545
        ignoreErrors:false 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1546
        ignoreWarnings:false 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1547
        inNameSpace:nil
548
79948fed91a7 added entry to parse an expression in a specific nameSpace
Claus Gittinger <cg@exept.de>
parents: 547
diff changeset
  1548
79948fed91a7 added entry to parse an expression in a specific nameSpace
Claus Gittinger <cg@exept.de>
parents: 547
diff changeset
  1549
    "Modified: 24.6.1997 / 16:43:37 / cg"
7
6c2bc76f0b8f *** empty log message ***
claus
parents: 4
diff changeset
  1550
!
6c2bc76f0b8f *** empty log message ***
claus
parents: 4
diff changeset
  1551
6c2bc76f0b8f *** empty log message ***
claus
parents: 4
diff changeset
  1552
withSelf:anObject parseExpression:aString notifying:someOne ignoreErrors:ignore
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  1553
    "parse aString as an expression with self set to anObject;
21
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  1554
     Return the parseTree (if ok), nil (for an empty string 
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  1555
     or comment only ) or #Error (syntactic error).
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  1556
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  1557
     Errors and warnings are forwarded to someOne (usually some
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  1558
     codeView) which can highlight it and show a popup box."
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  1559
548
79948fed91a7 added entry to parse an expression in a specific nameSpace
Claus Gittinger <cg@exept.de>
parents: 547
diff changeset
  1560
    ^ self 
1096
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1561
        withSelf:anObject
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1562
        parseExpression:aString 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1563
        onError:#Error
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1564
        notifying:someOne 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1565
        ignoreErrors:ignore 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1566
        ignoreWarnings:ignore 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1567
        inNameSpace:nil
548
79948fed91a7 added entry to parse an expression in a specific nameSpace
Claus Gittinger <cg@exept.de>
parents: 547
diff changeset
  1568
79948fed91a7 added entry to parse an expression in a specific nameSpace
Claus Gittinger <cg@exept.de>
parents: 547
diff changeset
  1569
    "Modified: 24.6.1997 / 16:43:26 / cg"
21
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  1570
!
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  1571
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  1572
withSelf:anObject parseExpression:aString notifying:someOne ignoreErrors:ignoreErrors ignoreWarnings:ignoreWarnings
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  1573
    "parse aString as an expression with self set to anObject;
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  1574
     Return the parseTree (if ok), nil (for an empty string 
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  1575
     or comment only ) or #Error (syntactic error).
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  1576
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  1577
     Errors and warnings are forwarded to someOne (usually some
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  1578
     codeView) which can highlight it and show a popup box,
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  1579
     iff ignoreErrors/ignoreWarnings is true respectively."
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  1580
548
79948fed91a7 added entry to parse an expression in a specific nameSpace
Claus Gittinger <cg@exept.de>
parents: 547
diff changeset
  1581
    ^ self
1096
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1582
        withSelf:anObject 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1583
        parseExpression:aString
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1584
        onError:#Error
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1585
        notifying:someOne 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1586
        ignoreErrors:ignoreErrors 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1587
        ignoreWarnings:ignoreWarnings 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1588
        inNameSpace:nil
548
79948fed91a7 added entry to parse an expression in a specific nameSpace
Claus Gittinger <cg@exept.de>
parents: 547
diff changeset
  1589
79948fed91a7 added entry to parse an expression in a specific nameSpace
Claus Gittinger <cg@exept.de>
parents: 547
diff changeset
  1590
    "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
  1591
!
79948fed91a7 added entry to parse an expression in a specific nameSpace
Claus Gittinger <cg@exept.de>
parents: 547
diff changeset
  1592
79948fed91a7 added entry to parse an expression in a specific nameSpace
Claus Gittinger <cg@exept.de>
parents: 547
diff changeset
  1593
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
  1594
    "parse aString as an expression with self set to anObject;
79948fed91a7 added entry to parse an expression in a specific nameSpace
Claus Gittinger <cg@exept.de>
parents: 547
diff changeset
  1595
     Return the parseTree (if ok), nil (for an empty string 
79948fed91a7 added entry to parse an expression in a specific nameSpace
Claus Gittinger <cg@exept.de>
parents: 547
diff changeset
  1596
     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
  1597
79948fed91a7 added entry to parse an expression in a specific nameSpace
Claus Gittinger <cg@exept.de>
parents: 547
diff changeset
  1598
     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
  1599
     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
  1600
     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
  1601
1096
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1602
    ^ self
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1603
        withSelf:anObject 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1604
        parseExpression:aString 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1605
        onError:#Error 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1606
        notifying:someOne 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1607
        ignoreErrors:ignoreErrors 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1608
        ignoreWarnings:ignoreWarnings 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1609
        inNameSpace:aNameSpaceOrNil
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1610
!
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1611
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1612
withSelf:anObject parseExpression:aString onError:errorValue notifying:someOne ignoreErrors:ignoreErrors ignoreWarnings:ignoreWarnings inNameSpace:aNameSpaceOrNil
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1613
    "parse aString as an expression with self set to anObject;
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1614
     Return the parseTree (if ok), nil (for an empty string 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1615
     or comment only ) or errorValue (syntactic error).
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1616
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1617
     Errors and warnings are forwarded to someOne (usually some
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1618
     codeView) which can highlight it and show a popup box,
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1619
     iff ignoreErrors/ignoreWarnings is true respectively."
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1620
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1621
    |parser tree|
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  1622
7ad01559b262 Initial revision
claus
parents:
diff changeset
  1623
    aString isNil ifTrue:[^ nil].
548
79948fed91a7 added entry to parse an expression in a specific nameSpace
Claus Gittinger <cg@exept.de>
parents: 547
diff changeset
  1624
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  1625
    parser := self for:(ReadStream on:aString).
1096
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1626
    tree := parser 
1006
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  1627
        parseExpressionWithSelf:anObject 
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  1628
        notifying:someOne 
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  1629
        ignoreErrors:ignoreErrors 
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  1630
        ignoreWarnings:ignoreWarnings 
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  1631
        inNameSpace:aNameSpaceOrNil.
1096
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1632
    tree == #Error ifTrue:[
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1633
        ^ errorValue value
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1634
    ].
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1635
    ^ tree
1006
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  1636
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  1637
    "Modified: / 14.12.1999 / 15:12:16 / cg"
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  1638
! !
7ad01559b262 Initial revision
claus
parents:
diff changeset
  1639
358
78b0d8954c49 removed possible conflict between #classVarNames here and in Class.
Claus Gittinger <cg@exept.de>
parents: 354
diff changeset
  1640
!Parser class methodsFor:'unparsing'!
20
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1641
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1642
methodSpecificationForSelector:aSelector
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1643
    "given a selector such as #foo:bar:, return a string that could
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1644
     serve as a methods specification source code.
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1645
     To be used for code generators"
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1646
807
8434698556de *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 806
diff changeset
  1647
    |argNames n|
8434698556de *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 806
diff changeset
  1648
8434698556de *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 806
diff changeset
  1649
    n := aSelector numArgs.
8434698556de *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 806
diff changeset
  1650
    n == 1 ifTrue:[
8434698556de *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 806
diff changeset
  1651
        argNames := #('arg')
8434698556de *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 806
diff changeset
  1652
    ] ifFalse:[
8434698556de *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 806
diff changeset
  1653
        n <= 15 ifTrue:[
8434698556de *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 806
diff changeset
  1654
            argNames := #('arg1' 'arg2' 'arg3' 'arg4' 'arg5' 'arg6'
8434698556de *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 806
diff changeset
  1655
                          'arg7' 'arg8' 'arg9' 'arg10' 'arg11' 'arg12'
8434698556de *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 806
diff changeset
  1656
                          'arg13' 'arg14' 'arg15')
8434698556de *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 806
diff changeset
  1657
        ] ifFalse:[
8434698556de *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 806
diff changeset
  1658
            argNames := (1 to:aSelector numArgs) collect:[:i | 'arg' , i printString].
8434698556de *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 806
diff changeset
  1659
        ].
8434698556de *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 806
diff changeset
  1660
    ].
8434698556de *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 806
diff changeset
  1661
    ^ self methodSpecificationForSelector:aSelector argNames:argNames
8434698556de *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 806
diff changeset
  1662
20
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1663
    "
807
8434698556de *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 806
diff changeset
  1664
     Parser methodSpecificationForSelector:#foo:   
20
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1665
     Parser methodSpecificationForSelector:#foo:bar:   
807
8434698556de *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 806
diff changeset
  1666
     Parser methodSpecificationForSelector:#foo:bar:baz:   
21
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  1667
     Parser methodSpecificationForSelector:#+       
20
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1668
     Parser methodSpecificationForSelector:#negated   
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1669
    "
807
8434698556de *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 806
diff changeset
  1670
8434698556de *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 806
diff changeset
  1671
    "Modified: / 12.2.1999 / 13:12:44 / cg"
20
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1672
!
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1673
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1674
methodSpecificationForSelector:aSelector argNames:argNames
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1675
    "given a selector such as #foo:bar:, return a string that could
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1676
     serve as a methods specification source code.
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1677
     To be used for code generators"
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1678
806
bbfd3018e32e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 805
diff changeset
  1679
    |s nargs parts part|
20
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1680
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1681
    s := WriteStream on:String new.
44
74ddc944c27f *** empty log message ***
claus
parents: 35
diff changeset
  1682
    nargs := aSelector numArgs.
20
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1683
    nargs == 0 ifTrue:[
806
bbfd3018e32e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 805
diff changeset
  1684
        s nextPutAll:aSelector
20
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1685
    ] ifFalse:[
806
bbfd3018e32e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 805
diff changeset
  1686
        parts := aSelector partsIfSelector.
bbfd3018e32e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 805
diff changeset
  1687
        1 to:nargs do:[:i |
bbfd3018e32e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 805
diff changeset
  1688
            part := parts at:i.
bbfd3018e32e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 805
diff changeset
  1689
            s nextPutAll:part.
bbfd3018e32e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 805
diff changeset
  1690
            (part endsWith:$:) ifFalse:[
bbfd3018e32e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 805
diff changeset
  1691
                s space.
bbfd3018e32e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 805
diff changeset
  1692
            ].
bbfd3018e32e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 805
diff changeset
  1693
            s nextPutAll:(argNames at:i).
bbfd3018e32e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 805
diff changeset
  1694
            i ~~ nargs ifTrue:[s space].
bbfd3018e32e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 805
diff changeset
  1695
        ]
20
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1696
    ].
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1697
    ^ s contents
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1698
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1699
    "
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1700
     Parser methodSpecificationForSelector:#foo:bar: argNames:#('one' 'two' 'three')  
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1701
     Parser methodSpecificationForSelector:#+ argNames:#('one')  
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1702
     Parser methodSpecificationForSelector:#negated   
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1703
    "
806
bbfd3018e32e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 805
diff changeset
  1704
bbfd3018e32e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 805
diff changeset
  1705
    "Modified: / 12.2.1999 / 12:33:50 / cg"
20
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1706
! !
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1707
1417
7e97dd2df5ca method category rename
Claus Gittinger <cg@exept.de>
parents: 1413
diff changeset
  1708
!Parser methodsFor:'Compatibility-ST80'!
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  1709
918
e088f51a649e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 915
diff changeset
  1710
evaluate:aString in:aClassOrContext to:to notifying:aRequestor ifFail:failBlock
35
2884eed75e2a logging doits.
claus
parents: 23
diff changeset
  1711
    |parseTree value|
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  1712
7ad01559b262 Initial revision
claus
parents:
diff changeset
  1713
    aString isNil ifTrue:[^ nil].
7ad01559b262 Initial revision
claus
parents:
diff changeset
  1714
    self initializeFor:(ReadStream on:aString).
918
e088f51a649e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 915
diff changeset
  1715
e088f51a649e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 915
diff changeset
  1716
    "/ stupid - there seem to be differences among the various
e088f51a649e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 915
diff changeset
  1717
    "/ ST dialects ...
e088f51a649e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 915
diff changeset
  1718
    aClassOrContext isBehavior ifTrue:[
e088f51a649e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 915
diff changeset
  1719
        self setClassToCompileFor:aClassOrContext.
e088f51a649e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 915
diff changeset
  1720
        selfValue := nil.
e088f51a649e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 915
diff changeset
  1721
    ] ifFalse:[
e088f51a649e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 915
diff changeset
  1722
        self setContext:aClassOrContext.
e088f51a649e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 915
diff changeset
  1723
        aClassOrContext notNil ifTrue:[
e088f51a649e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 915
diff changeset
  1724
            self setSelf:(aClassOrContext receiver)
e088f51a649e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 915
diff changeset
  1725
        ].
e088f51a649e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 915
diff changeset
  1726
    ].
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  1727
    requestor := aRequestor.
7ad01559b262 Initial revision
claus
parents:
diff changeset
  1728
7ad01559b262 Initial revision
claus
parents:
diff changeset
  1729
    self nextToken.
7ad01559b262 Initial revision
claus
parents:
diff changeset
  1730
    parseTree := self parseMethodBody.
7ad01559b262 Initial revision
claus
parents:
diff changeset
  1731
    (errorFlag or:[tree == #Error]) ifTrue:[^ #Error].
7ad01559b262 Initial revision
claus
parents:
diff changeset
  1732
    parseTree notNil ifTrue:[
918
e088f51a649e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 915
diff changeset
  1733
        self evalExitBlock:[:value | ^ failBlock value].
e088f51a649e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 915
diff changeset
  1734
        value := parseTree evaluate
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  1735
    ].
35
2884eed75e2a logging doits.
claus
parents: 23
diff changeset
  1736
    self release.
2884eed75e2a logging doits.
claus
parents: 23
diff changeset
  1737
    ^ value
547
5a51414daf36 added #parseSelector for ST80 compatibility
Claus Gittinger <cg@exept.de>
parents: 541
diff changeset
  1738
!
5a51414daf36 added #parseSelector for ST80 compatibility
Claus Gittinger <cg@exept.de>
parents: 541
diff changeset
  1739
624
e71abe9654e6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 619
diff changeset
  1740
parse:methodSource in:aClass notifying:aRequestor
e71abe9654e6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 619
diff changeset
  1741
    "parse a methods source.
e71abe9654e6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 619
diff changeset
  1742
     Return the methods parseTree"
e71abe9654e6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 619
diff changeset
  1743
e71abe9654e6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 619
diff changeset
  1744
    self initializeFor:methodSource.
e71abe9654e6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 619
diff changeset
  1745
    classToCompileFor := aClass.
e71abe9654e6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 619
diff changeset
  1746
    requestor := aRequestor.
e71abe9654e6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 619
diff changeset
  1747
    self parseMethod.
918
e088f51a649e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 915
diff changeset
  1748
624
e71abe9654e6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 619
diff changeset
  1749
    ^ MethodNode new
e71abe9654e6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 619
diff changeset
  1750
        selector:selector
e71abe9654e6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 619
diff changeset
  1751
        arguments:methodArgs
e71abe9654e6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 619
diff changeset
  1752
        locals:methodVars
1207
8b07493663e4 *** empty log message ***
james
parents: 1206
diff changeset
  1753
        statements:tree asCollectionOfStatements
624
e71abe9654e6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 619
diff changeset
  1754
1214
df80d1034ebe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1212
diff changeset
  1755
    "Created: / 17.10.1997 / 12:35:01 / cg"
df80d1034ebe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1212
diff changeset
  1756
    "Modified: / 5.11.2001 / 16:56:43 / cg"
624
e71abe9654e6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 619
diff changeset
  1757
!
e71abe9654e6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 619
diff changeset
  1758
547
5a51414daf36 added #parseSelector for ST80 compatibility
Claus Gittinger <cg@exept.de>
parents: 541
diff changeset
  1759
parseSelector:aStringOrStream
624
e71abe9654e6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 619
diff changeset
  1760
    "parse a methods source for the methods selector.
e71abe9654e6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 619
diff changeset
  1761
     Return the selector"
e71abe9654e6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 619
diff changeset
  1762
547
5a51414daf36 added #parseSelector for ST80 compatibility
Claus Gittinger <cg@exept.de>
parents: 541
diff changeset
  1763
    self initializeFor:aStringOrStream.
5a51414daf36 added #parseSelector for ST80 compatibility
Claus Gittinger <cg@exept.de>
parents: 541
diff changeset
  1764
    self parseMethodSpec.
5a51414daf36 added #parseSelector for ST80 compatibility
Claus Gittinger <cg@exept.de>
parents: 541
diff changeset
  1765
    ^ selector.
5a51414daf36 added #parseSelector for ST80 compatibility
Claus Gittinger <cg@exept.de>
parents: 541
diff changeset
  1766
5a51414daf36 added #parseSelector for ST80 compatibility
Claus Gittinger <cg@exept.de>
parents: 541
diff changeset
  1767
    "
5a51414daf36 added #parseSelector for ST80 compatibility
Claus Gittinger <cg@exept.de>
parents: 541
diff changeset
  1768
     Parser new
624
e71abe9654e6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 619
diff changeset
  1769
        parseSelector:'
547
5a51414daf36 added #parseSelector for ST80 compatibility
Claus Gittinger <cg@exept.de>
parents: 541
diff changeset
  1770
parseSelector:aStringOrStream
5a51414daf36 added #parseSelector for ST80 compatibility
Claus Gittinger <cg@exept.de>
parents: 541
diff changeset
  1771
    self initializeFor:aStringOrStream.
5a51414daf36 added #parseSelector for ST80 compatibility
Claus Gittinger <cg@exept.de>
parents: 541
diff changeset
  1772
    self parseMethodSpec.
5a51414daf36 added #parseSelector for ST80 compatibility
Claus Gittinger <cg@exept.de>
parents: 541
diff changeset
  1773
    ^ selector.
5a51414daf36 added #parseSelector for ST80 compatibility
Claus Gittinger <cg@exept.de>
parents: 541
diff changeset
  1774
'                 
5a51414daf36 added #parseSelector for ST80 compatibility
Claus Gittinger <cg@exept.de>
parents: 541
diff changeset
  1775
    "
5a51414daf36 added #parseSelector for ST80 compatibility
Claus Gittinger <cg@exept.de>
parents: 541
diff changeset
  1776
624
e71abe9654e6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 619
diff changeset
  1777
    "Modified: 17.10.1997 / 12:35:46 / cg"
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  1778
! !
7ad01559b262 Initial revision
claus
parents:
diff changeset
  1779
44
74ddc944c27f *** empty log message ***
claus
parents: 35
diff changeset
  1780
!Parser methodsFor:'accessing'!
74ddc944c27f *** empty log message ***
claus
parents: 35
diff changeset
  1781
74ddc944c27f *** empty log message ***
claus
parents: 35
diff changeset
  1782
correctedSource
74ddc944c27f *** empty log message ***
claus
parents: 35
diff changeset
  1783
    ^ correctedSource
74ddc944c27f *** empty log message ***
claus
parents: 35
diff changeset
  1784
!
74ddc944c27f *** empty log message ***
claus
parents: 35
diff changeset
  1785
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1786
errorFlag
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1787
    "return true if there where any errors (valid after parsing)"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1788
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1789
    ^ errorFlag
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1790
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1791
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1792
evalExitBlock:aBlock
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1793
    "when evaluating a return expression, this block is evaluated"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1794
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1795
    evalExitBlock := aBlock
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1796
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1797
427
3d6a4d002824 pass remembered nameSpace back from upQueries
Claus Gittinger <cg@exept.de>
parents: 424
diff changeset
  1798
getNameSpace
3d6a4d002824 pass remembered nameSpace back from upQueries
Claus Gittinger <cg@exept.de>
parents: 424
diff changeset
  1799
    "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
  1800
3d6a4d002824 pass remembered nameSpace back from upQueries
Claus Gittinger <cg@exept.de>
parents: 424
diff changeset
  1801
    ^ currentNamespace
3d6a4d002824 pass remembered nameSpace back from upQueries
Claus Gittinger <cg@exept.de>
parents: 424
diff changeset
  1802
3d6a4d002824 pass remembered nameSpace back from upQueries
Claus Gittinger <cg@exept.de>
parents: 424
diff changeset
  1803
    "Modified: 8.11.1996 / 13:45:35 / cg"
3d6a4d002824 pass remembered nameSpace back from upQueries
Claus Gittinger <cg@exept.de>
parents: 424
diff changeset
  1804
!
3d6a4d002824 pass remembered nameSpace back from upQueries
Claus Gittinger <cg@exept.de>
parents: 424
diff changeset
  1805
19
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  1806
primitiveNumber
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  1807
    "return the ST-80 style primitiveNumber or nil (valid after parsing)"
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  1808
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  1809
    ^ primitiveNr
480
e4ac7e62ca9a better block-var name detection in debugger
Claus Gittinger <cg@exept.de>
parents: 473
diff changeset
  1810
!
97
claus
parents: 96
diff changeset
  1811
285
19e8d6d22278 allow multiple resource definitions
Claus Gittinger <cg@exept.de>
parents: 273
diff changeset
  1812
primitiveResources
19e8d6d22278 allow multiple resource definitions
Claus Gittinger <cg@exept.de>
parents: 273
diff changeset
  1813
    "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
  1814
19e8d6d22278 allow multiple resource definitions
Claus Gittinger <cg@exept.de>
parents: 273
diff changeset
  1815
    ^ primitiveResource
19e8d6d22278 allow multiple resource definitions
Claus Gittinger <cg@exept.de>
parents: 273
diff changeset
  1816
19e8d6d22278 allow multiple resource definitions
Claus Gittinger <cg@exept.de>
parents: 273
diff changeset
  1817
    "Created: 29.5.1996 / 17:28:00 / cg"
19e8d6d22278 allow multiple resource definitions
Claus Gittinger <cg@exept.de>
parents: 273
diff changeset
  1818
!
19e8d6d22278 allow multiple resource definitions
Claus Gittinger <cg@exept.de>
parents: 273
diff changeset
  1819
35
2884eed75e2a logging doits.
claus
parents: 23
diff changeset
  1820
release
664
63d1460e8ee3 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 663
diff changeset
  1821
    methodArgs := methodVars := tree := selfNode := superNode := nilNode := nil.
35
2884eed75e2a logging doits.
claus
parents: 23
diff changeset
  1822
    super release.
664
63d1460e8ee3 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 663
diff changeset
  1823
63d1460e8ee3 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 663
diff changeset
  1824
    "Modified: / 31.3.1998 / 19:45:58 / cg"
90
claus
parents: 87
diff changeset
  1825
!
claus
parents: 87
diff changeset
  1826
427
3d6a4d002824 pass remembered nameSpace back from upQueries
Claus Gittinger <cg@exept.de>
parents: 424
diff changeset
  1827
setNameSpace:aNameSpaceName
1041
98fa50f8353f renamed Namespace to NameSpace
Claus Gittinger <cg@exept.de>
parents: 1040
diff changeset
  1828
    currentNamespace := NameSpace fullName:aNameSpaceName
427
3d6a4d002824 pass remembered nameSpace back from upQueries
Claus Gittinger <cg@exept.de>
parents: 424
diff changeset
  1829
3d6a4d002824 pass remembered nameSpace back from upQueries
Claus Gittinger <cg@exept.de>
parents: 424
diff changeset
  1830
    "Modified: 8.11.1996 / 13:43:14 / cg"
3d6a4d002824 pass remembered nameSpace back from upQueries
Claus Gittinger <cg@exept.de>
parents: 424
diff changeset
  1831
!
3d6a4d002824 pass remembered nameSpace back from upQueries
Claus Gittinger <cg@exept.de>
parents: 424
diff changeset
  1832
1247
ce0d19140248 care for package directive (remember)
Claus Gittinger <cg@exept.de>
parents: 1246
diff changeset
  1833
setPackage:aPackageID
ce0d19140248 care for package directive (remember)
Claus Gittinger <cg@exept.de>
parents: 1246
diff changeset
  1834
    currentPackage := aPackageID
ce0d19140248 care for package directive (remember)
Claus Gittinger <cg@exept.de>
parents: 1246
diff changeset
  1835
!
ce0d19140248 care for package directive (remember)
Claus Gittinger <cg@exept.de>
parents: 1246
diff changeset
  1836
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1837
targetClass
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1838
    ^ classToCompileFor
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1839
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1840
90
claus
parents: 87
diff changeset
  1841
targetClass:aClass
117
claus
parents: 103
diff changeset
  1842
    classToCompileFor := aClass
claus
parents: 103
diff changeset
  1843
!
claus
parents: 103
diff changeset
  1844
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1845
tree
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1846
    "return the parsetree"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1847
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1848
    ^tree
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1849
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1850
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1851
tree:aTree
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1852
    "private: set the tree - for internal use only"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1853
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1854
    tree := aTree
1363
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  1855
!
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  1856
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  1857
warnSTXHereExtensionUsed
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  1858
    "return the value of the instance variable 'warnSTXHereExtensionUsed' (automatically generated)"
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  1859
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  1860
    ^ warnSTXHereExtensionUsed
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1861
! !
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1862
1418
4aae7d34124a method category rename
Claus Gittinger <cg@exept.de>
parents: 1417
diff changeset
  1863
!Parser methodsFor:'dummy-syntax detection'!
660
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  1864
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  1865
markArgumentIdentifierFrom:pos1 to:pos2
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  1866
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  1867
    "Created: / 31.3.1998 / 13:22:15 / cg"
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  1868
!
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  1869
883
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  1870
markBadIdentifierFrom:pos1 to:pos2
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  1871
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  1872
    "Modified: / 31.3.1998 / 19:16:26 / cg"
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  1873
    "Created: / 31.3.1998 / 19:35:53 / cg"
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  1874
!
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  1875
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1876
markBooleanConstantFrom:pos1 to:pos2
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1877
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1878
    "Created: / 31.3.1998 / 18:06:22 / cg"
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1879
!
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1880
673
0c66b7cb1d2f checkin from browser
ca
parents: 672
diff changeset
  1881
markBracketAt:pos
0c66b7cb1d2f checkin from browser
ca
parents: 672
diff changeset
  1882
!
0c66b7cb1d2f checkin from browser
ca
parents: 672
diff changeset
  1883
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1884
markConstantFrom:pos1 to:pos2
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1885
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1886
    "Created: / 31.3.1998 / 18:06:24 / cg"
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1887
!
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1888
822
a773bb72cbd6 added extra globalClassIdentifierColor & emphasis
Claus Gittinger <cg@exept.de>
parents: 815
diff changeset
  1889
markGlobalClassIdentifierFrom:pos1 to:pos2
a773bb72cbd6 added extra globalClassIdentifierColor & emphasis
Claus Gittinger <cg@exept.de>
parents: 815
diff changeset
  1890
a773bb72cbd6 added extra globalClassIdentifierColor & emphasis
Claus Gittinger <cg@exept.de>
parents: 815
diff changeset
  1891
    "Created: / 4.3.1999 / 12:52:45 / cg"
a773bb72cbd6 added extra globalClassIdentifierColor & emphasis
Claus Gittinger <cg@exept.de>
parents: 815
diff changeset
  1892
!
a773bb72cbd6 added extra globalClassIdentifierColor & emphasis
Claus Gittinger <cg@exept.de>
parents: 815
diff changeset
  1893
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1894
markGlobalIdentifierFrom:pos1 to:pos2
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1895
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1896
    "Created: / 31.3.1998 / 15:29:39 / cg"
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1897
!
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1898
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1899
markHereFrom:pos1 to:pos2
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1900
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1901
    "Created: / 31.3.1998 / 17:39:01 / cg"
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1902
!
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1903
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1904
markIdentifierFrom:pos1 to:pos2
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1905
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1906
    "Created: / 31.3.1998 / 18:06:17 / cg"
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1907
!
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1908
687
27565829b5d4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 685
diff changeset
  1909
markInstVarIdentifierFrom:pos1 to:pos2
27565829b5d4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 685
diff changeset
  1910
27565829b5d4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 685
diff changeset
  1911
    "Created: / 16.4.1998 / 18:34:10 / cg"
27565829b5d4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 685
diff changeset
  1912
!
27565829b5d4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 685
diff changeset
  1913
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1914
markLocalIdentifierFrom:pos1 to:pos2
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1915
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1916
    "Created: / 31.3.1998 / 15:29:35 / cg"
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1917
!
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1918
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1919
markMethodSelectorFrom:pos1 to:pos2
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1920
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1921
    "Modified: / 31.3.1998 / 13:30:09 / cg"
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1922
    "Created: / 31.3.1998 / 16:39:44 / cg"
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1923
!
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1924
837
b09e08bb3d5e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 832
diff changeset
  1925
markReturnAt:pos
b09e08bb3d5e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 832
diff changeset
  1926
b09e08bb3d5e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 832
diff changeset
  1927
    "Created: / 5.1.1980 / 00:48:24 / cg"
b09e08bb3d5e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 832
diff changeset
  1928
!
b09e08bb3d5e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 832
diff changeset
  1929
864
a716d90fa5a9 better selector marking
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
  1930
markSelector:sel from:pos1 to:pos2 receiverNode:aNode
a716d90fa5a9 better selector marking
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
  1931
a716d90fa5a9 better selector marking
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
  1932
    "Created: / 31.3.1998 / 13:22:15 / cg"
a716d90fa5a9 better selector marking
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
  1933
    "Modified: / 31.3.1998 / 13:30:09 / cg"
a716d90fa5a9 better selector marking
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
  1934
!
a716d90fa5a9 better selector marking
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
  1935
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1936
markSelfFrom:pos1 to:pos2
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1937
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1938
    "Created: / 31.3.1998 / 17:49:38 / cg"
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1939
!
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1940
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1941
markSuperFrom:pos1 to:pos2
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1942
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1943
    "Created: / 31.3.1998 / 17:40:20 / cg"
664
63d1460e8ee3 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 663
diff changeset
  1944
!
63d1460e8ee3 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 663
diff changeset
  1945
63d1460e8ee3 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 663
diff changeset
  1946
markUnknownIdentifierFrom:pos1 to:pos2
63d1460e8ee3 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 663
diff changeset
  1947
63d1460e8ee3 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 663
diff changeset
  1948
    "Modified: / 31.3.1998 / 19:16:26 / cg"
63d1460e8ee3 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 663
diff changeset
  1949
    "Created: / 31.3.1998 / 19:35:53 / cg"
687
27565829b5d4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 685
diff changeset
  1950
!
27565829b5d4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 685
diff changeset
  1951
27565829b5d4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 685
diff changeset
  1952
markVariable:v
27565829b5d4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 685
diff changeset
  1953
    "support for syntaxColoring"
27565829b5d4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 685
diff changeset
  1954
27565829b5d4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 685
diff changeset
  1955
    "Modified: / 16.4.1998 / 18:47:45 / cg"
27565829b5d4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 685
diff changeset
  1956
!
27565829b5d4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 685
diff changeset
  1957
27565829b5d4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 685
diff changeset
  1958
markVariable:v from:pos1 to:pos2
27565829b5d4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 685
diff changeset
  1959
    "support for syntaxColoring"
27565829b5d4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 685
diff changeset
  1960
27565829b5d4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 685
diff changeset
  1961
    "Modified: / 16.4.1998 / 18:47:45 / cg"
27565829b5d4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 685
diff changeset
  1962
    "Created: / 16.4.1998 / 18:50:03 / cg"
660
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  1963
! !
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  1964
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1965
!Parser methodsFor:'error correction'!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1966
1295
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  1967
addDoItTemporary:varName
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  1968
    |holder|
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  1969
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  1970
    doItTemporaries isNil ifTrue:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  1971
        doItTemporaries := IdentityDictionary new.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  1972
    ].
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  1973
    doItTemporaries at:varName asSymbol put:(holder := ValueHolder new).
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  1974
    ^ holder
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  1975
!
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  1976
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1977
askForCorrection:aString fromList:aList
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1978
    "launch a selection box, which allows user to enter correction.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1979
     return newString or nil (for abort)"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1980
1323
34b29c93134b fixed correct for doits
Claus Gittinger <cg@exept.de>
parents: 1322
diff changeset
  1981
    |box rslt|
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1982
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1983
    "in systems without widgets ..."
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1984
    ListSelectionBox isNil ifTrue:[
1285
32af9747bf9d error messages
Claus Gittinger <cg@exept.de>
parents: 1282
diff changeset
  1985
        ^ self confirm:aString
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1986
    ].
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1987
    box := ListSelectionBox title:aString.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1988
    box initialText:(aList at:1).
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1989
    box list:aList.
1285
32af9747bf9d error messages
Claus Gittinger <cg@exept.de>
parents: 1282
diff changeset
  1990
    box okText:'Correct'.
1323
34b29c93134b fixed correct for doits
Claus Gittinger <cg@exept.de>
parents: 1322
diff changeset
  1991
    box action:[:aString | rslt := aString].
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1992
    box showAtPointer.
1323
34b29c93134b fixed correct for doits
Claus Gittinger <cg@exept.de>
parents: 1322
diff changeset
  1993
    box destroy.
34b29c93134b fixed correct for doits
Claus Gittinger <cg@exept.de>
parents: 1322
diff changeset
  1994
    ^ rslt
34b29c93134b fixed correct for doits
Claus Gittinger <cg@exept.de>
parents: 1322
diff changeset
  1995
!
34b29c93134b fixed correct for doits
Claus Gittinger <cg@exept.de>
parents: 1322
diff changeset
  1996
34b29c93134b fixed correct for doits
Claus Gittinger <cg@exept.de>
parents: 1322
diff changeset
  1997
askForCorrection:aString fromList:aList for:originalSelector
34b29c93134b fixed correct for doits
Claus Gittinger <cg@exept.de>
parents: 1322
diff changeset
  1998
    "launch a selection box, which allows user to enter correction.
34b29c93134b fixed correct for doits
Claus Gittinger <cg@exept.de>
parents: 1322
diff changeset
  1999
     return newString or nil (for abort)"
34b29c93134b fixed correct for doits
Claus Gittinger <cg@exept.de>
parents: 1322
diff changeset
  2000
34b29c93134b fixed correct for doits
Claus Gittinger <cg@exept.de>
parents: 1322
diff changeset
  2001
    |box rslt|
34b29c93134b fixed correct for doits
Claus Gittinger <cg@exept.de>
parents: 1322
diff changeset
  2002
34b29c93134b fixed correct for doits
Claus Gittinger <cg@exept.de>
parents: 1322
diff changeset
  2003
    "in systems without widgets ..."
34b29c93134b fixed correct for doits
Claus Gittinger <cg@exept.de>
parents: 1322
diff changeset
  2004
    ListSelectionBox isNil ifTrue:[
34b29c93134b fixed correct for doits
Claus Gittinger <cg@exept.de>
parents: 1322
diff changeset
  2005
        ^ self confirm:aString
34b29c93134b fixed correct for doits
Claus Gittinger <cg@exept.de>
parents: 1322
diff changeset
  2006
    ].
34b29c93134b fixed correct for doits
Claus Gittinger <cg@exept.de>
parents: 1322
diff changeset
  2007
    box := ListSelectionBox title:aString.
34b29c93134b fixed correct for doits
Claus Gittinger <cg@exept.de>
parents: 1322
diff changeset
  2008
    box initialText:(aList at:1).
34b29c93134b fixed correct for doits
Claus Gittinger <cg@exept.de>
parents: 1322
diff changeset
  2009
    box list:aList.
34b29c93134b fixed correct for doits
Claus Gittinger <cg@exept.de>
parents: 1322
diff changeset
  2010
    box okText:'Correct'.
34b29c93134b fixed correct for doits
Claus Gittinger <cg@exept.de>
parents: 1322
diff changeset
  2011
    box action:[:aString | rslt := aString].
34b29c93134b fixed correct for doits
Claus Gittinger <cg@exept.de>
parents: 1322
diff changeset
  2012
    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
  2013
    box showAtPointer.
34b29c93134b fixed correct for doits
Claus Gittinger <cg@exept.de>
parents: 1322
diff changeset
  2014
    box destroy.
34b29c93134b fixed correct for doits
Claus Gittinger <cg@exept.de>
parents: 1322
diff changeset
  2015
    ^ rslt
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2016
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2017
1295
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2018
askForVariableTypeWhenDeclaringUndefined:varName
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2019
    |l how varNameIsLowercase choice holder newClass|
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2020
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2021
    l := #().
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2022
    how := #().
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2023
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2024
    varNameIsLowercase := (varName at:1) isLowercase.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2025
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2026
    "/ BlockVar, InstVar and classInstVar not yet implemented
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2027
    varNameIsLowercase ifTrue:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2028
"/            currentBlock notNil ifTrue:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2029
"/                l := l , #( 'Block local' ).
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2030
"/                how := how , #( BlockVariable ).
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2031
"/            ].
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2032
        selector notNil ifTrue:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2033
            l := l , #( 'Method Local Variable' ).
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2034
            how := how , #( MethodVariable ).
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2035
        ].
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2036
        (classToCompileFor notNil
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2037
        and:[classToCompileFor isMeta not
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2038
        and:[classToCompileFor isBuiltInClass not 
1440
7084ae99ced7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1439
diff changeset
  2039
        and:[(self isDoIt not)]]]) ifTrue:[
1295
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2040
            l := l copyWith:'Instance Variable'.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2041
            how := how copyWith: #InstanceVariable.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2042
        ].
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2043
    ] ifFalse:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2044
        l := l , #( 'New Class' 'Global' 'NameSpace' ).
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2045
        how := how , #( NewClass GlobalVariable NameSpace ).
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2046
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2047
        (classToCompileFor notNil
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2048
        and:[classToCompileFor isBuiltInClass not
1440
7084ae99ced7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1439
diff changeset
  2049
        and:[self isDoIt not]]) ifTrue:[
1295
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2050
            classToCompileFor isMeta ifTrue:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2051
                l := l , #('Class Instance Variable').
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2052
                how := how , #( ClassInstanceVariable).
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2053
            ].
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2054
            l := l , #('Class Variable' ).
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2055
            how := how , #( ClassVariable).
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2056
        ]
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2057
    ].
1440
7084ae99ced7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1439
diff changeset
  2058
    self isDoIt ifTrue:[
1295
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2059
        l size > 0 ifTrue:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2060
            l := l ,  #( '-' ).
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2061
            how := how , #( nil ).
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2062
        ].
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2063
        l := l , #( 'Workspace Variable' 'DoIt Temporary').
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2064
        how := how , #( WorkspaceVariable DoItTemporary ).
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2065
    ].
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2066
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2067
    l size > 0 ifTrue:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2068
        l := (Array with:('Declare ' , varName allBold , ' as:') 
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2069
                    with:'-'
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2070
             ) , l.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2071
        how := #(nil nil) , how.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2072
        choice := (PopUpMenu labels:l) startUp.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2073
        (choice notNil and:[choice > 0]) ifTrue:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2074
            choice := how at:choice.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2075
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2076
            choice == #WorkspaceVariable ifTrue:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2077
                holder := Workspace addWorkspaceVariable:varName.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2078
                ^ VariableNode type:#WorkspaceVariable holder:holder name:varName
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2079
            ].
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2080
            choice == #DoItTemporary ifTrue:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2081
                holder := self addDoItTemporary:varName.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2082
                ^ VariableNode type:#DoItTemporary holder:holder name:varName
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2083
            ].
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2084
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2085
            choice == #GlobalVariable ifTrue:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2086
                Smalltalk at:varName asSymbol put:nil.
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  2087
                ^ VariableNode globalNamed:varName
1295
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2088
            ].
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2089
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2090
            choice == #NewClass ifTrue:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2091
                newClass := Object subclass:varName asSymbol
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2092
                       instanceVariableNames:''
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2093
                       classVariableNames:''
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2094
                       poolDictionaries:''
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2095
                       category:'* As yet uncategorized *'.
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  2096
                ^ VariableNode globalNamed:newClass name
1295
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2097
            ].
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2098
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2099
            choice == #NameSpace ifTrue:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2100
                NameSpace name:varName.
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  2101
                ^ VariableNode globalNamed:varName
1295
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2102
            ].
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2103
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2104
            choice == #ClassVariable ifTrue:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2105
                classToCompileFor theNonMetaclass addClassVarName:varName.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2106
                ^ VariableNode type:#ClassVariable class:classToCompileFor theNonMetaclass name:varName
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2107
            ].
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2108
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2109
            choice == #InstanceVariable ifTrue:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2110
                classToCompileFor theNonMetaclass addInstVarName:varName.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2111
                "/ ST/X special - classToCompileFor is obsoleted
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2112
                classToCompileFor := Smalltalk classNamed:(classToCompileFor name).
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2113
                RestartCompilationSignal raise.    
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2114
                "/ not reached - restarted compile will not arrive here again
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2115
                self error:'restart compile failed'.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2116
            ].
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2117
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2118
            choice == #ClassInstanceVariable ifTrue:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2119
                classToCompileFor theMetaclass addInstVarName:varName.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2120
                "/ ST/X special - classToCompileFor is obsoleted
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2121
                classToCompileFor := Smalltalk classNamed:(classToCompileFor name).
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2122
                RestartCompilationSignal raise.    
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2123
                "/ not reached - restarted compile will not arrive here again
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2124
                self error:'restart compile failed'.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2125
            ].
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2126
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2127
            choice == #MethodVariable ifTrue:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2128
                |varIndex var endLocalsPos posToInsert ins|
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2129
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2130
                localVarDefPosition size == 2 ifTrue:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2131
                    endLocalsPos := posToInsert := localVarDefPosition at:2.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2132
                    ins := ' ' , varName.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2133
                ] ifFalse:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2134
                    endOfSelectorPosition notNil ifTrue:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2135
                         posToInsert := endOfSelectorPosition.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2136
                         ins := '|' , varName , '|' , Character cr asString , Character cr asString.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2137
                         ins := ins , (String new:(requestor colOfCharacterPosition:posToInsert)-1).   
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2138
                    ]
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2139
                ].
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2140
                posToInsert notNil ifTrue:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2141
                    requestor 
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2142
                        insertString:ins
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2143
                        atCharacterPosition:posToInsert.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2144
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2145
                    endLocalsPos notNil ifTrue:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2146
                        localVarDefPosition at:2 put:(endLocalsPos + varName size + 1).
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2147
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2148
                        methodVarNames := methodVarNames copyWith:varName.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2149
                        methodVars := methodVars copyWith:(var := Variable new name:varName).
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2150
                    ] ifFalse:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2151
                        localVarDefPosition := Array with:posToInsert with:posToInsert+varName size+1.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2152
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2153
                        methodVarNames := Array with:varName.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2154
                        methodVars := Array with:(var := Variable new name:varName).
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2155
                    ].
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2156
                    correctedSource := requestor currentSourceCode.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2157
                    source := (ReadStream on:correctedSource)
1371
de4c37ac12fc code rewritten to be independent of stream zero-base
Claus Gittinger <cg@exept.de>
parents: 1369
diff changeset
  2158
                                  position:(source position1Based + ins size).
1295
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2159
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2160
                    varIndex := methodVarNames size.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2161
                    var used:true.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2162
                    ^ VariableNode type:#MethodVariable
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2163
                                   name:varName
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2164
                                   token:var
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2165
                                   index:varIndex
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2166
                ].
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2167
            ].
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2168
            self warning:'Sorry - unimplemented (adding ' , choice , ')'.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2169
        ].
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2170
        ^ #Error
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2171
    ].
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2172
    ^ nil.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2173
!
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2174
1512
52986e9b02af better isReturn (used when checking for consistent return value)
Claus Gittinger <cg@exept.de>
parents: 1507
diff changeset
  2175
checkIfAllSubclassesOf:aClass implement:aSelector
52986e9b02af better isReturn (used when checking for consistent return value)
Claus Gittinger <cg@exept.de>
parents: 1507
diff changeset
  2176
    (aClass subclasses 
52986e9b02af better isReturn (used when checking for consistent return value)
Claus Gittinger <cg@exept.de>
parents: 1507
diff changeset
  2177
        contains:[:cls | (cls implements:selector) not]) ifTrue:[^ false].
52986e9b02af better isReturn (used when checking for consistent return value)
Claus Gittinger <cg@exept.de>
parents: 1507
diff changeset
  2178
    ^ true.
52986e9b02af better isReturn (used when checking for consistent return value)
Claus Gittinger <cg@exept.de>
parents: 1507
diff changeset
  2179
!
52986e9b02af better isReturn (used when checking for consistent return value)
Claus Gittinger <cg@exept.de>
parents: 1507
diff changeset
  2180
1507
bd29313cd901 selector check w.r.t. subclassResponsibility
penk
parents: 1499
diff changeset
  2181
checkSelector:selector for:receiver inClass:cls
1499
69439abfdb93 Warn when using subclassResponsibility or shouldNotImplememt methods
Stefan Vogel <sv@exept.de>
parents: 1495
diff changeset
  2182
    "check wether a method with selector exists in class cls and
69439abfdb93 Warn when using subclassResponsibility or shouldNotImplememt methods
Stefan Vogel <sv@exept.de>
parents: 1495
diff changeset
  2183
     that the method is not obsolete.
69439abfdb93 Warn when using subclassResponsibility or shouldNotImplememt methods
Stefan Vogel <sv@exept.de>
parents: 1495
diff changeset
  2184
     If cls is nil, check all classes for the selector.
1158
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2185
     Return an error string on error or nil on success"
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2186
1507
bd29313cd901 selector check w.r.t. subclassResponsibility
penk
parents: 1499
diff changeset
  2187
    |err mthd implementor implementors allowed|
1190
8600334a549e oops - avoid cought error if method is parsed in no class.
Claus Gittinger <cg@exept.de>
parents: 1189
diff changeset
  2188
8600334a549e oops - avoid cought error if method is parsed in no class.
Claus Gittinger <cg@exept.de>
parents: 1189
diff changeset
  2189
    cls isNil ifTrue:[
1499
69439abfdb93 Warn when using subclassResponsibility or shouldNotImplememt methods
Stefan Vogel <sv@exept.de>
parents: 1495
diff changeset
  2190
        SystemBrowser isNil ifTrue:[
69439abfdb93 Warn when using subclassResponsibility or shouldNotImplememt methods
Stefan Vogel <sv@exept.de>
parents: 1495
diff changeset
  2191
            ^ nil
69439abfdb93 Warn when using subclassResponsibility or shouldNotImplememt methods
Stefan Vogel <sv@exept.de>
parents: 1495
diff changeset
  2192
        ].
69439abfdb93 Warn when using subclassResponsibility or shouldNotImplememt methods
Stefan Vogel <sv@exept.de>
parents: 1495
diff changeset
  2193
        "beware, this is sort of slow, especially for the SyntaxHighlighter"
1190
8600334a549e oops - avoid cought error if method is parsed in no class.
Claus Gittinger <cg@exept.de>
parents: 1189
diff changeset
  2194
        implementors := SystemBrowser 
8600334a549e oops - avoid cought error if method is parsed in no class.
Claus Gittinger <cg@exept.de>
parents: 1189
diff changeset
  2195
                         findImplementorsOf:selector
8600334a549e oops - avoid cought error if method is parsed in no class.
Claus Gittinger <cg@exept.de>
parents: 1189
diff changeset
  2196
                         in:(Smalltalk allClasses)
8600334a549e oops - avoid cought error if method is parsed in no class.
Claus Gittinger <cg@exept.de>
parents: 1189
diff changeset
  2197
                         ignoreCase:false.
8600334a549e oops - avoid cought error if method is parsed in no class.
Claus Gittinger <cg@exept.de>
parents: 1189
diff changeset
  2198
        implementors size == 0 ifTrue:[
8600334a549e oops - avoid cought error if method is parsed in no class.
Claus Gittinger <cg@exept.de>
parents: 1189
diff changeset
  2199
            ^ 'is nowhere implemented'
8600334a549e oops - avoid cought error if method is parsed in no class.
Claus Gittinger <cg@exept.de>
parents: 1189
diff changeset
  2200
        ].
1499
69439abfdb93 Warn when using subclassResponsibility or shouldNotImplememt methods
Stefan Vogel <sv@exept.de>
parents: 1495
diff changeset
  2201
69439abfdb93 Warn when using subclassResponsibility or shouldNotImplememt methods
Stefan Vogel <sv@exept.de>
parents: 1495
diff changeset
  2202
        (implementors conform:[:eachMethod| eachMethod isObsolete]) ifTrue:[
69439abfdb93 Warn when using subclassResponsibility or shouldNotImplememt methods
Stefan Vogel <sv@exept.de>
parents: 1495
diff changeset
  2203
            ^ 'each implementation of this selector in the system is deprecated'
69439abfdb93 Warn when using subclassResponsibility or shouldNotImplememt methods
Stefan Vogel <sv@exept.de>
parents: 1495
diff changeset
  2204
        ].
1190
8600334a549e oops - avoid cought error if method is parsed in no class.
Claus Gittinger <cg@exept.de>
parents: 1189
diff changeset
  2205
        ^ nil
8600334a549e oops - avoid cought error if method is parsed in no class.
Claus Gittinger <cg@exept.de>
parents: 1189
diff changeset
  2206
    ].
1158
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2207
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2208
    mthd := cls lookupMethodFor:selector.
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2209
    mthd isNil ifTrue:[
1327
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2210
        cls == Boolean ifTrue:[
1499
69439abfdb93 Warn when using subclassResponsibility or shouldNotImplememt methods
Stefan Vogel <sv@exept.de>
parents: 1495
diff changeset
  2211
            mthd := True compiledMethodAt:selector.
1327
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2212
            mthd isNil ifTrue:[
1499
69439abfdb93 Warn when using subclassResponsibility or shouldNotImplememt methods
Stefan Vogel <sv@exept.de>
parents: 1495
diff changeset
  2213
                mthd := False compiledMethodAt:selector.
1327
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2214
            ].
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2215
        ]
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2216
    ].
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2217
    mthd isNil ifTrue:[
1158
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2218
        "if it implements #doesNotUnderstand somewhere, assume it is ok"
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2219
        implementor := cls whichClassIncludesSelector:#doesNotUnderstand:.
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2220
        (implementor isNil or:[implementor == Object]) ifTrue:[
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2221
            err := 'is not implemented'
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2222
        ].
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2223
    ] ifFalse:[
1499
69439abfdb93 Warn when using subclassResponsibility or shouldNotImplememt methods
Stefan Vogel <sv@exept.de>
parents: 1495
diff changeset
  2224
        (mthd sends:#shouldNotImplement) ifTrue:[
69439abfdb93 Warn when using subclassResponsibility or shouldNotImplememt methods
Stefan Vogel <sv@exept.de>
parents: 1495
diff changeset
  2225
            err := 'is not (should not be) implemented'
1507
bd29313cd901 selector check w.r.t. subclassResponsibility
penk
parents: 1499
diff changeset
  2226
        ] ifFalse:[(mthd sends:#subclassResponsibility) ifTrue:[
1512
52986e9b02af better isReturn (used when checking for consistent return value)
Claus Gittinger <cg@exept.de>
parents: 1507
diff changeset
  2227
            allowed := (cls == classToCompileFor).      "methods in abstract classes may send messages to abstract methods in the same class"
1507
bd29313cd901 selector check w.r.t. subclassResponsibility
penk
parents: 1499
diff changeset
  2228
            allowed ifFalse:[
bd29313cd901 selector check w.r.t. subclassResponsibility
penk
parents: 1499
diff changeset
  2229
                "methods in abstract classes may send messages to abstract methods in meta class"
bd29313cd901 selector check w.r.t. subclassResponsibility
penk
parents: 1499
diff changeset
  2230
                (cls == classToCompileFor class) ifTrue:[
bd29313cd901 selector check w.r.t. subclassResponsibility
penk
parents: 1499
diff changeset
  2231
                    allowed := receiver isMessage and:[receiver selector = 'class']    
bd29313cd901 selector check w.r.t. subclassResponsibility
penk
parents: 1499
diff changeset
  2232
                ].
bd29313cd901 selector check w.r.t. subclassResponsibility
penk
parents: 1499
diff changeset
  2233
            ].
bd29313cd901 selector check w.r.t. subclassResponsibility
penk
parents: 1499
diff changeset
  2234
            allowed ifTrue:[
1512
52986e9b02af better isReturn (used when checking for consistent return value)
Claus Gittinger <cg@exept.de>
parents: 1507
diff changeset
  2235
                (self checkIfAllSubclassesOf:cls implement:selector) ifFalse:[
1507
bd29313cd901 selector check w.r.t. subclassResponsibility
penk
parents: 1499
diff changeset
  2236
                    "if not all subclasses implement the selector - this is a possible bug"
bd29313cd901 selector check w.r.t. subclassResponsibility
penk
parents: 1499
diff changeset
  2237
                    allowed := false
bd29313cd901 selector check w.r.t. subclassResponsibility
penk
parents: 1499
diff changeset
  2238
                ].
bd29313cd901 selector check w.r.t. subclassResponsibility
penk
parents: 1499
diff changeset
  2239
            ].
bd29313cd901 selector check w.r.t. subclassResponsibility
penk
parents: 1499
diff changeset
  2240
            allowed ifFalse:[
bd29313cd901 selector check w.r.t. subclassResponsibility
penk
parents: 1499
diff changeset
  2241
                err := 'is subclassResponsibility'
bd29313cd901 selector check w.r.t. subclassResponsibility
penk
parents: 1499
diff changeset
  2242
            ].
1499
69439abfdb93 Warn when using subclassResponsibility or shouldNotImplememt methods
Stefan Vogel <sv@exept.de>
parents: 1495
diff changeset
  2243
        ] ifFalse:[mthd isObsolete ifTrue:[
1158
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2244
            err := 'is deprecated'.
1499
69439abfdb93 Warn when using subclassResponsibility or shouldNotImplememt methods
Stefan Vogel <sv@exept.de>
parents: 1495
diff changeset
  2245
        ]]].
1158
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2246
    ].
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2247
    ^ err.
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2248
!
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2249
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2250
correctByDeleting
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2251
    "correct (by deleting token) if user wants to;
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2252
     return #Error if there was no correction;
644
834399365be9 Highlighting of undefined variables didn't work after first correction
Stefan Vogel <sv@exept.de>
parents: 640
diff changeset
  2253
     nil if there was one."
834399365be9 Highlighting of undefined variables didn't work after first correction
Stefan Vogel <sv@exept.de>
parents: 640
diff changeset
  2254
834399365be9 Highlighting of undefined variables didn't work after first correction
Stefan Vogel <sv@exept.de>
parents: 640
diff changeset
  2255
    |selectionSize|
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2256
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2257
    (self confirm:'confirm deleting') ifFalse:[^ #Error].
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2258
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2259
    "
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2260
     tell requestor (i.e. CodeView) about the change
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2261
     this will update what the requestor shows.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2262
    "
644
834399365be9 Highlighting of undefined variables didn't work after first correction
Stefan Vogel <sv@exept.de>
parents: 640
diff changeset
  2263
    selectionSize := requestor selection size.
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2264
    requestor deleteSelection.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2265
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2266
    "
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2267
     get the updated source-string 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2268
     which is needed, when we eventually install the new method
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2269
    "
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2270
    correctedSource := requestor currentSourceCode.
1167
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2271
    "/ update the current source position
644
834399365be9 Highlighting of undefined variables didn't work after first correction
Stefan Vogel <sv@exept.de>
parents: 640
diff changeset
  2272
    source := (ReadStream on:correctedSource)
1371
de4c37ac12fc code rewritten to be independent of stream zero-base
Claus Gittinger <cg@exept.de>
parents: 1369
diff changeset
  2273
                  position:(source position1Based - selectionSize).
1369
2304dd8c3173 recompilation after correct-by-deleting unused local
Claus Gittinger <cg@exept.de>
parents: 1368
diff changeset
  2274
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2275
    ^ nil
644
834399365be9 Highlighting of undefined variables didn't work after first correction
Stefan Vogel <sv@exept.de>
parents: 640
diff changeset
  2276
834399365be9 Highlighting of undefined variables didn't work after first correction
Stefan Vogel <sv@exept.de>
parents: 640
diff changeset
  2277
    "Modified: / 22.1.1998 / 16:39:11 / stefan"
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2278
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2279
1439
0fddfcdca37b selector check improved
Claus Gittinger <cg@exept.de>
parents: 1437
diff changeset
  2280
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
  2281
    "notify error and correct if user wants to;
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2282
     return #Error if there was no correction 
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2283
     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
  2284
1439
0fddfcdca37b selector check improved
Claus Gittinger <cg@exept.de>
parents: 1437
diff changeset
  2285
    |correctIt suggestedNames newSelector className classToGenerateCode pos1 pos2|
0fddfcdca37b selector check improved
Claus Gittinger <cg@exept.de>
parents: 1437
diff changeset
  2286
0fddfcdca37b selector check improved
Claus Gittinger <cg@exept.de>
parents: 1437
diff changeset
  2287
    pos1 := posVector first start.
0fddfcdca37b selector check improved
Claus Gittinger <cg@exept.de>
parents: 1437
diff changeset
  2288
    pos2 := posVector last stop.
1156
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2289
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2290
    alreadyWarnedUnimplementedSelectors isNil ifTrue:[
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2291
        alreadyWarnedUnimplementedSelectors := Set new
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2292
    ].
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2293
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2294
    (alreadyWarnedUnimplementedSelectors includes:aSelectorString) ifTrue:[
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2295
        ^ aSelectorString
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2296
    ].
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2297
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2298
    "
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2299
     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
  2300
     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
  2301
    "
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2302
    (aSelectorString occurrencesOf:$:) > 1 ifTrue:[
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2303
        self warning:msg position:pos1 to:pos2.
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2304
        alreadyWarnedUnimplementedSelectors add:aSelectorString.
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2305
        ^ aSelectorString
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2306
    ].
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2307
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2308
    correctIt := self correctableSelectorWarning:msg position:pos1 to:pos2.
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2309
    correctIt == #generate ifTrue:[
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2310
        receiverNode isSelf ifTrue:[
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2311
            classToGenerateCode := classToCompileFor
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2312
        ] ifFalse:[
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2313
            receiverNode isVariable ifTrue:[
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2314
                receiverNode isGlobal ifTrue:[
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2315
                    classToGenerateCode := receiverNode evaluate.
1336
67ea8b161346 Generate class methods in class.
Stefan Vogel <sv@exept.de>
parents: 1335
diff changeset
  2316
                    classToGenerateCode isBehavior ifTrue:[
67ea8b161346 Generate class methods in class.
Stefan Vogel <sv@exept.de>
parents: 1335
diff changeset
  2317
                        classToGenerateCode :=  classToGenerateCode theMetaclass.
67ea8b161346 Generate class methods in class.
Stefan Vogel <sv@exept.de>
parents: 1335
diff changeset
  2318
                    ] ifFalse:[
1156
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2319
                        classToGenerateCode := nil
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2320
                    ].
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2321
                ].
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2322
            ]
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2323
        ].
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2324
        classToGenerateCode isNil ifTrue:[
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2325
            className := Dialog request:'Generate code in class:' initialAnswer:classToCompileFor name.
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2326
            className size == 0 ifTrue:[
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2327
                ^ aSelectorString
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2328
            ].
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2329
            classToGenerateCode := Smalltalk at:className asSymbol.
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2330
            classToGenerateCode isNil ifTrue:[
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2331
                self warn:'No such class.'.
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2332
                ^ aSelectorString
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2333
            ].
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2334
        ].
1252
666db3206028 #implements: -> #includesSelector:
Claus Gittinger <cg@exept.de>
parents: 1247
diff changeset
  2335
        (classToGenerateCode includesSelector:aSelectorString asSymbol) ifFalse:[
1158
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2336
            "do not overwrite an already existant (deprecated) method"
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2337
            classToGenerateCode
1336
67ea8b161346 Generate class methods in class.
Stefan Vogel <sv@exept.de>
parents: 1335
diff changeset
  2338
                compile:((self class methodSpecificationForSelector:aSelectorString) , '\    self shouldImplement' withCRs)
1323
34b29c93134b fixed correct for doits
Claus Gittinger <cg@exept.de>
parents: 1322
diff changeset
  2339
                classified:(Compiler defaultMethodCategory).
1158
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2340
        ].
1156
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2341
        correctIt := false.
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2342
    ].
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2343
    correctIt ifFalse:[
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2344
        alreadyWarnedUnimplementedSelectors add:aSelectorString.
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2345
        ^ aSelectorString
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2346
    ].
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2347
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2348
    suggestedNames := self findBestSelectorsFor:aSelectorString in:aClassOrNil.
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2349
    suggestedNames notNil ifTrue:[
1323
34b29c93134b fixed correct for doits
Claus Gittinger <cg@exept.de>
parents: 1322
diff changeset
  2350
        newSelector := self askForCorrection:'Correct Selector to: ' fromList:suggestedNames for:aSelectorString.
34b29c93134b fixed correct for doits
Claus Gittinger <cg@exept.de>
parents: 1322
diff changeset
  2351
        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
  2352
    ] ifFalse:[
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2353
        self information:'no good correction found'.
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2354
        ^ aSelectorString
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2355
    ].
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2356
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2357
    "
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2358
     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
  2359
     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
  2360
    "
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2361
    requestor replaceSelectionBy:newSelector keepCursor:false.
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2362
    "
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2363
     get the updated source-string 
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2364
     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
  2365
    "
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2366
    correctedSource := requestor currentSourceCode.
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2367
    source := (ReadStream on:correctedSource)
1371
de4c37ac12fc code rewritten to be independent of stream zero-base
Claus Gittinger <cg@exept.de>
parents: 1369
diff changeset
  2368
                  position:(source position1Based + 1 + (newSelector size - aSelectorString size)).
1361
Claus Gittinger <cg@exept.de>
parents: 1359
diff changeset
  2369
"/ Parser murks.
1156
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2370
    ^ newSelector
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2371
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2372
    "Modified: / 22.1.1998 / 16:36:04 / stefan"
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2373
    "Created: / 19.1.2000 / 16:34:01 / cg"
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2374
    "Modified: / 19.1.2000 / 16:34:55 / cg"
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2375
!
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2376
1167
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2377
correctSourceByDeletingFrom:start to:stop
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2378
    "correct (by deleting token) if user wants to;
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2379
     return #Error if there was no correction;
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2380
     nil if there was one."
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2381
1445
2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well
Claus Gittinger <cg@exept.de>
parents: 1442
diff changeset
  2382
    |deleteSize localDefsStart localDefsStop newPos|
1167
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2383
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2384
    "
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2385
     tell requestor (i.e. CodeView) about the change
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2386
     this will update what the requestor shows.
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2387
    "
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2388
    deleteSize := stop - start + 1.
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2389
    requestor deleteFromCharacterPosition:start to:stop.
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2390
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2391
    "
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2392
     get the updated source-string 
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2393
     which is needed, when we eventually install the new method
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2394
    "
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2395
    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
  2396
1167
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2397
    "/ 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
  2398
    source atEnd ifTrue:[
2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well
Claus Gittinger <cg@exept.de>
parents: 1442
diff changeset
  2399
        newPos := correctedSource size.
2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well
Claus Gittinger <cg@exept.de>
parents: 1442
diff changeset
  2400
    ] ifFalse:[
2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well
Claus Gittinger <cg@exept.de>
parents: 1442
diff changeset
  2401
        source position1Based >= stop ifTrue:[
2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well
Claus Gittinger <cg@exept.de>
parents: 1442
diff changeset
  2402
            newPos := source position1Based - deleteSize
2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well
Claus Gittinger <cg@exept.de>
parents: 1442
diff changeset
  2403
        ] ifFalse:[
2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well
Claus Gittinger <cg@exept.de>
parents: 1442
diff changeset
  2404
            source position1Based < start ifTrue:[
2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well
Claus Gittinger <cg@exept.de>
parents: 1442
diff changeset
  2405
                newPos := source position1Based
2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well
Claus Gittinger <cg@exept.de>
parents: 1442
diff changeset
  2406
            ] ifFalse:[
2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well
Claus Gittinger <cg@exept.de>
parents: 1442
diff changeset
  2407
                newPos := start
2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well
Claus Gittinger <cg@exept.de>
parents: 1442
diff changeset
  2408
            ].
2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well
Claus Gittinger <cg@exept.de>
parents: 1442
diff changeset
  2409
        ]
2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well
Claus Gittinger <cg@exept.de>
parents: 1442
diff changeset
  2410
    ].
2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well
Claus Gittinger <cg@exept.de>
parents: 1442
diff changeset
  2411
    source := (ReadStream on:correctedSource) position1Based:newPos.
1432
a85ce0ec6ee4 deleting multiple local variables
Claus Gittinger <cg@exept.de>
parents: 1427
diff changeset
  2412
a85ce0ec6ee4 deleting multiple local variables
Claus Gittinger <cg@exept.de>
parents: 1427
diff changeset
  2413
    localDefsStart := localVarDefPosition at:1.
a85ce0ec6ee4 deleting multiple local variables
Claus Gittinger <cg@exept.de>
parents: 1427
diff changeset
  2414
    localDefsStop := localVarDefPosition at:2.
a85ce0ec6ee4 deleting multiple local variables
Claus Gittinger <cg@exept.de>
parents: 1427
diff changeset
  2415
a85ce0ec6ee4 deleting multiple local variables
Claus Gittinger <cg@exept.de>
parents: 1427
diff changeset
  2416
    localDefsStop <= start ifTrue:[^ self].
a85ce0ec6ee4 deleting multiple local variables
Claus Gittinger <cg@exept.de>
parents: 1427
diff changeset
  2417
    localDefsStart >= stop ifTrue:[^ self].
a85ce0ec6ee4 deleting multiple local variables
Claus Gittinger <cg@exept.de>
parents: 1427
diff changeset
  2418
1445
2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well
Claus Gittinger <cg@exept.de>
parents: 1442
diff changeset
  2419
    (localDefsStart >= start and:[localDefsStop <= stop]) ifTrue:[
2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well
Claus Gittinger <cg@exept.de>
parents: 1442
diff changeset
  2420
        localVarDefPosition := nil.
2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well
Claus Gittinger <cg@exept.de>
parents: 1442
diff changeset
  2421
        ^ self
2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well
Claus Gittinger <cg@exept.de>
parents: 1442
diff changeset
  2422
    ].  
2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well
Claus Gittinger <cg@exept.de>
parents: 1442
diff changeset
  2423
1432
a85ce0ec6ee4 deleting multiple local variables
Claus Gittinger <cg@exept.de>
parents: 1427
diff changeset
  2424
    "/ must update
a85ce0ec6ee4 deleting multiple local variables
Claus Gittinger <cg@exept.de>
parents: 1427
diff changeset
  2425
    (start > localDefsStart and:[stop < localDefsStop]) ifTrue:[
a85ce0ec6ee4 deleting multiple local variables
Claus Gittinger <cg@exept.de>
parents: 1427
diff changeset
  2426
        localVarDefPosition at:2 put:(localDefsStop - (stop-start+1)).
a85ce0ec6ee4 deleting multiple local variables
Claus Gittinger <cg@exept.de>
parents: 1427
diff changeset
  2427
        ^ self.
a85ce0ec6ee4 deleting multiple local variables
Claus Gittinger <cg@exept.de>
parents: 1427
diff changeset
  2428
    ].
a85ce0ec6ee4 deleting multiple local variables
Claus Gittinger <cg@exept.de>
parents: 1427
diff changeset
  2429
    self halt.
a85ce0ec6ee4 deleting multiple local variables
Claus Gittinger <cg@exept.de>
parents: 1427
diff changeset
  2430
    ^ self
1167
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2431
!
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2432
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  2433
correctVariable:varName atPosition:pos1 to:pos2
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2434
    "notify error and correct if user wants to;
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2435
     return #Error if there was no correction 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2436
     or a ParseNode as returned by variable"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2437
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  2438
    |correctIt suggestedNames newName rslt
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  2439
     varNameIsLowercase undeclared boldName|
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2440
877
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  2441
    varNameIsLowercase := (varName at:1) isLowercase.
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  2442
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2443
    correctIt := self undefError:varName position:pos1 to:pos2.
887
e42ea977b85d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 883
diff changeset
  2444
    (correctIt == false or:[correctIt == #continue]) ifTrue:[
877
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  2445
        "/ no correction wanted.
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  2446
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  2447
        "/ lowerCase vars are added to the Undeclared dictionary,
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  2448
        "/ allowing easy search for bad-spots later.
1285
32af9747bf9d error messages
Claus Gittinger <cg@exept.de>
parents: 1282
diff changeset
  2449
        boldName := varName allBold.
877
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  2450
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  2451
        varNameIsLowercase ifTrue:[
1205
1a9cbb122fba checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1204
diff changeset
  2452
            undeclared := Smalltalk at:#Undeclared.
1a9cbb122fba checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1204
diff changeset
  2453
            ((undeclared notNil)
1a9cbb122fba checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1204
diff changeset
  2454
            and:[(undeclared includes:varName asSymbol)]) ifFalse:[ 
1285
32af9747bf9d error messages
Claus Gittinger <cg@exept.de>
parents: 1282
diff changeset
  2455
                self warning:('Adding ''' , boldName , ''' as Undeclared.\\Remember to fix that later.') withCRs position:pos1 to:pos2.
725
326f4fe4a880 only warn once for undeclared vars.
Claus Gittinger <cg@exept.de>
parents: 718
diff changeset
  2456
            ].
644
834399365be9 Highlighting of undefined variables didn't work after first correction
Stefan Vogel <sv@exept.de>
parents: 640
diff changeset
  2457
            ^ self defineAsUndeclaredVariable:varName
877
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  2458
        ].
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  2459
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  2460
        "/ upperCase vars are declared as global
915
d3add8c1bb04 dont rewarn for same missing namespace
Claus Gittinger <cg@exept.de>
parents: 903
diff changeset
  2461
        (warnedUndefVars isNil or:[(warnedUndefVars includes:varName) not]) ifTrue:[
d3add8c1bb04 dont rewarn for same missing namespace
Claus Gittinger <cg@exept.de>
parents: 903
diff changeset
  2462
            (warnedUnknownNamespaces isNil or:[(warnedUnknownNamespaces includes:varName) not]) ifTrue:[
1285
32af9747bf9d error messages
Claus Gittinger <cg@exept.de>
parents: 1282
diff changeset
  2463
                self warning:('adding ''' , boldName , ''' as Global.') withCRs position:pos1 to:pos2.
915
d3add8c1bb04 dont rewarn for same missing namespace
Claus Gittinger <cg@exept.de>
parents: 903
diff changeset
  2464
            ].
d3add8c1bb04 dont rewarn for same missing namespace
Claus Gittinger <cg@exept.de>
parents: 903
diff changeset
  2465
        ].
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  2466
        ^ VariableNode globalNamed:varName
877
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  2467
    ].
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  2468
1491
575056d1dccb users return value from correctableError
penk
parents: 1487
diff changeset
  2469
    correctIt == #Error ifTrue:[
575056d1dccb users return value from correctableError
penk
parents: 1487
diff changeset
  2470
        ^ #Error
575056d1dccb users return value from correctableError
penk
parents: 1487
diff changeset
  2471
    ].
575056d1dccb users return value from correctableError
penk
parents: 1487
diff changeset
  2472
877
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  2473
    correctIt == #declare ifTrue:[
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  2474
        "/ declare it
1295
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2475
        rslt := self askForVariableTypeWhenDeclaringUndefined:varName.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2476
        rslt notNil ifTrue:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2477
            ^ rslt
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2478
        ].
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2479
    ].
1398
eaef898b063e added undefinedVariableNotification
Claus Gittinger <cg@exept.de>
parents: 1394
diff changeset
  2480
    (correctIt isKindOf:ParseNode) ifTrue:[
eaef898b063e added undefinedVariableNotification
Claus Gittinger <cg@exept.de>
parents: 1394
diff changeset
  2481
        ^ correctIt
eaef898b063e added undefinedVariableNotification
Claus Gittinger <cg@exept.de>
parents: 1394
diff changeset
  2482
    ].
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2483
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2484
    suggestedNames := self findBestVariablesFor:varName.
877
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  2485
    suggestedNames isNil ifTrue:[
1285
32af9747bf9d error messages
Claus Gittinger <cg@exept.de>
parents: 1282
diff changeset
  2486
        self information:'No good correction found'.
644
834399365be9 Highlighting of undefined variables didn't work after first correction
Stefan Vogel <sv@exept.de>
parents: 640
diff changeset
  2487
        ^ #Error
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2488
    ].
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2489
1285
32af9747bf9d error messages
Claus Gittinger <cg@exept.de>
parents: 1282
diff changeset
  2490
    newName := self askForCorrection:'Correct Variable to: ' fromList:suggestedNames.
877
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  2491
    newName isNil ifTrue:[^ #Error].
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  2492
"
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  2493
        newName := suggestedNames at:1.
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  2494
        (self confirm:('confirm correction to: ' , newName)) ifFalse:[^ #Error].
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  2495
"
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  2496
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2497
    "
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2498
     tell requestor (i.e. CodeView) about the change
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2499
     this will update what the requestor shows.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2500
    "
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2501
    requestor replaceSelectionBy:newName.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2502
    "
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2503
     get the updated source-string 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2504
     which is needed, when we eventually install the new method
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2505
    "
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2506
    correctedSource := requestor currentSourceCode.
644
834399365be9 Highlighting of undefined variables didn't work after first correction
Stefan Vogel <sv@exept.de>
parents: 640
diff changeset
  2507
    source := (ReadStream on:correctedSource)
1371
de4c37ac12fc code rewritten to be independent of stream zero-base
Claus Gittinger <cg@exept.de>
parents: 1369
diff changeset
  2508
                  position:(source position1Based + newName size - tokenName size).
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2509
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2510
    "redo parse with new value"
1103
b75a71996388 ensure that token follows tomeName & tokenValue
Claus Gittinger <cg@exept.de>
parents: 1100
diff changeset
  2511
    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
  2512
    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
  2513
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
  2514
    "/ 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
  2515
    rslt == #Error ifTrue:[
644
834399365be9 Highlighting of undefined variables didn't work after first correction
Stefan Vogel <sv@exept.de>
parents: 640
diff changeset
  2516
        "/ install as Undeclared:<name>, remember in #undeclared
834399365be9 Highlighting of undefined variables didn't work after first correction
Stefan Vogel <sv@exept.de>
parents: 640
diff changeset
  2517
834399365be9 Highlighting of undefined variables didn't work after first correction
Stefan Vogel <sv@exept.de>
parents: 640
diff changeset
  2518
        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
  2519
    ].
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
  2520
    ^ 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
  2521
644
834399365be9 Highlighting of undefined variables didn't work after first correction
Stefan Vogel <sv@exept.de>
parents: 640
diff changeset
  2522
    "Modified: / 22.1.1998 / 16:34:01 / stefan"
1221
2768cbe3be2b finished remove unused vars;
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
  2523
    "Modified: / 15.11.2001 / 22:56:38 / cg"
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
  2524
!
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
  2525
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
  2526
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
  2527
    "define varName as undeclared variable
629
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  2528
     (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
  2529
     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
  2530
     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
  2531
1206
df5104d45e42 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1205
diff changeset
  2532
    |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
  2533
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
  2534
    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
  2535
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
  2536
    "/ 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
  2537
1206
df5104d45e42 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1205
diff changeset
  2538
    undeclared := Smalltalk at:#Undeclared.
df5104d45e42 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1205
diff changeset
  2539
    undeclared isNil ifTrue:[
df5104d45e42 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1205
diff changeset
  2540
        Smalltalk at:#Undeclared put:(undeclared := IdentitySet new).
df5104d45e42 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1205
diff changeset
  2541
    ].
df5104d45e42 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1205
diff changeset
  2542
    undeclared add:tokenName asSymbol.
1304
ade15708e7c1 undeclared variable handling was broken (to allow reference search)
penk
parents: 1301
diff changeset
  2543
    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
  2544
    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
  2545
    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
  2546
762
66cd2b4f6689 Big BUG: remember original name in usedVars - not Undeclared::xxx
tm
parents: 755
diff changeset
  2547
    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
  2548
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  2549
    ^ 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
  2550
629
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  2551
    "Modified: / 31.10.1997 / 01:16:03 / cg"
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2552
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2553
1167
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2554
deleteDefinitionOf:varName in:defStartPos to:defEndPos
1393
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2555
    "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
  2556
     if the source was '... | foo bar baz |...'
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2557
     deleting the var 'bar' changes the source to '... | foo baz |...'.
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2558
     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
  2559
     trying to remove the whiteSpace around the removed variable also.
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2560
     However, this seems to not always work correctly"
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2561
1445
2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well
Claus Gittinger <cg@exept.de>
parents: 1442
diff changeset
  2562
    |source startSearch pos pos2 nextChar varSlot p p2|
1172
401e669ebaf9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1171
diff changeset
  2563
401e669ebaf9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1171
diff changeset
  2564
    varSlot := methodVars detect:[:var | var name = varName].
401e669ebaf9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1171
diff changeset
  2565
    methodVars removeIdentical:varSlot.
1167
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2566
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2567
    source := requestor currentSourceCode.
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2568
    startSearch := defStartPos+1.
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2569
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2570
    [
1393
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2571
        |prevChar isFirstVar didPassEndOfLine|
1392
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2572
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2573
        "/ search this name's position in the declaration part ...
1167
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2574
        pos := source indexOfSubCollection:varName startingAt:startSearch ifAbsent:0.
1326
Claus Gittinger <cg@exept.de>
parents: 1325
diff changeset
  2575
        (pos == 0 or:[pos >= defEndPos]) ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 1325
diff changeset
  2576
            self error:'should not happen' mayProceed:true.
1167
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2577
            ^ self.
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2578
        ].
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2579
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2580
        pos2 := pos + varName size - 1.
1392
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2581
        pos > 1 ifTrue:[
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2582
            prevChar := source at:pos-1.
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2583
        ].
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2584
        (prevChar isNil or:[prevChar isLetterOrDigit not]) ifTrue:[
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2585
            nextChar := source at:pos2+1.
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2586
            nextChar isLetterOrDigit ifFalse:[
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2587
                "/ halfway intuitive space-removal behavior;
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2588
                "/ if there was a space after/before the |-char,
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2589
                "/ leave it; otherwise remove it.
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2590
                isFirstVar := pos == (defStartPos+1).
1393
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2591
                (source at:pos-1) isSeparator ifTrue:[
1392
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2592
                    pos := pos - 1.
1393
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2593
                    [ (source at:pos-1) isSeparator] whileTrue:[
1392
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2594
                        pos := pos - 1.
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2595
                    ].
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2596
                    (source at:pos-1) == $| ifTrue:[
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2597
                        "/ there was a space before - leave it
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2598
                        pos := pos + 1.
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2599
                        isFirstVar := true.
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2600
                    ]
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2601
                ].
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2602
1393
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2603
                (source at:pos2+1) isSeparator ifTrue:[
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2604
                    didPassEndOfLine := (source at:pos2+1) == Character cr.
1392
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2605
                    pos2 := pos2 + 1.
1393
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2606
                    [ (source at:pos2+1) isSeparator] whileTrue:[
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2607
                        (source at:pos2+1) == Character cr ifTrue:[ didPassEndOfLine := true ].
1392
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2608
                        pos2 := pos2 + 1.
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2609
                    ].
1393
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2610
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2611
                    didPassEndOfLine ifFalse:[    
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2612
                        (source at:pos2+1) == $" ifTrue:[
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2613
                            "/ comment follows - assume it belongs to the removed variable
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2614
                            pos2 := pos2 + 1.
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2615
                            (source at:pos2+1) == $/ ifTrue:[
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2616
                                "/ EOL comment
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2617
                                [ (source at:pos2+1) == Character cr ] whileFalse:[
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2618
                                    pos2 := pos2 + 1.
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2619
                                ].
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2620
                                pos2 := pos2 + 1.
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2621
                            ] ifFalse:[
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2622
                                "/ regular comment
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2623
                                [ (source at:pos2+1) == $" ] whileFalse:[
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2624
                                    pos2 := pos2 + 1.
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2625
                                ].
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2626
                                pos2 := pos2 + 1.
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2627
                            ].
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2628
                            [ (source at:pos2+1) isSeparator] whileTrue:[
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2629
                                (source at:pos2+1) == Character cr ifTrue:[ didPassEndOfLine := true ].
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2630
                                pos2 := pos2 + 1.
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2631
                            ].
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2632
                        ]
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2633
                    ].
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2634
1392
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2635
                    (source at:pos2+1) == $| ifTrue:[
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2636
                        "/ there was a space after - leave it
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2637
                        pos2 := pos2 - 1.
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2638
                    ] ifFalse:[
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2639
                        isFirstVar ifFalse:[
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2640
                            pos2 := pos2 - 1.
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2641
                        ]
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2642
                    ].
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2643
                ].
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2644
1445
2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well
Claus Gittinger <cg@exept.de>
parents: 1442
diff changeset
  2645
                "/ if this was the last, remove empty var-declaration completely
2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well
Claus Gittinger <cg@exept.de>
parents: 1442
diff changeset
  2646
                ((source at:pos-1) == $|
2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well
Claus Gittinger <cg@exept.de>
parents: 1442
diff changeset
  2647
                and:[ (source at:pos2+1) == $| ]) ifTrue:[
2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well
Claus Gittinger <cg@exept.de>
parents: 1442
diff changeset
  2648
                    pos := pos - 1.
2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well
Claus Gittinger <cg@exept.de>
parents: 1442
diff changeset
  2649
                    pos2 := pos2 + 1.
2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well
Claus Gittinger <cg@exept.de>
parents: 1442
diff changeset
  2650
                    "/ see if that gives us an empty line
2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well
Claus Gittinger <cg@exept.de>
parents: 1442
diff changeset
  2651
                    p := pos.
2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well
Claus Gittinger <cg@exept.de>
parents: 1442
diff changeset
  2652
                    p2 := pos2.
2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well
Claus Gittinger <cg@exept.de>
parents: 1442
diff changeset
  2653
2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well
Claus Gittinger <cg@exept.de>
parents: 1442
diff changeset
  2654
                    [(source at:p-1) == Character space] whileTrue:[ p := p - 1 ].
2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well
Claus Gittinger <cg@exept.de>
parents: 1442
diff changeset
  2655
                    [(source at:p2+1) == Character space] whileTrue:[ p2 := p2 + 1 ].
2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well
Claus Gittinger <cg@exept.de>
parents: 1442
diff changeset
  2656
                    ((source at:p-1) == Character cr and:[ (source at:p2+1) == Character cr]) ifTrue:[
2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well
Claus Gittinger <cg@exept.de>
parents: 1442
diff changeset
  2657
                        pos := p-1.
2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well
Claus Gittinger <cg@exept.de>
parents: 1442
diff changeset
  2658
                        pos2 := p2.
2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well
Claus Gittinger <cg@exept.de>
parents: 1442
diff changeset
  2659
                        (((source at:pos-1) == Character cr) and:[((source at:pos-2) == Character cr)]) 
2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well
Claus Gittinger <cg@exept.de>
parents: 1442
diff changeset
  2660
                            ifTrue:[ pos := pos - 1 ]
2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well
Claus Gittinger <cg@exept.de>
parents: 1442
diff changeset
  2661
                            ifFalse:[ 
2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well
Claus Gittinger <cg@exept.de>
parents: 1442
diff changeset
  2662
                                (((source at:pos2+1) == Character cr) and:[((source at:pos2+2) == Character cr)]) ifTrue:[ 
2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well
Claus Gittinger <cg@exept.de>
parents: 1442
diff changeset
  2663
                                    pos2 := pos2 + 1 ]].
2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well
Claus Gittinger <cg@exept.de>
parents: 1442
diff changeset
  2664
                    ].
2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well
Claus Gittinger <cg@exept.de>
parents: 1442
diff changeset
  2665
                ].
2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well
Claus Gittinger <cg@exept.de>
parents: 1442
diff changeset
  2666
1392
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2667
                self correctSourceByDeletingFrom:pos to:pos2.
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2668
                ^ self.
1167
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2669
            ].
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2670
        ].
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2671
        startSearch := pos2 + 1.
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2672
    ] loop
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2673
!
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2674
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2675
findBestSelectorsFor:aString
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2676
    "collect known selectors with their spelling distances to aString;
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2677
     return the 10 best suggestions"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2678
1187
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  2679
    ^ self class findBestSelectorsFor:aString 
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2680
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2681
    "Time millisecondsToRun:[Parser new findBestSelectorsFor:'foo']"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2682
    "Parser new findBestSelectorsFor:'findBestSel'"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2683
    "Parser new findBestSelectorsFor:'fildBestSelectrFr'"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2684
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2685
1022
32bc5fc06687 added selector correction.
Claus Gittinger <cg@exept.de>
parents: 1020
diff changeset
  2686
findBestSelectorsFor:aString in:aClassOrNil
32bc5fc06687 added selector correction.
Claus Gittinger <cg@exept.de>
parents: 1020
diff changeset
  2687
    "collect known selectors with their spelling distances to aString;
32bc5fc06687 added selector correction.
Claus Gittinger <cg@exept.de>
parents: 1020
diff changeset
  2688
     return the 10 best suggestions. If the argument, aClassOrNil is not nil,
32bc5fc06687 added selector correction.
Claus Gittinger <cg@exept.de>
parents: 1020
diff changeset
  2689
     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
  2690
     corrections from that hierarchy only)"
32bc5fc06687 added selector correction.
Claus Gittinger <cg@exept.de>
parents: 1020
diff changeset
  2691
1187
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  2692
    ^ self class findBestSelectorsFor:aString in:aClassOrNil
1022
32bc5fc06687 added selector correction.
Claus Gittinger <cg@exept.de>
parents: 1020
diff changeset
  2693
!
32bc5fc06687 added selector correction.
Claus Gittinger <cg@exept.de>
parents: 1020
diff changeset
  2694
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2695
findBestVariablesFor:aString
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2696
    "collect known variables with their spelling distances to aString;
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2697
     return the 10 best suggestions"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2698
1200
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2699
    |names dists searchBlock args vars "aClass className baseClass" 
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2700
     n instVarNames classVarNames spellAgainstAction|
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2701
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2702
    names := OrderedCollection new.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2703
    dists := OrderedCollection new.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2704
1200
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2705
    spellAgainstAction := 
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2706
            [:aVarNode |
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2707
                |varName dist|
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2708
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2709
                varName := aVarNode name.
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2710
                names add:varName.
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2711
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2712
                dist := aString spellAgainst:varName.
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2713
                (aString startsWith:varName) ifTrue:[
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2714
                    dist := dist + (aString size * 10).
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2715
                ].
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2716
                dists add:dist
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2717
            ].
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2718
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2719
    "block arguments"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2720
    searchBlock := currentBlock.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2721
    [searchBlock notNil] whileTrue:[
989
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2722
        args := searchBlock arguments.
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2723
        args notNil ifTrue:[
1200
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2724
            args do:spellAgainstAction
989
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2725
        ].
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2726
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2727
        vars := searchBlock variables.
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2728
        vars notNil ifTrue:[
1200
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2729
            vars do:spellAgainstAction
989
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2730
        ].
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2731
        searchBlock := searchBlock home
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2732
    ].
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2733
1200
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2734
    spellAgainstAction := 
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2735
        [:givenName |
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2736
            |dist|
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2737
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2738
            names add:givenName.
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2739
            dist := aString spellAgainst:givenName.
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2740
            (aString startsWith:givenName) ifTrue:[
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2741
                dist := dist + (aString size * 10).
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2742
            ].
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2743
            dists add:dist
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2744
        ].
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2745
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2746
    "method-variables"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2747
    methodVars notNil ifTrue:[
1200
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2748
        methodVarNames do:spellAgainstAction
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2749
    ].
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2750
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2751
    "method-arguments"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2752
    methodArgs notNil ifTrue:[
1200
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2753
        methodArgNames do:spellAgainstAction
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2754
    ].
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2755
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2756
    "instance-variables"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2757
    classToCompileFor notNil ifTrue:[
1200
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2758
        self classesInstVarNames do:spellAgainstAction
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2759
    ].
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2760
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2761
    "class-variables"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2762
    classToCompileFor notNil ifTrue:[
1200
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2763
        self classesClassVarNames do:spellAgainstAction.
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2764
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2765
"/        aClass := classToCompileFor.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2766
"/        aClass isMeta ifTrue:[
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2767
"/            className := aClass name.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2768
"/            className := className copyWithoutLast:5.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2769
"/            baseClass := Smalltalk at:(className asSymbol).
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2770
"/            baseClass notNil ifTrue:[
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2771
"/                aClass := baseClass
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2772
"/            ]
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2773
"/        ].
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2774
"/        [aClass notNil] whileTrue:[
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2775
"/            (aClass classVarNames) do:[:classVarName |
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2776
"/                names add:classVarName.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2777
"/                dists add:(aString spellAgainst: "levenshteinTo:"classVarName)
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2778
"/            ].
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2779
"/            aClass := aClass superclass
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2780
"/        ]
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2781
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2782
    ].
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2783
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2784
    "globals"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2785
    Smalltalk keysDo:[:aKey |
1200
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2786
        |globalVarName|
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2787
989
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2788
        globalVarName := aKey asString.
1200
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2789
989
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2790
        "only compare strings where length is about right"
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2791
        ((globalVarName size - aString size) abs < 3) ifTrue:[
1200
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2792
            spellAgainstAction value:globalVarName.
989
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2793
        ]
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2794
    ].
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2795
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2796
    "misc"
1200
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2797
    #('self' 'super' 'nil' 'thisContext') do:spellAgainstAction.
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2798
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2799
    (dists size ~~ 0) ifTrue:[
989
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2800
        dists sortWith:names.
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2801
        dists := dists reverse.             
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2802
        names := names reverse.
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2803
        n := names size min:10.
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2804
        names := names copyTo:n.
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2805
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2806
        "if it starts with a lower case character, add all local & instvar names"
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2807
        (aString at:1) isLowercase ifTrue:[
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2808
            methodVarNames size > 0 ifTrue:[
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2809
                names add:'---- method locals ----'.
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2810
                methodVarNames asSortedCollection do:[:methodVarName |
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2811
                    names add:methodVarName.
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2812
                ].
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2813
            ].
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2814
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2815
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2816
            methodArgs size > 0 ifTrue:[
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2817
                names add:'---- method arguments ----'.
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2818
                methodArgNames asSortedCollection do:[:methodArgName |
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2819
                    names add:methodArgName.
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2820
                ]
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2821
            ].
1078
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2822
            classToCompileFor notNil ifTrue:[
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2823
                instVarNames := OrderedCollection new.
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2824
                self classesInstVarNames asSortedCollection do:[:instVarName |
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2825
                    (instVarNames includes:instVarName) ifFalse:[
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2826
                        instVarNames add:instVarName.
989
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2827
                    ]
1078
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2828
                ].
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2829
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2830
                instVarNames size > 0 ifTrue:[
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2831
                    (classToCompileFor notNil and:[classToCompileFor isMeta]) ifTrue:[
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2832
                        names add:'---- class instance variables ----'.
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2833
                    ] ifFalse:[
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2834
                        names add:'---- instance variables ----'.
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2835
                    ].
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2836
                    instVarNames do:[:instVarName |
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2837
                        (names includes:instVarName) ifFalse:[
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2838
                            names add:instVarName.
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2839
                        ]
989
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2840
                    ]
1078
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2841
                ].
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2842
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2843
                classVarNames := OrderedCollection new.
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2844
                self classesClassVarNames asSortedCollection do:[:classVarName |
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2845
                    (classVarNames includes:classVarName) ifFalse:[
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2846
                        classVarNames add:classVarName.
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2847
                    ]
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2848
                ].
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2849
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2850
                classVarNames size > 0 ifTrue:[
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2851
                    names add:'---- class variables ----'.
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2852
                    classVarNames do:[:classVarName |
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2853
                        (names includes:classVarName) ifFalse:[
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2854
                            names add:classVarName.
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2855
                        ]
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2856
                    ]
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2857
                ].
989
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2858
            ].
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2859
        ].
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2860
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2861
        ^ names
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2862
    ].
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2863
    ^ nil
450
8ad79af3e91c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 448
diff changeset
  2864
480
e4ac7e62ca9a better block-var name detection in debugger
Claus Gittinger <cg@exept.de>
parents: 473
diff changeset
  2865
    "Modified: 11.1.1997 / 21:28:28 / cg"
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2866
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2867
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2868
selectorCheck:aSelectorString for:receiver position:pos1 to:pos2
1439
0fddfcdca37b selector check improved
Claus Gittinger <cg@exept.de>
parents: 1437
diff changeset
  2869
    ^ self selectorCheck:aSelectorString for:receiver positions:(Array with:(pos1 to:pos2)).
0fddfcdca37b selector check improved
Claus Gittinger <cg@exept.de>
parents: 1437
diff changeset
  2870
!
0fddfcdca37b selector check improved
Claus Gittinger <cg@exept.de>
parents: 1437
diff changeset
  2871
0fddfcdca37b selector check improved
Claus Gittinger <cg@exept.de>
parents: 1437
diff changeset
  2872
selectorCheck:aSelectorString for:receiver positions:posVector
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2873
    "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
  2874
     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
  2875
     Simple, but catches many typos"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2876
1499
69439abfdb93 Warn when using subclassResponsibility or shouldNotImplememt methods
Stefan Vogel <sv@exept.de>
parents: 1495
diff changeset
  2877
    |isSyntaxHighlighter err selectorSymbol rec names recType selClass newSelector nm nowhereImplemented 
69439abfdb93 Warn when using subclassResponsibility or shouldNotImplememt methods
Stefan Vogel <sv@exept.de>
parents: 1495
diff changeset
  2878
     pos1 pos2 canDefine|
69439abfdb93 Warn when using subclassResponsibility or shouldNotImplememt methods
Stefan Vogel <sv@exept.de>
parents: 1495
diff changeset
  2879
69439abfdb93 Warn when using subclassResponsibility or shouldNotImplememt methods
Stefan Vogel <sv@exept.de>
parents: 1495
diff changeset
  2880
    isSyntaxHighlighter := self isSyntaxHighlighter.
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2881
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2882
    "
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2883
     if compiling lazy, or errors are to be ignored, or there
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2884
     is no requestor, do not check
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2885
    "
1022
32bc5fc06687 added selector correction.
Claus Gittinger <cg@exept.de>
parents: 1020
diff changeset
  2886
    (LazyCompilation == true) ifTrue:[^ aSelectorString].
1499
69439abfdb93 Warn when using subclassResponsibility or shouldNotImplememt methods
Stefan Vogel <sv@exept.de>
parents: 1495
diff changeset
  2887
    isSyntaxHighlighter ifFalse:[
1022
32bc5fc06687 added selector correction.
Claus Gittinger <cg@exept.de>
parents: 1020
diff changeset
  2888
        (ignoreErrors or:[ignoreWarnings]) ifTrue:[^ aSelectorString].
32bc5fc06687 added selector correction.
Claus Gittinger <cg@exept.de>
parents: 1020
diff changeset
  2889
        (requestor isNil or:[requestor isStream]) ifTrue:[^ aSelectorString].
977
c1afbaf48a23 remember used & modified local vars;
Claus Gittinger <cg@exept.de>
parents: 971
diff changeset
  2890
    ].
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2891
1499
69439abfdb93 Warn when using subclassResponsibility or shouldNotImplememt methods
Stefan Vogel <sv@exept.de>
parents: 1495
diff changeset
  2892
    canDefine := false.
69439abfdb93 Warn when using subclassResponsibility or shouldNotImplememt methods
Stefan Vogel <sv@exept.de>
parents: 1495
diff changeset
  2893
69439abfdb93 Warn when using subclassResponsibility or shouldNotImplememt methods
Stefan Vogel <sv@exept.de>
parents: 1495
diff changeset
  2894
    pos1 := posVector first start.
69439abfdb93 Warn when using subclassResponsibility or shouldNotImplememt methods
Stefan Vogel <sv@exept.de>
parents: 1495
diff changeset
  2895
    pos2 := posVector last stop.
69439abfdb93 Warn when using subclassResponsibility or shouldNotImplememt methods
Stefan Vogel <sv@exept.de>
parents: 1495
diff changeset
  2896
1301
677ca6e364d4 + warnPossible incompatibility
Claus Gittinger <cg@exept.de>
parents: 1299
diff changeset
  2897
    aSelectorString = '#' ifTrue:[
677ca6e364d4 + warnPossible incompatibility
Claus Gittinger <cg@exept.de>
parents: 1299
diff changeset
  2898
        self warnPossibleIncompatibility:'''#'' might not be a valid selector in other smalltalk systems' position:pos1 to:pos2.
677ca6e364d4 + warnPossible incompatibility
Claus Gittinger <cg@exept.de>
parents: 1299
diff changeset
  2899
    ].
677ca6e364d4 + warnPossible incompatibility
Claus Gittinger <cg@exept.de>
parents: 1299
diff changeset
  2900
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
     check if the selector is known at all
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2903
     - if not, it cannot be understood
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2904
    "
1327
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2905
    nowhereImplemented := false.
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2906
1499
69439abfdb93 Warn when using subclassResponsibility or shouldNotImplememt methods
Stefan Vogel <sv@exept.de>
parents: 1495
diff changeset
  2907
    selectorSymbol := aSelectorString asSymbolIfInterned.
69439abfdb93 Warn when using subclassResponsibility or shouldNotImplememt methods
Stefan Vogel <sv@exept.de>
parents: 1495
diff changeset
  2908
    selectorSymbol isNil ifTrue:[
1327
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2909
        nowhereImplemented := true.
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2910
"/    ] ifFalse:[
1499
69439abfdb93 Warn when using subclassResponsibility or shouldNotImplememt methods
Stefan Vogel <sv@exept.de>
parents: 1495
diff changeset
  2911
"/        nowhereImplemented := (self implementedInAnyClass:selectorSymbol) not.
1327
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2912
    ].
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2913
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2914
    nowhereImplemented ifTrue:[
1158
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2915
        err := ' is currently nowhere implemented'.
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2916
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2917
        "
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2918
         if the selector has the name of a variable, use another message
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2919
        "
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2920
        ((methodVarNames notNil and:[methodVarNames includes:aSelectorString])
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2921
          or:[(methodArgNames notNil and:[methodArgNames includes:aSelectorString])
1499
69439abfdb93 Warn when using subclassResponsibility or shouldNotImplememt methods
Stefan Vogel <sv@exept.de>
parents: 1495
diff changeset
  2922
          or:[classToCompileFor notNil
69439abfdb93 Warn when using subclassResponsibility or shouldNotImplememt methods
Stefan Vogel <sv@exept.de>
parents: 1495
diff changeset
  2923
              and:[((names := self classesInstVarNames) notNil and:[names includes:aSelectorString])
69439abfdb93 Warn when using subclassResponsibility or shouldNotImplememt methods
Stefan Vogel <sv@exept.de>
parents: 1495
diff changeset
  2924
                   or:[((names := self classesClassInstVarNames) notNil and:[names includes:aSelectorString])
69439abfdb93 Warn when using subclassResponsibility or shouldNotImplememt methods
Stefan Vogel <sv@exept.de>
parents: 1495
diff changeset
  2925
                   or:[(names := self classesClassVarNames) notNil and:[names includes:aSelectorString]
69439abfdb93 Warn when using subclassResponsibility or shouldNotImplememt methods
Stefan Vogel <sv@exept.de>
parents: 1495
diff changeset
  2926
        ]]]]]) ifTrue:[
1158
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2927
            err := ' is currently nowhere implemented ..
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2928
.. but a variable with that name is defined. 
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2929
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2930
Missing ''.'' after the previous expression 
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2931
or missing keyword/receiver before that word ?'.
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2932
        ].
1327
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2933
    ] ifFalse:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2934
        receiver notNil ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2935
            selClass := self typeOfNode:receiver.
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2936
            selClass notNil ifTrue:[
1499
69439abfdb93 Warn when using subclassResponsibility or shouldNotImplememt methods
Stefan Vogel <sv@exept.de>
parents: 1495
diff changeset
  2937
                "this could be performed if selClass isNil, but it is too slow"
1507
bd29313cd901 selector check w.r.t. subclassResponsibility
penk
parents: 1499
diff changeset
  2938
                err := self checkSelector:selectorSymbol for:receiver inClass:selClass.
1327
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2939
            ].
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2940
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  2941
            (receiver isConstant or:[receiver isBlock]) ifTrue:[
1158
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2942
                err notNil ifTrue:[
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  2943
                    err := err, ' in ' , selClass name , ' or any of its superclasses'.
1158
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2944
                ].
1327
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2945
            ] ifFalse:[(((recType := receiver type) == #GlobalVariable)
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2946
                        or:[recType == #PrivateClass]) ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2947
                rec := receiver evaluate. 
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  2948
                "/ dont check autoloaded classes - it may work after loading
1327
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2949
                (rec isNil 
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2950
                 or:[rec isBehavior and:[rec isLoaded not]]) ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2951
                    ^ aSelectorString
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2952
                ].
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2953
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2954
                err notNil ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2955
                    (rec isBehavior
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2956
                     and:[rec theNonMetaclass name = receiver name]) ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2957
                        err := err, ' in ' , rec theNonMetaclass name.
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2958
                    ] ifFalse:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2959
                        err := err, ' in currently assigned value (is currently ' , rec classNameWithArticle , ')'.
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2960
                    ]
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2961
                ].
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2962
            ] ifFalse:[receiver isSuper ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2963
                receiver isHere ifFalse:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2964
                    err notNil ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2965
                        err := err, ' in superclass chain'.
1158
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2966
                    ].
1327
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2967
                ] ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2968
                    err notNil ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2969
                        err := err, ' in this class or superclass chain'.
1203
2bd6633eced0 better error message for 'class foo', where foo is implemented in the instance.
Claus Gittinger <cg@exept.de>
parents: 1202
diff changeset
  2970
                    ].
1327
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2971
                ]
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2972
            ] ifFalse:[receiver isSelf ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2973
                err notNil ifTrue:[ 
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2974
                    |subErr|
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2975
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2976
                    "/ understood by all subclasses ?
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2977
                    classToCompileFor allSubclassesDo:[:eachSubclass |
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2978
                        subErr isNil ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2979
                            selClass := eachSubclass.
1507
bd29313cd901 selector check w.r.t. subclassResponsibility
penk
parents: 1499
diff changeset
  2980
                            subErr := self checkSelector:selectorSymbol for:receiver inClass:selClass.     
1327
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2981
                        ].
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2982
                    ].   
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2983
                    subErr notNil ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2984
                        err := subErr, ' in this class, superclass chain or all subclasses'
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2985
                    ] ifFalse:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2986
                        err := err, ' in this class or superclass chain'.
1440
7084ae99ced7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1439
diff changeset
  2987
                    ].
7084ae99ced7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1439
diff changeset
  2988
                    canDefine := true.
1327
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2989
                ].
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2990
            ] ifFalse:[(receiver isUnaryMessage
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2991
                        and:[receiver selector == #class
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2992
                        and:[receiver receiver isSelf]]) ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2993
                "its a message to self class - can check this too ..."
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2994
                err notNil ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2995
                    classToCompileFor isMeta ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2996
                        err := err, ' for the classes class'.
1507
bd29313cd901 selector check w.r.t. subclassResponsibility
penk
parents: 1499
diff changeset
  2997
                        (self checkSelector:selectorSymbol for:receiver inClass:classToCompileFor) isNil ifTrue:[
1327
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2998
                            err := err, '...\\...but its implemented for the class itself. You probably do not want the #class message here.'.
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2999
                            err := err withCRs.
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3000
                        ].
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3001
                    ] ifFalse:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3002
                        err := err, ' for my class'.
1507
bd29313cd901 selector check w.r.t. subclassResponsibility
penk
parents: 1499
diff changeset
  3003
                        (self checkSelector:selectorSymbol for:receiver inClass:classToCompileFor) isNil ifTrue:[
1327
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3004
                            err := err, '...\\...but its implemented for instances. You may want to remove the #class message.'.
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3005
                            err := err withCRs.
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3006
                        ].
1203
2bd6633eced0 better error message for 'class foo', where foo is implemented in the instance.
Claus Gittinger <cg@exept.de>
parents: 1202
diff changeset
  3007
                    ].
2bd6633eced0 better error message for 'class foo', where foo is implemented in the instance.
Claus Gittinger <cg@exept.de>
parents: 1202
diff changeset
  3008
                ].
1327
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3009
            ] ifFalse:[(receiver isMethodVariable and:[receiver token type isNil]) ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3010
                "if it is an uninitialized variable ..."
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3011
                ((modifiedLocalVars isNil or:[(modifiedLocalVars includes:receiver name) not])
1441
7ebe4e486524 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1440
diff changeset
  3012
                 and:[hasPrimitiveCode not
1499
69439abfdb93 Warn when using subclassResponsibility or shouldNotImplememt methods
Stefan Vogel <sv@exept.de>
parents: 1495
diff changeset
  3013
                 and:[currentBlock isNil
1327
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3014
                 and:[alreadyWarnedUninitializedVars isNil 
1442
1986d3b0513d selectorCheck
Claus Gittinger <cg@exept.de>
parents: 1441
diff changeset
  3015
                      or:[(alreadyWarnedUninitializedVars includes:receiver name) not]]]]) 
1327
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3016
                ifTrue:[
1499
69439abfdb93 Warn when using subclassResponsibility or shouldNotImplememt methods
Stefan Vogel <sv@exept.de>
parents: 1495
diff changeset
  3017
                    ((#(at: at:put: basicAt: basicAt:put:) includes:selectorSymbol) 
69439abfdb93 Warn when using subclassResponsibility or shouldNotImplememt methods
Stefan Vogel <sv@exept.de>
parents: 1495
diff changeset
  3018
                     or:[(nil respondsTo:selectorSymbol) not])ifTrue:[
1327
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3019
                        "/ avoid trouble in miniTalk
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3020
                        "/ during bootstrap
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3021
                        nm := receiver name.    
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3022
                        Text notNil ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3023
                            nm := nm allItalic
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3024
                        ].
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3025
                        err := 'sent to possibly uninitialized variable ''' , nm , ''' here (?)'.
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3026
                        alreadyWarnedUninitializedVars isNil ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3027
                            alreadyWarnedUninitializedVars := Set new
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3028
                        ].
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3029
                        alreadyWarnedUninitializedVars add:receiver name
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3030
                    ]
705
e22927413fe5 allow access to class-instVars from doIts;
Claus Gittinger <cg@exept.de>
parents: 694
diff changeset
  3031
                ]
1327
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3032
            ] ifFalse:[
1499
69439abfdb93 Warn when using subclassResponsibility or shouldNotImplememt methods
Stefan Vogel <sv@exept.de>
parents: 1495
diff changeset
  3033
                (err notNil and:[selClass notNil]) ifTrue:[
1327
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3034
                    err := err, ' (message to ' , selClass nameWithArticle , ')'.
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3035
                ].
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  3036
            ]]]]]].
1327
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3037
        ]
1158
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  3038
    ].
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  3039
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  3040
    err notNil ifTrue:[
705
e22927413fe5 allow access to class-instVars from doIts;
Claus Gittinger <cg@exept.de>
parents: 694
diff changeset
  3041
        (receiver notNil
e22927413fe5 allow access to class-instVars from doIts;
Claus Gittinger <cg@exept.de>
parents: 694
diff changeset
  3042
        and:[((recType := receiver type) == #GlobalVariable)
e22927413fe5 allow access to class-instVars from doIts;
Claus Gittinger <cg@exept.de>
parents: 694
diff changeset
  3043
             or:[recType == #PrivateClass]]) ifTrue:[
e22927413fe5 allow access to class-instVars from doIts;
Claus Gittinger <cg@exept.de>
parents: 694
diff changeset
  3044
            "/ dont check autoloaded classes 
e22927413fe5 allow access to class-instVars from doIts;
Claus Gittinger <cg@exept.de>
parents: 694
diff changeset
  3045
            "/ - it may work after loading
e22927413fe5 allow access to class-instVars from doIts;
Claus Gittinger <cg@exept.de>
parents: 694
diff changeset
  3046
e22927413fe5 allow access to class-instVars from doIts;
Claus Gittinger <cg@exept.de>
parents: 694
diff changeset
  3047
            rec := receiver evaluate. 
e22927413fe5 allow access to class-instVars from doIts;
Claus Gittinger <cg@exept.de>
parents: 694
diff changeset
  3048
            (rec notNil 
e22927413fe5 allow access to class-instVars from doIts;
Claus Gittinger <cg@exept.de>
parents: 694
diff changeset
  3049
             and:[rec isBehavior
e22927413fe5 allow access to class-instVars from doIts;
Claus Gittinger <cg@exept.de>
parents: 694
diff changeset
  3050
             and:[rec isLoaded not]]) ifTrue:[
1022
32bc5fc06687 added selector correction.
Claus Gittinger <cg@exept.de>
parents: 1020
diff changeset
  3051
                ^ aSelectorString
705
e22927413fe5 allow access to class-instVars from doIts;
Claus Gittinger <cg@exept.de>
parents: 694
diff changeset
  3052
            ].
e22927413fe5 allow access to class-instVars from doIts;
Claus Gittinger <cg@exept.de>
parents: 694
diff changeset
  3053
            rec class == UndefinedVariable ifTrue:[
e22927413fe5 allow access to class-instVars from doIts;
Claus Gittinger <cg@exept.de>
parents: 694
diff changeset
  3054
                "/ dont check undefined vars;
e22927413fe5 allow access to class-instVars from doIts;
Claus Gittinger <cg@exept.de>
parents: 694
diff changeset
  3055
                "/ it may work after loading/defining
1022
32bc5fc06687 added selector correction.
Claus Gittinger <cg@exept.de>
parents: 1020
diff changeset
  3056
                ^ aSelectorString
705
e22927413fe5 allow access to class-instVars from doIts;
Claus Gittinger <cg@exept.de>
parents: 694
diff changeset
  3057
            ].
e22927413fe5 allow access to class-instVars from doIts;
Claus Gittinger <cg@exept.de>
parents: 694
diff changeset
  3058
        ].
1158
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  3059
        Text notNil ifTrue:[
1499
69439abfdb93 Warn when using subclassResponsibility or shouldNotImplememt methods
Stefan Vogel <sv@exept.de>
parents: 1495
diff changeset
  3060
            err := '"' , aSelectorString allBold, '" ', err
1052
0a1e613468f5 avoid trouble if Text class is not present (in mini-image)
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  3061
        ] ifFalse:[
1158
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  3062
            err := aSelectorString , ' ', err
1052
0a1e613468f5 avoid trouble if Text class is not present (in mini-image)
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  3063
        ].
1157
122be9201878 selectorCheck (do not complain for new selector being recursively invoked)
Claus Gittinger <cg@exept.de>
parents: 1156
diff changeset
  3064
        "/ if its a recursive invocation of just that selector, do not complain
122be9201878 selectorCheck (do not complain for new selector being recursively invoked)
Claus Gittinger <cg@exept.de>
parents: 1156
diff changeset
  3065
        (selector = aSelectorString and:[ receiver isSelf]) ifTrue:[
122be9201878 selectorCheck (do not complain for new selector being recursively invoked)
Claus Gittinger <cg@exept.de>
parents: 1156
diff changeset
  3066
            ^ aSelectorString
122be9201878 selectorCheck (do not complain for new selector being recursively invoked)
Claus Gittinger <cg@exept.de>
parents: 1156
diff changeset
  3067
        ].
1499
69439abfdb93 Warn when using subclassResponsibility or shouldNotImplememt methods
Stefan Vogel <sv@exept.de>
parents: 1495
diff changeset
  3068
        isSyntaxHighlighter ifTrue:[
1439
0fddfcdca37b selector check improved
Claus Gittinger <cg@exept.de>
parents: 1437
diff changeset
  3069
            posVector do:[:p |
0fddfcdca37b selector check improved
Claus Gittinger <cg@exept.de>
parents: 1437
diff changeset
  3070
                self markUnknownIdentifierFrom:(p start) to:(p stop).
0fddfcdca37b selector check improved
Claus Gittinger <cg@exept.de>
parents: 1437
diff changeset
  3071
            ].
0fddfcdca37b selector check improved
Claus Gittinger <cg@exept.de>
parents: 1437
diff changeset
  3072
        ].
1440
7084ae99ced7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1439
diff changeset
  3073
        err := err , '\\This is a warning from the compiler - the code has not yet been executed/compiled.'.
1022
32bc5fc06687 added selector correction.
Claus Gittinger <cg@exept.de>
parents: 1020
diff changeset
  3074
        newSelector := self correctSelector:aSelectorString 
1439
0fddfcdca37b selector check improved
Claus Gittinger <cg@exept.de>
parents: 1437
diff changeset
  3075
                            message:err withCRs positions:posVector in:selClass for:receiver.
1022
32bc5fc06687 added selector correction.
Claus Gittinger <cg@exept.de>
parents: 1020
diff changeset
  3076
"/        self warning:('#' , aSelectorString , '\\' , err) withCRs position:pos1 to:pos2.
32bc5fc06687 added selector correction.
Claus Gittinger <cg@exept.de>
parents: 1020
diff changeset
  3077
        ^ newSelector.
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3078
    ].
1022
32bc5fc06687 added selector correction.
Claus Gittinger <cg@exept.de>
parents: 1020
diff changeset
  3079
    ^ aSelectorString
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3080
705
e22927413fe5 allow access to class-instVars from doIts;
Claus Gittinger <cg@exept.de>
parents: 694
diff changeset
  3081
    "Modified: / 5.9.1995 / 17:02:11 / claus"
1022
32bc5fc06687 added selector correction.
Claus Gittinger <cg@exept.de>
parents: 1020
diff changeset
  3082
    "Modified: / 19.1.2000 / 16:34:03 / cg"
1327
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3083
!
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3084
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3085
typeOfNode:aNode
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3086
    |nodeVal nodeType|
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3087
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3088
    aNode isConstant ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3089
        "
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3090
         if the receiver is a constant, we can check if it responds
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3091
         to this selector
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3092
        "
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3093
        nodeVal := aNode evaluate.
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3094
        ^ nodeVal class.
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3095
    ].
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3096
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3097
    "/ this should help with typos, sending #ifTrue to blocks ...
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3098
    aNode isBlock ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3099
        ^ Block
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3100
    ].
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3101
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3102
    (((nodeType := aNode type) == #GlobalVariable)
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3103
    or:[nodeType == #PrivateClass]) ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3104
        "if the receiver is a global, we check it too ..."
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3105
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3106
        nodeVal := aNode evaluate. 
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3107
        "/ dont check autoloaded classes 
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3108
        "/ - it may work after loading
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3109
        (nodeVal isNil 
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3110
         or:[nodeVal isBehavior and:[nodeVal isLoaded not]]) ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3111
            ^ nil
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3112
        ].
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3113
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3114
        ^ nodeVal class.
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3115
    ].
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3116
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3117
    aNode isSuper ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3118
        "if its a super- or here-send, we can do more checking"
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3119
        aNode isHere ifFalse:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3120
            ^ classToCompileFor superclass ? UndefinedObject.
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3121
        ].
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3122
        ^ classToCompileFor.
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3123
    ].
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3124
    aNode isSelf ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3125
        ^ classToCompileFor.
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3126
    ].
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3127
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3128
    (aNode isUnaryMessage) ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3129
        (aNode selector == #class) ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3130
            aNode receiver isSelf ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3131
                "its a message to self class - can check this too ..."
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3132
                ^ classToCompileFor class.
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3133
            ].
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3134
        ].
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3135
        ( #(#'isNil' #'notNil') includes:aNode selector) ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3136
            ^ Boolean.
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3137
        ]
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3138
    ].
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3139
    aNode isBinaryMessage ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3140
        ( #(#'<' #'>' #'>=' #'<=' #'=' #'==' #'~=' #'~~') includes:aNode selector) ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3141
            ^ Boolean.
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3142
        ]
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3143
    ].
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3144
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3145
    ^ nil
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3146
! !
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3147
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3148
!Parser methodsFor:'error handling'!
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3149
1259
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3150
blockArgRedefined:tokenName from:pos1 to:pos2
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3151
    "argname reuse"
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3152
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3153
    self isSyntaxHighlighter ifTrue:[
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3154
        self markBadIdentifierFrom:pos1 to:pos2.
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3155
    ] ifFalse:[
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3156
        self 
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3157
            syntaxError:'redefinition of ''' , tokenName , ''' in argument list.'
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3158
            position:pos1 to:pos2
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3159
    ].
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3160
!
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3161
1495
63d2a1a94504 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1491
diff changeset
  3162
errorMessageForUndefined:aName
63d2a1a94504 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1491
diff changeset
  3163
    |idx implementors|
63d2a1a94504 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1491
diff changeset
  3164
63d2a1a94504 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1491
diff changeset
  3165
    classToCompileFor notNil ifTrue:[
63d2a1a94504 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1491
diff changeset
  3166
        "/ is it an instance-variable marked inaccessable ?
63d2a1a94504 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1491
diff changeset
  3167
63d2a1a94504 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1491
diff changeset
  3168
        idx := (self classesInstVarNames) indexOf:(aName , '*') startingAt:1.
63d2a1a94504 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1491
diff changeset
  3169
        idx ~~ 0 ifTrue:[
63d2a1a94504 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1491
diff changeset
  3170
            ^ '''%1'' is a hidden instvar (not accessable from ST-code)'.
63d2a1a94504 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1491
diff changeset
  3171
        ].
63d2a1a94504 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1491
diff changeset
  3172
63d2a1a94504 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1491
diff changeset
  3173
        "/ is it an instance variable, while evaluateing for the class ?
63d2a1a94504 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1491
diff changeset
  3174
        classToCompileFor isMeta ifTrue:[
63d2a1a94504 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1491
diff changeset
  3175
            (classToCompileFor soleInstance allInstVarNames includes:aName) ifTrue:[
63d2a1a94504 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1491
diff changeset
  3176
                ^ 'Warning: ''%1'' is an instvar\(hint: you are evaluating/compiling in the classes context)'.
63d2a1a94504 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1491
diff changeset
  3177
            ]
63d2a1a94504 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1491
diff changeset
  3178
        ]
63d2a1a94504 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1491
diff changeset
  3179
    ].
63d2a1a94504 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1491
diff changeset
  3180
    self isDoIt ifTrue:[
63d2a1a94504 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1491
diff changeset
  3181
        implementors := SystemBrowser
63d2a1a94504 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1491
diff changeset
  3182
            findImplementorsOf:aName
63d2a1a94504 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1491
diff changeset
  3183
            in:(Smalltalk allClasses)
63d2a1a94504 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1491
diff changeset
  3184
            ignoreCase:false.
63d2a1a94504 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1491
diff changeset
  3185
        implementors size > 0 ifTrue:[
63d2a1a94504 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1491
diff changeset
  3186
            ^ '''%1'' is undefined but known as a message selector.\(hint: did you forget to select the receiver ?)'.
63d2a1a94504 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1491
diff changeset
  3187
        ].
63d2a1a94504 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1491
diff changeset
  3188
    ].
63d2a1a94504 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1491
diff changeset
  3189
    ^ '''%1'' is undefined'.
63d2a1a94504 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1491
diff changeset
  3190
!
63d2a1a94504 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1491
diff changeset
  3191
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3192
exitWith:something
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3193
    "this is the longjump out of evaluation via a return expression"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3194
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3195
    evalExitBlock value:something
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3196
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3197
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3198
identifierExpectedIn:what
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3199
    |msg|
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3200
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3201
    (#(True False Self Nil Super ThisContext) includes:tokenType) ifTrue:[
1260
50e4668049aa identifier expected - better error message
Claus Gittinger <cg@exept.de>
parents: 1259
diff changeset
  3202
        msg := 'Reserved keyword in ' 
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3203
    ] ifFalse:[
1260
50e4668049aa identifier expected - better error message
Claus Gittinger <cg@exept.de>
parents: 1259
diff changeset
  3204
        msg := 'Identifier expected in ' 
50e4668049aa identifier expected - better error message
Claus Gittinger <cg@exept.de>
parents: 1259
diff changeset
  3205
    ].
50e4668049aa identifier expected - better error message
Claus Gittinger <cg@exept.de>
parents: 1259
diff changeset
  3206
    self syntaxError:(msg , what , ' (got ''' , tokenType printString, ''')')
1371
de4c37ac12fc code rewritten to be independent of stream zero-base
Claus Gittinger <cg@exept.de>
parents: 1369
diff changeset
  3207
         position:tokenPosition to:source position1Based - 1.
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3208
    ^ #Error
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3209
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3210
1259
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3211
methodArgRedefined:tokenName from:pos1 to:pos2
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3212
    "argname reuse"
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3213
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3214
    self isSyntaxHighlighter ifTrue:[
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3215
        self markBadIdentifierFrom:pos1 to:pos2.
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3216
    ] ifFalse:[
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3217
        self 
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3218
            syntaxError:'redefinition of ''' , tokenName , ''' in argument list.'
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3219
            position:pos1 to:pos2
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3220
    ].
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3221
!
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3222
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3223
showErrorMessage:aMessage position:pos
19
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3224
    "redefined since parser can give more detailed info about
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3225
     the class & selector where the error occured."
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3226
71
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
  3227
    |text|
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
  3228
19
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3229
    ignoreErrors ifFalse:[
1160
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3230
        Smalltalk silentLoading == true ifFalse:[
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3231
            pos notNil ifTrue:[
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3232
                Transcript show:(pos printString).
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3233
                Transcript show:' '.
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3234
            ].
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3235
            selector notNil ifTrue:[
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3236
                Transcript show:aMessage.
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3237
                classToCompileFor notNil ifTrue:[
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3238
                    text := ' in ' , classToCompileFor name , '>>' , selector
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3239
                ] ifFalse:[
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3240
                    text := ' in ' , selector
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3241
                ]
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3242
            ] ifFalse:[
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3243
                classToCompileFor notNil ifTrue:[
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3244
                    text := aMessage , ' (' , classToCompileFor name , ')'
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3245
                ] ifFalse:[
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3246
                    text := aMessage
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3247
                ]
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3248
            ].
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3249
            Transcript showCR:text.
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3250
        ]
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3251
    ]
273
2758f1723f53 showCr: -> showCR:
Claus Gittinger <cg@exept.de>
parents: 265
diff changeset
  3252
2758f1723f53 showCr: -> showCR:
Claus Gittinger <cg@exept.de>
parents: 265
diff changeset
  3253
    "Modified: 18.5.1996 / 15:44:15 / cg"
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3254
!
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3255
171
fc14729145ff checkin from browser
Claus Gittinger <cg@exept.de>
parents: 165
diff changeset
  3256
showErrorMessageForClass:aClass
fc14729145ff checkin from browser
Claus Gittinger <cg@exept.de>
parents: 165
diff changeset
  3257
"/        compiler parseError:'syntax error'.
fc14729145ff checkin from browser
Claus Gittinger <cg@exept.de>
parents: 165
diff changeset
  3258
    Transcript show:'    '.
fc14729145ff checkin from browser
Claus Gittinger <cg@exept.de>
parents: 165
diff changeset
  3259
    aClass notNil ifTrue:[
619
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  3260
	Transcript show:aClass name , '>>'
171
fc14729145ff checkin from browser
Claus Gittinger <cg@exept.de>
parents: 165
diff changeset
  3261
    ].
fc14729145ff checkin from browser
Claus Gittinger <cg@exept.de>
parents: 165
diff changeset
  3262
    selector notNil ifTrue:[
619
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  3263
	Transcript show:(selector)
171
fc14729145ff checkin from browser
Claus Gittinger <cg@exept.de>
parents: 165
diff changeset
  3264
    ].
273
2758f1723f53 showCr: -> showCR:
Claus Gittinger <cg@exept.de>
parents: 265
diff changeset
  3265
    Transcript showCR:' -> Error'.
171
fc14729145ff checkin from browser
Claus Gittinger <cg@exept.de>
parents: 165
diff changeset
  3266
fc14729145ff checkin from browser
Claus Gittinger <cg@exept.de>
parents: 165
diff changeset
  3267
    "Created: 13.12.1995 / 20:24:34 / cg"
273
2758f1723f53 showCr: -> showCR:
Claus Gittinger <cg@exept.de>
parents: 265
diff changeset
  3268
    "Modified: 18.5.1996 / 15:44:17 / cg"
171
fc14729145ff checkin from browser
Claus Gittinger <cg@exept.de>
parents: 165
diff changeset
  3269
!
fc14729145ff checkin from browser
Claus Gittinger <cg@exept.de>
parents: 165
diff changeset
  3270
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3271
undefError:aName position:pos1 to:pos2
3
b63b8a6b71fb *** empty log message ***
claus
parents: 0
diff changeset
  3272
    "report an undefined variable error - return true, if it should be
86
claus
parents: 85
diff changeset
  3273
     corrected. If not corrected, only one warning is made per undefined
claus
parents: 85
diff changeset
  3274
     variable."
claus
parents: 85
diff changeset
  3275
1495
63d2a1a94504 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1491
diff changeset
  3276
    |ex doCorrect boldName|
1400
20ccdab04698 *** empty log message ***
martin
parents: 1399
diff changeset
  3277
20ccdab04698 *** empty log message ***
martin
parents: 1399
diff changeset
  3278
    ex := UndefinedVariableNotification newException.
20ccdab04698 *** empty log message ***
martin
parents: 1399
diff changeset
  3279
    ex parser:self.
20ccdab04698 *** empty log message ***
martin
parents: 1399
diff changeset
  3280
    ex parameter:aName.
20ccdab04698 *** empty log message ***
martin
parents: 1399
diff changeset
  3281
    ex suspendedContext:thisContext.
20ccdab04698 *** empty log message ***
martin
parents: 1399
diff changeset
  3282
    doCorrect := ex raiseRequest.
1399
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
  3283
    doCorrect notNil ifTrue:[
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
  3284
        ^ doCorrect
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
  3285
    ].
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
  3286
607
118452a23976 allow dollars in identifiers
Claus Gittinger <cg@exept.de>
parents: 603
diff changeset
  3287
    warnUndeclared ifFalse:[^ false].
915
d3add8c1bb04 dont rewarn for same missing namespace
Claus Gittinger <cg@exept.de>
parents: 903
diff changeset
  3288
    ignoreWarnings ifTrue:[^ false].
607
118452a23976 allow dollars in identifiers
Claus Gittinger <cg@exept.de>
parents: 603
diff changeset
  3289
86
claus
parents: 85
diff changeset
  3290
    "
claus
parents: 85
diff changeset
  3291
     alredy warned about this one ?
claus
parents: 85
diff changeset
  3292
    "
claus
parents: 85
diff changeset
  3293
    warnedUndefVars notNil ifTrue:[
877
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  3294
        (warnedUndefVars includes:aName) ifTrue:[
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  3295
            "already warned about this one"
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  3296
            ^ false
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  3297
        ].
86
claus
parents: 85
diff changeset
  3298
    ].
claus
parents: 85
diff changeset
  3299
131
5fcdc8c7770d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 126
diff changeset
  3300
"/    (classToCompileFor notNil 
5fcdc8c7770d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 126
diff changeset
  3301
"/    and:[classToCompileFor superclass notNil
5fcdc8c7770d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 126
diff changeset
  3302
"/    and:[classToCompileFor superclass instanceVariableString isNil]]) ifTrue:[
132
5be56a5e90b7 added methods for silent parsing (parseMethod / parseMethodSpec)
Claus Gittinger <cg@exept.de>
parents: 131
diff changeset
  3303
"/      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
  3304
"/      ^ false
131
5fcdc8c7770d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 126
diff changeset
  3305
"/    ].
5fcdc8c7770d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 126
diff changeset
  3306
1285
32af9747bf9d error messages
Claus Gittinger <cg@exept.de>
parents: 1282
diff changeset
  3307
    boldName := aName allBold.
32af9747bf9d error messages
Claus Gittinger <cg@exept.de>
parents: 1282
diff changeset
  3308
131
5fcdc8c7770d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 126
diff changeset
  3309
    (requestor isNil or:[requestor isStream]) ifTrue:[
877
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  3310
        aName first isUppercase ifFalse:[
1285
32af9747bf9d error messages
Claus Gittinger <cg@exept.de>
parents: 1282
diff changeset
  3311
            self showErrorMessage:('Error: ''' , boldName , ''' is undefined') position:pos1.
877
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  3312
        ].
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  3313
        doCorrect := false.
86
claus
parents: 85
diff changeset
  3314
    ] ifFalse:[
877
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  3315
        "
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  3316
         ask requestor for correct/continue/abort ...
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  3317
         it is supposed to raise abort or return true/false.
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  3318
         True return means that correction is wanted.
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  3319
        "
1495
63d2a1a94504 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1491
diff changeset
  3320
        doCorrect := self 
63d2a1a94504 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1491
diff changeset
  3321
                        correctableError:((self errorMessageForUndefined:aName) bindWith:boldName) withCRs
63d2a1a94504 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1491
diff changeset
  3322
                        position:pos1 to:pos2
86
claus
parents: 85
diff changeset
  3323
    ].
claus
parents: 85
diff changeset
  3324
877
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  3325
    doCorrect == false ifTrue:[
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  3326
        warnedUndefVars isNil ifTrue:[
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  3327
            warnedUndefVars := Set new.
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  3328
        ].
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  3329
        warnedUndefVars add:aName.
3
b63b8a6b71fb *** empty log message ***
claus
parents: 0
diff changeset
  3330
    ].
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3331
86
claus
parents: 85
diff changeset
  3332
    ^ doCorrect
358
78b0d8954c49 removed possible conflict between #classVarNames here and in Class.
Claus Gittinger <cg@exept.de>
parents: 354
diff changeset
  3333
607
118452a23976 allow dollars in identifiers
Claus Gittinger <cg@exept.de>
parents: 603
diff changeset
  3334
    "Modified: 7.9.1997 / 02:14:36 / cg"
1160
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3335
!
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3336
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3337
warnUnused:aNameCollection
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3338
    "report an unused method variable"
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3339
1432
a85ce0ec6ee4 deleting multiple local variables
Claus Gittinger <cg@exept.de>
parents: 1427
diff changeset
  3340
    |s msg answer|
1160
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3341
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3342
    (ignoreErrors not and:[ignoreWarnings not and:[warnUnusedVars]]) ifTrue:[
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3343
        s := '' writeStream.
1167
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  3344
        s nextPutAll:'Unused method variable(s): '.
1160
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3345
        aNameCollection asSortedCollection do:[:name|
1427
ec344fd520ba no need for asText when sending allBold
Claus Gittinger <cg@exept.de>
parents: 1423
diff changeset
  3346
            s nextPutAll:' '; nextPutAll:name allBold.
1160
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3347
        ].
1222
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3348
        msg := s contents.
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3349
1160
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3350
        (requestor isNil or:[requestor isStream]) ifTrue:[
1222
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3351
            self showErrorMessage:('Warning: ', msg) position:nil.
1160
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3352
        ] ifFalse:[
1167
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  3353
            answer := requestor 
1222
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3354
                unusedVariableWarning:msg
1432
a85ce0ec6ee4 deleting multiple local variables
Claus Gittinger <cg@exept.de>
parents: 1427
diff changeset
  3355
                position:(localVarDefPosition first) to:(localVarDefPosition last) from:self.
1222
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3356
1167
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  3357
            answer == true ifTrue:[
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  3358
                "/ delete the definitions ...
1221
2768cbe3be2b finished remove unused vars;
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
  3359
                aNameCollection do:[:eachName |
1432
a85ce0ec6ee4 deleting multiple local variables
Claus Gittinger <cg@exept.de>
parents: 1427
diff changeset
  3360
                    self deleteDefinitionOf:eachName in:(localVarDefPosition first) to:(localVarDefPosition last).
1221
2768cbe3be2b finished remove unused vars;
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
  3361
                ].
2768cbe3be2b finished remove unused vars;
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
  3362
                RestartCompilationSignal raise
1167
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  3363
            ].
1160
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3364
        ].
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3365
    ].
1221
2768cbe3be2b finished remove unused vars;
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
  3366
1222
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3367
    "Modified: / 17.11.2001 / 10:30:47 / cg"
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3368
! !
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3369
1363
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3370
!Parser methodsFor:'evaluating expressions'!
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3371
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3372
evaluate:aStringOrStream in:aContext receiver:anObject notifying:requestor logged:logged ifFail:failBlock compile:compile
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3373
    "return the result of evaluating aStringOrStream, errors are reported to requestor. 
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3374
     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
  3375
     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
  3376
     is non-nil, it is evaluated if an error occurs.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3377
     Finally, compile specifies if the string should be compiled down to 
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3378
     bytecode or instead be interpreted from the parseTree.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3379
     The first should be done for doIts etc, where a readable walkback is
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3380
     required.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3381
     The latter is better done for constants, styleSheet and resource
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3382
     reading and simple sends, where the overhead of compilation is bigger
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3383
     than the interpretation overhead."
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3384
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3385
    |tree mustBackup loggedString chgStream value s sReal spc
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3386
     nameSpaceQuerySignal compiler|
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3387
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3388
    aStringOrStream isNil ifTrue:[
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3389
        EmptySourceNotificationSignal raiseRequest.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3390
        ^ nil
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3391
    ].
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3392
    (mustBackup := aStringOrStream isStream) ifTrue:[
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3393
        s := aStringOrStream.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3394
    ] ifFalse:[
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3395
        loggedString := aStringOrStream.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3396
        s := ReadStream on:aStringOrStream.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3397
    ].
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3398
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3399
    self source:s.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3400
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3401
    self parseForCode.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3402
    self foldConstants:nil.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3403
    self setSelf:anObject.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3404
    self setContext:aContext.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3405
    aContext notNil ifTrue:[
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3406
        self setSelf:(aContext receiver).
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3407
"/        aContext method notNil ifTrue:[
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3408
"/            cls := aContext method mclass
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3409
"/        ].
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3410
"/        self setClassToCompileFor:(cls ? aContext receiver class).
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3411
        self setClassToCompileFor:(aContext receiver class).
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3412
    ].
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3413
    self notifying:requestor.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3414
    self nextToken.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3415
    self evalExitBlock:[:value | self release. ^ value].
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3416
    tree := self parseMethodBodyOrEmpty.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3417
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3418
    self checkForEndOfInput.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3419
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3420
    "if reading from a stream, backup for next expression"
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3421
    mustBackup ifTrue:[
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3422
        self backupPosition
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3423
    ].
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3424
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3425
    (self errorFlag or:[tree == #Error]) ifTrue:[
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3426
        failBlock notNil ifTrue:[
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3427
            ^ failBlock value
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3428
        ].
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3429
        ^ #Error
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3430
    ].
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3431
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3432
    tree isNil ifTrue:[
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3433
        EmptySourceNotificationSignal raiseRequest.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3434
        ^ nil
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3435
    ].
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3436
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3437
    (logged
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3438
    and:[loggedString notNil
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3439
    and:[Smalltalk logDoits]]) ifTrue:[
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3440
        Class updateChangeFileQuerySignal query ifTrue:[
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3441
            chgStream := Class changesStream.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3442
            chgStream notNil ifTrue:[
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3443
                chgStream nextChunkPut:loggedString.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3444
                chgStream cr.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3445
                chgStream close
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3446
            ]
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3447
        ].
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3448
        Project notNil ifTrue:[
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3449
            Class updateChangeListQuerySignal query ifTrue:[
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3450
                Project addDoIt:loggedString
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3451
            ]
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3452
        ]
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3453
    ].
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3454
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3455
    "
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3456
     during the evaluation, handle nameSpace queries
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3457
     from the value as defined by any namespace directive.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3458
     This, if its a class definition expression, the class will
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3459
     be installed there.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3460
    "
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3461
    nameSpaceQuerySignal := Class nameSpaceQuerySignal.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3462
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3463
    spc := self getNameSpace.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3464
    spc isNil ifTrue:[
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3465
        (requestor respondsTo:#currentNameSpace) ifTrue:[
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3466
            spc := requestor currentNameSpace
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3467
        ] ifFalse:[
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3468
            spc := nameSpaceQuerySignal query.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3469
        ]
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3470
    ].
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3471
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3472
    nameSpaceQuerySignal answer:spc
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3473
    do:[
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3474
        |method|
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3475
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3476
        "
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3477
         if compile is false, or the parse tree is that of a constant, 
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3478
         or a variable, quickly return its value.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3479
         This is used for example, when reading simple objects
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3480
         via #readFrom:. 
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3481
         The overhead of compiling a method is avoided in this case.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3482
        "
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3483
        ((SuppressDoItCompilation == true)
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3484
         or:[compile not 
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3485
         or:[tree isConstant
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3486
         or:[tree isVariable
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3487
         or:[aStringOrStream isStream
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3488
         or:[aContext notNil]]]]]) ifTrue:[
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3489
            ^ tree evaluate
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3490
        ].
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3491
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3492
        "
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3493
         if I am the ByteCodeCompiler,
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3494
         generate a dummy method, execute it and return the value.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3495
         otherwise, just evaluate the tree; slower, but not too bad ...
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3496
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3497
         This allows systems to be delivered without the ByteCodeCompiler,
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3498
         and still evaluate expressions 
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3499
         (needed to read resource files or to process .rc files).
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3500
        "
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3501
        self == Parser ifTrue:[
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3502
            self evalExitBlock:[:value | self release. ^ value].
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3503
            value := tree evaluate.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3504
            self evalExitBlock:nil.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3505
        ] ifFalse:[
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3506
            s := self correctedSource.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3507
            s isNil ifTrue:[    
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3508
                aStringOrStream isStream ifTrue:[
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3509
                    s := self collectedSource.  "/ does not work yet ...
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3510
                ] ifFalse:[
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3511
                    s := aStringOrStream
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3512
                ].
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3513
            ].
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3514
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3515
            "/ actually, its a block, to allow
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3516
            "/ easy return ...
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3517
1421
dcdc178254f0 preserve lineNumbers in compiled code (evaluate)
Claus Gittinger <cg@exept.de>
parents: 1420
diff changeset
  3518
            sReal := 'doIt ^[ ' , s , '\] value' withCRs.
1363
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3519
1366
f91f6a0a56d5 when required to compile, use Compiler instead of self class.
Claus Gittinger <cg@exept.de>
parents: 1365
diff changeset
  3520
            compiler := ByteCodeCompiler new.
1363
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3521
            compiler initializeFlagsFrom:self.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3522
            method := compiler
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3523
                    compile:sReal 
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3524
                    forClass:anObject class
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3525
                    inCategory:'_temporary_' 
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3526
                    notifying:requestor 
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3527
                    install:false 
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3528
                    skipIfSame:false 
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3529
                    silent:true
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3530
                    foldConstants:false.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3531
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3532
            method notNil ifTrue:[
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3533
                method ~~ #Error ifTrue:[
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3534
                    "
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3535
                     fake: patch the source string, to what the user expects
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3536
                     in the browser
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3537
                    "
1421
dcdc178254f0 preserve lineNumbers in compiled code (evaluate)
Claus Gittinger <cg@exept.de>
parents: 1420
diff changeset
  3538
                    method source:"'        ' , "s string.
1363
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3539
                    "
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3540
                     dont do any just-in-time compilation on it.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3541
                    "
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3542
                    method checked:true.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3543
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3544
                    value := method 
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3545
                                valueWithReceiver:anObject 
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3546
                                arguments:nil  "/ (Array with:m) 
1440
7084ae99ced7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1439
diff changeset
  3547
                                selector:(requestor isNil ifTrue:#'doItX' ifFalse:#'doIt') "/ #doIt: 
1363
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3548
                                search:nil
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3549
                                sender:nil.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3550
                ] ifFalse:[
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3551
                    self evalExitBlock:[:value | self release. ^ value].
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3552
                    value := tree evaluate.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3553
                    self evalExitBlock:nil.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3554
                ]
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3555
            ].
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3556
        ]
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3557
    ].
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3558
    self release.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3559
    ^ value
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3560
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3561
    "Created: / 8.2.1997 / 19:34:44 / cg"
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3562
    "Modified: / 18.3.1999 / 18:25:40 / stefan"
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3563
    "Modified: / 6.2.2000 / 15:01:57 / cg"
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3564
! !
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3565
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3566
!Parser methodsFor:'parsing'!
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3567
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3568
block
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3569
    "parse a block; return a node-tree, nil or #Error"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3570
883
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  3571
    |node args argNames arg pos pos2 lno|
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3572
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3573
    lno := tokenLineNr.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3574
    self nextToken.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3575
    (tokenType == $: ) ifTrue:[
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3576
        [tokenType == $:] whileTrue:[
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3577
            pos := tokenPosition.
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3578
            self nextToken.
1394
93e75cb62f4f incompatibility warning with space between colon and id in blockArgs.
Claus Gittinger <cg@exept.de>
parents: 1393
diff changeset
  3579
93e75cb62f4f incompatibility warning with space between colon and id in blockArgs.
Claus Gittinger <cg@exept.de>
parents: 1393
diff changeset
  3580
            (pos == (tokenPosition - 1)) ifFalse:[
93e75cb62f4f incompatibility warning with space between colon and id in blockArgs.
Claus Gittinger <cg@exept.de>
parents: 1393
diff changeset
  3581
                self warnPossibleIncompatibility:'space(s) between colon and identifier may be non-portable' position:pos to:tokenPosition.
93e75cb62f4f incompatibility warning with space between colon and id in blockArgs.
Claus Gittinger <cg@exept.de>
parents: 1393
diff changeset
  3582
            ].
883
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  3583
            (tokenType ~~ #Identifier) ifTrue:[
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3584
                ^ self identifierExpectedIn:'block-arg declaration'
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3585
            ].
883
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  3586
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  3587
            pos2 := tokenPosition + tokenName size - 1.
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  3588
            self markArgumentIdentifierFrom:tokenPosition to:pos2.
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3589
            arg := Variable name:tokenName.
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3590
            args isNil ifTrue:[
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3591
                args := Array with:arg.
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3592
                argNames := Array with:tokenName.
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3593
            ] ifFalse:[
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3594
                (argNames includes:tokenName) ifTrue:[
1259
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3595
                    self blockArgRedefined:tokenName from:tokenPosition to:pos2
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3596
                ].
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3597
                args := args copyWith:arg.
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3598
                argNames := argNames copyWith:tokenName.
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3599
            ].
1394
93e75cb62f4f incompatibility warning with space between colon and id in blockArgs.
Claus Gittinger <cg@exept.de>
parents: 1393
diff changeset
  3600
            self nextToken.
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3601
        ].
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3602
        (tokenType ~~ $| ) ifTrue:[
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3603
            "ST-80 allows [:arg ]"
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3604
            (tokenType == $] ) ifTrue:[
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3605
                node := BlockNode arguments:args home:currentBlock variables:nil.
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3606
                node lineNumber:lno.
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3607
                ^ node
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3608
            ].
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3609
            self syntaxError:'| expected after block-arg declaration'.
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3610
            ^ #Error
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3611
        ].
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3612
        self nextToken
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3613
    ].
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3614
    node := self blockBody:args.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3615
    (node notNil and:[node ~~ #Error]) ifTrue:[
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3616
        node lineNumber:lno.
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3617
    ].
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3618
    ^ node
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3619
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3620
    "Modified: / 31.3.1998 / 17:31:34 / cg"
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3621
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3622
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3623
blockBody:args
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3624
    "parse a blocks body; return a node-tree, nil or #Error"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3625
1342
65f8f4d0ce09 only autoDefine workspace vars on the top level (i.e. not within blocks)
Claus Gittinger <cg@exept.de>
parents: 1341
diff changeset
  3626
    |stats node var vars lno pos2|
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3627
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3628
    lno := tokenLineNr.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3629
    (tokenType == $| ) ifTrue:[
668
8cc13d42d244 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 664
diff changeset
  3630
        self nextToken.
8cc13d42d244 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 664
diff changeset
  3631
        [tokenType == $|] whileFalse:[
8cc13d42d244 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 664
diff changeset
  3632
            (tokenType == #Identifier) ifFalse:[
8cc13d42d244 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 664
diff changeset
  3633
                ^ self identifierExpectedIn:'block-var declaration'
8cc13d42d244 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 664
diff changeset
  3634
            ].
883
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  3635
            pos2 := tokenPosition + tokenName size - 1.
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  3636
            self markLocalIdentifierFrom:tokenPosition to:pos2.
668
8cc13d42d244 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 664
diff changeset
  3637
            var := Variable name:tokenName.
8cc13d42d244 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 664
diff changeset
  3638
            vars isNil ifTrue:[
8cc13d42d244 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 664
diff changeset
  3639
                vars := Array with:var.
8cc13d42d244 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 664
diff changeset
  3640
            ] ifFalse:[
1342
65f8f4d0ce09 only autoDefine workspace vars on the top level (i.e. not within blocks)
Claus Gittinger <cg@exept.de>
parents: 1341
diff changeset
  3641
                (vars contains:[:var | var name = tokenName]) ifTrue:[
883
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  3642
                    "/ varname reuse
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  3643
                    self isSyntaxHighlighter ifTrue:[
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  3644
                        self markBadIdentifierFrom:tokenPosition to:pos2.
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  3645
                    ] ifFalse:[
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  3646
                        self 
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  3647
                            parseError:'redefinition of ''' , tokenName , ''' in local variables'
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  3648
                            position:tokenPosition to:pos2.
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  3649
                    ]
668
8cc13d42d244 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 664
diff changeset
  3650
                ] ifFalse:[
8cc13d42d244 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 664
diff changeset
  3651
                    vars := vars copyWith:var.
8cc13d42d244 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 664
diff changeset
  3652
                ]
8cc13d42d244 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 664
diff changeset
  3653
            ].
8cc13d42d244 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 664
diff changeset
  3654
            self nextToken.
1471
8752bd8a5581 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1468
diff changeset
  3655
8752bd8a5581 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1468
diff changeset
  3656
            AllowLocalVariableDeclarationWithInitializerExpression == true ifTrue:[
8752bd8a5581 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1468
diff changeset
  3657
                ((tokenType == $_) or:[tokenType == #':=']) ifTrue:[
8752bd8a5581 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1468
diff changeset
  3658
                    self nextToken.
8752bd8a5581 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1468
diff changeset
  3659
                    "/ Q: should we allow literals only, or arbitrary expressions ?
8752bd8a5581 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1468
diff changeset
  3660
                    self halt:'unimplemented feature'.
8752bd8a5581 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1468
diff changeset
  3661
                ]
8752bd8a5581 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1468
diff changeset
  3662
            ].
8752bd8a5581 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1468
diff changeset
  3663
            AllowDomainVariables == true ifTrue:[
8752bd8a5581 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1468
diff changeset
  3664
                (tokenType == $() ifTrue:[
8752bd8a5581 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1468
diff changeset
  3665
                    self variableTypeDeclarationFor:var.
8752bd8a5581 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1468
diff changeset
  3666
                ].
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  3667
            ].
668
8cc13d42d244 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 664
diff changeset
  3668
        ].
8cc13d42d244 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 664
diff changeset
  3669
        self nextToken
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3670
    ].
382
49aeeb0746ba more lineNumber info
Claus Gittinger <cg@exept.de>
parents: 377
diff changeset
  3671
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3672
    node := BlockNode arguments:args home:currentBlock variables:vars.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3673
    node lineNumber:lno.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3674
    currentBlock := node.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3675
    stats := self blockStatementList.
1169
7204e72c7c3c better error message with bad parentNesting in a block.
Claus Gittinger <cg@exept.de>
parents: 1168
diff changeset
  3676
    (stats == #Error) ifTrue:[^ #Error].
7204e72c7c3c better error message with bad parentNesting in a block.
Claus Gittinger <cg@exept.de>
parents: 1168
diff changeset
  3677
382
49aeeb0746ba more lineNumber info
Claus Gittinger <cg@exept.de>
parents: 377
diff changeset
  3678
    lineNumberInfo == #full ifTrue:[
668
8cc13d42d244 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 664
diff changeset
  3679
        node endLineNumber:tokenLineNr
382
49aeeb0746ba more lineNumber info
Claus Gittinger <cg@exept.de>
parents: 377
diff changeset
  3680
    ].
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3681
    node statements:stats.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3682
    currentBlock := node home.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3683
    ^ node
382
49aeeb0746ba more lineNumber info
Claus Gittinger <cg@exept.de>
parents: 377
diff changeset
  3684
668
8cc13d42d244 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 664
diff changeset
  3685
    "Modified: / 31.3.1998 / 22:46:09 / cg"
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3686
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3687
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3688
blockExpression
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3689
    "parse a blockExpression; return a node-tree, nil or #Error.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3690
     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
  3691
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3692
    tokenType ~~ $[ ifTrue:[
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3693
	self syntaxError:'[ expected'.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3694
	^ #Error.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3695
    ].
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3696
    ^ self block
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3697
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3698
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3699
blockStatementList
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3700
    "parse a blocks statementlist; return a node-tree, nil or #Error"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3701
743
3ced4791090c changes for cascades to super/here semantics.
Claus Gittinger <cg@exept.de>
parents: 739
diff changeset
  3702
    |thisStatement prevStatement firstStatement eMsg|
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3703
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3704
    (tokenType == $] ) ifTrue:[^ nil].
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3705
    thisStatement := self statement.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3706
    (thisStatement == #Error) ifTrue:[^ #Error].
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3707
    firstStatement := thisStatement.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3708
    [tokenType == $] ] whileFalse:[
673
0c66b7cb1d2f checkin from browser
ca
parents: 672
diff changeset
  3709
        (tokenType == $.) ifFalse:[
1169
7204e72c7c3c better error message with bad parentNesting in a block.
Claus Gittinger <cg@exept.de>
parents: 1168
diff changeset
  3710
            (tokenType == #EOF) ifTrue:[
1371
de4c37ac12fc code rewritten to be independent of stream zero-base
Claus Gittinger <cg@exept.de>
parents: 1369
diff changeset
  3711
                self syntaxError:'missing '']'' in block' position:(source position1Based) to:(source position1Based).
1169
7204e72c7c3c better error message with bad parentNesting in a block.
Claus Gittinger <cg@exept.de>
parents: 1168
diff changeset
  3712
                ^ #Error.
7204e72c7c3c better error message with bad parentNesting in a block.
Claus Gittinger <cg@exept.de>
parents: 1168
diff changeset
  3713
            ].
7204e72c7c3c better error message with bad parentNesting in a block.
Claus Gittinger <cg@exept.de>
parents: 1168
diff changeset
  3714
7204e72c7c3c better error message with bad parentNesting in a block.
Claus Gittinger <cg@exept.de>
parents: 1168
diff changeset
  3715
            (tokenType == $) ) ifTrue:[
7204e72c7c3c better error message with bad parentNesting in a block.
Claus Gittinger <cg@exept.de>
parents: 1168
diff changeset
  3716
                eMsg := 'missing '']'' or bad '')'' in block'
673
0c66b7cb1d2f checkin from browser
ca
parents: 672
diff changeset
  3717
            ] ifFalse:[
1182
34aac67e6e72 care for unexpected stuff at the end (in a doit)
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  3718
                eMsg := 'missing ''.'' between statements (i.e. ''' , tokenType printString , '''-token unexpected)'
673
0c66b7cb1d2f checkin from browser
ca
parents: 672
diff changeset
  3719
            ].
1169
7204e72c7c3c better error message with bad parentNesting in a block.
Claus Gittinger <cg@exept.de>
parents: 1168
diff changeset
  3720
            self syntaxError:eMsg position:tokenPosition to:tokenPosition.
673
0c66b7cb1d2f checkin from browser
ca
parents: 672
diff changeset
  3721
            ^ #Error
1182
34aac67e6e72 care for unexpected stuff at the end (in a doit)
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  3722
        ].
34aac67e6e72 care for unexpected stuff at the end (in a doit)
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  3723
        prevStatement := thisStatement.
34aac67e6e72 care for unexpected stuff at the end (in a doit)
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  3724
        self nextToken.
34aac67e6e72 care for unexpected stuff at the end (in a doit)
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  3725
34aac67e6e72 care for unexpected stuff at the end (in a doit)
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  3726
        tokenType == $] ifTrue:[
34aac67e6e72 care for unexpected stuff at the end (in a doit)
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  3727
            "
34aac67e6e72 care for unexpected stuff at the end (in a doit)
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  3728
            *** I had a warning here (since it was not defined
34aac67e6e72 care for unexpected stuff at the end (in a doit)
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  3729
            *** in the blue-book; but PD-code contains a lot of
34aac67e6e72 care for unexpected stuff at the end (in a doit)
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  3730
            *** code with periods at the end so that the warnings
34aac67e6e72 care for unexpected stuff at the end (in a doit)
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  3731
            *** became annoying
34aac67e6e72 care for unexpected stuff at the end (in a doit)
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  3732
34aac67e6e72 care for unexpected stuff at the end (in a doit)
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  3733
            self warning:'period after last statement in block'.
34aac67e6e72 care for unexpected stuff at the end (in a doit)
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  3734
            "
34aac67e6e72 care for unexpected stuff at the end (in a doit)
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  3735
            self markBracketAt:tokenPosition.
34aac67e6e72 care for unexpected stuff at the end (in a doit)
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  3736
            ^ firstStatement
34aac67e6e72 care for unexpected stuff at the end (in a doit)
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  3737
        ].
34aac67e6e72 care for unexpected stuff at the end (in a doit)
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  3738
        thisStatement := self statement.
34aac67e6e72 care for unexpected stuff at the end (in a doit)
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  3739
        (thisStatement == #Error) ifTrue:[^ #Error].
34aac67e6e72 care for unexpected stuff at the end (in a doit)
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  3740
        prevStatement nextStatement:thisStatement
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3741
    ].
673
0c66b7cb1d2f checkin from browser
ca
parents: 672
diff changeset
  3742
    self markBracketAt:tokenPosition.
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3743
    ^ firstStatement
743
3ced4791090c changes for cascades to super/here semantics.
Claus Gittinger <cg@exept.de>
parents: 739
diff changeset
  3744
3ced4791090c changes for cascades to super/here semantics.
Claus Gittinger <cg@exept.de>
parents: 739
diff changeset
  3745
    "Modified: / 16.7.1998 / 20:38:25 / cg"
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3746
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3747
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  3748
checkForEndOfInput
1412
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  3749
    |what|
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  3750
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  3751
    (tokenType ~~ #EOF) ifTrue:[
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  3752
        "/ just for the nicer error message
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  3753
        (#(Self Nil True False Super Here) includes:tokenType) ifTrue:[
1412
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  3754
            self parseError:tokenName , ' unexpected (missing ''.'' or '':'' before ' , tokenName , ' ?)' 
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  3755
                   position:tokenPosition to:(tokenPosition + tokenName size - 1)
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  3756
        ] ifFalse:[
1412
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  3757
            tokenType isCharacter ifTrue:[
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  3758
                what := '''' , tokenType , ''''.
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  3759
            ] ifFalse:[
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  3760
                what := tokenType printString.
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  3761
            ].
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  3762
            self parseError:(what , ' unexpected (missing ''.'', '':'' or selector before it ?)') 
1371
de4c37ac12fc code rewritten to be independent of stream zero-base
Claus Gittinger <cg@exept.de>
parents: 1369
diff changeset
  3763
                 position:tokenPosition to:source position1Based-1.
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  3764
        ].
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  3765
        ^#Error
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  3766
    ]
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  3767
!
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  3768
1222
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3769
checkReturnedValues
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3770
    | returnsSelf returnsBoolean returnsNonBooleanLiteral|
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3771
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3772
    ignoreWarnings ifTrue:[^ self].
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3773
    returnedValues isNil ifTrue:[^ self].
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3774
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3775
    returnsBoolean := returnedValues contains:[:node | node isConstant and:[node value isBoolean]].
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3776
    returnsNonBooleanLiteral := returnedValues contains:[:node | node isConstant and:[node value isBoolean not]].
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3777
    returnsSelf := returnedValues contains:[:node | node isSelf].
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3778
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3779
    returnsBoolean ifTrue:[
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3780
        (returnsNonBooleanLiteral or:[returnsSelf]) ifTrue:[
1455
25e4af227208 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1453
diff changeset
  3781
            self 
25e4af227208 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1453
diff changeset
  3782
                warning:'Possible Error Warning:\\Method returns both boolean and non-boolean values.' withCRs
25e4af227208 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1453
diff changeset
  3783
                position:1 to:tokenPosition
1222
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3784
        ]
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3785
    ].
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3786
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3787
    "Created: / 17.11.2001 / 10:31:03 / cg"
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3788
    "Modified: / 17.11.2001 / 10:34:16 / cg"
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3789
!
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3790
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3791
checkUnusedMethodVars
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3792
    | unused|
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3793
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3794
    ignoreWarnings ifFalse:[
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3795
        methodVars notNil ifTrue:[
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3796
            unused := methodVars select:[:var| var used ~~ true] thenCollect:[:var| var name].
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3797
        ].
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3798
        unused size > 0 ifTrue:[
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3799
            self warnUnused:unused.
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3800
        ].
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3801
    ].
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3802
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3803
    "Created: / 17.11.2001 / 10:23:47 / cg"
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3804
!
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3805
1224
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3806
parseExceptionOrContextPragma
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3807
    |pragmaType|
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3808
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3809
    "/ < resource: has already been parsed.
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3810
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3811
    pragmaType := tokenName.
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3812
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3813
    self nextToken.
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3814
    (tokenType ~~ #Symbol) ifTrue:[
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3815
        self parseError:'symbol expected'.
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3816
        ^ #Error
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3817
    ].
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3818
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3819
    ((pragmaType = 'exception:'
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3820
        and:[tokenValue == #'handle'
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3821
             or:[tokenValue == #'raise'
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3822
             or:[tokenValue == #'unwind']]])
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3823
    or:[
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3824
        pragmaType = 'context:'
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3825
        and:[(tokenValue == #'return')]])
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3826
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3827
    ifTrue:[
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3828
        primitiveContextInfo isNil ifTrue:[
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3829
            primitiveContextInfo := Set new.
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3830
        ].
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3831
        primitiveContextInfo add:(pragmaType->tokenValue).
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3832
    ] ifFalse:[
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3833
        self parseError:'unrecognized exception pragma: ' , tokenValue.
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3834
    ].
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3835
    self nextToken.
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3836
!
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3837
1006
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  3838
parseExpressionWithSelf:anObject notifying:someOne ignoreErrors:ignoreErrors ignoreWarnings:ignoreWarnings inNameSpace:aNameSpaceOrNil
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  3839
    "parse aString as an expression with self set to anObject;
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  3840
     Return the parseTree (if ok), nil (for an empty string 
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  3841
     or comment only ) or #Error (syntactic error).
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  3842
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  3843
     Errors and warnings are forwarded to someOne (usually some
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  3844
     codeView) which can highlight it and show a popup box,
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  3845
     iff ignoreErrors/ignoreWarnings is true respectively."
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  3846
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  3847
    |tree token|
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  3848
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  3849
    aNameSpaceOrNil notNil ifTrue:[
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  3850
        self currentNameSpace:aNameSpaceOrNil
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  3851
    ].
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  3852
    self setSelf:anObject.
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  3853
    self notifying:someOne.
1365
19b74038d133 ignoreErrors / ignoreWarnings are not getters.
penk
parents: 1364
diff changeset
  3854
    self ignoreErrors:ignoreErrors.
19b74038d133 ignoreErrors / ignoreWarnings are not getters.
penk
parents: 1364
diff changeset
  3855
    self ignoreWarnings:ignoreWarnings.
1006
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  3856
    token := self nextToken.
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  3857
    (token == $^) ifTrue:[
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  3858
        self nextToken.
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  3859
    ].
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  3860
    tree := self expression.
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  3861
    (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
  3862
"/    tokenType ~~ #EOF ifTrue:[
34aac67e6e72 care for unexpected stuff at the end (in a doit)
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  3863
"/        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
  3864
"/    ].
1006
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  3865
    ^ tree
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  3866
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  3867
    "Created: / 14.12.1999 / 15:11:37 / cg"
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  3868
!
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  3869
1259
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3870
parseExtendedMethodSpec
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3871
    |pos1 pos2 var|
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3872
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3873
    "/ EXPERIMENTAL
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3874
false ifTrue:[
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3875
    (tokenType == #Symbol) ifTrue:[
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3876
        pos1 := tokenPosition.
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3877
        selector := token asSymbol.
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3878
        self nextToken.
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3879
        self markMethodSelectorFrom:pos1 to:(tokenPosition-1).
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3880
        endOfSelectorPosition := tokenPosition.
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3881
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3882
        tokenType == $( ifTrue:[
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3883
            self nextToken.
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3884
            [ tokenType ~~ $) ] whileTrue:[
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3885
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3886
                (tokenType ~~ #Identifier) ifTrue:[^ #Error].
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3887
                pos2 := tokenPosition+tokenName size-1.
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3888
                self markArgumentIdentifierFrom:tokenPosition to:pos2.
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3889
                var := Variable name:tokenName.
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3890
                methodArgs isNil ifTrue:[
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3891
                    methodArgs := Array with:var.
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3892
                    methodArgNames := Array with:tokenName
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3893
                ] ifFalse:[
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3894
                    (methodArgNames includes:tokenName) ifTrue:[
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3895
                        self methodArgRedefined:tokenName from:tokenPosition to:pos2
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3896
                    ].
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3897
                    methodArgs := methodArgs copyWith:var.
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3898
                    methodArgNames := methodArgNames copyWith:tokenName
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3899
                ].
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3900
                self nextToken.
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3901
            ].
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3902
            self nextToken.
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3903
        ].
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3904
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3905
        ^ self
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3906
    ].
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3907
].
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3908
    ^ #Error
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3909
!
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3910
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3911
parseMethod
19
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3912
    "parse a method.
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3913
     Return the parseTree or #Error.
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3914
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3915
     method ::= methodSpec methodBody
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3916
    "
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3917
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3918
    |parseTree|
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3919
255
13a059f6569d no need to send nextToken when parsing a method
Claus Gittinger <cg@exept.de>
parents: 229
diff changeset
  3920
"/    self nextToken.
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3921
    (self parseMethodSpec == #Error) ifTrue:[^ #Error].
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3922
    parseTree := self parseMethodBody.
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3923
    (parseTree == #Error) ifFalse:[
1171
0c43ce981f1b oops - remove unused vars does not work (yet)
Claus Gittinger <cg@exept.de>
parents: 1169
diff changeset
  3924
        self tree:parseTree
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3925
    ].
1186
014c3db76517 oops - end of input check should not be done when simply evaluating
Claus Gittinger <cg@exept.de>
parents: 1182
diff changeset
  3926
    self checkForEndOfInput.
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3927
    ^ parseTree
255
13a059f6569d no need to send nextToken when parsing a method
Claus Gittinger <cg@exept.de>
parents: 229
diff changeset
  3928
13a059f6569d no need to send nextToken when parsing a method
Claus Gittinger <cg@exept.de>
parents: 229
diff changeset
  3929
    "Modified: 20.4.1996 / 20:09:26 / cg"
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3930
!
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3931
19
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3932
parseMethodBody
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3933
    "parse a methods body (locals & statements). 
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3934
     No more tokens may follow.
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3935
     Return a node-tree, or #Error
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3936
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3937
     methodBody ::= '<' st80Primitive '>' #EOF
883
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  3938
                    | '<' st80Primitive '>' methodBodyVarSpec statementList #EOF
19
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3939
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3940
    "
1222
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3941
    |stats|
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3942
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3943
    stats := self parseMethodBodyOrEmpty.
19
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3944
    (stats == #Error) ifFalse:[
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  3945
        self checkForEndOfInput.
19
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3946
    ].
1160
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3947
    ignoreWarnings ifFalse:[
1222
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3948
        self checkUnusedMethodVars.
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3949
        self checkReturnedValues.
1160
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3950
    ].
19
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3951
    ^ stats
165
213e3f12fc56 better error message when selector is missing
Claus Gittinger <cg@exept.de>
parents: 148
diff changeset
  3952
1222
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3953
    "Modified: / 17.11.2001 / 10:31:12 / cg"
19
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3954
!
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3955
79
26f81a94a6ea *** empty log message ***
claus
parents: 78
diff changeset
  3956
parseMethodBodyOrEmpty
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3957
    "parse a methods body (locals & statements);
19
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3958
     return  a node-tree, nil or #Error. 
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3959
     empty (or comment only) input is accepted and returns nil.
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3960
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3961
     methodBodyOrNil ::= '<' st80Primitive '>'
1182
34aac67e6e72 care for unexpected stuff at the end (in a doit)
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  3962
                         | '<' st80Primitive '>' methodBodyVarSpec statementList
34aac67e6e72 care for unexpected stuff at the end (in a doit)
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  3963
                         | <empty>
19
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3964
    "
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3965
265
a8617dc49bbf examples
Claus Gittinger <cg@exept.de>
parents: 263
diff changeset
  3966
    |stats|
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3967
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3968
    (self parseMethodBodyVarSpec == #Error) ifTrue:[^ #Error].
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3969
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3970
    (tokenType ~~ #EOF) ifTrue:[
1182
34aac67e6e72 care for unexpected stuff at the end (in a doit)
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  3971
        stats := self statementList
34aac67e6e72 care for unexpected stuff at the end (in a doit)
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  3972
    ].
1186
014c3db76517 oops - end of input check should not be done when simply evaluating
Claus Gittinger <cg@exept.de>
parents: 1182
diff changeset
  3973
"/    (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
  3974
"/        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
  3975
"/        ^ #Error
014c3db76517 oops - end of input check should not be done when simply evaluating
Claus Gittinger <cg@exept.de>
parents: 1182
diff changeset
  3976
"/    ].
1231
637e0e215633 returnValue check
Claus Gittinger <cg@exept.de>
parents: 1230
diff changeset
  3977
    (stats notNil
637e0e215633 returnValue check
Claus Gittinger <cg@exept.de>
parents: 1230
diff changeset
  3978
    and:[stats ~~ #Error]) ifTrue:[
1512
52986e9b02af better isReturn (used when checking for consistent return value)
Claus Gittinger <cg@exept.de>
parents: 1507
diff changeset
  3979
        (self isStatementAnUnconditionalReturn:stats last) ifFalse:[
1231
637e0e215633 returnValue check
Claus Gittinger <cg@exept.de>
parents: 1230
diff changeset
  3980
            "/ remember a returned self here.
1262
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  3981
            self rememberReturnedValue:(self selfNode)
1231
637e0e215633 returnValue check
Claus Gittinger <cg@exept.de>
parents: 1230
diff changeset
  3982
        ].
637e0e215633 returnValue check
Claus Gittinger <cg@exept.de>
parents: 1230
diff changeset
  3983
    ].
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3984
    ^ stats
265
a8617dc49bbf examples
Claus Gittinger <cg@exept.de>
parents: 263
diff changeset
  3985
a8617dc49bbf examples
Claus Gittinger <cg@exept.de>
parents: 263
diff changeset
  3986
    "Modified: 27.4.1996 / 16:57:56 / cg"
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3987
!
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3988
19
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3989
parseMethodBodyVarSpec
265
a8617dc49bbf examples
Claus Gittinger <cg@exept.de>
parents: 263
diff changeset
  3990
    "parse a methods local variable specification, handling
a8617dc49bbf examples
Claus Gittinger <cg@exept.de>
parents: 263
diff changeset
  3991
     possible primitive or resourceSpecs.
a8617dc49bbf examples
Claus Gittinger <cg@exept.de>
parents: 263
diff changeset
  3992
     . 
19
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3993
     Leave spec of locals in methodLocals as a side effect.
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3994
     Return #Error or nil.
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3995
19
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3996
     methodBodyVarSpec ::= '|' { IDENTIFIER } '|'
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3997
                            | <empty>
19
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3998
    "
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3999
883
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  4000
    |var pos pos2 msg|
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  4001
265
a8617dc49bbf examples
Claus Gittinger <cg@exept.de>
parents: 263
diff changeset
  4002
    ((tokenType == #BinaryOperator) and:[tokenName = '<']) ifTrue:[
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  4003
        self parsePrimitiveOrResourceSpecOrEmpty.
265
a8617dc49bbf examples
Claus Gittinger <cg@exept.de>
parents: 263
diff changeset
  4004
    ].
a8617dc49bbf examples
Claus Gittinger <cg@exept.de>
parents: 263
diff changeset
  4005
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  4006
    (tokenType == $|) ifTrue:[
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  4007
        "memorize position for declaration in correction"
883
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  4008
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  4009
        localVarDefPosition := tokenPosition.
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  4010
        self nextToken.
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  4011
        pos := tokenPosition.
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  4012
        [tokenType == #Identifier] whileTrue:[
883
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  4013
            pos2 := tokenPosition + tokenName size - 1.
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  4014
            self markLocalIdentifierFrom:tokenPosition to:pos2.
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  4015
            var := Variable name:tokenName.
883
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  4016
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  4017
            methodVars isNil ifTrue:[
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  4018
                methodVars := OrderedCollection with:var.
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  4019
                methodVarNames := OrderedCollection with:tokenName
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  4020
            ] ifFalse:[
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  4021
                (methodVarNames includes:tokenName) ifTrue:[
883
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  4022
                    "/ redefinition
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  4023
                    self isSyntaxHighlighter ifTrue:[
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  4024
                        self markBadIdentifierFrom:tokenPosition to:pos2.
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  4025
                    ] ifFalse:[
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  4026
                        self 
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  4027
                            parseError:'redefinition of ''' , tokenName , ''' in local variables'
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  4028
                            position:tokenPosition to:pos2.
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  4029
                    ]
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  4030
                ] ifFalse:[
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  4031
                    methodVars add:var.
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  4032
                    methodVarNames add:tokenName
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  4033
                ]
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  4034
            ].
883
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  4035
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  4036
            methodArgNames notNil ifTrue:[
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  4037
                (methodArgNames includes:tokenName) ifTrue:[
883
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  4038
                    self 
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  4039
                        warning:'local variable ''' , tokenName , ''' hides argument.'
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  4040
                        position:tokenPosition to:pos2
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  4041
                ]
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  4042
            ].
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  4043
            self nextToken.
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4044
1471
8752bd8a5581 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1468
diff changeset
  4045
            AllowLocalVariableDeclarationWithInitializerExpression == true ifTrue:[
8752bd8a5581 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1468
diff changeset
  4046
                ((tokenType == $_) or:[tokenType == #':=']) ifTrue:[
8752bd8a5581 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1468
diff changeset
  4047
                    self nextToken.
8752bd8a5581 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1468
diff changeset
  4048
                    "/ Q: should we allow literals only, or arbitrary expressions ?
8752bd8a5581 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1468
diff changeset
  4049
                    self halt:'unimplemented feature'.
8752bd8a5581 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1468
diff changeset
  4050
                ]
8752bd8a5581 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1468
diff changeset
  4051
            ].
8752bd8a5581 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1468
diff changeset
  4052
            AllowDomainVariables == true ifTrue:[
8752bd8a5581 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1468
diff changeset
  4053
                (tokenType == $() ifTrue:[
8752bd8a5581 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1468
diff changeset
  4054
                    self variableTypeDeclarationFor:var.
8752bd8a5581 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1468
diff changeset
  4055
                ].
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4056
            ].
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  4057
            pos := tokenPosition
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  4058
        ].
883
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  4059
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  4060
        (tokenType ~~ $|) ifTrue:[
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  4061
            (#(True False Self Nil Super ThisContext) includes:tokenType) ifTrue:[
883
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  4062
                msg := 'Reserved keyword in local var declaration'. 
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  4063
                pos2 := tokenPosition + tokenName size - 1.
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  4064
                self markBadIdentifierFrom:tokenPosition to:pos2.
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  4065
            ] ifFalse:[
1371
de4c37ac12fc code rewritten to be independent of stream zero-base
Claus Gittinger <cg@exept.de>
parents: 1369
diff changeset
  4066
                pos2 := source position1Based-1.
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  4067
                msg := 'Identifier or | expected in local var declaration' 
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  4068
            ].
883
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  4069
            self syntaxError:msg position:tokenPosition to:pos2.
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  4070
            ^ #Error
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  4071
        ].
878
f9c8d2544909 added declare-as (local, global or workspace-war)
Claus Gittinger <cg@exept.de>
parents: 877
diff changeset
  4072
        localVarDefPosition := Array with:localVarDefPosition with:tokenPosition.
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  4073
        self nextToken
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  4074
    ].
984
0994fa625709 more squeak-parsing
Claus Gittinger <cg@exept.de>
parents: 977
diff changeset
  4075
1363
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  4076
    allowSqueakExtensions ifTrue:[
984
0994fa625709 more squeak-parsing
Claus Gittinger <cg@exept.de>
parents: 977
diff changeset
  4077
        "/ allow for primitiveSpec after local-var decl.
0994fa625709 more squeak-parsing
Claus Gittinger <cg@exept.de>
parents: 977
diff changeset
  4078
0994fa625709 more squeak-parsing
Claus Gittinger <cg@exept.de>
parents: 977
diff changeset
  4079
        ((tokenType == #BinaryOperator) and:[tokenName = '<']) ifTrue:[
0994fa625709 more squeak-parsing
Claus Gittinger <cg@exept.de>
parents: 977
diff changeset
  4080
            self parsePrimitiveOrResourceSpecOrEmpty.
0994fa625709 more squeak-parsing
Claus Gittinger <cg@exept.de>
parents: 977
diff changeset
  4081
        ]
0994fa625709 more squeak-parsing
Claus Gittinger <cg@exept.de>
parents: 977
diff changeset
  4082
    ].
0994fa625709 more squeak-parsing
Claus Gittinger <cg@exept.de>
parents: 977
diff changeset
  4083
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  4084
    ^ nil
139
65eaf1a009f5 warn if method local hides method arg
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
  4085
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  4086
    "Modified: / 31.3.1998 / 17:30:33 / cg"
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  4087
!
7ad01559b262 Initial revision
claus
parents:
diff changeset
  4088
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  4089
parseMethodSpec
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  4090
    "parse a methods selector & arg specification;
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  4091
     Set selector and methodArgs in the receiver as a side effect.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  4092
     Return the receiver or #Error.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  4093
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  4094
     methodSpec ::= { KEYWORD IDENTIFIER }
660
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  4095
                    | binaryOperator IDENTIFIER
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  4096
                    | IDENTIFIER
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  4097
    "
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  4098
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4099
    |arg pos2|
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  4100
255
13a059f6569d no need to send nextToken when parsing a method
Claus Gittinger <cg@exept.de>
parents: 229
diff changeset
  4101
    tokenType isNil ifTrue:[
660
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  4102
        self nextToken.
255
13a059f6569d no need to send nextToken when parsing a method
Claus Gittinger <cg@exept.de>
parents: 229
diff changeset
  4103
    ].
13a059f6569d no need to send nextToken when parsing a method
Claus Gittinger <cg@exept.de>
parents: 229
diff changeset
  4104
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  4105
    (tokenType == #Keyword) ifTrue:[
660
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  4106
        selector := ''.
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  4107
        [tokenType == #Keyword] whileTrue:[
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  4108
            self markMethodSelectorFrom:tokenPosition to:(tokenPosition+tokenName size-1).
660
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  4109
            selector := selector , tokenName.
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  4110
            self nextToken.
883
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  4111
1259
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  4112
            (tokenType ~~ #Identifier) ifTrue:[
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  4113
                "/ ^ #Error].
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  4114
                ^ self identifierExpectedIn:'method-arg declaration'
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  4115
            ].
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  4116
883
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  4117
            pos2 := tokenPosition+tokenName size-1.
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  4118
            self markArgumentIdentifierFrom:tokenPosition to:pos2.
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4119
            arg := Variable name:tokenName.
660
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  4120
            methodArgs isNil ifTrue:[
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4121
                methodArgs := Array with:arg.
660
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  4122
                methodArgNames := Array with:tokenName
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  4123
            ] ifFalse:[
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  4124
                (methodArgNames includes:tokenName) ifTrue:[
1259
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  4125
                    self methodArgRedefined:tokenName from:tokenPosition to:pos2
660
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  4126
                ].
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4127
                methodArgs := methodArgs copyWith:arg.
660
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  4128
                methodArgNames := methodArgNames copyWith:tokenName
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  4129
            ].
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4130
            self nextToken.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4131
"/            ((tokenType == #BinaryOperator) and:[token = '#']) ifTrue:[
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4132
"/                self nextToken.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4133
"/                arg domain:nil.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4134
"/            ].
660
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  4135
        ].
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  4136
        selector := selector asSymbol.
878
f9c8d2544909 added declare-as (local, global or workspace-war)
Claus Gittinger <cg@exept.de>
parents: 877
diff changeset
  4137
        endOfSelectorPosition := tokenPosition.
660
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  4138
        ^ self
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  4139
    ].
1306
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  4140
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  4141
    (self isValidUnarySelector:tokenType) ifTrue:[
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  4142
        self markMethodSelectorFrom:tokenPosition to:(tokenPosition+tokenName size-1).
660
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  4143
        selector := tokenName asSymbol.
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  4144
        self nextToken.
878
f9c8d2544909 added declare-as (local, global or workspace-war)
Claus Gittinger <cg@exept.de>
parents: 877
diff changeset
  4145
        endOfSelectorPosition := tokenPosition.
660
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  4146
        ^ self
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  4147
    ].
1306
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  4148
461
1d24cc165fac oops - did not allow | as method-selector
Claus Gittinger <cg@exept.de>
parents: 457
diff changeset
  4149
    "/ special handling for |, which is also a lexical token
1d24cc165fac oops - did not allow | as method-selector
Claus Gittinger <cg@exept.de>
parents: 457
diff changeset
  4150
    tokenType == $| ifTrue:[
660
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  4151
        tokenType := #BinaryOperator.
1103
b75a71996388 ensure that token follows tomeName & tokenValue
Claus Gittinger <cg@exept.de>
parents: 1100
diff changeset
  4152
        token := tokenName := '|'
461
1d24cc165fac oops - did not allow | as method-selector
Claus Gittinger <cg@exept.de>
parents: 457
diff changeset
  4153
    ].
1d24cc165fac oops - did not allow | as method-selector
Claus Gittinger <cg@exept.de>
parents: 457
diff changeset
  4154
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  4155
    (tokenType == #BinaryOperator) ifTrue:[
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  4156
        self markMethodSelectorFrom:tokenPosition to:(tokenPosition+tokenName size-1).
660
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  4157
        selector := tokenName asSymbol.
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  4158
        self nextToken.
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  4159
        (tokenType ~~ #Identifier) ifTrue:[^ #Error].
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  4160
        self markArgumentIdentifierFrom:tokenPosition to:(tokenPosition+tokenName size-1).
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4161
        arg := Variable name:tokenName.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4162
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4163
        methodArgs := Array with:arg.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4164
        methodArgNames := Array with:tokenName.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4165
660
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  4166
        self nextToken.
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4167
"/            ((tokenType == #BinaryOperator) and:[token = '#']) ifTrue:[
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4168
"/                self nextToken.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4169
"/                arg domain:nil.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4170
"/            ].
878
f9c8d2544909 added declare-as (local, global or workspace-war)
Claus Gittinger <cg@exept.de>
parents: 877
diff changeset
  4171
        endOfSelectorPosition := tokenPosition.
660
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  4172
        ^ self
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  4173
    ].
461
1d24cc165fac oops - did not allow | as method-selector
Claus Gittinger <cg@exept.de>
parents: 457
diff changeset
  4174
1259
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  4175
    ^ self parseExtendedMethodSpec
255
13a059f6569d no need to send nextToken when parsing a method
Claus Gittinger <cg@exept.de>
parents: 229
diff changeset
  4176
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  4177
    "Modified: / 31.3.1998 / 17:31:59 / cg"
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  4178
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  4179
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4180
statement
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4181
    "parse a statement; return a node-tree or #Error.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4182
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4183
     statement ::= '^' expression
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4184
                   | PRIMITIVECODE
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4185
                   | expression
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4186
    "
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4187
1276
f7f6e0c1aff9 code could be wrong in a primitive node
Claus Gittinger <cg@exept.de>
parents: 1275
diff changeset
  4188
    |expr node lnr code|
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4189
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4190
    (tokenType == $^) ifTrue:[
837
b09e08bb3d5e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 832
diff changeset
  4191
        self markReturnAt:tokenPosition.
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4192
        lnr := tokenLineNr.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4193
        self nextToken.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4194
        expr := self expression.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4195
        (expr == #Error) ifTrue:[^ #Error].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4196
        node := ReturnNode expression:expr.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4197
        node home:self blockHome:currentBlock.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4198
        (lineNumberInfo == #full) ifTrue:[node lineNumber:lnr].
1222
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  4199
1231
637e0e215633 returnValue check
Claus Gittinger <cg@exept.de>
parents: 1230
diff changeset
  4200
        self rememberReturnedValue:expr.
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4201
        ^ node
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4202
    ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4203
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4204
    (tokenType == #Primitive) ifTrue:[
1276
f7f6e0c1aff9 code could be wrong in a primitive node
Claus Gittinger <cg@exept.de>
parents: 1275
diff changeset
  4205
        code := tokenValue.
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4206
        self nextToken.
1276
f7f6e0c1aff9 code could be wrong in a primitive node
Claus Gittinger <cg@exept.de>
parents: 1275
diff changeset
  4207
        node := PrimitiveNode code:code.
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4208
        node isOptional ifFalse:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4209
            hasNonOptionalPrimitiveCode := true
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4210
        ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4211
        hasPrimitiveCode := true.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4212
        ^ node
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4213
    ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4214
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4215
    (tokenType == #EOF) ifTrue:[
733
6859b56d5bd2 better error message for missing ']' at end of block.
Claus Gittinger <cg@exept.de>
parents: 732
diff changeset
  4216
        currentBlock notNil ifTrue:[
6859b56d5bd2 better error message for missing ']' at end of block.
Claus Gittinger <cg@exept.de>
parents: 732
diff changeset
  4217
            self syntaxError:'missing '']'' at end of block'.
6859b56d5bd2 better error message for missing ']' at end of block.
Claus Gittinger <cg@exept.de>
parents: 732
diff changeset
  4218
        ] ifFalse:[
6859b56d5bd2 better error message for missing ']' at end of block.
Claus Gittinger <cg@exept.de>
parents: 732
diff changeset
  4219
            self syntaxError:'period after last statement'.
6859b56d5bd2 better error message for missing ']' at end of block.
Claus Gittinger <cg@exept.de>
parents: 732
diff changeset
  4220
        ].
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4221
        ^ #Error
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4222
    ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4223
984
0994fa625709 more squeak-parsing
Claus Gittinger <cg@exept.de>
parents: 977
diff changeset
  4224
    (tokenType == $.) ifTrue:[
1363
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  4225
        allowSqueakExtensions == true ifTrue:[
984
0994fa625709 more squeak-parsing
Claus Gittinger <cg@exept.de>
parents: 977
diff changeset
  4226
            "/ allow empty statement
0994fa625709 more squeak-parsing
Claus Gittinger <cg@exept.de>
parents: 977
diff changeset
  4227
            ^ StatementNode expression:nil.
0994fa625709 more squeak-parsing
Claus Gittinger <cg@exept.de>
parents: 977
diff changeset
  4228
        ].
0994fa625709 more squeak-parsing
Claus Gittinger <cg@exept.de>
parents: 977
diff changeset
  4229
    ].
0994fa625709 more squeak-parsing
Claus Gittinger <cg@exept.de>
parents: 977
diff changeset
  4230
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4231
    expr := self expression.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4232
    (expr == #Error) ifTrue:[^ #Error].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4233
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4234
"/    classToCompileFor notNil ifTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4235
"/        currentBlock isNil ifTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4236
"/            expr isPrimary ifTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4237
"/                self warning:'useless computation - missing ^ ?'
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4238
"/            ]
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4239
"/        ]
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4240
"/    ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4241
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4242
    node := StatementNode expression:expr.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4243
    (lineNumberInfo == #full) ifTrue:[node lineNumber:lnr].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4244
    ^ node
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4245
1222
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  4246
    "Modified: / 17.11.2001 / 10:22:33 / cg"
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4247
!
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4248
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4249
statementList
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4250
    "parse a statementlist; return a node-tree, nil or #Error.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4251
     Statements must be separated by periods.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4252
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4253
     statementList ::= <statement>
988
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4254
                       | <statementList> . <statement>
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4255
    "
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4256
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4257
    |thisStatement prevStatement firstStatement correctIt periodPos
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4258
     prevExpr|
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4259
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4260
    thisStatement := self statement.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4261
    (thisStatement == #Error) ifTrue:[^ #Error].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4262
    firstStatement := thisStatement.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4263
    [tokenType == $.] whileTrue:[
988
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4264
        prevExpr := thisStatement expression.
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4265
        (prevExpr notNil 
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4266
        and:[prevExpr isMessage
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4267
        and:[thisStatement isReturnNode not]]) ifTrue:[
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4268
            (#(#'=' #'==') includes:prevExpr selector) ifTrue:[
1487
c3af432fdd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1482
diff changeset
  4269
                self warning:'useless computation - mistyped assignment (i.e. did you mean '':='') ?' position:prevExpr selectorPosition
988
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4270
            ].
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4271
        ].
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4272
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4273
        periodPos := tokenPosition.
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4274
        self nextToken.
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4275
        (tokenType == $]) ifTrue:[
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4276
            currentBlock isNil ifTrue:[
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4277
                self parseError:'block nesting error'.
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4278
                errorFlag := true
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4279
"
988
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4280
            *** I had a warning here (since it was not defined
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4281
            *** in the blue-book; but PD-code contains a lot of
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4282
            *** code with periods at the end so that the warnings
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4283
            *** became annoying
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4284
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4285
            ] ifFalse:[
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4286
                self warning:'period after last statement' position:periodPos
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4287
"
988
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4288
            ].
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4289
            ^ firstStatement
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4290
        ].
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4291
        (tokenType == #EOF) ifTrue:[
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4292
            currentBlock notNil ifTrue:[
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4293
                self parseError:'block nesting error (expected '']'')'.
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4294
                errorFlag := true
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4295
"
988
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4296
            *** I had a warning here (since it was not defined
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4297
            *** in the blue-book; but PD-code contains a lot of
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4298
            *** code with periods at the end so that the warnings
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4299
            *** became annoying
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4300
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4301
            ] ifFalse:[
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4302
                self warning:'period after last statement' position:periodPos
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4303
"
988
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4304
            ].
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4305
            ^ firstStatement
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4306
        ].
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4307
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4308
        prevStatement := thisStatement.
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4309
        prevStatement isReturnNode ifTrue:[
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4310
            self warning:'statements after return' position:tokenPosition
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4311
        ].
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4312
"
988
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4313
        periodPos := tokenPosition.
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4314
        self nextToken.
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4315
"
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4316
988
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4317
        ((tokenType == $]) or:[tokenType == #EOF]) ifTrue:[
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4318
            (currentBlock isNil and:[tokenType == $]]) ifTrue:[
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4319
                self parseError:'block nesting error'.
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4320
                errorFlag := true
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4321
            ] ifFalse:[
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4322
                correctIt := self correctableError:'period after last statement in block'
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4323
                                          position:periodPos to:(periodPos + 1).
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4324
                correctIt ifTrue:[
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4325
                    (self correctByDeleting == #Error) ifTrue:[
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4326
                        errorFlag := true
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4327
                    ]
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4328
                ]
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4329
            ].
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4330
            ^ firstStatement
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4331
        ].
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4332
        thisStatement := self statement.
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4333
        (thisStatement == #Error) ifTrue:[^ #Error].
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4334
        prevStatement nextStatement:thisStatement
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4335
    ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4336
    ^ firstStatement
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4337
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4338
    "Modified: 14.4.1997 / 20:46:46 / cg"
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4339
!
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4340
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4341
variableTypeDeclarationFor:aVariable
1471
8752bd8a5581 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1468
diff changeset
  4342
    "experimental support for Domain variables (constraint programming support):
8752bd8a5581 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1468
diff changeset
  4343
     a variable-declaration of the form
8752bd8a5581 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1468
diff changeset
  4344
        |var (domain) ... |
8752bd8a5581 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1468
diff changeset
  4345
     declares var as a domainVariable.
8752bd8a5581 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1468
diff changeset
  4346
     Valid domains are:
8752bd8a5581 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1468
diff changeset
  4347
        min %% max      - integer range domain
8752bd8a5581 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1468
diff changeset
  4348
        Bool            - boolean domain
8752bd8a5581 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1468
diff changeset
  4349
        Nat             - positive integer domain
8752bd8a5581 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1468
diff changeset
  4350
        Int             - integer domain
8752bd8a5581 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1468
diff changeset
  4351
        #sym1 ... #sym2 - enumerated symbolic domain
8752bd8a5581 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1468
diff changeset
  4352
    "
8752bd8a5581 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1468
diff changeset
  4353
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4354
    |min max domain enumValues|
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4355
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4356
    (tokenType == $() ifFalse:[
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4357
        self syntaxError:'''('' expected' position:tokenPosition.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4358
        ^ #Error
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4359
    ].    
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4360
    self nextToken.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4361
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4362
    (tokenType == #Integer) ifTrue:[
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4363
        min := token.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4364
        self nextToken.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4365
        ((tokenType == #BinaryOperator) and:[token = '%%']) ifFalse:[
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4366
            self syntaxError:'''%%'' expected' position:tokenPosition.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4367
        ].
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4368
        self nextToken.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4369
        (tokenType == #Integer) ifFalse:[
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4370
            self syntaxError:'Integer (upper bound) expected' position:tokenPosition.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4371
        ].
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4372
        max := token.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4373
        self nextToken.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4374
        domain := IntegerDomain min:min max:max.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4375
    ] ifFalse:[
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4376
        ((tokenType == #Identifier) and:[token first isUppercase]) ifTrue:[
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4377
            token = 'Bool' ifTrue:[
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4378
                self nextToken.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4379
                domain := BooleanDomain new.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4380
            ].
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4381
            token = 'Nat' ifTrue:[
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4382
                self nextToken.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4383
                domain := IntegerDomain min:0 max:(SmallInteger maxVal).
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4384
            ].
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4385
            token = 'Int' ifTrue:[
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4386
                self nextToken.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4387
                domain := IntegerDomain min:(SmallInteger minVal) max:(SmallInteger maxVal).
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4388
            ].
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4389
        ] ifFalse:[
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4390
            ((tokenType == #Symbol) or:[(tokenType == #Identifier)]) ifTrue:[
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4391
                enumValues := OrderedCollection new.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4392
                [((tokenType == #Symbol) or:[(tokenType == #Identifier)])] whileTrue:[
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4393
                    enumValues add:token.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4394
                    self nextToken.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4395
                ].
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4396
                domain := EnumeratedDomain new values:enumValues.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4397
            ].
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4398
        ].
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4399
    ].
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4400
    domain isNil ifTrue:[
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4401
        self syntaxError:'invalid domain' position:tokenPosition.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4402
    ].
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4403
    aVariable domain:domain.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4404
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4405
    (tokenType == $)) ifFalse:[
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4406
        self syntaxError:''')'' expected' position:tokenPosition.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4407
        ^ #Error
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4408
    ].    
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4409
    self nextToken.
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4410
! !
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4411
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4412
!Parser methodsFor:'parsing-expressions'!
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4413
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4414
array
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4415
    |arr elements elem pos1|
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4416
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4417
    pos1 := tokenPosition.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4418
    elements := OrderedCollection new:20.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4419
    [tokenType ~~ $) ] whileTrue:[
1165
09d40e1ff75d oops - invalid literal array const was not signalling an error
Claus Gittinger <cg@exept.de>
parents: 1164
diff changeset
  4420
        elem := self arrayConstant.
09d40e1ff75d oops - invalid literal array const was not signalling an error
Claus Gittinger <cg@exept.de>
parents: 1164
diff changeset
  4421
1062
119b394e10b5 parse bug: #(#Error)
Claus Gittinger <cg@exept.de>
parents: 1061
diff changeset
  4422
"/        (elem == #Error) ifTrue:[
119b394e10b5 parse bug: #(#Error)
Claus Gittinger <cg@exept.de>
parents: 1061
diff changeset
  4423
"/            (tokenType == #EOF) ifTrue:[
119b394e10b5 parse bug: #(#Error)
Claus Gittinger <cg@exept.de>
parents: 1061
diff changeset
  4424
"/                self syntaxError:'unterminated array-constant; '')'' expected' 
119b394e10b5 parse bug: #(#Error)
Claus Gittinger <cg@exept.de>
parents: 1061
diff changeset
  4425
"/                        position:pos1 to:tokenPosition
119b394e10b5 parse bug: #(#Error)
Claus Gittinger <cg@exept.de>
parents: 1061
diff changeset
  4426
"/            ].
119b394e10b5 parse bug: #(#Error)
Claus Gittinger <cg@exept.de>
parents: 1061
diff changeset
  4427
"/            ^ #Error
119b394e10b5 parse bug: #(#Error)
Claus Gittinger <cg@exept.de>
parents: 1061
diff changeset
  4428
"/        ].
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4429
        elem isSymbol ifTrue:[
1371
de4c37ac12fc code rewritten to be independent of stream zero-base
Claus Gittinger <cg@exept.de>
parents: 1369
diff changeset
  4430
            self markSymbolFrom:tokenPosition to:(source position1Based-1).
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4431
        ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4432
        elements add:elem.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4433
        self nextToken
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4434
    ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4435
    arr := Array withAll:elements.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4436
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4437
    (ArraysAreImmutable and:[ImmutableArray notNil]) ifTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4438
        arr changeClassTo:ImmutableArray.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4439
    ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4440
    ^ arr
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4441
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4442
    "Modified: / 14.4.1998 / 17:03:29 / cg"
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4443
!
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4444
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4445
arrayConstant
1042
d192446cb745 fixed qualifiedName handling (as array constant)
Claus Gittinger <cg@exept.de>
parents: 1041
diff changeset
  4446
    |val|
d192446cb745 fixed qualifiedName handling (as array constant)
Claus Gittinger <cg@exept.de>
parents: 1041
diff changeset
  4447
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4448
    (tokenType == #Nil) ifTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4449
        ^ nil
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4450
    ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4451
    ((tokenType == #Integer) 
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4452
    or:[tokenType == #Float]) ifTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4453
        ^ tokenValue
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4454
    ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4455
    ((tokenType == #String)
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4456
    or:[tokenType == #Character]) ifTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4457
        ^ tokenValue
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4458
    ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4459
    (tokenType == #True) ifTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4460
        ^ true
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4461
    ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4462
    (tokenType == #False) ifTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4463
        ^ false
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4464
    ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4465
    (tokenType == #Error) ifTrue:[
1062
119b394e10b5 parse bug: #(#Error)
Claus Gittinger <cg@exept.de>
parents: 1061
diff changeset
  4466
        ^ ParseErrorSignal raise.
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4467
    ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4468
    (tokenType == #BinaryOperator) ifTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4469
        ^ tokenName asSymbol
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4470
    ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4471
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4472
    "/ some more special symbol consts ...
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4473
    (tokenType == $| ) ifTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4474
        ^ #| 
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4475
    ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4476
    (tokenType == #Self ) ifTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4477
        ^ #'self' 
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4478
    ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4479
    (tokenType == #Super ) ifTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4480
        ^ #'super' 
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4481
    ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4482
    (tokenType == #Here ) ifTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4483
        ^ #'here' 
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4484
    ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4485
    (tokenType == #ThisContext ) ifTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4486
        ^ #'thisContext' 
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4487
    ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4488
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4489
    ((tokenType == #Keyword) 
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4490
    or:[tokenType == #Identifier]) ifTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4491
        ^ tokenName asSymbol
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4492
    ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4493
    ((tokenType == $()
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4494
    or:[tokenType == #HashLeftParen]) ifTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4495
        self nextToken.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4496
        ^ self array
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4497
    ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4498
    ((tokenType == $[) 
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4499
    or:[tokenType == #HashLeftBrack]) ifTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4500
        self nextToken.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4501
        ^ self byteArray
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4502
    ].
1042
d192446cb745 fixed qualifiedName handling (as array constant)
Claus Gittinger <cg@exept.de>
parents: 1041
diff changeset
  4503
    (tokenType == #HashLeftBrace) ifTrue:[
d192446cb745 fixed qualifiedName handling (as array constant)
Claus Gittinger <cg@exept.de>
parents: 1041
diff changeset
  4504
        val := self qualifiedName.
d192446cb745 fixed qualifiedName handling (as array constant)
Claus Gittinger <cg@exept.de>
parents: 1041
diff changeset
  4505
        val := QualifiedName for:val name.
d192446cb745 fixed qualifiedName handling (as array constant)
Claus Gittinger <cg@exept.de>
parents: 1041
diff changeset
  4506
        ^ val
d192446cb745 fixed qualifiedName handling (as array constant)
Claus Gittinger <cg@exept.de>
parents: 1041
diff changeset
  4507
    ].
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4508
    (tokenType == #Symbol) ifTrue:[
1066
ba626f00f709 remember symbols used in arrayConstant
Claus Gittinger <cg@exept.de>
parents: 1065
diff changeset
  4509
        parseForCode ifFalse:[
ba626f00f709 remember symbols used in arrayConstant
Claus Gittinger <cg@exept.de>
parents: 1065
diff changeset
  4510
            self rememberSymbolUsed:tokenValue.
ba626f00f709 remember symbols used in arrayConstant
Claus Gittinger <cg@exept.de>
parents: 1065
diff changeset
  4511
        ].
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4512
        ^ tokenValue
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4513
    ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4514
    (tokenType == #EOF) ifTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4515
        "just for the better error-hilight; let caller handle error"
1165
09d40e1ff75d oops - invalid literal array const was not signalling an error
Claus Gittinger <cg@exept.de>
parents: 1164
diff changeset
  4516
        self syntaxError:'error in array-constant; EOF unexpected'. 
1062
119b394e10b5 parse bug: #(#Error)
Claus Gittinger <cg@exept.de>
parents: 1061
diff changeset
  4517
        ^ ParseErrorSignal raise.
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4518
    ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4519
    self syntaxError:('error in array-constant; ' 
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4520
                      , tokenType printString 
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4521
                      , ' unexpected').
1062
119b394e10b5 parse bug: #(#Error)
Claus Gittinger <cg@exept.de>
parents: 1061
diff changeset
  4522
    ^ ParseErrorSignal raise.
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4523
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4524
    "Modified: / 14.4.1998 / 18:22:54 / cg"
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4525
!
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4526
1405
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4527
arrayIndexingExpression
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4528
    "parse an array index expression; this is a squeak/stx extension.
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4529
     foo[idx] is syntactic sugar for foo matrixAt:x
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4530
     and foo[idx] := expr is syntactic sugar for foo matrixAt:x put:expr"
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4531
1412
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4532
    |receiver argList selectorStream valNode|
1405
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4533
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4534
    receiver := self functionCallExpression.
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4535
    tokenType == $[ ifFalse:[^ receiver].
1412
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4536
    AllowArrayIndexSyntaxExtension == true ifFalse:[^ receiver.].
1405
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4537
    (receiver == #Error) ifTrue:[^ #Error].
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4538
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4539
    selectorStream := WriteStream on: (String new: 32).
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4540
    argList := OrderedCollection new.
1412
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4541
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4542
    [
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4543
        [      
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4544
            |indexNode|
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4545
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4546
            self nextToken.
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4547
            indexNode := self primary.
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4548
            argList isEmpty ifTrue:[selectorStream nextPutAll:'_'].
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4549
            selectorStream nextPutAll:'at:'.
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4550
            argList add: indexNode.
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4551
            (tokenType == #BinaryOperator ) and:[ token = ',']  
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4552
        ] whileTrue.
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4553
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4554
        tokenType == $] ifFalse:[ 
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4555
            self parseError:''']'' expected'.
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4556
            ^ #Error
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4557
        ].
1405
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4558
        self nextToken.
1412
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4559
        
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4560
        tokenType == $[ ifTrue:[
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4561
            receiver := MessageNode 
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4562
                    receiver:receiver 
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4563
                    selector:(selectorStream contents)
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4564
                    args:argList.
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4565
            selectorStream := WriteStream on: (String new: 32).
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4566
        ].
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4567
        tokenType == $[ 
1405
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4568
    ] whileTrue.
1411
c71cf8b2be10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1410
diff changeset
  4569
1405
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4570
    tokenType == #':=' ifTrue:[
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4571
        self nextToken.
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4572
        selectorStream nextPutAll:'put:'.
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4573
        valNode := self expression.
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4574
        valNode == #Error ifTrue:[
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4575
            ^ valNode
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4576
        ].
1412
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4577
"/ 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
  4578
"/        (valNode isKindOf: BlockNode) ifFalse:[
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4579
"/                valNode _ BlockNode new
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4580
"/                                        arguments: #()
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4581
"/                                        statements: (OrderedCollection with: valNode)
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4582
"/                                        returns: false
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4583
"/                                        from: encoder.
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4584
"/        ].
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4585
        argList add: valNode
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4586
    ].
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4587
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4588
    ^ MessageNode 
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4589
            receiver:receiver 
1412
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4590
            selector:selectorStream contents
1405
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4591
            args:argList.
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4592
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4593
    "
1412
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4594
     AllowArrayIndexSyntaxExtension := true.
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4595
     AllowArrayIndexSyntaxExtension := false.
1405
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4596
    "
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4597
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4598
    "
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4599
     |foo|
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4600
1412
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4601
     foo := Array new:10 withAll:2.
1405
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4602
     1 + foo[1].     
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4603
    "
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4604
    "
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4605
     |foo|
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4606
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4607
     foo := Array new:10.
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4608
     foo[1] := 'hello'.     
1412
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4609
     foo[2].     
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4610
     foo[1].     
1405
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4611
    "
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4612
!
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4613
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4614
binaryExpression
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4615
    "parse a binary-expression; return a node-tree, nil or #Error"
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4616
1328
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  4617
    |receiver|
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4618
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4619
    receiver := self unaryExpression.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4620
    (receiver == #Error) ifTrue:[^ #Error].
1328
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  4621
    ^ self binaryExpressionFor:receiver
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  4622
!
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  4623
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  4624
binaryExpressionFor:receiverArg
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  4625
    "parse a binary-expression; return a node-tree, nil or #Error"
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  4626
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  4627
    |receiver theReceiver arg sel pos try lno note|
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  4628
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  4629
    receiver := receiverArg.
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  4630
    (receiver == #Error) ifTrue:[^ #Error].
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4631
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4632
    "special kludge: since Scanner cannot know if -digit is a binary
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4633
     expression or a negative constant, handle cases here"
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4634
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4635
    [(tokenType == #BinaryOperator) 
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4636
     or:[(tokenType == $|)
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4637
         or:[((tokenType == #Integer) or:[tokenType == #Float])
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4638
             and:[tokenValue < 0]]]
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4639
    ] whileTrue:[
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4640
        "/ kludge alarm: in a function-call argList, #, is not a binarySelector
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4641
        inFunctionCallArgument == true ifTrue:[
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4642
            ((tokenType == #BinaryOperator) and:[tokenName = ',']) ifTrue:[
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4643
                ^ receiver
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4644
            ].
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4645
        ].
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4646
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4647
        pos := tokenPosition.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4648
        lno := tokenLineNr.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4649
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4650
        "/ kludge alarm: bar and minus are not scanned as binop
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4651
        (tokenType == $|) ifTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4652
            sel := '|'.
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4653
            sel := self selectorCheck:sel for:receiver position:tokenPosition to:tokenPosition.
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4654
            self nextToken
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4655
        ] ifFalse:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4656
            (tokenType == #BinaryOperator) ifTrue:[
977
c1afbaf48a23 remember used & modified local vars;
Claus Gittinger <cg@exept.de>
parents: 971
diff changeset
  4657
                sel := tokenName.
1022
32bc5fc06687 added selector correction.
Claus Gittinger <cg@exept.de>
parents: 1020
diff changeset
  4658
                sel := self selectorCheck:sel for:receiver position:tokenPosition to:(tokenPosition + tokenName size - 1).
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4659
                self nextToken
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4660
            ] ifFalse:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4661
                sel := '-'.
1103
b75a71996388 ensure that token follows tomeName & tokenValue
Claus Gittinger <cg@exept.de>
parents: 1100
diff changeset
  4662
                token := tokenValue := tokenValue negated
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4663
            ]
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4664
        ].
864
a716d90fa5a9 better selector marking
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
  4665
        self markSelector:sel from:pos to:(pos + sel size - 1) receiverNode:receiver.
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4666
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4667
        arg := self unaryExpression.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4668
        (arg == #Error) ifTrue:[^ #Error].
1061
457156ffedec *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1060
diff changeset
  4669
        theReceiver := receiver.
1405
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4670
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4671
        try := BinaryNode receiver:receiver selector:sel arg:arg fold:foldConstants.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4672
        (try isMemberOf:String) ifTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4673
            self parseError:try position:pos to:tokenPosition.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4674
            errorFlag := false. "ok, user wants it - so he'll get it"
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4675
            receiver := BinaryNode receiver:receiver selector:sel arg:arg fold:nil.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4676
        ] ifFalse:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4677
            receiver := try
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4678
        ].
903
038c2c447dcf always do plausibility checks
Claus Gittinger <cg@exept.de>
parents: 897
diff changeset
  4679
        note := self plausibilityCheck:receiver.
038c2c447dcf always do plausibility checks
Claus Gittinger <cg@exept.de>
parents: 897
diff changeset
  4680
        note notNil ifTrue:[
038c2c447dcf always do plausibility checks
Claus Gittinger <cg@exept.de>
parents: 897
diff changeset
  4681
            self warning:note position:pos to:tokenPosition
038c2c447dcf always do plausibility checks
Claus Gittinger <cg@exept.de>
parents: 897
diff changeset
  4682
        ].
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4683
        receiver lineNumber:lno.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4684
        receiver selectorPosition:pos.
1060
9978f9d22dde more queries (remember super messages)
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4685
        parseForCode ifFalse:[
1061
457156ffedec *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1060
diff changeset
  4686
            self rememberSelectorUsed:sel receiver:theReceiver
1060
9978f9d22dde more queries (remember super messages)
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4687
        ].
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4688
    ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4689
    ^ receiver
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4690
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4691
    "Modified: / 9.1.1998 / 19:05:18 / stefan"
1022
32bc5fc06687 added selector correction.
Claus Gittinger <cg@exept.de>
parents: 1020
diff changeset
  4692
    "Modified: / 19.1.2000 / 16:22:04 / cg"
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4693
!
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4694
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4695
byteArray
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4696
    "started with ST-80 R4 - allow byteArray constants as #[ ... ]"
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4697
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4698
    |bytes index limit newArray elem pos1 pos2|
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4699
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4700
    pos1 := tokenPosition.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4701
    bytes := ByteArray uninitializedNew:5000.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4702
    index := 0. limit := 5000.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4703
    [tokenType ~~ $] ] whileTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4704
	pos2 := tokenPosition.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4705
	"
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4706
	 this is not good programming style, but speeds up
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4707
	 reading of huge byte arrays (i.e. stored Images ...)
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4708
	"
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4709
	(tokenType == #Integer) ifTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4710
	    elem := tokenValue
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4711
	] ifFalse:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4712
	    elem := self arrayConstant.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4713
	    (elem == #Error) ifTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4714
		(tokenType == #EOF) ifTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4715
		    self syntaxError:'unterminated bytearray-constant; '']'' expected' 
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4716
			    position:pos1 to:tokenPosition
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4717
		].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4718
		^ #Error
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4719
	    ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4720
	].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4721
	((elem isMemberOf:SmallInteger) and:[elem between:0 and:255]) ifTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4722
	    index := index + 1.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4723
	    bytes at:index put:elem.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4724
	    index == limit ifTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4725
		newArray := ByteArray uninitializedNew:(limit * 2).
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4726
		newArray replaceFrom:1 to:limit with:bytes startingAt:1.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4727
		limit := limit * 2.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4728
		bytes := newArray
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4729
	    ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4730
	] ifFalse:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4731
	    self parseError:'invalid ByteArray element' position:pos2 to:tokenPosition - 1
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4732
	].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4733
	self nextToken.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4734
    ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4735
    newArray := ByteArray uninitializedNew:index.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4736
    newArray replaceFrom:1 to:index with:bytes startingAt:1.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4737
    ^ newArray
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4738
!
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4739
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4740
degeneratedKeywordExpressionForSelector
1406
cb80600efd76 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1405
diff changeset
  4741
    "parse a keyword-expression without receiver - for the selector only. 
cb80600efd76 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1405
diff changeset
  4742
     Return the selector or nil (if it cannot be determined). 
cb80600efd76 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1405
diff changeset
  4743
     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
  4744
     (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
  4745
      the selection)"
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4746
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4747
    |sel arg rec|
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4748
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4749
    (tokenType == #Keyword) ifTrue:[
1271
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4750
        sel := tokenName.
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4751
        self nextToken.
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4752
        arg := self binaryExpression.
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4753
        (arg == #Error) ifTrue:[^ sel].
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4754
        [tokenType == #Keyword] whileTrue:[
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4755
            sel := sel , tokenName.
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4756
            self nextToken.
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4757
            arg := self binaryExpression.
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4758
            (arg == #Error) ifTrue:[^ sel].
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4759
        ].
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4760
        ^ sel
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4761
    ].
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4762
1406
cb80600efd76 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1405
diff changeset
  4763
    (rec := self arrayIndexingExpression) == #Error ifTrue:[ ^ nil].
cb80600efd76 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1405
diff changeset
  4764
    sel := self degeneratedKeywordExpressionForSelector.
cb80600efd76 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1405
diff changeset
  4765
    sel notNil ifTrue:[ ^ sel].
cb80600efd76 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1405
diff changeset
  4766
1407
d8c34d91199e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1406
diff changeset
  4767
    rec isAssignment ifTrue:[
d8c34d91199e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1406
diff changeset
  4768
        rec := rec expression
d8c34d91199e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1406
diff changeset
  4769
    ].
1406
cb80600efd76 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1405
diff changeset
  4770
    rec isMessage ifTrue:[
cb80600efd76 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1405
diff changeset
  4771
        ^ rec selector
cb80600efd76 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1405
diff changeset
  4772
    ].        
cb80600efd76 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1405
diff changeset
  4773
    ^ nil
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4774
!
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4775
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4776
expression
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4777
    "parse a cascade-expression; return a node-tree, nil or #Error.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4778
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4779
     expression ::= keywordExpression
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4780
                    | keywordExpression cascade
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4781
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4782
     cascade ::= ';' expressionSendPart
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4783
                 | cascade ';' expressionSendPart
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4784
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4785
     expressionSendPart ::= { KEYWORD binaryExpression }
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4786
                            | BINARYOPERATOR unaryExpression
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4787
                            | IDENTIFIER
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4788
    "
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4789
864
a716d90fa5a9 better selector marking
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
  4790
    |receiver arg sel args pos pos2 lno tokenEnd realReceiver positions|
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4791
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4792
    pos := tokenPosition.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4793
    receiver := self keywordExpression.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4794
    (receiver == #Error) ifTrue:[^ #Error].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4795
    (tokenType == $;) ifTrue:[
743
3ced4791090c changes for cascades to super/here semantics.
Claus Gittinger <cg@exept.de>
parents: 739
diff changeset
  4796
        receiver isMessage ifFalse:[
3ced4791090c changes for cascades to super/here semantics.
Claus Gittinger <cg@exept.de>
parents: 739
diff changeset
  4797
            self syntaxError:'left side of cascade must be a message expression'
3ced4791090c changes for cascades to super/here semantics.
Claus Gittinger <cg@exept.de>
parents: 739
diff changeset
  4798
                    position:pos to:tokenPosition.
3ced4791090c changes for cascades to super/here semantics.
Claus Gittinger <cg@exept.de>
parents: 739
diff changeset
  4799
            realReceiver := receiver. "/ only to allow continuing.
3ced4791090c changes for cascades to super/here semantics.
Claus Gittinger <cg@exept.de>
parents: 739
diff changeset
  4800
        ] ifTrue:[
3ced4791090c changes for cascades to super/here semantics.
Claus Gittinger <cg@exept.de>
parents: 739
diff changeset
  4801
            realReceiver := receiver receiver.
3ced4791090c changes for cascades to super/here semantics.
Claus Gittinger <cg@exept.de>
parents: 739
diff changeset
  4802
        ].
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4803
        [tokenType == $;] whileTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4804
            self nextToken.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4805
            (tokenType == #Identifier) ifTrue:[
739
18bce3ea44f5 fixed syntax-highlight for cascade-selectors.
Claus Gittinger <cg@exept.de>
parents: 738
diff changeset
  4806
                tokenEnd := tokenPosition + tokenName size - 1.
864
a716d90fa5a9 better selector marking
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
  4807
                self markSelector:tokenName from:tokenPosition to:tokenEnd receiverNode:realReceiver.
977
c1afbaf48a23 remember used & modified local vars;
Claus Gittinger <cg@exept.de>
parents: 971
diff changeset
  4808
                sel := tokenName.
1022
32bc5fc06687 added selector correction.
Claus Gittinger <cg@exept.de>
parents: 1020
diff changeset
  4809
                sel := self selectorCheck:tokenName for:realReceiver position:tokenPosition to:tokenEnd.
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4810
                receiver := CascadeNode receiver:receiver selector:sel.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4811
                receiver lineNumber:tokenLineNr.
1060
9978f9d22dde more queries (remember super messages)
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4812
                parseForCode ifFalse:[
9978f9d22dde more queries (remember super messages)
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4813
                    self rememberSelectorUsed:sel
9978f9d22dde more queries (remember super messages)
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4814
                ].
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4815
                self nextToken.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4816
            ] ifFalse:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4817
                (tokenType == #BinaryOperator) ifTrue:[
739
18bce3ea44f5 fixed syntax-highlight for cascade-selectors.
Claus Gittinger <cg@exept.de>
parents: 738
diff changeset
  4818
                    tokenEnd := tokenPosition + tokenName size - 1.
864
a716d90fa5a9 better selector marking
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
  4819
                    self markSelector:tokenName from:tokenPosition to:tokenEnd receiverNode:realReceiver.
977
c1afbaf48a23 remember used & modified local vars;
Claus Gittinger <cg@exept.de>
parents: 971
diff changeset
  4820
                    sel := tokenName.
1022
32bc5fc06687 added selector correction.
Claus Gittinger <cg@exept.de>
parents: 1020
diff changeset
  4821
                    sel := self selectorCheck:tokenName for:realReceiver position:tokenPosition to:tokenEnd.
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4822
                    lno := tokenLineNr. 
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4823
                    self nextToken.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4824
                    arg := self unaryExpression.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4825
                    (arg == #Error) ifTrue:[^ #Error].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4826
                    receiver := CascadeNode receiver:receiver selector:sel arg:arg.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4827
                    receiver lineNumber:lno.
1060
9978f9d22dde more queries (remember super messages)
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4828
                    parseForCode ifFalse:[
9978f9d22dde more queries (remember super messages)
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4829
                        self rememberSelectorUsed:sel
9978f9d22dde more queries (remember super messages)
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4830
                    ].
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4831
                ] ifFalse:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4832
                    (tokenType == #Keyword) ifTrue:[
739
18bce3ea44f5 fixed syntax-highlight for cascade-selectors.
Claus Gittinger <cg@exept.de>
parents: 738
diff changeset
  4833
                        tokenEnd := tokenPosition + tokenName size - 1.
864
a716d90fa5a9 better selector marking
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
  4834
                        positions := OrderedCollection with:(tokenPosition to:tokenEnd).
739
18bce3ea44f5 fixed syntax-highlight for cascade-selectors.
Claus Gittinger <cg@exept.de>
parents: 738
diff changeset
  4835
                        pos := tokenPosition.
18bce3ea44f5 fixed syntax-highlight for cascade-selectors.
Claus Gittinger <cg@exept.de>
parents: 738
diff changeset
  4836
                        pos2 := tokenEnd.
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4837
                        lno := tokenLineNr. 
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4838
                        sel := tokenName.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4839
                        self nextToken.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4840
                        arg := self binaryExpression.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4841
                        (arg == #Error) ifTrue:[^ #Error].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4842
                        args := Array with:arg.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4843
                        [tokenType == #Keyword] whileTrue:[
739
18bce3ea44f5 fixed syntax-highlight for cascade-selectors.
Claus Gittinger <cg@exept.de>
parents: 738
diff changeset
  4844
                            tokenEnd := tokenPosition + tokenName size - 1.
864
a716d90fa5a9 better selector marking
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
  4845
                            positions add:(tokenPosition to:tokenEnd).
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4846
                            sel := sel , tokenName.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4847
                            self nextToken.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4848
                            arg := self binaryExpression.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4849
                            (arg == #Error) ifTrue:[^ #Error].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4850
                            args := args copyWith:arg.
739
18bce3ea44f5 fixed syntax-highlight for cascade-selectors.
Claus Gittinger <cg@exept.de>
parents: 738
diff changeset
  4851
                            pos2 := tokenEnd
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4852
                        ].
1022
32bc5fc06687 added selector correction.
Claus Gittinger <cg@exept.de>
parents: 1020
diff changeset
  4853
                        sel := self selectorCheck:sel for:realReceiver position:pos to:pos2.
864
a716d90fa5a9 better selector marking
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
  4854
a716d90fa5a9 better selector marking
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
  4855
                        positions do:[:p |
a716d90fa5a9 better selector marking
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
  4856
                            self markSelector:sel from:p start to:p stop receiverNode:realReceiver.
a716d90fa5a9 better selector marking
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
  4857
                        ].
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4858
                        receiver := CascadeNode receiver:receiver selector:sel args:args.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4859
                        receiver lineNumber:lno.
1060
9978f9d22dde more queries (remember super messages)
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4860
                        parseForCode ifFalse:[
9978f9d22dde more queries (remember super messages)
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4861
                            self rememberSelectorUsed:sel
9978f9d22dde more queries (remember super messages)
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4862
                        ].
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4863
                    ] ifFalse:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4864
                        (tokenType == #Error) ifTrue:[^ #Error].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4865
                        self syntaxError:('invalid cascade; ' , tokenType printString , ' unexpected')
1371
de4c37ac12fc code rewritten to be independent of stream zero-base
Claus Gittinger <cg@exept.de>
parents: 1369
diff changeset
  4866
                                position:tokenPosition to:source position1Based - 1.
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4867
                        ^ #Error
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4868
                    ]
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4869
                ]
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4870
            ]
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4871
        ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4872
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4873
        "obscure (unspecified ?) if selector follows; Question:
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4874
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4875
        is
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4876
                'expr sel1; sel2 sel3'
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4877
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4878
        to be parsed as: 
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4879
                (t := expr.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4880
                 t sel1.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4881
                 t sel2) sel3
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4882
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4883
         or:
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4884
                (t := expr.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4885
                 t sel1.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4886
                 t sel2 sel3)
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4887
        "
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4888
        ((tokenType == #Identifier) 
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4889
         or:[(tokenType == #BinaryOperator)
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4890
             or:[tokenType == #Keyword]]) ifTrue:[
1328
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  4891
            self syntaxError:'ambigous cascade - please group using (...)'
1371
de4c37ac12fc code rewritten to be independent of stream zero-base
Claus Gittinger <cg@exept.de>
parents: 1369
diff changeset
  4892
                    position:tokenPosition to:source position1Based - 1.
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4893
            ^ #Error
1328
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  4894
"/            self warning: "syntaxError:" 'possibly ambigous cascade - please group using (...)'
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  4895
"/                    position:tokenPosition to:source position - 1.
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  4896
"/            tokenType == #Identifier ifTrue:[
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  4897
"/                ^ self unaryExpressionFor:receiver
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  4898
"/            ].
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  4899
"/            tokenType == #BinaryOperator ifTrue:[
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  4900
"/                ^ self binaryExpressionFor:receiver
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  4901
"/            ].
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  4902
"/            ^ self keywordExpressionFor:receiver
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4903
        ]
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4904
    ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4905
    ^ receiver
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4906
1022
32bc5fc06687 added selector correction.
Claus Gittinger <cg@exept.de>
parents: 1020
diff changeset
  4907
    "Modified: / 19.1.2000 / 16:22:16 / cg"
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4908
!
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4909
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4910
functionCallArgList
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4911
    |argList arg prevInFunctionCallArgument|
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4912
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4913
    self nextToken.
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4914
    tokenType == $) ifTrue:[ self nextToken. ^ #() ].
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4915
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4916
    argList := OrderedCollection new.
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4917
    [ true ] whileTrue:[
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4918
        prevInFunctionCallArgument := inFunctionCallArgument.
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4919
        inFunctionCallArgument := true.
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4920
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4921
        arg := self expression.
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4922
        argList add:arg.
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4923
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4924
        inFunctionCallArgument := prevInFunctionCallArgument.
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4925
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4926
        tokenType == $) ifTrue:[
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4927
            self nextToken.
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4928
            ^ argList 
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4929
        ].
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4930
        ((tokenType == #BinaryOperator) and:[tokenName = ',']) ifFalse:[
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4931
            self parseError:'"," or ")" expected'.
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4932
        ].
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4933
        self nextToken.
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4934
    ].
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4935
!
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4936
1271
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4937
functionCallExpression
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4938
    "parse a functionCall; this is an st/x extension.
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4939
     foo(x) is syntactic sugar for foo value:x"
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4940
1342
65f8f4d0ce09 only autoDefine workspace vars on the top level (i.e. not within blocks)
Claus Gittinger <cg@exept.de>
parents: 1341
diff changeset
  4941
    |receiver numArgs argList evalSelectors evalSelector|
1271
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4942
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4943
    receiver := self primary.
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4944
    tokenType == $( ifFalse:[^ receiver].
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4945
    AllowFunctionCallSyntaxForBlockEvaluation == true ifFalse:[^ receiver.].
1271
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4946
    (receiver == #Error) ifTrue:[^ #Error].
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4947
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4948
    receiver isVariable ifFalse:[
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4949
        ((receiver isMessage or:[receiver isAssignment]) and:[receiver parenthized]) ifFalse:[
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4950
            receiver isBlock ifFalse:[
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4951
                ^ receiver
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4952
            ]
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4953
        ].
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4954
    ].
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4955
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4956
    argList := self functionCallArgList.
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4957
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4958
    "/ make it a block evaluation
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4959
    numArgs := argList size.
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4960
    numArgs == 0 ifTrue:[
1341
e6cb61331a88 eval -> value
Claus Gittinger <cg@exept.de>
parents: 1340
diff changeset
  4961
        ^ UnaryNode receiver:receiver selector:#value
e6cb61331a88 eval -> value
Claus Gittinger <cg@exept.de>
parents: 1340
diff changeset
  4962
    ].
e6cb61331a88 eval -> value
Claus Gittinger <cg@exept.de>
parents: 1340
diff changeset
  4963
    evalSelectors := #( #'value:'
e6cb61331a88 eval -> value
Claus Gittinger <cg@exept.de>
parents: 1340
diff changeset
  4964
                       #'value:value:'
e6cb61331a88 eval -> value
Claus Gittinger <cg@exept.de>
parents: 1340
diff changeset
  4965
                       #'value:value:value:'
e6cb61331a88 eval -> value
Claus Gittinger <cg@exept.de>
parents: 1340
diff changeset
  4966
                       #'value:value:value:value:'
e6cb61331a88 eval -> value
Claus Gittinger <cg@exept.de>
parents: 1340
diff changeset
  4967
                       #'value:value:value:value:value:'
e6cb61331a88 eval -> value
Claus Gittinger <cg@exept.de>
parents: 1340
diff changeset
  4968
                       #'value:value:value:value:value:value:'
e6cb61331a88 eval -> value
Claus Gittinger <cg@exept.de>
parents: 1340
diff changeset
  4969
                       #'value:value:value:value:value:value:value:'
e6cb61331a88 eval -> value
Claus Gittinger <cg@exept.de>
parents: 1340
diff changeset
  4970
                       #'value:value:value:value:value:value:value:value:'
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4971
                     ).
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4972
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4973
    numArgs <= evalSelectors size ifTrue:[
1342
65f8f4d0ce09 only autoDefine workspace vars on the top level (i.e. not within blocks)
Claus Gittinger <cg@exept.de>
parents: 1341
diff changeset
  4974
        evalSelector := evalSelectors at:numArgs.
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4975
        ^ MessageNode 
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4976
                receiver:receiver 
1342
65f8f4d0ce09 only autoDefine workspace vars on the top level (i.e. not within blocks)
Claus Gittinger <cg@exept.de>
parents: 1341
diff changeset
  4977
                selector:evalSelector
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4978
                args:argList.
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4979
    ].
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4980
    "/ gen argument vector
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4981
    ^ MessageNode 
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4982
            receiver:receiver 
1341
e6cb61331a88 eval -> value
Claus Gittinger <cg@exept.de>
parents: 1340
diff changeset
  4983
            selector:#valueWithArguments:
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4984
            args:(self genMakeArrayWith:argList).
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4985
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4986
    "
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4987
     AllowFunctionCallSyntaxForBlockEvaluation := true.
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4988
    "
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4989
1271
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4990
    "
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4991
     |foo|
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4992
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4993
     foo := [:x | x + 1].
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4994
     1 + foo(1).     
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4995
     foo(1).     
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4996
    "
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4997
    "
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4998
     |addN add1|
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4999
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5000
     addN := [:n | [:x | x + n]].
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5001
     add1 := addN(1).
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5002
     add1(10).       
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5003
    "
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5004
    "AllowFunctionCallSyntaxForBlockEvaluation := false."
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5005
    "
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5006
     |addN add1|
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5007
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5008
     addN := [:n | [:x | x + n]].
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5009
     add1 := addN value:1.
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5010
     add1 value:10       
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5011
    "
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5012
!
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5013
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5014
genMakeArrayWith:elementExpressions
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5015
    "return a node to generate an array at runtime.
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5016
     Will generate:
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5017
        Array with:el1 ... with:elN                             (if N <= 5)
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5018
     or:
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5019
        (Array new at:1 put:el1; ... at:N put:elN; yourself)    (otherwise)
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5020
    "
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5021
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5022
    |numEl arrRec sel expr|
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5023
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5024
    arrRec := VariableNode globalNamed:#Array.
1271
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5025
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5026
    numEl := elementExpressions size.
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5027
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5028
    (numEl between:1 and:8) ifTrue:[
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5029
        sel := #( 
1275
91a0eead9e0e oops - stc bug workaround - scans keyword selectors
Claus Gittinger <cg@exept.de>
parents: 1274
diff changeset
  5030
                  #'with:'
91a0eead9e0e oops - stc bug workaround - scans keyword selectors
Claus Gittinger <cg@exept.de>
parents: 1274
diff changeset
  5031
                  #'with:with:'
91a0eead9e0e oops - stc bug workaround - scans keyword selectors
Claus Gittinger <cg@exept.de>
parents: 1274
diff changeset
  5032
                  #'with:with:with:'
91a0eead9e0e oops - stc bug workaround - scans keyword selectors
Claus Gittinger <cg@exept.de>
parents: 1274
diff changeset
  5033
                  #'with:with:with:with:'
91a0eead9e0e oops - stc bug workaround - scans keyword selectors
Claus Gittinger <cg@exept.de>
parents: 1274
diff changeset
  5034
                  #'with:with:with:with:with:'
91a0eead9e0e oops - stc bug workaround - scans keyword selectors
Claus Gittinger <cg@exept.de>
parents: 1274
diff changeset
  5035
                  #'with:with:with:with:with:with:'
91a0eead9e0e oops - stc bug workaround - scans keyword selectors
Claus Gittinger <cg@exept.de>
parents: 1274
diff changeset
  5036
                  #'with:with:with:with:with:with:with:'
91a0eead9e0e oops - stc bug workaround - scans keyword selectors
Claus Gittinger <cg@exept.de>
parents: 1274
diff changeset
  5037
                  #'with:with:with:with:with:with:with:with:'
1271
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5038
                ) at:numEl.
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5039
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5040
        ^ MessageNode 
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5041
                    receiver:arrRec
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5042
                    selector:sel
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5043
                    args:elementExpressions.
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5044
    ].
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5045
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5046
    "/ array creation expression ...
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5047
    expr := MessageNode 
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5048
                receiver:arrRec
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5049
                selector:#new:
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5050
                arg:(ConstantNode type:#Integer value:numEl).
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5051
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5052
    numEl == 0 ifTrue:[
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5053
        ^ expr.
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5054
    ].
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5055
    "/ followed by a bunch of #at:put: messages...
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5056
    elementExpressions keysAndValuesDo:[:idx :e |
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5057
        expr := (idx == 1 ifTrue:[MessageNode] ifFalse:[CascadeNode])
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5058
                    receiver:expr
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5059
                    selector:#at:put:
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5060
                    arg1:(ConstantNode type:#Integer value:idx)
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5061
                    arg2:e
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5062
                    fold:false.
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5063
    ].
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5064
    "/ followed by a #yourself: message...
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5065
    expr := CascadeNode
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5066
                receiver:expr
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5067
                selector:#yourself.
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5068
    ^ expr
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5069
!
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5070
1306
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  5071
isValidUnarySelector:tokenType
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  5072
    tokenType == #Identifier ifTrue:[^true].
1373
982b0546252f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1371
diff changeset
  5073
    tokenType == #Here ifTrue:[^true].
982b0546252f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1371
diff changeset
  5074
1306
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  5075
    AllowReservedWordsAsSelectors == true ifTrue:[
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  5076
        tokenType == #Self ifTrue:[^true].
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  5077
        tokenType == #Nil ifTrue:[^true].
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  5078
        tokenType == #True ifTrue:[^true].
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  5079
        tokenType == #False ifTrue:[^true].
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  5080
        tokenType == #Super ifTrue:[^true].
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  5081
        tokenType == #ThisContext ifTrue:[^true].
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  5082
    ].
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  5083
    ^ false
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  5084
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  5085
    "
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  5086
     AllowReservedWordsAsSelectors := true
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  5087
     AllowReservedWordsAsSelectors := false
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  5088
    "
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  5089
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  5090
    "
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  5091
     1234 self
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  5092
     1234 nil
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  5093
     1234 true
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  5094
     1234 false
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  5095
     1234 here
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  5096
     1234 super
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  5097
     1234 thisContext
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  5098
    "
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  5099
!
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  5100
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5101
keywordExpression
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5102
    "parse a keyword-expression; return a node-tree, nil or #Error.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5103
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5104
     keywordExpression ::= binaryexpression
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5105
                           | { KEYWORD-PART binaryExpression }
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5106
    "
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5107
1328
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  5108
    |receiver|
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  5109
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5110
    receiver := self binaryExpression.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5111
    (receiver == #Error) ifTrue:[^ #Error].
1328
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  5112
    ^ self keywordExpressionFor:receiver
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  5113
!
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  5114
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  5115
keywordExpressionFor:receiverArg
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  5116
    "parse a keyword-expression; return a node-tree, nil or #Error.
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  5117
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  5118
     keywordExpression ::= binaryexpression
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  5119
                           | { KEYWORD-PART binaryExpression }
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  5120
    "
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  5121
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  5122
    |lastReceiver receiver sel arg args posR1 posR2 pos1 pos2 try lno note positions|
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  5123
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  5124
    receiver := receiverArg.
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  5125
    posR1 := tokenPosition.
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5126
    (tokenType == #Keyword) ifTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5127
        pos1 := posR2 := tokenPosition.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5128
        pos2 := tokenPosition + tokenName size - 1.
864
a716d90fa5a9 better selector marking
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
  5129
        positions := OrderedCollection with:(pos1 to:pos2).
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5130
        sel := tokenName.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5131
        lno := tokenLineNr.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5132
        self nextToken.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5133
        arg := self binaryExpression.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5134
        (arg == #Error) ifTrue:[^ #Error].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5135
        args := Array with:arg.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5136
        [tokenType == #Keyword] whileTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5137
            sel := sel , tokenName.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5138
            pos2 := tokenPosition + tokenName size - 1.
864
a716d90fa5a9 better selector marking
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
  5139
            positions add:(tokenPosition to:pos2).
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5140
            self nextToken.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5141
            arg := self binaryExpression.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5142
            (arg == #Error) ifTrue:[^ #Error].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5143
            args := args copyWith:arg.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5144
        ].
864
a716d90fa5a9 better selector marking
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
  5145
a716d90fa5a9 better selector marking
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
  5146
        positions do:[:p |
a716d90fa5a9 better selector marking
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
  5147
            self markSelector:sel from:p start to:p stop receiverNode:receiver.
a716d90fa5a9 better selector marking
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
  5148
        ].
1439
0fddfcdca37b selector check improved
Claus Gittinger <cg@exept.de>
parents: 1437
diff changeset
  5149
        sel := self selectorCheck:sel for:receiver positions:positions.
864
a716d90fa5a9 better selector marking
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
  5150
1149
8f419e76812c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1145
diff changeset
  5151
        ignoreErrors ifFalse:[
8f419e76812c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1145
diff changeset
  5152
            (Class definitionSelectors includes:sel) ifTrue:[
8f419e76812c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1145
diff changeset
  5153
                receiver isVariable ifTrue:[
8f419e76812c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1145
diff changeset
  5154
                    receiver isUndeclared ifTrue:[
8f419e76812c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1145
diff changeset
  5155
                        self parseError:('undefined superclass: ' , receiver name) position:pos1 to:pos2.
8f419e76812c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1145
diff changeset
  5156
                    ].
8f419e76812c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1145
diff changeset
  5157
                ]
8f419e76812c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1145
diff changeset
  5158
            ].
964
5fa44b4ff2cb check for undeclared class when evaluating subclass
Claus Gittinger <cg@exept.de>
parents: 944
diff changeset
  5159
        ].
5fa44b4ff2cb check for undeclared class when evaluating subclass
Claus Gittinger <cg@exept.de>
parents: 944
diff changeset
  5160
1065
Claus Gittinger <cg@exept.de>
parents: 1064
diff changeset
  5161
        lastReceiver := receiver.
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5162
        try := MessageNode receiver:receiver selector:sel args:args fold:foldConstants.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5163
        (try isMemberOf:String) ifTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5164
            self parseError:try position:pos1 to:pos2.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5165
            errorFlag := false. "ok, user wants it - so he'll get it"
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5166
            receiver := MessageNode receiver:receiver selector:sel args:args fold:nil.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5167
        ] ifFalse:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5168
            receiver := try
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5169
        ].
903
038c2c447dcf always do plausibility checks
Claus Gittinger <cg@exept.de>
parents: 897
diff changeset
  5170
        note := self plausibilityCheck:receiver.
038c2c447dcf always do plausibility checks
Claus Gittinger <cg@exept.de>
parents: 897
diff changeset
  5171
        note notNil ifTrue:[
038c2c447dcf always do plausibility checks
Claus Gittinger <cg@exept.de>
parents: 897
diff changeset
  5172
            self warning:note position:pos1 to:pos2
038c2c447dcf always do plausibility checks
Claus Gittinger <cg@exept.de>
parents: 897
diff changeset
  5173
        ].
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5174
        receiver lineNumber:lno.
1060
9978f9d22dde more queries (remember super messages)
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  5175
        parseForCode ifFalse:[
1065
Claus Gittinger <cg@exept.de>
parents: 1064
diff changeset
  5176
            self rememberSelectorUsed:sel receiver:lastReceiver
1060
9978f9d22dde more queries (remember super messages)
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  5177
        ].
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5178
1193
c441d3b202e5 check bad super message
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
  5179
"/        (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
  5180
"/            receiver isSuper ifTrue:[
c441d3b202e5 check bad super message
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
  5181
"/                sel ~= selector ifTrue:[
c441d3b202e5 check bad super message
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
  5182
"/                    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
  5183
"/                                  position:posR1 to:posR2-1
c441d3b202e5 check bad super message
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
  5184
"/                ].
c441d3b202e5 check bad super message
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
  5185
"/            ].
c441d3b202e5 check bad super message
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
  5186
"/        ].
c441d3b202e5 check bad super message
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
  5187
"/
c441d3b202e5 check bad super message
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
  5188
        (sel = #and: or:[sel = #or:]) ifTrue:[
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5189
            receiver arg1 isBlock ifFalse:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5190
                self warnCommonMistake:'(possible common mistake) missing block brackets ?'
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5191
                              position:pos2+1 to:tokenPosition-1
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5192
            ]
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5193
        ].
1193
c441d3b202e5 check bad super message
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
  5194
        (sel = #whileTrue: or:[sel = #whileFalse:]) ifTrue:[
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5195
            receiver receiver isBlock ifFalse:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5196
                self warnCommonMistake:'(possible common mistake) missing block brackets ?'
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5197
                              position:posR1 to:posR2-1
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5198
            ]
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5199
        ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5200
    ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5201
    ^ receiver
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5202
1022
32bc5fc06687 added selector correction.
Claus Gittinger <cg@exept.de>
parents: 1020
diff changeset
  5203
    "Modified: / 19.1.2000 / 16:22:22 / cg"
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5204
!
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5205
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5206
nodeForMethodArg:varName
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5207
    |varIndex var|
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5208
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5209
    methodArgNames isNil ifTrue:[^ nil].
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5210
    varIndex := methodArgNames indexOf:varName.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5211
    varIndex == 0 ifTrue:[^ nil].
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5212
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5213
    var := methodArgs at:varIndex.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5214
"/    var used:true.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5215
    ^ VariableNode type:#MethodArg
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5216
                   name:varName
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5217
                  token:var
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5218
                  index:varIndex
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5219
!
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5220
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5221
nodeForMethodVariable:varName
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5222
    |varIndex var|
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5223
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5224
    methodVarNames isNil ifTrue:[^ nil].
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5225
    varIndex := methodVarNames indexOf:varName.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5226
    varIndex == 0 ifTrue:[^ nil].
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5227
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5228
    var := methodVars at:varIndex.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5229
    var used:true.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5230
    parseForCode ifFalse:[self rememberLocalUsed:varName].
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5231
    ^ VariableNode type:#MethodVariable
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5232
                   name:varName
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5233
                  token:var
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5234
                  index:varIndex
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5235
!
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5236
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  5237
primary
1028
cbdce68d87f6 fixed qualifiedName parsing
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  5238
    "parse a primary-expression; return a node-tree, nil or #Error.
cbdce68d87f6 fixed qualifiedName parsing
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  5239
     This also cares for namespace-access-pathes."
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  5240
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5241
    |val pos node eMsg|
924
6214afc7e312 qualifiedName support
Claus Gittinger <cg@exept.de>
parents: 921
diff changeset
  5242
44
74ddc944c27f *** empty log message ***
claus
parents: 35
diff changeset
  5243
    (tokenType == #Self) ifTrue:[
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5244
        ^ self primary_self.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5245
    ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5246
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5247
    pos := tokenPosition.
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  5248
    (tokenType == #Identifier) ifTrue:[
640
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5249
        "
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5250
         must check for variable first, to be backward compatible
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5251
         with other smalltalks. 
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5252
        "
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5253
        tokenName = 'here' ifTrue:[
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5254
            (self variableOrError:tokenName) == #Error ifTrue:[
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5255
                tokenType := #Here.
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5256
                warnSTXHereExtensionUsed ifTrue:[
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5257
                    self warning:'here-sends are a nonstandard feature of ST/X' 
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5258
                         position:pos to:pos+3.
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5259
                    "
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5260
                     only warn once
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5261
                    "
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5262
                    warnSTXHereExtensionUsed := false
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  5263
                ].
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5264
                ^ self primary_here.
640
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5265
            ]
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5266
        ].
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5267
        ^ self primary_identifier
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  5268
    ].
49
02660b790c3e *** empty log message ***
claus
parents: 47
diff changeset
  5269
44
74ddc944c27f *** empty log message ***
claus
parents: 35
diff changeset
  5270
    ((tokenType == #Integer) 
120
claus
parents: 117
diff changeset
  5271
     or:[(tokenType == #String)
44
74ddc944c27f *** empty log message ***
claus
parents: 35
diff changeset
  5272
     or:[(tokenType == #Character) 
74ddc944c27f *** empty log message ***
claus
parents: 35
diff changeset
  5273
     or:[(tokenType == #Float)
74ddc944c27f *** empty log message ***
claus
parents: 35
diff changeset
  5274
     or:[(tokenType == #Symbol)]]]]) ifTrue:[
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5275
        ^ self primary_simpleLiteral.
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  5276
    ].
924
6214afc7e312 qualifiedName support
Claus Gittinger <cg@exept.de>
parents: 921
diff changeset
  5277
1347
6168b045f2ef preps for fixedPoint literals
Claus Gittinger <cg@exept.de>
parents: 1342
diff changeset
  5278
    (tokenType == #FixedPoint) ifTrue:[
6168b045f2ef preps for fixedPoint literals
Claus Gittinger <cg@exept.de>
parents: 1342
diff changeset
  5279
        AllowFixedPointLiterals == true ifFalse:[
6168b045f2ef preps for fixedPoint literals
Claus Gittinger <cg@exept.de>
parents: 1342
diff changeset
  5280
            self parseError:'non-Standard literal: FixedPoint. Please enable in settings.' position:pos to:tokenPosition.
6168b045f2ef preps for fixedPoint literals
Claus Gittinger <cg@exept.de>
parents: 1342
diff changeset
  5281
            ^ #Error
6168b045f2ef preps for fixedPoint literals
Claus Gittinger <cg@exept.de>
parents: 1342
diff changeset
  5282
        ].
6168b045f2ef preps for fixedPoint literals
Claus Gittinger <cg@exept.de>
parents: 1342
diff changeset
  5283
        ^ self primary_simpleLiteral.
6168b045f2ef preps for fixedPoint literals
Claus Gittinger <cg@exept.de>
parents: 1342
diff changeset
  5284
    ].
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  5285
    (tokenType == #Nil) ifTrue:[
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5286
        ^ self primary_nil.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5287
    ].
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  5288
    (tokenType == #True) ifTrue:[
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5289
        ^ self primary_true
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  5290
    ].
7ad01559b262 Initial revision
claus
parents:
diff changeset
  5291
    (tokenType == #False) ifTrue:[
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5292
        ^ self primary_false
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5293
    ].
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  5294
    (tokenType  == #Super) ifTrue:[
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5295
        ^ self primary_super.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5296
    ].
924
6214afc7e312 qualifiedName support
Claus Gittinger <cg@exept.de>
parents: 921
diff changeset
  5297
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  5298
    (tokenType == #ThisContext) ifTrue:[
1262
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  5299
        ^ self primary_thisContext
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  5300
    ].
924
6214afc7e312 qualifiedName support
Claus Gittinger <cg@exept.de>
parents: 921
diff changeset
  5301
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  5302
    (tokenType == #HashLeftParen) ifTrue:[
1202
95abdd4272cd scanning of keyword symbols in array consts fixed
Claus Gittinger <cg@exept.de>
parents: 1200
diff changeset
  5303
        self inArrayLiteral:true.
640
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5304
        self nextToken.
1165
09d40e1ff75d oops - invalid literal array const was not signalling an error
Claus Gittinger <cg@exept.de>
parents: 1164
diff changeset
  5305
        ParseErrorSignal handle:[:ex |
1202
95abdd4272cd scanning of keyword symbols in array consts fixed
Claus Gittinger <cg@exept.de>
parents: 1200
diff changeset
  5306
            self inArrayLiteral:false.
1165
09d40e1ff75d oops - invalid literal array const was not signalling an error
Claus Gittinger <cg@exept.de>
parents: 1164
diff changeset
  5307
            ^ #Error
09d40e1ff75d oops - invalid literal array const was not signalling an error
Claus Gittinger <cg@exept.de>
parents: 1164
diff changeset
  5308
        ] do:[
09d40e1ff75d oops - invalid literal array const was not signalling an error
Claus Gittinger <cg@exept.de>
parents: 1164
diff changeset
  5309
            val := self array.
09d40e1ff75d oops - invalid literal array const was not signalling an error
Claus Gittinger <cg@exept.de>
parents: 1164
diff changeset
  5310
        ].
1202
95abdd4272cd scanning of keyword symbols in array consts fixed
Claus Gittinger <cg@exept.de>
parents: 1200
diff changeset
  5311
        self inArrayLiteral:false.
640
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5312
        self nextToken.
1003
37badd2eb5b0 dont stop syntaxHighlighting when a bad assignment is encountered
Claus Gittinger <cg@exept.de>
parents: 997
diff changeset
  5313
        (self noAssignmentAllowed:'assignment to a constant' at:pos) ifFalse:[
640
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5314
            ^ #Error
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5315
        ].
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5316
        ^ ConstantNode type:#Array value:val
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  5317
    ].
924
6214afc7e312 qualifiedName support
Claus Gittinger <cg@exept.de>
parents: 921
diff changeset
  5318
6214afc7e312 qualifiedName support
Claus Gittinger <cg@exept.de>
parents: 921
diff changeset
  5319
    (tokenType == #HashLeftBrace) ifTrue:[
1042
d192446cb745 fixed qualifiedName handling (as array constant)
Claus Gittinger <cg@exept.de>
parents: 1041
diff changeset
  5320
        val := self qualifiedName.
d192446cb745 fixed qualifiedName handling (as array constant)
Claus Gittinger <cg@exept.de>
parents: 1041
diff changeset
  5321
        self nextToken.
d192446cb745 fixed qualifiedName handling (as array constant)
Claus Gittinger <cg@exept.de>
parents: 1041
diff changeset
  5322
        ^ val.
924
6214afc7e312 qualifiedName support
Claus Gittinger <cg@exept.de>
parents: 921
diff changeset
  5323
    ].
6214afc7e312 qualifiedName support
Claus Gittinger <cg@exept.de>
parents: 921
diff changeset
  5324
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  5325
    (tokenType == #HashLeftBrack) ifTrue:[
640
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5326
        self nextToken.
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5327
        val := self byteArray.
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5328
        self nextToken.
1003
37badd2eb5b0 dont stop syntaxHighlighting when a bad assignment is encountered
Claus Gittinger <cg@exept.de>
parents: 997
diff changeset
  5329
        (self noAssignmentAllowed:'assignment to a constant' at:pos) ifFalse:[
640
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5330
            ^ #Error
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5331
        ].
924
6214afc7e312 qualifiedName support
Claus Gittinger <cg@exept.de>
parents: 921
diff changeset
  5332
        ^ ConstantNode type:#ByteArray value:val
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  5333
    ].
432
2b7b75f1ee12 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 429
diff changeset
  5334
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  5335
    (tokenType == $() ifTrue:[
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5336
        ^ self primary_expression.
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  5337
    ].
924
6214afc7e312 qualifiedName support
Claus Gittinger <cg@exept.de>
parents: 921
diff changeset
  5338
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  5339
    (tokenType == $[ ) ifTrue:[
673
0c66b7cb1d2f checkin from browser
ca
parents: 672
diff changeset
  5340
        self markBracketAt:tokenPosition.
640
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5341
        val := self block.
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5342
        self nextToken.
1003
37badd2eb5b0 dont stop syntaxHighlighting when a bad assignment is encountered
Claus Gittinger <cg@exept.de>
parents: 997
diff changeset
  5343
        (self noAssignmentAllowed:'invalid assignment' at:pos) ifFalse:[
640
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5344
            ^ #Error
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5345
        ].
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5346
        ^ val
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  5347
    ].
19
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  5348
1262
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  5349
    "/ EXPERIMENTAL - may be in next release
1295
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5350
    AllowVariableReferences == true ifTrue:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5351
        ((tokenType == #BinaryOperator) and:[token = '&']) ifTrue:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5352
            self nextToken.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5353
            node := self primary_identifier.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5354
            "/ generate a Reference
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5355
            ^ self makeReferenceFor:node
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5356
        ].
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5357
    ].
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5358
894
943b6d0d26b3 changes to support loading squeak code containing computed
Claus Gittinger <cg@exept.de>
parents: 887
diff changeset
  5359
    (tokenType == ${ ) ifTrue:[
1363
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  5360
        allowSqueakExtensions == true ifFalse:[
1335
59e2664cb564 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1328
diff changeset
  5361
            self parseError:'non-Standard Squeak extension: Brace Computed Array. Enable in settings.' position:pos to:tokenPosition.
1453
205e70e12abe squeak-brace extension error is now proceedable
Claus Gittinger <cg@exept.de>
parents: 1446
diff changeset
  5362
            errorFlag := false.
894
943b6d0d26b3 changes to support loading squeak code containing computed
Claus Gittinger <cg@exept.de>
parents: 887
diff changeset
  5363
        ].
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5364
        ^ self primary_squeakComputedArray.
894
943b6d0d26b3 changes to support loading squeak code containing computed
Claus Gittinger <cg@exept.de>
parents: 887
diff changeset
  5365
    ].
943b6d0d26b3 changes to support loading squeak code containing computed
Claus Gittinger <cg@exept.de>
parents: 887
diff changeset
  5366
502
410af1c0df1d parse primitive-primary expression
Claus Gittinger <cg@exept.de>
parents: 501
diff changeset
  5367
    (tokenType == #Primitive) ifTrue:[
640
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5368
        self nextToken.
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5369
        node := PrimitiveNode code:tokenValue.
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5370
        hasNonOptionalPrimitiveCode := true.
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5371
        hasPrimitiveCode := true.
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5372
        ^ node
502
410af1c0df1d parse primitive-primary expression
Claus Gittinger <cg@exept.de>
parents: 501
diff changeset
  5373
    ].
410af1c0df1d parse primitive-primary expression
Claus Gittinger <cg@exept.de>
parents: 501
diff changeset
  5374
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5375
    tokenType == #HashHashLeftParen ifTrue:[
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5376
self halt.
1295
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5377
        self nextToken.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5378
        AllowDolphinExtensions == true ifFalse:[
1335
59e2664cb564 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1328
diff changeset
  5379
            self parseError:'non-Standard Dolphin extension: ##(..). Enable in settings.' position:pos to:tokenPosition.
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5380
            ^ #Error
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5381
        ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5382
        ^ self primary_dolphinComputedLiteral.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5383
    ].
1299
6c182cd87b6c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1297
diff changeset
  5384
    tokenType == #ExclaLeftBrack ifTrue:[
1295
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5385
        self nextToken.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5386
        AllowLazyValueExtension == true ifFalse:[
1335
59e2664cb564 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1328
diff changeset
  5387
            self parseError:'non-Standard LazyValue extension. Enable in classVariable.' position:pos to:tokenPosition.
1295
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5388
            ^ #Error
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5389
        ].
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5390
        ^ self primary_lazyValue.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5391
    ].
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5392
    tokenType == #HashHash ifTrue:[
1301
677ca6e364d4 + warnPossible incompatibility
Claus Gittinger <cg@exept.de>
parents: 1299
diff changeset
  5393
        self warnPossibleIncompatibility:'''##'' might be interpreted differently in other smalltalk systems' position:pos to:tokenPosition.
1295
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5394
        tokenType := #Symbol.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5395
        token := tokenValue := tokenName := '#'.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5396
        ^ self primary_simpleLiteral.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5397
    ].
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5398
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  5399
    (tokenType == #Error) ifTrue:[^ #Error].
44
74ddc944c27f *** empty log message ***
claus
parents: 35
diff changeset
  5400
    tokenType isCharacter ifTrue:[
640
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5401
        self syntaxError:('error in primary; ' 
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5402
                           , tokenType printString , 
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5403
                           ' unexpected') position:tokenPosition to:tokenPosition
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  5404
    ] ifFalse:[
640
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5405
        (#(BinaryOperator Keyword) includes:tokenType) ifTrue:[
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5406
            eMsg := ('error in primary; ' 
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5407
                    , tokenType printString , '(' , tokenName , ') ' ,
805
b11dcd88bcc6 better error-display
Claus Gittinger <cg@exept.de>
parents: 798
diff changeset
  5408
                    ' unexpected (missing receiver ?)')
640
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5409
        ] ifFalse:[
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5410
            eMsg := ('error in primary; ' 
1295
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5411
                     , (token ? '') , ' (', tokenType printString ,
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5412
                     ') unexpected') 
640
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5413
        ].
1371
de4c37ac12fc code rewritten to be independent of stream zero-base
Claus Gittinger <cg@exept.de>
parents: 1369
diff changeset
  5414
        self syntaxError:eMsg position:tokenPosition to:source position1Based - 1
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  5415
    ].
7ad01559b262 Initial revision
claus
parents:
diff changeset
  5416
    ^ #Error
120
claus
parents: 117
diff changeset
  5417
640
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5418
    "Created: / 13.9.1995 / 12:50:50 / claus"
1068
dc7f2f44f2ee syntaxHighlight bug fixed
Claus Gittinger <cg@exept.de>
parents: 1067
diff changeset
  5419
    "Modified: / 18.8.2000 / 20:51:22 / cg"
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  5420
!
7ad01559b262 Initial revision
claus
parents:
diff changeset
  5421
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5422
primary_dolphinComputedLiteral
1273
3a9541cd8fef dolphin compile-time constant strings
Claus Gittinger <cg@exept.de>
parents: 1272
diff changeset
  5423
    "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
  5424
     In dolphin, these are written as: ##( expression )
3a9541cd8fef dolphin compile-time constant strings
Claus Gittinger <cg@exept.de>
parents: 1272
diff changeset
  5425
     and create a literal constant for the expressions value.
1274
7d4a3391a81a comments
Claus Gittinger <cg@exept.de>
parents: 1273
diff changeset
  5426
     Right now, only a subset is supported - Strings, ByteArrays and Characters.
7d4a3391a81a comments
Claus Gittinger <cg@exept.de>
parents: 1273
diff changeset
  5427
     WARNING: this is only supported to allow filing in dolphin code.
7d4a3391a81a comments
Claus Gittinger <cg@exept.de>
parents: 1273
diff changeset
  5428
     since stc cannot handle this (at the moment), you should rewrite the code
7d4a3391a81a comments
Claus Gittinger <cg@exept.de>
parents: 1273
diff changeset
  5429
     if you ever plan to stc-compile it into a shared library"
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5430
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5431
    |pos expr val|
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5432
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5433
    pos := tokenPosition.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5434
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5435
    expr := self expression.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5436
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5437
    tokenType ~~ $) ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5438
        self parseError:''')'' expected' position:tokenPosition.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5439
        ^ #Error
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5440
    ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5441
    self nextToken.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5442
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5443
    (self noAssignmentAllowed:'invalid assignment' at:pos) ifFalse:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5444
        ^ #Error
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5445
    ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5446
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5447
    val := expr evaluate.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5448
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5449
    val isLiteral ifTrue:[
1272
2a429e2293d1 dolphin compile-time constant strings
Claus Gittinger <cg@exept.de>
parents: 1271
diff changeset
  5450
        val isString ifTrue:[
2a429e2293d1 dolphin compile-time constant strings
Claus Gittinger <cg@exept.de>
parents: 1271
diff changeset
  5451
            ^ ConstantNode type:#String value:val
2a429e2293d1 dolphin compile-time constant strings
Claus Gittinger <cg@exept.de>
parents: 1271
diff changeset
  5452
        ].
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5453
        val isByteArray ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5454
            ^ ConstantNode type:#ByteArray value:val
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5455
        ].
1234
9aeab4cef9ba *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  5456
        val isCharacter ifTrue:[
9aeab4cef9ba *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  5457
            ^ ConstantNode type:#Character value:val
9aeab4cef9ba *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  5458
        ].
1295
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5459
        val isInteger ifTrue:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5460
            ^ ConstantNode type:#Integer value:val
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5461
        ].
1328
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  5462
        val isLimitedPrecisionReal ifTrue:[
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  5463
            ^ ConstantNode type:#Float value:val
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  5464
        ].
1295
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5465
        val isArray ifTrue:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5466
            ^ ConstantNode type:#Array value:val
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5467
        ].
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5468
    ] ifFalse:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5469
        self parseError:'must be representable as a literal (for now)' position:pos.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5470
        ^ #Error
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5471
    ].
1326
Claus Gittinger <cg@exept.de>
parents: 1325
diff changeset
  5472
self halt:'unimplemented'.
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5473
"/    "/ make it an array creation expression ...
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5474
"/    expr := MessageNode 
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5475
"/            receiver:(VariableNode globalNamed:#Array)
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5476
"/            selector:#new:
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5477
"/            arg:(ConstantNode type:#Integer value:(exprList size)).
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5478
"/
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5479
"/    exprList size == 0 ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5480
"/        ^ expr.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5481
"/    ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5482
"/    exprList keysAndValuesDo:[:idx :e |
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5483
"/        expr := (idx == 1 ifTrue:[MessageNode] ifFalse:[CascadeNode])
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5484
"/                    receiver:expr
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5485
"/                    selector:#at:put:
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5486
"/                    arg1:(ConstantNode type:#Integer value:idx)
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5487
"/                    arg2:e
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5488
"/                    fold:false.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5489
"/    ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5490
"/    expr := CascadeNode
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5491
"/                receiver:expr
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5492
"/                selector:#yourself.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5493
"/    ^ expr
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5494
!
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5495
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5496
primary_expression
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5497
    "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
  5498
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5499
    |pos val eMsg|
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5500
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5501
    pos := tokenPosition.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5502
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5503
    self nextToken.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5504
    val := self expression.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5505
    (val == #Error) ifTrue:[^ #Error].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5506
    (tokenType ~~ $) ) ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5507
        tokenType isCharacter ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5508
            eMsg := 'missing '')'' (i.e. ''' , tokenType asString , ''' unexpected)'.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5509
        ] ifFalse:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5510
            eMsg := 'missing '')'''.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5511
        ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5512
        self syntaxError:eMsg withCRs position:pos to:tokenPosition.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5513
        ^ #Error
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5514
    ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5515
    self nextToken.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5516
    (self noAssignmentAllowed:'invalid assignment' at:pos) ifFalse:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5517
        ^ #Error
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5518
    ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5519
    val parenthized:true.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5520
    ^ val
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5521
!
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5522
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5523
primary_false
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5524
    "parse a false primary; return a node-tree, or raise an Error."
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5525
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5526
    |pos|
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5527
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5528
    pos := tokenPosition.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5529
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5530
    self nextToken.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5531
    (self noAssignmentAllowed:'assignment to ''false''' at:pos) ifFalse:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5532
        ^ #Error
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5533
    ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5534
    self markBooleanConstantFrom:pos to:pos+4.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5535
    ^ ConstantNode type:#False value:false
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5536
!
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5537
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5538
primary_here
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5539
    "parse a here primary; return a node-tree, nil or #Error."
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5540
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5541
    |pos|
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5542
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5543
    pos := tokenPosition.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5544
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5545
    self nextToken.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5546
    (self noAssignmentAllowed:'assignment to pseudo variable ''here''' at:pos) ifFalse:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5547
        ^ #Error
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5548
    ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5549
    classToCompileFor isNil ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5550
        self warning:'in which class are you ?' position:pos to:(pos + 3).
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5551
    ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5552
    self markSelfFrom:pos to:pos+3.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5553
    ^ SuperNode value:selfValue inClass:classToCompileFor here:true
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5554
!
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5555
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5556
primary_identifier
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5557
    "parse a false primary; return a node-tree, or raise an Error."
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5558
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5559
    |pos1 pos2 expr varName rawName var globlName nameSpace nameSpaceGlobal
1359
af2b37656df3 autoDefine as doIt added
Claus Gittinger <cg@exept.de>
parents: 1351
diff changeset
  5560
     t cls lnr node holder autoHow|
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5561
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5562
    pos1 := tokenPosition.
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5563
    pos2 := tokenPosition + tokenName size - 1.
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5564
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5565
    varName := tokenName.
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5566
1440
7084ae99ced7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1439
diff changeset
  5567
    (self isDoIt 
1342
65f8f4d0ce09 only autoDefine workspace vars on the top level (i.e. not within blocks)
Claus Gittinger <cg@exept.de>
parents: 1341
diff changeset
  5568
    and:[currentBlock isNil
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5569
    and:[(requestor askFor:#isWorkspace)
1359
af2b37656df3 autoDefine as doIt added
Claus Gittinger <cg@exept.de>
parents: 1351
diff changeset
  5570
    and:[(autoHow := requestor autoDefineVariables) notNil]]]) ifTrue:[
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5571
        var := self variableOrError:varName.
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5572
        self nextToken.
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5573
        (var == #Error) ifTrue:[
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5574
            ((tokenType == $_) or:[tokenType == #':=']) ifTrue:[
1359
af2b37656df3 autoDefine as doIt added
Claus Gittinger <cg@exept.de>
parents: 1351
diff changeset
  5575
                autoHow == #workspace ifTrue:[
af2b37656df3 autoDefine as doIt added
Claus Gittinger <cg@exept.de>
parents: 1351
diff changeset
  5576
                    holder := Workspace addWorkspaceVariable:varName.
af2b37656df3 autoDefine as doIt added
Claus Gittinger <cg@exept.de>
parents: 1351
diff changeset
  5577
                    var := VariableNode type:#WorkspaceVariable holder:holder name:varName
af2b37656df3 autoDefine as doIt added
Claus Gittinger <cg@exept.de>
parents: 1351
diff changeset
  5578
                ] ifFalse:[
af2b37656df3 autoDefine as doIt added
Claus Gittinger <cg@exept.de>
parents: 1351
diff changeset
  5579
                    holder := self addDoItTemporary:varName.
af2b37656df3 autoDefine as doIt added
Claus Gittinger <cg@exept.de>
parents: 1351
diff changeset
  5580
                    var := VariableNode type:#DoItTemporary holder:holder name:varName
af2b37656df3 autoDefine as doIt added
Claus Gittinger <cg@exept.de>
parents: 1351
diff changeset
  5581
                ].
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5582
            ] ifFalse:[
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5583
                var := self correctVariable:varName atPosition:pos1 to:pos2.
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5584
            ].
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5585
        ]
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5586
    ] ifFalse:[
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5587
        var := self variable.
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5588
        self nextToken.
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5589
    ].
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5590
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5591
    "/ errorFlag == true ifTrue:[self halt].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5592
    (var == #Error) ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5593
        errorFlag := true
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5594
    ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5595
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5596
    (tokenType == #'::') ifTrue:[
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5597
        globlName := rawName := varName.
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5598
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5599
        "is it in a namespace ?"
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5600
        nameSpace := self findNameSpaceWith:globlName.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5601
        nameSpace notNil ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5602
            globlName := nameSpace name , '::' , globlName
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5603
        ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5604
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5605
        [tokenType == #'::'] whileTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5606
            nameSpace := globlName.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5607
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5608
            self nextToken.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5609
            (tokenType == #Identifier) ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5610
                ignoreWarnings ifFalse:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5611
                    warnSTXNameSpaceUse ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5612
                        self warning:'nameSpaces are a nonstandard feature of ST/X' 
1458
30380f0ecea2 more warnings to turn off
Claus Gittinger <cg@exept.de>
parents: 1455
diff changeset
  5613
                             doNotShowAgainAction:[ WarnSTXSpecials := false ]
1371
de4c37ac12fc code rewritten to be independent of stream zero-base
Claus Gittinger <cg@exept.de>
parents: 1369
diff changeset
  5614
                             position:pos1 to:(source position1Based).
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5615
                        "
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5616
                         only warn once
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5617
                        "
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5618
                        warnSTXNameSpaceUse := false
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5619
                    ]
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5620
                ].
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5621
                varName := tokenName.
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5622
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5623
                globlName := (nameSpace , '::' , varName).
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5624
                rawName := (rawName , '::' , varName).
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5625
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5626
                nameSpaceGlobal := Smalltalk at:nameSpace asSymbol ifAbsent:nil.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5627
                nameSpaceGlobal isNil ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5628
                    warnedUnknownNamespaces isNil ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5629
                        warnedUnknownNamespaces := Set new.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5630
                    ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5631
                    (warnedUnknownNamespaces includes:nameSpace) ifFalse:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5632
                        self warning:('unknown nameSpace: ', nameSpace) 
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5633
                             position:pos1 to:tokenPosition-1.
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5634
"/                            self parseError:('unknown nameSpace: ', nameSpace) position:pos to:tokenPosition-1.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5635
                        warnedUnknownNamespaces add:nameSpace.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5636
                    ]
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5637
                ] ifFalse:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5638
                    nameSpaceGlobal isNameSpace ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5639
                        "/ for now: only Smalltalk is allowed
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5640
                        nameSpaceGlobal ~~ Smalltalk ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5641
"/                                self parseError:('(currently) the only valid nameSpace is `Smalltalk''') position:pos to:tokenPosition-1.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5642
                        ] ifFalse:[
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5643
                            globlName := varName
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5644
                        ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5645
                    ] ifFalse:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5646
                        nameSpaceGlobal isBehavior ifFalse:[
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5647
                            self parseError:('invalid nameSpace: ' , nameSpace)  position:pos1 to:tokenPosition-1.
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5648
                        ] ifTrue:[
1391
6139f0c7abf3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1386
diff changeset
  5649
                            nameSpaceGlobal isLoaded ifTrue:[
6139f0c7abf3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1386
diff changeset
  5650
                                (nameSpaceGlobal privateClassesAt:varName asSymbol) isNil ifTrue:[
6139f0c7abf3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1386
diff changeset
  5651
                                    self warning:('no private class: ' , varName , ' in class: ' , nameSpace) 
6139f0c7abf3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1386
diff changeset
  5652
                                         position:pos1 to:tokenPosition-1.
6139f0c7abf3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1386
diff changeset
  5653
"/                                        self parseError:('no private class: ' , name , ' in class: ' , nameSpace)  position:pos to:tokenPosition-1.                                
6139f0c7abf3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1386
diff changeset
  5654
                                ]
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5655
                            ]
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5656
                        ]
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5657
                    ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5658
                ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5659
                self nextToken.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5660
            ].
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5661
            var := VariableNode globalNamed:globlName.
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5662
            parseForCode ifFalse:[self rememberGlobalUsed:globlName].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5663
        ].
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5664
        self markVariable:var from:pos1 to:pos1 + rawName size - 1.
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5665
    ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5666
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5667
    var == #Error ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5668
        ^ #Error
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5669
    ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5670
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5671
    errorFlag ~~ true ifTrue:[
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5672
        self markVariable:var from:pos1 to:pos1 + varName size - 1.
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5673
    ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5674
    (ignoreErrors or:[ignoreWarnings or:[parseForCode not]]) ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5675
        errorFlag := false.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5676
    ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5677
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5678
    ((tokenType ~~ $_) and:[tokenType ~~ #':=']) ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5679
        parseForCode ifFalse:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5680
            var isInstanceVariable ifTrue:[ self rememberInstVarRead:var name].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5681
            var isClassVariable ifTrue:[ self rememberClassVarRead:var name].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5682
        ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5683
        ^ var
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5684
    ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5685
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5686
    "/ careful: it could already be an implicit self send
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5687
    ImplicitSelfSends ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5688
        var isMessage ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5689
            self nextToken.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5690
            expr := self expression.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5691
            self isSyntaxHighlighter ifFalse:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5692
                (errorFlag or:[expr == #Error]) ifTrue:[^ #Error].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5693
            ].
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5694
            ^ MessageNode receiver:(self selfNode) selector:('__' , varName , ':') asSymbol arg:expr.
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5695
        ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5696
    ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5697
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5698
    (var ~~ #Error) ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5699
        t := var type.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5700
        (t ~~ #MethodVariable) ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5701
            (t == #PrivateClass) ifTrue:[
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5702
                self parseError:'assignment to private class' position:pos1 to:pos2.
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5703
            ] ifFalse:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5704
                (t == #MethodArg) ifTrue:[
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5705
                    self parseError:'assignment to method argument' position:pos1 to:pos2.
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5706
                ] ifFalse:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5707
                    (t == #BlockArg) ifTrue:[
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5708
                        self parseError:'assignment to block argument' position:pos1 to:pos2.
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5709
                    ] ifFalse:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5710
                        (t == #InstanceVariable) ifTrue:[
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5711
                            varName := self classesInstVarNames at:(var index).
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5712
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5713
                            "/ ca once did this to `name' and wondered what happened to his class ...
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5714
                            "/ (not really a beginners bug, but may happen as a typo or missing local variable;
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5715
                            "/  and is hard to track down later)
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5716
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5717
                            warnCommonMistakes ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5718
                                classToCompileFor isMeta ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5719
                                    (classToCompileFor isSubclassOf:Class) ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5720
                                        (Class allInstVarNames includes:(var name)) ifTrue:[
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5721
                                            self warning:'assignment to a classInstanceVariable\(see hierarchy of `Class'')' withCRs position:pos1 to:pos2.
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5722
                                        ]
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5723
                                    ]
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5724
                                ]
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5725
                            ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5726
                            parseForCode ifFalse:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5727
                                modifiedInstVars isNil ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5728
                                    modifiedInstVars := Set new
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5729
                                ].
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5730
                                modifiedInstVars add:varName
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5731
                            ]
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5732
                        ] ifFalse:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5733
                            (t == #ClassVariable) ifTrue:[
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5734
                                varName := var name.
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5735
                                varName := varName copyFrom:((varName indexOf:$:) + 1).
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5736
                                parseForCode ifFalse:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5737
                                    modifiedClassVars isNil ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5738
                                        modifiedClassVars := Set new
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5739
                                    ].
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5740
                                    modifiedClassVars add:varName
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5741
                                ]
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5742
                            ] ifFalse:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5743
                                (t == #GlobalVariable) ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5744
                                    (cls := Smalltalk classNamed:var name) notNil ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5745
                                        cls name = var name ifTrue:[
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5746
                                            self warning:'assignment to global which refers to a class' position:pos1 to:pos2.
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5747
                                        ]
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5748
                                    ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5749
                                    parseForCode ifFalse:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5750
                                        modifiedGlobals isNil ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5751
                                            modifiedGlobals := Set new
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5752
                                        ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5753
                                        modifiedGlobals add:var name
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5754
                                    ]
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5755
                                ]
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5756
                            ]
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5757
                        ]
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5758
                    ]
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5759
                ]
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5760
            ]
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5761
        ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5762
        t == #MethodVariable ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5763
            modifiedLocalVars isNil ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5764
                modifiedLocalVars := Set new.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5765
            ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5766
            modifiedLocalVars add:var name.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5767
        ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5768
    ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5769
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5770
    lnr := tokenLineNr.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5771
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5772
    self nextToken.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5773
    pos2 := tokenPosition.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5774
    expr := self expression.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5775
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5776
    "/ a typical beginner error:
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5777
    "/   expr ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5778
    "/      var := super
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5779
    "/   ] ifFalse:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5780
    "/      var := something-else
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5781
    "/   ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5782
    "/   var messageSend
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5783
    "/
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5784
    "/   does not what a beginner might think.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5785
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5786
    self isSyntaxHighlighter ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5787
        (expr == #Error) ifTrue:[^ #Error].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5788
    ] ifFalse:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5789
        warnCommonMistakes ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5790
            (expr ~~ #Error and:[expr isSuper]) ifTrue:[
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5791
                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.
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5792
            ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5793
        ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5794
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5795
        (errorFlag or:[expr == #Error]) ifTrue:[^ #Error].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5796
        expr isVariable ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5797
            expr name = var name ifTrue:[
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5798
                self warning:('useless assignment to `' , var name, '''' ) position:pos1 to:pos2-1.
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5799
            ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5800
        ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5801
    ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5802
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5803
    node := AssignmentNode variable:var expression:expr.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5804
    (lineNumberInfo == #full) ifTrue:[node lineNumber:lnr].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5805
    ^ node
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5806
!
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5807
1295
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5808
primary_lazyValue
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5809
    |pos block expr|
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5810
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5811
    pos := tokenPosition.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5812
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5813
    (tokenType == $: ) ifTrue:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5814
        self parseError:'lazyValues have no arguments' position:tokenPosition.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5815
        ^ #Error
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5816
    ].
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5817
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5818
    block := self blockBody:#().
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5819
    self nextToken.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5820
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5821
    expr := MessageNode 
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5822
                receiver:(VariableNode globalNamed:#LazyValue)
1295
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5823
                selector:#'block:'
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5824
                arg:block.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5825
    ^ expr
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5826
!
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5827
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5828
primary_nil
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5829
    "parse a nil primary; return a node-tree, nil or #Error."
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5830
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5831
    |pos|
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5832
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5833
    pos := tokenPosition.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5834
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5835
    self nextToken.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5836
    (self noAssignmentAllowed:'assignment to ''nil''' at:pos) ifFalse:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5837
        ^ #Error
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5838
    ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5839
"/        self markConstantFrom:pos to:pos+2.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5840
    nilNode isNil ifTrue:[ 
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5841
        nilNode := ConstantNode type:#Nil value:nil
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5842
    ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5843
    ^ nilNode
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5844
!
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5845
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5846
primary_self
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5847
    "parse a self primary; return a node-tree, nil or #Error."
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5848
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5849
    |pos|
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5850
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5851
    pos := tokenPosition.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5852
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5853
    self nextToken.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5854
    (self noAssignmentAllowed:'assignment to pseudo variable ''self''' at:pos) ifFalse:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5855
        ^ ParseError raise
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5856
    ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5857
    self markSelfFrom:pos to:pos+3.
1262
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  5858
    ^ self selfNode
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5859
!
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5860
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5861
primary_simpleLiteral
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5862
    "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
  5863
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5864
    |pos val|
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5865
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5866
    pos := tokenPosition.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5867
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5868
    "/
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5869
    "/ ImmutableStrings are experimental
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5870
    "/
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5871
    ((tokenType == #String)
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5872
    and:[(StringsAreImmutable == true) 
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5873
    and:[ImmutableString notNil]]) ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5874
        tokenValue := tokenValue copy.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5875
        tokenValue changeClassTo:ImmutableString.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5876
        token := tokenValue
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5877
    ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5878
    (tokenType == #Symbol) ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5879
        parseForCode ifFalse:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5880
            self rememberSymbolUsed:tokenValue
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5881
        ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5882
    ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5883
    val := ConstantNode type:tokenType value:tokenValue.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5884
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5885
    tokenValue isSymbol ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5886
        self markSymbolFrom:tokenPosition to:tokenPosition+tokenValue size-1.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5887
    ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5888
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5889
    self nextToken.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5890
    (self noAssignmentAllowed:'assignment to a constant' at:pos) ifFalse:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5891
        ^ #Error
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5892
    ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5893
    ^ val
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5894
!
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5895
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5896
primary_squeakComputedArray
1274
7d4a3391a81a comments
Claus Gittinger <cg@exept.de>
parents: 1273
diff changeset
  5897
    "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
  5898
     In squeak, these are written as: { expr1 . expr2 . ... exprN )
7d4a3391a81a comments
Claus Gittinger <cg@exept.de>
parents: 1273
diff changeset
  5899
     and create a literalArray containing the exprI values.
7d4a3391a81a comments
Claus Gittinger <cg@exept.de>
parents: 1273
diff changeset
  5900
     WARNING: this is only supported to allow filing in squeak code.
7d4a3391a81a comments
Claus Gittinger <cg@exept.de>
parents: 1273
diff changeset
  5901
     since stc cannot handle this (at the moment), you should rewrite the code
7d4a3391a81a comments
Claus Gittinger <cg@exept.de>
parents: 1273
diff changeset
  5902
     if you ever plan to stc-compile it into a shared library"
7d4a3391a81a comments
Claus Gittinger <cg@exept.de>
parents: 1273
diff changeset
  5903
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5904
1271
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5905
    |pos exprList|
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5906
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5907
    pos := tokenPosition.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5908
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5909
    self nextToken.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5910
    exprList := self squeakComputedArray.
1277
f7c21ebe1520 squeak computed arrays again
Claus Gittinger <cg@exept.de>
parents: 1276
diff changeset
  5911
    (exprList == #Error) ifTrue:[ ^ #Error ].
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5912
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5913
    tokenType ~~ $} ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5914
        self parseError:'''}'' expected' position:tokenPosition.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5915
        ^ #Error
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5916
    ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5917
    self nextToken.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5918
    (self noAssignmentAllowed:'invalid assignment' at:pos) ifFalse:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5919
        ^ #Error
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5920
    ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5921
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5922
    "/ make it an array creation expression ...
1271
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5923
    ^ self genMakeArrayWith:exprList
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5924
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5925
    "
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5926
     Compiler allowSqueakExtensions:true.
1299
6c182cd87b6c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1297
diff changeset
  5927
    "
6c182cd87b6c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1297
diff changeset
  5928
6c182cd87b6c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1297
diff changeset
  5929
    "
6c182cd87b6c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1297
diff changeset
  5930
     { 1@2. 10 factorial. Date today }.     
6c182cd87b6c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1297
diff changeset
  5931
    "
6c182cd87b6c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1297
diff changeset
  5932
6c182cd87b6c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1297
diff changeset
  5933
   "
1271
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5934
     Compiler allowSqueakExtensions:false.
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5935
    "
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5936
!
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5937
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5938
primary_super
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5939
    "parse a super primary; return a node-tree, nil or #Error."
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5940
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5941
    |pos|
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5942
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5943
    pos := tokenPosition.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5944
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5945
    usesSuper := true.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5946
    self nextToken.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5947
    (self noAssignmentAllowed:'assignment to pseudo variable ''super''' at:pos) ifFalse:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5948
        ^ #Error
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5949
    ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5950
    (classToCompileFor isNil or:[classToCompileFor superclass isNil]) ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5951
        self warning:'superclass is (currently ?) nil' position:pos to:(pos + 4).
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5952
    ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5953
    superNode isNil ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5954
        superNode := SuperNode value:selfValue inClass:classToCompileFor
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5955
    ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5956
    self markSelfFrom:pos to:pos+4.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5957
    ^ superNode
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5958
!
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5959
1262
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  5960
primary_thisContext
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  5961
    "parse a thisContext primary; return a node-tree, or raise an Error."
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  5962
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  5963
    |pos|
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  5964
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  5965
    pos := tokenPosition.
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  5966
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  5967
    self nextToken.
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  5968
    (self noAssignmentAllowed:'assignment to pseudo variable ''thisContext''' at:pos) ifFalse:[
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  5969
        ^ #Error
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  5970
    ].
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  5971
    self markIdentifierFrom:pos to:pos+10.
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  5972
    ^ VariableNode type:#ThisContext context:contextToEvaluateIn. "/ often nil
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  5973
!
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  5974
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5975
primary_true
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5976
    "parse a true primary; return a node-tree, or raise an Error."
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5977
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5978
    |pos|
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5979
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5980
    pos := tokenPosition.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5981
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5982
    self nextToken.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5983
    (self noAssignmentAllowed:'assignment to ''true''' at:pos) ifFalse:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5984
        ^ #Error
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5985
    ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5986
    self markBooleanConstantFrom:pos to:pos+3.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5987
    ^ ConstantNode type:#True value:true
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5988
!
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5989
924
6214afc7e312 qualifiedName support
Claus Gittinger <cg@exept.de>
parents: 921
diff changeset
  5990
qualifiedName
6214afc7e312 qualifiedName support
Claus Gittinger <cg@exept.de>
parents: 921
diff changeset
  5991
    "a vw3.x (and later) feature: QualifiedName is #{ id ... id }
6214afc7e312 qualifiedName support
Claus Gittinger <cg@exept.de>
parents: 921
diff changeset
  5992
     and mapped to a global variable here.
6214afc7e312 qualifiedName support
Claus Gittinger <cg@exept.de>
parents: 921
diff changeset
  5993
     The initial #{ is supposed to be not yet skipped."
6214afc7e312 qualifiedName support
Claus Gittinger <cg@exept.de>
parents: 921
diff changeset
  5994
1436
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  5995
    |elements elem pos1 nm|
924
6214afc7e312 qualifiedName support
Claus Gittinger <cg@exept.de>
parents: 921
diff changeset
  5996
6214afc7e312 qualifiedName support
Claus Gittinger <cg@exept.de>
parents: 921
diff changeset
  5997
    pos1 := tokenPosition.
6214afc7e312 qualifiedName support
Claus Gittinger <cg@exept.de>
parents: 921
diff changeset
  5998
    self nextToken.
6214afc7e312 qualifiedName support
Claus Gittinger <cg@exept.de>
parents: 921
diff changeset
  5999
    elements := OrderedCollection new.
1436
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  6000
    [ tokenType ~~ $} ] whileTrue:[
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  6001
        (tokenType == #Identifier) ifFalse:[
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  6002
            self syntaxError:'bad qualifiedName; Identifier expected' 
924
6214afc7e312 qualifiedName support
Claus Gittinger <cg@exept.de>
parents: 921
diff changeset
  6003
                    position:pos1 to:tokenPosition
6214afc7e312 qualifiedName support
Claus Gittinger <cg@exept.de>
parents: 921
diff changeset
  6004
        ].
1436
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  6005
        elem := tokenName.
924
6214afc7e312 qualifiedName support
Claus Gittinger <cg@exept.de>
parents: 921
diff changeset
  6006
        elements add:elem.
1028
cbdce68d87f6 fixed qualifiedName parsing
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  6007
cbdce68d87f6 fixed qualifiedName parsing
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  6008
        self nextToken.
1436
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  6009
        tokenType = $} ifTrue:[
1028
cbdce68d87f6 fixed qualifiedName parsing
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  6010
        ] ifFalse:[
1436
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  6011
            tokenType == #'::' ifTrue:[
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  6012
                "/ notice that Foo.Bar has already been scanned as Foo::Bar
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  6013
                "/(which is a kludge)
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  6014
                self nextToken.
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  6015
            ] ifFalse:[
1028
cbdce68d87f6 fixed qualifiedName parsing
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  6016
                self syntaxError:'bad qualifiedName syntax; ''.'' or ''}'' expected' 
cbdce68d87f6 fixed qualifiedName parsing
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  6017
                        position:pos1 to:tokenPosition.
cbdce68d87f6 fixed qualifiedName parsing
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  6018
            ].
cbdce68d87f6 fixed qualifiedName parsing
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  6019
        ].
1436
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  6020
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  6021
"/        elem := self variable.
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  6022
"/        (elem == #Error) ifTrue:[
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  6023
"/            (tokenType == #EOF) ifTrue:[
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  6024
"/                self syntaxError:'unterminated qualifiedName; ''}'' expected' 
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  6025
"/                        position:pos1 to:tokenPosition
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  6026
"/            ].
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  6027
"/            ^ #Error
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  6028
"/        ].
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  6029
"/        errorFlag := false.
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  6030
"/        (elem isVariable and:[elem isGlobal]) ifFalse:[
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  6031
"/            self warning:'elements of a qualifiedName should be globalIdentifiers' 
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  6032
"/                    position:pos1 to:tokenPosition
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  6033
"/        ].
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  6034
"/        elements add:elem.
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  6035
"/
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  6036
"/        self nextToken.
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  6037
"/        tokenType == #'::' ifTrue:[
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  6038
"/            "/ notice that Foo.Bar has already been scanned as Foo::Bar
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  6039
"/            "/(which is a kludge)
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  6040
"/            self nextToken.
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  6041
"/        ] ifFalse:[
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  6042
"/            tokenType ~~ $} ifTrue:[
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  6043
"/                self syntaxError:'bad qualifiedName syntax; ''.'' or ''}'' expected' 
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  6044
"/                        position:pos1 to:tokenPosition.
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  6045
"/                ^ #Error
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  6046
"/            ].
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  6047
"/        ].
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  6048
    ].
1437
a7a5db01ad12 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1436
diff changeset
  6049
    nm := (elements asStringWith:'::') asSymbol.
1436
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  6050
    ^ ConstantNode type:#Symbol value:nm
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  6051
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  6052
"/    elements size > 1 ifTrue:[
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  6053
"/        self syntaxError:'Sorry: qualified names are not yet implemented.'.
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  6054
"/    ].
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  6055
"/    ^ elements first.
924
6214afc7e312 qualifiedName support
Claus Gittinger <cg@exept.de>
parents: 921
diff changeset
  6056
6214afc7e312 qualifiedName support
Claus Gittinger <cg@exept.de>
parents: 921
diff changeset
  6057
    "Modified: / 14.4.1998 / 17:03:29 / cg"
6214afc7e312 qualifiedName support
Claus Gittinger <cg@exept.de>
parents: 921
diff changeset
  6058
!
6214afc7e312 qualifiedName support
Claus Gittinger <cg@exept.de>
parents: 921
diff changeset
  6059
894
943b6d0d26b3 changes to support loading squeak code containing computed
Claus Gittinger <cg@exept.de>
parents: 887
diff changeset
  6060
squeakComputedArray
943b6d0d26b3 changes to support loading squeak code containing computed
Claus Gittinger <cg@exept.de>
parents: 887
diff changeset
  6061
    |expressions elem pos1|
943b6d0d26b3 changes to support loading squeak code containing computed
Claus Gittinger <cg@exept.de>
parents: 887
diff changeset
  6062
1275
91a0eead9e0e oops - stc bug workaround - scans keyword selectors
Claus Gittinger <cg@exept.de>
parents: 1274
diff changeset
  6063
    tokenType == $} ifTrue:[
91a0eead9e0e oops - stc bug workaround - scans keyword selectors
Claus Gittinger <cg@exept.de>
parents: 1274
diff changeset
  6064
        ^ #()
91a0eead9e0e oops - stc bug workaround - scans keyword selectors
Claus Gittinger <cg@exept.de>
parents: 1274
diff changeset
  6065
    ].
91a0eead9e0e oops - stc bug workaround - scans keyword selectors
Claus Gittinger <cg@exept.de>
parents: 1274
diff changeset
  6066
894
943b6d0d26b3 changes to support loading squeak code containing computed
Claus Gittinger <cg@exept.de>
parents: 887
diff changeset
  6067
    pos1 := tokenPosition.
943b6d0d26b3 changes to support loading squeak code containing computed
Claus Gittinger <cg@exept.de>
parents: 887
diff changeset
  6068
    expressions := OrderedCollection new:20.
1275
91a0eead9e0e oops - stc bug workaround - scans keyword selectors
Claus Gittinger <cg@exept.de>
parents: 1274
diff changeset
  6069
    [true] whileTrue:[
894
943b6d0d26b3 changes to support loading squeak code containing computed
Claus Gittinger <cg@exept.de>
parents: 887
diff changeset
  6070
        elem := self expression.
943b6d0d26b3 changes to support loading squeak code containing computed
Claus Gittinger <cg@exept.de>
parents: 887
diff changeset
  6071
        (elem == #Error) ifTrue:[
943b6d0d26b3 changes to support loading squeak code containing computed
Claus Gittinger <cg@exept.de>
parents: 887
diff changeset
  6072
            (tokenType == #EOF) ifTrue:[
943b6d0d26b3 changes to support loading squeak code containing computed
Claus Gittinger <cg@exept.de>
parents: 887
diff changeset
  6073
                self syntaxError:'unterminated computed-array-element; ''}'' expected' 
943b6d0d26b3 changes to support loading squeak code containing computed
Claus Gittinger <cg@exept.de>
parents: 887
diff changeset
  6074
                        position:pos1 to:tokenPosition
943b6d0d26b3 changes to support loading squeak code containing computed
Claus Gittinger <cg@exept.de>
parents: 887
diff changeset
  6075
            ].
943b6d0d26b3 changes to support loading squeak code containing computed
Claus Gittinger <cg@exept.de>
parents: 887
diff changeset
  6076
            ^ #Error
943b6d0d26b3 changes to support loading squeak code containing computed
Claus Gittinger <cg@exept.de>
parents: 887
diff changeset
  6077
        ].
943b6d0d26b3 changes to support loading squeak code containing computed
Claus Gittinger <cg@exept.de>
parents: 887
diff changeset
  6078
        expressions add:elem.
1277
f7c21ebe1520 squeak computed arrays again
Claus Gittinger <cg@exept.de>
parents: 1276
diff changeset
  6079
        tokenType == $. ifFalse:[
894
943b6d0d26b3 changes to support loading squeak code containing computed
Claus Gittinger <cg@exept.de>
parents: 887
diff changeset
  6080
            ^ expressions
1277
f7c21ebe1520 squeak computed arrays again
Claus Gittinger <cg@exept.de>
parents: 1276
diff changeset
  6081
        ].
f7c21ebe1520 squeak computed arrays again
Claus Gittinger <cg@exept.de>
parents: 1276
diff changeset
  6082
        self nextToken.
f7c21ebe1520 squeak computed arrays again
Claus Gittinger <cg@exept.de>
parents: 1276
diff changeset
  6083
        tokenType == $} ifTrue:[
f7c21ebe1520 squeak computed arrays again
Claus Gittinger <cg@exept.de>
parents: 1276
diff changeset
  6084
            ^ expressions
f7c21ebe1520 squeak computed arrays again
Claus Gittinger <cg@exept.de>
parents: 1276
diff changeset
  6085
        ].
894
943b6d0d26b3 changes to support loading squeak code containing computed
Claus Gittinger <cg@exept.de>
parents: 887
diff changeset
  6086
    ].
1275
91a0eead9e0e oops - stc bug workaround - scans keyword selectors
Claus Gittinger <cg@exept.de>
parents: 1274
diff changeset
  6087
    "/ not reached
894
943b6d0d26b3 changes to support loading squeak code containing computed
Claus Gittinger <cg@exept.de>
parents: 887
diff changeset
  6088
!
943b6d0d26b3 changes to support loading squeak code containing computed
Claus Gittinger <cg@exept.de>
parents: 887
diff changeset
  6089
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  6090
unaryExpression
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  6091
    "parse a unary-expression; return a node-tree, nil or #Error"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  6092
1328
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  6093
    |receiver|
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  6094
1405
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  6095
    receiver := self arrayIndexingExpression.
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  6096
    (receiver == #Error) ifTrue:[^ #Error].
1328
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  6097
    ^ self unaryExpressionFor:receiver
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  6098
!
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  6099
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  6100
unaryExpressionFor:receiverArg
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  6101
    "parse a unary-expression; return a node-tree, nil or #Error"
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  6102
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  6103
    |receiver thisReceiver sel pos pos2 try note|
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  6104
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  6105
    receiver := receiverArg.
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  6106
    (receiver == #Error) ifTrue:[^ #Error].
1306
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  6107
    [ self isValidUnarySelector:tokenType ] whileTrue:[
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  6108
        pos := tokenPosition.
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  6109
        pos2 := pos + tokenName size - 1.
864
a716d90fa5a9 better selector marking
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
  6110
        self markSelector:tokenName from:pos to:pos2 receiverNode:receiver.
977
c1afbaf48a23 remember used & modified local vars;
Claus Gittinger <cg@exept.de>
parents: 971
diff changeset
  6111
        sel := tokenName.
1022
32bc5fc06687 added selector correction.
Claus Gittinger <cg@exept.de>
parents: 1020
diff changeset
  6112
        sel := self selectorCheck:sel for:receiver position:pos to:pos2.
1061
457156ffedec *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1060
diff changeset
  6113
        thisReceiver := receiver.
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  6114
        try := UnaryNode receiver:receiver selector:sel fold:foldConstants.
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  6115
        (try isMemberOf:String) ifTrue:[
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  6116
            self parseError:try position:pos to:pos2.
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  6117
            errorFlag := false. "ok, user wants it - so he'll get it"
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  6118
            receiver := UnaryNode receiver:receiver selector:sel fold:nil.
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  6119
        ] ifFalse:[
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  6120
            receiver := try
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  6121
        ].
1193
c441d3b202e5 check bad super message
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
  6122
        note := self plausibilityCheck:receiver.
c441d3b202e5 check bad super message
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
  6123
        note notNil ifTrue:[
c441d3b202e5 check bad super message
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
  6124
            self warning:note position:pos to:pos2
c441d3b202e5 check bad super message
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
  6125
        ].
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  6126
        receiver lineNumber:tokenLineNr.
1060
9978f9d22dde more queries (remember super messages)
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  6127
        parseForCode ifFalse:[
1061
457156ffedec *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1060
diff changeset
  6128
            self rememberSelectorUsed:sel receiver:thisReceiver
1060
9978f9d22dde more queries (remember super messages)
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  6129
        ].
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  6130
        self nextToken.
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  6131
    ].
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  6132
    ^ receiver
210
b22f4472833b allow enable/disable of constantFolding
Claus Gittinger <cg@exept.de>
parents: 207
diff changeset
  6133
1032
f97183aecb4e oops - super-send-doIt in a debugger used receivers class
Claus Gittinger <cg@exept.de>
parents: 1028
diff changeset
  6134
    "Modified: / 6.2.2000 / 14:54:20 / cg"
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  6135
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  6136
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  6137
variable
1028
cbdce68d87f6 fixed qualifiedName parsing
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  6138
    "parse a simple (i.e. non-namespace-access path) variable; 
cbdce68d87f6 fixed qualifiedName parsing
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  6139
     return a node-tree, nil or #Error.
cbdce68d87f6 fixed qualifiedName parsing
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  6140
     Does not advance to next token.
cbdce68d87f6 fixed qualifiedName parsing
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  6141
     If undefined, notify error and correct if user wants to"
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  6142
864
a716d90fa5a9 better selector marking
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
  6143
    |v pos1 pos2|
687
27565829b5d4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 685
diff changeset
  6144
454
00a079c9832f handle uses: usedNameSpace info
Claus Gittinger <cg@exept.de>
parents: 451
diff changeset
  6145
    v := self variableOrError:tokenName.
664
63d1460e8ee3 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 663
diff changeset
  6146
    (v ~~ #Error) ifTrue:[
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  6147
        (v isMemberOf:VariableNode) ifTrue:[
687
27565829b5d4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 685
diff changeset
  6148
            self markVariable:v.
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  6149
        ].
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  6150
        ^ v
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  6151
    ].
865
580b3f73021b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 864
diff changeset
  6152
687
27565829b5d4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 685
diff changeset
  6153
    pos1 := tokenPosition.
864
a716d90fa5a9 better selector marking
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
  6154
    pos2 := pos1+tokenName size-1.
a716d90fa5a9 better selector marking
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
  6155
    self markUnknownIdentifierFrom:pos1 to:pos2.
664
63d1460e8ee3 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 663
diff changeset
  6156
1089
ac7a3f73e18f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1087
diff changeset
  6157
    parseForCode == true ifTrue:[    
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  6158
        v := self correctVariable:tokenName atPosition:pos1 to:pos2.
1089
ac7a3f73e18f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1087
diff changeset
  6159
        (v ~~ #Error) ifTrue:[^ v].
ac7a3f73e18f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1087
diff changeset
  6160
    ].
ac7a3f73e18f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1087
diff changeset
  6161
ac7a3f73e18f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1087
diff changeset
  6162
    errorFlag := true.
664
63d1460e8ee3 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 663
diff changeset
  6163
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  6164
    parseForCode ifFalse:[
1304
ade15708e7c1 undeclared variable handling was broken (to allow reference search)
penk
parents: 1301
diff changeset
  6165
        self rememberGlobalUsed:(Smalltalk undeclaredPrefix) , tokenName.
ade15708e7c1 undeclared variable handling was broken (to allow reference search)
penk
parents: 1301
diff changeset
  6166
        self rememberGlobalUsed:tokenName.
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  6167
    ] ifTrue:[
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  6168
        tokenName first isLowercase ifTrue:[
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  6169
            ImplicitSelfSends ifTrue:[
1271
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  6170
                ^ UnaryNode receiver:(self selfNode) selector:('__' , tokenName) asSymbol.
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  6171
            ].
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  6172
            ^ #Error
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  6173
        ]
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  6174
    ].
865
580b3f73021b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 864
diff changeset
  6175
869
c483b1e6a0c3 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 866
diff changeset
  6176
"/    self markGlobalIdentifierFrom:pos1 to:pos2.
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  6177
    ^ VariableNode globalNamed:tokenName
454
00a079c9832f handle uses: usedNameSpace info
Claus Gittinger <cg@exept.de>
parents: 451
diff changeset
  6178
687
27565829b5d4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 685
diff changeset
  6179
    "Modified: / 16.4.1998 / 18:46:45 / cg"
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  6180
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  6181
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  6182
variableOrError
1028
cbdce68d87f6 fixed qualifiedName parsing
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  6183
    "parse a simple (i.e. non-namespace-access path) variable; 
cbdce68d87f6 fixed qualifiedName parsing
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  6184
     return a node-tree, nil or #Error.
cbdce68d87f6 fixed qualifiedName parsing
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  6185
     Does not advance to next token."
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  6186
21
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  6187
    ^ self variableOrError:tokenName
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  6188
!
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  6189
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  6190
variableOrError:varName
1028
cbdce68d87f6 fixed qualifiedName parsing
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  6191
    "parse a simple (i.e. non-namespace-access path) variable; 
cbdce68d87f6 fixed qualifiedName parsing
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  6192
     return a node-tree, nil or #Error.
cbdce68d87f6 fixed qualifiedName parsing
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  6193
     Does not advance to next token."
21
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  6194
1351
107757ea7184 Remove unused method variables
Stefan Vogel <sv@exept.de>
parents: 1347
diff changeset
  6195
    |varIndex aClass searchBlock args vars
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  6196
     tokenSymbol space classVarIndex holder node|
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  6197
7ad01559b262 Initial revision
claus
parents:
diff changeset
  6198
    "is it a block-arg or block-var ?"
7ad01559b262 Initial revision
claus
parents:
diff changeset
  6199
    searchBlock := currentBlock.
7ad01559b262 Initial revision
claus
parents:
diff changeset
  6200
    [searchBlock notNil] whileTrue:[
628
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6201
        vars := searchBlock variables.
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6202
        vars notNil ifTrue:[
640
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  6203
            varIndex := vars findFirst:[:aBlockVar | aBlockVar name = varName].
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  6204
            varIndex ~~ 0 ifTrue:[
628
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6205
                ^ VariableNode type:#BlockVariable
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6206
                               name:varName
640
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  6207
                              token:(vars at:varIndex)
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  6208
                              index:varIndex
628
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6209
                              block:searchBlock
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6210
                               from:currentBlock
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6211
            ].
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6212
        ].
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6213
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6214
        args := searchBlock arguments.
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6215
        args notNil ifTrue:[
640
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  6216
            varIndex := args findFirst:[:aBlockArg | aBlockArg name = varName].
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  6217
            varIndex ~~ 0 ifTrue:[
628
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6218
                ^ VariableNode type:#BlockArg
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6219
                               name:varName
640
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  6220
                              token:(args at:varIndex)
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  6221
                              index:varIndex
628
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6222
                              block:searchBlock
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6223
                               from:currentBlock 
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6224
            ].
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6225
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6226
        ].
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6227
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6228
        searchBlock := searchBlock home
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  6229
    ].
7ad01559b262 Initial revision
claus
parents:
diff changeset
  6230
7ad01559b262 Initial revision
claus
parents:
diff changeset
  6231
    "is it a method-variable ?"
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  6232
    (node := self nodeForMethodVariable:varName) notNil
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  6233
    ifTrue:[
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  6234
        ^ node
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  6235
    ].
7ad01559b262 Initial revision
claus
parents:
diff changeset
  6236
7ad01559b262 Initial revision
claus
parents:
diff changeset
  6237
    "is it a method-argument ?"
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  6238
    (node := self nodeForMethodArg:varName) notNil
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  6239
    ifTrue:[
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  6240
        ^ node
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  6241
    ].
7ad01559b262 Initial revision
claus
parents:
diff changeset
  6242
640
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  6243
    contextToEvaluateIn notNil ifTrue:[
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  6244
        |con varNames|
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  6245
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  6246
        "/ 
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  6247
        "/ search names of the context.
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  6248
        "/ 
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  6249
        con := contextToEvaluateIn.
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  6250
        [con notNil] whileTrue:[
1446
ac887ee4881a ** changed access to blockContexts source, args and vars -- please watch out
penk
parents: 1445
diff changeset
  6251
            varNames := con argAndVarNames.
690
936f55e3cc17 care for empty varNames
Claus Gittinger <cg@exept.de>
parents: 688
diff changeset
  6252
            varNames size > 0 ifTrue:[
936f55e3cc17 care for empty varNames
Claus Gittinger <cg@exept.de>
parents: 688
diff changeset
  6253
                varIndex := varNames lastIndexOf:varName.
936f55e3cc17 care for empty varNames
Claus Gittinger <cg@exept.de>
parents: 688
diff changeset
  6254
                varIndex ~~ 0 ifTrue:[
936f55e3cc17 care for empty varNames
Claus Gittinger <cg@exept.de>
parents: 688
diff changeset
  6255
                    ^ VariableNode type:#ContextVariable
936f55e3cc17 care for empty varNames
Claus Gittinger <cg@exept.de>
parents: 688
diff changeset
  6256
                                   name:varName
936f55e3cc17 care for empty varNames
Claus Gittinger <cg@exept.de>
parents: 688
diff changeset
  6257
                                context:con
936f55e3cc17 care for empty varNames
Claus Gittinger <cg@exept.de>
parents: 688
diff changeset
  6258
                                  index:varIndex
936f55e3cc17 care for empty varNames
Claus Gittinger <cg@exept.de>
parents: 688
diff changeset
  6259
                ].
640
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  6260
            ].
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  6261
            con := con home.
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  6262
        ].
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  6263
    ].
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  6264
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  6265
    classToCompileFor notNil ifTrue:[
628
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6266
        "is it an instance-variable ?"
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6267
640
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  6268
        varIndex := (self classesInstVarNames) lastIndexOf:varName.
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  6269
        varIndex ~~ 0 ifTrue:[
628
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6270
            classToCompileFor isMeta ifTrue:[
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6271
                classVarIndex := (self classesClassVarNames) lastIndexOf:varName.
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6272
                classVarIndex ~~ 0 ifTrue:[
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6273
                    "/ give a warning - that maybe a common error
825
ff00fb46342f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 822
diff changeset
  6274
                    alreadyWarnedClassInstVarRefs isNil ifTrue:[
ff00fb46342f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 822
diff changeset
  6275
                        alreadyWarnedClassInstVarRefs := Set new
ff00fb46342f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 822
diff changeset
  6276
                    ].
ff00fb46342f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 822
diff changeset
  6277
                    (alreadyWarnedClassInstVarRefs includes:varName) ifFalse:[
ff00fb46342f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 822
diff changeset
  6278
                        self warning:('there is both a class variable and a class-instance variable named ''' , varName , '''.\\Refering to the class-instance variable here.') withCRs.
ff00fb46342f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 822
diff changeset
  6279
                        alreadyWarnedClassInstVarRefs add:varName.
ff00fb46342f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 822
diff changeset
  6280
                    ].
628
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6281
                ].
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6282
            ].
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6283
            parseForCode ifFalse:[self rememberInstVarUsed:varName].
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6284
            ^ VariableNode type:#InstanceVariable 
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6285
                           name:varName
640
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  6286
                          index:varIndex
628
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6287
                      selfValue:selfValue
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6288
        ].
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6289
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6290
        "/ see if there is a corresponding classVar (for the warning)
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6291
        classVarIndex := (self classesClassVarNames) lastIndexOf:varName.
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6292
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6293
        "/      "is it a class-instance-variable ?"
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6294
        "/
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6295
        "/ Notice:
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6296
        "/ it is no longer allowed to fetch class-instance variables
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6297
        "/ from instance methods ...
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6298
        "/ (used to be in previous ST/X versions)
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6299
        "/
640
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  6300
        varIndex := (self classesClassInstVarNames) lastIndexOf:varName.
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  6301
        varIndex ~~ 0 ifTrue:[
628
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6302
            aClass := self inWhichClassIsClassInstVar:varName.
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6303
            aClass notNil ifTrue:[
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6304
                classToCompileFor isMeta ifFalse:[
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6305
                    classVarIndex == 0 ifTrue:[
705
e22927413fe5 allow access to class-instVars from doIts;
Claus Gittinger <cg@exept.de>
parents: 694
diff changeset
  6306
                        "/ there is no corresponding classVar;
e22927413fe5 allow access to class-instVars from doIts;
Claus Gittinger <cg@exept.de>
parents: 694
diff changeset
  6307
                        "/ wants to access classInstVar ?
e22927413fe5 allow access to class-instVars from doIts;
Claus Gittinger <cg@exept.de>
parents: 694
diff changeset
  6308
                        contextToEvaluateIn notNil ifTrue:[
e22927413fe5 allow access to class-instVars from doIts;
Claus Gittinger <cg@exept.de>
parents: 694
diff changeset
  6309
                            "/ allow it in a doIt ...
e22927413fe5 allow access to class-instVars from doIts;
Claus Gittinger <cg@exept.de>
parents: 694
diff changeset
  6310
e22927413fe5 allow access to class-instVars from doIts;
Claus Gittinger <cg@exept.de>
parents: 694
diff changeset
  6311
                            ^ VariableNode type:#ClassInstanceVariable
e22927413fe5 allow access to class-instVars from doIts;
Claus Gittinger <cg@exept.de>
parents: 694
diff changeset
  6312
                                           name:varName
e22927413fe5 allow access to class-instVars from doIts;
Claus Gittinger <cg@exept.de>
parents: 694
diff changeset
  6313
                                          index:varIndex
e22927413fe5 allow access to class-instVars from doIts;
Claus Gittinger <cg@exept.de>
parents: 694
diff changeset
  6314
                                      selfClass:aClass
e22927413fe5 allow access to class-instVars from doIts;
Claus Gittinger <cg@exept.de>
parents: 694
diff changeset
  6315
                        ].
628
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6316
                        self parseError:'access to class-inst-var from inst method is not allowed'.
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6317
                        ^ #Error.
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6318
                    ] ifFalse:[
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6319
                        "/ give a warning - that maybe a common error
738
2c85becd8697 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 735
diff changeset
  6320
                        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.
628
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6321
                    ]
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6322
                ].
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6323
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6324
"/ OLD CODE:
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6325
"/ 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
  6326
"/
628
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6327
"/                    parseForCode ifFalse:[self rememberClassVarUsed:varName].
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6328
"/                    ^ VariableNode type:#ClassInstanceVariable
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6329
"/                                   name:varName
640
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  6330
"/                                  index:varIndex
628
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6331
"/                              selfClass:aClass
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6332
"/                ].
732
c36e5ef1e6ce oops - when evaluating in a context, classVars must be
Claus Gittinger <cg@exept.de>
parents: 725
diff changeset
  6333
            ] ifFalse:[
c36e5ef1e6ce oops - when evaluating in a context, classVars must be
Claus Gittinger <cg@exept.de>
parents: 725
diff changeset
  6334
                "/ self halt:'oops - should not happen'.
628
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6335
            ]
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6336
        ].
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6337
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6338
        "is it a class-variable ?"
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6339
640
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  6340
        varIndex := classVarIndex.
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  6341
        varIndex ~~ 0 ifTrue:[
628
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6342
            aClass := self inWhichClassIsClassVar:varName.
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6343
            aClass notNil ifTrue:[
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6344
                parseForCode ifFalse:[self rememberClassVarUsed:varName].
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6345
                ^ VariableNode type:#ClassVariable class:aClass name:varName
732
c36e5ef1e6ce oops - when evaluating in a context, classVars must be
Claus Gittinger <cg@exept.de>
parents: 725
diff changeset
  6346
            ].
c36e5ef1e6ce oops - when evaluating in a context, classVars must be
Claus Gittinger <cg@exept.de>
parents: 725
diff changeset
  6347
            "/ self halt:'oops - should not happen'.
628
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6348
        ].
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6349
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6350
        "is it a private-class ?"
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6351
735
4012fa1611b1 code cleanup & fix for doIt (implementing class)
Claus Gittinger <cg@exept.de>
parents: 733
diff changeset
  6352
        aClass := self classToLookForClassVars.
1212
082618467e2c isMeta/soleInstance -> theMetaclass / theNonMetaclass
Claus Gittinger <cg@exept.de>
parents: 1207
diff changeset
  6353
        aClass := aClass theNonMetaclass.
628
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6354
        (aClass privateClassesAt:varName) notNil ifTrue:[
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6355
            parseForCode ifFalse:[self rememberGlobalUsed:(aClass name , '::' , varName)].
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6356
            ^ VariableNode type:#PrivateClass class:aClass name:varName
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6357
        ].
418
6a3d240e7db6 namespace support
Claus Gittinger <cg@exept.de>
parents: 412
diff changeset
  6358
    ].
6a3d240e7db6 namespace support
Claus Gittinger <cg@exept.de>
parents: 412
diff changeset
  6359
455
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6360
    "is it in a namespace ?"
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6361
    space := self findNameSpaceWith:varName.
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6362
    space notNil ifTrue:[
628
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6363
        space ~~ Smalltalk ifTrue:[
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6364
            parseForCode ifFalse:[self rememberGlobalUsed:(space name , '::' , varName)].
1042
d192446cb745 fixed qualifiedName handling (as array constant)
Claus Gittinger <cg@exept.de>
parents: 1041
diff changeset
  6365
            space isNameSpace ifTrue:[
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  6366
                ^ VariableNode globalNamed:(space name , '::' , varName)
1212
082618467e2c isMeta/soleInstance -> theMetaclass / theNonMetaclass
Claus Gittinger <cg@exept.de>
parents: 1207
diff changeset
  6367
            ].
082618467e2c isMeta/soleInstance -> theMetaclass / theNonMetaclass
Claus Gittinger <cg@exept.de>
parents: 1207
diff changeset
  6368
            ^ VariableNode type:#PrivateClass class:space name:varName
082618467e2c isMeta/soleInstance -> theMetaclass / theNonMetaclass
Claus Gittinger <cg@exept.de>
parents: 1207
diff changeset
  6369
        ].
082618467e2c isMeta/soleInstance -> theMetaclass / theNonMetaclass
Claus Gittinger <cg@exept.de>
parents: 1207
diff changeset
  6370
        parseForCode ifFalse:[self rememberGlobalUsed:varName].
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  6371
        ^ VariableNode globalNamed:varName
454
00a079c9832f handle uses: usedNameSpace info
Claus Gittinger <cg@exept.de>
parents: 451
diff changeset
  6372
    ].
00a079c9832f handle uses: usedNameSpace info
Claus Gittinger <cg@exept.de>
parents: 451
diff changeset
  6373
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  6374
    "is it a global-variable ?"
63
c30ce56de7a8 *** empty log message ***
claus
parents: 62
diff changeset
  6375
    tokenSymbol := varName asSymbolIfInterned.
c30ce56de7a8 *** empty log message ***
claus
parents: 62
diff changeset
  6376
    tokenSymbol notNil ifTrue:[
628
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6377
        (Smalltalk includesKey:tokenSymbol) ifTrue:[
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6378
            parseForCode ifFalse:[self rememberGlobalUsed:varName].
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  6379
            ^ VariableNode globalNamed:tokenSymbol
628
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6380
        ]
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  6381
    ].
358
78b0d8954c49 removed possible conflict between #classVarNames here and in Class.
Claus Gittinger <cg@exept.de>
parents: 354
diff changeset
  6382
877
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  6383
    "is it a workspace variable ?"
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  6384
    (requestor notNil and:[requestor isStream not]) ifTrue:[
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  6385
        "/ when parsing doits, this is done twice;
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  6386
        "/ first, for the parse, then as a block-code
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  6387
        "/ for the code.
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  6388
        "/ We only care for WorkspaceVars in doIts
1440
7084ae99ced7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1439
diff changeset
  6389
        (self isDoIt) ifTrue:[
1295
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  6390
            (Workspace notNil 
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  6391
            and:[(holder := Workspace workspaceVariableAt:varName) notNil])
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  6392
            ifTrue:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  6393
                ^ VariableNode type:#WorkspaceVariable holder:holder name:varName
877
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  6394
            ]
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  6395
        ]
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  6396
    ].
1295
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  6397
    "is it a doIt variable ?"
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  6398
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  6399
"/    (requestor notNil and:[requestor isStream not]) ifTrue:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  6400
        "/ when parsing doits, this is done twice;
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  6401
        "/ first, for the parse, then as a block-code
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  6402
        "/ for the code.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  6403
        "/ We only care for WorkspaceVars in doIts
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  6404
1440
7084ae99ced7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1439
diff changeset
  6405
        (self isDoIt) ifTrue:[
1295
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  6406
            (doItTemporaries notNil 
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  6407
            and:[(holder := doItTemporaries at:varName asSymbol ifAbsent:nil) notNil]) 
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  6408
            ifTrue:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  6409
                ^ VariableNode type:#DoItTemporary holder:holder name:varName
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  6410
            ]
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  6411
        ].
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  6412
"/    ].
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  6413
    ^ #Error
1212
082618467e2c isMeta/soleInstance -> theMetaclass / theNonMetaclass
Claus Gittinger <cg@exept.de>
parents: 1207
diff changeset
  6414
    "Modified: / 5.11.2001 / 16:45:35 / cg"
455
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6415
! !
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6416
1410
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6417
!Parser methodsFor:'parsing-primitives & pragmas'!
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6418
1420
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6419
checkForClosingAngle
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6420
    ((tokenType == #BinaryOperator) and:[tokenName = '>']) ifTrue:[
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6421
        self nextToken.
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6422
    ] ifFalse:[
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6423
        self parseError:'bad primitive definition (''>'' expected)'.
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6424
    ]
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6425
!
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6426
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6427
parseApiCallPragma
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6428
    |cString|
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6429
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6430
    cString := source upTo:$>.
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6431
    self nextToken.
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6432
    "/ TODO: generate that interface ...
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6433
    ^ -1
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6434
!
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6435
1410
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6436
parseApiPragma
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6437
    |cString|
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6438
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6439
    cString := source upTo:$>.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6440
    self nextToken.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6441
    "/ TODO: generate that interface ...
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6442
    ^ -1
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6443
!
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6444
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6445
parseCDeclPragma
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6446
    |cString cStream cParser returnType functionName argTypes|
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6447
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6448
    cString := source upTo:$>.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6449
    self nextToken.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6450
    cStream := cString readStream.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6451
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6452
    cParser := CParser new.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6453
    cParser source:cStream scannerClass:CDeclScanner.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6454
    cParser nextToken.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6455
    returnType := cParser type.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6456
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6457
    cParser tokenType ~~ #String ifTrue:[
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6458
        self parseError:'invalid cdecl - functionName expected'.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6459
        ^ -1
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6460
    ].
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6461
    functionName := cParser token.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6462
    cParser nextToken.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6463
    argTypes := cParser parseFunctionArgumentSpec.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6464
self halt.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6465
    "/ TODO: generate that ffi-calling code ...
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6466
    ^ -1
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6467
!
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6468
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6469
parseCPragma
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6470
    |cString cParser cType|
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6471
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6472
    cString := source upTo:$>.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6473
    self nextToken.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6474
    "/ TODO: generate that type
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6475
    cParser := CParser new.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6476
    cParser source:(cString , ';').
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6477
    cParser nextToken.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6478
    cType := cParser type.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6479
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6480
    primitiveResource "primitiveType" := cType.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6481
    ^ -1
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6482
!
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6483
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6484
parsePrimitive
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6485
    "parse an ST-80 type primitive as '< primitive: nr >';
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6486
     return primitive number or #Error.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6487
     or a Squeak-style primitive, as '< primitive: string >';
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6488
     return primitive name or #Error.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6489
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6490
     Also, ST-80 style resource specs are parsed; the result is
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6491
     left (as side effect) in primitiveResource. 
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6492
     (maybe someone else knows what to do with it ...)
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6493
     Well, as we now have this mechanism, I'll use it to mark methods which
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6494
     do keyboard processing ... <resource: keyboard ( keys )>
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6495
     For faster finding of used keyboard accelerators,
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6496
     and to mark resource methods (image, menu or canvas resources).
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6497
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6498
     prim ::= st80Primitive | st80Pragma | stxPragma
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6499
              squeakPrimitive | newSTXPrimitive | resourceDecl
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6500
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6501
     st80Primitive ::= 'primitive:' INTEGER
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6502
     st80Pragma    ::= 'exception:' ( 'handle | 'raise' | 'unwind' )
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6503
     stxPragma     ::= 'context:' 'return'
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6504
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6505
     squeakPrimitive ::= 'primitive:' STRING
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6506
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6507
     newSTXPrimitive ::= 'primitive'
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6508
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6509
     resourceDecl ::= 'resource:' SYMBOL       - leave SYMBOL in primitiveResource
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6510
                    | 'resource:' SYMBOL (...) - leave (SYMBOL (...)) in primitiveResource
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6511
    "
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6512
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6513
    (tokenType == #Keyword or:[tokenType == #Identifier]) ifFalse:[
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6514
        self parseError:'bad primitive definition (keyword expected)'.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6515
        ^ #Error
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6516
    ].
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6517
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6518
    (tokenName = 'primitive:') ifTrue:[
1420
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6519
        ^ self parseTraditionalPrimitive.
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6520
    ].
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6521
    (tokenName = 'primitive') ifTrue:[
1410
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6522
        self nextToken.
1420
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6523
        self checkForClosingAngle.
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6524
        ^ 0.    "/ no primitive number
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6525
    ].
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6526
    (tokenName = 'resource:') ifTrue:[
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6527
        self parseResourcePragma.
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6528
        ^ nil.    "/ no primitive number
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6529
    ].
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6530
    (tokenName = 'exception:' 
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6531
    or:[tokenName = 'context:']) ifTrue:[
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6532
        self parseExceptionOrContextPragma.    
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6533
        self checkForClosingAngle.
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6534
        ^ nil   "/ no primitive number
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6535
    ].
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6536
    (tokenName = 'C:') ifTrue:[
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6537
        self parseCPragma.    
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6538
        ^ nil   "/ no primitive number
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6539
    ].
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6540
    (tokenName = 'api:') ifTrue:[
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6541
        self parseApiPragma.    
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6542
        ^ nil   "/ no primitive number
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6543
    ].
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6544
    (tokenName = 'apicall:') ifTrue:[
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6545
        self parseApiCallPragma.    
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6546
        ^ nil   "/ no primitive number
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6547
    ].
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6548
    (tokenName = 'cdecl:') ifTrue:[
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6549
        self parseCDeclPragma.
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6550
        ^ nil   "/ no primitive number
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6551
    ].
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6552
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6553
    self parseError:'unrecognized pragma: ' , tokenName.
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6554
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6555
    "/ skip
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6556
    [tokenType ~~ #EOF] whileTrue:[
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6557
        ((tokenType == #BinaryOperator) and:[tokenName = '>']) ifTrue:[
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6558
            self nextToken.
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6559
            ^ nil "/ no primitive number
1410
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6560
        ].
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6561
        self nextToken.
1420
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6562
    ].
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6563
    ^ nil  "/ no primitive number
1410
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6564
!
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6565
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6566
parsePrimitiveOrResourceSpecOrEmpty
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6567
    "parse a methods primitive or resource spec"
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6568
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6569
    |pos wmsg primNr primNrOrString|
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6570
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6571
    [(tokenType == #BinaryOperator) and:[tokenName = '<']] whileTrue:[
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6572
        "/ an ST-80 primitive or resourceSpec - parsed but ignored
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6573
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6574
        pos := tokenPosition.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6575
        self nextToken.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6576
        primNrOrString := self parsePrimitive.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6577
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6578
        (primNrOrString == #Error) ifTrue:[^ #Error].
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6579
        wmsg := nil.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6580
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6581
        primNrOrString isString ifTrue:[
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6582
            primNr := self primitiveNumberFromName:primNrOrString
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6583
        ] ifFalse:[
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6584
            primNr := primNrOrString
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6585
        ].
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6586
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6587
        primNr notNil ifTrue:[
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6588
            primNr < 0 ifTrue:[
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6589
                WarnST80Directives == true ifTrue:[
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6590
                    wmsg := 'ST-80/Squeak directive ignored'.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6591
                ].
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6592
            ] ifFalse:[
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6593
                primNr > 0 ifTrue:[
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6594
                    primitiveNr := primNr.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6595
                    wmsg := 'ST-80 primitive may not work'
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6596
                ] ifFalse:[
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6597
                    primitiveNr := primNr.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6598
                    wmsg := 'ST/X primitives only work in rel5 and newer'
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6599
                ]
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6600
            ].
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6601
        ].
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6602
        wmsg notNil ifTrue:[self warning:wmsg position:pos]
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6603
    ].
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6604
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6605
    "Created: 27.4.1996 / 16:55:55 / cg"
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6606
    "Modified: 29.5.1996 / 17:25:52 / cg"
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6607
!
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6608
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6609
parseResourcePragma
1420
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6610
    " '< resource:' has already been parsed."
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6611
1410
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6612
    |keys resource resourceValue|
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6613
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6614
    self nextToken.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6615
    (tokenType ~~ #Symbol) ifTrue:[
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6616
        self parseError:'symbol expected'.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6617
        ^ #Error
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6618
    ].
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6619
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6620
    resource := tokenValue.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6621
    resourceValue := true.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6622
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6623
    self nextToken.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6624
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6625
    tokenType == $( ifTrue:[
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6626
        self nextToken.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6627
        keys := OrderedCollection new.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6628
        [(tokenType == $)) or:[tokenType == #EOF] ] whileFalse:[
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6629
            keys add:tokenValue.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6630
            self nextToken.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6631
        ].
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6632
        resourceValue := keys.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6633
        (tokenType == $)) ifFalse:[
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6634
            self parseError:'unterminated primitive/spec (missing '')'')'.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6635
        ].
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6636
        self nextToken.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6637
    ].
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6638
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6639
    primitiveResource isNil ifTrue:[
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6640
        primitiveResource := IdentityDictionary new.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6641
    ].
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6642
    primitiveResource at:(resource asSymbol) put:resourceValue.
1420
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6643
    self checkForClosingAngle.
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6644
!
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6645
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6646
parseTraditionalPrimitive
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6647
    "parse everything after the initial '<primitive:'"
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6648
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6649
    |primNumber|
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6650
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6651
    self nextToken.
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6652
    (tokenType == #Integer) ifFalse:[
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6653
        allowSqueakExtensions ifTrue:[
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6654
            (tokenType == #String) ifFalse:[
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6655
                self parseError:'primitive number or name expected'.
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6656
                ^ #Error
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6657
            ]
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6658
        ] ifFalse:[
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6659
            self parseError:'primitive number expected'.
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6660
            ^ #Error
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6661
        ]
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6662
    ].
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6663
    primitiveNr notNil ifTrue:[
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6664
        self parseError:'only one primitive spec allowed'.
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6665
        primNumber := -1.
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6666
    ] ifFalse:[
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6667
        primNumber := tokenValue.
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6668
    ].
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6669
    self nextToken.
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6670
    ((tokenType == #BinaryOperator) and:[tokenName = '>']) ifFalse:[
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6671
        ((tokenType == #Keyword) and:[tokenName = 'errorCode:']) ifTrue:[
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6672
            self nextToken.
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6673
            (tokenType == #Identifier) ifTrue:[
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6674
                self nextToken.
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6675
            ] ifFalse:[
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6676
                self error:'not yet implemented'.
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6677
            ]
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6678
        ].
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6679
    ].
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6680
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6681
    self checkForClosingAngle.
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6682
    ^ primNumber
1410
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6683
!
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6684
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6685
primitiveNumberFromName:aPrimitiveName
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6686
    "for future compatibility with Squeak ..."
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6687
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6688
    ^ nil
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6689
! !
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6690
455
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6691
!Parser methodsFor:'private'!
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6692
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6693
currentNameSpace
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6694
    |spc|
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6695
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6696
    spc := currentNamespace.
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6697
    spc isNil ifTrue:[
832
553c25252a78 Use #query instead of #raise when invoking QuerySignals
Stefan Vogel <sv@exept.de>
parents: 825
diff changeset
  6698
        (requestor respondsTo:#currentNameSpace) ifTrue:[
553c25252a78 Use #query instead of #raise when invoking QuerySignals
Stefan Vogel <sv@exept.de>
parents: 825
diff changeset
  6699
            spc := requestor currentNameSpace
553c25252a78 Use #query instead of #raise when invoking QuerySignals
Stefan Vogel <sv@exept.de>
parents: 825
diff changeset
  6700
        ] ifFalse:[
553c25252a78 Use #query instead of #raise when invoking QuerySignals
Stefan Vogel <sv@exept.de>
parents: 825
diff changeset
  6701
            spc := Class nameSpaceQuerySignal query.
553c25252a78 Use #query instead of #raise when invoking QuerySignals
Stefan Vogel <sv@exept.de>
parents: 825
diff changeset
  6702
        ].
553c25252a78 Use #query instead of #raise when invoking QuerySignals
Stefan Vogel <sv@exept.de>
parents: 825
diff changeset
  6703
        currentNamespace := spc.
455
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6704
    ].
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6705
    ^ spc
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6706
832
553c25252a78 Use #query instead of #raise when invoking QuerySignals
Stefan Vogel <sv@exept.de>
parents: 825
diff changeset
  6707
    "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
  6708
    "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
  6709
    "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
  6710
!
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6711
492
fe778fd0ce46 additional entry, passing the namespace
Claus Gittinger <cg@exept.de>
parents: 489
diff changeset
  6712
currentNameSpace:aNameSpace
fe778fd0ce46 additional entry, passing the namespace
Claus Gittinger <cg@exept.de>
parents: 489
diff changeset
  6713
    currentNamespace := aNameSpace.
fe778fd0ce46 additional entry, passing the namespace
Claus Gittinger <cg@exept.de>
parents: 489
diff changeset
  6714
fe778fd0ce46 additional entry, passing the namespace
Claus Gittinger <cg@exept.de>
parents: 489
diff changeset
  6715
    "Created: 8.2.1997 / 19:37:03 / cg"
fe778fd0ce46 additional entry, passing the namespace
Claus Gittinger <cg@exept.de>
parents: 489
diff changeset
  6716
!
fe778fd0ce46 additional entry, passing the namespace
Claus Gittinger <cg@exept.de>
parents: 489
diff changeset
  6717
1247
ce0d19140248 care for package directive (remember)
Claus Gittinger <cg@exept.de>
parents: 1246
diff changeset
  6718
currentPackage
ce0d19140248 care for package directive (remember)
Claus Gittinger <cg@exept.de>
parents: 1246
diff changeset
  6719
    |pkg|
ce0d19140248 care for package directive (remember)
Claus Gittinger <cg@exept.de>
parents: 1246
diff changeset
  6720
ce0d19140248 care for package directive (remember)
Claus Gittinger <cg@exept.de>
parents: 1246
diff changeset
  6721
    pkg := currentPackage.
ce0d19140248 care for package directive (remember)
Claus Gittinger <cg@exept.de>
parents: 1246
diff changeset
  6722
    pkg isNil ifTrue:[
ce0d19140248 care for package directive (remember)
Claus Gittinger <cg@exept.de>
parents: 1246
diff changeset
  6723
        (requestor respondsTo:#currentPackage) ifTrue:[
ce0d19140248 care for package directive (remember)
Claus Gittinger <cg@exept.de>
parents: 1246
diff changeset
  6724
            pkg := requestor currentPackage
ce0d19140248 care for package directive (remember)
Claus Gittinger <cg@exept.de>
parents: 1246
diff changeset
  6725
        ] ifFalse:[
ce0d19140248 care for package directive (remember)
Claus Gittinger <cg@exept.de>
parents: 1246
diff changeset
  6726
            pkg := Class packageQuerySignal query.
ce0d19140248 care for package directive (remember)
Claus Gittinger <cg@exept.de>
parents: 1246
diff changeset
  6727
        ].
ce0d19140248 care for package directive (remember)
Claus Gittinger <cg@exept.de>
parents: 1246
diff changeset
  6728
        currentPackage := pkg.
ce0d19140248 care for package directive (remember)
Claus Gittinger <cg@exept.de>
parents: 1246
diff changeset
  6729
    ].
ce0d19140248 care for package directive (remember)
Claus Gittinger <cg@exept.de>
parents: 1246
diff changeset
  6730
    ^ pkg
ce0d19140248 care for package directive (remember)
Claus Gittinger <cg@exept.de>
parents: 1246
diff changeset
  6731
!
ce0d19140248 care for package directive (remember)
Claus Gittinger <cg@exept.de>
parents: 1246
diff changeset
  6732
ce0d19140248 care for package directive (remember)
Claus Gittinger <cg@exept.de>
parents: 1246
diff changeset
  6733
currentPackage:aPackageName
ce0d19140248 care for package directive (remember)
Claus Gittinger <cg@exept.de>
parents: 1246
diff changeset
  6734
    currentPackage := aPackageName.
ce0d19140248 care for package directive (remember)
Claus Gittinger <cg@exept.de>
parents: 1246
diff changeset
  6735
!
ce0d19140248 care for package directive (remember)
Claus Gittinger <cg@exept.de>
parents: 1246
diff changeset
  6736
455
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6737
currentUsedNameSpaces
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6738
    |spaces|
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6739
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6740
    spaces := currentUsedNamespaces.
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6741
    spaces isNil ifTrue:[
679
6a60e6d0ccd1 avoid redoing work in #currentUsedNameSpaces
Claus Gittinger <cg@exept.de>
parents: 673
diff changeset
  6742
        (requestor respondsTo:#usedNameSpaces) ifTrue:[
6a60e6d0ccd1 avoid redoing work in #currentUsedNameSpaces
Claus Gittinger <cg@exept.de>
parents: 673
diff changeset
  6743
            spaces := requestor usedNameSpaces
6a60e6d0ccd1 avoid redoing work in #currentUsedNameSpaces
Claus Gittinger <cg@exept.de>
parents: 673
diff changeset
  6744
        ] ifFalse:[
832
553c25252a78 Use #query instead of #raise when invoking QuerySignals
Stefan Vogel <sv@exept.de>
parents: 825
diff changeset
  6745
            spaces := Class usedNameSpaceQuerySignal query.
679
6a60e6d0ccd1 avoid redoing work in #currentUsedNameSpaces
Claus Gittinger <cg@exept.de>
parents: 673
diff changeset
  6746
        ].
6a60e6d0ccd1 avoid redoing work in #currentUsedNameSpaces
Claus Gittinger <cg@exept.de>
parents: 673
diff changeset
  6747
        spaces isNil ifTrue:[
6a60e6d0ccd1 avoid redoing work in #currentUsedNameSpaces
Claus Gittinger <cg@exept.de>
parents: 673
diff changeset
  6748
            spaces := #()
6a60e6d0ccd1 avoid redoing work in #currentUsedNameSpaces
Claus Gittinger <cg@exept.de>
parents: 673
diff changeset
  6749
        ].
6a60e6d0ccd1 avoid redoing work in #currentUsedNameSpaces
Claus Gittinger <cg@exept.de>
parents: 673
diff changeset
  6750
        currentUsedNamespaces := spaces.
455
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6751
    ].
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6752
    ^ spaces
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6753
679
6a60e6d0ccd1 avoid redoing work in #currentUsedNameSpaces
Claus Gittinger <cg@exept.de>
parents: 673
diff changeset
  6754
    "Created: / 19.12.1996 / 23:49:10 / cg"
6a60e6d0ccd1 avoid redoing work in #currentUsedNameSpaces
Claus Gittinger <cg@exept.de>
parents: 673
diff changeset
  6755
    "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
  6756
    "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
  6757
!
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6758
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6759
findNameSpaceWith:aVariableName
692
78647d24f59a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 690
diff changeset
  6760
    |ns currentSpace usedSpaces|
486
e894035d5223 fixed name resolving for private classes when accessing
Claus Gittinger <cg@exept.de>
parents: 481
diff changeset
  6761
e894035d5223 fixed name resolving for private classes when accessing
Claus Gittinger <cg@exept.de>
parents: 481
diff changeset
  6762
    "/ 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
  6763
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6764
    classToCompileFor notNil ifTrue:[
1042
d192446cb745 fixed qualifiedName handling (as array constant)
Claus Gittinger <cg@exept.de>
parents: 1041
diff changeset
  6765
        "/ Q:
d192446cb745 fixed qualifiedName handling (as array constant)
Claus Gittinger <cg@exept.de>
parents: 1041
diff changeset
  6766
        "/ consider private classes of superclasses.
d192446cb745 fixed qualifiedName handling (as array constant)
Claus Gittinger <cg@exept.de>
parents: 1041
diff changeset
  6767
        "/ or search in the top owing classes namespace only ?
d192446cb745 fixed qualifiedName handling (as array constant)
Claus Gittinger <cg@exept.de>
parents: 1041
diff changeset
  6768
d192446cb745 fixed qualifiedName handling (as array constant)
Claus Gittinger <cg@exept.de>
parents: 1041
diff changeset
  6769
        "/ for now, ignore other private classes - they are only
d192446cb745 fixed qualifiedName handling (as array constant)
Claus Gittinger <cg@exept.de>
parents: 1041
diff changeset
  6770
        "/ known to the corresponding ownerClass.
d192446cb745 fixed qualifiedName handling (as array constant)
Claus Gittinger <cg@exept.de>
parents: 1041
diff changeset
  6771
d192446cb745 fixed qualifiedName handling (as array constant)
Claus Gittinger <cg@exept.de>
parents: 1041
diff changeset
  6772
        "is it in the classes namespace ?"
d192446cb745 fixed qualifiedName handling (as array constant)
Claus Gittinger <cg@exept.de>
parents: 1041
diff changeset
  6773
1315
c82178f7d52e use #topNameSpace
Claus Gittinger <cg@exept.de>
parents: 1309
diff changeset
  6774
        ns := classToCompileFor topNameSpace.
1042
d192446cb745 fixed qualifiedName handling (as array constant)
Claus Gittinger <cg@exept.de>
parents: 1041
diff changeset
  6775
        (ns notNil
d192446cb745 fixed qualifiedName handling (as array constant)
Claus Gittinger <cg@exept.de>
parents: 1041
diff changeset
  6776
        and:[ns ~~ Smalltalk]) ifTrue:[
1142
8ed9215cba13 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1139
diff changeset
  6777
            ns isNameSpace ifTrue:[
8ed9215cba13 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1139
diff changeset
  6778
                (ns at:aVariableName) notNil ifTrue:[
8ed9215cba13 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1139
diff changeset
  6779
                    ^ ns
8ed9215cba13 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1139
diff changeset
  6780
                ]
1042
d192446cb745 fixed qualifiedName handling (as array constant)
Claus Gittinger <cg@exept.de>
parents: 1041
diff changeset
  6781
            ]
d192446cb745 fixed qualifiedName handling (as array constant)
Claus Gittinger <cg@exept.de>
parents: 1041
diff changeset
  6782
        ].
494
bb3e71c90dfd currentClasses nameSpace is first to look for globals.
Claus Gittinger <cg@exept.de>
parents: 493
diff changeset
  6783
495
Claus Gittinger <cg@exept.de>
parents: 494
diff changeset
  6784
"/        ns := classToCompileFor nameSpace.
Claus Gittinger <cg@exept.de>
parents: 494
diff changeset
  6785
"/        ns notNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 494
diff changeset
  6786
"/            "is it in the current classes namespace ?"
Claus Gittinger <cg@exept.de>
parents: 494
diff changeset
  6787
"/            (ns at:aVariableName asSymbol) notNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 494
diff changeset
  6788
"/                ^ ns
Claus Gittinger <cg@exept.de>
parents: 494
diff changeset
  6789
"/            ]
Claus Gittinger <cg@exept.de>
parents: 494
diff changeset
  6790
"/        ].
455
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6791
    ].
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6792
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6793
    "is it in the current namespace ?"
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6794
    currentSpace := self currentNameSpace.
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6795
    (currentSpace notNil
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6796
    and:[currentSpace ~~ Smalltalk]) ifTrue:[
1043
08ad8eb7532d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1042
diff changeset
  6797
        currentSpace isNameSpace ifTrue:[
08ad8eb7532d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1042
diff changeset
  6798
            (currentSpace at:aVariableName) notNil ifTrue:[
08ad8eb7532d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1042
diff changeset
  6799
                ^ currentSpace
08ad8eb7532d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1042
diff changeset
  6800
            ]
08ad8eb7532d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1042
diff changeset
  6801
        ] ifFalse:[
08ad8eb7532d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1042
diff changeset
  6802
            (currentSpace privateClassesAt:aVariableName) notNil ifTrue:[
08ad8eb7532d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1042
diff changeset
  6803
                ^ currentSpace
08ad8eb7532d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1042
diff changeset
  6804
            ]
1042
d192446cb745 fixed qualifiedName handling (as array constant)
Claus Gittinger <cg@exept.de>
parents: 1041
diff changeset
  6805
        ]
455
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6806
    ].
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6807
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6808
    "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
  6809
    usedSpaces := self currentUsedNameSpaces.
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6810
    usedSpaces notNil ifTrue:[
1042
d192446cb745 fixed qualifiedName handling (as array constant)
Claus Gittinger <cg@exept.de>
parents: 1041
diff changeset
  6811
        usedSpaces do:[:aNameSpace |
d192446cb745 fixed qualifiedName handling (as array constant)
Claus Gittinger <cg@exept.de>
parents: 1041
diff changeset
  6812
            (aNameSpace at:aVariableName) notNil ifTrue:[
d192446cb745 fixed qualifiedName handling (as array constant)
Claus Gittinger <cg@exept.de>
parents: 1041
diff changeset
  6813
                ^ aNameSpace
d192446cb745 fixed qualifiedName handling (as array constant)
Claus Gittinger <cg@exept.de>
parents: 1041
diff changeset
  6814
            ]
d192446cb745 fixed qualifiedName handling (as array constant)
Claus Gittinger <cg@exept.de>
parents: 1041
diff changeset
  6815
        ]
455
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6816
    ].
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6817
    ^ nil
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6818
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6819
    "Created: 19.12.1996 / 23:51:02 / cg"
619
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  6820
    "Modified: 14.10.1997 / 20:56:35 / cg"
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  6821
!
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  6822
1327
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  6823
implementedInAnyClass:selector
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  6824
    Smalltalk allClassesAndMetaclassesDo:[:cls |
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  6825
        (cls implements:selector) ifTrue:[^ true].
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  6826
    ].
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  6827
    ^ false
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  6828
!
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  6829
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  6830
inWhichClassIsClassInstVar:aString
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  6831
    "search class-chain for the class-instance variable named aString
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  6832
     - return the class or nil if not found"
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  6833
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  6834
    |aClass|
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  6835
735
4012fa1611b1 code cleanup & fix for doIt (implementing class)
Claus Gittinger <cg@exept.de>
parents: 733
diff changeset
  6836
    aClass := self classToLookForClassVars.
732
c36e5ef1e6ce oops - when evaluating in a context, classVars must be
Claus Gittinger <cg@exept.de>
parents: 725
diff changeset
  6837
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  6838
    [aClass notNil] whileTrue:[
732
c36e5ef1e6ce oops - when evaluating in a context, classVars must be
Claus Gittinger <cg@exept.de>
parents: 725
diff changeset
  6839
        (aClass class instVarNames includes:aString) ifTrue:[ ^ aClass].
c36e5ef1e6ce oops - when evaluating in a context, classVars must be
Claus Gittinger <cg@exept.de>
parents: 725
diff changeset
  6840
        aClass := aClass superclass
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  6841
    ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  6842
    ^ nil
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  6843
735
4012fa1611b1 code cleanup & fix for doIt (implementing class)
Claus Gittinger <cg@exept.de>
parents: 733
diff changeset
  6844
    "Modified: / 18.6.1998 / 15:45:34 / cg"
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  6845
!
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  6846
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  6847
inWhichClassIsClassVar:aString
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  6848
    "search class-chain for the classvariable named aString
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  6849
     - return the class or nil if not found"
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  6850
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  6851
    |aClass className baseClass|
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  6852
735
4012fa1611b1 code cleanup & fix for doIt (implementing class)
Claus Gittinger <cg@exept.de>
parents: 733
diff changeset
  6853
    aClass := self classToLookForClassVars.
732
c36e5ef1e6ce oops - when evaluating in a context, classVars must be
Claus Gittinger <cg@exept.de>
parents: 725
diff changeset
  6854
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  6855
    aClass isMeta ifTrue:[
732
c36e5ef1e6ce oops - when evaluating in a context, classVars must be
Claus Gittinger <cg@exept.de>
parents: 725
diff changeset
  6856
        className := aClass name copyWithoutLast:6.
c36e5ef1e6ce oops - when evaluating in a context, classVars must be
Claus Gittinger <cg@exept.de>
parents: 725
diff changeset
  6857
        baseClass := Smalltalk at:(className asSymbol).
c36e5ef1e6ce oops - when evaluating in a context, classVars must be
Claus Gittinger <cg@exept.de>
parents: 725
diff changeset
  6858
        baseClass notNil ifTrue:[
c36e5ef1e6ce oops - when evaluating in a context, classVars must be
Claus Gittinger <cg@exept.de>
parents: 725
diff changeset
  6859
            aClass := baseClass
c36e5ef1e6ce oops - when evaluating in a context, classVars must be
Claus Gittinger <cg@exept.de>
parents: 725
diff changeset
  6860
        ]
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  6861
    ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  6862
    ^ aClass whichClassDefinesClassVar:aString
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  6863
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  6864
"/    [aClass notNil] whileTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  6865
"/        (aClass classVarNames includes:aString) ifTrue:[ ^ aClass].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  6866
"/        aClass := aClass superclass
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  6867
"/    ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  6868
"/    ^ nil
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  6869
732
c36e5ef1e6ce oops - when evaluating in a context, classVars must be
Claus Gittinger <cg@exept.de>
parents: 725
diff changeset
  6870
    "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
  6871
    "Modified: / 18.6.1998 / 15:45:29 / cg"
787
9a178fa050b9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 762
diff changeset
  6872
!
9a178fa050b9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 762
diff changeset
  6873
1512
52986e9b02af better isReturn (used when checking for consistent return value)
Claus Gittinger <cg@exept.de>
parents: 1507
diff changeset
  6874
isStatementAnUnconditionalReturn:aStatementNode
52986e9b02af better isReturn (used when checking for consistent return value)
Claus Gittinger <cg@exept.de>
parents: 1507
diff changeset
  6875
    |expr selector block1 block2 stats1 stats2|
52986e9b02af better isReturn (used when checking for consistent return value)
Claus Gittinger <cg@exept.de>
parents: 1507
diff changeset
  6876
52986e9b02af better isReturn (used when checking for consistent return value)
Claus Gittinger <cg@exept.de>
parents: 1507
diff changeset
  6877
    aStatementNode isReturnNode ifTrue:[^ true ].
52986e9b02af better isReturn (used when checking for consistent return value)
Claus Gittinger <cg@exept.de>
parents: 1507
diff changeset
  6878
    ((expr := aStatementNode expression) notNil
52986e9b02af better isReturn (used when checking for consistent return value)
Claus Gittinger <cg@exept.de>
parents: 1507
diff changeset
  6879
    and:[expr isMessage]) ifTrue:[
52986e9b02af better isReturn (used when checking for consistent return value)
Claus Gittinger <cg@exept.de>
parents: 1507
diff changeset
  6880
        selector := expr selector.
52986e9b02af better isReturn (used when checking for consistent return value)
Claus Gittinger <cg@exept.de>
parents: 1507
diff changeset
  6881
        (selector == #'ifTrue:ifFalse:' or:[selector == #'ifFalse:ifTrue:']) ifTrue:[
52986e9b02af better isReturn (used when checking for consistent return value)
Claus Gittinger <cg@exept.de>
parents: 1507
diff changeset
  6882
            block1 := expr arg1.
52986e9b02af better isReturn (used when checking for consistent return value)
Claus Gittinger <cg@exept.de>
parents: 1507
diff changeset
  6883
            block2 := expr arguments at:2.
52986e9b02af better isReturn (used when checking for consistent return value)
Claus Gittinger <cg@exept.de>
parents: 1507
diff changeset
  6884
            (block1 isBlockNode and:[ block2 isBlockNode]) ifTrue:[
52986e9b02af better isReturn (used when checking for consistent return value)
Claus Gittinger <cg@exept.de>
parents: 1507
diff changeset
  6885
                stats1 := block1 statements.
52986e9b02af better isReturn (used when checking for consistent return value)
Claus Gittinger <cg@exept.de>
parents: 1507
diff changeset
  6886
                stats2 := block2 statements.
52986e9b02af better isReturn (used when checking for consistent return value)
Claus Gittinger <cg@exept.de>
parents: 1507
diff changeset
  6887
                    (stats1 notEmptyOrNil and:[ stats2 notEmptyOrNil]) ifTrue:[
52986e9b02af better isReturn (used when checking for consistent return value)
Claus Gittinger <cg@exept.de>
parents: 1507
diff changeset
  6888
                        ^ (self isStatementAnUnconditionalReturn:stats1 last)
52986e9b02af better isReturn (used when checking for consistent return value)
Claus Gittinger <cg@exept.de>
parents: 1507
diff changeset
  6889
                        and:[self isStatementAnUnconditionalReturn:stats2 last]
52986e9b02af better isReturn (used when checking for consistent return value)
Claus Gittinger <cg@exept.de>
parents: 1507
diff changeset
  6890
                ].
52986e9b02af better isReturn (used when checking for consistent return value)
Claus Gittinger <cg@exept.de>
parents: 1507
diff changeset
  6891
            ].
52986e9b02af better isReturn (used when checking for consistent return value)
Claus Gittinger <cg@exept.de>
parents: 1507
diff changeset
  6892
        ].
52986e9b02af better isReturn (used when checking for consistent return value)
Claus Gittinger <cg@exept.de>
parents: 1507
diff changeset
  6893
    ].
52986e9b02af better isReturn (used when checking for consistent return value)
Claus Gittinger <cg@exept.de>
parents: 1507
diff changeset
  6894
    ^ false.
52986e9b02af better isReturn (used when checking for consistent return value)
Claus Gittinger <cg@exept.de>
parents: 1507
diff changeset
  6895
!
52986e9b02af better isReturn (used when checking for consistent return value)
Claus Gittinger <cg@exept.de>
parents: 1507
diff changeset
  6896
1262
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6897
makeReferenceFor:aNode
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6898
    |rec sel indexNode contextNode arg1 arg2|
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6899
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6900
    contextNode := VariableNode type:#ThisContext context:contextToEvaluateIn.
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6901
    indexNode := ConstantNode type:#Integer value:aNode index.
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6902
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6903
    aNode isArgument ifTrue:[
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6904
        sel := #forArgument:in:.
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6905
        arg1 := indexNode.
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6906
        arg2 := contextNode.
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6907
    ] ifFalse:[
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6908
        aNode isLocal ifTrue:[
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6909
            sel := #forLocal:in:.
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6910
            arg1 := indexNode.
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6911
            arg2 := contextNode.
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6912
        ] ifFalse:[
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6913
            self parseError:'unsupported variable reference (must be local or argument)'.
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6914
            ^ aNode
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6915
        ]
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6916
    ].
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6917
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6918
    parseForCode ifFalse:[self rememberGlobalUsed:'Reference'].
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  6919
    rec := VariableNode globalNamed:'Reference'.
1262
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6920
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6921
    ^ MessageNode receiver:rec selector:sel arg1:arg1 arg2:arg2.
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6922
!
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6923
1003
37badd2eb5b0 dont stop syntaxHighlighting when a bad assignment is encountered
Claus Gittinger <cg@exept.de>
parents: 997
diff changeset
  6924
noAssignmentAllowed:eMsg at:pos
37badd2eb5b0 dont stop syntaxHighlighting when a bad assignment is encountered
Claus Gittinger <cg@exept.de>
parents: 997
diff changeset
  6925
    ((tokenType == $_) or:[tokenType == #':=']) ifTrue:[
37badd2eb5b0 dont stop syntaxHighlighting when a bad assignment is encountered
Claus Gittinger <cg@exept.de>
parents: 997
diff changeset
  6926
        self parseError:eMsg position:pos to:tokenPosition + tokenType size - 1.
37badd2eb5b0 dont stop syntaxHighlighting when a bad assignment is encountered
Claus Gittinger <cg@exept.de>
parents: 997
diff changeset
  6927
        self isSyntaxHighlighter ifFalse:[
37badd2eb5b0 dont stop syntaxHighlighting when a bad assignment is encountered
Claus Gittinger <cg@exept.de>
parents: 997
diff changeset
  6928
            ^ false
37badd2eb5b0 dont stop syntaxHighlighting when a bad assignment is encountered
Claus Gittinger <cg@exept.de>
parents: 997
diff changeset
  6929
        ].
37badd2eb5b0 dont stop syntaxHighlighting when a bad assignment is encountered
Claus Gittinger <cg@exept.de>
parents: 997
diff changeset
  6930
        self nextToken. "/ eat the assign when doing highlighting only
37badd2eb5b0 dont stop syntaxHighlighting when a bad assignment is encountered
Claus Gittinger <cg@exept.de>
parents: 997
diff changeset
  6931
    ].
37badd2eb5b0 dont stop syntaxHighlighting when a bad assignment is encountered
Claus Gittinger <cg@exept.de>
parents: 997
diff changeset
  6932
    ^ true
37badd2eb5b0 dont stop syntaxHighlighting when a bad assignment is encountered
Claus Gittinger <cg@exept.de>
parents: 997
diff changeset
  6933
!
37badd2eb5b0 dont stop syntaxHighlighting when a bad assignment is encountered
Claus Gittinger <cg@exept.de>
parents: 997
diff changeset
  6934
787
9a178fa050b9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 762
diff changeset
  6935
plausibilityCheck:aNode
1193
c441d3b202e5 check bad super message
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
  6936
    |note|
c441d3b202e5 check bad super message
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
  6937
c441d3b202e5 check bad super message
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
  6938
    note := aNode plausibilityCheck.
c441d3b202e5 check bad super message
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
  6939
    note isNil ifTrue:[
c441d3b202e5 check bad super message
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
  6940
        aNode isMessage ifTrue:[
c441d3b202e5 check bad super message
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
  6941
            (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
  6942
                aNode receiver isSuper ifTrue:[
c441d3b202e5 check bad super message
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
  6943
                    aNode selector ~= selector ifTrue:[
c441d3b202e5 check bad super message
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
  6944
                        ^ '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
  6945
                    ].
c441d3b202e5 check bad super message
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
  6946
                ].
c441d3b202e5 check bad super message
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
  6947
            ].
c441d3b202e5 check bad super message
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
  6948
        ].
c441d3b202e5 check bad super message
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
  6949
    ].
c441d3b202e5 check bad super message
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
  6950
    ^ note
1262
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6951
!
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6952
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6953
selfNode
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6954
    selfNode isNil ifTrue:[ 
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6955
        selfNode := SelfNode value:selfValue
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6956
    ].
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6957
    ^ selfNode
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  6958
! !
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  6959
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  6960
!Parser methodsFor:'queries'!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  6961
735
4012fa1611b1 code cleanup & fix for doIt (implementing class)
Claus Gittinger <cg@exept.de>
parents: 733
diff changeset
  6962
classToLookForClassVars
4012fa1611b1 code cleanup & fix for doIt (implementing class)
Claus Gittinger <cg@exept.de>
parents: 733
diff changeset
  6963
    "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
  6964
     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
  6965
     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
  6966
     class of the receiver."
4012fa1611b1 code cleanup & fix for doIt (implementing class)
Claus Gittinger <cg@exept.de>
parents: 733
diff changeset
  6967
1160
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  6968
    |m who|
735
4012fa1611b1 code cleanup & fix for doIt (implementing class)
Claus Gittinger <cg@exept.de>
parents: 733
diff changeset
  6969
4012fa1611b1 code cleanup & fix for doIt (implementing class)
Claus Gittinger <cg@exept.de>
parents: 733
diff changeset
  6970
    contextToEvaluateIn notNil ifTrue:[
748
9c44179d6b03 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 743
diff changeset
  6971
        m := contextToEvaluateIn method.
9c44179d6b03 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 743
diff changeset
  6972
        m notNil ifTrue:[
9c44179d6b03 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 743
diff changeset
  6973
            who := contextToEvaluateIn method who.
9c44179d6b03 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 743
diff changeset
  6974
            who notNil ifTrue:[
9c44179d6b03 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 743
diff changeset
  6975
                ^ who methodClass.
9c44179d6b03 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 743
diff changeset
  6976
            ]
735
4012fa1611b1 code cleanup & fix for doIt (implementing class)
Claus Gittinger <cg@exept.de>
parents: 733
diff changeset
  6977
        ].
4012fa1611b1 code cleanup & fix for doIt (implementing class)
Claus Gittinger <cg@exept.de>
parents: 733
diff changeset
  6978
        "/ mhmh - might be a doIt ...
4012fa1611b1 code cleanup & fix for doIt (implementing class)
Claus Gittinger <cg@exept.de>
parents: 733
diff changeset
  6979
    ].
4012fa1611b1 code cleanup & fix for doIt (implementing class)
Claus Gittinger <cg@exept.de>
parents: 733
diff changeset
  6980
    ^ classToCompileFor
4012fa1611b1 code cleanup & fix for doIt (implementing class)
Claus Gittinger <cg@exept.de>
parents: 733
diff changeset
  6981
4012fa1611b1 code cleanup & fix for doIt (implementing class)
Claus Gittinger <cg@exept.de>
parents: 733
diff changeset
  6982
    "Created: / 18.6.1998 / 15:43:42 / cg"
748
9c44179d6b03 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 743
diff changeset
  6983
    "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
  6984
!
4012fa1611b1 code cleanup & fix for doIt (implementing class)
Claus Gittinger <cg@exept.de>
parents: 733
diff changeset
  6985
358
78b0d8954c49 removed possible conflict between #classVarNames here and in Class.
Claus Gittinger <cg@exept.de>
parents: 354
diff changeset
  6986
classesClassInstVarNames
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  6987
    "caching allInstVarNames for next compilation saves time ..."
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  6988
735
4012fa1611b1 code cleanup & fix for doIt (implementing class)
Claus Gittinger <cg@exept.de>
parents: 733
diff changeset
  6989
    |names|
694
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  6990
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  6991
    [
735
4012fa1611b1 code cleanup & fix for doIt (implementing class)
Claus Gittinger <cg@exept.de>
parents: 733
diff changeset
  6992
        |cls|
4012fa1611b1 code cleanup & fix for doIt (implementing class)
Claus Gittinger <cg@exept.de>
parents: 733
diff changeset
  6993
4012fa1611b1 code cleanup & fix for doIt (implementing class)
Claus Gittinger <cg@exept.de>
parents: 733
diff changeset
  6994
        cls := self classToLookForClassVars.
4012fa1611b1 code cleanup & fix for doIt (implementing class)
Claus Gittinger <cg@exept.de>
parents: 733
diff changeset
  6995
732
c36e5ef1e6ce oops - when evaluating in a context, classVars must be
Claus Gittinger <cg@exept.de>
parents: 725
diff changeset
  6996
        (PrevClassInstVarNames isNil or:[PrevClass ~~ cls]) ifTrue:[
694
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  6997
            PrevClass notNil ifTrue:[
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  6998
                PrevClass removeDependent:Parser
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  6999
            ].
732
c36e5ef1e6ce oops - when evaluating in a context, classVars must be
Claus Gittinger <cg@exept.de>
parents: 725
diff changeset
  7000
            PrevClass := cls.
c36e5ef1e6ce oops - when evaluating in a context, classVars must be
Claus Gittinger <cg@exept.de>
parents: 725
diff changeset
  7001
c36e5ef1e6ce oops - when evaluating in a context, classVars must be
Claus Gittinger <cg@exept.de>
parents: 725
diff changeset
  7002
            PrevClassInstVarNames := cls class allInstVarNames.
694
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  7003
            PrevClass addDependent:Parser.
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  7004
        ].
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  7005
        names := PrevClassInstVarNames.
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  7006
    ] valueUninterruptably.
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  7007
    ^ names
358
78b0d8954c49 removed possible conflict between #classVarNames here and in Class.
Claus Gittinger <cg@exept.de>
parents: 354
diff changeset
  7008
732
c36e5ef1e6ce oops - when evaluating in a context, classVars must be
Claus Gittinger <cg@exept.de>
parents: 725
diff changeset
  7009
    "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
  7010
    "Modified: / 18.6.1998 / 15:44:41 / cg"
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  7011
!
7ad01559b262 Initial revision
claus
parents:
diff changeset
  7012
358
78b0d8954c49 removed possible conflict between #classVarNames here and in Class.
Claus Gittinger <cg@exept.de>
parents: 354
diff changeset
  7013
classesClassVarNames
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7014
    "caching allClassVarNames for next compilation saves time ..."
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7015
735
4012fa1611b1 code cleanup & fix for doIt (implementing class)
Claus Gittinger <cg@exept.de>
parents: 733
diff changeset
  7016
    |names|
694
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  7017
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  7018
    [
735
4012fa1611b1 code cleanup & fix for doIt (implementing class)
Claus Gittinger <cg@exept.de>
parents: 733
diff changeset
  7019
        |cls aClass|
4012fa1611b1 code cleanup & fix for doIt (implementing class)
Claus Gittinger <cg@exept.de>
parents: 733
diff changeset
  7020
4012fa1611b1 code cleanup & fix for doIt (implementing class)
Claus Gittinger <cg@exept.de>
parents: 733
diff changeset
  7021
        cls := self classToLookForClassVars.
4012fa1611b1 code cleanup & fix for doIt (implementing class)
Claus Gittinger <cg@exept.de>
parents: 733
diff changeset
  7022
732
c36e5ef1e6ce oops - when evaluating in a context, classVars must be
Claus Gittinger <cg@exept.de>
parents: 725
diff changeset
  7023
        (PrevClassVarNames isNil or:[PrevClass ~~ cls]) ifTrue:[
694
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  7024
            PrevClass notNil ifTrue:[
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  7025
                PrevClass removeDependent:Parser
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  7026
            ].
732
c36e5ef1e6ce oops - when evaluating in a context, classVars must be
Claus Gittinger <cg@exept.de>
parents: 725
diff changeset
  7027
            aClass := PrevClass := cls.
694
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  7028
            aClass isMeta ifTrue:[
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  7029
                aClass := aClass soleInstance.
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  7030
                aClass isNil ifTrue:[
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  7031
                    aClass := classToCompileFor
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  7032
                ]
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  7033
            ].
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  7034
            PrevClassVarNames := aClass allClassVarNames.
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  7035
            PrevClass addDependent:Parser.
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  7036
        ].
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  7037
        names := PrevClassVarNames.
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  7038
    ] valueUninterruptably.
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  7039
    ^ names
290
d1650b17b9e9 Change the name of a classes Metaclass from e.g. "SmallIntegerclass" to
Stefan Vogel <sv@exept.de>
parents: 285
diff changeset
  7040
732
c36e5ef1e6ce oops - when evaluating in a context, classVars must be
Claus Gittinger <cg@exept.de>
parents: 725
diff changeset
  7041
    "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
  7042
    "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
  7043
    "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
  7044
!
78b0d8954c49 removed possible conflict between #classVarNames here and in Class.
Claus Gittinger <cg@exept.de>
parents: 354
diff changeset
  7045
78b0d8954c49 removed possible conflict between #classVarNames here and in Class.
Claus Gittinger <cg@exept.de>
parents: 354
diff changeset
  7046
classesInstVarNames
78b0d8954c49 removed possible conflict between #classVarNames here and in Class.
Claus Gittinger <cg@exept.de>
parents: 354
diff changeset
  7047
    "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
  7048
694
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  7049
    |names|
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  7050
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  7051
    [
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  7052
        (PrevInstVarNames isNil or:[PrevClass ~~ classToCompileFor]) ifTrue:[
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  7053
            PrevClass notNil ifTrue:[
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  7054
                PrevClass removeDependent:Parser
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  7055
            ].
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  7056
            PrevClass := classToCompileFor.
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  7057
            PrevInstVarNames := classToCompileFor allInstVarNames.
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  7058
            PrevClassInstVarNames := nil.
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  7059
            PrevClassVarNames := nil.
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  7060
            PrevClass addDependent:Parser
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  7061
        ].
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  7062
        names := PrevInstVarNames
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  7063
    ] valueUninterruptably.
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  7064
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  7065
    ^ names
358
78b0d8954c49 removed possible conflict between #classVarNames here and in Class.
Claus Gittinger <cg@exept.de>
parents: 354
diff changeset
  7066
78b0d8954c49 removed possible conflict between #classVarNames here and in Class.
Claus Gittinger <cg@exept.de>
parents: 354
diff changeset
  7067
    "Created: 14.10.1996 / 18:00:26 / cg"
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  7068
!
7ad01559b262 Initial revision
claus
parents:
diff changeset
  7069
934
716f9c76b06b pass down returnable-context flag via method.
Claus Gittinger <cg@exept.de>
parents: 931
diff changeset
  7070
contextMustBeReturnable
716f9c76b06b pass down returnable-context flag via method.
Claus Gittinger <cg@exept.de>
parents: 931
diff changeset
  7071
    ^ primitiveContextInfo notNil 
716f9c76b06b pass down returnable-context flag via method.
Claus Gittinger <cg@exept.de>
parents: 931
diff changeset
  7072
      and:[ ^ primitiveContextInfo includes:('context:' -> #return) ]
716f9c76b06b pass down returnable-context flag via method.
Claus Gittinger <cg@exept.de>
parents: 931
diff changeset
  7073
716f9c76b06b pass down returnable-context flag via method.
Claus Gittinger <cg@exept.de>
parents: 931
diff changeset
  7074
716f9c76b06b pass down returnable-context flag via method.
Claus Gittinger <cg@exept.de>
parents: 931
diff changeset
  7075
!
716f9c76b06b pass down returnable-context flag via method.
Claus Gittinger <cg@exept.de>
parents: 931
diff changeset
  7076
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7077
hasNonOptionalPrimitiveCode
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7078
    "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
  7079
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7080
    ^ hasNonOptionalPrimitiveCode
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  7081
!
7ad01559b262 Initial revision
claus
parents:
diff changeset
  7082
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7083
hasPrimitiveCode
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7084
    "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
  7085
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7086
    ^ hasPrimitiveCode
98
claus
parents: 97
diff changeset
  7087
!
claus
parents: 97
diff changeset
  7088
1440
7084ae99ced7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1439
diff changeset
  7089
isDoIt
7084ae99ced7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1439
diff changeset
  7090
    ^ (selector isNil or:[selector == #'doIt' or:[selector == #'doIt:']])
7084ae99ced7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1439
diff changeset
  7091
!
7084ae99ced7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1439
diff changeset
  7092
883
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  7093
isSyntaxHighlighter
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  7094
    ^ false
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  7095
!
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  7096
385
425fc425516b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 382
diff changeset
  7097
lineNumberInfo
425fc425516b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 382
diff changeset
  7098
    ^ lineNumberInfo
425fc425516b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 382
diff changeset
  7099
425fc425516b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 382
diff changeset
  7100
    "Created: 21.10.1996 / 17:06:16 / cg"
425fc425516b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 382
diff changeset
  7101
!
425fc425516b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 382
diff changeset
  7102
391
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
  7103
lineNumberInfo:how
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
  7104
    lineNumberInfo := how
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
  7105
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
  7106
    "Created: 23.10.1996 / 15:39:43 / cg"
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
  7107
!
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
  7108
1082
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7109
messagesSent
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7110
    "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
  7111
     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
  7112
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7113
    ^ (messagesSent ? #()) collect:[:each | each asSymbol]
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7114
!
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7115
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7116
messagesSentToSelf
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7117
    "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
  7118
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7119
    ^ (messagesSentToSelf ? #()) collect:[:each | each asSymbol]
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7120
!
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7121
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7122
messagesSentToSuper
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7123
    "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
  7124
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7125
    ^ (messagesSentToSuper ? #()) collect:[:each | each asSymbol]
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7126
!
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7127
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7128
methodArgs
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7129
    "return an array with methodarg names (valid after parsing spec)"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7130
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7131
    ^ methodArgNames
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7132
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7133
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7134
methodVars
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7135
    "return a collection with method variablenames (valid after parsing)"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7136
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7137
    ^ methodVarNames
23
1f7bcfff8d39 *** empty log message ***
claus
parents: 21
diff changeset
  7138
!
1f7bcfff8d39 *** empty log message ***
claus
parents: 21
diff changeset
  7139
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7140
modifiedClassVars
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7141
    "return a collection with classvariablenames modified by method (valid after parsing)"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7142
541
63f0c6734fb3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 540
diff changeset
  7143
    ^ modifiedClassVars ? #()
63f0c6734fb3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 540
diff changeset
  7144
63f0c6734fb3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 540
diff changeset
  7145
    "Modified: 19.6.1997 / 17:54:48 / cg"
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7146
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7147
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7148
modifiedGlobals
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7149
    "return a collection with globalnames modified by method (valid after parsing)"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7150
541
63f0c6734fb3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 540
diff changeset
  7151
    ^ modifiedGlobals ? #()
63f0c6734fb3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 540
diff changeset
  7152
63f0c6734fb3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 540
diff changeset
  7153
    "Modified: 19.6.1997 / 17:54:51 / cg"
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7154
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7155
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7156
modifiedInstVars
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7157
    "return a collection with instvariablenames modified by method (valid after parsing)"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7158
541
63f0c6734fb3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 540
diff changeset
  7159
    ^ modifiedInstVars ? #()
63f0c6734fb3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 540
diff changeset
  7160
63f0c6734fb3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 540
diff changeset
  7161
    "Modified: 19.6.1997 / 17:54:27 / cg"
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  7162
!
7ad01559b262 Initial revision
claus
parents:
diff changeset
  7163
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7164
numberOfMethodArgs
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7165
    "return the number of methodargs (valid after parsing spec)"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7166
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7167
    ^ methodArgs size
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7168
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7169
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7170
numberOfMethodVars
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7171
    "return the number of method variables (valid after parsing)"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7172
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7173
    ^ methodVars size
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7174
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7175
1077
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7176
readClassVars
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7177
    "return a collection with classvariablenames read by method (valid after parsing)"
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7178
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7179
    ^ readClassVars ? #()
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7180
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7181
    "Modified: 19.6.1997 / 17:54:38 / cg"
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7182
!
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7183
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7184
readInstVars
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7185
    "return a collection with instvariablenames read by method (valid after parsing)"
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7186
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7187
    ^ readInstVars ? #()
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7188
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7189
    "Modified: 19.6.1997 / 17:54:38 / cg"
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7190
!
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7191
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7192
selector
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7193
    "return the selector (valid after parsing spec)"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7194
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7195
    ^ selector
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  7196
!
7ad01559b262 Initial revision
claus
parents:
diff changeset
  7197
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7198
usedClassVars
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7199
    "return a collection with classvariablenames refd by method (valid after parsing)"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7200
541
63f0c6734fb3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 540
diff changeset
  7201
    ^ usedClassVars ? #()
63f0c6734fb3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 540
diff changeset
  7202
63f0c6734fb3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 540
diff changeset
  7203
    "Modified: 19.6.1997 / 17:54:56 / cg"
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7204
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7205
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7206
usedGlobals
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7207
    "return a collection with globalnames refd by method (valid after parsing)"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7208
541
63f0c6734fb3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 540
diff changeset
  7209
    ^ usedGlobals ? #()
63f0c6734fb3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 540
diff changeset
  7210
63f0c6734fb3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 540
diff changeset
  7211
    "Modified: 19.6.1997 / 17:55:00 / cg"
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7212
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7213
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7214
usedInstVars
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7215
    "return a collection with instvariablenames refd by method (valid after parsing)"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7216
541
63f0c6734fb3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 540
diff changeset
  7217
    ^ usedInstVars ? #()
63f0c6734fb3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 540
diff changeset
  7218
63f0c6734fb3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 540
diff changeset
  7219
    "Modified: 19.6.1997 / 17:54:38 / cg"
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7220
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7221
1064
ecd50cdfb881 added #usedSymbols statistic
Claus Gittinger <cg@exept.de>
parents: 1063
diff changeset
  7222
usedSymbols
ecd50cdfb881 added #usedSymbols statistic
Claus Gittinger <cg@exept.de>
parents: 1063
diff changeset
  7223
    "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
  7224
ecd50cdfb881 added #usedSymbols statistic
Claus Gittinger <cg@exept.de>
parents: 1063
diff changeset
  7225
    ^ (usedSymbols ? #()) 
ecd50cdfb881 added #usedSymbols statistic
Claus Gittinger <cg@exept.de>
parents: 1063
diff changeset
  7226
!
ecd50cdfb881 added #usedSymbols statistic
Claus Gittinger <cg@exept.de>
parents: 1063
diff changeset
  7227
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7228
usedVars
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7229
    "return a collection with variablenames refd by method (valid after parsing)"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7230
541
63f0c6734fb3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 540
diff changeset
  7231
    ^ usedVars ? #()
63f0c6734fb3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 540
diff changeset
  7232
63f0c6734fb3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 540
diff changeset
  7233
    "Modified: 19.6.1997 / 17:55:04 / cg"
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  7234
!
7ad01559b262 Initial revision
claus
parents:
diff changeset
  7235
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7236
usesSuper
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7237
    "return true if the parsed method uses super (valid after parsing)"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7238
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7239
    ^ usesSuper
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7240
! !
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7241
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7242
!Parser methodsFor:'setup'!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7243
1220
53e6eeadee72 added declare instVar and classInstVar
Claus Gittinger <cg@exept.de>
parents: 1215
diff changeset
  7244
classToCompileFor
53e6eeadee72 added declare instVar and classInstVar
Claus Gittinger <cg@exept.de>
parents: 1215
diff changeset
  7245
    ^ classToCompileFor
53e6eeadee72 added declare instVar and classInstVar
Claus Gittinger <cg@exept.de>
parents: 1215
diff changeset
  7246
53e6eeadee72 added declare instVar and classInstVar
Claus Gittinger <cg@exept.de>
parents: 1215
diff changeset
  7247
    "Created: / 15.11.2001 / 17:21:10 / cg"
53e6eeadee72 added declare instVar and classInstVar
Claus Gittinger <cg@exept.de>
parents: 1215
diff changeset
  7248
!
53e6eeadee72 added declare instVar and classInstVar
Claus Gittinger <cg@exept.de>
parents: 1215
diff changeset
  7249
229
7aecb52d907d dont fold constants with immediate evaluations
Claus Gittinger <cg@exept.de>
parents: 223
diff changeset
  7250
foldConstants:aSymbolOrNil
7aecb52d907d dont fold constants with immediate evaluations
Claus Gittinger <cg@exept.de>
parents: 223
diff changeset
  7251
    "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
  7252
7aecb52d907d dont fold constants with immediate evaluations
Claus Gittinger <cg@exept.de>
parents: 223
diff changeset
  7253
    foldConstants := aSymbolOrNil
7aecb52d907d dont fold constants with immediate evaluations
Claus Gittinger <cg@exept.de>
parents: 223
diff changeset
  7254
7aecb52d907d dont fold constants with immediate evaluations
Claus Gittinger <cg@exept.de>
parents: 223
diff changeset
  7255
    "Created: 21.3.1996 / 16:03:22 / cg"
7aecb52d907d dont fold constants with immediate evaluations
Claus Gittinger <cg@exept.de>
parents: 223
diff changeset
  7256
    "Modified: 21.3.1996 / 16:05:04 / cg"
7aecb52d907d dont fold constants with immediate evaluations
Claus Gittinger <cg@exept.de>
parents: 223
diff changeset
  7257
!
7aecb52d907d dont fold constants with immediate evaluations
Claus Gittinger <cg@exept.de>
parents: 223
diff changeset
  7258
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7259
initialize
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7260
    super initialize.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7261
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7262
    hasPrimitiveCode := hasNonOptionalPrimitiveCode := false.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7263
    warnSTXHereExtensionUsed := WarnSTXSpecials.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7264
    usesSuper := false.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7265
    parseForCode := false.
377
bee1c21ecc62 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 376
diff changeset
  7266
    foldConstants := FoldConstants.
bee1c21ecc62 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 376
diff changeset
  7267
    lineNumberInfo := LineNumberInfo.
607
118452a23976 allow dollars in identifiers
Claus Gittinger <cg@exept.de>
parents: 603
diff changeset
  7268
    warnUndeclared := true.
1160
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  7269
    warnUnusedVars := WarnUnusedVars.
607
118452a23976 allow dollars in identifiers
Claus Gittinger <cg@exept.de>
parents: 603
diff changeset
  7270
118452a23976 allow dollars in identifiers
Claus Gittinger <cg@exept.de>
parents: 603
diff changeset
  7271
    "Modified: 7.9.1997 / 02:04:34 / cg"
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7272
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7273
1363
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  7274
initializeFlagsFrom:aParser
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  7275
    "initialize flags from another scanner"
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  7276
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  7277
    super initializeFlagsFrom:aParser.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  7278
    warnSTXHereExtensionUsed := aParser warnSTXHereExtensionUsed.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  7279
!
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  7280
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7281
parseForCode
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7282
    "turns off certain statistics (keeping referenced variables, modified vars etc.)
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7283
     Use this when parsing for compilation or evaluation"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7284
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7285
    parseForCode := true
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  7286
!
7ad01559b262 Initial revision
claus
parents:
diff changeset
  7287
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7288
setClassToCompileFor:aClass
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7289
    "set the class to be used for parsing/evaluating"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7290
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7291
    classToCompileFor := aClass.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7292
    (classToCompileFor ~~ PrevClass) ifTrue:[
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7293
	PrevClass notNil ifTrue:[
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7294
	    Parser update:PrevClass
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7295
	]
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7296
    ]
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7297
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7298
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7299
setContext:aContext
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7300
    "set the context used while evaluating"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7301
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7302
    contextToEvaluateIn := aContext
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7303
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7304
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7305
setSelf:anObject
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7306
    "set the value to be used for self while evaluating"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7307
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7308
    selfValue := anObject.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7309
    classToCompileFor := anObject class.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7310
    (classToCompileFor ~~ PrevClass) ifTrue:[
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7311
	PrevClass notNil ifTrue:[
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7312
	    Parser update:PrevClass
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7313
	]
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7314
    ]
607
118452a23976 allow dollars in identifiers
Claus Gittinger <cg@exept.de>
parents: 603
diff changeset
  7315
!
118452a23976 allow dollars in identifiers
Claus Gittinger <cg@exept.de>
parents: 603
diff changeset
  7316
118452a23976 allow dollars in identifiers
Claus Gittinger <cg@exept.de>
parents: 603
diff changeset
  7317
warnUndeclared:aBoolean
118452a23976 allow dollars in identifiers
Claus Gittinger <cg@exept.de>
parents: 603
diff changeset
  7318
    warnUndeclared := aBoolean.
118452a23976 allow dollars in identifiers
Claus Gittinger <cg@exept.de>
parents: 603
diff changeset
  7319
118452a23976 allow dollars in identifiers
Claus Gittinger <cg@exept.de>
parents: 603
diff changeset
  7320
    "Created: 7.9.1997 / 02:05:00 / cg"
1160
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  7321
!
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  7322
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  7323
warnUnusedVars:aBoolean
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  7324
    warnUnusedVars := aBoolean.
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  7325
! !
7ad01559b262 Initial revision
claus
parents:
diff changeset
  7326
84
claus
parents: 83
diff changeset
  7327
!Parser methodsFor:'statistic'!
claus
parents: 83
diff changeset
  7328
1077
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7329
rememberClassVarRead:name 
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7330
    readClassVars isNil ifTrue:[
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7331
        readClassVars := Set new
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7332
    ].
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7333
    readClassVars add:name.
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7334
    self rememberClassVarUsed:name
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7335
!
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7336
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7337
rememberClassVarUsed:name 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7338
    usedClassVars isNil ifTrue:[
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7339
	usedClassVars := Set new
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7340
    ].
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7341
    usedClassVars add:name.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7342
    self rememberVariableUsed:name
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7343
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7344
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7345
rememberGlobalUsed:name 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7346
    usedGlobals isNil ifTrue:[
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7347
	usedGlobals := Set new
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7348
    ].
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7349
    usedGlobals add:name.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7350
    self rememberVariableUsed:name
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7351
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7352
1077
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7353
rememberInstVarRead:name 
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7354
    readInstVars isNil ifTrue:[
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7355
        readInstVars := Set new
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7356
    ].
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7357
    readInstVars add:name.
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7358
    self rememberVariableUsed:name
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7359
!
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7360
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7361
rememberInstVarUsed:name 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7362
    usedInstVars isNil ifTrue:[
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7363
	usedInstVars := Set new
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7364
    ].
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7365
    usedInstVars add:name.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7366
    self rememberVariableUsed:name
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7367
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7368
977
c1afbaf48a23 remember used & modified local vars;
Claus Gittinger <cg@exept.de>
parents: 971
diff changeset
  7369
rememberLocalUsed:name 
c1afbaf48a23 remember used & modified local vars;
Claus Gittinger <cg@exept.de>
parents: 971
diff changeset
  7370
    usedLocalVars isNil ifTrue:[
c1afbaf48a23 remember used & modified local vars;
Claus Gittinger <cg@exept.de>
parents: 971
diff changeset
  7371
        usedLocalVars := Set new
c1afbaf48a23 remember used & modified local vars;
Claus Gittinger <cg@exept.de>
parents: 971
diff changeset
  7372
    ].
c1afbaf48a23 remember used & modified local vars;
Claus Gittinger <cg@exept.de>
parents: 971
diff changeset
  7373
    usedLocalVars add:name.
c1afbaf48a23 remember used & modified local vars;
Claus Gittinger <cg@exept.de>
parents: 971
diff changeset
  7374
c1afbaf48a23 remember used & modified local vars;
Claus Gittinger <cg@exept.de>
parents: 971
diff changeset
  7375
!
c1afbaf48a23 remember used & modified local vars;
Claus Gittinger <cg@exept.de>
parents: 971
diff changeset
  7376
1231
637e0e215633 returnValue check
Claus Gittinger <cg@exept.de>
parents: 1230
diff changeset
  7377
rememberReturnedValue:anExpressionNode 
637e0e215633 returnValue check
Claus Gittinger <cg@exept.de>
parents: 1230
diff changeset
  7378
    |expr|
637e0e215633 returnValue check
Claus Gittinger <cg@exept.de>
parents: 1230
diff changeset
  7379
637e0e215633 returnValue check
Claus Gittinger <cg@exept.de>
parents: 1230
diff changeset
  7380
    returnedValues isNil ifTrue:[returnedValues := Set new].
637e0e215633 returnValue check
Claus Gittinger <cg@exept.de>
parents: 1230
diff changeset
  7381
637e0e215633 returnValue check
Claus Gittinger <cg@exept.de>
parents: 1230
diff changeset
  7382
    expr := anExpressionNode.
637e0e215633 returnValue check
Claus Gittinger <cg@exept.de>
parents: 1230
diff changeset
  7383
    expr isAssignment ifTrue:[
637e0e215633 returnValue check
Claus Gittinger <cg@exept.de>
parents: 1230
diff changeset
  7384
        expr := expr expression.
637e0e215633 returnValue check
Claus Gittinger <cg@exept.de>
parents: 1230
diff changeset
  7385
    ].
637e0e215633 returnValue check
Claus Gittinger <cg@exept.de>
parents: 1230
diff changeset
  7386
    (expr isConstant or:[expr isSelf]) ifTrue:[
637e0e215633 returnValue check
Claus Gittinger <cg@exept.de>
parents: 1230
diff changeset
  7387
        returnedValues add:expr
637e0e215633 returnValue check
Claus Gittinger <cg@exept.de>
parents: 1230
diff changeset
  7388
    ].
637e0e215633 returnValue check
Claus Gittinger <cg@exept.de>
parents: 1230
diff changeset
  7389
!
637e0e215633 returnValue check
Claus Gittinger <cg@exept.de>
parents: 1230
diff changeset
  7390
84
claus
parents: 83
diff changeset
  7391
rememberSelectorUsed:sel
1082
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7392
    messagesSent isNil ifTrue:[
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7393
        messagesSent := IdentitySet new.
84
claus
parents: 83
diff changeset
  7394
    ].
1082
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7395
    messagesSent add:sel 
1060
9978f9d22dde more queries (remember super messages)
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  7396
!
9978f9d22dde more queries (remember super messages)
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  7397
9978f9d22dde more queries (remember super messages)
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  7398
rememberSelectorUsed:sel receiver:receiverNode
9978f9d22dde more queries (remember super messages)
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  7399
    self rememberSelectorUsed:sel.
9978f9d22dde more queries (remember super messages)
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  7400
    receiverNode isSuper ifTrue:[
1082
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7401
        self rememberSelectorUsedInSuperSend:sel
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7402
    ] ifFalse:[
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7403
        receiverNode isSelf ifTrue:[
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7404
            self rememberSelectorUsedInSelfSend:sel
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7405
        ].
1060
9978f9d22dde more queries (remember super messages)
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  7406
    ].
9978f9d22dde more queries (remember super messages)
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  7407
!
9978f9d22dde more queries (remember super messages)
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  7408
1082
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7409
rememberSelectorUsedInSelfSend:sel
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7410
    messagesSentToSelf isNil ifTrue:[
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7411
        messagesSentToSelf := IdentitySet new.
1060
9978f9d22dde more queries (remember super messages)
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  7412
    ].
1082
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7413
    messagesSentToSelf add:sel
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7414
!
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7415
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7416
rememberSelectorUsedInSuperSend:sel
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7417
    messagesSentToSuper isNil ifTrue:[
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7418
        messagesSentToSuper := IdentitySet new.
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7419
    ].
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7420
    messagesSentToSuper add:sel
84
claus
parents: 83
diff changeset
  7421
!
claus
parents: 83
diff changeset
  7422
1064
ecd50cdfb881 added #usedSymbols statistic
Claus Gittinger <cg@exept.de>
parents: 1063
diff changeset
  7423
rememberSymbolUsed:aSymbol
ecd50cdfb881 added #usedSymbols statistic
Claus Gittinger <cg@exept.de>
parents: 1063
diff changeset
  7424
    usedSymbols isNil ifTrue:[
ecd50cdfb881 added #usedSymbols statistic
Claus Gittinger <cg@exept.de>
parents: 1063
diff changeset
  7425
        usedSymbols := IdentitySet new.
ecd50cdfb881 added #usedSymbols statistic
Claus Gittinger <cg@exept.de>
parents: 1063
diff changeset
  7426
    ].
ecd50cdfb881 added #usedSymbols statistic
Claus Gittinger <cg@exept.de>
parents: 1063
diff changeset
  7427
    usedSymbols add:aSymbol 
ecd50cdfb881 added #usedSymbols statistic
Claus Gittinger <cg@exept.de>
parents: 1063
diff changeset
  7428
!
ecd50cdfb881 added #usedSymbols statistic
Claus Gittinger <cg@exept.de>
parents: 1063
diff changeset
  7429
84
claus
parents: 83
diff changeset
  7430
rememberVariableUsed:name 
claus
parents: 83
diff changeset
  7431
    usedVars isNil ifTrue:[
claus
parents: 83
diff changeset
  7432
	usedVars := Set new
claus
parents: 83
diff changeset
  7433
    ].
claus
parents: 83
diff changeset
  7434
    usedVars add:name
claus
parents: 83
diff changeset
  7435
! !
claus
parents: 83
diff changeset
  7436
1340
579fe8cd2e52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1337
diff changeset
  7437
!Parser::ParseError methodsFor:'accessing'!
579fe8cd2e52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1337
diff changeset
  7438
1386
10cb83add18b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1380
diff changeset
  7439
description
1434
e7d527d493d3 optional lineNumber info added to parseError
Claus Gittinger <cg@exept.de>
parents: 1432
diff changeset
  7440
    |s|
e7d527d493d3 optional lineNumber info added to parseError
Claus Gittinger <cg@exept.de>
parents: 1432
diff changeset
  7441
1461
43034b07ff08 error string of parseError
Claus Gittinger <cg@exept.de>
parents: 1460
diff changeset
  7442
    s := super description.
43034b07ff08 error string of parseError
Claus Gittinger <cg@exept.de>
parents: 1460
diff changeset
  7443
    s last isSeparator ifFalse:[
43034b07ff08 error string of parseError
Claus Gittinger <cg@exept.de>
parents: 1460
diff changeset
  7444
        errorMessage size > 0 ifTrue:[
43034b07ff08 error string of parseError
Claus Gittinger <cg@exept.de>
parents: 1460
diff changeset
  7445
            s := s , ' '
43034b07ff08 error string of parseError
Claus Gittinger <cg@exept.de>
parents: 1460
diff changeset
  7446
        ]
43034b07ff08 error string of parseError
Claus Gittinger <cg@exept.de>
parents: 1460
diff changeset
  7447
    ].
43034b07ff08 error string of parseError
Claus Gittinger <cg@exept.de>
parents: 1460
diff changeset
  7448
    s := s , (errorMessage ? '').
1434
e7d527d493d3 optional lineNumber info added to parseError
Claus Gittinger <cg@exept.de>
parents: 1432
diff changeset
  7449
    lineNumber notNil ifTrue:[
e7d527d493d3 optional lineNumber info added to parseError
Claus Gittinger <cg@exept.de>
parents: 1432
diff changeset
  7450
        s := s , ' [' , lineNumber asString , ']'
e7d527d493d3 optional lineNumber info added to parseError
Claus Gittinger <cg@exept.de>
parents: 1432
diff changeset
  7451
    ].
e7d527d493d3 optional lineNumber info added to parseError
Claus Gittinger <cg@exept.de>
parents: 1432
diff changeset
  7452
    ^ s
1386
10cb83add18b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1380
diff changeset
  7453
!
10cb83add18b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1380
diff changeset
  7454
1340
579fe8cd2e52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1337
diff changeset
  7455
endPosition
579fe8cd2e52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1337
diff changeset
  7456
    ^ endPosition
579fe8cd2e52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1337
diff changeset
  7457
!
579fe8cd2e52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1337
diff changeset
  7458
579fe8cd2e52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1337
diff changeset
  7459
errorMessage
579fe8cd2e52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1337
diff changeset
  7460
    ^ errorMessage
579fe8cd2e52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1337
diff changeset
  7461
!
579fe8cd2e52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1337
diff changeset
  7462
1460
684fec272d87 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1458
diff changeset
  7463
errorMessage:errorMessageArg startPosition:startPositionArg 
684fec272d87 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1458
diff changeset
  7464
    errorMessage := errorMessageArg.
684fec272d87 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1458
diff changeset
  7465
    startPosition := startPositionArg.
684fec272d87 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1458
diff changeset
  7466
!
684fec272d87 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1458
diff changeset
  7467
1340
579fe8cd2e52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1337
diff changeset
  7468
errorMessage:errorMessageArg startPosition:startPositionArg endPosition:endPositionArg 
579fe8cd2e52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1337
diff changeset
  7469
    errorMessage := errorMessageArg.
579fe8cd2e52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1337
diff changeset
  7470
    startPosition := startPositionArg.
579fe8cd2e52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1337
diff changeset
  7471
    endPosition := endPositionArg.
579fe8cd2e52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1337
diff changeset
  7472
!
579fe8cd2e52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1337
diff changeset
  7473
1434
e7d527d493d3 optional lineNumber info added to parseError
Claus Gittinger <cg@exept.de>
parents: 1432
diff changeset
  7474
lineNumber:something
e7d527d493d3 optional lineNumber info added to parseError
Claus Gittinger <cg@exept.de>
parents: 1432
diff changeset
  7475
    lineNumber := something.
e7d527d493d3 optional lineNumber info added to parseError
Claus Gittinger <cg@exept.de>
parents: 1432
diff changeset
  7476
!
e7d527d493d3 optional lineNumber info added to parseError
Claus Gittinger <cg@exept.de>
parents: 1432
diff changeset
  7477
1340
579fe8cd2e52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1337
diff changeset
  7478
parser
579fe8cd2e52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1337
diff changeset
  7479
    ^ originator
579fe8cd2e52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1337
diff changeset
  7480
!
579fe8cd2e52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1337
diff changeset
  7481
579fe8cd2e52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1337
diff changeset
  7482
startPosition
579fe8cd2e52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1337
diff changeset
  7483
    ^ startPosition
579fe8cd2e52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1337
diff changeset
  7484
! !
579fe8cd2e52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1337
diff changeset
  7485
1399
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
  7486
!Parser::UndefinedVariableNotification methodsFor:'accessing'!
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
  7487
1514
cf0c183c5ad9 description
Claus Gittinger <cg@exept.de>
parents: 1512
diff changeset
  7488
description
cf0c183c5ad9 description
Claus Gittinger <cg@exept.de>
parents: 1512
diff changeset
  7489
    ^ 'undefined variable'
cf0c183c5ad9 description
Claus Gittinger <cg@exept.de>
parents: 1512
diff changeset
  7490
!
cf0c183c5ad9 description
Claus Gittinger <cg@exept.de>
parents: 1512
diff changeset
  7491
1399
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
  7492
parser
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
  7493
    "return the value of the instance variable 'parser' (automatically generated)"
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
  7494
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
  7495
    ^ parser
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
  7496
!
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
  7497
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
  7498
parser:something
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
  7499
    "set the value of the instance variable 'parser' (automatically generated)"
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
  7500
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
  7501
    parser := something.
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
  7502
!
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
  7503
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
  7504
variableName
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
  7505
    ^ parameter
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
  7506
! !
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
  7507
358
78b0d8954c49 removed possible conflict between #classVarNames here and in Class.
Claus Gittinger <cg@exept.de>
parents: 354
diff changeset
  7508
!Parser class methodsFor:'documentation'!
148
ef0e604209ec version method at the end
Claus Gittinger <cg@exept.de>
parents: 145
diff changeset
  7509
ef0e604209ec version method at the end
Claus Gittinger <cg@exept.de>
parents: 145
diff changeset
  7510
version
1515
8ffe6db5e53f suppress notifications while searching for blockAtLine.
Claus Gittinger <cg@exept.de>
parents: 1514
diff changeset
  7511
    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.421 2004-05-19 14:43:05 cg Exp $'
148
ef0e604209ec version method at the end
Claus Gittinger <cg@exept.de>
parents: 145
diff changeset
  7512
! !
1322
da25e31f423c autodefine workspace variables
Claus Gittinger <cg@exept.de>
parents: 1315
diff changeset
  7513
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7514
Parser initialize!