Parser.st
author Claus Gittinger <cg@exept.de>
Wed, 10 Sep 2003 17:01:23 +0200
changeset 1455 25e4af227208
parent 1453 205e70e12abe
child 1458 30380f0ecea2
permissions -rw-r--r--
checkin from browser
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
1412
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
    41
		AllowArrayIndexSyntaxExtension'
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
eaef898b063e added undefinedVariableNotification
Claus Gittinger <cg@exept.de>
parents: 1394
diff changeset
   324
undefinedVariableNotification
eaef898b063e added undefinedVariableNotification
Claus Gittinger <cg@exept.de>
parents: 1394
diff changeset
   325
    ^ UndefinedVariableNotification
1062
119b394e10b5 parse bug: #(#Error)
Claus Gittinger <cg@exept.de>
parents: 1061
diff changeset
   326
! !
119b394e10b5 parse bug: #(#Error)
Claus Gittinger <cg@exept.de>
parents: 1061
diff changeset
   327
358
78b0d8954c49 removed possible conflict between #classVarNames here and in Class.
Claus Gittinger <cg@exept.de>
parents: 354
diff changeset
   328
!Parser class methodsFor:'changes'!
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   329
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   330
flushNameCache
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   331
    "unconditional flush name caches"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   332
694
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
   333
    [
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
   334
        PrevClass notNil ifTrue:[
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
   335
            PrevClass removeDependent:Parser
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
   336
        ].
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
   337
        PrevClass := nil.
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
   338
        PrevInstVarNames := nil.
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
   339
        PrevClassVarNames := nil.
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
   340
        PrevClassInstVarNames := nil.
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
   341
    ] valueUninterruptably
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   342
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   343
    "Parser flushNameCache"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   344
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   345
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   346
update:something with:someArgument from:changedObject
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   347
    "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
   348
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   349
    (changedObject == PrevClass) ifTrue:[
1090
7f49c607a315 catch change-notifications from Smalltalk (to flush PrevClass cache)
Claus Gittinger <cg@exept.de>
parents: 1089
diff changeset
   350
        something == #definition ifTrue:[
7f49c607a315 catch change-notifications from Smalltalk (to flush PrevClass cache)
Claus Gittinger <cg@exept.de>
parents: 1089
diff changeset
   351
            self flushNameCache
7f49c607a315 catch change-notifications from Smalltalk (to flush PrevClass cache)
Claus Gittinger <cg@exept.de>
parents: 1089
diff changeset
   352
        ]
7f49c607a315 catch change-notifications from Smalltalk (to flush PrevClass cache)
Claus Gittinger <cg@exept.de>
parents: 1089
diff changeset
   353
    ].
7f49c607a315 catch change-notifications from Smalltalk (to flush PrevClass cache)
Claus Gittinger <cg@exept.de>
parents: 1089
diff changeset
   354
    (changedObject == Smalltalk) ifTrue:[
7f49c607a315 catch change-notifications from Smalltalk (to flush PrevClass cache)
Claus Gittinger <cg@exept.de>
parents: 1089
diff changeset
   355
        something == #classDefinition ifTrue:[
7f49c607a315 catch change-notifications from Smalltalk (to flush PrevClass cache)
Claus Gittinger <cg@exept.de>
parents: 1089
diff changeset
   356
            self flushNameCache
7f49c607a315 catch change-notifications from Smalltalk (to flush PrevClass cache)
Claus Gittinger <cg@exept.de>
parents: 1089
diff changeset
   357
        ]
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   358
    ]
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   359
! !
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   360
717
627b2379d5ce moved signal to scanner
Claus Gittinger <cg@exept.de>
parents: 713
diff changeset
   361
!Parser class methodsFor:'class initialization'!
627b2379d5ce moved signal to scanner
Claus Gittinger <cg@exept.de>
parents: 713
diff changeset
   362
627b2379d5ce moved signal to scanner
Claus Gittinger <cg@exept.de>
parents: 713
diff changeset
   363
initialize
627b2379d5ce moved signal to scanner
Claus Gittinger <cg@exept.de>
parents: 713
diff changeset
   364
    LazyCompilation := false.      "/ usually set to true in your .rc file
752
dc6c757579b9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 748
diff changeset
   365
    ArraysAreImmutable := false.   "/ usually left false for ST-80 compatibility
1221
2768cbe3be2b finished remove unused vars;
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
   366
    StringsAreImmutable := false.  "/ usually left false for ST-80 compatibility
752
dc6c757579b9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 748
diff changeset
   367
717
627b2379d5ce moved signal to scanner
Claus Gittinger <cg@exept.de>
parents: 713
diff changeset
   368
    ImplicitSelfSends := false.
627b2379d5ce moved signal to scanner
Claus Gittinger <cg@exept.de>
parents: 713
diff changeset
   369
    WarnST80Directives := false.
1221
2768cbe3be2b finished remove unused vars;
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
   370
    WarnUnusedVars := true.
717
627b2379d5ce moved signal to scanner
Claus Gittinger <cg@exept.de>
parents: 713
diff changeset
   371
    FoldConstants := #level1.
627b2379d5ce moved signal to scanner
Claus Gittinger <cg@exept.de>
parents: 713
diff changeset
   372
    LineNumberInfo := false.
627b2379d5ce moved signal to scanner
Claus Gittinger <cg@exept.de>
parents: 713
diff changeset
   373
1062
119b394e10b5 parse bug: #(#Error)
Claus Gittinger <cg@exept.de>
parents: 1061
diff changeset
   374
    ParseErrorSignal isNil ifTrue:[
1380
7288e4623e2b parseError
Claus Gittinger <cg@exept.de>
parents: 1373
diff changeset
   375
        ParseErrorSignal := ParseError.
1062
119b394e10b5 parse bug: #(#Error)
Claus Gittinger <cg@exept.de>
parents: 1061
diff changeset
   376
        ParseErrorSignal notifierString:'parse error'.
1380
7288e4623e2b parseError
Claus Gittinger <cg@exept.de>
parents: 1373
diff changeset
   377
7288e4623e2b parseError
Claus Gittinger <cg@exept.de>
parents: 1373
diff changeset
   378
"/        ParseErrorSignal := Error newSignalMayProceed:true.
7288e4623e2b parseError
Claus Gittinger <cg@exept.de>
parents: 1373
diff changeset
   379
"/        ParseErrorSignal notifierString:'parse error'.
7288e4623e2b parseError
Claus Gittinger <cg@exept.de>
parents: 1373
diff changeset
   380
"/        ParseErrorSignal nameClass:self message:#parseErrorSignal.
1062
119b394e10b5 parse bug: #(#Error)
Claus Gittinger <cg@exept.de>
parents: 1061
diff changeset
   381
    ].
1221
2768cbe3be2b finished remove unused vars;
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
   382
    RestartCompilationSignal := Signal new.
2768cbe3be2b finished remove unused vars;
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
   383
1090
7f49c607a315 catch change-notifications from Smalltalk (to flush PrevClass cache)
Claus Gittinger <cg@exept.de>
parents: 1089
diff changeset
   384
    Smalltalk addDependent:self.
1062
119b394e10b5 parse bug: #(#Error)
Claus Gittinger <cg@exept.de>
parents: 1061
diff changeset
   385
717
627b2379d5ce moved signal to scanner
Claus Gittinger <cg@exept.de>
parents: 713
diff changeset
   386
    "
627b2379d5ce moved signal to scanner
Claus Gittinger <cg@exept.de>
parents: 713
diff changeset
   387
     self initialize
627b2379d5ce moved signal to scanner
Claus Gittinger <cg@exept.de>
parents: 713
diff changeset
   388
    "
627b2379d5ce moved signal to scanner
Claus Gittinger <cg@exept.de>
parents: 713
diff changeset
   389
1221
2768cbe3be2b finished remove unused vars;
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
   390
    "Modified: / 15.11.2001 / 22:54:09 / cg"
717
627b2379d5ce moved signal to scanner
Claus Gittinger <cg@exept.de>
parents: 713
diff changeset
   391
! !
627b2379d5ce moved signal to scanner
Claus Gittinger <cg@exept.de>
parents: 713
diff changeset
   392
358
78b0d8954c49 removed possible conflict between #classVarNames here and in Class.
Claus Gittinger <cg@exept.de>
parents: 354
diff changeset
   393
!Parser class methodsFor:'controlling compilation'!
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   394
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   395
arraysAreImmutable
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   396
    "return true if arrays are immutable literals"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   397
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   398
    ^ ArraysAreImmutable
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   399
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   400
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   401
arraysAreImmutable:aBoolean
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   402
    "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
   403
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   404
    ArraysAreImmutable := aBoolean.
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
     can be added to your private.rc file:
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   408
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   409
     Compiler arraysAreImmutable:true     
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   410
     Compiler arraysAreImmutable:false      
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
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   414
compileLazy
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   415
    "return true if compiling lazy"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   416
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   417
    ^ LazyCompilation.
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:aBoolean
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   421
    "turn on/off lazy compilation - return previous setting.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   422
     Actually this flag belongs into the ByteCodeCompiler subclass,
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   423
     but it also controls the reporting of some errors here; therefore
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   424
     its located here"
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
    |oldLazy|
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   427
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   428
    oldLazy := LazyCompilation.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   429
    LazyCompilation := aBoolean.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   430
    ^ oldLazy
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
    "
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   433
     Compiler compileLazy:false         
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   434
     Compiler compileLazy:true          
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   435
    "
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   436
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   437
210
b22f4472833b allow enable/disable of constantFolding
Claus Gittinger <cg@exept.de>
parents: 207
diff changeset
   438
foldConstants
212
ff39051e219f more constant folding options
Claus Gittinger <cg@exept.de>
parents: 210
diff changeset
   439
    "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
   440
b22f4472833b allow enable/disable of constantFolding
Claus Gittinger <cg@exept.de>
parents: 207
diff changeset
   441
    ^ FoldConstants
b22f4472833b allow enable/disable of constantFolding
Claus Gittinger <cg@exept.de>
parents: 207
diff changeset
   442
b22f4472833b allow enable/disable of constantFolding
Claus Gittinger <cg@exept.de>
parents: 207
diff changeset
   443
    "Created: 9.2.1996 / 17:40:13 / cg"
b22f4472833b allow enable/disable of constantFolding
Claus Gittinger <cg@exept.de>
parents: 207
diff changeset
   444
!
b22f4472833b allow enable/disable of constantFolding
Claus Gittinger <cg@exept.de>
parents: 207
diff changeset
   445
212
ff39051e219f more constant folding options
Claus Gittinger <cg@exept.de>
parents: 210
diff changeset
   446
foldConstants:aSymbol
ff39051e219f more constant folding options
Claus Gittinger <cg@exept.de>
parents: 210
diff changeset
   447
    "set the symbol describing how constants are to be folded.
ff39051e219f more constant folding options
Claus Gittinger <cg@exept.de>
parents: 210
diff changeset
   448
     It can be:
619
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
   449
	nil             - no constant folding
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
   450
	#level1         - numeric constants only
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
   451
	#level2         - level1 PLUS array conversions PLUS string concatenation
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
   452
	#full           - level2 PLUS constant points, constant rectangles (dangerous)"
212
ff39051e219f more constant folding options
Claus Gittinger <cg@exept.de>
parents: 210
diff changeset
   453
ff39051e219f more constant folding options
Claus Gittinger <cg@exept.de>
parents: 210
diff changeset
   454
    FoldConstants := aSymbol
210
b22f4472833b allow enable/disable of constantFolding
Claus Gittinger <cg@exept.de>
parents: 207
diff changeset
   455
b22f4472833b allow enable/disable of constantFolding
Claus Gittinger <cg@exept.de>
parents: 207
diff changeset
   456
    "Created: 9.2.1996 / 17:40:34 / cg"
b22f4472833b allow enable/disable of constantFolding
Claus Gittinger <cg@exept.de>
parents: 207
diff changeset
   457
!
b22f4472833b allow enable/disable of constantFolding
Claus Gittinger <cg@exept.de>
parents: 207
diff changeset
   458
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   459
implicitSelfSends
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   460
    "return true if undefined variables with
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   461
     lowercase first character are to be turned
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   462
     into implicit self sends"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   463
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   464
    ^ ImplicitSelfSends
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   465
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   466
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   467
implicitSelfSends:aBoolean
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   468
    "turn on/off 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 := aBoolean
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
     Compiler implicitSelfSends:true
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   474
     Compiler implicitSelfSends:false 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   475
    "
377
bee1c21ecc62 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 376
diff changeset
   476
!
bee1c21ecc62 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 376
diff changeset
   477
bee1c21ecc62 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 376
diff changeset
   478
lineNumberInfo
bee1c21ecc62 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 376
diff changeset
   479
    ^ LineNumberInfo
bee1c21ecc62 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 376
diff changeset
   480
!
bee1c21ecc62 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 376
diff changeset
   481
bee1c21ecc62 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 376
diff changeset
   482
lineNumberInfo:aBoolean
bee1c21ecc62 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 376
diff changeset
   483
    LineNumberInfo := aBoolean
752
dc6c757579b9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 748
diff changeset
   484
!
dc6c757579b9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 748
diff changeset
   485
dc6c757579b9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 748
diff changeset
   486
stringsAreImmutable
dc6c757579b9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 748
diff changeset
   487
    "return true if strings are immutable literals"
dc6c757579b9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 748
diff changeset
   488
dc6c757579b9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 748
diff changeset
   489
    ^ StringsAreImmutable
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
    "Created: / 3.8.1998 / 14:53:25 / cg"
dc6c757579b9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 748
diff changeset
   492
!
dc6c757579b9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 748
diff changeset
   493
dc6c757579b9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 748
diff changeset
   494
stringsAreImmutable:aBoolean
dc6c757579b9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 748
diff changeset
   495
    "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
   496
dc6c757579b9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 748
diff changeset
   497
    StringsAreImmutable := aBoolean.
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
     can be added to your private.rc file:
dc6c757579b9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 748
diff changeset
   501
dc6c757579b9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 748
diff changeset
   502
     Compiler stringsAreImmutable:true     
dc6c757579b9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 748
diff changeset
   503
     Compiler stringsAreImmutable:false      
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
    "Created: / 3.8.1998 / 14:53:28 / cg"
1160
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
   507
!
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
   508
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
   509
warnUnusedVars
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
   510
    "controls generation of warning messages about unued method variables"
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
   511
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
   512
    ^ WarnUnusedVars
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:aBoolean
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 := aBoolean
19
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
   519
! !
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
   520
481
187a88a9695d care for maxLineNo when looking for a block-by-lineNo
Claus Gittinger <cg@exept.de>
parents: 480
diff changeset
   521
!Parser class methodsFor:'defaults'!
187a88a9695d care for maxLineNo when looking for a block-by-lineNo
Claus Gittinger <cg@exept.de>
parents: 480
diff changeset
   522
1413
75e5b1b10079 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1412
diff changeset
   523
allowArrayIndexSyntaxExtension
75e5b1b10079 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1412
diff changeset
   524
    "experimental"
75e5b1b10079 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1412
diff changeset
   525
75e5b1b10079 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1412
diff changeset
   526
    ^ AllowArrayIndexSyntaxExtension ? false
75e5b1b10079 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1412
diff changeset
   527
!
75e5b1b10079 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1412
diff changeset
   528
75e5b1b10079 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1412
diff changeset
   529
allowArrayIndexSyntaxExtension:aBoolean
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 := aBoolean.
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
     self allowArrayIndexSyntaxExtension:true
75e5b1b10079 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1412
diff changeset
   536
     self allowArrayIndexSyntaxExtension:false
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
!
75e5b1b10079 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1412
diff changeset
   539
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
   540
allowReservedWordsAsSelectors
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
   541
    "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
   542
     as unary message selectors."
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
   543
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
   544
    ^ AllowReservedWordsAsSelectors ? false
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
   545
!
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
   546
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
   547
allowReservedWordsAsSelectors:aBoolean
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
   548
    "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
   549
     as unary message selectors."
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
   550
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
   551
    AllowReservedWordsAsSelectors := aBoolean.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
   552
    self setupActions
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
   553
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
   554
    "
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
   555
     self allowReservedWordsAsSelectors:true
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
   556
     self allowReservedWordsAsSelectors:false
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
   557
    "
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
   558
!
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
   559
481
187a88a9695d care for maxLineNo when looking for a block-by-lineNo
Claus Gittinger <cg@exept.de>
parents: 480
diff changeset
   560
maxLineNumber
187a88a9695d care for maxLineNo when looking for a block-by-lineNo
Claus Gittinger <cg@exept.de>
parents: 480
diff changeset
   561
    "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
   562
     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
   563
     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
   564
     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
   565
187a88a9695d care for maxLineNo when looking for a block-by-lineNo
Claus Gittinger <cg@exept.de>
parents: 480
diff changeset
   566
    ^ 255
187a88a9695d care for maxLineNo when looking for a block-by-lineNo
Claus Gittinger <cg@exept.de>
parents: 480
diff changeset
   567
187a88a9695d care for maxLineNo when looking for a block-by-lineNo
Claus Gittinger <cg@exept.de>
parents: 480
diff changeset
   568
    "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
   569
! !
187a88a9695d care for maxLineNo when looking for a block-by-lineNo
Claus Gittinger <cg@exept.de>
parents: 480
diff changeset
   570
1187
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   571
!Parser class methodsFor:'error correction'!
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   572
1199
3ffc14d393a7 best selector matching improved
Claus Gittinger <cg@exept.de>
parents: 1197
diff changeset
   573
findBest:nMax selectorsFor:aString in:aClassOrNil
1187
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   574
    "collect known selectors with their spelling distances to aString;
1199
3ffc14d393a7 best selector matching improved
Claus Gittinger <cg@exept.de>
parents: 1197
diff changeset
   575
     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
   576
     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
   577
     corrections from that hierarchy only)"
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   578
1286
b21dfcad59a6 Remove unused method var
Stefan Vogel <sv@exept.de>
parents: 1285
diff changeset
   579
    |info block lcSelector|
1187
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   580
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   581
    info := SortedCollection new.
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   582
    info sortBlock:[:a :b | a value > b value].
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   583
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   584
    lcSelector := aString asLowercase.
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   585
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   586
    block := [:sym :mthd|
1215
f2b18b227c78 speedup findBestSelector
Claus Gittinger <cg@exept.de>
parents: 1214
diff changeset
   587
        |dist lcSym keepThis|
1187
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   588
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   589
        lcSym := sym asLowercase.
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   590
        (info contains:[:i | i key == sym]) ifFalse:[
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   591
            dist := lcSelector spellAgainst:lcSym.
1199
3ffc14d393a7 best selector matching improved
Claus Gittinger <cg@exept.de>
parents: 1197
diff changeset
   592
3ffc14d393a7 best selector matching improved
Claus Gittinger <cg@exept.de>
parents: 1197
diff changeset
   593
            (lcSym startsWith:lcSelector) ifTrue:[
3ffc14d393a7 best selector matching improved
Claus Gittinger <cg@exept.de>
parents: 1197
diff changeset
   594
                dist := dist + (aString size * 10).
3ffc14d393a7 best selector matching improved
Claus Gittinger <cg@exept.de>
parents: 1197
diff changeset
   595
            ].
3ffc14d393a7 best selector matching improved
Claus Gittinger <cg@exept.de>
parents: 1197
diff changeset
   596
        
1215
f2b18b227c78 speedup findBestSelector
Claus Gittinger <cg@exept.de>
parents: 1214
diff changeset
   597
            (dist > 20) ifTrue:[
1199
3ffc14d393a7 best selector matching improved
Claus Gittinger <cg@exept.de>
parents: 1197
diff changeset
   598
                (info contains:[:entry | entry key = sym]) ifFalse:[
1215
f2b18b227c78 speedup findBestSelector
Claus Gittinger <cg@exept.de>
parents: 1214
diff changeset
   599
                    keepThis := true.
f2b18b227c78 speedup findBestSelector
Claus Gittinger <cg@exept.de>
parents: 1214
diff changeset
   600
                    info size >= nMax ifTrue:[
f2b18b227c78 speedup findBestSelector
Claus Gittinger <cg@exept.de>
parents: 1214
diff changeset
   601
                        "will remove last entry anyway - so check if this one will remain ..."
f2b18b227c78 speedup findBestSelector
Claus Gittinger <cg@exept.de>
parents: 1214
diff changeset
   602
                        dist < info last value ifTrue:[
f2b18b227c78 speedup findBestSelector
Claus Gittinger <cg@exept.de>
parents: 1214
diff changeset
   603
                            keepThis := false.
f2b18b227c78 speedup findBestSelector
Claus Gittinger <cg@exept.de>
parents: 1214
diff changeset
   604
                        ]
f2b18b227c78 speedup findBestSelector
Claus Gittinger <cg@exept.de>
parents: 1214
diff changeset
   605
                    ].
f2b18b227c78 speedup findBestSelector
Claus Gittinger <cg@exept.de>
parents: 1214
diff changeset
   606
                    keepThis ifTrue:[
f2b18b227c78 speedup findBestSelector
Claus Gittinger <cg@exept.de>
parents: 1214
diff changeset
   607
                        "expensive - therefore do this check at last"
f2b18b227c78 speedup findBestSelector
Claus Gittinger <cg@exept.de>
parents: 1214
diff changeset
   608
                        mthd isObsolete ifFalse:[
f2b18b227c78 speedup findBestSelector
Claus Gittinger <cg@exept.de>
parents: 1214
diff changeset
   609
                            info add:(sym -> dist).
f2b18b227c78 speedup findBestSelector
Claus Gittinger <cg@exept.de>
parents: 1214
diff changeset
   610
                            info size > nMax ifTrue:[
f2b18b227c78 speedup findBestSelector
Claus Gittinger <cg@exept.de>
parents: 1214
diff changeset
   611
                                info removeLast.
f2b18b227c78 speedup findBestSelector
Claus Gittinger <cg@exept.de>
parents: 1214
diff changeset
   612
                            ]
f2b18b227c78 speedup findBestSelector
Claus Gittinger <cg@exept.de>
parents: 1214
diff changeset
   613
                        ]
1199
3ffc14d393a7 best selector matching improved
Claus Gittinger <cg@exept.de>
parents: 1197
diff changeset
   614
                    ]
1187
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   615
                ]
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   616
            ]
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   617
        ]
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   618
    ].
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   619
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   620
    aClassOrNil isNil ifTrue:[
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   621
        Smalltalk allClassesDo:[:cls |
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   622
            cls methodDictionary keysAndValuesDo:block.
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   623
            cls class methodDictionary keysAndValuesDo:block.
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
    ] ifFalse:[
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   626
        aClassOrNil withAllSuperclassesDo:[:cls |
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   627
            cls methodDictionary keysAndValuesDo:block.
1323
34b29c93134b fixed correct for doits
Claus Gittinger <cg@exept.de>
parents: 1322
diff changeset
   628
            "/ cls class methodDictionary keysAndValuesDo:block.
1187
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   629
        ]
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
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   632
    ^ info asOrderedCollection collect:[:a | a key]
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   633
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   634
    "Modified: / 19.1.2000 / 16:43:37 / cg"
1199
3ffc14d393a7 best selector matching improved
Claus Gittinger <cg@exept.de>
parents: 1197
diff changeset
   635
!
3ffc14d393a7 best selector matching improved
Claus Gittinger <cg@exept.de>
parents: 1197
diff changeset
   636
3ffc14d393a7 best selector matching improved
Claus Gittinger <cg@exept.de>
parents: 1197
diff changeset
   637
findBestSelectorsFor:aString
3ffc14d393a7 best selector matching improved
Claus Gittinger <cg@exept.de>
parents: 1197
diff changeset
   638
    "collect known selectors with their spelling distances to aString;
3ffc14d393a7 best selector matching improved
Claus Gittinger <cg@exept.de>
parents: 1197
diff changeset
   639
     return the 10 best suggestions"
3ffc14d393a7 best selector matching improved
Claus Gittinger <cg@exept.de>
parents: 1197
diff changeset
   640
3ffc14d393a7 best selector matching improved
Claus Gittinger <cg@exept.de>
parents: 1197
diff changeset
   641
    ^ self findBestSelectorsFor:aString in:nil
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
    "
3ffc14d393a7 best selector matching improved
Claus Gittinger <cg@exept.de>
parents: 1197
diff changeset
   644
     Parser findBestSelectorsFor:'at'
3ffc14d393a7 best selector matching improved
Claus Gittinger <cg@exept.de>
parents: 1197
diff changeset
   645
     Parser findBestSelectorsFor:'at:pu'
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
!
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
findBestSelectorsFor:aString in:aClassOrNil
3ffc14d393a7 best selector matching improved
Claus Gittinger <cg@exept.de>
parents: 1197
diff changeset
   650
    "collect known selectors with their spelling distances to aString;
1323
34b29c93134b fixed correct for doits
Claus Gittinger <cg@exept.de>
parents: 1322
diff changeset
   651
     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
   652
     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
   653
     corrections from that hierarchy only)"
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
    ^ self
1323
34b29c93134b fixed correct for doits
Claus Gittinger <cg@exept.de>
parents: 1322
diff changeset
   656
        findBest:15 selectorsFor:aString in:aClassOrNil
1187
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   657
! !
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
   658
358
78b0d8954c49 removed possible conflict between #classVarNames here and in Class.
Claus Gittinger <cg@exept.de>
parents: 354
diff changeset
   659
!Parser class methodsFor:'evaluating expressions'!
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
   660
19
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
   661
evaluate:aStringOrStream
71
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   662
    "return the result of evaluating an expression in aStringOrStream.
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   663
     No doit-entry is added to the changeLog."
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
   664
19
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
   665
    ^ self 
44
74ddc944c27f *** empty log message ***
claus
parents: 35
diff changeset
   666
	evaluate:aStringOrStream 
74ddc944c27f *** empty log message ***
claus
parents: 35
diff changeset
   667
	in:nil 
74ddc944c27f *** empty log message ***
claus
parents: 35
diff changeset
   668
	receiver:nil 
74ddc944c27f *** empty log message ***
claus
parents: 35
diff changeset
   669
	notifying:nil 
74ddc944c27f *** empty log message ***
claus
parents: 35
diff changeset
   670
	logged:false
74ddc944c27f *** empty log message ***
claus
parents: 35
diff changeset
   671
	ifFail:nil 
71
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   672
	compile:true
19
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
   673
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
   674
    "
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
   675
     Compiler evaluate:'1 + 2'
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
   676
     Compiler evaluate:'''hello world'' asSortedCollection displayString printNL'
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
   677
     Compiler evaluate:'''hello world'' asSortedCollection printNL'
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
   678
    "
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
   679
!
7ad01559b262 Initial revision
claus
parents:
diff changeset
   680
71
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   681
evaluate:aStringOrStream compile:compile
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   682
    "return the result of evaluating aString, 
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   683
     The compile argument specifies if the string should be compiled down to 
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   684
     bytecode or instead be interpreted from the parseTree.
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   685
     The first should be done for doIts etc, where a readable walkback is
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   686
     required.
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   687
     The latter is better done for constants, styleSheet and resource
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   688
     reading and simple sends, where the overhead of compilation is bigger
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   689
     than the interpretation overhead."
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   690
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   691
    ^ self 
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   692
	evaluate:aStringOrStream
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   693
	in:nil
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   694
	receiver:nil 
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   695
	notifying:nil 
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   696
	logged:false
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   697
	ifFail:nil
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   698
	compile:compile 
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   699
!
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   700
20
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
   701
evaluate:aStringOrStream ifFail:failBlock
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
   702
    "return the result of evaluating an expression in aStringOrStream.
71
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   703
     In case of any syntax errors, return the value of failBlock.
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   704
     No doit-entry is added to the changeLog."
20
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
   705
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
   706
    ^ self 
44
74ddc944c27f *** empty log message ***
claus
parents: 35
diff changeset
   707
	evaluate:aStringOrStream 
74ddc944c27f *** empty log message ***
claus
parents: 35
diff changeset
   708
	in:nil 
74ddc944c27f *** empty log message ***
claus
parents: 35
diff changeset
   709
	receiver:nil 
74ddc944c27f *** empty log message ***
claus
parents: 35
diff changeset
   710
	notifying:nil 
74ddc944c27f *** empty log message ***
claus
parents: 35
diff changeset
   711
	logged:false
74ddc944c27f *** empty log message ***
claus
parents: 35
diff changeset
   712
	ifFail:failBlock 
71
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   713
	compile:true
20
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
   714
    "
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
   715
     Compiler evaluate:'1 +' ifFail:['oops']   
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
   716
    "
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
   717
!
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
   718
71
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   719
evaluate:aStringOrStream in:aContext receiver:anObject notifying:requestor ifFail:failBlock
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   720
    "return the result of evaluating aStringOrStream, errors are reported to requestor. 
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   721
     Allow access to anObject as self and to its instVars (used in the inspector).
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   722
     No doIt entry is added to the change-file. 
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   723
     If the failBlock argument is non-nil, it is evaluated if an error occurs."
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   724
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   725
    ^ self 
640
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
   726
        evaluate:aStringOrStream
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
   727
        in:aContext
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
   728
        receiver:anObject
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
   729
        notifying:requestor
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
   730
        logged:false
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
   731
        ifFail:nil
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
   732
        compile:true
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
   733
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
   734
    "Modified: / 17.1.1998 / 02:54:07 / cg"
20
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
   735
!
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
   736
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
   737
evaluate:aStringOrStream in:aContext receiver:anObject notifying:requestor logged:logged ifFail:failBlock
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
   738
    "return the result of evaluating aStringOrStream, errors are reported to requestor. 
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
   739
     Allow access to anObject as self and to its instVars (used in the inspector).
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
   740
     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
   741
     is non-nil, it is evaluated if an error occurs."
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
   742
71
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   743
    ^ self 
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   744
	evaluate:aStringOrStream
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   745
	in:aContext
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   746
	receiver:anObject
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   747
	notifying:requestor
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   748
	logged:logged 
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   749
	ifFail:failBlock 
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   750
	compile:true
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   751
!
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   752
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   753
evaluate:aStringOrStream in:aContext receiver:anObject notifying:requestor logged:logged ifFail:failBlock compile:compile
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   754
    "return the result of evaluating aStringOrStream, errors are reported to requestor. 
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   755
     Allow access to anObject as self and to its instVars (used in the inspector).
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   756
     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
   757
     is non-nil, it is evaluated if an error occurs.
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   758
     Finally, compile specifies if the string should be compiled down to 
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   759
     bytecode or instead be interpreted from the parseTree.
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   760
     The first should be done for doIts etc, where a readable walkback is
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   761
     required.
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   762
     The latter is better done for constants, styleSheet and resource
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   763
     reading and simple sends, where the overhead of compilation is bigger
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   764
     than the interpretation overhead."
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
   765
1363
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
   766
    ^ self new
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
   767
        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
   768
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   769
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   770
evaluate:aStringOrStream logged:logged
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   771
    "return the result of evaluating an expression in aStringOrStream.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   772
     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
   773
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   774
    ^ self 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   775
	evaluate:aStringOrStream 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   776
	in:nil 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   777
	receiver:nil 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   778
	notifying:nil 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   779
	logged:logged
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   780
	ifFail:nil 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   781
	compile:true
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   782
    "
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   783
     Compiler evaluate:'''some string''' logged:false   
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   784
     Compiler evaluate:'''some string''' logged:true   
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   785
    "
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   786
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   787
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   788
evaluate:aStringOrStream notifying:requestor
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   789
    "return the result of evaluating aString, 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   790
     errors are reported to requestor"
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
    ^ self 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   793
	evaluate:aStringOrStream 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   794
	in:nil 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   795
	receiver:nil 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   796
	notifying:requestor
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   797
	logged:false
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   798
	ifFail:nil 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   799
	compile:true
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   800
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   801
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   802
evaluate:aStringOrStream notifying:requestor compile:compile
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   803
    "return the result of evaluating aString, 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   804
     errors are reported to requestor.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   805
     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
   806
     bytecode or instead be interpreted from the parseTree.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   807
     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
   808
     required.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   809
     The latter is better done for constants, styleSheet and resource
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   810
     reading and simple sends, where the overhead of compilation is bigger
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   811
     than the interpretation overhead."
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   812
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   813
    ^ self 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   814
	evaluate:aStringOrStream 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   815
	in:nil 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   816
	receiver:nil 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   817
	notifying:requestor
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   818
	logged:false
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   819
	ifFail:nil 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   820
	compile:compile
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   821
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   822
1025
5b3022ecb269 added #evaluate:notifying:logged: (for RB)
Claus Gittinger <cg@exept.de>
parents: 1022
diff changeset
   823
evaluate:aStringOrStream notifying:requestor logged:logged
5b3022ecb269 added #evaluate:notifying:logged: (for RB)
Claus Gittinger <cg@exept.de>
parents: 1022
diff changeset
   824
    "return the result of evaluating aString, 
5b3022ecb269 added #evaluate:notifying:logged: (for RB)
Claus Gittinger <cg@exept.de>
parents: 1022
diff changeset
   825
     errors are reported to requestor"
5b3022ecb269 added #evaluate:notifying:logged: (for RB)
Claus Gittinger <cg@exept.de>
parents: 1022
diff changeset
   826
5b3022ecb269 added #evaluate:notifying:logged: (for RB)
Claus Gittinger <cg@exept.de>
parents: 1022
diff changeset
   827
    ^ self 
5b3022ecb269 added #evaluate:notifying:logged: (for RB)
Claus Gittinger <cg@exept.de>
parents: 1022
diff changeset
   828
        evaluate:aStringOrStream 
5b3022ecb269 added #evaluate:notifying:logged: (for RB)
Claus Gittinger <cg@exept.de>
parents: 1022
diff changeset
   829
        in:nil 
5b3022ecb269 added #evaluate:notifying:logged: (for RB)
Claus Gittinger <cg@exept.de>
parents: 1022
diff changeset
   830
        receiver:nil 
5b3022ecb269 added #evaluate:notifying:logged: (for RB)
Claus Gittinger <cg@exept.de>
parents: 1022
diff changeset
   831
        notifying:requestor
5b3022ecb269 added #evaluate:notifying:logged: (for RB)
Claus Gittinger <cg@exept.de>
parents: 1022
diff changeset
   832
        logged:logged
5b3022ecb269 added #evaluate:notifying:logged: (for RB)
Claus Gittinger <cg@exept.de>
parents: 1022
diff changeset
   833
        ifFail:nil 
5b3022ecb269 added #evaluate:notifying:logged: (for RB)
Claus Gittinger <cg@exept.de>
parents: 1022
diff changeset
   834
        compile:true
5b3022ecb269 added #evaluate:notifying:logged: (for RB)
Claus Gittinger <cg@exept.de>
parents: 1022
diff changeset
   835
!
5b3022ecb269 added #evaluate:notifying:logged: (for RB)
Claus Gittinger <cg@exept.de>
parents: 1022
diff changeset
   836
572
6608880c73bc added #evaluate:receiver:
Claus Gittinger <cg@exept.de>
parents: 569
diff changeset
   837
evaluate:aStringOrStream receiver:anObject
6608880c73bc added #evaluate:receiver:
Claus Gittinger <cg@exept.de>
parents: 569
diff changeset
   838
    "return the result of evaluating aString, 
6608880c73bc added #evaluate:receiver:
Claus Gittinger <cg@exept.de>
parents: 569
diff changeset
   839
     errors are reported to requestor. Allow access to
6608880c73bc added #evaluate:receiver:
Claus Gittinger <cg@exept.de>
parents: 569
diff changeset
   840
     anObject as self and to its instVars "
6608880c73bc added #evaluate:receiver:
Claus Gittinger <cg@exept.de>
parents: 569
diff changeset
   841
6608880c73bc added #evaluate:receiver:
Claus Gittinger <cg@exept.de>
parents: 569
diff changeset
   842
    ^ self 
619
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
   843
	evaluate:aStringOrStream
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
   844
	in:nil
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
   845
	receiver:anObject
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
   846
	notifying:nil
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
   847
	logged:false
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
   848
	ifFail:nil
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
   849
	compile:true
572
6608880c73bc added #evaluate:receiver:
Claus Gittinger <cg@exept.de>
parents: 569
diff changeset
   850
6608880c73bc added #evaluate:receiver:
Claus Gittinger <cg@exept.de>
parents: 569
diff changeset
   851
    "
6608880c73bc added #evaluate:receiver:
Claus Gittinger <cg@exept.de>
parents: 569
diff changeset
   852
     Compiler evaluate:'self x' receiver:(1 @ 2)
6608880c73bc added #evaluate:receiver:
Claus Gittinger <cg@exept.de>
parents: 569
diff changeset
   853
    "
6608880c73bc added #evaluate:receiver:
Claus Gittinger <cg@exept.de>
parents: 569
diff changeset
   854
6608880c73bc added #evaluate:receiver:
Claus Gittinger <cg@exept.de>
parents: 569
diff changeset
   855
    "Created: 1.7.1997 / 19:02:24 / cg"
6608880c73bc added #evaluate:receiver:
Claus Gittinger <cg@exept.de>
parents: 569
diff changeset
   856
    "Modified: 1.7.1997 / 19:02:33 / cg"
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
919
212f477f8d7f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   859
evaluate:aStringOrStream receiver:someOne logged:logged
212f477f8d7f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   860
    "return the result of evaluating an expression in aStringOrStream.
212f477f8d7f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   861
     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
   862
212f477f8d7f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   863
    ^ self 
212f477f8d7f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   864
        evaluate:aStringOrStream 
212f477f8d7f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   865
        in:nil 
212f477f8d7f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   866
        receiver:someOne 
212f477f8d7f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   867
        notifying:nil 
212f477f8d7f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   868
        logged:logged
212f477f8d7f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   869
        ifFail:nil 
212f477f8d7f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   870
        compile:true
212f477f8d7f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   871
    "
212f477f8d7f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   872
     Compiler evaluate:'''some string''' logged:false   
212f477f8d7f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   873
     Compiler evaluate:'''some string''' logged:true   
212f477f8d7f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   874
     Compiler evaluate:'self class' receiver:nil logged:false
212f477f8d7f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   875
     Compiler evaluate:'self class' receiver:1 logged:false 
212f477f8d7f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   876
    "
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
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   879
evaluate:aStringOrStream receiver:anObject notifying:requestor
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   880
    "return the result of evaluating aString, 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   881
     errors are reported to requestor. Allow access to
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   882
     anObject as self and to its instVars (used in the inspector)"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   883
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   884
    ^ self 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   885
	evaluate:aStringOrStream
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   886
	in:nil
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   887
	receiver:anObject
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   888
	notifying:requestor
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   889
	logged:false
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   890
	ifFail:nil
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   891
	compile:true
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   892
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   893
    "
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   894
     Compiler evaluate:'self x' receiver:(1 @ 2) notifying:nil 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   895
    "
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   896
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   897
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   898
evaluate:aStringOrStream receiver:anObject notifying:requestor compile:compile
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   899
    "return the result of evaluating aString, 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   900
     errors are reported to requestor. Allow access to
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   901
     anObject as self and to its instVars (used in the inspector).
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   902
     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
   903
     bytecode or instead be interpreted from the parseTree.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   904
     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
   905
     required.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   906
     The latter is better done for constants, styleSheet and resource
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   907
     reading and simple sends, where the overhead of compilation is bigger
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   908
     than the interpretation overhead."
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   909
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   910
    ^ self 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   911
	evaluate:aStringOrStream
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   912
	in:nil
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   913
	receiver:anObject
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   914
	notifying:requestor
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   915
	logged:false
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   916
	ifFail:nil
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   917
	compile:compile 
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
   918
! !
7ad01559b262 Initial revision
claus
parents:
diff changeset
   919
640
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
   920
!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
   921
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
   922
argAndVarNamesForContext:aContext
1446
ac887ee4881a ** changed access to blockContexts source, args and vars -- please watch out
penk
parents: 1445
diff changeset
   923
    self obsoleteMethodWarning.
ac887ee4881a ** changed access to blockContexts source, args and vars -- please watch out
penk
parents: 1445
diff changeset
   924
    ^ aContext argAndVarNames.
640
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
   925
! !
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
   926
358
78b0d8954c49 removed possible conflict between #classVarNames here and in Class.
Claus Gittinger <cg@exept.de>
parents: 354
diff changeset
   927
!Parser class methodsFor:'parsing'!
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
   928
480
e4ac7e62ca9a better block-var name detection in debugger
Claus Gittinger <cg@exept.de>
parents: 473
diff changeset
   929
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
   930
    "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
   931
     return the containing BlockNode or nil.
480
e4ac7e62ca9a better block-var name detection in debugger
Claus Gittinger <cg@exept.de>
parents: 473
diff changeset
   932
     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
   933
     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
   934
     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
   935
     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
   936
     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
   937
429
ffc4e2ab5581 cleanup
Claus Gittinger <cg@exept.de>
parents: 427
diff changeset
   938
    |compiler tree mSource who mClass blocks 
397
118267bf78e5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 391
diff changeset
   939
     maxSoFar innerBlock m|
118267bf78e5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 391
diff changeset
   940
481
187a88a9695d care for maxLineNo when looking for a block-by-lineNo
Claus Gittinger <cg@exept.de>
parents: 480
diff changeset
   941
    (line isNil or:[line == self maxLineNumber]) ifTrue:[
815
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
   942
        ^ nil
457
ad25339043ef care for nil-lineNumber when looking for a block
Claus Gittinger <cg@exept.de>
parents: 455
diff changeset
   943
    ].
ad25339043ef care for nil-lineNumber when looking for a block
Claus Gittinger <cg@exept.de>
parents: 455
diff changeset
   944
480
e4ac7e62ca9a better block-var name detection in debugger
Claus Gittinger <cg@exept.de>
parents: 473
diff changeset
   945
    aMethod notNil ifTrue:[
815
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
   946
        m := aMethod.
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
   947
        who := m who.
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
   948
        who isNil ifTrue:[
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
   949
            m isWrapped ifTrue:[
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
   950
                m := m wrapper.
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
   951
                m notNil ifTrue:[
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
   952
                    who := m who.
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
   953
                ]
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
   954
            ]
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
   955
        ].
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
   956
        who notNil ifTrue:[
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
   957
            mClass := who methodClass.
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
   958
            mClass isNil ifTrue:[ ^ nil].
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
        mSource := m source.
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
   962
        mSource isNil ifTrue:[^ nil].
480
e4ac7e62ca9a better block-var name detection in debugger
Claus Gittinger <cg@exept.de>
parents: 473
diff changeset
   963
    ] ifFalse:[
815
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
   964
        aString notNil ifTrue:[
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
   965
            mSource := aString.
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
   966
            mClass := UndefinedObject
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
   967
        ] ifFalse:[
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
   968
            ^ nil
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
   969
        ]
397
118267bf78e5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 391
diff changeset
   970
    ].
118267bf78e5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 391
diff changeset
   971
391
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
   972
    "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
   973
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
   974
    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
   975
    compiler parseForCode.
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
   976
    compiler notifying:nil.
1365
19b74038d133 ignoreErrors / ignoreWarnings are not getters.
penk
parents: 1364
diff changeset
   977
    compiler ignoreWarnings:true.
19b74038d133 ignoreErrors / ignoreWarnings are not getters.
penk
parents: 1364
diff changeset
   978
    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
   979
    compiler lineNumberInfo:#full.
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
   980
480
e4ac7e62ca9a better block-var name detection in debugger
Claus Gittinger <cg@exept.de>
parents: 473
diff changeset
   981
    aMethod notNil ifTrue:[
815
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
   982
        (compiler parseMethodSpec == #Error) ifTrue:[
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
   983
            ^ nil.
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
   984
        ].
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
   985
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
   986
        who notNil ifTrue:[
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
   987
            compiler selector ~~ (who methodSelector) ifTrue:[
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
   988
                ^ nil
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
   989
            ]
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
   990
        ].
480
e4ac7e62ca9a better block-var name detection in debugger
Claus Gittinger <cg@exept.de>
parents: 473
diff changeset
   991
    ] ifFalse:[
815
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
   992
        compiler nextToken.
391
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
   993
    ].
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
   994
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
   995
    tree := compiler parseMethodBody.
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
   996
815
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
   997
    (compiler errorFlag 
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
   998
    or:[tree == #Error
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
   999
    or:[tree isNil]]) ifTrue:[
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
  1000
        ^ nil
391
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
  1001
    ].
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
  1002
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
  1003
    blocks := OrderedCollection new.
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
  1004
    tree collectBlocksInto:blocks.
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
  1005
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
  1006
    blocks := blocks select:[:aBlock |
815
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
  1007
                                line between: aBlock lineNumber and:aBlock endLineNumber
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
  1008
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
  1009
                            ].
391
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
  1010
    blocks size == 1 ifTrue:[
815
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
  1011
        ^ 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
  1012
    ].
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
  1013
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
  1014
    nA notNil ifTrue:[
815
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
  1015
        blocks := blocks select:[:aBlock |
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
  1016
                                aBlock numArgs == nA
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
  1017
                                ].
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
  1018
        blocks size == 1 ifTrue:[
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
  1019
            ^ blocks at:1
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
  1020
        ].
391
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
  1021
    ].
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
  1022
    nV notNil ifTrue:[
815
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
  1023
        blocks := blocks select:[:aBlock |
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
  1024
                                aBlock numVars == nV
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
  1025
                                ].
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
  1026
        blocks size == 1 ifTrue:[
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
  1027
            ^ blocks at:1
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
  1028
        ].
391
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
  1029
    ].
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
  1030
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
  1031
    "/ 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
  1032
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
  1033
    maxSoFar := 0.
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
  1034
    blocks do:[:aBlock |
815
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
  1035
        aBlock lineNumber > maxSoFar ifTrue:[
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
  1036
            innerBlock := aBlock.
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
  1037
            maxSoFar := aBlock lineNumber
3be479989a99 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 813
diff changeset
  1038
        ]
391
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
  1039
    ].
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
  1040
    ^ innerBlock.
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
  1041
480
e4ac7e62ca9a better block-var name detection in debugger
Claus Gittinger <cg@exept.de>
parents: 473
diff changeset
  1042
    "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
  1043
    "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
  1044
!
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
  1045
1365
19b74038d133 ignoreErrors / ignoreWarnings are not getters.
penk
parents: 1364
diff changeset
  1046
checkMethod:aString in:aClass ignoreErrors:ignoreErrors ignoreWarnings:ignoreWarnings
629
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  1047
    "parse a method in a given class.
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  1048
     Return a parser (if ok), nil (empty) or #Error (syntax).
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  1049
     The parser can be queried for selector, receiver, args, locals,
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  1050
     used selectors, modified instvars, referenced classvars etc.
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  1051
     The noErrors and noWarnings arguments specify if error and warning 
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  1052
     messages should be sent to the Transcript or suppressed."
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  1053
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  1054
    |parser tree|
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  1055
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  1056
    aString isNil ifTrue:[^ nil].
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  1057
    parser := self for:(ReadStream on:aString) in:aClass.
1365
19b74038d133 ignoreErrors / ignoreWarnings are not getters.
penk
parents: 1364
diff changeset
  1058
    parser ignoreErrors:ignoreErrors.
19b74038d133 ignoreErrors / ignoreWarnings are not getters.
penk
parents: 1364
diff changeset
  1059
    parser ignoreWarnings:ignoreWarnings.
629
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  1060
    tree := parser parseMethod.
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  1061
    (parser errorFlag or:[tree == #Error]) ifTrue:[^ nil].
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  1062
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  1063
    ReadBeforeWrittenTester searchForReadBeforeWrittenIn:tree
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  1064
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  1065
    "
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  1066
     self
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  1067
        checkMethod:'foo
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  1068
                        |local1 local2 local3|
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  1069
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  1070
                        local1 := local2.
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  1071
                        ^ local3
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  1072
                    '
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  1073
        in:UndefinedObject 
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  1074
        ignoreErrors:true 
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  1075
        ignoreWarnings:true 
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  1076
    "
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
    "Modified: / 30.10.1997 / 16:38:31 / cg"
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  1079
!
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  1080
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1081
parseExpression:aString
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1082
    "parse aString as an expression; 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1083
     Return the parseTree (if ok), nil (for an empty string 
258
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1084
     or comment only) or #Error (syntactic error).
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1085
     Error and warning messages are suppressed."
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1086
548
79948fed91a7 added entry to parse an expression in a specific nameSpace
Claus Gittinger <cg@exept.de>
parents: 547
diff changeset
  1087
    ^ self 
1096
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1088
        withSelf:nil 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1089
        parseExpression:aString 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1090
        onError:#Error
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1091
        notifying:nil 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1092
        ignoreErrors:true       "silence on Transcript"
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1093
        ignoreWarnings:true
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1094
        inNameSpace:nil
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1095
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1096
    "
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1097
     Parser parseExpression:'self foo'
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1098
     Parser parseExpression:'self:123'
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1099
     Parser parseExpression:'self:123' onError:nil
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1100
    "
548
79948fed91a7 added entry to parse an expression in a specific nameSpace
Claus Gittinger <cg@exept.de>
parents: 547
diff changeset
  1101
!
79948fed91a7 added entry to parse an expression in a specific nameSpace
Claus Gittinger <cg@exept.de>
parents: 547
diff changeset
  1102
79948fed91a7 added entry to parse an expression in a specific nameSpace
Claus Gittinger <cg@exept.de>
parents: 547
diff changeset
  1103
parseExpression:aString inNameSpace:aNameSpaceOrNil
79948fed91a7 added entry to parse an expression in a specific nameSpace
Claus Gittinger <cg@exept.de>
parents: 547
diff changeset
  1104
    "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
  1105
     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
  1106
     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
  1107
     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
  1108
79948fed91a7 added entry to parse an expression in a specific nameSpace
Claus Gittinger <cg@exept.de>
parents: 547
diff changeset
  1109
    ^ self 
1096
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1110
        withSelf:nil 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1111
        parseExpression:aString 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1112
        onError:#Error
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1113
        notifying:nil 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1114
        ignoreErrors:true       "silence on Transcript"
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1115
        ignoreWarnings:true
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1116
        inNameSpace:aNameSpaceOrNil
548
79948fed91a7 added entry to parse an expression in a specific nameSpace
Claus Gittinger <cg@exept.de>
parents: 547
diff changeset
  1117
79948fed91a7 added entry to parse an expression in a specific nameSpace
Claus Gittinger <cg@exept.de>
parents: 547
diff changeset
  1118
    "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
  1119
    "Created: 24.6.1997 / 16:44:26 / cg"
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1120
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1121
1096
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1122
parseExpression:aString inNameSpace:aNameSpaceOrNil onError:errorValue
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1123
    "parse aString as an expression; 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1124
     Return the parseTree (if ok), nil (for an empty string 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1125
     or comment only) or errorValue (syntactic error).
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1126
     Error and warning messages are suppressed."
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1127
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1128
    ^ self 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1129
        withSelf:nil 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1130
        parseExpression:aString 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1131
        onError:errorValue
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1132
        notifying:nil 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1133
        ignoreErrors:true       "silence on Transcript"
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1134
        ignoreWarnings:true
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1135
        inNameSpace:aNameSpaceOrNil
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1136
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1137
    "Modified: 24.6.1997 / 16:44:00 / cg"
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1138
    "Created: 24.6.1997 / 16:44:26 / cg"
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1139
!
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
parseExpression:aString onError:errorValue
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1142
    "parse aString as an expression; 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1143
     Return the parseTree (if ok), nil (for an empty string 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1144
     or comment only) or errorValue (syntactic error).
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1145
     Error and warning messages are suppressed."
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1146
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1147
    ^ self 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1148
        withSelf:nil 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1149
        parseExpression:aString 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1150
        onError:errorValue
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1151
        notifying:nil 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1152
        ignoreErrors:true       "silence on Transcript"
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1153
        ignoreWarnings:true
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1154
        inNameSpace:nil
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1155
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1156
    "Modified: 24.6.1997 / 16:44:00 / cg"
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1157
!
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1158
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1159
parseMethod:aString
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1160
    "parse a method.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1161
     Return a parser (if ok), nil (empty) or #Error (syntax).
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1162
     The parser can be queried for selector, receiver, args, locals,
258
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1163
     used selectors etc.
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1164
     Error and warning messages are sent to the Transcript."
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1165
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1166
    ^ self parseMethod:aString in:nil
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1167
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1168
    "
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1169
     |p|
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1170
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1171
     p := Parser 
619
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  1172
	     parseMethod:'
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  1173
		 foo:arg1 bar:arg2 baz:arg3 
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  1174
		     |l1 l2| 
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  1175
		     l1 := 0. 
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  1176
		     l2 := arg1. 
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  1177
		     ^ self'.
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
     'nArgs:  ' print. p numberOfMethodArgs printNL.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1180
     'args:   ' print. p methodArgs printNL.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1181
     'sel:    ' print. p selector printNL.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1182
     'nLocal: ' print. p numberOfMethodVars printNL.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1183
     'locals: ' print. p methodVars printNL.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1184
     'tree:   ' printNL. p tree printAllOn:Stdout. Stdout cr.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1185
    "
258
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1186
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1187
    "Modified: 24.4.1996 / 13:18:02 / cg"
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1188
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1189
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1190
parseMethod:aString in:aClass
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1191
    "parse a method in a given class.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1192
     Return a parser (if ok), nil (empty) or #Error (syntax).
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1193
     The parser can be queried for selector, receiver, args, locals,
258
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1194
     used selectors, modified instvars, referenced classvars etc.
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1195
     Error and warning messages are sent to the Transcript."
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1196
257
435dcaed969f dont parse body (when interrested in args & locals only)
Claus Gittinger <cg@exept.de>
parents: 255
diff changeset
  1197
    ^ self 
619
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  1198
	parseMethod:aString 
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  1199
	in:aClass 
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  1200
	ignoreErrors:false 
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  1201
	ignoreWarnings:false
257
435dcaed969f dont parse body (when interrested in args & locals only)
Claus Gittinger <cg@exept.de>
parents: 255
diff changeset
  1202
258
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1203
    "Modified: 24.4.1996 / 13:18:34 / cg"
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1204
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1205
1365
19b74038d133 ignoreErrors / ignoreWarnings are not getters.
penk
parents: 1364
diff changeset
  1206
parseMethod:aString in:aClass ignoreErrors:ignoreErrors ignoreWarnings:ignoreWarnings
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1207
    "parse a method in a given class.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1208
     Return a parser (if ok), nil (empty) or #Error (syntax).
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1209
     The parser can be queried for selector, receiver, args, locals,
258
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1210
     used selectors, modified instvars, referenced classvars etc.
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1211
     The noErrors and noWarnings arguments specify if error and warning 
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1212
     messages should be sent to the Transcript or suppressed."
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1213
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1214
    |parser tree|
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1215
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1216
    aString isNil ifTrue:[^ nil].
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1217
    parser := self for:(ReadStream on:aString) in:aClass.
1365
19b74038d133 ignoreErrors / ignoreWarnings are not getters.
penk
parents: 1364
diff changeset
  1218
    parser ignoreErrors:ignoreErrors.
19b74038d133 ignoreErrors / ignoreWarnings are not getters.
penk
parents: 1364
diff changeset
  1219
    parser ignoreWarnings:ignoreWarnings.
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1220
    tree := parser parseMethod.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1221
    (parser errorFlag or:[tree == #Error]) ifTrue:[^ nil].
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1222
    ^ parser
258
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1223
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1224
    "Modified: 24.4.1996 / 13:19:23 / cg"
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1225
!
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
parseMethod:aString in:aClass warnings:warnBoolean
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1228
    "parse a method in a given class.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1229
     Return a parser (if ok), nil (empty) or #Error (syntax).
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1230
     The parser can be queried for selector, receiver, args, locals,
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1231
     used selectors, modified instvars, referenced classvars etc.
258
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1232
     The warnBoolean arguments specifies if warning 
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1233
     messages should be sent to the Transcript or suppressed.
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1234
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1235
     This method is OBSOLETE, and left in for backward compatibility."
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
    self obsoleteMethodWarning.
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1238
    ^ self
619
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  1239
	parseMethod:aString 
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  1240
	in:aClass 
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  1241
	ignoreErrors:false 
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  1242
	ignoreWarnings:warnBoolean not
258
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1243
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1244
    "Modified: 24.4.1996 / 13:28:05 / cg"
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1245
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1246
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1247
parseMethodArgAndVarSpecification:aString
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1248
    "parse a methods selector, arg and var spec (i.e. locals);
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1249
     Return a parser (if ok), nil (empty) or #Error (syntax).
258
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1250
     The parser can be queried for selector, receiver etc.
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1251
     Error and warning messages are sent to the Transcript.
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1252
     This method is OBSOLETE."
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1253
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1254
    self obsoleteMethodWarning.
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1255
    ^ self parseMethodArgAndVarSpecification:aString in:nil
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1256
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1257
    "
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1258
     |p|
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
     p := Parser 
619
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  1261
	     parseMethodArgAndVarSpecification:'
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  1262
		      foo:arg1 bar:arg2 baz:arg3 
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  1263
		      |l1 l2|'.
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1264
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1265
     'nArgs:  ' print. p numberOfMethodArgs printNL.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1266
     'args:   ' print. p methodArgs printNL.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1267
     'sel:    ' print. p selector printNL.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1268
     'nLocal: ' print. p numberOfMethodVars printNL.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1269
     'locals: ' print. p methodVars printNL.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1270
    "
258
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1271
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1272
    "Modified: 24.4.1996 / 13:29:43 / cg"
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1273
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1274
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1275
parseMethodArgAndVarSpecification:aString in:aClass
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1276
    "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
  1277
     Return a parser (if ok), nil (empty) or #Error (syntax).
258
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1278
     The parser can be queried for selector, receiver, args and locals.
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1279
     Error and warning messages are sent to the Transcript.
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1280
     This method is OBSOLETE."
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1281
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1282
    self obsoleteMethodWarning.
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1283
    ^ self parseMethodArgAndVarSpecification:aString 
619
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  1284
	   in:aClass 
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  1285
	   ignoreErrors:false
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  1286
	   ignoreWarnings:false 
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  1287
	   parseBody:false
257
435dcaed969f dont parse body (when interrested in args & locals only)
Claus Gittinger <cg@exept.de>
parents: 255
diff changeset
  1288
258
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1289
    "Modified: 24.4.1996 / 13:30:03 / cg"
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1290
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1291
1365
19b74038d133 ignoreErrors / ignoreWarnings are not getters.
penk
parents: 1364
diff changeset
  1292
parseMethodArgAndVarSpecification:aString in:aClass ignoreErrors:ignoreErrors ignoreWarnings:ignoreWarnings parseBody:body
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1293
    "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
  1294
     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
  1295
     (for primitives & resourceSpecs).
258
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1296
     The noErrors and noWarnings arguments specify if error and warning 
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1297
     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
  1298
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1299
     Return a parser (if ok), nil (empty) or #Error (syntax).
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1300
     The parser can be queried for selector, receiver, args and locals"
19
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  1301
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  1302
    |parser|
7ad01559b262 Initial revision
claus
parents:
diff changeset
  1303
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1304
    aString isNil ifTrue:[^ nil].
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1305
    parser := self for:(ReadStream on:aString) in:aClass.
1365
19b74038d133 ignoreErrors / ignoreWarnings are not getters.
penk
parents: 1364
diff changeset
  1306
    parser ignoreErrors:ignoreErrors.
19b74038d133 ignoreErrors / ignoreWarnings are not getters.
penk
parents: 1364
diff changeset
  1307
    parser ignoreWarnings:ignoreWarnings.
255
13a059f6569d no need to send nextToken when parsing a method
Claus Gittinger <cg@exept.de>
parents: 229
diff changeset
  1308
"/    parser nextToken.
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1309
    (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
  1310
    "/
435dcaed969f dont parse body (when interrested in args & locals only)
Claus Gittinger <cg@exept.de>
parents: 255
diff changeset
  1311
    "/ used to be #parseMethodBodyVarSpec
435dcaed969f dont parse body (when interrested in args & locals only)
Claus Gittinger <cg@exept.de>
parents: 255
diff changeset
  1312
    "/ - 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
  1313
    "/
435dcaed969f dont parse body (when interrested in args & locals only)
Claus Gittinger <cg@exept.de>
parents: 255
diff changeset
  1314
    body ifTrue:[
878
f9c8d2544909 added declare-as (local, global or workspace-war)
Claus Gittinger <cg@exept.de>
parents: 877
diff changeset
  1315
        parser parseMethodBodyOrEmpty
257
435dcaed969f dont parse body (when interrested in args & locals only)
Claus Gittinger <cg@exept.de>
parents: 255
diff changeset
  1316
    ] ifFalse:[
878
f9c8d2544909 added declare-as (local, global or workspace-war)
Claus Gittinger <cg@exept.de>
parents: 877
diff changeset
  1317
        parser parseMethodBodyVarSpec
257
435dcaed969f dont parse body (when interrested in args & locals only)
Claus Gittinger <cg@exept.de>
parents: 255
diff changeset
  1318
    ].
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1319
    parser errorFlag ifTrue:[^ nil].
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  1320
    ^ parser
255
13a059f6569d no need to send nextToken when parsing a method
Claus Gittinger <cg@exept.de>
parents: 229
diff changeset
  1321
257
435dcaed969f dont parse body (when interrested in args & locals only)
Claus Gittinger <cg@exept.de>
parents: 255
diff changeset
  1322
    "Created: 24.4.1996 / 13:13:06 / cg"
265
a8617dc49bbf examples
Claus Gittinger <cg@exept.de>
parents: 263
diff changeset
  1323
    "Modified: 27.4.1996 / 16:58:02 / cg"
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1324
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1325
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1326
parseMethodArgAndVarSpecificationSilent:aString
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1327
    "parse a methods selector, arg and var spec (i.e. locals);
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1328
     Return a parser (if ok), nil (empty) or #Error (syntax).
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1329
     The parser can be queried for selector, receiver etc.
258
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1330
     Like #parseMethodArgAndVarSpecification:, but does NOT
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1331
     display error/warning messages on the transcript."
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1332
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1333
    ^ self parseMethodArgAndVarSpecificationSilent:aString in:nil
258
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1334
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1335
    "Modified: 24.4.1996 / 13:30:54 / cg"
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1336
!
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
parseMethodArgAndVarSpecificationSilent:aString in:aClass
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1339
    "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
  1340
     Return a parser (if ok), nil (empty) or #Error (syntax).
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1341
     The parser can be queried for selector, receiver, args and locals.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1342
     Like #parseMethodArgAndVarSpecification:in:, but does not
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1343
     display error/warning messages on the transcript."
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1344
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1345
    ^ self parseMethodArgAndVarSpecification:aString 
619
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  1346
	   in:aClass 
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  1347
	   ignoreErrors:true 
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  1348
	   ignoreWarnings:true 
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  1349
	   parseBody:false
257
435dcaed969f dont parse body (when interrested in args & locals only)
Claus Gittinger <cg@exept.de>
parents: 255
diff changeset
  1350
435dcaed969f dont parse body (when interrested in args & locals only)
Claus Gittinger <cg@exept.de>
parents: 255
diff changeset
  1351
    "Modified: 24.4.1996 / 13:14:27 / cg"
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1352
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1353
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1354
parseMethodSilent:aString
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1355
    "parse a method.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1356
     Return a parser (if ok), nil (empty) or #Error (syntax).
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1357
     The parser can be queried for selector, receiver, args, locals,
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1358
     used selectors etc.
258
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1359
     Like #parseMethod:, but warning/error messages are suppressed."
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1360
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1361
    ^ self parseMethodSilent:aString in:nil
258
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1362
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1363
    "Modified: 24.4.1996 / 13:32:44 / cg"
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1364
!
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
parseMethodSilent:aString in:aClass
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1367
    "parse a method in a given class.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1368
     Return a parser (if ok), nil (empty) or #Error (syntax).
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1369
     The parser can be queried for selector, receiver, args, locals,
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1370
     used selectors, modified instvars, referenced classvars etc.
258
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1371
     Like #parseMethod:in:, but warning/error messages are suppressed."
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1372
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1373
    ^ self 
619
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  1374
	parseMethod:aString 
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  1375
	in:aClass 
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  1376
	ignoreErrors:true 
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  1377
	ignoreWarnings:true
258
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1378
8de94646c647 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 257
diff changeset
  1379
    "Modified: 24.4.1996 / 13:32:57 / cg"
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1380
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1381
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1382
parseMethodSpecification:aString
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1383
    "parse a methods selector & arg specification; 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1384
     Return a parser (if ok), nil (empty) or #Error (syntax).
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1385
     The parser can be queried for selector, receiver etc."
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1386
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1387
    ^ self parseMethodSpecification:aString in:nil
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1388
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1389
    "
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1390
     |p|
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1391
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1392
     p := Parser parseMethodSpecification:'foo:arg1 bar:arg2 baz:arg3'.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1393
     'nArgs: ' print. p numberOfMethodArgs printNL.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1394
     'args:  ' print. p methodArgs printNL.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1395
     'sel:   ' print. p selector printNL
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1396
    "
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1397
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1398
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1399
parseMethodSpecification:aString in:aClass
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1400
    "parse a methods selector & arg spec for a given class;
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1401
     Return a parser (if ok), nil (empty) or #Error (syntax).
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1402
     The parser can be queried for selector, receiver etc."
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1403
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1404
    ^ self parseMethodSpecification:aString 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1405
	   in:aClass 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1406
	   ignoreErrors:false
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1407
	   ignoreWarnings:false 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1408
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1409
1365
19b74038d133 ignoreErrors / ignoreWarnings are not getters.
penk
parents: 1364
diff changeset
  1410
parseMethodSpecification:aString in:aClass ignoreErrors:ignoreErrors ignoreWarnings:ignoreWarnings 
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1411
    "parse a methods selector & arg spec for a given class;
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1412
     Return a parser (if ok), nil (empty) or #Error (syntax).
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1413
     The parser can be queried for selector, receiver etc.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1414
     noErrors and noWarnings specify if error- and warningMessages are
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1415
     to be output onto the Transcript."
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
    |parser tree|
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1418
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1419
    aString isNil ifTrue:[^ nil].
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1420
    parser := self for:(ReadStream on:aString) in:aClass.
1365
19b74038d133 ignoreErrors / ignoreWarnings are not getters.
penk
parents: 1364
diff changeset
  1421
    parser ignoreErrors:ignoreErrors.
19b74038d133 ignoreErrors / ignoreWarnings are not getters.
penk
parents: 1364
diff changeset
  1422
    parser ignoreWarnings:ignoreWarnings.
255
13a059f6569d no need to send nextToken when parsing a method
Claus Gittinger <cg@exept.de>
parents: 229
diff changeset
  1423
"/    parser nextToken.
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1424
    tree := parser parseMethodSpec.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1425
    (parser errorFlag or:[tree == #Error]) ifTrue:[^ #Error].
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1426
    ^ parser
255
13a059f6569d no need to send nextToken when parsing a method
Claus Gittinger <cg@exept.de>
parents: 229
diff changeset
  1427
13a059f6569d no need to send nextToken when parsing a method
Claus Gittinger <cg@exept.de>
parents: 229
diff changeset
  1428
    "Modified: 20.4.1996 / 20:09:48 / cg"
141
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
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1431
parseMethodSpecificationSilent:aString
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1432
    "parse a methods selector & arg specification; 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1433
     Return a parser (if ok), nil (empty) or #Error (syntax).
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1434
     The parser can be queried for selector, receiver etc.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1435
     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
  1436
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1437
    ^ self parseMethodSpecificationSilent:aString in:nil
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1438
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1439
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1440
parseMethodSpecificationSilent:aString in:aClass
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1441
    "parse a methods selector & arg spec for a given class;
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1442
     Return a parser (if ok), nil (empty) or #Error (syntax).
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1443
     The parser can be queried for selector, receiver etc.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1444
     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
  1445
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1446
    ^ self parseMethodSpecification:aString 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1447
	   in:aClass 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1448
	   ignoreErrors:true 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1449
	   ignoreWarnings:true
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1450
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1451
    "Created: 31.10.1995 / 14:37:49 / cg"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1452
!
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  1453
7
6c2bc76f0b8f *** empty log message ***
claus
parents: 4
diff changeset
  1454
selectorInExpression:aString
47
f861ad42703e *** empty log message ***
claus
parents: 45
diff changeset
  1455
    "parse an expression - return the selector. Even malformed expressions
f861ad42703e *** empty log message ***
claus
parents: 45
diff changeset
  1456
     (such as missing receiver or missing arg are parsed.
f861ad42703e *** empty log message ***
claus
parents: 45
diff changeset
  1457
     Used for the SystemBrowsers implementors/senders query-box initial text.
21
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  1458
     Returns nil if unparsable."
7
6c2bc76f0b8f *** empty log message ***
claus
parents: 4
diff changeset
  1459
1297
67332caafef7 catch errors when extracting a message selector
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
  1460
    |tree parser sel|
7
6c2bc76f0b8f *** empty log message ***
claus
parents: 4
diff changeset
  1461
813
4d3ec8ff238c (isNil or:[isEmpty ]) -> (size == 0)
Claus Gittinger <cg@exept.de>
parents: 807
diff changeset
  1462
    (aString size == 0) ifTrue:[^ nil].
7
6c2bc76f0b8f *** empty log message ***
claus
parents: 4
diff changeset
  1463
1297
67332caafef7 catch errors when extracting a message selector
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
  1464
    Error 
67332caafef7 catch errors when extracting a message selector
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
  1465
        handle:[:ex | ]
67332caafef7 catch errors when extracting a message selector
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
  1466
        do:[
67332caafef7 catch errors when extracting a message selector
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
  1467
            tree := self withSelf:nil 
67332caafef7 catch errors when extracting a message selector
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
  1468
                         parseExpression:aString 
67332caafef7 catch errors when extracting a message selector
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
  1469
                         notifying:nil 
67332caafef7 catch errors when extracting a message selector
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
  1470
                         ignoreErrors:true 
67332caafef7 catch errors when extracting a message selector
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
  1471
                         ignoreWarnings:true. 
67332caafef7 catch errors when extracting a message selector
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
  1472
        ].
21
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  1473
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  1474
    "
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  1475
     special: take the expression of the right side, if its an
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  1476
     assignment or return
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  1477
    "
7
6c2bc76f0b8f *** empty log message ***
claus
parents: 4
diff changeset
  1478
    (tree notNil and:[tree ~~ #Error]) ifTrue:[
813
4d3ec8ff238c (isNil or:[isEmpty ]) -> (size == 0)
Claus Gittinger <cg@exept.de>
parents: 807
diff changeset
  1479
        (tree isAssignment 
4d3ec8ff238c (isNil or:[isEmpty ]) -> (size == 0)
Claus Gittinger <cg@exept.de>
parents: 807
diff changeset
  1480
        or:[tree isReturnNode]) ifTrue:[
4d3ec8ff238c (isNil or:[isEmpty ]) -> (size == 0)
Claus Gittinger <cg@exept.de>
parents: 807
diff changeset
  1481
            tree expression isMessage ifTrue:[
4d3ec8ff238c (isNil or:[isEmpty ]) -> (size == 0)
Claus Gittinger <cg@exept.de>
parents: 807
diff changeset
  1482
                tree := tree expression
4d3ec8ff238c (isNil or:[isEmpty ]) -> (size == 0)
Claus Gittinger <cg@exept.de>
parents: 807
diff changeset
  1483
            ]
4d3ec8ff238c (isNil or:[isEmpty ]) -> (size == 0)
Claus Gittinger <cg@exept.de>
parents: 807
diff changeset
  1484
        ].
4d3ec8ff238c (isNil or:[isEmpty ]) -> (size == 0)
Claus Gittinger <cg@exept.de>
parents: 807
diff changeset
  1485
4d3ec8ff238c (isNil or:[isEmpty ]) -> (size == 0)
Claus Gittinger <cg@exept.de>
parents: 807
diff changeset
  1486
        tree isMessage ifTrue:[
4d3ec8ff238c (isNil or:[isEmpty ]) -> (size == 0)
Claus Gittinger <cg@exept.de>
parents: 807
diff changeset
  1487
            ^ tree selector
4d3ec8ff238c (isNil or:[isEmpty ]) -> (size == 0)
Claus Gittinger <cg@exept.de>
parents: 807
diff changeset
  1488
        ].
7
6c2bc76f0b8f *** empty log message ***
claus
parents: 4
diff changeset
  1489
    ].
6c2bc76f0b8f *** empty log message ***
claus
parents: 4
diff changeset
  1490
21
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  1491
    "
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  1492
     mhmh, try expression without receiver
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  1493
    "
7
6c2bc76f0b8f *** empty log message ***
claus
parents: 4
diff changeset
  1494
    parser := self for:(ReadStream on:aString).
1365
19b74038d133 ignoreErrors / ignoreWarnings are not getters.
penk
parents: 1364
diff changeset
  1495
    parser ignoreErrors:true.
7
6c2bc76f0b8f *** empty log message ***
claus
parents: 4
diff changeset
  1496
    parser nextToken.
1297
67332caafef7 catch errors when extracting a message selector
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
  1497
    Error 
67332caafef7 catch errors when extracting a message selector
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
  1498
        handle:[:ex | ]
67332caafef7 catch errors when extracting a message selector
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
  1499
        do:[
67332caafef7 catch errors when extracting a message selector
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
  1500
            sel := parser degeneratedKeywordExpressionForSelector
67332caafef7 catch errors when extracting a message selector
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
  1501
        ].
67332caafef7 catch errors when extracting a message selector
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
  1502
    ^ sel
7
6c2bc76f0b8f *** empty log message ***
claus
parents: 4
diff changeset
  1503
6c2bc76f0b8f *** empty log message ***
claus
parents: 4
diff changeset
  1504
"
20
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1505
    Parser selectorInExpression:'foo at:1 put:(5 * bar)'     
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1506
    Parser selectorInExpression:'(foo at:1) at:1'           
47
f861ad42703e *** empty log message ***
claus
parents: 45
diff changeset
  1507
    Parser selectorInExpression:'a + 4'                     
f861ad42703e *** empty log message ***
claus
parents: 45
diff changeset
  1508
    Parser selectorInExpression:'a negated'                 
20
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1509
    Parser selectorInExpression:'at:1 put:5'            
47
f861ad42703e *** empty log message ***
claus
parents: 45
diff changeset
  1510
    Parser selectorInExpression:'at:1 put:'            
f861ad42703e *** empty log message ***
claus
parents: 45
diff changeset
  1511
    Parser selectorInExpression:'a at:1 put:5'            
f861ad42703e *** empty log message ***
claus
parents: 45
diff changeset
  1512
    Parser selectorInExpression:'a at:1 put:'            
20
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1513
    Parser selectorInExpression:'a := foo at:1 put:5'    
7
6c2bc76f0b8f *** empty log message ***
claus
parents: 4
diff changeset
  1514
"
451
9e116ffc172c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 450
diff changeset
  1515
9e116ffc172c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 450
diff changeset
  1516
    "Modified: 17.12.1996 / 12:12:47 / cg"
7
6c2bc76f0b8f *** empty log message ***
claus
parents: 4
diff changeset
  1517
!
6c2bc76f0b8f *** empty log message ***
claus
parents: 4
diff changeset
  1518
6c2bc76f0b8f *** empty log message ***
claus
parents: 4
diff changeset
  1519
withSelf:anObject parseExpression:aString notifying:someOne 
6c2bc76f0b8f *** empty log message ***
claus
parents: 4
diff changeset
  1520
    "parse aString as an expression with self set to anObject;
21
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  1521
     Return the parseTree (if ok), nil (for an empty string 
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  1522
     or comment only ) or #Error (syntactic error).
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  1523
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  1524
     Errors and warnings are forwarded to someOne (usually some
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  1525
     codeView) which can highlight it and show a popup box."
7
6c2bc76f0b8f *** empty log message ***
claus
parents: 4
diff changeset
  1526
548
79948fed91a7 added entry to parse an expression in a specific nameSpace
Claus Gittinger <cg@exept.de>
parents: 547
diff changeset
  1527
    ^ self 
1096
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1528
        withSelf:anObject 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1529
        parseExpression:aString 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1530
        onError:#Error
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1531
        notifying:someOne 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1532
        ignoreErrors:false 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1533
        ignoreWarnings:false 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1534
        inNameSpace:nil
548
79948fed91a7 added entry to parse an expression in a specific nameSpace
Claus Gittinger <cg@exept.de>
parents: 547
diff changeset
  1535
79948fed91a7 added entry to parse an expression in a specific nameSpace
Claus Gittinger <cg@exept.de>
parents: 547
diff changeset
  1536
    "Modified: 24.6.1997 / 16:43:37 / cg"
7
6c2bc76f0b8f *** empty log message ***
claus
parents: 4
diff changeset
  1537
!
6c2bc76f0b8f *** empty log message ***
claus
parents: 4
diff changeset
  1538
6c2bc76f0b8f *** empty log message ***
claus
parents: 4
diff changeset
  1539
withSelf:anObject parseExpression:aString notifying:someOne ignoreErrors:ignore
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  1540
    "parse aString as an expression with self set to anObject;
21
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  1541
     Return the parseTree (if ok), nil (for an empty string 
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  1542
     or comment only ) or #Error (syntactic error).
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  1543
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  1544
     Errors and warnings are forwarded to someOne (usually some
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  1545
     codeView) which can highlight it and show a popup box."
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  1546
548
79948fed91a7 added entry to parse an expression in a specific nameSpace
Claus Gittinger <cg@exept.de>
parents: 547
diff changeset
  1547
    ^ self 
1096
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1548
        withSelf:anObject
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1549
        parseExpression:aString 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1550
        onError:#Error
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1551
        notifying:someOne 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1552
        ignoreErrors:ignore 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1553
        ignoreWarnings:ignore 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1554
        inNameSpace:nil
548
79948fed91a7 added entry to parse an expression in a specific nameSpace
Claus Gittinger <cg@exept.de>
parents: 547
diff changeset
  1555
79948fed91a7 added entry to parse an expression in a specific nameSpace
Claus Gittinger <cg@exept.de>
parents: 547
diff changeset
  1556
    "Modified: 24.6.1997 / 16:43:26 / cg"
21
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  1557
!
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  1558
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  1559
withSelf:anObject parseExpression:aString notifying:someOne ignoreErrors:ignoreErrors ignoreWarnings:ignoreWarnings
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  1560
    "parse aString as an expression with self set to anObject;
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  1561
     Return the parseTree (if ok), nil (for an empty string 
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  1562
     or comment only ) or #Error (syntactic error).
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  1563
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  1564
     Errors and warnings are forwarded to someOne (usually some
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  1565
     codeView) which can highlight it and show a popup box,
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  1566
     iff ignoreErrors/ignoreWarnings is true respectively."
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  1567
548
79948fed91a7 added entry to parse an expression in a specific nameSpace
Claus Gittinger <cg@exept.de>
parents: 547
diff changeset
  1568
    ^ self
1096
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1569
        withSelf:anObject 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1570
        parseExpression:aString
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1571
        onError:#Error
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1572
        notifying:someOne 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1573
        ignoreErrors:ignoreErrors 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1574
        ignoreWarnings:ignoreWarnings 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1575
        inNameSpace:nil
548
79948fed91a7 added entry to parse an expression in a specific nameSpace
Claus Gittinger <cg@exept.de>
parents: 547
diff changeset
  1576
79948fed91a7 added entry to parse an expression in a specific nameSpace
Claus Gittinger <cg@exept.de>
parents: 547
diff changeset
  1577
    "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
  1578
!
79948fed91a7 added entry to parse an expression in a specific nameSpace
Claus Gittinger <cg@exept.de>
parents: 547
diff changeset
  1579
79948fed91a7 added entry to parse an expression in a specific nameSpace
Claus Gittinger <cg@exept.de>
parents: 547
diff changeset
  1580
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
  1581
    "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
  1582
     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
  1583
     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
  1584
79948fed91a7 added entry to parse an expression in a specific nameSpace
Claus Gittinger <cg@exept.de>
parents: 547
diff changeset
  1585
     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
  1586
     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
  1587
     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
  1588
1096
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1589
    ^ self
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1590
        withSelf:anObject 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1591
        parseExpression:aString 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1592
        onError:#Error 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1593
        notifying:someOne 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1594
        ignoreErrors:ignoreErrors 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1595
        ignoreWarnings:ignoreWarnings 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1596
        inNameSpace:aNameSpaceOrNil
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1597
!
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1598
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1599
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
  1600
    "parse aString as an expression with self set to anObject;
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1601
     Return the parseTree (if ok), nil (for an empty string 
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1602
     or comment only ) or errorValue (syntactic error).
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1603
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1604
     Errors and warnings are forwarded to someOne (usually some
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1605
     codeView) which can highlight it and show a popup box,
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1606
     iff ignoreErrors/ignoreWarnings is true respectively."
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1607
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1608
    |parser tree|
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  1609
7ad01559b262 Initial revision
claus
parents:
diff changeset
  1610
    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
  1611
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  1612
    parser := self for:(ReadStream on:aString).
1096
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1613
    tree := parser 
1006
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  1614
        parseExpressionWithSelf:anObject 
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  1615
        notifying:someOne 
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  1616
        ignoreErrors:ignoreErrors 
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  1617
        ignoreWarnings:ignoreWarnings 
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  1618
        inNameSpace:aNameSpaceOrNil.
1096
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1619
    tree == #Error ifTrue:[
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1620
        ^ errorValue value
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1621
    ].
d1d897aba4d5 added #parseExpression:onError: protocol.
Claus Gittinger <cg@exept.de>
parents: 1091
diff changeset
  1622
    ^ tree
1006
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  1623
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  1624
    "Modified: / 14.12.1999 / 15:12:16 / cg"
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  1625
! !
7ad01559b262 Initial revision
claus
parents:
diff changeset
  1626
358
78b0d8954c49 removed possible conflict between #classVarNames here and in Class.
Claus Gittinger <cg@exept.de>
parents: 354
diff changeset
  1627
!Parser class methodsFor:'unparsing'!
20
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1628
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1629
methodSpecificationForSelector:aSelector
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1630
    "given a selector such as #foo:bar:, return a string that could
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1631
     serve as a methods specification source code.
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1632
     To be used for code generators"
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1633
807
8434698556de *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 806
diff changeset
  1634
    |argNames n|
8434698556de *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 806
diff changeset
  1635
8434698556de *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 806
diff changeset
  1636
    n := aSelector numArgs.
8434698556de *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 806
diff changeset
  1637
    n == 1 ifTrue:[
8434698556de *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 806
diff changeset
  1638
        argNames := #('arg')
8434698556de *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 806
diff changeset
  1639
    ] ifFalse:[
8434698556de *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 806
diff changeset
  1640
        n <= 15 ifTrue:[
8434698556de *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 806
diff changeset
  1641
            argNames := #('arg1' 'arg2' 'arg3' 'arg4' 'arg5' 'arg6'
8434698556de *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 806
diff changeset
  1642
                          'arg7' 'arg8' 'arg9' 'arg10' 'arg11' 'arg12'
8434698556de *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 806
diff changeset
  1643
                          'arg13' 'arg14' 'arg15')
8434698556de *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 806
diff changeset
  1644
        ] ifFalse:[
8434698556de *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 806
diff changeset
  1645
            argNames := (1 to:aSelector numArgs) collect:[:i | 'arg' , i printString].
8434698556de *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 806
diff changeset
  1646
        ].
8434698556de *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 806
diff changeset
  1647
    ].
8434698556de *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 806
diff changeset
  1648
    ^ self methodSpecificationForSelector:aSelector argNames:argNames
8434698556de *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 806
diff changeset
  1649
20
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1650
    "
807
8434698556de *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 806
diff changeset
  1651
     Parser methodSpecificationForSelector:#foo:   
20
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1652
     Parser methodSpecificationForSelector:#foo:bar:   
807
8434698556de *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 806
diff changeset
  1653
     Parser methodSpecificationForSelector:#foo:bar:baz:   
21
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  1654
     Parser methodSpecificationForSelector:#+       
20
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1655
     Parser methodSpecificationForSelector:#negated   
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1656
    "
807
8434698556de *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 806
diff changeset
  1657
8434698556de *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 806
diff changeset
  1658
    "Modified: / 12.2.1999 / 13:12:44 / cg"
20
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1659
!
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1660
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1661
methodSpecificationForSelector:aSelector argNames:argNames
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1662
    "given a selector such as #foo:bar:, return a string that could
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1663
     serve as a methods specification source code.
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1664
     To be used for code generators"
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1665
806
bbfd3018e32e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 805
diff changeset
  1666
    |s nargs parts part|
20
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1667
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1668
    s := WriteStream on:String new.
44
74ddc944c27f *** empty log message ***
claus
parents: 35
diff changeset
  1669
    nargs := aSelector numArgs.
20
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1670
    nargs == 0 ifTrue:[
806
bbfd3018e32e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 805
diff changeset
  1671
        s nextPutAll:aSelector
20
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1672
    ] ifFalse:[
806
bbfd3018e32e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 805
diff changeset
  1673
        parts := aSelector partsIfSelector.
bbfd3018e32e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 805
diff changeset
  1674
        1 to:nargs do:[:i |
bbfd3018e32e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 805
diff changeset
  1675
            part := parts at:i.
bbfd3018e32e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 805
diff changeset
  1676
            s nextPutAll:part.
bbfd3018e32e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 805
diff changeset
  1677
            (part endsWith:$:) ifFalse:[
bbfd3018e32e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 805
diff changeset
  1678
                s space.
bbfd3018e32e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 805
diff changeset
  1679
            ].
bbfd3018e32e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 805
diff changeset
  1680
            s nextPutAll:(argNames at:i).
bbfd3018e32e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 805
diff changeset
  1681
            i ~~ nargs ifTrue:[s space].
bbfd3018e32e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 805
diff changeset
  1682
        ]
20
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1683
    ].
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1684
    ^ s contents
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1685
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1686
    "
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1687
     Parser methodSpecificationForSelector:#foo:bar: argNames:#('one' 'two' 'three')  
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1688
     Parser methodSpecificationForSelector:#+ argNames:#('one')  
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1689
     Parser methodSpecificationForSelector:#negated   
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1690
    "
806
bbfd3018e32e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 805
diff changeset
  1691
bbfd3018e32e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 805
diff changeset
  1692
    "Modified: / 12.2.1999 / 12:33:50 / cg"
20
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1693
! !
f8dd8ba75205 *** empty log message ***
claus
parents: 19
diff changeset
  1694
1417
7e97dd2df5ca method category rename
Claus Gittinger <cg@exept.de>
parents: 1413
diff changeset
  1695
!Parser methodsFor:'Compatibility-ST80'!
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  1696
918
e088f51a649e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 915
diff changeset
  1697
evaluate:aString in:aClassOrContext to:to notifying:aRequestor ifFail:failBlock
35
2884eed75e2a logging doits.
claus
parents: 23
diff changeset
  1698
    |parseTree value|
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  1699
7ad01559b262 Initial revision
claus
parents:
diff changeset
  1700
    aString isNil ifTrue:[^ nil].
7ad01559b262 Initial revision
claus
parents:
diff changeset
  1701
    self initializeFor:(ReadStream on:aString).
918
e088f51a649e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 915
diff changeset
  1702
e088f51a649e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 915
diff changeset
  1703
    "/ stupid - there seem to be differences among the various
e088f51a649e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 915
diff changeset
  1704
    "/ ST dialects ...
e088f51a649e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 915
diff changeset
  1705
    aClassOrContext isBehavior ifTrue:[
e088f51a649e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 915
diff changeset
  1706
        self setClassToCompileFor:aClassOrContext.
e088f51a649e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 915
diff changeset
  1707
        selfValue := nil.
e088f51a649e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 915
diff changeset
  1708
    ] ifFalse:[
e088f51a649e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 915
diff changeset
  1709
        self setContext:aClassOrContext.
e088f51a649e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 915
diff changeset
  1710
        aClassOrContext notNil ifTrue:[
e088f51a649e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 915
diff changeset
  1711
            self setSelf:(aClassOrContext receiver)
e088f51a649e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 915
diff changeset
  1712
        ].
e088f51a649e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 915
diff changeset
  1713
    ].
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  1714
    requestor := aRequestor.
7ad01559b262 Initial revision
claus
parents:
diff changeset
  1715
7ad01559b262 Initial revision
claus
parents:
diff changeset
  1716
    self nextToken.
7ad01559b262 Initial revision
claus
parents:
diff changeset
  1717
    parseTree := self parseMethodBody.
7ad01559b262 Initial revision
claus
parents:
diff changeset
  1718
    (errorFlag or:[tree == #Error]) ifTrue:[^ #Error].
7ad01559b262 Initial revision
claus
parents:
diff changeset
  1719
    parseTree notNil ifTrue:[
918
e088f51a649e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 915
diff changeset
  1720
        self evalExitBlock:[:value | ^ failBlock value].
e088f51a649e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 915
diff changeset
  1721
        value := parseTree evaluate
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  1722
    ].
35
2884eed75e2a logging doits.
claus
parents: 23
diff changeset
  1723
    self release.
2884eed75e2a logging doits.
claus
parents: 23
diff changeset
  1724
    ^ value
547
5a51414daf36 added #parseSelector for ST80 compatibility
Claus Gittinger <cg@exept.de>
parents: 541
diff changeset
  1725
!
5a51414daf36 added #parseSelector for ST80 compatibility
Claus Gittinger <cg@exept.de>
parents: 541
diff changeset
  1726
624
e71abe9654e6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 619
diff changeset
  1727
parse:methodSource in:aClass notifying:aRequestor
e71abe9654e6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 619
diff changeset
  1728
    "parse a methods source.
e71abe9654e6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 619
diff changeset
  1729
     Return the methods parseTree"
e71abe9654e6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 619
diff changeset
  1730
e71abe9654e6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 619
diff changeset
  1731
    self initializeFor:methodSource.
e71abe9654e6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 619
diff changeset
  1732
    classToCompileFor := aClass.
e71abe9654e6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 619
diff changeset
  1733
    requestor := aRequestor.
e71abe9654e6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 619
diff changeset
  1734
    self parseMethod.
918
e088f51a649e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 915
diff changeset
  1735
624
e71abe9654e6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 619
diff changeset
  1736
    ^ MethodNode new
e71abe9654e6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 619
diff changeset
  1737
        selector:selector
e71abe9654e6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 619
diff changeset
  1738
        arguments:methodArgs
e71abe9654e6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 619
diff changeset
  1739
        locals:methodVars
1207
8b07493663e4 *** empty log message ***
james
parents: 1206
diff changeset
  1740
        statements:tree asCollectionOfStatements
624
e71abe9654e6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 619
diff changeset
  1741
1214
df80d1034ebe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1212
diff changeset
  1742
    "Created: / 17.10.1997 / 12:35:01 / cg"
df80d1034ebe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1212
diff changeset
  1743
    "Modified: / 5.11.2001 / 16:56:43 / cg"
624
e71abe9654e6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 619
diff changeset
  1744
!
e71abe9654e6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 619
diff changeset
  1745
547
5a51414daf36 added #parseSelector for ST80 compatibility
Claus Gittinger <cg@exept.de>
parents: 541
diff changeset
  1746
parseSelector:aStringOrStream
624
e71abe9654e6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 619
diff changeset
  1747
    "parse a methods source for the methods selector.
e71abe9654e6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 619
diff changeset
  1748
     Return the selector"
e71abe9654e6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 619
diff changeset
  1749
547
5a51414daf36 added #parseSelector for ST80 compatibility
Claus Gittinger <cg@exept.de>
parents: 541
diff changeset
  1750
    self initializeFor:aStringOrStream.
5a51414daf36 added #parseSelector for ST80 compatibility
Claus Gittinger <cg@exept.de>
parents: 541
diff changeset
  1751
    self parseMethodSpec.
5a51414daf36 added #parseSelector for ST80 compatibility
Claus Gittinger <cg@exept.de>
parents: 541
diff changeset
  1752
    ^ selector.
5a51414daf36 added #parseSelector for ST80 compatibility
Claus Gittinger <cg@exept.de>
parents: 541
diff changeset
  1753
5a51414daf36 added #parseSelector for ST80 compatibility
Claus Gittinger <cg@exept.de>
parents: 541
diff changeset
  1754
    "
5a51414daf36 added #parseSelector for ST80 compatibility
Claus Gittinger <cg@exept.de>
parents: 541
diff changeset
  1755
     Parser new
624
e71abe9654e6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 619
diff changeset
  1756
        parseSelector:'
547
5a51414daf36 added #parseSelector for ST80 compatibility
Claus Gittinger <cg@exept.de>
parents: 541
diff changeset
  1757
parseSelector:aStringOrStream
5a51414daf36 added #parseSelector for ST80 compatibility
Claus Gittinger <cg@exept.de>
parents: 541
diff changeset
  1758
    self initializeFor:aStringOrStream.
5a51414daf36 added #parseSelector for ST80 compatibility
Claus Gittinger <cg@exept.de>
parents: 541
diff changeset
  1759
    self parseMethodSpec.
5a51414daf36 added #parseSelector for ST80 compatibility
Claus Gittinger <cg@exept.de>
parents: 541
diff changeset
  1760
    ^ selector.
5a51414daf36 added #parseSelector for ST80 compatibility
Claus Gittinger <cg@exept.de>
parents: 541
diff changeset
  1761
'                 
5a51414daf36 added #parseSelector for ST80 compatibility
Claus Gittinger <cg@exept.de>
parents: 541
diff changeset
  1762
    "
5a51414daf36 added #parseSelector for ST80 compatibility
Claus Gittinger <cg@exept.de>
parents: 541
diff changeset
  1763
624
e71abe9654e6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 619
diff changeset
  1764
    "Modified: 17.10.1997 / 12:35:46 / cg"
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  1765
! !
7ad01559b262 Initial revision
claus
parents:
diff changeset
  1766
1221
2768cbe3be2b finished remove unused vars;
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
  1767
!Parser methodsFor:'Signal constants'!
2768cbe3be2b finished remove unused vars;
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
  1768
2768cbe3be2b finished remove unused vars;
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
  1769
restartCompilationSignal
2768cbe3be2b finished remove unused vars;
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
  1770
    ^ RestartCompilationSignal
2768cbe3be2b finished remove unused vars;
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
  1771
2768cbe3be2b finished remove unused vars;
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
  1772
    "Created: / 15.11.2001 / 22:57:05 / cg"
2768cbe3be2b finished remove unused vars;
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
  1773
! !
2768cbe3be2b finished remove unused vars;
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
  1774
44
74ddc944c27f *** empty log message ***
claus
parents: 35
diff changeset
  1775
!Parser methodsFor:'accessing'!
74ddc944c27f *** empty log message ***
claus
parents: 35
diff changeset
  1776
74ddc944c27f *** empty log message ***
claus
parents: 35
diff changeset
  1777
correctedSource
74ddc944c27f *** empty log message ***
claus
parents: 35
diff changeset
  1778
    ^ correctedSource
74ddc944c27f *** empty log message ***
claus
parents: 35
diff changeset
  1779
!
74ddc944c27f *** empty log message ***
claus
parents: 35
diff changeset
  1780
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1781
errorFlag
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1782
    "return true if there where any errors (valid after parsing)"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1783
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1784
    ^ errorFlag
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1785
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1786
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1787
evalExitBlock:aBlock
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1788
    "when evaluating a return expression, this block is evaluated"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1789
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1790
    evalExitBlock := aBlock
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
427
3d6a4d002824 pass remembered nameSpace back from upQueries
Claus Gittinger <cg@exept.de>
parents: 424
diff changeset
  1793
getNameSpace
3d6a4d002824 pass remembered nameSpace back from upQueries
Claus Gittinger <cg@exept.de>
parents: 424
diff changeset
  1794
    "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
  1795
3d6a4d002824 pass remembered nameSpace back from upQueries
Claus Gittinger <cg@exept.de>
parents: 424
diff changeset
  1796
    ^ currentNamespace
3d6a4d002824 pass remembered nameSpace back from upQueries
Claus Gittinger <cg@exept.de>
parents: 424
diff changeset
  1797
3d6a4d002824 pass remembered nameSpace back from upQueries
Claus Gittinger <cg@exept.de>
parents: 424
diff changeset
  1798
    "Modified: 8.11.1996 / 13:45:35 / cg"
3d6a4d002824 pass remembered nameSpace back from upQueries
Claus Gittinger <cg@exept.de>
parents: 424
diff changeset
  1799
!
3d6a4d002824 pass remembered nameSpace back from upQueries
Claus Gittinger <cg@exept.de>
parents: 424
diff changeset
  1800
19
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  1801
primitiveNumber
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  1802
    "return the ST-80 style primitiveNumber or nil (valid after parsing)"
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  1803
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  1804
    ^ primitiveNr
480
e4ac7e62ca9a better block-var name detection in debugger
Claus Gittinger <cg@exept.de>
parents: 473
diff changeset
  1805
!
97
claus
parents: 96
diff changeset
  1806
285
19e8d6d22278 allow multiple resource definitions
Claus Gittinger <cg@exept.de>
parents: 273
diff changeset
  1807
primitiveResources
19e8d6d22278 allow multiple resource definitions
Claus Gittinger <cg@exept.de>
parents: 273
diff changeset
  1808
    "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
  1809
19e8d6d22278 allow multiple resource definitions
Claus Gittinger <cg@exept.de>
parents: 273
diff changeset
  1810
    ^ primitiveResource
19e8d6d22278 allow multiple resource definitions
Claus Gittinger <cg@exept.de>
parents: 273
diff changeset
  1811
19e8d6d22278 allow multiple resource definitions
Claus Gittinger <cg@exept.de>
parents: 273
diff changeset
  1812
    "Created: 29.5.1996 / 17:28:00 / cg"
19e8d6d22278 allow multiple resource definitions
Claus Gittinger <cg@exept.de>
parents: 273
diff changeset
  1813
!
19e8d6d22278 allow multiple resource definitions
Claus Gittinger <cg@exept.de>
parents: 273
diff changeset
  1814
35
2884eed75e2a logging doits.
claus
parents: 23
diff changeset
  1815
release
664
63d1460e8ee3 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 663
diff changeset
  1816
    methodArgs := methodVars := tree := selfNode := superNode := nilNode := nil.
35
2884eed75e2a logging doits.
claus
parents: 23
diff changeset
  1817
    super release.
664
63d1460e8ee3 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 663
diff changeset
  1818
63d1460e8ee3 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 663
diff changeset
  1819
    "Modified: / 31.3.1998 / 19:45:58 / cg"
90
claus
parents: 87
diff changeset
  1820
!
claus
parents: 87
diff changeset
  1821
427
3d6a4d002824 pass remembered nameSpace back from upQueries
Claus Gittinger <cg@exept.de>
parents: 424
diff changeset
  1822
setNameSpace:aNameSpaceName
1041
98fa50f8353f renamed Namespace to NameSpace
Claus Gittinger <cg@exept.de>
parents: 1040
diff changeset
  1823
    currentNamespace := NameSpace fullName:aNameSpaceName
427
3d6a4d002824 pass remembered nameSpace back from upQueries
Claus Gittinger <cg@exept.de>
parents: 424
diff changeset
  1824
3d6a4d002824 pass remembered nameSpace back from upQueries
Claus Gittinger <cg@exept.de>
parents: 424
diff changeset
  1825
    "Modified: 8.11.1996 / 13:43:14 / cg"
3d6a4d002824 pass remembered nameSpace back from upQueries
Claus Gittinger <cg@exept.de>
parents: 424
diff changeset
  1826
!
3d6a4d002824 pass remembered nameSpace back from upQueries
Claus Gittinger <cg@exept.de>
parents: 424
diff changeset
  1827
1247
ce0d19140248 care for package directive (remember)
Claus Gittinger <cg@exept.de>
parents: 1246
diff changeset
  1828
setPackage:aPackageID
ce0d19140248 care for package directive (remember)
Claus Gittinger <cg@exept.de>
parents: 1246
diff changeset
  1829
    currentPackage := aPackageID
ce0d19140248 care for package directive (remember)
Claus Gittinger <cg@exept.de>
parents: 1246
diff changeset
  1830
!
ce0d19140248 care for package directive (remember)
Claus Gittinger <cg@exept.de>
parents: 1246
diff changeset
  1831
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1832
targetClass
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1833
    ^ classToCompileFor
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1834
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1835
90
claus
parents: 87
diff changeset
  1836
targetClass:aClass
117
claus
parents: 103
diff changeset
  1837
    classToCompileFor := aClass
claus
parents: 103
diff changeset
  1838
!
claus
parents: 103
diff changeset
  1839
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1840
tree
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1841
    "return the parsetree"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1842
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1843
    ^tree
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1844
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1845
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1846
tree:aTree
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1847
    "private: set the tree - for internal use only"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1848
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1849
    tree := aTree
1363
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  1850
!
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  1851
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  1852
warnSTXHereExtensionUsed
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  1853
    "return the value of the instance variable 'warnSTXHereExtensionUsed' (automatically generated)"
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  1854
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  1855
    ^ warnSTXHereExtensionUsed
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1856
! !
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1857
1418
4aae7d34124a method category rename
Claus Gittinger <cg@exept.de>
parents: 1417
diff changeset
  1858
!Parser methodsFor:'dummy-syntax detection'!
660
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  1859
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  1860
markArgumentIdentifierFrom:pos1 to:pos2
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  1861
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  1862
    "Created: / 31.3.1998 / 13:22:15 / cg"
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  1863
!
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  1864
883
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  1865
markBadIdentifierFrom:pos1 to:pos2
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  1866
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  1867
    "Modified: / 31.3.1998 / 19:16:26 / cg"
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  1868
    "Created: / 31.3.1998 / 19:35:53 / cg"
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  1869
!
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  1870
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1871
markBooleanConstantFrom:pos1 to:pos2
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1872
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1873
    "Created: / 31.3.1998 / 18:06:22 / cg"
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1874
!
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1875
673
0c66b7cb1d2f checkin from browser
ca
parents: 672
diff changeset
  1876
markBracketAt:pos
0c66b7cb1d2f checkin from browser
ca
parents: 672
diff changeset
  1877
!
0c66b7cb1d2f checkin from browser
ca
parents: 672
diff changeset
  1878
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1879
markConstantFrom:pos1 to:pos2
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1880
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1881
    "Created: / 31.3.1998 / 18:06:24 / cg"
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1882
!
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1883
822
a773bb72cbd6 added extra globalClassIdentifierColor & emphasis
Claus Gittinger <cg@exept.de>
parents: 815
diff changeset
  1884
markGlobalClassIdentifierFrom:pos1 to:pos2
a773bb72cbd6 added extra globalClassIdentifierColor & emphasis
Claus Gittinger <cg@exept.de>
parents: 815
diff changeset
  1885
a773bb72cbd6 added extra globalClassIdentifierColor & emphasis
Claus Gittinger <cg@exept.de>
parents: 815
diff changeset
  1886
    "Created: / 4.3.1999 / 12:52:45 / cg"
a773bb72cbd6 added extra globalClassIdentifierColor & emphasis
Claus Gittinger <cg@exept.de>
parents: 815
diff changeset
  1887
!
a773bb72cbd6 added extra globalClassIdentifierColor & emphasis
Claus Gittinger <cg@exept.de>
parents: 815
diff changeset
  1888
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1889
markGlobalIdentifierFrom:pos1 to:pos2
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1890
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1891
    "Created: / 31.3.1998 / 15:29:39 / cg"
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1892
!
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1893
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1894
markHereFrom: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 / 17:39:01 / 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
markIdentifierFrom: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 / 18:06:17 / 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
687
27565829b5d4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 685
diff changeset
  1904
markInstVarIdentifierFrom:pos1 to:pos2
27565829b5d4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 685
diff changeset
  1905
27565829b5d4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 685
diff changeset
  1906
    "Created: / 16.4.1998 / 18:34:10 / cg"
27565829b5d4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 685
diff changeset
  1907
!
27565829b5d4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 685
diff changeset
  1908
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1909
markLocalIdentifierFrom:pos1 to:pos2
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1910
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1911
    "Created: / 31.3.1998 / 15:29:35 / cg"
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1912
!
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1913
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1914
markMethodSelectorFrom: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
    "Modified: / 31.3.1998 / 13:30:09 / cg"
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1917
    "Created: / 31.3.1998 / 16:39:44 / cg"
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
837
b09e08bb3d5e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 832
diff changeset
  1920
markReturnAt:pos
b09e08bb3d5e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 832
diff changeset
  1921
b09e08bb3d5e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 832
diff changeset
  1922
    "Created: / 5.1.1980 / 00:48:24 / cg"
b09e08bb3d5e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 832
diff changeset
  1923
!
b09e08bb3d5e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 832
diff changeset
  1924
864
a716d90fa5a9 better selector marking
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
  1925
markSelector:sel from:pos1 to:pos2 receiverNode:aNode
a716d90fa5a9 better selector marking
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
  1926
a716d90fa5a9 better selector marking
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
  1927
    "Created: / 31.3.1998 / 13:22:15 / cg"
a716d90fa5a9 better selector marking
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
  1928
    "Modified: / 31.3.1998 / 13:30:09 / cg"
a716d90fa5a9 better selector marking
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
  1929
!
a716d90fa5a9 better selector marking
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
  1930
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1931
markSelfFrom:pos1 to:pos2
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1932
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1933
    "Created: / 31.3.1998 / 17:49:38 / cg"
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1934
!
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1935
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  1936
markSuperFrom: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:40:20 / cg"
664
63d1460e8ee3 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 663
diff changeset
  1939
!
63d1460e8ee3 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 663
diff changeset
  1940
63d1460e8ee3 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 663
diff changeset
  1941
markUnknownIdentifierFrom:pos1 to:pos2
63d1460e8ee3 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 663
diff changeset
  1942
63d1460e8ee3 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 663
diff changeset
  1943
    "Modified: / 31.3.1998 / 19:16:26 / cg"
63d1460e8ee3 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 663
diff changeset
  1944
    "Created: / 31.3.1998 / 19:35:53 / cg"
687
27565829b5d4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 685
diff changeset
  1945
!
27565829b5d4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 685
diff changeset
  1946
27565829b5d4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 685
diff changeset
  1947
markVariable:v
27565829b5d4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 685
diff changeset
  1948
    "support for syntaxColoring"
27565829b5d4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 685
diff changeset
  1949
27565829b5d4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 685
diff changeset
  1950
    "Modified: / 16.4.1998 / 18:47:45 / cg"
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
27565829b5d4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 685
diff changeset
  1953
markVariable:v from:pos1 to:pos2
27565829b5d4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 685
diff changeset
  1954
    "support for syntaxColoring"
27565829b5d4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 685
diff changeset
  1955
27565829b5d4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 685
diff changeset
  1956
    "Modified: / 16.4.1998 / 18:47:45 / cg"
27565829b5d4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 685
diff changeset
  1957
    "Created: / 16.4.1998 / 18:50:03 / cg"
660
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  1958
! !
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  1959
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1960
!Parser methodsFor:'error correction'!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1961
1295
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  1962
addDoItTemporary:varName
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  1963
    |holder|
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  1964
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  1965
    doItTemporaries isNil ifTrue:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  1966
        doItTemporaries := IdentityDictionary new.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  1967
    ].
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  1968
    doItTemporaries at:varName asSymbol put:(holder := ValueHolder new).
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  1969
    ^ holder
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  1970
!
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  1971
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1972
askForCorrection:aString fromList:aList
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1973
    "launch a selection box, which allows user to enter correction.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1974
     return newString or nil (for abort)"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1975
1323
34b29c93134b fixed correct for doits
Claus Gittinger <cg@exept.de>
parents: 1322
diff changeset
  1976
    |box rslt|
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1977
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1978
    "in systems without widgets ..."
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1979
    ListSelectionBox isNil ifTrue:[
1285
32af9747bf9d error messages
Claus Gittinger <cg@exept.de>
parents: 1282
diff changeset
  1980
        ^ self confirm:aString
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1981
    ].
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1982
    box := ListSelectionBox title:aString.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1983
    box initialText:(aList at:1).
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1984
    box list:aList.
1285
32af9747bf9d error messages
Claus Gittinger <cg@exept.de>
parents: 1282
diff changeset
  1985
    box okText:'Correct'.
1323
34b29c93134b fixed correct for doits
Claus Gittinger <cg@exept.de>
parents: 1322
diff changeset
  1986
    box action:[:aString | rslt := aString].
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  1987
    box showAtPointer.
1323
34b29c93134b fixed correct for doits
Claus Gittinger <cg@exept.de>
parents: 1322
diff changeset
  1988
    box destroy.
34b29c93134b fixed correct for doits
Claus Gittinger <cg@exept.de>
parents: 1322
diff changeset
  1989
    ^ rslt
34b29c93134b fixed correct for doits
Claus Gittinger <cg@exept.de>
parents: 1322
diff changeset
  1990
!
34b29c93134b fixed correct for doits
Claus Gittinger <cg@exept.de>
parents: 1322
diff changeset
  1991
34b29c93134b fixed correct for doits
Claus Gittinger <cg@exept.de>
parents: 1322
diff changeset
  1992
askForCorrection:aString fromList:aList for:originalSelector
34b29c93134b fixed correct for doits
Claus Gittinger <cg@exept.de>
parents: 1322
diff changeset
  1993
    "launch a selection box, which allows user to enter correction.
34b29c93134b fixed correct for doits
Claus Gittinger <cg@exept.de>
parents: 1322
diff changeset
  1994
     return newString or nil (for abort)"
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
    |box rslt|
34b29c93134b fixed correct for doits
Claus Gittinger <cg@exept.de>
parents: 1322
diff changeset
  1997
34b29c93134b fixed correct for doits
Claus Gittinger <cg@exept.de>
parents: 1322
diff changeset
  1998
    "in systems without widgets ..."
34b29c93134b fixed correct for doits
Claus Gittinger <cg@exept.de>
parents: 1322
diff changeset
  1999
    ListSelectionBox isNil ifTrue:[
34b29c93134b fixed correct for doits
Claus Gittinger <cg@exept.de>
parents: 1322
diff changeset
  2000
        ^ self confirm:aString
34b29c93134b fixed correct for doits
Claus Gittinger <cg@exept.de>
parents: 1322
diff changeset
  2001
    ].
34b29c93134b fixed correct for doits
Claus Gittinger <cg@exept.de>
parents: 1322
diff changeset
  2002
    box := ListSelectionBox title:aString.
34b29c93134b fixed correct for doits
Claus Gittinger <cg@exept.de>
parents: 1322
diff changeset
  2003
    box initialText:(aList at:1).
34b29c93134b fixed correct for doits
Claus Gittinger <cg@exept.de>
parents: 1322
diff changeset
  2004
    box list:aList.
34b29c93134b fixed correct for doits
Claus Gittinger <cg@exept.de>
parents: 1322
diff changeset
  2005
    box okText:'Correct'.
34b29c93134b fixed correct for doits
Claus Gittinger <cg@exept.de>
parents: 1322
diff changeset
  2006
    box action:[:aString | rslt := aString].
34b29c93134b fixed correct for doits
Claus Gittinger <cg@exept.de>
parents: 1322
diff changeset
  2007
    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
  2008
    box showAtPointer.
34b29c93134b fixed correct for doits
Claus Gittinger <cg@exept.de>
parents: 1322
diff changeset
  2009
    box destroy.
34b29c93134b fixed correct for doits
Claus Gittinger <cg@exept.de>
parents: 1322
diff changeset
  2010
    ^ rslt
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2011
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2012
1295
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2013
askForVariableTypeWhenDeclaringUndefined:varName
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2014
    |l how varNameIsLowercase choice holder newClass|
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2015
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2016
    l := #().
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2017
    how := #().
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2018
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2019
    varNameIsLowercase := (varName at:1) isLowercase.
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
    "/ BlockVar, InstVar and classInstVar not yet implemented
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2022
    varNameIsLowercase ifTrue:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2023
"/            currentBlock notNil ifTrue:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2024
"/                l := l , #( 'Block local' ).
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2025
"/                how := how , #( BlockVariable ).
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2026
"/            ].
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2027
        selector notNil ifTrue:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2028
            l := l , #( 'Method Local Variable' ).
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2029
            how := how , #( MethodVariable ).
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2030
        ].
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2031
        (classToCompileFor notNil
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2032
        and:[classToCompileFor isMeta not
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2033
        and:[classToCompileFor isBuiltInClass not 
1440
7084ae99ced7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1439
diff changeset
  2034
        and:[(self isDoIt not)]]]) ifTrue:[
1295
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2035
            l := l copyWith:'Instance Variable'.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2036
            how := how copyWith: #InstanceVariable.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2037
        ].
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2038
    ] ifFalse:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2039
        l := l , #( 'New Class' 'Global' 'NameSpace' ).
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2040
        how := how , #( NewClass GlobalVariable NameSpace ).
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2041
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2042
        (classToCompileFor notNil
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2043
        and:[classToCompileFor isBuiltInClass not
1440
7084ae99ced7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1439
diff changeset
  2044
        and:[self isDoIt not]]) ifTrue:[
1295
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2045
            classToCompileFor isMeta ifTrue:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2046
                l := l , #('Class Instance Variable').
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2047
                how := how , #( ClassInstanceVariable).
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2048
            ].
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2049
            l := l , #('Class Variable' ).
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2050
            how := how , #( ClassVariable).
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2051
        ]
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2052
    ].
1440
7084ae99ced7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1439
diff changeset
  2053
    self isDoIt ifTrue:[
1295
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2054
        l size > 0 ifTrue:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2055
            l := l ,  #( '-' ).
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2056
            how := how , #( nil ).
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2057
        ].
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2058
        l := l , #( 'Workspace Variable' 'DoIt Temporary').
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2059
        how := how , #( WorkspaceVariable DoItTemporary ).
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2060
    ].
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2061
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2062
    l size > 0 ifTrue:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2063
        l := (Array with:('Declare ' , varName allBold , ' as:') 
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2064
                    with:'-'
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2065
             ) , l.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2066
        how := #(nil nil) , how.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2067
        choice := (PopUpMenu labels:l) startUp.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2068
        (choice notNil and:[choice > 0]) ifTrue:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2069
            choice := how at:choice.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2070
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2071
            choice == #WorkspaceVariable ifTrue:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2072
                holder := Workspace addWorkspaceVariable:varName.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2073
                ^ VariableNode type:#WorkspaceVariable holder:holder name:varName
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2074
            ].
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2075
            choice == #DoItTemporary ifTrue:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2076
                holder := self addDoItTemporary:varName.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2077
                ^ VariableNode type:#DoItTemporary holder:holder name:varName
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2078
            ].
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 == #GlobalVariable ifTrue:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2081
                Smalltalk at:varName asSymbol put:nil.
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  2082
                ^ VariableNode globalNamed:varName
1295
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 == #NewClass ifTrue:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2086
                newClass := Object subclass:varName asSymbol
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2087
                       instanceVariableNames:''
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2088
                       classVariableNames:''
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2089
                       poolDictionaries:''
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2090
                       category:'* As yet uncategorized *'.
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  2091
                ^ VariableNode globalNamed:newClass name
1295
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2092
            ].
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2093
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2094
            choice == #NameSpace ifTrue:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2095
                NameSpace name:varName.
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  2096
                ^ VariableNode globalNamed:varName
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 == #ClassVariable ifTrue:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2100
                classToCompileFor theNonMetaclass addClassVarName:varName.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2101
                ^ VariableNode type:#ClassVariable class:classToCompileFor theNonMetaclass name:varName
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 == #InstanceVariable ifTrue:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2105
                classToCompileFor theNonMetaclass addInstVarName:varName.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2106
                "/ ST/X special - classToCompileFor is obsoleted
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2107
                classToCompileFor := Smalltalk classNamed:(classToCompileFor name).
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2108
                RestartCompilationSignal raise.    
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2109
                "/ not reached - restarted compile will not arrive here again
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2110
                self error:'restart compile failed'.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2111
            ].
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2112
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2113
            choice == #ClassInstanceVariable ifTrue:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2114
                classToCompileFor theMetaclass addInstVarName:varName.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2115
                "/ ST/X special - classToCompileFor is obsoleted
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2116
                classToCompileFor := Smalltalk classNamed:(classToCompileFor name).
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2117
                RestartCompilationSignal raise.    
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2118
                "/ not reached - restarted compile will not arrive here again
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2119
                self error:'restart compile failed'.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2120
            ].
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2121
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2122
            choice == #MethodVariable ifTrue:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2123
                |varIndex var endLocalsPos posToInsert ins|
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2124
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2125
                localVarDefPosition size == 2 ifTrue:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2126
                    endLocalsPos := posToInsert := localVarDefPosition at:2.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2127
                    ins := ' ' , varName.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2128
                ] ifFalse:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2129
                    endOfSelectorPosition notNil ifTrue:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2130
                         posToInsert := endOfSelectorPosition.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2131
                         ins := '|' , varName , '|' , Character cr asString , Character cr asString.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2132
                         ins := ins , (String new:(requestor colOfCharacterPosition:posToInsert)-1).   
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2133
                    ]
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2134
                ].
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2135
                posToInsert notNil ifTrue:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2136
                    requestor 
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2137
                        insertString:ins
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2138
                        atCharacterPosition:posToInsert.
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
                    endLocalsPos notNil ifTrue:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2141
                        localVarDefPosition at:2 put:(endLocalsPos + varName size + 1).
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2142
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2143
                        methodVarNames := methodVarNames copyWith:varName.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2144
                        methodVars := methodVars copyWith:(var := Variable new name:varName).
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2145
                    ] ifFalse:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2146
                        localVarDefPosition := Array with:posToInsert with:posToInsert+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 := Array with:varName.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2149
                        methodVars := Array with:(var := Variable new name:varName).
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2150
                    ].
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2151
                    correctedSource := requestor currentSourceCode.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2152
                    source := (ReadStream on:correctedSource)
1371
de4c37ac12fc code rewritten to be independent of stream zero-base
Claus Gittinger <cg@exept.de>
parents: 1369
diff changeset
  2153
                                  position:(source position1Based + ins size).
1295
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2154
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2155
                    varIndex := methodVarNames size.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2156
                    var used:true.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2157
                    ^ VariableNode type:#MethodVariable
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2158
                                   name:varName
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2159
                                   token:var
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2160
                                   index:varIndex
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2161
                ].
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2162
            ].
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2163
            self warning:'Sorry - unimplemented (adding ' , choice , ')'.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2164
        ].
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2165
        ^ #Error
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
    ^ nil.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2168
!
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2169
1158
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2170
checkSelector:selector inClass:cls
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2171
    "check wether a method with selector exists in class cls an
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2172
     that the methos is not obsolete.
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2173
     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
  2174
1190
8600334a549e oops - avoid cought error if method is parsed in no class.
Claus Gittinger <cg@exept.de>
parents: 1189
diff changeset
  2175
    |err mthd implementor implementors|
8600334a549e oops - avoid cought error if method is parsed in no class.
Claus Gittinger <cg@exept.de>
parents: 1189
diff changeset
  2176
8600334a549e oops - avoid cought error if method is parsed in no class.
Claus Gittinger <cg@exept.de>
parents: 1189
diff changeset
  2177
    cls isNil ifTrue:[
8600334a549e oops - avoid cought error if method is parsed in no class.
Claus Gittinger <cg@exept.de>
parents: 1189
diff changeset
  2178
        implementors := SystemBrowser 
8600334a549e oops - avoid cought error if method is parsed in no class.
Claus Gittinger <cg@exept.de>
parents: 1189
diff changeset
  2179
                         findImplementorsOf:selector
8600334a549e oops - avoid cought error if method is parsed in no class.
Claus Gittinger <cg@exept.de>
parents: 1189
diff changeset
  2180
                         in:(Smalltalk allClasses)
8600334a549e oops - avoid cought error if method is parsed in no class.
Claus Gittinger <cg@exept.de>
parents: 1189
diff changeset
  2181
                         ignoreCase:false.
8600334a549e oops - avoid cought error if method is parsed in no class.
Claus Gittinger <cg@exept.de>
parents: 1189
diff changeset
  2182
        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
  2183
            ^ 'is nowhere implemented'
8600334a549e oops - avoid cought error if method is parsed in no class.
Claus Gittinger <cg@exept.de>
parents: 1189
diff changeset
  2184
        ].
8600334a549e oops - avoid cought error if method is parsed in no class.
Claus Gittinger <cg@exept.de>
parents: 1189
diff changeset
  2185
        ^ nil
8600334a549e oops - avoid cought error if method is parsed in no class.
Claus Gittinger <cg@exept.de>
parents: 1189
diff changeset
  2186
    ].
1158
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2187
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2188
    mthd := cls lookupMethodFor:selector.
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2189
    mthd isNil ifTrue:[
1327
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2190
        cls == Boolean ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2191
            mthd := True lookupMethodFor:selector.
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2192
            mthd isNil ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2193
                mthd := False lookupMethodFor:selector.
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2194
            ].
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2195
        ]
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2196
    ].
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2197
    mthd isNil ifTrue:[
1158
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2198
        "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
  2199
        implementor := cls whichClassIncludesSelector:#doesNotUnderstand:.
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2200
        (implementor isNil or:[implementor == Object]) ifTrue:[
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2201
            err := 'is not implemented'
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2202
        ].
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2203
    ] ifFalse:[
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2204
        mthd isObsolete ifTrue:[
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2205
            err := 'is deprecated'.
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2206
        ].
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
    ^ err.
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2209
!
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2210
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2211
correctByDeleting
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2212
    "correct (by deleting token) if user wants to;
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2213
     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
  2214
     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
  2215
834399365be9 Highlighting of undefined variables didn't work after first correction
Stefan Vogel <sv@exept.de>
parents: 640
diff changeset
  2216
    |selectionSize|
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2217
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2218
    (self confirm:'confirm deleting') ifFalse:[^ #Error].
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2219
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2220
    "
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2221
     tell requestor (i.e. CodeView) about the change
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2222
     this will update what the requestor shows.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2223
    "
644
834399365be9 Highlighting of undefined variables didn't work after first correction
Stefan Vogel <sv@exept.de>
parents: 640
diff changeset
  2224
    selectionSize := requestor selection size.
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2225
    requestor deleteSelection.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2226
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2227
    "
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2228
     get the updated source-string 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2229
     which is needed, when we eventually install the new method
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2230
    "
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2231
    correctedSource := requestor currentSourceCode.
1167
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2232
    "/ 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
  2233
    source := (ReadStream on:correctedSource)
1371
de4c37ac12fc code rewritten to be independent of stream zero-base
Claus Gittinger <cg@exept.de>
parents: 1369
diff changeset
  2234
                  position:(source position1Based - selectionSize).
1369
2304dd8c3173 recompilation after correct-by-deleting unused local
Claus Gittinger <cg@exept.de>
parents: 1368
diff changeset
  2235
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2236
    ^ nil
644
834399365be9 Highlighting of undefined variables didn't work after first correction
Stefan Vogel <sv@exept.de>
parents: 640
diff changeset
  2237
834399365be9 Highlighting of undefined variables didn't work after first correction
Stefan Vogel <sv@exept.de>
parents: 640
diff changeset
  2238
    "Modified: / 22.1.1998 / 16:39:11 / stefan"
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2239
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2240
1439
0fddfcdca37b selector check improved
Claus Gittinger <cg@exept.de>
parents: 1437
diff changeset
  2241
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
  2242
    "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
  2243
     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
  2244
     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
  2245
1439
0fddfcdca37b selector check improved
Claus Gittinger <cg@exept.de>
parents: 1437
diff changeset
  2246
    |correctIt suggestedNames newSelector className classToGenerateCode pos1 pos2|
0fddfcdca37b selector check improved
Claus Gittinger <cg@exept.de>
parents: 1437
diff changeset
  2247
0fddfcdca37b selector check improved
Claus Gittinger <cg@exept.de>
parents: 1437
diff changeset
  2248
    pos1 := posVector first start.
0fddfcdca37b selector check improved
Claus Gittinger <cg@exept.de>
parents: 1437
diff changeset
  2249
    pos2 := posVector last stop.
1156
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2250
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2251
    alreadyWarnedUnimplementedSelectors isNil ifTrue:[
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2252
        alreadyWarnedUnimplementedSelectors := Set new
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2253
    ].
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2254
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2255
    (alreadyWarnedUnimplementedSelectors includes:aSelectorString) ifTrue:[
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2256
        ^ aSelectorString
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2257
    ].
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2258
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2259
    "
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2260
     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
  2261
     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
  2262
    "
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2263
    (aSelectorString occurrencesOf:$:) > 1 ifTrue:[
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2264
        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
  2265
        alreadyWarnedUnimplementedSelectors add:aSelectorString.
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2266
        ^ aSelectorString
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2267
    ].
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2268
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2269
    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
  2270
    correctIt == #generate ifTrue:[
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2271
        receiverNode isSelf ifTrue:[
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2272
            classToGenerateCode := classToCompileFor
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2273
        ] ifFalse:[
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2274
            receiverNode isVariable ifTrue:[
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2275
                receiverNode isGlobal ifTrue:[
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2276
                    classToGenerateCode := receiverNode evaluate.
1336
67ea8b161346 Generate class methods in class.
Stefan Vogel <sv@exept.de>
parents: 1335
diff changeset
  2277
                    classToGenerateCode isBehavior ifTrue:[
67ea8b161346 Generate class methods in class.
Stefan Vogel <sv@exept.de>
parents: 1335
diff changeset
  2278
                        classToGenerateCode :=  classToGenerateCode theMetaclass.
67ea8b161346 Generate class methods in class.
Stefan Vogel <sv@exept.de>
parents: 1335
diff changeset
  2279
                    ] ifFalse:[
1156
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2280
                        classToGenerateCode := nil
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2281
                    ].
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2282
                ].
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2283
            ]
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2284
        ].
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2285
        classToGenerateCode isNil ifTrue:[
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2286
            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
  2287
            className size == 0 ifTrue:[
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2288
                ^ aSelectorString
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
            classToGenerateCode := Smalltalk at:className asSymbol.
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2291
            classToGenerateCode isNil ifTrue:[
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2292
                self warn:'No such class.'.
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2293
                ^ aSelectorString
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2294
            ].
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2295
        ].
1252
666db3206028 #implements: -> #includesSelector:
Claus Gittinger <cg@exept.de>
parents: 1247
diff changeset
  2296
        (classToGenerateCode includesSelector:aSelectorString asSymbol) ifFalse:[
1158
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2297
            "do not overwrite an already existant (deprecated) method"
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2298
            classToGenerateCode
1336
67ea8b161346 Generate class methods in class.
Stefan Vogel <sv@exept.de>
parents: 1335
diff changeset
  2299
                compile:((self class methodSpecificationForSelector:aSelectorString) , '\    self shouldImplement' withCRs)
1323
34b29c93134b fixed correct for doits
Claus Gittinger <cg@exept.de>
parents: 1322
diff changeset
  2300
                classified:(Compiler defaultMethodCategory).
1158
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2301
        ].
1156
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2302
        correctIt := false.
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2303
    ].
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2304
    correctIt ifFalse:[
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2305
        alreadyWarnedUnimplementedSelectors add:aSelectorString.
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2306
        ^ aSelectorString
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
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2309
    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
  2310
    suggestedNames notNil ifTrue:[
1323
34b29c93134b fixed correct for doits
Claus Gittinger <cg@exept.de>
parents: 1322
diff changeset
  2311
        newSelector := self askForCorrection:'Correct Selector to: ' fromList:suggestedNames for:aSelectorString.
34b29c93134b fixed correct for doits
Claus Gittinger <cg@exept.de>
parents: 1322
diff changeset
  2312
        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
  2313
    ] ifFalse:[
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2314
        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
  2315
        ^ aSelectorString
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2316
    ].
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2317
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2318
    "
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2319
     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
  2320
     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
  2321
    "
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2322
    requestor replaceSelectionBy:newSelector keepCursor:false.
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
     get the updated source-string 
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2325
     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
  2326
    "
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2327
    correctedSource := requestor currentSourceCode.
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2328
    source := (ReadStream on:correctedSource)
1371
de4c37ac12fc code rewritten to be independent of stream zero-base
Claus Gittinger <cg@exept.de>
parents: 1369
diff changeset
  2329
                  position:(source position1Based + 1 + (newSelector size - aSelectorString size)).
1361
Claus Gittinger <cg@exept.de>
parents: 1359
diff changeset
  2330
"/ Parser murks.
1156
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2331
    ^ newSelector
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2332
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2333
    "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
  2334
    "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
  2335
    "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
  2336
!
b491528ad92b fixed 'generate' option (in selector will not be understood)
Claus Gittinger <cg@exept.de>
parents: 1155
diff changeset
  2337
1167
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2338
correctSourceByDeletingFrom:start to:stop
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2339
    "correct (by deleting token) if user wants to;
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2340
     return #Error if there was no correction;
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2341
     nil if there was one."
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2342
1445
2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well
Claus Gittinger <cg@exept.de>
parents: 1442
diff changeset
  2343
    |deleteSize localDefsStart localDefsStop newPos|
1167
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2344
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2345
    "
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2346
     tell requestor (i.e. CodeView) about the change
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2347
     this will update what the requestor shows.
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2348
    "
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2349
    deleteSize := stop - start + 1.
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2350
    requestor deleteFromCharacterPosition:start to:stop.
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2351
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2352
    "
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2353
     get the updated source-string 
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2354
     which is needed, when we eventually install the new method
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2355
    "
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2356
    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
  2357
1167
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2358
    "/ 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
  2359
    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
  2360
        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
  2361
    ] ifFalse:[
2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well
Claus Gittinger <cg@exept.de>
parents: 1442
diff changeset
  2362
        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
  2363
            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
  2364
        ] ifFalse:[
2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well
Claus Gittinger <cg@exept.de>
parents: 1442
diff changeset
  2365
            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
  2366
                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
  2367
            ] ifFalse:[
2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well
Claus Gittinger <cg@exept.de>
parents: 1442
diff changeset
  2368
                newPos := start
2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well
Claus Gittinger <cg@exept.de>
parents: 1442
diff changeset
  2369
            ].
2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well
Claus Gittinger <cg@exept.de>
parents: 1442
diff changeset
  2370
        ]
2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well
Claus Gittinger <cg@exept.de>
parents: 1442
diff changeset
  2371
    ].
2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well
Claus Gittinger <cg@exept.de>
parents: 1442
diff changeset
  2372
    source := (ReadStream on:correctedSource) position1Based:newPos.
1432
a85ce0ec6ee4 deleting multiple local variables
Claus Gittinger <cg@exept.de>
parents: 1427
diff changeset
  2373
a85ce0ec6ee4 deleting multiple local variables
Claus Gittinger <cg@exept.de>
parents: 1427
diff changeset
  2374
    localDefsStart := localVarDefPosition at:1.
a85ce0ec6ee4 deleting multiple local variables
Claus Gittinger <cg@exept.de>
parents: 1427
diff changeset
  2375
    localDefsStop := localVarDefPosition at:2.
a85ce0ec6ee4 deleting multiple local variables
Claus Gittinger <cg@exept.de>
parents: 1427
diff changeset
  2376
a85ce0ec6ee4 deleting multiple local variables
Claus Gittinger <cg@exept.de>
parents: 1427
diff changeset
  2377
    localDefsStop <= start ifTrue:[^ self].
a85ce0ec6ee4 deleting multiple local variables
Claus Gittinger <cg@exept.de>
parents: 1427
diff changeset
  2378
    localDefsStart >= stop ifTrue:[^ self].
a85ce0ec6ee4 deleting multiple local variables
Claus Gittinger <cg@exept.de>
parents: 1427
diff changeset
  2379
1445
2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well
Claus Gittinger <cg@exept.de>
parents: 1442
diff changeset
  2380
    (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
  2381
        localVarDefPosition := nil.
2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well
Claus Gittinger <cg@exept.de>
parents: 1442
diff changeset
  2382
        ^ self
2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well
Claus Gittinger <cg@exept.de>
parents: 1442
diff changeset
  2383
    ].  
2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well
Claus Gittinger <cg@exept.de>
parents: 1442
diff changeset
  2384
1432
a85ce0ec6ee4 deleting multiple local variables
Claus Gittinger <cg@exept.de>
parents: 1427
diff changeset
  2385
    "/ must update
a85ce0ec6ee4 deleting multiple local variables
Claus Gittinger <cg@exept.de>
parents: 1427
diff changeset
  2386
    (start > localDefsStart and:[stop < localDefsStop]) ifTrue:[
a85ce0ec6ee4 deleting multiple local variables
Claus Gittinger <cg@exept.de>
parents: 1427
diff changeset
  2387
        localVarDefPosition at:2 put:(localDefsStop - (stop-start+1)).
a85ce0ec6ee4 deleting multiple local variables
Claus Gittinger <cg@exept.de>
parents: 1427
diff changeset
  2388
        ^ self.
a85ce0ec6ee4 deleting multiple local variables
Claus Gittinger <cg@exept.de>
parents: 1427
diff changeset
  2389
    ].
a85ce0ec6ee4 deleting multiple local variables
Claus Gittinger <cg@exept.de>
parents: 1427
diff changeset
  2390
    self halt.
a85ce0ec6ee4 deleting multiple local variables
Claus Gittinger <cg@exept.de>
parents: 1427
diff changeset
  2391
    ^ self
1167
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2392
!
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2393
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  2394
correctVariable:varName atPosition:pos1 to:pos2
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2395
    "notify error and correct if user wants to;
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2396
     return #Error if there was no correction 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2397
     or a ParseNode as returned by variable"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2398
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  2399
    |correctIt suggestedNames newName rslt
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  2400
     varNameIsLowercase undeclared boldName|
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2401
877
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  2402
    varNameIsLowercase := (varName at:1) isLowercase.
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  2403
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2404
    correctIt := self undefError:varName position:pos1 to:pos2.
887
e42ea977b85d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 883
diff changeset
  2405
    (correctIt == false or:[correctIt == #continue]) ifTrue:[
877
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  2406
        "/ no correction wanted.
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  2407
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  2408
        "/ lowerCase vars are added to the Undeclared dictionary,
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  2409
        "/ allowing easy search for bad-spots later.
1285
32af9747bf9d error messages
Claus Gittinger <cg@exept.de>
parents: 1282
diff changeset
  2410
        boldName := varName allBold.
877
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  2411
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  2412
        varNameIsLowercase ifTrue:[
1205
1a9cbb122fba checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1204
diff changeset
  2413
            undeclared := Smalltalk at:#Undeclared.
1a9cbb122fba checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1204
diff changeset
  2414
            ((undeclared notNil)
1a9cbb122fba checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1204
diff changeset
  2415
            and:[(undeclared includes:varName asSymbol)]) ifFalse:[ 
1285
32af9747bf9d error messages
Claus Gittinger <cg@exept.de>
parents: 1282
diff changeset
  2416
                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
  2417
            ].
644
834399365be9 Highlighting of undefined variables didn't work after first correction
Stefan Vogel <sv@exept.de>
parents: 640
diff changeset
  2418
            ^ self defineAsUndeclaredVariable:varName
877
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  2419
        ].
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  2420
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  2421
        "/ upperCase vars are declared as global
915
d3add8c1bb04 dont rewarn for same missing namespace
Claus Gittinger <cg@exept.de>
parents: 903
diff changeset
  2422
        (warnedUndefVars isNil or:[(warnedUndefVars includes:varName) not]) ifTrue:[
d3add8c1bb04 dont rewarn for same missing namespace
Claus Gittinger <cg@exept.de>
parents: 903
diff changeset
  2423
            (warnedUnknownNamespaces isNil or:[(warnedUnknownNamespaces includes:varName) not]) ifTrue:[
1285
32af9747bf9d error messages
Claus Gittinger <cg@exept.de>
parents: 1282
diff changeset
  2424
                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
  2425
            ].
d3add8c1bb04 dont rewarn for same missing namespace
Claus Gittinger <cg@exept.de>
parents: 903
diff changeset
  2426
        ].
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  2427
        ^ VariableNode globalNamed:varName
877
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  2428
    ].
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  2429
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  2430
    correctIt == #declare ifTrue:[
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  2431
        "/ declare it
1295
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2432
        rslt := self askForVariableTypeWhenDeclaringUndefined:varName.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2433
        rslt notNil ifTrue:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2434
            ^ rslt
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  2435
        ].
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2436
    ].
1398
eaef898b063e added undefinedVariableNotification
Claus Gittinger <cg@exept.de>
parents: 1394
diff changeset
  2437
    (correctIt isKindOf:ParseNode) ifTrue:[
eaef898b063e added undefinedVariableNotification
Claus Gittinger <cg@exept.de>
parents: 1394
diff changeset
  2438
        ^ correctIt
eaef898b063e added undefinedVariableNotification
Claus Gittinger <cg@exept.de>
parents: 1394
diff changeset
  2439
    ].
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2440
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2441
    suggestedNames := self findBestVariablesFor:varName.
877
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  2442
    suggestedNames isNil ifTrue:[
1285
32af9747bf9d error messages
Claus Gittinger <cg@exept.de>
parents: 1282
diff changeset
  2443
        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
  2444
        ^ #Error
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2445
    ].
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2446
1285
32af9747bf9d error messages
Claus Gittinger <cg@exept.de>
parents: 1282
diff changeset
  2447
    newName := self askForCorrection:'Correct Variable to: ' fromList:suggestedNames.
877
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  2448
    newName isNil ifTrue:[^ #Error].
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  2449
"
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  2450
        newName := suggestedNames at:1.
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  2451
        (self confirm:('confirm correction to: ' , newName)) ifFalse:[^ #Error].
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  2452
"
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  2453
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2454
    "
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2455
     tell requestor (i.e. CodeView) about the change
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2456
     this will update what the requestor shows.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2457
    "
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2458
    requestor replaceSelectionBy:newName.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2459
    "
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2460
     get the updated source-string 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2461
     which is needed, when we eventually install the new method
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2462
    "
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2463
    correctedSource := requestor currentSourceCode.
644
834399365be9 Highlighting of undefined variables didn't work after first correction
Stefan Vogel <sv@exept.de>
parents: 640
diff changeset
  2464
    source := (ReadStream on:correctedSource)
1371
de4c37ac12fc code rewritten to be independent of stream zero-base
Claus Gittinger <cg@exept.de>
parents: 1369
diff changeset
  2465
                  position:(source position1Based + newName size - tokenName size).
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2466
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2467
    "redo parse with new value"
1103
b75a71996388 ensure that token follows tomeName & tokenValue
Claus Gittinger <cg@exept.de>
parents: 1100
diff changeset
  2468
    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
  2469
    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
  2470
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
  2471
    "/ 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
  2472
    rslt == #Error ifTrue:[
644
834399365be9 Highlighting of undefined variables didn't work after first correction
Stefan Vogel <sv@exept.de>
parents: 640
diff changeset
  2473
        "/ 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
  2474
834399365be9 Highlighting of undefined variables didn't work after first correction
Stefan Vogel <sv@exept.de>
parents: 640
diff changeset
  2475
        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
  2476
    ].
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
  2477
    ^ 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
  2478
644
834399365be9 Highlighting of undefined variables didn't work after first correction
Stefan Vogel <sv@exept.de>
parents: 640
diff changeset
  2479
    "Modified: / 22.1.1998 / 16:34:01 / stefan"
1221
2768cbe3be2b finished remove unused vars;
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
  2480
    "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
  2481
!
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
  2482
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
  2483
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
  2484
    "define varName as undeclared variable
629
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  2485
     (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
  2486
     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
  2487
     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
  2488
1206
df5104d45e42 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1205
diff changeset
  2489
    |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
  2490
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
  2491
    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
  2492
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
  2493
    "/ 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
  2494
1206
df5104d45e42 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1205
diff changeset
  2495
    undeclared := Smalltalk at:#Undeclared.
df5104d45e42 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1205
diff changeset
  2496
    undeclared isNil ifTrue:[
df5104d45e42 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1205
diff changeset
  2497
        Smalltalk at:#Undeclared put:(undeclared := IdentitySet new).
df5104d45e42 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1205
diff changeset
  2498
    ].
df5104d45e42 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1205
diff changeset
  2499
    undeclared add:tokenName asSymbol.
1304
ade15708e7c1 undeclared variable handling was broken (to allow reference search)
penk
parents: 1301
diff changeset
  2500
    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
  2501
    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
  2502
    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
  2503
762
66cd2b4f6689 Big BUG: remember original name in usedVars - not Undeclared::xxx
tm
parents: 755
diff changeset
  2504
    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
  2505
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  2506
    ^ 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
  2507
629
6dbcd3bb1c9d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 628
diff changeset
  2508
    "Modified: / 31.10.1997 / 01:16:03 / cg"
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
1167
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2511
deleteDefinitionOf:varName in:defStartPos to:defEndPos
1393
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2512
    "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
  2513
     if the source was '... | foo bar baz |...'
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2514
     deleting the var 'bar' changes the source to '... | foo baz |...'.
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2515
     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
  2516
     trying to remove the whiteSpace around the removed variable also.
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2517
     However, this seems to not always work correctly"
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2518
1445
2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well
Claus Gittinger <cg@exept.de>
parents: 1442
diff changeset
  2519
    |source startSearch pos pos2 nextChar varSlot p p2|
1172
401e669ebaf9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1171
diff changeset
  2520
401e669ebaf9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1171
diff changeset
  2521
    varSlot := methodVars detect:[:var | var name = varName].
401e669ebaf9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1171
diff changeset
  2522
    methodVars removeIdentical:varSlot.
1167
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2523
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2524
    source := requestor currentSourceCode.
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2525
    startSearch := defStartPos+1.
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2526
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2527
    [
1393
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2528
        |prevChar isFirstVar didPassEndOfLine|
1392
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2529
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2530
        "/ search this name's position in the declaration part ...
1167
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2531
        pos := source indexOfSubCollection:varName startingAt:startSearch ifAbsent:0.
1326
Claus Gittinger <cg@exept.de>
parents: 1325
diff changeset
  2532
        (pos == 0 or:[pos >= defEndPos]) ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 1325
diff changeset
  2533
            self error:'should not happen' mayProceed:true.
1167
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2534
            ^ self.
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2535
        ].
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2536
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2537
        pos2 := pos + varName size - 1.
1392
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2538
        pos > 1 ifTrue:[
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2539
            prevChar := source at:pos-1.
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2540
        ].
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2541
        (prevChar isNil or:[prevChar isLetterOrDigit not]) ifTrue:[
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2542
            nextChar := source at:pos2+1.
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2543
            nextChar isLetterOrDigit ifFalse:[
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2544
                "/ halfway intuitive space-removal behavior;
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2545
                "/ if there was a space after/before the |-char,
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2546
                "/ leave it; otherwise remove it.
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2547
                isFirstVar := pos == (defStartPos+1).
1393
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2548
                (source at:pos-1) isSeparator ifTrue:[
1392
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2549
                    pos := pos - 1.
1393
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2550
                    [ (source at:pos-1) isSeparator] whileTrue:[
1392
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2551
                        pos := pos - 1.
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2552
                    ].
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2553
                    (source at:pos-1) == $| ifTrue:[
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2554
                        "/ there was a space before - leave it
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2555
                        pos := pos + 1.
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2556
                        isFirstVar := true.
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2557
                    ]
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2558
                ].
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2559
1393
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2560
                (source at:pos2+1) isSeparator ifTrue:[
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2561
                    didPassEndOfLine := (source at:pos2+1) == Character cr.
1392
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2562
                    pos2 := pos2 + 1.
1393
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2563
                    [ (source at:pos2+1) isSeparator] whileTrue:[
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2564
                        (source at:pos2+1) == Character cr ifTrue:[ didPassEndOfLine := true ].
1392
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2565
                        pos2 := pos2 + 1.
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2566
                    ].
1393
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2567
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2568
                    didPassEndOfLine ifFalse:[    
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2569
                        (source at:pos2+1) == $" ifTrue:[
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2570
                            "/ comment follows - assume it belongs to the removed variable
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2571
                            pos2 := pos2 + 1.
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2572
                            (source at:pos2+1) == $/ ifTrue:[
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2573
                                "/ EOL comment
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2574
                                [ (source at:pos2+1) == Character cr ] whileFalse:[
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2575
                                    pos2 := pos2 + 1.
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2576
                                ].
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2577
                                pos2 := pos2 + 1.
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2578
                            ] ifFalse:[
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2579
                                "/ regular comment
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2580
                                [ (source at:pos2+1) == $" ] whileFalse:[
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2581
                                    pos2 := pos2 + 1.
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2582
                                ].
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2583
                                pos2 := pos2 + 1.
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2584
                            ].
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2585
                            [ (source at:pos2+1) isSeparator] whileTrue:[
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2586
                                (source at:pos2+1) == Character cr ifTrue:[ didPassEndOfLine := true ].
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2587
                                pos2 := pos2 + 1.
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2588
                            ].
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2589
                        ]
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2590
                    ].
8b0207fb214d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  2591
1392
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2592
                    (source at:pos2+1) == $| ifTrue:[
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2593
                        "/ there was a space after - leave it
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2594
                        pos2 := pos2 - 1.
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2595
                    ] ifFalse:[
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2596
                        isFirstVar ifFalse:[
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2597
                            pos2 := pos2 - 1.
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2598
                        ]
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2599
                    ].
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
1445
2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well
Claus Gittinger <cg@exept.de>
parents: 1442
diff changeset
  2602
                "/ 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
  2603
                ((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
  2604
                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
  2605
                    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
  2606
                    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
  2607
                    "/ 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
  2608
                    p := pos.
2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well
Claus Gittinger <cg@exept.de>
parents: 1442
diff changeset
  2609
                    p2 := pos2.
2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well
Claus Gittinger <cg@exept.de>
parents: 1442
diff changeset
  2610
2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well
Claus Gittinger <cg@exept.de>
parents: 1442
diff changeset
  2611
                    [(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
  2612
                    [(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
  2613
                    ((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
  2614
                        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
  2615
                        pos2 := p2.
2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well
Claus Gittinger <cg@exept.de>
parents: 1442
diff changeset
  2616
                        (((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
  2617
                            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
  2618
                            ifFalse:[ 
2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well
Claus Gittinger <cg@exept.de>
parents: 1442
diff changeset
  2619
                                (((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
  2620
                                    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
  2621
                    ].
2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well
Claus Gittinger <cg@exept.de>
parents: 1442
diff changeset
  2622
                ].
2bd299cdc753 delete unused variable-decl: when decl is empty, remove it as well
Claus Gittinger <cg@exept.de>
parents: 1442
diff changeset
  2623
1392
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2624
                self correctSourceByDeletingFrom:pos to:pos2.
2c06fa7b9bbe remove unused variable fixed
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  2625
                ^ self.
1167
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2626
            ].
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2627
        ].
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2628
        startSearch := pos2 + 1.
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2629
    ] loop
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2630
!
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  2631
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2632
findBestSelectorsFor:aString
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2633
    "collect known selectors with their spelling distances to aString;
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2634
     return the 10 best suggestions"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2635
1187
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  2636
    ^ self class findBestSelectorsFor:aString 
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2637
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2638
    "Time millisecondsToRun:[Parser new findBestSelectorsFor:'foo']"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2639
    "Parser new findBestSelectorsFor:'findBestSel'"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2640
    "Parser new findBestSelectorsFor:'fildBestSelectrFr'"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2641
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2642
1022
32bc5fc06687 added selector correction.
Claus Gittinger <cg@exept.de>
parents: 1020
diff changeset
  2643
findBestSelectorsFor:aString in:aClassOrNil
32bc5fc06687 added selector correction.
Claus Gittinger <cg@exept.de>
parents: 1020
diff changeset
  2644
    "collect known selectors with their spelling distances to aString;
32bc5fc06687 added selector correction.
Claus Gittinger <cg@exept.de>
parents: 1020
diff changeset
  2645
     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
  2646
     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
  2647
     corrections from that hierarchy only)"
32bc5fc06687 added selector correction.
Claus Gittinger <cg@exept.de>
parents: 1020
diff changeset
  2648
1187
902d406b9100 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  2649
    ^ self class findBestSelectorsFor:aString in:aClassOrNil
1022
32bc5fc06687 added selector correction.
Claus Gittinger <cg@exept.de>
parents: 1020
diff changeset
  2650
!
32bc5fc06687 added selector correction.
Claus Gittinger <cg@exept.de>
parents: 1020
diff changeset
  2651
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2652
findBestVariablesFor:aString
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2653
    "collect known variables with their spelling distances to aString;
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2654
     return the 10 best suggestions"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2655
1200
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2656
    |names dists searchBlock args vars "aClass className baseClass" 
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2657
     n instVarNames classVarNames spellAgainstAction|
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2658
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2659
    names := OrderedCollection new.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2660
    dists := OrderedCollection new.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2661
1200
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2662
    spellAgainstAction := 
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2663
            [:aVarNode |
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2664
                |varName dist|
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2665
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2666
                varName := aVarNode name.
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2667
                names add:varName.
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2668
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2669
                dist := aString spellAgainst:varName.
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2670
                (aString startsWith:varName) ifTrue:[
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2671
                    dist := dist + (aString size * 10).
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2672
                ].
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2673
                dists add:dist
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2674
            ].
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2675
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2676
    "block arguments"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2677
    searchBlock := currentBlock.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2678
    [searchBlock notNil] whileTrue:[
989
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2679
        args := searchBlock arguments.
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2680
        args notNil ifTrue:[
1200
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2681
            args do:spellAgainstAction
989
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2682
        ].
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2683
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2684
        vars := searchBlock variables.
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2685
        vars notNil ifTrue:[
1200
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2686
            vars do:spellAgainstAction
989
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2687
        ].
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2688
        searchBlock := searchBlock home
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2689
    ].
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2690
1200
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2691
    spellAgainstAction := 
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2692
        [:givenName |
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2693
            |dist|
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2694
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2695
            names add:givenName.
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2696
            dist := aString spellAgainst:givenName.
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2697
            (aString startsWith:givenName) ifTrue:[
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2698
                dist := dist + (aString size * 10).
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2699
            ].
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2700
            dists add:dist
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2701
        ].
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2702
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2703
    "method-variables"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2704
    methodVars notNil ifTrue:[
1200
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2705
        methodVarNames do:spellAgainstAction
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2706
    ].
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2707
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2708
    "method-arguments"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2709
    methodArgs notNil ifTrue:[
1200
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2710
        methodArgNames do:spellAgainstAction
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2711
    ].
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2712
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2713
    "instance-variables"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2714
    classToCompileFor notNil ifTrue:[
1200
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2715
        self classesInstVarNames do:spellAgainstAction
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2716
    ].
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2717
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2718
    "class-variables"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2719
    classToCompileFor notNil ifTrue:[
1200
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2720
        self classesClassVarNames do:spellAgainstAction.
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2721
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2722
"/        aClass := classToCompileFor.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2723
"/        aClass isMeta ifTrue:[
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2724
"/            className := aClass name.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2725
"/            className := className copyWithoutLast:5.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2726
"/            baseClass := Smalltalk at:(className asSymbol).
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2727
"/            baseClass notNil ifTrue:[
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2728
"/                aClass := baseClass
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2729
"/            ]
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2730
"/        ].
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2731
"/        [aClass notNil] whileTrue:[
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2732
"/            (aClass classVarNames) do:[:classVarName |
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2733
"/                names add:classVarName.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2734
"/                dists add:(aString spellAgainst: "levenshteinTo:"classVarName)
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2735
"/            ].
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2736
"/            aClass := aClass superclass
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2737
"/        ]
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2738
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2739
    ].
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2740
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2741
    "globals"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2742
    Smalltalk keysDo:[:aKey |
1200
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2743
        |globalVarName|
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2744
989
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2745
        globalVarName := aKey asString.
1200
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2746
989
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2747
        "only compare strings where length is about right"
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2748
        ((globalVarName size - aString size) abs < 3) ifTrue:[
1200
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2749
            spellAgainstAction value:globalVarName.
989
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2750
        ]
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2751
    ].
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2752
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2753
    "misc"
1200
aa96cdaf2780 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1199
diff changeset
  2754
    #('self' 'super' 'nil' 'thisContext') do:spellAgainstAction.
141
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
    (dists size ~~ 0) ifTrue:[
989
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2757
        dists sortWith:names.
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2758
        dists := dists reverse.             
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2759
        names := names reverse.
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2760
        n := names size min:10.
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2761
        names := names copyTo:n.
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2762
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2763
        "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
  2764
        (aString at:1) isLowercase ifTrue:[
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2765
            methodVarNames size > 0 ifTrue:[
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2766
                names add:'---- method locals ----'.
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2767
                methodVarNames asSortedCollection do:[:methodVarName |
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2768
                    names add:methodVarName.
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2769
                ].
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2770
            ].
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2771
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2772
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2773
            methodArgs size > 0 ifTrue:[
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2774
                names add:'---- method arguments ----'.
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2775
                methodArgNames asSortedCollection do:[:methodArgName |
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2776
                    names add:methodArgName.
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2777
                ]
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2778
            ].
1078
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2779
            classToCompileFor notNil ifTrue:[
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2780
                instVarNames := OrderedCollection new.
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2781
                self classesInstVarNames asSortedCollection do:[:instVarName |
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2782
                    (instVarNames includes:instVarName) ifFalse:[
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2783
                        instVarNames add:instVarName.
989
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2784
                    ]
1078
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2785
                ].
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2786
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2787
                instVarNames size > 0 ifTrue:[
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2788
                    (classToCompileFor notNil and:[classToCompileFor isMeta]) ifTrue:[
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2789
                        names add:'---- class instance variables ----'.
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2790
                    ] ifFalse:[
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2791
                        names add:'---- instance variables ----'.
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2792
                    ].
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2793
                    instVarNames do:[:instVarName |
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2794
                        (names includes:instVarName) ifFalse:[
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2795
                            names add:instVarName.
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2796
                        ]
989
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2797
                    ]
1078
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2798
                ].
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2799
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2800
                classVarNames := OrderedCollection new.
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2801
                self classesClassVarNames asSortedCollection do:[:classVarName |
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2802
                    (classVarNames includes:classVarName) ifFalse:[
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2803
                        classVarNames add:classVarName.
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2804
                    ]
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2805
                ].
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2806
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2807
                classVarNames size > 0 ifTrue:[
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2808
                    names add:'---- class variables ----'.
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2809
                    classVarNames do:[:classVarName |
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2810
                        (names includes:classVarName) ifFalse:[
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2811
                            names add:classVarName.
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2812
                        ]
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2813
                    ]
bf1d18b918cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1077
diff changeset
  2814
                ].
989
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
        ].
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2817
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  2818
        ^ names
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2819
    ].
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2820
    ^ nil
450
8ad79af3e91c checkin from browser
Claus Gittinger <cg@exept.de>
parents: 448
diff changeset
  2821
480
e4ac7e62ca9a better block-var name detection in debugger
Claus Gittinger <cg@exept.de>
parents: 473
diff changeset
  2822
    "Modified: 11.1.1997 / 21:28:28 / cg"
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2823
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2824
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2825
selectorCheck:aSelectorString for:receiver position:pos1 to:pos2
1439
0fddfcdca37b selector check improved
Claus Gittinger <cg@exept.de>
parents: 1437
diff changeset
  2826
    ^ self selectorCheck:aSelectorString for:receiver positions:(Array with:(pos1 to:pos2)).
0fddfcdca37b selector check improved
Claus Gittinger <cg@exept.de>
parents: 1437
diff changeset
  2827
!
0fddfcdca37b selector check improved
Claus Gittinger <cg@exept.de>
parents: 1437
diff changeset
  2828
0fddfcdca37b selector check improved
Claus Gittinger <cg@exept.de>
parents: 1437
diff changeset
  2829
selectorCheck:aSelectorString for:receiver positions:posVector
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2830
    "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
  2831
     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
  2832
     Simple, but catches many typos"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2833
1440
7084ae99ced7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1439
diff changeset
  2834
    |err sym rec names recType selClass newSelector nm nowhereImplemented pos1 pos2 canDefine|
7084ae99ced7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1439
diff changeset
  2835
7084ae99ced7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1439
diff changeset
  2836
    canDefine := false.
1439
0fddfcdca37b selector check improved
Claus Gittinger <cg@exept.de>
parents: 1437
diff changeset
  2837
0fddfcdca37b selector check improved
Claus Gittinger <cg@exept.de>
parents: 1437
diff changeset
  2838
    pos1 := posVector first start.
0fddfcdca37b selector check improved
Claus Gittinger <cg@exept.de>
parents: 1437
diff changeset
  2839
    pos2 := posVector last stop.
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2840
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2841
    "
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2842
     if compiling lazy, or errors are to be ignored, or there
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2843
     is no requestor, do not check
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2844
    "
1022
32bc5fc06687 added selector correction.
Claus Gittinger <cg@exept.de>
parents: 1020
diff changeset
  2845
    (LazyCompilation == true) ifTrue:[^ aSelectorString].
977
c1afbaf48a23 remember used & modified local vars;
Claus Gittinger <cg@exept.de>
parents: 971
diff changeset
  2846
    self isSyntaxHighlighter ifFalse:[
1022
32bc5fc06687 added selector correction.
Claus Gittinger <cg@exept.de>
parents: 1020
diff changeset
  2847
        (ignoreErrors or:[ignoreWarnings]) ifTrue:[^ aSelectorString].
32bc5fc06687 added selector correction.
Claus Gittinger <cg@exept.de>
parents: 1020
diff changeset
  2848
        (requestor isNil or:[requestor isStream]) ifTrue:[^ aSelectorString].
977
c1afbaf48a23 remember used & modified local vars;
Claus Gittinger <cg@exept.de>
parents: 971
diff changeset
  2849
    ].
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2850
1301
677ca6e364d4 + warnPossible incompatibility
Claus Gittinger <cg@exept.de>
parents: 1299
diff changeset
  2851
    aSelectorString = '#' ifTrue:[
677ca6e364d4 + warnPossible incompatibility
Claus Gittinger <cg@exept.de>
parents: 1299
diff changeset
  2852
        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
  2853
    ].
677ca6e364d4 + warnPossible incompatibility
Claus Gittinger <cg@exept.de>
parents: 1299
diff changeset
  2854
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2855
    "
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2856
     check if the selector is known at all
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2857
     - if not, it cannot be understood
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2858
    "
1327
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2859
    nowhereImplemented := false.
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2860
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  2861
    sym := aSelectorString asSymbolIfInterned.
1158
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2862
    sym isNil ifTrue:[
1327
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2863
        nowhereImplemented := true.
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2864
"/    ] ifFalse:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2865
"/        nowhereImplemented := (self implementedInAnyClass:sym) not.
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2866
    ].
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2867
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2868
    nowhereImplemented ifTrue:[
1158
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2869
        err := ' is currently nowhere implemented'.
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2870
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2871
        "
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2872
         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
  2873
        "
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2874
        ((methodVarNames notNil and:[methodVarNames includes:aSelectorString])
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2875
          or:[(methodArgNames notNil and:[methodArgNames includes:aSelectorString])
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2876
          or:[(classToCompileFor notNil
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2877
               and:[((names := self classesInstVarNames) notNil and:[names includes:aSelectorString])])
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2878
          or:[(classToCompileFor notNil
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2879
                and:[((names := self classesClassInstVarNames) notNil and:[names includes:aSelectorString])])
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2880
          or:[classToCompileFor notNil 
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2881
               and:[((names := self classesClassVarNames) notNil and:[names includes:aSelectorString])]]]]]) ifTrue:[
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2882
            err := ' is currently nowhere implemented ..
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2883
.. but a variable with that name is defined. 
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2884
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2885
Missing ''.'' after the previous expression 
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2886
or missing keyword/receiver before that word ?'.
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2887
        ].
1327
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2888
    ] ifFalse:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2889
        receiver notNil ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2890
            selClass := self typeOfNode:receiver.
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2891
            selClass notNil ifTrue:[
1158
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2892
                err := self checkSelector:sym inClass:selClass.
1327
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2893
            ].
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2894
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  2895
            (receiver isConstant or:[receiver isBlock]) ifTrue:[
1158
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2896
                err notNil ifTrue:[
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  2897
                    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
  2898
                ].
1327
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2899
            ] ifFalse:[(((recType := receiver type) == #GlobalVariable)
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2900
                        or:[recType == #PrivateClass]) ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2901
                rec := receiver evaluate. 
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  2902
                "/ dont check autoloaded classes - it may work after loading
1327
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2903
                (rec isNil 
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2904
                 or:[rec isBehavior and:[rec isLoaded not]]) ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2905
                    ^ aSelectorString
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2906
                ].
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2907
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2908
                err notNil ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2909
                    (rec isBehavior
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2910
                     and:[rec theNonMetaclass name = receiver name]) ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2911
                        err := err, ' in ' , rec theNonMetaclass name.
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2912
                    ] ifFalse:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2913
                        err := err, ' in currently assigned value (is currently ' , rec classNameWithArticle , ')'.
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2914
                    ]
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2915
                ].
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2916
            ] ifFalse:[receiver isSuper ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2917
                receiver isHere ifFalse:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2918
                    err notNil ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2919
                        err := err, ' in superclass chain'.
1158
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2920
                    ].
1327
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2921
                ] ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2922
                    err notNil ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2923
                        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
  2924
                    ].
1327
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2925
                ]
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2926
            ] ifFalse:[receiver isSelf ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2927
                err notNil ifTrue:[ 
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2928
                    |subErr|
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2929
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2930
                    "/ understood by all subclasses ?
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2931
                    classToCompileFor allSubclassesDo:[:eachSubclass |
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2932
                        subErr isNil ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2933
                            selClass := eachSubclass.
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2934
                            subErr := self checkSelector:sym inClass:selClass.     
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2935
                        ].
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2936
                    ].   
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2937
                    subErr notNil ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2938
                        err := subErr, ' in this class, superclass chain or all subclasses'
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2939
                    ] ifFalse:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2940
                        err := err, ' in this class or superclass chain'.
1440
7084ae99ced7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1439
diff changeset
  2941
                    ].
7084ae99ced7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1439
diff changeset
  2942
                    canDefine := true.
1327
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2943
                ].
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2944
            ] ifFalse:[(receiver isUnaryMessage
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2945
                        and:[receiver selector == #class
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2946
                        and:[receiver receiver isSelf]]) ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2947
                "its a message to self class - can check this too ..."
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2948
                err notNil ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2949
                    classToCompileFor isMeta ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2950
                        err := err, ' for the classes class'.
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2951
                        (self checkSelector:sym inClass:classToCompileFor) isNil ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2952
                            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
  2953
                            err := err withCRs.
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2954
                        ].
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2955
                    ] ifFalse:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2956
                        err := err, ' for my class'.
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2957
                        (self checkSelector:sym inClass:classToCompileFor) isNil ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2958
                            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
  2959
                            err := err withCRs.
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2960
                        ].
1203
2bd6633eced0 better error message for 'class foo', where foo is implemented in the instance.
Claus Gittinger <cg@exept.de>
parents: 1202
diff changeset
  2961
                    ].
2bd6633eced0 better error message for 'class foo', where foo is implemented in the instance.
Claus Gittinger <cg@exept.de>
parents: 1202
diff changeset
  2962
                ].
1327
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2963
            ] ifFalse:[(receiver isMethodVariable and:[receiver token type isNil]) ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2964
                "if it is an uninitialized variable ..."
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2965
                ((modifiedLocalVars isNil or:[(modifiedLocalVars includes:receiver name) not])
1441
7ebe4e486524 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1440
diff changeset
  2966
                 and:[hasPrimitiveCode not
1442
1986d3b0513d selectorCheck
Claus Gittinger <cg@exept.de>
parents: 1441
diff changeset
  2967
                 and:[ currentBlock isNil
1327
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2968
                 and:[alreadyWarnedUninitializedVars isNil 
1442
1986d3b0513d selectorCheck
Claus Gittinger <cg@exept.de>
parents: 1441
diff changeset
  2969
                      or:[(alreadyWarnedUninitializedVars includes:receiver name) not]]]]) 
1327
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2970
                ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2971
                    ((#(at: at:put: basicAt: basicAt:put:) includes:sym) 
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2972
                     or:[(nil respondsTo:sym) not])ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2973
                        "/ avoid trouble in miniTalk
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2974
                        "/ during bootstrap
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2975
                        nm := receiver name.    
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2976
                        Text notNil ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2977
                            nm := nm allItalic
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2978
                        ].
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2979
                        err := 'sent to possibly uninitialized variable ''' , nm , ''' here (?)'.
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2980
                        alreadyWarnedUninitializedVars isNil ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2981
                            alreadyWarnedUninitializedVars := Set new
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
                        alreadyWarnedUninitializedVars add:receiver name
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2984
                    ]
705
e22927413fe5 allow access to class-instVars from doIts;
Claus Gittinger <cg@exept.de>
parents: 694
diff changeset
  2985
                ]
1327
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2986
            ] ifFalse:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2987
                err notNil ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2988
                    err := err, ' (message to ' , selClass nameWithArticle , ')'.
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2989
                ].
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  2990
            ]]]]]].
1327
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  2991
        ]
1158
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2992
    ].
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2993
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  2994
    err notNil ifTrue:[
705
e22927413fe5 allow access to class-instVars from doIts;
Claus Gittinger <cg@exept.de>
parents: 694
diff changeset
  2995
        (receiver notNil
e22927413fe5 allow access to class-instVars from doIts;
Claus Gittinger <cg@exept.de>
parents: 694
diff changeset
  2996
        and:[((recType := receiver type) == #GlobalVariable)
e22927413fe5 allow access to class-instVars from doIts;
Claus Gittinger <cg@exept.de>
parents: 694
diff changeset
  2997
             or:[recType == #PrivateClass]]) ifTrue:[
e22927413fe5 allow access to class-instVars from doIts;
Claus Gittinger <cg@exept.de>
parents: 694
diff changeset
  2998
            "/ dont check autoloaded classes 
e22927413fe5 allow access to class-instVars from doIts;
Claus Gittinger <cg@exept.de>
parents: 694
diff changeset
  2999
            "/ - it may work after loading
e22927413fe5 allow access to class-instVars from doIts;
Claus Gittinger <cg@exept.de>
parents: 694
diff changeset
  3000
e22927413fe5 allow access to class-instVars from doIts;
Claus Gittinger <cg@exept.de>
parents: 694
diff changeset
  3001
            rec := receiver evaluate. 
e22927413fe5 allow access to class-instVars from doIts;
Claus Gittinger <cg@exept.de>
parents: 694
diff changeset
  3002
            (rec notNil 
e22927413fe5 allow access to class-instVars from doIts;
Claus Gittinger <cg@exept.de>
parents: 694
diff changeset
  3003
             and:[rec isBehavior
e22927413fe5 allow access to class-instVars from doIts;
Claus Gittinger <cg@exept.de>
parents: 694
diff changeset
  3004
             and:[rec isLoaded not]]) ifTrue:[
1022
32bc5fc06687 added selector correction.
Claus Gittinger <cg@exept.de>
parents: 1020
diff changeset
  3005
                ^ aSelectorString
705
e22927413fe5 allow access to class-instVars from doIts;
Claus Gittinger <cg@exept.de>
parents: 694
diff changeset
  3006
            ].
e22927413fe5 allow access to class-instVars from doIts;
Claus Gittinger <cg@exept.de>
parents: 694
diff changeset
  3007
            rec class == UndefinedVariable ifTrue:[
e22927413fe5 allow access to class-instVars from doIts;
Claus Gittinger <cg@exept.de>
parents: 694
diff changeset
  3008
                "/ dont check undefined vars;
e22927413fe5 allow access to class-instVars from doIts;
Claus Gittinger <cg@exept.de>
parents: 694
diff changeset
  3009
                "/ it may work after loading/defining
1022
32bc5fc06687 added selector correction.
Claus Gittinger <cg@exept.de>
parents: 1020
diff changeset
  3010
                ^ aSelectorString
705
e22927413fe5 allow access to class-instVars from doIts;
Claus Gittinger <cg@exept.de>
parents: 694
diff changeset
  3011
            ].
e22927413fe5 allow access to class-instVars from doIts;
Claus Gittinger <cg@exept.de>
parents: 694
diff changeset
  3012
        ].
1158
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  3013
        Text notNil ifTrue:[
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  3014
            err := '"' , aSelectorString allBold "allItalic" , '" ', err
1052
0a1e613468f5 avoid trouble if Text class is not present (in mini-image)
Claus Gittinger <cg@exept.de>
parents: 1043
diff changeset
  3015
        ] ifFalse:[
1158
f2cbdb21e0b0 Check for obsolete methods, if possible.
Stefan Vogel <sv@exept.de>
parents: 1157
diff changeset
  3016
            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
  3017
        ].
1157
122be9201878 selectorCheck (do not complain for new selector being recursively invoked)
Claus Gittinger <cg@exept.de>
parents: 1156
diff changeset
  3018
        "/ 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
  3019
        (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
  3020
            ^ aSelectorString
122be9201878 selectorCheck (do not complain for new selector being recursively invoked)
Claus Gittinger <cg@exept.de>
parents: 1156
diff changeset
  3021
        ].
1439
0fddfcdca37b selector check improved
Claus Gittinger <cg@exept.de>
parents: 1437
diff changeset
  3022
        self isSyntaxHighlighter ifTrue:[
0fddfcdca37b selector check improved
Claus Gittinger <cg@exept.de>
parents: 1437
diff changeset
  3023
            posVector do:[:p |
0fddfcdca37b selector check improved
Claus Gittinger <cg@exept.de>
parents: 1437
diff changeset
  3024
                self markUnknownIdentifierFrom:(p start) to:(p stop).
0fddfcdca37b selector check improved
Claus Gittinger <cg@exept.de>
parents: 1437
diff changeset
  3025
            ].
0fddfcdca37b selector check improved
Claus Gittinger <cg@exept.de>
parents: 1437
diff changeset
  3026
        ].
1440
7084ae99ced7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1439
diff changeset
  3027
        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
  3028
        newSelector := self correctSelector:aSelectorString 
1439
0fddfcdca37b selector check improved
Claus Gittinger <cg@exept.de>
parents: 1437
diff changeset
  3029
                            message:err withCRs positions:posVector in:selClass for:receiver.
1022
32bc5fc06687 added selector correction.
Claus Gittinger <cg@exept.de>
parents: 1020
diff changeset
  3030
"/        self warning:('#' , aSelectorString , '\\' , err) withCRs position:pos1 to:pos2.
32bc5fc06687 added selector correction.
Claus Gittinger <cg@exept.de>
parents: 1020
diff changeset
  3031
        ^ newSelector.
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3032
    ].
1022
32bc5fc06687 added selector correction.
Claus Gittinger <cg@exept.de>
parents: 1020
diff changeset
  3033
    ^ aSelectorString
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3034
705
e22927413fe5 allow access to class-instVars from doIts;
Claus Gittinger <cg@exept.de>
parents: 694
diff changeset
  3035
    "Modified: / 5.9.1995 / 17:02:11 / claus"
1022
32bc5fc06687 added selector correction.
Claus Gittinger <cg@exept.de>
parents: 1020
diff changeset
  3036
    "Modified: / 19.1.2000 / 16:34:03 / cg"
1327
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3037
!
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3038
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3039
typeOfNode:aNode
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3040
    |nodeVal nodeType|
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3041
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3042
    aNode isConstant ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3043
        "
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3044
         if the receiver is a constant, we can check if it responds
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3045
         to this selector
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3046
        "
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3047
        nodeVal := aNode evaluate.
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3048
        ^ nodeVal class.
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3049
    ].
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3050
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3051
    "/ this should help with typos, sending #ifTrue to blocks ...
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3052
    aNode isBlock ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3053
        ^ Block
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3054
    ].
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3055
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3056
    (((nodeType := aNode type) == #GlobalVariable)
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3057
    or:[nodeType == #PrivateClass]) ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3058
        "if the receiver is a global, we check it too ..."
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3059
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3060
        nodeVal := aNode evaluate. 
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3061
        "/ dont check autoloaded classes 
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3062
        "/ - it may work after loading
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3063
        (nodeVal isNil 
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3064
         or:[nodeVal isBehavior and:[nodeVal isLoaded not]]) ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3065
            ^ nil
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3066
        ].
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3067
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3068
        ^ nodeVal class.
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3069
    ].
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3070
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3071
    aNode isSuper ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3072
        "if its a super- or here-send, we can do more checking"
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3073
        aNode isHere ifFalse:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3074
            ^ classToCompileFor superclass ? UndefinedObject.
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3075
        ].
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3076
        ^ classToCompileFor.
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3077
    ].
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3078
    aNode isSelf ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3079
        ^ classToCompileFor.
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3080
    ].
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3081
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3082
    (aNode isUnaryMessage) ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3083
        (aNode selector == #class) ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3084
            aNode receiver isSelf ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3085
                "its a message to self class - can check this too ..."
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3086
                ^ classToCompileFor class.
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
        ].
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3089
        ( #(#'isNil' #'notNil') includes:aNode selector) ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3090
            ^ Boolean.
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3091
        ]
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
    aNode isBinaryMessage ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3094
        ( #(#'<' #'>' #'>=' #'<=' #'=' #'==' #'~=' #'~~') includes:aNode selector) ifTrue:[
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3095
            ^ Boolean.
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
    ].
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3098
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  3099
    ^ nil
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3100
! !
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3101
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3102
!Parser methodsFor:'error handling'!
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3103
1259
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3104
blockArgRedefined:tokenName from:pos1 to:pos2
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3105
    "argname reuse"
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3106
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3107
    self isSyntaxHighlighter ifTrue:[
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3108
        self markBadIdentifierFrom:pos1 to:pos2.
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3109
    ] ifFalse:[
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3110
        self 
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3111
            syntaxError:'redefinition of ''' , tokenName , ''' in argument list.'
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3112
            position:pos1 to:pos2
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3113
    ].
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3114
!
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3115
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3116
exitWith:something
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3117
    "this is the longjump out of evaluation via a return expression"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3118
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3119
    evalExitBlock value:something
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3120
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3121
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3122
identifierExpectedIn:what
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3123
    |msg|
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3124
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3125
    (#(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
  3126
        msg := 'Reserved keyword in ' 
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3127
    ] ifFalse:[
1260
50e4668049aa identifier expected - better error message
Claus Gittinger <cg@exept.de>
parents: 1259
diff changeset
  3128
        msg := 'Identifier expected in ' 
50e4668049aa identifier expected - better error message
Claus Gittinger <cg@exept.de>
parents: 1259
diff changeset
  3129
    ].
50e4668049aa identifier expected - better error message
Claus Gittinger <cg@exept.de>
parents: 1259
diff changeset
  3130
    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
  3131
         position:tokenPosition to:source position1Based - 1.
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3132
    ^ #Error
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3133
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3134
1259
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3135
methodArgRedefined:tokenName from:pos1 to:pos2
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3136
    "argname reuse"
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3137
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3138
    self isSyntaxHighlighter ifTrue:[
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3139
        self markBadIdentifierFrom:pos1 to:pos2.
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3140
    ] ifFalse:[
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3141
        self 
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3142
            syntaxError:'redefinition of ''' , tokenName , ''' in argument list.'
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3143
            position:pos1 to:pos2
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3144
    ].
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3145
!
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3146
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3147
showErrorMessage:aMessage position:pos
19
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3148
    "redefined since parser can give more detailed info about
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3149
     the class & selector where the error occured."
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3150
71
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
  3151
    |text|
2aac7fbb5be0 *** empty log message ***
claus
parents: 66
diff changeset
  3152
19
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3153
    ignoreErrors ifFalse:[
1160
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3154
        Smalltalk silentLoading == true ifFalse:[
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3155
            pos notNil ifTrue:[
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3156
                Transcript show:(pos printString).
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3157
                Transcript show:' '.
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3158
            ].
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3159
            selector notNil ifTrue:[
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3160
                Transcript show:aMessage.
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3161
                classToCompileFor notNil ifTrue:[
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3162
                    text := ' in ' , classToCompileFor name , '>>' , selector
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3163
                ] ifFalse:[
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3164
                    text := ' in ' , selector
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3165
                ]
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3166
            ] ifFalse:[
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3167
                classToCompileFor notNil ifTrue:[
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3168
                    text := aMessage , ' (' , classToCompileFor name , ')'
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3169
                ] ifFalse:[
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3170
                    text := aMessage
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3171
                ]
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3172
            ].
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3173
            Transcript showCR:text.
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3174
        ]
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3175
    ]
273
2758f1723f53 showCr: -> showCR:
Claus Gittinger <cg@exept.de>
parents: 265
diff changeset
  3176
2758f1723f53 showCr: -> showCR:
Claus Gittinger <cg@exept.de>
parents: 265
diff changeset
  3177
    "Modified: 18.5.1996 / 15:44:15 / cg"
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3178
!
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3179
171
fc14729145ff checkin from browser
Claus Gittinger <cg@exept.de>
parents: 165
diff changeset
  3180
showErrorMessageForClass:aClass
fc14729145ff checkin from browser
Claus Gittinger <cg@exept.de>
parents: 165
diff changeset
  3181
"/        compiler parseError:'syntax error'.
fc14729145ff checkin from browser
Claus Gittinger <cg@exept.de>
parents: 165
diff changeset
  3182
    Transcript show:'    '.
fc14729145ff checkin from browser
Claus Gittinger <cg@exept.de>
parents: 165
diff changeset
  3183
    aClass notNil ifTrue:[
619
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  3184
	Transcript show:aClass name , '>>'
171
fc14729145ff checkin from browser
Claus Gittinger <cg@exept.de>
parents: 165
diff changeset
  3185
    ].
fc14729145ff checkin from browser
Claus Gittinger <cg@exept.de>
parents: 165
diff changeset
  3186
    selector notNil ifTrue:[
619
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  3187
	Transcript show:(selector)
171
fc14729145ff checkin from browser
Claus Gittinger <cg@exept.de>
parents: 165
diff changeset
  3188
    ].
273
2758f1723f53 showCr: -> showCR:
Claus Gittinger <cg@exept.de>
parents: 265
diff changeset
  3189
    Transcript showCR:' -> Error'.
171
fc14729145ff checkin from browser
Claus Gittinger <cg@exept.de>
parents: 165
diff changeset
  3190
fc14729145ff checkin from browser
Claus Gittinger <cg@exept.de>
parents: 165
diff changeset
  3191
    "Created: 13.12.1995 / 20:24:34 / cg"
273
2758f1723f53 showCr: -> showCR:
Claus Gittinger <cg@exept.de>
parents: 265
diff changeset
  3192
    "Modified: 18.5.1996 / 15:44:17 / cg"
171
fc14729145ff checkin from browser
Claus Gittinger <cg@exept.de>
parents: 165
diff changeset
  3193
!
fc14729145ff checkin from browser
Claus Gittinger <cg@exept.de>
parents: 165
diff changeset
  3194
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3195
undefError:aName position:pos1 to:pos2
3
b63b8a6b71fb *** empty log message ***
claus
parents: 0
diff changeset
  3196
    "report an undefined variable error - return true, if it should be
86
claus
parents: 85
diff changeset
  3197
     corrected. If not corrected, only one warning is made per undefined
claus
parents: 85
diff changeset
  3198
     variable."
claus
parents: 85
diff changeset
  3199
1400
20ccdab04698 *** empty log message ***
martin
parents: 1399
diff changeset
  3200
    |ex doCorrect msg idx boldName|
20ccdab04698 *** empty log message ***
martin
parents: 1399
diff changeset
  3201
20ccdab04698 *** empty log message ***
martin
parents: 1399
diff changeset
  3202
    ex := UndefinedVariableNotification newException.
20ccdab04698 *** empty log message ***
martin
parents: 1399
diff changeset
  3203
    ex parser:self.
20ccdab04698 *** empty log message ***
martin
parents: 1399
diff changeset
  3204
    ex parameter:aName.
20ccdab04698 *** empty log message ***
martin
parents: 1399
diff changeset
  3205
    ex suspendedContext:thisContext.
20ccdab04698 *** empty log message ***
martin
parents: 1399
diff changeset
  3206
    doCorrect := ex raiseRequest.
1399
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
  3207
    doCorrect notNil ifTrue:[
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
  3208
        ^ doCorrect
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
  3209
    ].
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
  3210
607
118452a23976 allow dollars in identifiers
Claus Gittinger <cg@exept.de>
parents: 603
diff changeset
  3211
    warnUndeclared ifFalse:[^ false].
915
d3add8c1bb04 dont rewarn for same missing namespace
Claus Gittinger <cg@exept.de>
parents: 903
diff changeset
  3212
    ignoreWarnings ifTrue:[^ false].
607
118452a23976 allow dollars in identifiers
Claus Gittinger <cg@exept.de>
parents: 603
diff changeset
  3213
86
claus
parents: 85
diff changeset
  3214
    "
claus
parents: 85
diff changeset
  3215
     alredy warned about this one ?
claus
parents: 85
diff changeset
  3216
    "
claus
parents: 85
diff changeset
  3217
    warnedUndefVars notNil ifTrue:[
877
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  3218
        (warnedUndefVars includes:aName) ifTrue:[
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  3219
            "already warned about this one"
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  3220
            ^ false
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  3221
        ].
86
claus
parents: 85
diff changeset
  3222
    ].
claus
parents: 85
diff changeset
  3223
131
5fcdc8c7770d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 126
diff changeset
  3224
"/    (classToCompileFor notNil 
5fcdc8c7770d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 126
diff changeset
  3225
"/    and:[classToCompileFor superclass notNil
5fcdc8c7770d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 126
diff changeset
  3226
"/    and:[classToCompileFor superclass instanceVariableString isNil]]) ifTrue:[
132
5be56a5e90b7 added methods for silent parsing (parseMethod / parseMethodSpec)
Claus Gittinger <cg@exept.de>
parents: 131
diff changeset
  3227
"/      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
  3228
"/      ^ false
131
5fcdc8c7770d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 126
diff changeset
  3229
"/    ].
5fcdc8c7770d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 126
diff changeset
  3230
1285
32af9747bf9d error messages
Claus Gittinger <cg@exept.de>
parents: 1282
diff changeset
  3231
    boldName := aName allBold.
32af9747bf9d error messages
Claus Gittinger <cg@exept.de>
parents: 1282
diff changeset
  3232
131
5fcdc8c7770d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 126
diff changeset
  3233
    (requestor isNil or:[requestor isStream]) ifTrue:[
877
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  3234
        aName first isUppercase ifFalse:[
1285
32af9747bf9d error messages
Claus Gittinger <cg@exept.de>
parents: 1282
diff changeset
  3235
            self showErrorMessage:('Error: ''' , boldName , ''' is undefined') position:pos1.
877
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  3236
        ].
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  3237
        doCorrect := false.
86
claus
parents: 85
diff changeset
  3238
    ] ifFalse:[
877
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  3239
        "
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  3240
         ask requestor for correct/continue/abort ...
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  3241
         it is supposed to raise abort or return true/false.
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  3242
         True return means that correction is wanted.
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  3243
        "
1285
32af9747bf9d error messages
Claus Gittinger <cg@exept.de>
parents: 1282
diff changeset
  3244
        msg := 'Warning: ''' , boldName , ''' is undefined'.
877
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  3245
        classToCompileFor notNil ifTrue:[
989
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  3246
            "/ is it an instance-variable marked inaccessable ?
877
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  3247
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  3248
            idx := (self classesInstVarNames) indexOf:(aName , '*') startingAt:1.
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  3249
            idx ~~ 0 ifTrue:[
1285
32af9747bf9d error messages
Claus Gittinger <cg@exept.de>
parents: 1282
diff changeset
  3250
                msg := 'Warning: ''' , boldName , ''' is a hidden instvar (not accessable from ST-code)'.
989
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  3251
            ].
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  3252
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  3253
            "/ is it an instance variable, while evaluateing for the class ?
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  3254
            classToCompileFor isMeta ifTrue:[
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  3255
                (classToCompileFor soleInstance allInstVarNames includes:aName) ifTrue:[
1285
32af9747bf9d error messages
Claus Gittinger <cg@exept.de>
parents: 1282
diff changeset
  3256
                    msg := 'Warning: ''' , boldName , ''' is an instvar\(hint: you are evaluating/compiling in the classes context)' withCRs.
989
6e535d9d87d8 better undef-variable message;
Claus Gittinger <cg@exept.de>
parents: 988
diff changeset
  3257
                ]
877
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  3258
            ]
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  3259
        ].
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  3260
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  3261
        doCorrect := self correctableError:msg position:pos1 to:pos2
86
claus
parents: 85
diff changeset
  3262
    ].
claus
parents: 85
diff changeset
  3263
877
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  3264
    doCorrect == false ifTrue:[
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  3265
        warnedUndefVars isNil ifTrue:[
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  3266
            warnedUndefVars := Set new.
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  3267
        ].
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  3268
        warnedUndefVars add:aName.
3
b63b8a6b71fb *** empty log message ***
claus
parents: 0
diff changeset
  3269
    ].
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3270
86
claus
parents: 85
diff changeset
  3271
    ^ doCorrect
358
78b0d8954c49 removed possible conflict between #classVarNames here and in Class.
Claus Gittinger <cg@exept.de>
parents: 354
diff changeset
  3272
607
118452a23976 allow dollars in identifiers
Claus Gittinger <cg@exept.de>
parents: 603
diff changeset
  3273
    "Modified: 7.9.1997 / 02:14:36 / cg"
1160
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3274
!
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3275
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3276
warnUnused:aNameCollection
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3277
    "report an unused method variable"
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3278
1432
a85ce0ec6ee4 deleting multiple local variables
Claus Gittinger <cg@exept.de>
parents: 1427
diff changeset
  3279
    |s msg answer|
1160
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3280
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3281
    (ignoreErrors not and:[ignoreWarnings not and:[warnUnusedVars]]) ifTrue:[
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3282
        s := '' writeStream.
1167
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  3283
        s nextPutAll:'Unused method variable(s): '.
1160
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3284
        aNameCollection asSortedCollection do:[:name|
1427
ec344fd520ba no need for asText when sending allBold
Claus Gittinger <cg@exept.de>
parents: 1423
diff changeset
  3285
            s nextPutAll:' '; nextPutAll:name allBold.
1160
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3286
        ].
1222
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3287
        msg := s contents.
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3288
1160
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3289
        (requestor isNil or:[requestor isStream]) ifTrue:[
1222
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3290
            self showErrorMessage:('Warning: ', msg) position:nil.
1160
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3291
        ] ifFalse:[
1167
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  3292
            answer := requestor 
1222
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3293
                unusedVariableWarning:msg
1432
a85ce0ec6ee4 deleting multiple local variables
Claus Gittinger <cg@exept.de>
parents: 1427
diff changeset
  3294
                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
  3295
1167
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  3296
            answer == true ifTrue:[
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  3297
                "/ delete the definitions ...
1221
2768cbe3be2b finished remove unused vars;
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
  3298
                aNameCollection do:[:eachName |
1432
a85ce0ec6ee4 deleting multiple local variables
Claus Gittinger <cg@exept.de>
parents: 1427
diff changeset
  3299
                    self deleteDefinitionOf:eachName in:(localVarDefPosition first) to:(localVarDefPosition last).
1221
2768cbe3be2b finished remove unused vars;
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
  3300
                ].
2768cbe3be2b finished remove unused vars;
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
  3301
                RestartCompilationSignal raise
1167
34f58eacdbda unused variables correction
Claus Gittinger <cg@exept.de>
parents: 1165
diff changeset
  3302
            ].
1160
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3303
        ].
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3304
    ].
1221
2768cbe3be2b finished remove unused vars;
Claus Gittinger <cg@exept.de>
parents: 1220
diff changeset
  3305
1222
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3306
    "Modified: / 17.11.2001 / 10:30:47 / cg"
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3307
! !
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3308
1363
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3309
!Parser methodsFor:'evaluating expressions'!
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3310
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3311
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
  3312
    "return the result of evaluating aStringOrStream, errors are reported to requestor. 
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3313
     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
  3314
     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
  3315
     is non-nil, it is evaluated if an error occurs.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3316
     Finally, compile specifies if the string should be compiled down to 
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3317
     bytecode or instead be interpreted from the parseTree.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3318
     The first should be done for doIts etc, where a readable walkback is
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3319
     required.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3320
     The latter is better done for constants, styleSheet and resource
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3321
     reading and simple sends, where the overhead of compilation is bigger
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3322
     than the interpretation overhead."
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3323
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3324
    |tree mustBackup loggedString chgStream value s sReal spc
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3325
     nameSpaceQuerySignal compiler|
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3326
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3327
    aStringOrStream isNil ifTrue:[
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3328
        EmptySourceNotificationSignal raiseRequest.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3329
        ^ nil
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3330
    ].
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3331
    (mustBackup := aStringOrStream isStream) ifTrue:[
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3332
        s := aStringOrStream.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3333
    ] ifFalse:[
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3334
        loggedString := aStringOrStream.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3335
        s := ReadStream on:aStringOrStream.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3336
    ].
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3337
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3338
    self source:s.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3339
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3340
    self parseForCode.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3341
    self foldConstants:nil.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3342
    self setSelf:anObject.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3343
    self setContext:aContext.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3344
    aContext notNil ifTrue:[
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3345
        self setSelf:(aContext receiver).
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3346
"/        aContext method notNil ifTrue:[
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3347
"/            cls := aContext method mclass
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3348
"/        ].
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3349
"/        self setClassToCompileFor:(cls ? aContext receiver class).
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3350
        self setClassToCompileFor:(aContext receiver class).
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3351
    ].
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3352
    self notifying:requestor.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3353
    self nextToken.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3354
    self evalExitBlock:[:value | self release. ^ value].
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3355
    tree := self parseMethodBodyOrEmpty.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3356
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3357
    self checkForEndOfInput.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3358
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3359
    "if reading from a stream, backup for next expression"
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3360
    mustBackup ifTrue:[
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3361
        self backupPosition
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3362
    ].
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3363
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3364
    (self errorFlag or:[tree == #Error]) ifTrue:[
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3365
        failBlock notNil ifTrue:[
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3366
            ^ failBlock value
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3367
        ].
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3368
        ^ #Error
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3369
    ].
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3370
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3371
    tree isNil ifTrue:[
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3372
        EmptySourceNotificationSignal raiseRequest.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3373
        ^ nil
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3374
    ].
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3375
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3376
    (logged
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3377
    and:[loggedString notNil
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3378
    and:[Smalltalk logDoits]]) ifTrue:[
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3379
        Class updateChangeFileQuerySignal query ifTrue:[
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3380
            chgStream := Class changesStream.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3381
            chgStream notNil ifTrue:[
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3382
                chgStream nextChunkPut:loggedString.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3383
                chgStream cr.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3384
                chgStream close
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3385
            ]
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3386
        ].
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3387
        Project notNil ifTrue:[
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3388
            Class updateChangeListQuerySignal query ifTrue:[
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3389
                Project addDoIt:loggedString
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3390
            ]
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3391
        ]
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3392
    ].
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3393
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3394
    "
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3395
     during the evaluation, handle nameSpace queries
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3396
     from the value as defined by any namespace directive.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3397
     This, if its a class definition expression, the class will
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3398
     be installed there.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3399
    "
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3400
    nameSpaceQuerySignal := Class nameSpaceQuerySignal.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3401
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3402
    spc := self getNameSpace.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3403
    spc isNil ifTrue:[
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3404
        (requestor respondsTo:#currentNameSpace) ifTrue:[
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3405
            spc := requestor currentNameSpace
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3406
        ] ifFalse:[
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3407
            spc := nameSpaceQuerySignal query.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3408
        ]
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3409
    ].
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3410
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3411
    nameSpaceQuerySignal answer:spc
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3412
    do:[
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3413
        |method|
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3414
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3415
        "
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3416
         if compile is false, or the parse tree is that of a constant, 
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3417
         or a variable, quickly return its value.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3418
         This is used for example, when reading simple objects
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3419
         via #readFrom:. 
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3420
         The overhead of compiling a method is avoided in this case.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3421
        "
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3422
        ((SuppressDoItCompilation == true)
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3423
         or:[compile not 
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3424
         or:[tree isConstant
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3425
         or:[tree isVariable
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3426
         or:[aStringOrStream isStream
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3427
         or:[aContext notNil]]]]]) ifTrue:[
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3428
            ^ tree evaluate
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3429
        ].
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
         if I am the ByteCodeCompiler,
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3433
         generate a dummy method, execute it and return the value.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3434
         otherwise, just evaluate the tree; slower, but not too bad ...
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3435
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3436
         This allows systems to be delivered without the ByteCodeCompiler,
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3437
         and still evaluate expressions 
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3438
         (needed to read resource files or to process .rc files).
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3439
        "
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3440
        self == Parser ifTrue:[
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3441
            self evalExitBlock:[:value | self release. ^ value].
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3442
            value := tree evaluate.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3443
            self evalExitBlock:nil.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3444
        ] ifFalse:[
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3445
            s := self correctedSource.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3446
            s isNil ifTrue:[    
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3447
                aStringOrStream isStream ifTrue:[
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3448
                    s := self collectedSource.  "/ does not work yet ...
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3449
                ] ifFalse:[
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3450
                    s := aStringOrStream
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
            "/ actually, its a block, to allow
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3455
            "/ easy return ...
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3456
1421
dcdc178254f0 preserve lineNumbers in compiled code (evaluate)
Claus Gittinger <cg@exept.de>
parents: 1420
diff changeset
  3457
            sReal := 'doIt ^[ ' , s , '\] value' withCRs.
1363
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3458
1366
f91f6a0a56d5 when required to compile, use Compiler instead of self class.
Claus Gittinger <cg@exept.de>
parents: 1365
diff changeset
  3459
            compiler := ByteCodeCompiler new.
1363
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3460
            compiler initializeFlagsFrom:self.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3461
            method := compiler
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3462
                    compile:sReal 
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3463
                    forClass:anObject class
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3464
                    inCategory:'_temporary_' 
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3465
                    notifying:requestor 
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3466
                    install:false 
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3467
                    skipIfSame:false 
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3468
                    silent:true
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3469
                    foldConstants:false.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3470
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3471
            method notNil ifTrue:[
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3472
                method ~~ #Error ifTrue:[
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3473
                    "
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3474
                     fake: patch the source string, to what the user expects
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3475
                     in the browser
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3476
                    "
1421
dcdc178254f0 preserve lineNumbers in compiled code (evaluate)
Claus Gittinger <cg@exept.de>
parents: 1420
diff changeset
  3477
                    method source:"'        ' , "s string.
1363
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3478
                    "
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3479
                     dont do any just-in-time compilation on it.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3480
                    "
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3481
                    method checked:true.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3482
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3483
                    value := method 
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3484
                                valueWithReceiver:anObject 
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3485
                                arguments:nil  "/ (Array with:m) 
1440
7084ae99ced7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1439
diff changeset
  3486
                                selector:(requestor isNil ifTrue:#'doItX' ifFalse:#'doIt') "/ #doIt: 
1363
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3487
                                search:nil
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3488
                                sender:nil.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3489
                ] ifFalse:[
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3490
                    self evalExitBlock:[:value | self release. ^ value].
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3491
                    value := tree evaluate.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3492
                    self evalExitBlock:nil.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3493
                ]
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3494
            ].
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3495
        ]
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3496
    ].
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3497
    self release.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3498
    ^ value
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3499
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3500
    "Created: / 8.2.1997 / 19:34:44 / cg"
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3501
    "Modified: / 18.3.1999 / 18:25:40 / stefan"
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3502
    "Modified: / 6.2.2000 / 15:01:57 / cg"
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3503
! !
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  3504
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3505
!Parser methodsFor:'parsing'!
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3506
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3507
block
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3508
    "parse a block; return a node-tree, nil or #Error"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3509
883
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  3510
    |node args argNames arg pos pos2 lno|
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3511
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3512
    lno := tokenLineNr.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3513
    self nextToken.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3514
    (tokenType == $: ) ifTrue:[
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3515
        [tokenType == $:] whileTrue:[
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3516
            pos := tokenPosition.
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3517
            self nextToken.
1394
93e75cb62f4f incompatibility warning with space between colon and id in blockArgs.
Claus Gittinger <cg@exept.de>
parents: 1393
diff changeset
  3518
93e75cb62f4f incompatibility warning with space between colon and id in blockArgs.
Claus Gittinger <cg@exept.de>
parents: 1393
diff changeset
  3519
            (pos == (tokenPosition - 1)) ifFalse:[
93e75cb62f4f incompatibility warning with space between colon and id in blockArgs.
Claus Gittinger <cg@exept.de>
parents: 1393
diff changeset
  3520
                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
  3521
            ].
883
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  3522
            (tokenType ~~ #Identifier) ifTrue:[
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3523
                ^ self identifierExpectedIn:'block-arg declaration'
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3524
            ].
883
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  3525
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  3526
            pos2 := tokenPosition + tokenName size - 1.
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  3527
            self markArgumentIdentifierFrom:tokenPosition to:pos2.
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3528
            arg := Variable name:tokenName.
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3529
            args isNil ifTrue:[
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3530
                args := Array with:arg.
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3531
                argNames := Array with:tokenName.
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3532
            ] ifFalse:[
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3533
                (argNames includes:tokenName) ifTrue:[
1259
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3534
                    self blockArgRedefined:tokenName from:tokenPosition to:pos2
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3535
                ].
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3536
                args := args copyWith:arg.
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3537
                argNames := argNames copyWith:tokenName.
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3538
            ].
1394
93e75cb62f4f incompatibility warning with space between colon and id in blockArgs.
Claus Gittinger <cg@exept.de>
parents: 1393
diff changeset
  3539
            self nextToken.
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3540
        ].
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3541
        (tokenType ~~ $| ) ifTrue:[
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3542
            "ST-80 allows [:arg ]"
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3543
            (tokenType == $] ) ifTrue:[
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3544
                node := BlockNode arguments:args home:currentBlock variables:nil.
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3545
                node lineNumber:lno.
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3546
                ^ node
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3547
            ].
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3548
            self syntaxError:'| expected after block-arg declaration'.
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3549
            ^ #Error
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3550
        ].
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3551
        self nextToken
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3552
    ].
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3553
    node := self blockBody:args.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3554
    (node notNil and:[node ~~ #Error]) ifTrue:[
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3555
        node lineNumber:lno.
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3556
    ].
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3557
    ^ node
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3558
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3559
    "Modified: / 31.3.1998 / 17:31:34 / cg"
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3560
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3561
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3562
blockBody:args
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3563
    "parse a blocks body; return a node-tree, nil or #Error"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3564
1342
65f8f4d0ce09 only autoDefine workspace vars on the top level (i.e. not within blocks)
Claus Gittinger <cg@exept.de>
parents: 1341
diff changeset
  3565
    |stats node var vars lno pos2|
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3566
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3567
    lno := tokenLineNr.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3568
    (tokenType == $| ) ifTrue:[
668
8cc13d42d244 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 664
diff changeset
  3569
        self nextToken.
8cc13d42d244 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 664
diff changeset
  3570
        [tokenType == $|] whileFalse:[
8cc13d42d244 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 664
diff changeset
  3571
            (tokenType == #Identifier) ifFalse:[
8cc13d42d244 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 664
diff changeset
  3572
                ^ self identifierExpectedIn:'block-var declaration'
8cc13d42d244 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 664
diff changeset
  3573
            ].
883
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  3574
            pos2 := tokenPosition + tokenName size - 1.
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  3575
            self markLocalIdentifierFrom:tokenPosition to:pos2.
668
8cc13d42d244 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 664
diff changeset
  3576
            var := Variable name:tokenName.
8cc13d42d244 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 664
diff changeset
  3577
            vars isNil ifTrue:[
8cc13d42d244 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 664
diff changeset
  3578
                vars := Array with:var.
8cc13d42d244 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 664
diff changeset
  3579
            ] 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
  3580
                (vars contains:[:var | var name = tokenName]) ifTrue:[
883
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  3581
                    "/ varname reuse
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  3582
                    self isSyntaxHighlighter ifTrue:[
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  3583
                        self markBadIdentifierFrom:tokenPosition to:pos2.
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  3584
                    ] ifFalse:[
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  3585
                        self 
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  3586
                            parseError:'redefinition of ''' , tokenName , ''' in local variables'
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  3587
                            position:tokenPosition to:pos2.
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  3588
                    ]
668
8cc13d42d244 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 664
diff changeset
  3589
                ] ifFalse:[
8cc13d42d244 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 664
diff changeset
  3590
                    vars := vars copyWith:var.
8cc13d42d244 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 664
diff changeset
  3591
                ]
8cc13d42d244 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 664
diff changeset
  3592
            ].
8cc13d42d244 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 664
diff changeset
  3593
            self nextToken.
1342
65f8f4d0ce09 only autoDefine workspace vars on the top level (i.e. not within blocks)
Claus Gittinger <cg@exept.de>
parents: 1341
diff changeset
  3594
"/            ((tokenType == $_) or:[tokenType == #':=']) ifTrue:[
65f8f4d0ce09 only autoDefine workspace vars on the top level (i.e. not within blocks)
Claus Gittinger <cg@exept.de>
parents: 1341
diff changeset
  3595
"/                AllowLocalVariableDeclarationWithInitializerExpression == true ifTrue:[
65f8f4d0ce09 only autoDefine workspace vars on the top level (i.e. not within blocks)
Claus Gittinger <cg@exept.de>
parents: 1341
diff changeset
  3596
"/                    "/ self halt.
65f8f4d0ce09 only autoDefine workspace vars on the top level (i.e. not within blocks)
Claus Gittinger <cg@exept.de>
parents: 1341
diff changeset
  3597
"/                    "/ Q: should we allow literals only, or arbitrary expression.
65f8f4d0ce09 only autoDefine workspace vars on the top level (i.e. not within blocks)
Claus Gittinger <cg@exept.de>
parents: 1341
diff changeset
  3598
"/                ]
65f8f4d0ce09 only autoDefine workspace vars on the top level (i.e. not within blocks)
Claus Gittinger <cg@exept.de>
parents: 1341
diff changeset
  3599
"/            ].
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  3600
            (tokenType == $() ifTrue:[
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  3601
                self variableTypeDeclarationFor:var.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  3602
            ].
668
8cc13d42d244 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 664
diff changeset
  3603
        ].
8cc13d42d244 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 664
diff changeset
  3604
        self nextToken
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3605
    ].
382
49aeeb0746ba more lineNumber info
Claus Gittinger <cg@exept.de>
parents: 377
diff changeset
  3606
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3607
    node := BlockNode arguments:args home:currentBlock variables:vars.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3608
    node lineNumber:lno.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3609
    currentBlock := node.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3610
    stats := self blockStatementList.
1169
7204e72c7c3c better error message with bad parentNesting in a block.
Claus Gittinger <cg@exept.de>
parents: 1168
diff changeset
  3611
    (stats == #Error) ifTrue:[^ #Error].
7204e72c7c3c better error message with bad parentNesting in a block.
Claus Gittinger <cg@exept.de>
parents: 1168
diff changeset
  3612
382
49aeeb0746ba more lineNumber info
Claus Gittinger <cg@exept.de>
parents: 377
diff changeset
  3613
    lineNumberInfo == #full ifTrue:[
668
8cc13d42d244 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 664
diff changeset
  3614
        node endLineNumber:tokenLineNr
382
49aeeb0746ba more lineNumber info
Claus Gittinger <cg@exept.de>
parents: 377
diff changeset
  3615
    ].
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3616
    node statements:stats.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3617
    currentBlock := node home.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3618
    ^ node
382
49aeeb0746ba more lineNumber info
Claus Gittinger <cg@exept.de>
parents: 377
diff changeset
  3619
668
8cc13d42d244 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 664
diff changeset
  3620
    "Modified: / 31.3.1998 / 22:46:09 / 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
blockExpression
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3624
    "parse a blockExpression; return a node-tree, nil or #Error.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3625
     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
  3626
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3627
    tokenType ~~ $[ ifTrue:[
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3628
	self syntaxError:'[ expected'.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3629
	^ #Error.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3630
    ].
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3631
    ^ self block
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3632
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3633
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3634
blockStatementList
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3635
    "parse a blocks statementlist; return a node-tree, nil or #Error"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3636
743
3ced4791090c changes for cascades to super/here semantics.
Claus Gittinger <cg@exept.de>
parents: 739
diff changeset
  3637
    |thisStatement prevStatement firstStatement eMsg|
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3638
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3639
    (tokenType == $] ) ifTrue:[^ nil].
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3640
    thisStatement := self statement.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3641
    (thisStatement == #Error) ifTrue:[^ #Error].
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3642
    firstStatement := thisStatement.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3643
    [tokenType == $] ] whileFalse:[
673
0c66b7cb1d2f checkin from browser
ca
parents: 672
diff changeset
  3644
        (tokenType == $.) ifFalse:[
1169
7204e72c7c3c better error message with bad parentNesting in a block.
Claus Gittinger <cg@exept.de>
parents: 1168
diff changeset
  3645
            (tokenType == #EOF) ifTrue:[
1371
de4c37ac12fc code rewritten to be independent of stream zero-base
Claus Gittinger <cg@exept.de>
parents: 1369
diff changeset
  3646
                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
  3647
                ^ #Error.
7204e72c7c3c better error message with bad parentNesting in a block.
Claus Gittinger <cg@exept.de>
parents: 1168
diff changeset
  3648
            ].
7204e72c7c3c better error message with bad parentNesting in a block.
Claus Gittinger <cg@exept.de>
parents: 1168
diff changeset
  3649
7204e72c7c3c better error message with bad parentNesting in a block.
Claus Gittinger <cg@exept.de>
parents: 1168
diff changeset
  3650
            (tokenType == $) ) ifTrue:[
7204e72c7c3c better error message with bad parentNesting in a block.
Claus Gittinger <cg@exept.de>
parents: 1168
diff changeset
  3651
                eMsg := 'missing '']'' or bad '')'' in block'
673
0c66b7cb1d2f checkin from browser
ca
parents: 672
diff changeset
  3652
            ] ifFalse:[
1182
34aac67e6e72 care for unexpected stuff at the end (in a doit)
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  3653
                eMsg := 'missing ''.'' between statements (i.e. ''' , tokenType printString , '''-token unexpected)'
673
0c66b7cb1d2f checkin from browser
ca
parents: 672
diff changeset
  3654
            ].
1169
7204e72c7c3c better error message with bad parentNesting in a block.
Claus Gittinger <cg@exept.de>
parents: 1168
diff changeset
  3655
            self syntaxError:eMsg position:tokenPosition to:tokenPosition.
673
0c66b7cb1d2f checkin from browser
ca
parents: 672
diff changeset
  3656
            ^ #Error
1182
34aac67e6e72 care for unexpected stuff at the end (in a doit)
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  3657
        ].
34aac67e6e72 care for unexpected stuff at the end (in a doit)
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  3658
        prevStatement := thisStatement.
34aac67e6e72 care for unexpected stuff at the end (in a doit)
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  3659
        self nextToken.
34aac67e6e72 care for unexpected stuff at the end (in a doit)
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  3660
34aac67e6e72 care for unexpected stuff at the end (in a doit)
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  3661
        tokenType == $] ifTrue:[
34aac67e6e72 care for unexpected stuff at the end (in a doit)
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  3662
            "
34aac67e6e72 care for unexpected stuff at the end (in a doit)
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  3663
            *** 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
  3664
            *** 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
  3665
            *** 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
  3666
            *** became annoying
34aac67e6e72 care for unexpected stuff at the end (in a doit)
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  3667
34aac67e6e72 care for unexpected stuff at the end (in a doit)
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  3668
            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
  3669
            "
34aac67e6e72 care for unexpected stuff at the end (in a doit)
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  3670
            self markBracketAt:tokenPosition.
34aac67e6e72 care for unexpected stuff at the end (in a doit)
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  3671
            ^ firstStatement
34aac67e6e72 care for unexpected stuff at the end (in a doit)
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  3672
        ].
34aac67e6e72 care for unexpected stuff at the end (in a doit)
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  3673
        thisStatement := self statement.
34aac67e6e72 care for unexpected stuff at the end (in a doit)
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  3674
        (thisStatement == #Error) ifTrue:[^ #Error].
34aac67e6e72 care for unexpected stuff at the end (in a doit)
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  3675
        prevStatement nextStatement:thisStatement
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3676
    ].
673
0c66b7cb1d2f checkin from browser
ca
parents: 672
diff changeset
  3677
    self markBracketAt:tokenPosition.
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3678
    ^ firstStatement
743
3ced4791090c changes for cascades to super/here semantics.
Claus Gittinger <cg@exept.de>
parents: 739
diff changeset
  3679
3ced4791090c changes for cascades to super/here semantics.
Claus Gittinger <cg@exept.de>
parents: 739
diff changeset
  3680
    "Modified: / 16.7.1998 / 20:38:25 / cg"
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3681
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  3682
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  3683
checkForEndOfInput
1412
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  3684
    |what|
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  3685
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  3686
    (tokenType ~~ #EOF) ifTrue:[
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  3687
        "/ just for the nicer error message
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  3688
        (#(Self Nil True False Super Here) includes:tokenType) ifTrue:[
1412
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  3689
            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
  3690
                   position:tokenPosition to:(tokenPosition + tokenName size - 1)
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  3691
        ] ifFalse:[
1412
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  3692
            tokenType isCharacter ifTrue:[
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  3693
                what := '''' , tokenType , ''''.
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  3694
            ] ifFalse:[
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  3695
                what := tokenType printString.
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  3696
            ].
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  3697
            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
  3698
                 position:tokenPosition to:source position1Based-1.
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  3699
        ].
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  3700
        ^#Error
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  3701
    ]
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  3702
!
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  3703
1222
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3704
checkReturnedValues
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3705
    | returnsSelf returnsBoolean returnsNonBooleanLiteral|
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3706
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3707
    ignoreWarnings ifTrue:[^ self].
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3708
    returnedValues isNil ifTrue:[^ self].
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3709
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3710
    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
  3711
    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
  3712
    returnsSelf := returnedValues contains:[:node | node isSelf].
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3713
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3714
    returnsBoolean ifTrue:[
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3715
        (returnsNonBooleanLiteral or:[returnsSelf]) ifTrue:[
1455
25e4af227208 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1453
diff changeset
  3716
            self 
25e4af227208 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1453
diff changeset
  3717
                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
  3718
                position:1 to:tokenPosition
1222
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3719
        ]
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3720
    ].
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3721
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3722
    "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
  3723
    "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
  3724
!
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3725
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3726
checkUnusedMethodVars
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3727
    | unused|
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3728
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3729
    ignoreWarnings ifFalse:[
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3730
        methodVars notNil ifTrue:[
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3731
            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
  3732
        ].
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3733
        unused size > 0 ifTrue:[
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3734
            self warnUnused:unused.
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3735
        ].
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3736
    ].
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3737
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3738
    "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
  3739
!
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3740
1224
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3741
parseExceptionOrContextPragma
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3742
    |pragmaType|
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3743
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3744
    "/ < resource: has already been parsed.
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3745
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3746
    pragmaType := tokenName.
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3747
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3748
    self nextToken.
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3749
    (tokenType ~~ #Symbol) ifTrue:[
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3750
        self parseError:'symbol expected'.
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3751
        ^ #Error
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3752
    ].
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3753
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3754
    ((pragmaType = 'exception:'
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3755
        and:[tokenValue == #'handle'
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3756
             or:[tokenValue == #'raise'
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3757
             or:[tokenValue == #'unwind']]])
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3758
    or:[
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3759
        pragmaType = 'context:'
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3760
        and:[(tokenValue == #'return')]])
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3761
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3762
    ifTrue:[
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3763
        primitiveContextInfo isNil ifTrue:[
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3764
            primitiveContextInfo := Set new.
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3765
        ].
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3766
        primitiveContextInfo add:(pragmaType->tokenValue).
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3767
    ] ifFalse:[
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3768
        self parseError:'unrecognized exception pragma: ' , tokenValue.
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3769
    ].
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3770
    self nextToken.
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3771
!
b4d80bd993f9 parse ST/C api pragma (as dummy)
Claus Gittinger <cg@exept.de>
parents: 1222
diff changeset
  3772
1006
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  3773
parseExpressionWithSelf:anObject notifying:someOne ignoreErrors:ignoreErrors ignoreWarnings:ignoreWarnings inNameSpace:aNameSpaceOrNil
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  3774
    "parse aString as an expression with self set to anObject;
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  3775
     Return the parseTree (if ok), nil (for an empty string 
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  3776
     or comment only ) or #Error (syntactic error).
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  3777
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  3778
     Errors and warnings are forwarded to someOne (usually some
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  3779
     codeView) which can highlight it and show a popup box,
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  3780
     iff ignoreErrors/ignoreWarnings is true respectively."
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  3781
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  3782
    |tree token|
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  3783
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  3784
    aNameSpaceOrNil notNil ifTrue:[
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  3785
        self currentNameSpace:aNameSpaceOrNil
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  3786
    ].
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  3787
    self setSelf:anObject.
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  3788
    self notifying:someOne.
1365
19b74038d133 ignoreErrors / ignoreWarnings are not getters.
penk
parents: 1364
diff changeset
  3789
    self ignoreErrors:ignoreErrors.
19b74038d133 ignoreErrors / ignoreWarnings are not getters.
penk
parents: 1364
diff changeset
  3790
    self ignoreWarnings:ignoreWarnings.
1006
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  3791
    token := self nextToken.
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  3792
    (token == $^) ifTrue:[
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  3793
        self nextToken.
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  3794
    ].
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  3795
    tree := self expression.
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  3796
    (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
  3797
"/    tokenType ~~ #EOF ifTrue:[
34aac67e6e72 care for unexpected stuff at the end (in a doit)
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  3798
"/        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
  3799
"/    ].
1006
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  3800
    ^ tree
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  3801
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  3802
    "Created: / 14.12.1999 / 15:11:37 / cg"
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  3803
!
ffce16b01b0a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1003
diff changeset
  3804
1259
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3805
parseExtendedMethodSpec
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3806
    |pos1 pos2 var|
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3807
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3808
    "/ EXPERIMENTAL
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3809
false ifTrue:[
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3810
    (tokenType == #Symbol) ifTrue:[
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3811
        pos1 := tokenPosition.
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3812
        selector := token asSymbol.
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3813
        self nextToken.
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3814
        self markMethodSelectorFrom:pos1 to:(tokenPosition-1).
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3815
        endOfSelectorPosition := tokenPosition.
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3816
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3817
        tokenType == $( ifTrue:[
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3818
            self nextToken.
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3819
            [ tokenType ~~ $) ] whileTrue:[
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3820
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3821
                (tokenType ~~ #Identifier) ifTrue:[^ #Error].
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3822
                pos2 := tokenPosition+tokenName size-1.
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3823
                self markArgumentIdentifierFrom:tokenPosition to:pos2.
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3824
                var := Variable name:tokenName.
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3825
                methodArgs isNil ifTrue:[
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3826
                    methodArgs := Array with:var.
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3827
                    methodArgNames := Array with:tokenName
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3828
                ] ifFalse:[
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3829
                    (methodArgNames includes:tokenName) ifTrue:[
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3830
                        self methodArgRedefined:tokenName from:tokenPosition to:pos2
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3831
                    ].
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3832
                    methodArgs := methodArgs copyWith:var.
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3833
                    methodArgNames := methodArgNames copyWith:tokenName
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3834
                ].
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3835
                self nextToken.
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3836
            ].
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3837
            self nextToken.
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3838
        ].
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3839
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3840
        ^ self
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3841
    ].
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3842
].
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3843
    ^ #Error
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3844
!
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  3845
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3846
parseMethod
19
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3847
    "parse a method.
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3848
     Return the parseTree or #Error.
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3849
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3850
     method ::= methodSpec methodBody
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3851
    "
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3852
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3853
    |parseTree|
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3854
255
13a059f6569d no need to send nextToken when parsing a method
Claus Gittinger <cg@exept.de>
parents: 229
diff changeset
  3855
"/    self nextToken.
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3856
    (self parseMethodSpec == #Error) ifTrue:[^ #Error].
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3857
    parseTree := self parseMethodBody.
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3858
    (parseTree == #Error) ifFalse:[
1171
0c43ce981f1b oops - remove unused vars does not work (yet)
Claus Gittinger <cg@exept.de>
parents: 1169
diff changeset
  3859
        self tree:parseTree
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3860
    ].
1186
014c3db76517 oops - end of input check should not be done when simply evaluating
Claus Gittinger <cg@exept.de>
parents: 1182
diff changeset
  3861
    self checkForEndOfInput.
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3862
    ^ parseTree
255
13a059f6569d no need to send nextToken when parsing a method
Claus Gittinger <cg@exept.de>
parents: 229
diff changeset
  3863
13a059f6569d no need to send nextToken when parsing a method
Claus Gittinger <cg@exept.de>
parents: 229
diff changeset
  3864
    "Modified: 20.4.1996 / 20:09:26 / cg"
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3865
!
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3866
19
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3867
parseMethodBody
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3868
    "parse a methods body (locals & statements). 
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3869
     No more tokens may follow.
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3870
     Return a node-tree, or #Error
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3871
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3872
     methodBody ::= '<' st80Primitive '>' #EOF
883
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  3873
                    | '<' st80Primitive '>' methodBodyVarSpec statementList #EOF
19
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3874
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3875
    "
1222
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3876
    |stats|
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3877
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3878
    stats := self parseMethodBodyOrEmpty.
19
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3879
    (stats == #Error) ifFalse:[
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  3880
        self checkForEndOfInput.
19
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3881
    ].
1160
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3882
    ignoreWarnings ifFalse:[
1222
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3883
        self checkUnusedMethodVars.
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3884
        self checkReturnedValues.
1160
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  3885
    ].
19
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3886
    ^ stats
165
213e3f12fc56 better error message when selector is missing
Claus Gittinger <cg@exept.de>
parents: 148
diff changeset
  3887
1222
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  3888
    "Modified: / 17.11.2001 / 10:31:12 / cg"
19
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3889
!
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3890
79
26f81a94a6ea *** empty log message ***
claus
parents: 78
diff changeset
  3891
parseMethodBodyOrEmpty
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3892
    "parse a methods body (locals & statements);
19
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3893
     return  a node-tree, nil or #Error. 
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3894
     empty (or comment only) input is accepted and returns nil.
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3895
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3896
     methodBodyOrNil ::= '<' st80Primitive '>'
1182
34aac67e6e72 care for unexpected stuff at the end (in a doit)
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  3897
                         | '<' st80Primitive '>' methodBodyVarSpec statementList
34aac67e6e72 care for unexpected stuff at the end (in a doit)
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  3898
                         | <empty>
19
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3899
    "
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3900
265
a8617dc49bbf examples
Claus Gittinger <cg@exept.de>
parents: 263
diff changeset
  3901
    |stats|
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3902
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3903
    (self parseMethodBodyVarSpec == #Error) ifTrue:[^ #Error].
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3904
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3905
    (tokenType ~~ #EOF) ifTrue:[
1182
34aac67e6e72 care for unexpected stuff at the end (in a doit)
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  3906
        stats := self statementList
34aac67e6e72 care for unexpected stuff at the end (in a doit)
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  3907
    ].
1186
014c3db76517 oops - end of input check should not be done when simply evaluating
Claus Gittinger <cg@exept.de>
parents: 1182
diff changeset
  3908
"/    (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
  3909
"/        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
  3910
"/        ^ #Error
014c3db76517 oops - end of input check should not be done when simply evaluating
Claus Gittinger <cg@exept.de>
parents: 1182
diff changeset
  3911
"/    ].
1231
637e0e215633 returnValue check
Claus Gittinger <cg@exept.de>
parents: 1230
diff changeset
  3912
    (stats notNil
637e0e215633 returnValue check
Claus Gittinger <cg@exept.de>
parents: 1230
diff changeset
  3913
    and:[stats ~~ #Error]) ifTrue:[
637e0e215633 returnValue check
Claus Gittinger <cg@exept.de>
parents: 1230
diff changeset
  3914
        stats last isReturnNode ifFalse:[
637e0e215633 returnValue check
Claus Gittinger <cg@exept.de>
parents: 1230
diff changeset
  3915
            "/ remember a returned self here.
1262
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  3916
            self rememberReturnedValue:(self selfNode)
1231
637e0e215633 returnValue check
Claus Gittinger <cg@exept.de>
parents: 1230
diff changeset
  3917
        ].
637e0e215633 returnValue check
Claus Gittinger <cg@exept.de>
parents: 1230
diff changeset
  3918
    ].
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3919
    ^ stats
265
a8617dc49bbf examples
Claus Gittinger <cg@exept.de>
parents: 263
diff changeset
  3920
a8617dc49bbf examples
Claus Gittinger <cg@exept.de>
parents: 263
diff changeset
  3921
    "Modified: 27.4.1996 / 16:57:56 / cg"
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3922
!
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3923
19
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3924
parseMethodBodyVarSpec
265
a8617dc49bbf examples
Claus Gittinger <cg@exept.de>
parents: 263
diff changeset
  3925
    "parse a methods local variable specification, handling
a8617dc49bbf examples
Claus Gittinger <cg@exept.de>
parents: 263
diff changeset
  3926
     possible primitive or resourceSpecs.
a8617dc49bbf examples
Claus Gittinger <cg@exept.de>
parents: 263
diff changeset
  3927
     . 
19
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3928
     Leave spec of locals in methodLocals as a side effect.
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3929
     Return #Error or nil.
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3930
19
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3931
     methodBodyVarSpec ::= '|' { IDENTIFIER } '|'
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3932
                            | <empty>
19
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  3933
    "
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3934
883
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  3935
    |var pos pos2 msg|
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3936
265
a8617dc49bbf examples
Claus Gittinger <cg@exept.de>
parents: 263
diff changeset
  3937
    ((tokenType == #BinaryOperator) and:[tokenName = '<']) ifTrue:[
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3938
        self parsePrimitiveOrResourceSpecOrEmpty.
265
a8617dc49bbf examples
Claus Gittinger <cg@exept.de>
parents: 263
diff changeset
  3939
    ].
a8617dc49bbf examples
Claus Gittinger <cg@exept.de>
parents: 263
diff changeset
  3940
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  3941
    (tokenType == $|) ifTrue:[
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3942
        "memorize position for declaration in correction"
883
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  3943
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3944
        localVarDefPosition := tokenPosition.
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3945
        self nextToken.
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3946
        pos := tokenPosition.
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3947
        [tokenType == #Identifier] whileTrue:[
883
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  3948
            pos2 := tokenPosition + tokenName size - 1.
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  3949
            self markLocalIdentifierFrom:tokenPosition to:pos2.
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3950
            var := Variable name:tokenName.
883
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  3951
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3952
            methodVars isNil ifTrue:[
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3953
                methodVars := OrderedCollection with:var.
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3954
                methodVarNames := OrderedCollection with:tokenName
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3955
            ] ifFalse:[
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3956
                (methodVarNames includes:tokenName) ifTrue:[
883
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  3957
                    "/ redefinition
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  3958
                    self isSyntaxHighlighter ifTrue:[
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  3959
                        self markBadIdentifierFrom:tokenPosition to:pos2.
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  3960
                    ] ifFalse:[
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  3961
                        self 
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  3962
                            parseError:'redefinition of ''' , tokenName , ''' in local variables'
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  3963
                            position:tokenPosition to:pos2.
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  3964
                    ]
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3965
                ] ifFalse:[
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3966
                    methodVars add:var.
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3967
                    methodVarNames add:tokenName
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3968
                ]
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3969
            ].
883
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  3970
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3971
            methodArgNames notNil ifTrue:[
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3972
                (methodArgNames includes:tokenName) ifTrue:[
883
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  3973
                    self 
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  3974
                        warning:'local variable ''' , tokenName , ''' hides argument.'
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  3975
                        position:tokenPosition to:pos2
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3976
                ]
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3977
            ].
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3978
            self nextToken.
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  3979
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  3980
            (tokenType == $() ifTrue:[
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  3981
                self variableTypeDeclarationFor:var.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  3982
            ].
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3983
            pos := tokenPosition
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3984
        ].
883
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  3985
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3986
        (tokenType ~~ $|) ifTrue:[
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3987
            (#(True False Self Nil Super ThisContext) includes:tokenType) ifTrue:[
883
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  3988
                msg := 'Reserved keyword in local var declaration'. 
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  3989
                pos2 := tokenPosition + tokenName size - 1.
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  3990
                self markBadIdentifierFrom:tokenPosition to:pos2.
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3991
            ] ifFalse:[
1371
de4c37ac12fc code rewritten to be independent of stream zero-base
Claus Gittinger <cg@exept.de>
parents: 1369
diff changeset
  3992
                pos2 := source position1Based-1.
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3993
                msg := 'Identifier or | expected in local var declaration' 
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3994
            ].
883
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  3995
            self syntaxError:msg position:tokenPosition to:pos2.
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3996
            ^ #Error
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3997
        ].
878
f9c8d2544909 added declare-as (local, global or workspace-war)
Claus Gittinger <cg@exept.de>
parents: 877
diff changeset
  3998
        localVarDefPosition := Array with:localVarDefPosition with:tokenPosition.
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  3999
        self nextToken
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  4000
    ].
984
0994fa625709 more squeak-parsing
Claus Gittinger <cg@exept.de>
parents: 977
diff changeset
  4001
1363
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  4002
    allowSqueakExtensions ifTrue:[
984
0994fa625709 more squeak-parsing
Claus Gittinger <cg@exept.de>
parents: 977
diff changeset
  4003
        "/ allow for primitiveSpec after local-var decl.
0994fa625709 more squeak-parsing
Claus Gittinger <cg@exept.de>
parents: 977
diff changeset
  4004
0994fa625709 more squeak-parsing
Claus Gittinger <cg@exept.de>
parents: 977
diff changeset
  4005
        ((tokenType == #BinaryOperator) and:[tokenName = '<']) ifTrue:[
0994fa625709 more squeak-parsing
Claus Gittinger <cg@exept.de>
parents: 977
diff changeset
  4006
            self parsePrimitiveOrResourceSpecOrEmpty.
0994fa625709 more squeak-parsing
Claus Gittinger <cg@exept.de>
parents: 977
diff changeset
  4007
        ]
0994fa625709 more squeak-parsing
Claus Gittinger <cg@exept.de>
parents: 977
diff changeset
  4008
    ].
0994fa625709 more squeak-parsing
Claus Gittinger <cg@exept.de>
parents: 977
diff changeset
  4009
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  4010
    ^ nil
139
65eaf1a009f5 warn if method local hides method arg
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
  4011
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  4012
    "Modified: / 31.3.1998 / 17:30:33 / cg"
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  4013
!
7ad01559b262 Initial revision
claus
parents:
diff changeset
  4014
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  4015
parseMethodSpec
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  4016
    "parse a methods selector & arg specification;
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  4017
     Set selector and methodArgs in the receiver as a side effect.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  4018
     Return the receiver or #Error.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  4019
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  4020
     methodSpec ::= { KEYWORD IDENTIFIER }
660
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  4021
                    | binaryOperator IDENTIFIER
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  4022
                    | IDENTIFIER
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  4023
    "
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  4024
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4025
    |arg pos2|
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  4026
255
13a059f6569d no need to send nextToken when parsing a method
Claus Gittinger <cg@exept.de>
parents: 229
diff changeset
  4027
    tokenType isNil ifTrue:[
660
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  4028
        self nextToken.
255
13a059f6569d no need to send nextToken when parsing a method
Claus Gittinger <cg@exept.de>
parents: 229
diff changeset
  4029
    ].
13a059f6569d no need to send nextToken when parsing a method
Claus Gittinger <cg@exept.de>
parents: 229
diff changeset
  4030
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  4031
    (tokenType == #Keyword) ifTrue:[
660
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  4032
        selector := ''.
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  4033
        [tokenType == #Keyword] whileTrue:[
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  4034
            self markMethodSelectorFrom:tokenPosition to:(tokenPosition+tokenName size-1).
660
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  4035
            selector := selector , tokenName.
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  4036
            self nextToken.
883
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  4037
1259
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  4038
            (tokenType ~~ #Identifier) ifTrue:[
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  4039
                "/ ^ #Error].
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  4040
                ^ self identifierExpectedIn:'method-arg declaration'
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  4041
            ].
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  4042
883
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  4043
            pos2 := tokenPosition+tokenName size-1.
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  4044
            self markArgumentIdentifierFrom:tokenPosition to:pos2.
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4045
            arg := Variable name:tokenName.
660
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  4046
            methodArgs isNil ifTrue:[
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4047
                methodArgs := Array with:arg.
660
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  4048
                methodArgNames := Array with:tokenName
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  4049
            ] ifFalse:[
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  4050
                (methodArgNames includes:tokenName) ifTrue:[
1259
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  4051
                    self methodArgRedefined:tokenName from:tokenPosition to:pos2
660
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  4052
                ].
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4053
                methodArgs := methodArgs copyWith:arg.
660
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  4054
                methodArgNames := methodArgNames copyWith:tokenName
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  4055
            ].
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4056
            self nextToken.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4057
"/            ((tokenType == #BinaryOperator) and:[token = '#']) ifTrue:[
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4058
"/                self nextToken.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4059
"/                arg domain:nil.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4060
"/            ].
660
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  4061
        ].
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  4062
        selector := selector asSymbol.
878
f9c8d2544909 added declare-as (local, global or workspace-war)
Claus Gittinger <cg@exept.de>
parents: 877
diff changeset
  4063
        endOfSelectorPosition := tokenPosition.
660
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  4064
        ^ self
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  4065
    ].
1306
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  4066
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  4067
    (self isValidUnarySelector:tokenType) ifTrue:[
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  4068
        self markMethodSelectorFrom:tokenPosition to:(tokenPosition+tokenName size-1).
660
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  4069
        selector := tokenName asSymbol.
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  4070
        self nextToken.
878
f9c8d2544909 added declare-as (local, global or workspace-war)
Claus Gittinger <cg@exept.de>
parents: 877
diff changeset
  4071
        endOfSelectorPosition := tokenPosition.
660
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  4072
        ^ self
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  4073
    ].
1306
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  4074
461
1d24cc165fac oops - did not allow | as method-selector
Claus Gittinger <cg@exept.de>
parents: 457
diff changeset
  4075
    "/ 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
  4076
    tokenType == $| ifTrue:[
660
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  4077
        tokenType := #BinaryOperator.
1103
b75a71996388 ensure that token follows tomeName & tokenValue
Claus Gittinger <cg@exept.de>
parents: 1100
diff changeset
  4078
        token := tokenName := '|'
461
1d24cc165fac oops - did not allow | as method-selector
Claus Gittinger <cg@exept.de>
parents: 457
diff changeset
  4079
    ].
1d24cc165fac oops - did not allow | as method-selector
Claus Gittinger <cg@exept.de>
parents: 457
diff changeset
  4080
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  4081
    (tokenType == #BinaryOperator) ifTrue:[
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  4082
        self markMethodSelectorFrom:tokenPosition to:(tokenPosition+tokenName size-1).
660
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  4083
        selector := tokenName asSymbol.
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  4084
        self nextToken.
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  4085
        (tokenType ~~ #Identifier) ifTrue:[^ #Error].
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  4086
        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
  4087
        arg := Variable name:tokenName.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4088
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4089
        methodArgs := Array with:arg.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4090
        methodArgNames := Array with:tokenName.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4091
660
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  4092
        self nextToken.
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4093
"/            ((tokenType == #BinaryOperator) and:[token = '#']) ifTrue:[
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4094
"/                self nextToken.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4095
"/                arg domain:nil.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4096
"/            ].
878
f9c8d2544909 added declare-as (local, global or workspace-war)
Claus Gittinger <cg@exept.de>
parents: 877
diff changeset
  4097
        endOfSelectorPosition := tokenPosition.
660
f68ddffc6921 support for syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 647
diff changeset
  4098
        ^ self
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  4099
    ].
461
1d24cc165fac oops - did not allow | as method-selector
Claus Gittinger <cg@exept.de>
parents: 457
diff changeset
  4100
1259
c3d7847b92c1 error handling refactored
Claus Gittinger <cg@exept.de>
parents: 1257
diff changeset
  4101
    ^ self parseExtendedMethodSpec
255
13a059f6569d no need to send nextToken when parsing a method
Claus Gittinger <cg@exept.de>
parents: 229
diff changeset
  4102
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  4103
    "Modified: / 31.3.1998 / 17:31:59 / cg"
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  4104
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  4105
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4106
statement
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4107
    "parse a statement; return a node-tree or #Error.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4108
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4109
     statement ::= '^' expression
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4110
                   | PRIMITIVECODE
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4111
                   | expression
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4112
    "
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4113
1276
f7f6e0c1aff9 code could be wrong in a primitive node
Claus Gittinger <cg@exept.de>
parents: 1275
diff changeset
  4114
    |expr node lnr code|
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4115
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4116
    (tokenType == $^) ifTrue:[
837
b09e08bb3d5e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 832
diff changeset
  4117
        self markReturnAt:tokenPosition.
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4118
        lnr := tokenLineNr.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4119
        self nextToken.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4120
        expr := self expression.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4121
        (expr == #Error) ifTrue:[^ #Error].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4122
        node := ReturnNode expression:expr.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4123
        node home:self blockHome:currentBlock.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4124
        (lineNumberInfo == #full) ifTrue:[node lineNumber:lnr].
1222
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  4125
1231
637e0e215633 returnValue check
Claus Gittinger <cg@exept.de>
parents: 1230
diff changeset
  4126
        self rememberReturnedValue:expr.
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4127
        ^ node
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4128
    ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4129
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4130
    (tokenType == #Primitive) ifTrue:[
1276
f7f6e0c1aff9 code could be wrong in a primitive node
Claus Gittinger <cg@exept.de>
parents: 1275
diff changeset
  4131
        code := tokenValue.
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4132
        self nextToken.
1276
f7f6e0c1aff9 code could be wrong in a primitive node
Claus Gittinger <cg@exept.de>
parents: 1275
diff changeset
  4133
        node := PrimitiveNode code:code.
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4134
        node isOptional ifFalse:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4135
            hasNonOptionalPrimitiveCode := true
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4136
        ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4137
        hasPrimitiveCode := true.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4138
        ^ node
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4139
    ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4140
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4141
    (tokenType == #EOF) ifTrue:[
733
6859b56d5bd2 better error message for missing ']' at end of block.
Claus Gittinger <cg@exept.de>
parents: 732
diff changeset
  4142
        currentBlock notNil ifTrue:[
6859b56d5bd2 better error message for missing ']' at end of block.
Claus Gittinger <cg@exept.de>
parents: 732
diff changeset
  4143
            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
  4144
        ] ifFalse:[
6859b56d5bd2 better error message for missing ']' at end of block.
Claus Gittinger <cg@exept.de>
parents: 732
diff changeset
  4145
            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
  4146
        ].
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4147
        ^ #Error
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4148
    ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4149
984
0994fa625709 more squeak-parsing
Claus Gittinger <cg@exept.de>
parents: 977
diff changeset
  4150
    (tokenType == $.) ifTrue:[
1363
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  4151
        allowSqueakExtensions == true ifTrue:[
984
0994fa625709 more squeak-parsing
Claus Gittinger <cg@exept.de>
parents: 977
diff changeset
  4152
            "/ allow empty statement
0994fa625709 more squeak-parsing
Claus Gittinger <cg@exept.de>
parents: 977
diff changeset
  4153
            ^ StatementNode expression:nil.
0994fa625709 more squeak-parsing
Claus Gittinger <cg@exept.de>
parents: 977
diff changeset
  4154
        ].
0994fa625709 more squeak-parsing
Claus Gittinger <cg@exept.de>
parents: 977
diff changeset
  4155
    ].
0994fa625709 more squeak-parsing
Claus Gittinger <cg@exept.de>
parents: 977
diff changeset
  4156
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4157
    expr := self expression.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4158
    (expr == #Error) ifTrue:[^ #Error].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4159
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4160
"/    classToCompileFor notNil ifTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4161
"/        currentBlock isNil ifTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4162
"/            expr isPrimary ifTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4163
"/                self warning:'useless computation - missing ^ ?'
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4164
"/            ]
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4165
"/        ]
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4166
"/    ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4167
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4168
    node := StatementNode expression:expr.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4169
    (lineNumberInfo == #full) ifTrue:[node lineNumber:lnr].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4170
    ^ node
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4171
1222
f3f602267070 check if returning both boolean / non-boolean
Claus Gittinger <cg@exept.de>
parents: 1221
diff changeset
  4172
    "Modified: / 17.11.2001 / 10:22:33 / cg"
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4173
!
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4174
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4175
statementList
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4176
    "parse a statementlist; return a node-tree, nil or #Error.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4177
     Statements must be separated by periods.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4178
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4179
     statementList ::= <statement>
988
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4180
                       | <statementList> . <statement>
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4181
    "
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
    |thisStatement prevStatement firstStatement correctIt periodPos
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4184
     prevExpr|
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4185
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4186
    thisStatement := self statement.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4187
    (thisStatement == #Error) ifTrue:[^ #Error].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4188
    firstStatement := thisStatement.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4189
    [tokenType == $.] whileTrue:[
988
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4190
        prevExpr := thisStatement expression.
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4191
        (prevExpr notNil 
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4192
        and:[prevExpr isMessage
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4193
        and:[thisStatement isReturnNode not]]) ifTrue:[
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4194
            (#(#'=' #'==') includes:prevExpr selector) ifTrue:[
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4195
                self warning:'useless computation - mistyped assignment ?'
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4196
            ].
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4197
        ].
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4198
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4199
        periodPos := tokenPosition.
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4200
        self nextToken.
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4201
        (tokenType == $]) ifTrue:[
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4202
            currentBlock isNil ifTrue:[
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4203
                self parseError:'block nesting error'.
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4204
                errorFlag := true
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4205
"
988
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4206
            *** I had a warning here (since it was not defined
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4207
            *** in the blue-book; but PD-code contains a lot of
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4208
            *** code with periods at the end so that the warnings
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4209
            *** became annoying
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4210
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4211
            ] ifFalse:[
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4212
                self warning:'period after last statement' position:periodPos
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4213
"
988
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4214
            ].
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4215
            ^ firstStatement
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4216
        ].
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4217
        (tokenType == #EOF) ifTrue:[
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4218
            currentBlock notNil ifTrue:[
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4219
                self parseError:'block nesting error (expected '']'')'.
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4220
                errorFlag := true
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4221
"
988
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4222
            *** I had a warning here (since it was not defined
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4223
            *** in the blue-book; but PD-code contains a lot of
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4224
            *** code with periods at the end so that the warnings
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4225
            *** became annoying
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4226
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4227
            ] ifFalse:[
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4228
                self warning:'period after last statement' position:periodPos
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4229
"
988
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4230
            ].
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4231
            ^ firstStatement
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4232
        ].
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4233
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4234
        prevStatement := thisStatement.
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4235
        prevStatement isReturnNode ifTrue:[
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4236
            self warning:'statements after return' position:tokenPosition
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4237
        ].
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4238
"
988
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4239
        periodPos := tokenPosition.
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4240
        self nextToken.
713
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
988
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4243
        ((tokenType == $]) or:[tokenType == #EOF]) ifTrue:[
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4244
            (currentBlock isNil and:[tokenType == $]]) ifTrue:[
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4245
                self parseError:'block nesting error'.
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4246
                errorFlag := true
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4247
            ] ifFalse:[
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4248
                correctIt := self correctableError:'period after last statement in block'
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4249
                                          position:periodPos to:(periodPos + 1).
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4250
                correctIt ifTrue:[
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4251
                    (self correctByDeleting == #Error) ifTrue:[
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4252
                        errorFlag := true
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4253
                    ]
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4254
                ]
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4255
            ].
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4256
            ^ firstStatement
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4257
        ].
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4258
        thisStatement := self statement.
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4259
        (thisStatement == #Error) ifTrue:[^ #Error].
5b38d970fb1a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4260
        prevStatement nextStatement:thisStatement
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4261
    ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4262
    ^ firstStatement
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4263
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4264
    "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
  4265
!
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4266
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4267
variableTypeDeclarationFor:aVariable
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4268
    |min max domain enumValues|
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4269
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4270
    (tokenType == $() ifFalse:[
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4271
        self syntaxError:'''('' expected' position:tokenPosition.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4272
        ^ #Error
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4273
    ].    
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4274
    self nextToken.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4275
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4276
    (tokenType == #Integer) ifTrue:[
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4277
        min := token.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4278
        self nextToken.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4279
        ((tokenType == #BinaryOperator) and:[token = '%%']) ifFalse:[
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4280
            self syntaxError:'''%%'' expected' position:tokenPosition.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4281
        ].
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4282
        self nextToken.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4283
        (tokenType == #Integer) ifFalse:[
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4284
            self syntaxError:'Integer (upper bound) expected' position:tokenPosition.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4285
        ].
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4286
        max := token.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4287
        self nextToken.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4288
        domain := IntegerDomain min:min max:max.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4289
    ] ifFalse:[
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4290
        ((tokenType == #Identifier) and:[token first isUppercase]) ifTrue:[
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4291
            token = 'Bool' ifTrue:[
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4292
                self nextToken.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4293
                domain := BooleanDomain new.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4294
            ].
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4295
            token = 'Nat' ifTrue:[
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4296
                self nextToken.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4297
                domain := IntegerDomain min:0 max:(SmallInteger maxVal).
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4298
            ].
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4299
            token = 'Int' ifTrue:[
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4300
                self nextToken.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4301
                domain := IntegerDomain min:(SmallInteger minVal) max:(SmallInteger maxVal).
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4302
            ].
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4303
        ] ifFalse:[
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4304
            ((tokenType == #Symbol) or:[(tokenType == #Identifier)]) ifTrue:[
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4305
                enumValues := OrderedCollection new.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4306
                [((tokenType == #Symbol) or:[(tokenType == #Identifier)])] whileTrue:[
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4307
                    enumValues add:token.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4308
                    self nextToken.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4309
                ].
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4310
                domain := EnumeratedDomain new values:enumValues.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4311
            ].
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4312
        ].
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4313
    ].
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4314
    domain isNil ifTrue:[
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4315
        self syntaxError:'invalid domain' position:tokenPosition.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4316
    ].
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4317
    aVariable domain:domain.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4318
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4319
    (tokenType == $)) ifFalse:[
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4320
        self syntaxError:''')'' expected' position:tokenPosition.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4321
        ^ #Error
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4322
    ].    
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4323
    self nextToken.
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4324
! !
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4325
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4326
!Parser methodsFor:'parsing-expressions'!
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4327
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4328
array
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4329
    |arr elements elem pos1|
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4330
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4331
    pos1 := tokenPosition.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4332
    elements := OrderedCollection new:20.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4333
    [tokenType ~~ $) ] whileTrue:[
1165
09d40e1ff75d oops - invalid literal array const was not signalling an error
Claus Gittinger <cg@exept.de>
parents: 1164
diff changeset
  4334
        elem := self arrayConstant.
09d40e1ff75d oops - invalid literal array const was not signalling an error
Claus Gittinger <cg@exept.de>
parents: 1164
diff changeset
  4335
1062
119b394e10b5 parse bug: #(#Error)
Claus Gittinger <cg@exept.de>
parents: 1061
diff changeset
  4336
"/        (elem == #Error) ifTrue:[
119b394e10b5 parse bug: #(#Error)
Claus Gittinger <cg@exept.de>
parents: 1061
diff changeset
  4337
"/            (tokenType == #EOF) ifTrue:[
119b394e10b5 parse bug: #(#Error)
Claus Gittinger <cg@exept.de>
parents: 1061
diff changeset
  4338
"/                self syntaxError:'unterminated array-constant; '')'' expected' 
119b394e10b5 parse bug: #(#Error)
Claus Gittinger <cg@exept.de>
parents: 1061
diff changeset
  4339
"/                        position:pos1 to:tokenPosition
119b394e10b5 parse bug: #(#Error)
Claus Gittinger <cg@exept.de>
parents: 1061
diff changeset
  4340
"/            ].
119b394e10b5 parse bug: #(#Error)
Claus Gittinger <cg@exept.de>
parents: 1061
diff changeset
  4341
"/            ^ #Error
119b394e10b5 parse bug: #(#Error)
Claus Gittinger <cg@exept.de>
parents: 1061
diff changeset
  4342
"/        ].
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4343
        elem isSymbol ifTrue:[
1371
de4c37ac12fc code rewritten to be independent of stream zero-base
Claus Gittinger <cg@exept.de>
parents: 1369
diff changeset
  4344
            self markSymbolFrom:tokenPosition to:(source position1Based-1).
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4345
        ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4346
        elements add:elem.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4347
        self nextToken
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4348
    ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4349
    arr := Array withAll:elements.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4350
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4351
    (ArraysAreImmutable and:[ImmutableArray notNil]) ifTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4352
        arr changeClassTo:ImmutableArray.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4353
    ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4354
    ^ arr
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4355
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4356
    "Modified: / 14.4.1998 / 17:03:29 / cg"
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4357
!
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4358
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4359
arrayConstant
1042
d192446cb745 fixed qualifiedName handling (as array constant)
Claus Gittinger <cg@exept.de>
parents: 1041
diff changeset
  4360
    |val|
d192446cb745 fixed qualifiedName handling (as array constant)
Claus Gittinger <cg@exept.de>
parents: 1041
diff changeset
  4361
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4362
    (tokenType == #Nil) ifTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4363
        ^ nil
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4364
    ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4365
    ((tokenType == #Integer) 
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4366
    or:[tokenType == #Float]) ifTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4367
        ^ tokenValue
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4368
    ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4369
    ((tokenType == #String)
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4370
    or:[tokenType == #Character]) ifTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4371
        ^ tokenValue
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4372
    ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4373
    (tokenType == #True) ifTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4374
        ^ true
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4375
    ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4376
    (tokenType == #False) ifTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4377
        ^ false
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4378
    ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4379
    (tokenType == #Error) ifTrue:[
1062
119b394e10b5 parse bug: #(#Error)
Claus Gittinger <cg@exept.de>
parents: 1061
diff changeset
  4380
        ^ ParseErrorSignal raise.
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4381
    ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4382
    (tokenType == #BinaryOperator) ifTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4383
        ^ tokenName asSymbol
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4384
    ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4385
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4386
    "/ some more special symbol consts ...
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4387
    (tokenType == $| ) ifTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4388
        ^ #| 
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4389
    ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4390
    (tokenType == #Self ) ifTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4391
        ^ #'self' 
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4392
    ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4393
    (tokenType == #Super ) ifTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4394
        ^ #'super' 
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4395
    ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4396
    (tokenType == #Here ) ifTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4397
        ^ #'here' 
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4398
    ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4399
    (tokenType == #ThisContext ) ifTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4400
        ^ #'thisContext' 
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4401
    ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4402
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4403
    ((tokenType == #Keyword) 
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4404
    or:[tokenType == #Identifier]) ifTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4405
        ^ tokenName asSymbol
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4406
    ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4407
    ((tokenType == $()
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4408
    or:[tokenType == #HashLeftParen]) ifTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4409
        self nextToken.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4410
        ^ self array
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
    ((tokenType == $[) 
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4413
    or:[tokenType == #HashLeftBrack]) ifTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4414
        self nextToken.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4415
        ^ self byteArray
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4416
    ].
1042
d192446cb745 fixed qualifiedName handling (as array constant)
Claus Gittinger <cg@exept.de>
parents: 1041
diff changeset
  4417
    (tokenType == #HashLeftBrace) ifTrue:[
d192446cb745 fixed qualifiedName handling (as array constant)
Claus Gittinger <cg@exept.de>
parents: 1041
diff changeset
  4418
        val := self qualifiedName.
d192446cb745 fixed qualifiedName handling (as array constant)
Claus Gittinger <cg@exept.de>
parents: 1041
diff changeset
  4419
        val := QualifiedName for:val name.
d192446cb745 fixed qualifiedName handling (as array constant)
Claus Gittinger <cg@exept.de>
parents: 1041
diff changeset
  4420
        ^ val
d192446cb745 fixed qualifiedName handling (as array constant)
Claus Gittinger <cg@exept.de>
parents: 1041
diff changeset
  4421
    ].
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4422
    (tokenType == #Symbol) ifTrue:[
1066
ba626f00f709 remember symbols used in arrayConstant
Claus Gittinger <cg@exept.de>
parents: 1065
diff changeset
  4423
        parseForCode ifFalse:[
ba626f00f709 remember symbols used in arrayConstant
Claus Gittinger <cg@exept.de>
parents: 1065
diff changeset
  4424
            self rememberSymbolUsed:tokenValue.
ba626f00f709 remember symbols used in arrayConstant
Claus Gittinger <cg@exept.de>
parents: 1065
diff changeset
  4425
        ].
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4426
        ^ tokenValue
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4427
    ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4428
    (tokenType == #EOF) ifTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4429
        "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
  4430
        self syntaxError:'error in array-constant; EOF unexpected'. 
1062
119b394e10b5 parse bug: #(#Error)
Claus Gittinger <cg@exept.de>
parents: 1061
diff changeset
  4431
        ^ ParseErrorSignal raise.
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4432
    ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4433
    self syntaxError:('error in array-constant; ' 
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4434
                      , tokenType printString 
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4435
                      , ' unexpected').
1062
119b394e10b5 parse bug: #(#Error)
Claus Gittinger <cg@exept.de>
parents: 1061
diff changeset
  4436
    ^ ParseErrorSignal raise.
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4437
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4438
    "Modified: / 14.4.1998 / 18:22:54 / cg"
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
1405
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4441
arrayIndexingExpression
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4442
    "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
  4443
     foo[idx] is syntactic sugar for foo matrixAt:x
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4444
     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
  4445
1412
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4446
    |receiver argList selectorStream valNode|
1405
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4447
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4448
    receiver := self functionCallExpression.
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4449
    tokenType == $[ ifFalse:[^ receiver].
1412
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4450
    AllowArrayIndexSyntaxExtension == true ifFalse:[^ receiver.].
1405
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4451
    (receiver == #Error) ifTrue:[^ #Error].
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4452
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4453
    selectorStream := WriteStream on: (String new: 32).
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4454
    argList := OrderedCollection new.
1412
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4455
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4456
    [
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4457
        [      
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4458
            |indexNode|
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4459
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4460
            self nextToken.
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4461
            indexNode := self primary.
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4462
            argList isEmpty ifTrue:[selectorStream nextPutAll:'_'].
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4463
            selectorStream nextPutAll:'at:'.
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4464
            argList add: indexNode.
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4465
            (tokenType == #BinaryOperator ) and:[ token = ',']  
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4466
        ] whileTrue.
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4467
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4468
        tokenType == $] ifFalse:[ 
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4469
            self parseError:''']'' expected'.
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4470
            ^ #Error
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4471
        ].
1405
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4472
        self nextToken.
1412
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4473
        
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4474
        tokenType == $[ ifTrue:[
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4475
            receiver := MessageNode 
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4476
                    receiver:receiver 
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4477
                    selector:(selectorStream contents)
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4478
                    args:argList.
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4479
            selectorStream := WriteStream on: (String new: 32).
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4480
        ].
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4481
        tokenType == $[ 
1405
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4482
    ] whileTrue.
1411
c71cf8b2be10 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1410
diff changeset
  4483
1405
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4484
    tokenType == #':=' ifTrue:[
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4485
        self nextToken.
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4486
        selectorStream nextPutAll:'put:'.
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4487
        valNode := self expression.
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4488
        valNode == #Error ifTrue:[
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4489
            ^ valNode
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4490
        ].
1412
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4491
"/ 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
  4492
"/        (valNode isKindOf: BlockNode) ifFalse:[
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4493
"/                valNode _ BlockNode new
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4494
"/                                        arguments: #()
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4495
"/                                        statements: (OrderedCollection with: valNode)
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4496
"/                                        returns: false
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4497
"/                                        from: encoder.
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4498
"/        ].
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4499
        argList add: valNode
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4500
    ].
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4501
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4502
    ^ MessageNode 
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4503
            receiver:receiver 
1412
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4504
            selector:selectorStream contents
1405
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4505
            args:argList.
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4506
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4507
    "
1412
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4508
     AllowArrayIndexSyntaxExtension := true.
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4509
     AllowArrayIndexSyntaxExtension := false.
1405
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4510
    "
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4511
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4512
    "
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4513
     |foo|
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4514
1412
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4515
     foo := Array new:10 withAll:2.
1405
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4516
     1 + foo[1].     
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4517
    "
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4518
    "
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4519
     |foo|
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4520
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4521
     foo := Array new:10.
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4522
     foo[1] := 'hello'.     
1412
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4523
     foo[2].     
af3ec9f24a38 array indexing extension (experimental)
Claus Gittinger <cg@exept.de>
parents: 1411
diff changeset
  4524
     foo[1].     
1405
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4525
    "
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4526
!
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4527
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4528
binaryExpression
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4529
    "parse a binary-expression; return a node-tree, nil or #Error"
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4530
1328
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  4531
    |receiver|
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4532
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4533
    receiver := self unaryExpression.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4534
    (receiver == #Error) ifTrue:[^ #Error].
1328
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  4535
    ^ self binaryExpressionFor:receiver
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  4536
!
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  4537
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  4538
binaryExpressionFor:receiverArg
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  4539
    "parse a binary-expression; return a node-tree, nil or #Error"
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  4540
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  4541
    |receiver theReceiver arg sel pos try lno note|
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  4542
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  4543
    receiver := receiverArg.
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  4544
    (receiver == #Error) ifTrue:[^ #Error].
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4545
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4546
    "special kludge: since Scanner cannot know if -digit is a binary
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4547
     expression or a negative constant, handle cases here"
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4548
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4549
    [(tokenType == #BinaryOperator) 
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4550
     or:[(tokenType == $|)
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4551
         or:[((tokenType == #Integer) or:[tokenType == #Float])
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4552
             and:[tokenValue < 0]]]
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4553
    ] whileTrue:[
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4554
        "/ 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
  4555
        inFunctionCallArgument == true ifTrue:[
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4556
            ((tokenType == #BinaryOperator) and:[tokenName = ',']) ifTrue:[
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4557
                ^ receiver
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4558
            ].
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4559
        ].
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4560
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4561
        pos := tokenPosition.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4562
        lno := tokenLineNr.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4563
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4564
        "/ kludge alarm: bar and minus are not scanned as binop
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4565
        (tokenType == $|) ifTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4566
            sel := '|'.
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4567
            sel := self selectorCheck:sel for:receiver position:tokenPosition to:tokenPosition.
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4568
            self nextToken
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4569
        ] ifFalse:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4570
            (tokenType == #BinaryOperator) ifTrue:[
977
c1afbaf48a23 remember used & modified local vars;
Claus Gittinger <cg@exept.de>
parents: 971
diff changeset
  4571
                sel := tokenName.
1022
32bc5fc06687 added selector correction.
Claus Gittinger <cg@exept.de>
parents: 1020
diff changeset
  4572
                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
  4573
                self nextToken
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4574
            ] ifFalse:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4575
                sel := '-'.
1103
b75a71996388 ensure that token follows tomeName & tokenValue
Claus Gittinger <cg@exept.de>
parents: 1100
diff changeset
  4576
                token := tokenValue := tokenValue negated
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4577
            ]
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4578
        ].
864
a716d90fa5a9 better selector marking
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
  4579
        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
  4580
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4581
        arg := self unaryExpression.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4582
        (arg == #Error) ifTrue:[^ #Error].
1061
457156ffedec *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1060
diff changeset
  4583
        theReceiver := receiver.
1405
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  4584
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4585
        try := BinaryNode receiver:receiver selector:sel arg:arg fold:foldConstants.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4586
        (try isMemberOf:String) ifTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4587
            self parseError:try position:pos to:tokenPosition.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4588
            errorFlag := false. "ok, user wants it - so he'll get it"
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4589
            receiver := BinaryNode receiver:receiver selector:sel arg:arg fold:nil.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4590
        ] ifFalse:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4591
            receiver := try
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4592
        ].
903
038c2c447dcf always do plausibility checks
Claus Gittinger <cg@exept.de>
parents: 897
diff changeset
  4593
        note := self plausibilityCheck:receiver.
038c2c447dcf always do plausibility checks
Claus Gittinger <cg@exept.de>
parents: 897
diff changeset
  4594
        note notNil ifTrue:[
038c2c447dcf always do plausibility checks
Claus Gittinger <cg@exept.de>
parents: 897
diff changeset
  4595
            self warning:note position:pos to:tokenPosition
038c2c447dcf always do plausibility checks
Claus Gittinger <cg@exept.de>
parents: 897
diff changeset
  4596
        ].
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4597
        receiver lineNumber:lno.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4598
        receiver selectorPosition:pos.
1060
9978f9d22dde more queries (remember super messages)
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4599
        parseForCode ifFalse:[
1061
457156ffedec *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1060
diff changeset
  4600
            self rememberSelectorUsed:sel receiver:theReceiver
1060
9978f9d22dde more queries (remember super messages)
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4601
        ].
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4602
    ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4603
    ^ receiver
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4604
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4605
    "Modified: / 9.1.1998 / 19:05:18 / stefan"
1022
32bc5fc06687 added selector correction.
Claus Gittinger <cg@exept.de>
parents: 1020
diff changeset
  4606
    "Modified: / 19.1.2000 / 16:22:04 / cg"
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4607
!
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4608
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4609
byteArray
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4610
    "started with ST-80 R4 - allow byteArray constants as #[ ... ]"
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4611
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4612
    |bytes index limit newArray elem pos1 pos2|
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4613
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4614
    pos1 := tokenPosition.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4615
    bytes := ByteArray uninitializedNew:5000.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4616
    index := 0. limit := 5000.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4617
    [tokenType ~~ $] ] whileTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4618
	pos2 := tokenPosition.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4619
	"
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4620
	 this is not good programming style, but speeds up
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4621
	 reading of huge byte arrays (i.e. stored Images ...)
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4622
	"
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4623
	(tokenType == #Integer) ifTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4624
	    elem := tokenValue
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4625
	] ifFalse:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4626
	    elem := self arrayConstant.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4627
	    (elem == #Error) ifTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4628
		(tokenType == #EOF) ifTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4629
		    self syntaxError:'unterminated bytearray-constant; '']'' expected' 
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4630
			    position:pos1 to:tokenPosition
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
		^ #Error
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4633
	    ].
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
	((elem isMemberOf:SmallInteger) and:[elem between:0 and:255]) ifTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4636
	    index := index + 1.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4637
	    bytes at:index put:elem.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4638
	    index == limit ifTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4639
		newArray := ByteArray uninitializedNew:(limit * 2).
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4640
		newArray replaceFrom:1 to:limit with:bytes startingAt:1.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4641
		limit := limit * 2.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4642
		bytes := newArray
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4643
	    ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4644
	] ifFalse:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4645
	    self parseError:'invalid ByteArray element' position:pos2 to:tokenPosition - 1
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4646
	].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4647
	self nextToken.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4648
    ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4649
    newArray := ByteArray uninitializedNew:index.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4650
    newArray replaceFrom:1 to:index with:bytes startingAt:1.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4651
    ^ newArray
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4652
!
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4653
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4654
degeneratedKeywordExpressionForSelector
1406
cb80600efd76 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1405
diff changeset
  4655
    "parse a keyword-expression without receiver - for the selector only. 
cb80600efd76 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1405
diff changeset
  4656
     Return the selector or nil (if it cannot be determined). 
cb80600efd76 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1405
diff changeset
  4657
     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
  4658
     (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
  4659
      the selection)"
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4660
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4661
    |sel arg rec|
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4662
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4663
    (tokenType == #Keyword) ifTrue:[
1271
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4664
        sel := tokenName.
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4665
        self nextToken.
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4666
        arg := self binaryExpression.
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4667
        (arg == #Error) ifTrue:[^ sel].
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4668
        [tokenType == #Keyword] whileTrue:[
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4669
            sel := sel , tokenName.
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4670
            self nextToken.
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4671
            arg := self binaryExpression.
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4672
            (arg == #Error) ifTrue:[^ sel].
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4673
        ].
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4674
        ^ sel
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4675
    ].
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4676
1406
cb80600efd76 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1405
diff changeset
  4677
    (rec := self arrayIndexingExpression) == #Error ifTrue:[ ^ nil].
cb80600efd76 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1405
diff changeset
  4678
    sel := self degeneratedKeywordExpressionForSelector.
cb80600efd76 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1405
diff changeset
  4679
    sel notNil ifTrue:[ ^ sel].
cb80600efd76 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1405
diff changeset
  4680
1407
d8c34d91199e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1406
diff changeset
  4681
    rec isAssignment ifTrue:[
d8c34d91199e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1406
diff changeset
  4682
        rec := rec expression
d8c34d91199e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1406
diff changeset
  4683
    ].
1406
cb80600efd76 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1405
diff changeset
  4684
    rec isMessage ifTrue:[
cb80600efd76 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1405
diff changeset
  4685
        ^ rec selector
cb80600efd76 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1405
diff changeset
  4686
    ].        
cb80600efd76 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1405
diff changeset
  4687
    ^ nil
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
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4690
expression
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4691
    "parse a cascade-expression; return a node-tree, nil or #Error.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4692
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4693
     expression ::= keywordExpression
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4694
                    | keywordExpression cascade
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4695
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4696
     cascade ::= ';' expressionSendPart
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4697
                 | cascade ';' expressionSendPart
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4698
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4699
     expressionSendPart ::= { KEYWORD binaryExpression }
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4700
                            | BINARYOPERATOR unaryExpression
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4701
                            | IDENTIFIER
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4702
    "
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4703
864
a716d90fa5a9 better selector marking
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
  4704
    |receiver arg sel args pos pos2 lno tokenEnd realReceiver positions|
713
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
    pos := tokenPosition.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4707
    receiver := self keywordExpression.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4708
    (receiver == #Error) ifTrue:[^ #Error].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4709
    (tokenType == $;) ifTrue:[
743
3ced4791090c changes for cascades to super/here semantics.
Claus Gittinger <cg@exept.de>
parents: 739
diff changeset
  4710
        receiver isMessage ifFalse:[
3ced4791090c changes for cascades to super/here semantics.
Claus Gittinger <cg@exept.de>
parents: 739
diff changeset
  4711
            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
  4712
                    position:pos to:tokenPosition.
3ced4791090c changes for cascades to super/here semantics.
Claus Gittinger <cg@exept.de>
parents: 739
diff changeset
  4713
            realReceiver := receiver. "/ only to allow continuing.
3ced4791090c changes for cascades to super/here semantics.
Claus Gittinger <cg@exept.de>
parents: 739
diff changeset
  4714
        ] ifTrue:[
3ced4791090c changes for cascades to super/here semantics.
Claus Gittinger <cg@exept.de>
parents: 739
diff changeset
  4715
            realReceiver := receiver receiver.
3ced4791090c changes for cascades to super/here semantics.
Claus Gittinger <cg@exept.de>
parents: 739
diff changeset
  4716
        ].
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4717
        [tokenType == $;] whileTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4718
            self nextToken.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4719
            (tokenType == #Identifier) ifTrue:[
739
18bce3ea44f5 fixed syntax-highlight for cascade-selectors.
Claus Gittinger <cg@exept.de>
parents: 738
diff changeset
  4720
                tokenEnd := tokenPosition + tokenName size - 1.
864
a716d90fa5a9 better selector marking
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
  4721
                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
  4722
                sel := tokenName.
1022
32bc5fc06687 added selector correction.
Claus Gittinger <cg@exept.de>
parents: 1020
diff changeset
  4723
                sel := self selectorCheck:tokenName for:realReceiver position:tokenPosition to:tokenEnd.
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4724
                receiver := CascadeNode receiver:receiver selector:sel.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4725
                receiver lineNumber:tokenLineNr.
1060
9978f9d22dde more queries (remember super messages)
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4726
                parseForCode ifFalse:[
9978f9d22dde more queries (remember super messages)
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4727
                    self rememberSelectorUsed:sel
9978f9d22dde more queries (remember super messages)
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4728
                ].
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4729
                self nextToken.
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
                (tokenType == #BinaryOperator) ifTrue:[
739
18bce3ea44f5 fixed syntax-highlight for cascade-selectors.
Claus Gittinger <cg@exept.de>
parents: 738
diff changeset
  4732
                    tokenEnd := tokenPosition + tokenName size - 1.
864
a716d90fa5a9 better selector marking
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
  4733
                    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
  4734
                    sel := tokenName.
1022
32bc5fc06687 added selector correction.
Claus Gittinger <cg@exept.de>
parents: 1020
diff changeset
  4735
                    sel := self selectorCheck:tokenName for:realReceiver position:tokenPosition to:tokenEnd.
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4736
                    lno := tokenLineNr. 
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4737
                    self nextToken.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4738
                    arg := self unaryExpression.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4739
                    (arg == #Error) ifTrue:[^ #Error].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4740
                    receiver := CascadeNode receiver:receiver selector:sel arg:arg.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4741
                    receiver lineNumber:lno.
1060
9978f9d22dde more queries (remember super messages)
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4742
                    parseForCode ifFalse:[
9978f9d22dde more queries (remember super messages)
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4743
                        self rememberSelectorUsed:sel
9978f9d22dde more queries (remember super messages)
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4744
                    ].
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4745
                ] ifFalse:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4746
                    (tokenType == #Keyword) ifTrue:[
739
18bce3ea44f5 fixed syntax-highlight for cascade-selectors.
Claus Gittinger <cg@exept.de>
parents: 738
diff changeset
  4747
                        tokenEnd := tokenPosition + tokenName size - 1.
864
a716d90fa5a9 better selector marking
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
  4748
                        positions := OrderedCollection with:(tokenPosition to:tokenEnd).
739
18bce3ea44f5 fixed syntax-highlight for cascade-selectors.
Claus Gittinger <cg@exept.de>
parents: 738
diff changeset
  4749
                        pos := tokenPosition.
18bce3ea44f5 fixed syntax-highlight for cascade-selectors.
Claus Gittinger <cg@exept.de>
parents: 738
diff changeset
  4750
                        pos2 := tokenEnd.
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4751
                        lno := tokenLineNr. 
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4752
                        sel := tokenName.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4753
                        self nextToken.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4754
                        arg := self binaryExpression.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4755
                        (arg == #Error) ifTrue:[^ #Error].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4756
                        args := Array with:arg.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4757
                        [tokenType == #Keyword] whileTrue:[
739
18bce3ea44f5 fixed syntax-highlight for cascade-selectors.
Claus Gittinger <cg@exept.de>
parents: 738
diff changeset
  4758
                            tokenEnd := tokenPosition + tokenName size - 1.
864
a716d90fa5a9 better selector marking
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
  4759
                            positions add:(tokenPosition to:tokenEnd).
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4760
                            sel := sel , tokenName.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4761
                            self nextToken.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4762
                            arg := self binaryExpression.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4763
                            (arg == #Error) ifTrue:[^ #Error].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4764
                            args := args copyWith:arg.
739
18bce3ea44f5 fixed syntax-highlight for cascade-selectors.
Claus Gittinger <cg@exept.de>
parents: 738
diff changeset
  4765
                            pos2 := tokenEnd
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4766
                        ].
1022
32bc5fc06687 added selector correction.
Claus Gittinger <cg@exept.de>
parents: 1020
diff changeset
  4767
                        sel := self selectorCheck:sel for:realReceiver position:pos to:pos2.
864
a716d90fa5a9 better selector marking
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
  4768
a716d90fa5a9 better selector marking
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
  4769
                        positions do:[:p |
a716d90fa5a9 better selector marking
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
  4770
                            self markSelector:sel from:p start to:p stop receiverNode:realReceiver.
a716d90fa5a9 better selector marking
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
  4771
                        ].
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4772
                        receiver := CascadeNode receiver:receiver selector:sel args:args.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4773
                        receiver lineNumber:lno.
1060
9978f9d22dde more queries (remember super messages)
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4774
                        parseForCode ifFalse:[
9978f9d22dde more queries (remember super messages)
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4775
                            self rememberSelectorUsed:sel
9978f9d22dde more queries (remember super messages)
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  4776
                        ].
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4777
                    ] ifFalse:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4778
                        (tokenType == #Error) ifTrue:[^ #Error].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4779
                        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
  4780
                                position:tokenPosition to:source position1Based - 1.
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4781
                        ^ #Error
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4782
                    ]
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4783
                ]
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
        ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4786
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4787
        "obscure (unspecified ?) if selector follows; Question:
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
        is
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4790
                'expr sel1; sel2 sel3'
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
        to be parsed as: 
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4793
                (t := expr.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4794
                 t sel1.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4795
                 t sel2) sel3
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4796
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4797
         or:
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4798
                (t := expr.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4799
                 t sel1.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4800
                 t sel2 sel3)
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4801
        "
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4802
        ((tokenType == #Identifier) 
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4803
         or:[(tokenType == #BinaryOperator)
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4804
             or:[tokenType == #Keyword]]) ifTrue:[
1328
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  4805
            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
  4806
                    position:tokenPosition to:source position1Based - 1.
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4807
            ^ #Error
1328
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  4808
"/            self warning: "syntaxError:" 'possibly ambigous cascade - please group using (...)'
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  4809
"/                    position:tokenPosition to:source position - 1.
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  4810
"/            tokenType == #Identifier ifTrue:[
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  4811
"/                ^ self unaryExpressionFor:receiver
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  4812
"/            ].
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  4813
"/            tokenType == #BinaryOperator ifTrue:[
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  4814
"/                ^ self binaryExpressionFor:receiver
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  4815
"/            ].
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  4816
"/            ^ self keywordExpressionFor:receiver
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4817
        ]
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4818
    ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4819
    ^ receiver
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4820
1022
32bc5fc06687 added selector correction.
Claus Gittinger <cg@exept.de>
parents: 1020
diff changeset
  4821
    "Modified: / 19.1.2000 / 16:22:16 / cg"
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4822
!
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  4823
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4824
functionCallArgList
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4825
    |argList arg prevInFunctionCallArgument|
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4826
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4827
    self nextToken.
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4828
    tokenType == $) ifTrue:[ self nextToken. ^ #() ].
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4829
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4830
    argList := OrderedCollection new.
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4831
    [ true ] whileTrue:[
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4832
        prevInFunctionCallArgument := inFunctionCallArgument.
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4833
        inFunctionCallArgument := true.
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4834
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4835
        arg := self expression.
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4836
        argList add:arg.
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4837
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4838
        inFunctionCallArgument := prevInFunctionCallArgument.
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4839
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4840
        tokenType == $) ifTrue:[
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4841
            self nextToken.
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4842
            ^ argList 
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4843
        ].
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4844
        ((tokenType == #BinaryOperator) and:[tokenName = ',']) ifFalse:[
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4845
            self parseError:'"," or ")" expected'.
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4846
        ].
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4847
        self nextToken.
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4848
    ].
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4849
!
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4850
1271
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4851
functionCallExpression
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4852
    "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
  4853
     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
  4854
1342
65f8f4d0ce09 only autoDefine workspace vars on the top level (i.e. not within blocks)
Claus Gittinger <cg@exept.de>
parents: 1341
diff changeset
  4855
    |receiver numArgs argList evalSelectors evalSelector|
1271
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4856
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4857
    receiver := self primary.
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4858
    tokenType == $( ifFalse:[^ receiver].
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4859
    AllowFunctionCallSyntaxForBlockEvaluation == true ifFalse:[^ receiver.].
1271
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4860
    (receiver == #Error) ifTrue:[^ #Error].
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4861
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4862
    receiver isVariable ifFalse:[
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4863
        ((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
  4864
            receiver isBlock ifFalse:[
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4865
                ^ receiver
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4866
            ]
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4867
        ].
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4868
    ].
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4869
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4870
    argList := self functionCallArgList.
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4871
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4872
    "/ make it a block evaluation
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4873
    numArgs := argList size.
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4874
    numArgs == 0 ifTrue:[
1341
e6cb61331a88 eval -> value
Claus Gittinger <cg@exept.de>
parents: 1340
diff changeset
  4875
        ^ UnaryNode receiver:receiver selector:#value
e6cb61331a88 eval -> value
Claus Gittinger <cg@exept.de>
parents: 1340
diff changeset
  4876
    ].
e6cb61331a88 eval -> value
Claus Gittinger <cg@exept.de>
parents: 1340
diff changeset
  4877
    evalSelectors := #( #'value:'
e6cb61331a88 eval -> value
Claus Gittinger <cg@exept.de>
parents: 1340
diff changeset
  4878
                       #'value:value:'
e6cb61331a88 eval -> value
Claus Gittinger <cg@exept.de>
parents: 1340
diff changeset
  4879
                       #'value:value:value:'
e6cb61331a88 eval -> value
Claus Gittinger <cg@exept.de>
parents: 1340
diff changeset
  4880
                       #'value:value:value:value:'
e6cb61331a88 eval -> value
Claus Gittinger <cg@exept.de>
parents: 1340
diff changeset
  4881
                       #'value:value:value:value:value:'
e6cb61331a88 eval -> value
Claus Gittinger <cg@exept.de>
parents: 1340
diff changeset
  4882
                       #'value:value:value:value:value:value:'
e6cb61331a88 eval -> value
Claus Gittinger <cg@exept.de>
parents: 1340
diff changeset
  4883
                       #'value:value:value:value:value:value:value:'
e6cb61331a88 eval -> value
Claus Gittinger <cg@exept.de>
parents: 1340
diff changeset
  4884
                       #'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
  4885
                     ).
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4886
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4887
    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
  4888
        evalSelector := evalSelectors at:numArgs.
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4889
        ^ MessageNode 
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4890
                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
  4891
                selector:evalSelector
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4892
                args:argList.
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4893
    ].
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4894
    "/ gen argument vector
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4895
    ^ MessageNode 
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4896
            receiver:receiver 
1341
e6cb61331a88 eval -> value
Claus Gittinger <cg@exept.de>
parents: 1340
diff changeset
  4897
            selector:#valueWithArguments:
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4898
            args:(self genMakeArrayWith:argList).
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4899
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4900
    "
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4901
     AllowFunctionCallSyntaxForBlockEvaluation := true.
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4902
    "
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  4903
1271
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4904
    "
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4905
     |foo|
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4906
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4907
     foo := [:x | x + 1].
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4908
     1 + foo(1).     
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4909
     foo(1).     
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4910
    "
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4911
    "
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4912
     |addN add1|
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4913
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4914
     addN := [:n | [:x | x + n]].
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4915
     add1 := addN(1).
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4916
     add1(10).       
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4917
    "
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4918
    "AllowFunctionCallSyntaxForBlockEvaluation := false."
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4919
    "
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4920
     |addN add1|
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4921
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4922
     addN := [:n | [:x | x + n]].
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4923
     add1 := addN value:1.
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4924
     add1 value:10       
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4925
    "
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4926
!
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4927
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4928
genMakeArrayWith:elementExpressions
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4929
    "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
  4930
     Will generate:
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4931
        Array with:el1 ... with:elN                             (if N <= 5)
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4932
     or:
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4933
        (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
  4934
    "
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4935
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4936
    |numEl arrRec sel expr|
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4937
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  4938
    arrRec := VariableNode globalNamed:#Array.
1271
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4939
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4940
    numEl := elementExpressions size.
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4941
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4942
    (numEl between:1 and:8) ifTrue:[
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4943
        sel := #( 
1275
91a0eead9e0e oops - stc bug workaround - scans keyword selectors
Claus Gittinger <cg@exept.de>
parents: 1274
diff changeset
  4944
                  #'with:'
91a0eead9e0e oops - stc bug workaround - scans keyword selectors
Claus Gittinger <cg@exept.de>
parents: 1274
diff changeset
  4945
                  #'with:with:'
91a0eead9e0e oops - stc bug workaround - scans keyword selectors
Claus Gittinger <cg@exept.de>
parents: 1274
diff changeset
  4946
                  #'with:with:with:'
91a0eead9e0e oops - stc bug workaround - scans keyword selectors
Claus Gittinger <cg@exept.de>
parents: 1274
diff changeset
  4947
                  #'with:with:with:with:'
91a0eead9e0e oops - stc bug workaround - scans keyword selectors
Claus Gittinger <cg@exept.de>
parents: 1274
diff changeset
  4948
                  #'with:with:with:with:with:'
91a0eead9e0e oops - stc bug workaround - scans keyword selectors
Claus Gittinger <cg@exept.de>
parents: 1274
diff changeset
  4949
                  #'with:with:with:with:with:with:'
91a0eead9e0e oops - stc bug workaround - scans keyword selectors
Claus Gittinger <cg@exept.de>
parents: 1274
diff changeset
  4950
                  #'with:with:with:with:with:with:with:'
91a0eead9e0e oops - stc bug workaround - scans keyword selectors
Claus Gittinger <cg@exept.de>
parents: 1274
diff changeset
  4951
                  #'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
  4952
                ) at:numEl.
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4953
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4954
        ^ MessageNode 
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4955
                    receiver:arrRec
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4956
                    selector:sel
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4957
                    args:elementExpressions.
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4958
    ].
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4959
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4960
    "/ array creation expression ...
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4961
    expr := MessageNode 
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4962
                receiver:arrRec
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4963
                selector:#new:
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4964
                arg:(ConstantNode type:#Integer value:numEl).
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4965
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4966
    numEl == 0 ifTrue:[
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4967
        ^ expr.
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4968
    ].
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4969
    "/ followed by a bunch of #at:put: messages...
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4970
    elementExpressions keysAndValuesDo:[:idx :e |
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4971
        expr := (idx == 1 ifTrue:[MessageNode] ifFalse:[CascadeNode])
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4972
                    receiver:expr
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4973
                    selector:#at:put:
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4974
                    arg1:(ConstantNode type:#Integer value:idx)
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4975
                    arg2:e
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4976
                    fold:false.
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4977
    ].
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4978
    "/ followed by a #yourself: message...
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4979
    expr := CascadeNode
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4980
                receiver:expr
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4981
                selector:#yourself.
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4982
    ^ expr
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4983
!
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  4984
1306
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  4985
isValidUnarySelector:tokenType
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  4986
    tokenType == #Identifier ifTrue:[^true].
1373
982b0546252f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1371
diff changeset
  4987
    tokenType == #Here ifTrue:[^true].
982b0546252f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1371
diff changeset
  4988
1306
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  4989
    AllowReservedWordsAsSelectors == true ifTrue:[
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  4990
        tokenType == #Self ifTrue:[^true].
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  4991
        tokenType == #Nil ifTrue:[^true].
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  4992
        tokenType == #True ifTrue:[^true].
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  4993
        tokenType == #False ifTrue:[^true].
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  4994
        tokenType == #Super ifTrue:[^true].
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  4995
        tokenType == #ThisContext ifTrue:[^true].
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  4996
    ].
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  4997
    ^ false
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  4998
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  4999
    "
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  5000
     AllowReservedWordsAsSelectors := true
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  5001
     AllowReservedWordsAsSelectors := false
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  5002
    "
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  5003
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  5004
    "
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  5005
     1234 self
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  5006
     1234 nil
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  5007
     1234 true
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  5008
     1234 false
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  5009
     1234 here
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  5010
     1234 super
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  5011
     1234 thisContext
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  5012
    "
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  5013
!
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  5014
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5015
keywordExpression
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5016
    "parse a keyword-expression; return a node-tree, nil or #Error.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5017
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5018
     keywordExpression ::= binaryexpression
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5019
                           | { KEYWORD-PART binaryExpression }
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5020
    "
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5021
1328
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  5022
    |receiver|
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  5023
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5024
    receiver := self binaryExpression.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5025
    (receiver == #Error) ifTrue:[^ #Error].
1328
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  5026
    ^ self keywordExpressionFor:receiver
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  5027
!
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  5028
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  5029
keywordExpressionFor:receiverArg
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  5030
    "parse a keyword-expression; return a node-tree, nil or #Error.
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  5031
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  5032
     keywordExpression ::= binaryexpression
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  5033
                           | { KEYWORD-PART binaryExpression }
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  5034
    "
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  5035
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  5036
    |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
  5037
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  5038
    receiver := receiverArg.
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  5039
    posR1 := tokenPosition.
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5040
    (tokenType == #Keyword) ifTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5041
        pos1 := posR2 := tokenPosition.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5042
        pos2 := tokenPosition + tokenName size - 1.
864
a716d90fa5a9 better selector marking
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
  5043
        positions := OrderedCollection with:(pos1 to:pos2).
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5044
        sel := tokenName.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5045
        lno := tokenLineNr.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5046
        self nextToken.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5047
        arg := self binaryExpression.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5048
        (arg == #Error) ifTrue:[^ #Error].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5049
        args := Array with:arg.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5050
        [tokenType == #Keyword] whileTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5051
            sel := sel , tokenName.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5052
            pos2 := tokenPosition + tokenName size - 1.
864
a716d90fa5a9 better selector marking
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
  5053
            positions add:(tokenPosition to:pos2).
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5054
            self nextToken.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5055
            arg := self binaryExpression.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5056
            (arg == #Error) ifTrue:[^ #Error].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5057
            args := args copyWith:arg.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5058
        ].
864
a716d90fa5a9 better selector marking
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
  5059
a716d90fa5a9 better selector marking
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
  5060
        positions do:[:p |
a716d90fa5a9 better selector marking
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
  5061
            self markSelector:sel from:p start to:p stop receiverNode:receiver.
a716d90fa5a9 better selector marking
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
  5062
        ].
1439
0fddfcdca37b selector check improved
Claus Gittinger <cg@exept.de>
parents: 1437
diff changeset
  5063
        sel := self selectorCheck:sel for:receiver positions:positions.
864
a716d90fa5a9 better selector marking
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
  5064
1149
8f419e76812c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1145
diff changeset
  5065
        ignoreErrors ifFalse:[
8f419e76812c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1145
diff changeset
  5066
            (Class definitionSelectors includes:sel) ifTrue:[
8f419e76812c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1145
diff changeset
  5067
                receiver isVariable ifTrue:[
8f419e76812c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1145
diff changeset
  5068
                    receiver isUndeclared ifTrue:[
8f419e76812c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1145
diff changeset
  5069
                        self parseError:('undefined superclass: ' , receiver name) position:pos1 to:pos2.
8f419e76812c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1145
diff changeset
  5070
                    ].
8f419e76812c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1145
diff changeset
  5071
                ]
8f419e76812c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1145
diff changeset
  5072
            ].
964
5fa44b4ff2cb check for undeclared class when evaluating subclass
Claus Gittinger <cg@exept.de>
parents: 944
diff changeset
  5073
        ].
5fa44b4ff2cb check for undeclared class when evaluating subclass
Claus Gittinger <cg@exept.de>
parents: 944
diff changeset
  5074
1065
Claus Gittinger <cg@exept.de>
parents: 1064
diff changeset
  5075
        lastReceiver := receiver.
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5076
        try := MessageNode receiver:receiver selector:sel args:args fold:foldConstants.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5077
        (try isMemberOf:String) ifTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5078
            self parseError:try position:pos1 to:pos2.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5079
            errorFlag := false. "ok, user wants it - so he'll get it"
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5080
            receiver := MessageNode receiver:receiver selector:sel args:args fold:nil.
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5081
        ] ifFalse:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5082
            receiver := try
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5083
        ].
903
038c2c447dcf always do plausibility checks
Claus Gittinger <cg@exept.de>
parents: 897
diff changeset
  5084
        note := self plausibilityCheck:receiver.
038c2c447dcf always do plausibility checks
Claus Gittinger <cg@exept.de>
parents: 897
diff changeset
  5085
        note notNil ifTrue:[
038c2c447dcf always do plausibility checks
Claus Gittinger <cg@exept.de>
parents: 897
diff changeset
  5086
            self warning:note position:pos1 to:pos2
038c2c447dcf always do plausibility checks
Claus Gittinger <cg@exept.de>
parents: 897
diff changeset
  5087
        ].
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5088
        receiver lineNumber:lno.
1060
9978f9d22dde more queries (remember super messages)
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  5089
        parseForCode ifFalse:[
1065
Claus Gittinger <cg@exept.de>
parents: 1064
diff changeset
  5090
            self rememberSelectorUsed:sel receiver:lastReceiver
1060
9978f9d22dde more queries (remember super messages)
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  5091
        ].
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5092
1193
c441d3b202e5 check bad super message
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
  5093
"/        (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
  5094
"/            receiver isSuper ifTrue:[
c441d3b202e5 check bad super message
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
  5095
"/                sel ~= selector ifTrue:[
c441d3b202e5 check bad super message
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
  5096
"/                    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
  5097
"/                                  position:posR1 to:posR2-1
c441d3b202e5 check bad super message
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
  5098
"/                ].
c441d3b202e5 check bad super message
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
  5099
"/            ].
c441d3b202e5 check bad super message
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
  5100
"/        ].
c441d3b202e5 check bad super message
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
  5101
"/
c441d3b202e5 check bad super message
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
  5102
        (sel = #and: or:[sel = #or:]) ifTrue:[
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5103
            receiver arg1 isBlock ifFalse:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5104
                self warnCommonMistake:'(possible common mistake) missing block brackets ?'
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5105
                              position:pos2+1 to:tokenPosition-1
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
        ].
1193
c441d3b202e5 check bad super message
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
  5108
        (sel = #whileTrue: or:[sel = #whileFalse:]) ifTrue:[
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5109
            receiver receiver isBlock ifFalse:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5110
                self warnCommonMistake:'(possible common mistake) missing block brackets ?'
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5111
                              position:posR1 to:posR2-1
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5112
            ]
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5113
        ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5114
    ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5115
    ^ receiver
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5116
1022
32bc5fc06687 added selector correction.
Claus Gittinger <cg@exept.de>
parents: 1020
diff changeset
  5117
    "Modified: / 19.1.2000 / 16:22:22 / cg"
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5118
!
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  5119
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5120
nodeForMethodArg:varName
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5121
    |varIndex var|
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5122
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5123
    methodArgNames isNil ifTrue:[^ nil].
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5124
    varIndex := methodArgNames indexOf:varName.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5125
    varIndex == 0 ifTrue:[^ nil].
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5126
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5127
    var := methodArgs at:varIndex.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5128
"/    var used:true.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5129
    ^ VariableNode type:#MethodArg
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5130
                   name:varName
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5131
                  token:var
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5132
                  index:varIndex
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5133
!
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5134
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5135
nodeForMethodVariable:varName
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5136
    |varIndex var|
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5137
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5138
    methodVarNames isNil ifTrue:[^ nil].
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5139
    varIndex := methodVarNames indexOf:varName.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5140
    varIndex == 0 ifTrue:[^ nil].
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5141
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5142
    var := methodVars at:varIndex.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5143
    var used:true.
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5144
    parseForCode ifFalse:[self rememberLocalUsed:varName].
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5145
    ^ VariableNode type:#MethodVariable
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5146
                   name:varName
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5147
                  token:var
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5148
                  index:varIndex
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5149
!
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5150
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  5151
primary
1028
cbdce68d87f6 fixed qualifiedName parsing
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  5152
    "parse a primary-expression; return a node-tree, nil or #Error.
cbdce68d87f6 fixed qualifiedName parsing
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  5153
     This also cares for namespace-access-pathes."
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  5154
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5155
    |val pos node eMsg|
924
6214afc7e312 qualifiedName support
Claus Gittinger <cg@exept.de>
parents: 921
diff changeset
  5156
44
74ddc944c27f *** empty log message ***
claus
parents: 35
diff changeset
  5157
    (tokenType == #Self) ifTrue:[
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5158
        ^ self primary_self.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5159
    ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5160
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5161
    pos := tokenPosition.
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  5162
    (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
  5163
        "
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5164
         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
  5165
         with other smalltalks. 
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5166
        "
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5167
        tokenName = 'here' ifTrue:[
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5168
            (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
  5169
                tokenType := #Here.
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5170
                warnSTXHereExtensionUsed ifTrue:[
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5171
                    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
  5172
                         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
  5173
                    "
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5174
                     only warn once
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5175
                    "
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5176
                    warnSTXHereExtensionUsed := false
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  5177
                ].
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5178
                ^ 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
  5179
            ]
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5180
        ].
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5181
        ^ self primary_identifier
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  5182
    ].
49
02660b790c3e *** empty log message ***
claus
parents: 47
diff changeset
  5183
44
74ddc944c27f *** empty log message ***
claus
parents: 35
diff changeset
  5184
    ((tokenType == #Integer) 
120
claus
parents: 117
diff changeset
  5185
     or:[(tokenType == #String)
44
74ddc944c27f *** empty log message ***
claus
parents: 35
diff changeset
  5186
     or:[(tokenType == #Character) 
74ddc944c27f *** empty log message ***
claus
parents: 35
diff changeset
  5187
     or:[(tokenType == #Float)
74ddc944c27f *** empty log message ***
claus
parents: 35
diff changeset
  5188
     or:[(tokenType == #Symbol)]]]]) ifTrue:[
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5189
        ^ self primary_simpleLiteral.
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  5190
    ].
924
6214afc7e312 qualifiedName support
Claus Gittinger <cg@exept.de>
parents: 921
diff changeset
  5191
1347
6168b045f2ef preps for fixedPoint literals
Claus Gittinger <cg@exept.de>
parents: 1342
diff changeset
  5192
    (tokenType == #FixedPoint) ifTrue:[
6168b045f2ef preps for fixedPoint literals
Claus Gittinger <cg@exept.de>
parents: 1342
diff changeset
  5193
        AllowFixedPointLiterals == true ifFalse:[
6168b045f2ef preps for fixedPoint literals
Claus Gittinger <cg@exept.de>
parents: 1342
diff changeset
  5194
            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
  5195
            ^ #Error
6168b045f2ef preps for fixedPoint literals
Claus Gittinger <cg@exept.de>
parents: 1342
diff changeset
  5196
        ].
6168b045f2ef preps for fixedPoint literals
Claus Gittinger <cg@exept.de>
parents: 1342
diff changeset
  5197
        ^ self primary_simpleLiteral.
6168b045f2ef preps for fixedPoint literals
Claus Gittinger <cg@exept.de>
parents: 1342
diff changeset
  5198
    ].
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  5199
    (tokenType == #Nil) ifTrue:[
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5200
        ^ self primary_nil.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5201
    ].
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  5202
    (tokenType == #True) ifTrue:[
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5203
        ^ self primary_true
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  5204
    ].
7ad01559b262 Initial revision
claus
parents:
diff changeset
  5205
    (tokenType == #False) ifTrue:[
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5206
        ^ self primary_false
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5207
    ].
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  5208
    (tokenType  == #Super) ifTrue:[
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5209
        ^ self primary_super.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5210
    ].
924
6214afc7e312 qualifiedName support
Claus Gittinger <cg@exept.de>
parents: 921
diff changeset
  5211
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  5212
    (tokenType == #ThisContext) ifTrue:[
1262
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  5213
        ^ self primary_thisContext
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  5214
    ].
924
6214afc7e312 qualifiedName support
Claus Gittinger <cg@exept.de>
parents: 921
diff changeset
  5215
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  5216
    (tokenType == #HashLeftParen) ifTrue:[
1202
95abdd4272cd scanning of keyword symbols in array consts fixed
Claus Gittinger <cg@exept.de>
parents: 1200
diff changeset
  5217
        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
  5218
        self nextToken.
1165
09d40e1ff75d oops - invalid literal array const was not signalling an error
Claus Gittinger <cg@exept.de>
parents: 1164
diff changeset
  5219
        ParseErrorSignal handle:[:ex |
1202
95abdd4272cd scanning of keyword symbols in array consts fixed
Claus Gittinger <cg@exept.de>
parents: 1200
diff changeset
  5220
            self inArrayLiteral:false.
1165
09d40e1ff75d oops - invalid literal array const was not signalling an error
Claus Gittinger <cg@exept.de>
parents: 1164
diff changeset
  5221
            ^ #Error
09d40e1ff75d oops - invalid literal array const was not signalling an error
Claus Gittinger <cg@exept.de>
parents: 1164
diff changeset
  5222
        ] do:[
09d40e1ff75d oops - invalid literal array const was not signalling an error
Claus Gittinger <cg@exept.de>
parents: 1164
diff changeset
  5223
            val := self array.
09d40e1ff75d oops - invalid literal array const was not signalling an error
Claus Gittinger <cg@exept.de>
parents: 1164
diff changeset
  5224
        ].
1202
95abdd4272cd scanning of keyword symbols in array consts fixed
Claus Gittinger <cg@exept.de>
parents: 1200
diff changeset
  5225
        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
  5226
        self nextToken.
1003
37badd2eb5b0 dont stop syntaxHighlighting when a bad assignment is encountered
Claus Gittinger <cg@exept.de>
parents: 997
diff changeset
  5227
        (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
  5228
            ^ #Error
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5229
        ].
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5230
        ^ ConstantNode type:#Array value:val
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  5231
    ].
924
6214afc7e312 qualifiedName support
Claus Gittinger <cg@exept.de>
parents: 921
diff changeset
  5232
6214afc7e312 qualifiedName support
Claus Gittinger <cg@exept.de>
parents: 921
diff changeset
  5233
    (tokenType == #HashLeftBrace) ifTrue:[
1042
d192446cb745 fixed qualifiedName handling (as array constant)
Claus Gittinger <cg@exept.de>
parents: 1041
diff changeset
  5234
        val := self qualifiedName.
d192446cb745 fixed qualifiedName handling (as array constant)
Claus Gittinger <cg@exept.de>
parents: 1041
diff changeset
  5235
        self nextToken.
d192446cb745 fixed qualifiedName handling (as array constant)
Claus Gittinger <cg@exept.de>
parents: 1041
diff changeset
  5236
        ^ val.
924
6214afc7e312 qualifiedName support
Claus Gittinger <cg@exept.de>
parents: 921
diff changeset
  5237
    ].
6214afc7e312 qualifiedName support
Claus Gittinger <cg@exept.de>
parents: 921
diff changeset
  5238
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  5239
    (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
  5240
        self nextToken.
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5241
        val := self byteArray.
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5242
        self nextToken.
1003
37badd2eb5b0 dont stop syntaxHighlighting when a bad assignment is encountered
Claus Gittinger <cg@exept.de>
parents: 997
diff changeset
  5243
        (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
  5244
            ^ #Error
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5245
        ].
924
6214afc7e312 qualifiedName support
Claus Gittinger <cg@exept.de>
parents: 921
diff changeset
  5246
        ^ ConstantNode type:#ByteArray value:val
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  5247
    ].
432
2b7b75f1ee12 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 429
diff changeset
  5248
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  5249
    (tokenType == $() ifTrue:[
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5250
        ^ self primary_expression.
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  5251
    ].
924
6214afc7e312 qualifiedName support
Claus Gittinger <cg@exept.de>
parents: 921
diff changeset
  5252
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  5253
    (tokenType == $[ ) ifTrue:[
673
0c66b7cb1d2f checkin from browser
ca
parents: 672
diff changeset
  5254
        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
  5255
        val := self block.
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5256
        self nextToken.
1003
37badd2eb5b0 dont stop syntaxHighlighting when a bad assignment is encountered
Claus Gittinger <cg@exept.de>
parents: 997
diff changeset
  5257
        (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
  5258
            ^ #Error
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
        ^ val
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  5261
    ].
19
84a1ddf215a5 *** empty log message ***
claus
parents: 15
diff changeset
  5262
1262
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  5263
    "/ EXPERIMENTAL - may be in next release
1295
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5264
    AllowVariableReferences == true ifTrue:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5265
        ((tokenType == #BinaryOperator) and:[token = '&']) ifTrue:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5266
            self nextToken.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5267
            node := self primary_identifier.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5268
            "/ generate a Reference
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5269
            ^ self makeReferenceFor:node
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5270
        ].
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5271
    ].
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5272
894
943b6d0d26b3 changes to support loading squeak code containing computed
Claus Gittinger <cg@exept.de>
parents: 887
diff changeset
  5273
    (tokenType == ${ ) ifTrue:[
1363
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  5274
        allowSqueakExtensions == true ifFalse:[
1335
59e2664cb564 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1328
diff changeset
  5275
            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
  5276
            errorFlag := false.
894
943b6d0d26b3 changes to support loading squeak code containing computed
Claus Gittinger <cg@exept.de>
parents: 887
diff changeset
  5277
        ].
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5278
        ^ self primary_squeakComputedArray.
894
943b6d0d26b3 changes to support loading squeak code containing computed
Claus Gittinger <cg@exept.de>
parents: 887
diff changeset
  5279
    ].
943b6d0d26b3 changes to support loading squeak code containing computed
Claus Gittinger <cg@exept.de>
parents: 887
diff changeset
  5280
502
410af1c0df1d parse primitive-primary expression
Claus Gittinger <cg@exept.de>
parents: 501
diff changeset
  5281
    (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
  5282
        self nextToken.
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5283
        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
  5284
        hasNonOptionalPrimitiveCode := true.
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5285
        hasPrimitiveCode := true.
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5286
        ^ node
502
410af1c0df1d parse primitive-primary expression
Claus Gittinger <cg@exept.de>
parents: 501
diff changeset
  5287
    ].
410af1c0df1d parse primitive-primary expression
Claus Gittinger <cg@exept.de>
parents: 501
diff changeset
  5288
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5289
    tokenType == #HashHashLeftParen ifTrue:[
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5290
self halt.
1295
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5291
        self nextToken.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5292
        AllowDolphinExtensions == true ifFalse:[
1335
59e2664cb564 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1328
diff changeset
  5293
            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
  5294
            ^ #Error
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5295
        ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5296
        ^ self primary_dolphinComputedLiteral.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5297
    ].
1299
6c182cd87b6c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1297
diff changeset
  5298
    tokenType == #ExclaLeftBrack ifTrue:[
1295
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5299
        self nextToken.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5300
        AllowLazyValueExtension == true ifFalse:[
1335
59e2664cb564 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1328
diff changeset
  5301
            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
  5302
            ^ #Error
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5303
        ].
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5304
        ^ self primary_lazyValue.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5305
    ].
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5306
    tokenType == #HashHash ifTrue:[
1301
677ca6e364d4 + warnPossible incompatibility
Claus Gittinger <cg@exept.de>
parents: 1299
diff changeset
  5307
        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
  5308
        tokenType := #Symbol.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5309
        token := tokenValue := tokenName := '#'.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5310
        ^ self primary_simpleLiteral.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5311
    ].
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5312
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  5313
    (tokenType == #Error) ifTrue:[^ #Error].
44
74ddc944c27f *** empty log message ***
claus
parents: 35
diff changeset
  5314
    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
  5315
        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
  5316
                           , tokenType printString , 
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5317
                           ' unexpected') position:tokenPosition to:tokenPosition
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  5318
    ] ifFalse:[
640
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5319
        (#(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
  5320
            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
  5321
                    , tokenType printString , '(' , tokenName , ') ' ,
805
b11dcd88bcc6 better error-display
Claus Gittinger <cg@exept.de>
parents: 798
diff changeset
  5322
                    ' 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
  5323
        ] ifFalse:[
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5324
            eMsg := ('error in primary; ' 
1295
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5325
                     , (token ? '') , ' (', tokenType printString ,
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5326
                     ') unexpected') 
640
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5327
        ].
1371
de4c37ac12fc code rewritten to be independent of stream zero-base
Claus Gittinger <cg@exept.de>
parents: 1369
diff changeset
  5328
        self syntaxError:eMsg position:tokenPosition to:source position1Based - 1
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  5329
    ].
7ad01559b262 Initial revision
claus
parents:
diff changeset
  5330
    ^ #Error
120
claus
parents: 117
diff changeset
  5331
640
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  5332
    "Created: / 13.9.1995 / 12:50:50 / claus"
1068
dc7f2f44f2ee syntaxHighlight bug fixed
Claus Gittinger <cg@exept.de>
parents: 1067
diff changeset
  5333
    "Modified: / 18.8.2000 / 20:51:22 / cg"
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  5334
!
7ad01559b262 Initial revision
claus
parents:
diff changeset
  5335
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5336
primary_dolphinComputedLiteral
1273
3a9541cd8fef dolphin compile-time constant strings
Claus Gittinger <cg@exept.de>
parents: 1272
diff changeset
  5337
    "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
  5338
     In dolphin, these are written as: ##( expression )
3a9541cd8fef dolphin compile-time constant strings
Claus Gittinger <cg@exept.de>
parents: 1272
diff changeset
  5339
     and create a literal constant for the expressions value.
1274
7d4a3391a81a comments
Claus Gittinger <cg@exept.de>
parents: 1273
diff changeset
  5340
     Right now, only a subset is supported - Strings, ByteArrays and Characters.
7d4a3391a81a comments
Claus Gittinger <cg@exept.de>
parents: 1273
diff changeset
  5341
     WARNING: this is only supported to allow filing in dolphin code.
7d4a3391a81a comments
Claus Gittinger <cg@exept.de>
parents: 1273
diff changeset
  5342
     since stc cannot handle this (at the moment), you should rewrite the code
7d4a3391a81a comments
Claus Gittinger <cg@exept.de>
parents: 1273
diff changeset
  5343
     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
  5344
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5345
    |pos expr val|
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5346
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5347
    pos := tokenPosition.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5348
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5349
    expr := self expression.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5350
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5351
    tokenType ~~ $) ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5352
        self parseError:''')'' expected' position:tokenPosition.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5353
        ^ #Error
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5354
    ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5355
    self nextToken.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5356
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5357
    (self noAssignmentAllowed:'invalid assignment' at:pos) ifFalse:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5358
        ^ #Error
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5359
    ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5360
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5361
    val := expr evaluate.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5362
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5363
    val isLiteral ifTrue:[
1272
2a429e2293d1 dolphin compile-time constant strings
Claus Gittinger <cg@exept.de>
parents: 1271
diff changeset
  5364
        val isString ifTrue:[
2a429e2293d1 dolphin compile-time constant strings
Claus Gittinger <cg@exept.de>
parents: 1271
diff changeset
  5365
            ^ ConstantNode type:#String value:val
2a429e2293d1 dolphin compile-time constant strings
Claus Gittinger <cg@exept.de>
parents: 1271
diff changeset
  5366
        ].
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5367
        val isByteArray ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5368
            ^ ConstantNode type:#ByteArray value:val
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5369
        ].
1234
9aeab4cef9ba *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  5370
        val isCharacter ifTrue:[
9aeab4cef9ba *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  5371
            ^ ConstantNode type:#Character value:val
9aeab4cef9ba *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1231
diff changeset
  5372
        ].
1295
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5373
        val isInteger ifTrue:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5374
            ^ ConstantNode type:#Integer value:val
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5375
        ].
1328
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  5376
        val isLimitedPrecisionReal ifTrue:[
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  5377
            ^ ConstantNode type:#Float value:val
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  5378
        ].
1295
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5379
        val isArray ifTrue:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5380
            ^ ConstantNode type:#Array value:val
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5381
        ].
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5382
    ] ifFalse:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5383
        self parseError:'must be representable as a literal (for now)' position:pos.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5384
        ^ #Error
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5385
    ].
1326
Claus Gittinger <cg@exept.de>
parents: 1325
diff changeset
  5386
self halt:'unimplemented'.
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5387
"/    "/ make it an array creation expression ...
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5388
"/    expr := MessageNode 
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5389
"/            receiver:(VariableNode globalNamed:#Array)
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5390
"/            selector:#new:
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5391
"/            arg:(ConstantNode type:#Integer value:(exprList size)).
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5392
"/
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5393
"/    exprList size == 0 ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5394
"/        ^ expr.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5395
"/    ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5396
"/    exprList keysAndValuesDo:[:idx :e |
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5397
"/        expr := (idx == 1 ifTrue:[MessageNode] ifFalse:[CascadeNode])
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5398
"/                    receiver:expr
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5399
"/                    selector:#at:put:
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5400
"/                    arg1:(ConstantNode type:#Integer value:idx)
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5401
"/                    arg2:e
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5402
"/                    fold:false.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5403
"/    ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5404
"/    expr := CascadeNode
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5405
"/                receiver:expr
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5406
"/                selector:#yourself.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5407
"/    ^ expr
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5408
!
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5409
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5410
primary_expression
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5411
    "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
  5412
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5413
    |pos val eMsg|
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5414
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5415
    pos := tokenPosition.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5416
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5417
    self nextToken.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5418
    val := self expression.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5419
    (val == #Error) ifTrue:[^ #Error].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5420
    (tokenType ~~ $) ) ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5421
        tokenType isCharacter ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5422
            eMsg := 'missing '')'' (i.e. ''' , tokenType asString , ''' unexpected)'.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5423
        ] ifFalse:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5424
            eMsg := 'missing '')'''.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5425
        ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5426
        self syntaxError:eMsg withCRs position:pos to:tokenPosition.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5427
        ^ #Error
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5428
    ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5429
    self nextToken.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5430
    (self noAssignmentAllowed:'invalid assignment' at:pos) ifFalse:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5431
        ^ #Error
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
    val parenthized:true.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5434
    ^ val
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5435
!
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
primary_false
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5438
    "parse a false primary; return a node-tree, or raise an Error."
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5439
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5440
    |pos|
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5441
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5442
    pos := tokenPosition.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5443
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5444
    self nextToken.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5445
    (self noAssignmentAllowed:'assignment to ''false''' at:pos) ifFalse:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5446
        ^ #Error
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5447
    ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5448
    self markBooleanConstantFrom:pos to:pos+4.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5449
    ^ ConstantNode type:#False value:false
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5450
!
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5451
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5452
primary_here
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5453
    "parse a here primary; return a node-tree, nil or #Error."
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5454
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5455
    |pos|
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5456
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5457
    pos := tokenPosition.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5458
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5459
    self nextToken.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5460
    (self noAssignmentAllowed:'assignment to pseudo variable ''here''' at:pos) ifFalse:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5461
        ^ #Error
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5462
    ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5463
    classToCompileFor isNil ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5464
        self warning:'in which class are you ?' position:pos to:(pos + 3).
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5465
    ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5466
    self markSelfFrom:pos to:pos+3.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5467
    ^ SuperNode value:selfValue inClass:classToCompileFor here:true
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5468
!
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5469
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5470
primary_identifier
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5471
    "parse a false primary; return a node-tree, or raise an Error."
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5472
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5473
    |pos1 pos2 expr varName rawName var globlName nameSpace nameSpaceGlobal
1359
af2b37656df3 autoDefine as doIt added
Claus Gittinger <cg@exept.de>
parents: 1351
diff changeset
  5474
     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
  5475
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5476
    pos1 := tokenPosition.
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5477
    pos2 := tokenPosition + tokenName size - 1.
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5478
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5479
    varName := tokenName.
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5480
1440
7084ae99ced7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1439
diff changeset
  5481
    (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
  5482
    and:[currentBlock isNil
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5483
    and:[(requestor askFor:#isWorkspace)
1359
af2b37656df3 autoDefine as doIt added
Claus Gittinger <cg@exept.de>
parents: 1351
diff changeset
  5484
    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
  5485
        var := self variableOrError:varName.
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5486
        self nextToken.
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5487
        (var == #Error) ifTrue:[
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5488
            ((tokenType == $_) or:[tokenType == #':=']) ifTrue:[
1359
af2b37656df3 autoDefine as doIt added
Claus Gittinger <cg@exept.de>
parents: 1351
diff changeset
  5489
                autoHow == #workspace ifTrue:[
af2b37656df3 autoDefine as doIt added
Claus Gittinger <cg@exept.de>
parents: 1351
diff changeset
  5490
                    holder := Workspace addWorkspaceVariable:varName.
af2b37656df3 autoDefine as doIt added
Claus Gittinger <cg@exept.de>
parents: 1351
diff changeset
  5491
                    var := VariableNode type:#WorkspaceVariable holder:holder name:varName
af2b37656df3 autoDefine as doIt added
Claus Gittinger <cg@exept.de>
parents: 1351
diff changeset
  5492
                ] ifFalse:[
af2b37656df3 autoDefine as doIt added
Claus Gittinger <cg@exept.de>
parents: 1351
diff changeset
  5493
                    holder := self addDoItTemporary:varName.
af2b37656df3 autoDefine as doIt added
Claus Gittinger <cg@exept.de>
parents: 1351
diff changeset
  5494
                    var := VariableNode type:#DoItTemporary holder:holder name:varName
af2b37656df3 autoDefine as doIt added
Claus Gittinger <cg@exept.de>
parents: 1351
diff changeset
  5495
                ].
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5496
            ] ifFalse:[
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5497
                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
  5498
            ].
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5499
        ]
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5500
    ] ifFalse:[
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5501
        var := self variable.
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5502
        self nextToken.
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5503
    ].
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5504
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5505
    "/ errorFlag == true ifTrue:[self halt].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5506
    (var == #Error) ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5507
        errorFlag := true
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5508
    ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5509
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5510
    (tokenType == #'::') ifTrue:[
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5511
        globlName := rawName := varName.
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5512
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5513
        "is it in a namespace ?"
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5514
        nameSpace := self findNameSpaceWith:globlName.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5515
        nameSpace notNil ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5516
            globlName := nameSpace name , '::' , globlName
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5517
        ].
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
        [tokenType == #'::'] whileTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5520
            nameSpace := globlName.
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
            self nextToken.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5523
            (tokenType == #Identifier) ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5524
                ignoreWarnings ifFalse:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5525
                    warnSTXNameSpaceUse ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5526
                        self warning:'nameSpaces are a nonstandard feature of ST/X' 
1371
de4c37ac12fc code rewritten to be independent of stream zero-base
Claus Gittinger <cg@exept.de>
parents: 1369
diff changeset
  5527
                             position:pos1 to:(source position1Based).
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5528
                        "
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5529
                         only warn once
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5530
                        "
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5531
                        warnSTXNameSpaceUse := false
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5532
                    ]
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5533
                ].
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5534
                varName := tokenName.
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5535
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5536
                globlName := (nameSpace , '::' , varName).
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5537
                rawName := (rawName , '::' , varName).
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5538
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5539
                nameSpaceGlobal := Smalltalk at:nameSpace asSymbol ifAbsent:nil.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5540
                nameSpaceGlobal isNil ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5541
                    warnedUnknownNamespaces isNil ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5542
                        warnedUnknownNamespaces := Set new.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5543
                    ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5544
                    (warnedUnknownNamespaces includes:nameSpace) ifFalse:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5545
                        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
  5546
                             position:pos1 to:tokenPosition-1.
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5547
"/                            self parseError:('unknown nameSpace: ', nameSpace) position:pos to:tokenPosition-1.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5548
                        warnedUnknownNamespaces add:nameSpace.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5549
                    ]
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5550
                ] ifFalse:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5551
                    nameSpaceGlobal isNameSpace ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5552
                        "/ for now: only Smalltalk is allowed
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5553
                        nameSpaceGlobal ~~ Smalltalk ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5554
"/                                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
  5555
                        ] ifFalse:[
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5556
                            globlName := varName
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5557
                        ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5558
                    ] ifFalse:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5559
                        nameSpaceGlobal isBehavior ifFalse:[
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5560
                            self parseError:('invalid nameSpace: ' , nameSpace)  position:pos1 to:tokenPosition-1.
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5561
                        ] ifTrue:[
1391
6139f0c7abf3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1386
diff changeset
  5562
                            nameSpaceGlobal isLoaded ifTrue:[
6139f0c7abf3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1386
diff changeset
  5563
                                (nameSpaceGlobal privateClassesAt:varName asSymbol) isNil ifTrue:[
6139f0c7abf3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1386
diff changeset
  5564
                                    self warning:('no private class: ' , varName , ' in class: ' , nameSpace) 
6139f0c7abf3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1386
diff changeset
  5565
                                         position:pos1 to:tokenPosition-1.
6139f0c7abf3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1386
diff changeset
  5566
"/                                        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
  5567
                                ]
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5568
                            ]
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5569
                        ]
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5570
                    ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5571
                ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5572
                self nextToken.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5573
            ].
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5574
            var := VariableNode globalNamed:globlName.
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5575
            parseForCode ifFalse:[self rememberGlobalUsed:globlName].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5576
        ].
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5577
        self markVariable:var from:pos1 to:pos1 + rawName size - 1.
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5578
    ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5579
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5580
    var == #Error ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5581
        ^ #Error
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5582
    ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5583
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5584
    errorFlag ~~ true ifTrue:[
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5585
        self markVariable:var from:pos1 to:pos1 + varName size - 1.
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5586
    ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5587
    (ignoreErrors or:[ignoreWarnings or:[parseForCode not]]) ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5588
        errorFlag := false.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5589
    ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5590
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5591
    ((tokenType ~~ $_) and:[tokenType ~~ #':=']) ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5592
        parseForCode ifFalse:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5593
            var isInstanceVariable ifTrue:[ self rememberInstVarRead:var name].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5594
            var isClassVariable ifTrue:[ self rememberClassVarRead:var name].
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
        ^ var
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5597
    ].
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
    "/ careful: it could already be an implicit self send
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5600
    ImplicitSelfSends ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5601
        var isMessage ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5602
            self nextToken.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5603
            expr := self expression.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5604
            self isSyntaxHighlighter ifFalse:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5605
                (errorFlag or:[expr == #Error]) ifTrue:[^ #Error].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5606
            ].
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5607
            ^ MessageNode receiver:(self selfNode) selector:('__' , varName , ':') asSymbol arg:expr.
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5608
        ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5609
    ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5610
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5611
    (var ~~ #Error) ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5612
        t := var type.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5613
        (t ~~ #MethodVariable) ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5614
            (t == #PrivateClass) ifTrue:[
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5615
                self parseError:'assignment to private class' position:pos1 to:pos2.
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5616
            ] ifFalse:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5617
                (t == #MethodArg) ifTrue:[
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5618
                    self parseError:'assignment to method argument' position:pos1 to:pos2.
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5619
                ] ifFalse:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5620
                    (t == #BlockArg) ifTrue:[
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5621
                        self parseError:'assignment to block argument' position:pos1 to:pos2.
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5622
                    ] ifFalse:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5623
                        (t == #InstanceVariable) ifTrue:[
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5624
                            varName := self classesInstVarNames at:(var index).
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
                            "/ 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
  5627
                            "/ (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
  5628
                            "/  and is hard to track down later)
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5629
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5630
                            warnCommonMistakes ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5631
                                classToCompileFor isMeta ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5632
                                    (classToCompileFor isSubclassOf:Class) ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5633
                                        (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
  5634
                                            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
  5635
                                        ]
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
                                ]
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5638
                            ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5639
                            parseForCode ifFalse:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5640
                                modifiedInstVars isNil ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5641
                                    modifiedInstVars := Set new
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5642
                                ].
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5643
                                modifiedInstVars add: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
                            (t == #ClassVariable) ifTrue:[
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5647
                                varName := var name.
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5648
                                varName := varName copyFrom:((varName indexOf:$:) + 1).
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5649
                                parseForCode ifFalse:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5650
                                    modifiedClassVars isNil ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5651
                                        modifiedClassVars := Set new
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5652
                                    ].
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  5653
                                    modifiedClassVars add:varName
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5654
                                ]
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5655
                            ] ifFalse:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5656
                                (t == #GlobalVariable) ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5657
                                    (cls := Smalltalk classNamed:var name) notNil ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5658
                                        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
  5659
                                            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
  5660
                                        ]
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5661
                                    ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5662
                                    parseForCode ifFalse:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5663
                                        modifiedGlobals isNil ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5664
                                            modifiedGlobals := Set new
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
                                        modifiedGlobals add:var name
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5667
                                    ]
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5668
                                ]
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
                    ]
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5672
                ]
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
        ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5675
        t == #MethodVariable ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5676
            modifiedLocalVars isNil ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5677
                modifiedLocalVars := Set new.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5678
            ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5679
            modifiedLocalVars add:var name.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5680
        ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5681
    ].
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
    lnr := tokenLineNr.
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
    self nextToken.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5686
    pos2 := tokenPosition.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5687
    expr := self expression.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5688
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5689
    "/ a typical beginner error:
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5690
    "/   expr ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5691
    "/      var := super
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5692
    "/   ] ifFalse:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5693
    "/      var := something-else
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5694
    "/   ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5695
    "/   var messageSend
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
    "/   does not what a beginner might think.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5698
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5699
    self isSyntaxHighlighter ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5700
        (expr == #Error) ifTrue:[^ #Error].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5701
    ] ifFalse:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5702
        warnCommonMistakes ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5703
            (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
  5704
                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
  5705
            ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5706
        ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5707
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5708
        (errorFlag or:[expr == #Error]) ifTrue:[^ #Error].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5709
        expr isVariable ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5710
            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
  5711
                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
  5712
            ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5713
        ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5714
    ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5715
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5716
    node := AssignmentNode variable:var expression:expr.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5717
    (lineNumberInfo == #full) ifTrue:[node lineNumber:lnr].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5718
    ^ node
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5719
!
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5720
1295
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5721
primary_lazyValue
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5722
    |pos block expr|
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5723
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5724
    pos := tokenPosition.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5725
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5726
    (tokenType == $: ) ifTrue:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5727
        self parseError:'lazyValues have no arguments' position:tokenPosition.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5728
        ^ #Error
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5729
    ].
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5730
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5731
    block := self blockBody:#().
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5732
    self nextToken.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5733
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5734
    expr := MessageNode 
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  5735
                receiver:(VariableNode globalNamed:#LazyValue)
1295
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5736
                selector:#'block:'
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5737
                arg:block.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5738
    ^ expr
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5739
!
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  5740
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5741
primary_nil
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5742
    "parse a nil primary; return a node-tree, nil or #Error."
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5743
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5744
    |pos|
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5745
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5746
    pos := tokenPosition.
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
    self nextToken.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5749
    (self noAssignmentAllowed:'assignment to ''nil''' at:pos) ifFalse:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5750
        ^ #Error
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5751
    ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5752
"/        self markConstantFrom:pos to:pos+2.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5753
    nilNode isNil ifTrue:[ 
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5754
        nilNode := ConstantNode type:#Nil value:nil
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
    ^ nilNode
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
primary_self
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5760
    "parse a self primary; return a node-tree, nil or #Error."
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
    |pos|
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5763
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5764
    pos := tokenPosition.
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
    self nextToken.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5767
    (self noAssignmentAllowed:'assignment to pseudo variable ''self''' at:pos) ifFalse:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5768
        ^ ParseError raise
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
    self markSelfFrom:pos to:pos+3.
1262
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  5771
    ^ self selfNode
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5772
!
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5773
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5774
primary_simpleLiteral
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5775
    "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
  5776
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5777
    |pos val|
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5778
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5779
    pos := tokenPosition.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5780
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
    "/ ImmutableStrings are experimental
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
    ((tokenType == #String)
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5785
    and:[(StringsAreImmutable == true) 
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5786
    and:[ImmutableString notNil]]) ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5787
        tokenValue := tokenValue copy.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5788
        tokenValue changeClassTo:ImmutableString.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5789
        token := tokenValue
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5790
    ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5791
    (tokenType == #Symbol) ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5792
        parseForCode ifFalse:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5793
            self rememberSymbolUsed:tokenValue
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
    ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5796
    val := ConstantNode type:tokenType value:tokenValue.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5797
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5798
    tokenValue isSymbol ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5799
        self markSymbolFrom:tokenPosition to:tokenPosition+tokenValue size-1.
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
    self nextToken.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5803
    (self noAssignmentAllowed:'assignment to a constant' at:pos) ifFalse:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5804
        ^ #Error
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5805
    ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5806
    ^ val
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5807
!
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5808
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5809
primary_squeakComputedArray
1274
7d4a3391a81a comments
Claus Gittinger <cg@exept.de>
parents: 1273
diff changeset
  5810
    "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
  5811
     In squeak, these are written as: { expr1 . expr2 . ... exprN )
7d4a3391a81a comments
Claus Gittinger <cg@exept.de>
parents: 1273
diff changeset
  5812
     and create a literalArray containing the exprI values.
7d4a3391a81a comments
Claus Gittinger <cg@exept.de>
parents: 1273
diff changeset
  5813
     WARNING: this is only supported to allow filing in squeak code.
7d4a3391a81a comments
Claus Gittinger <cg@exept.de>
parents: 1273
diff changeset
  5814
     since stc cannot handle this (at the moment), you should rewrite the code
7d4a3391a81a comments
Claus Gittinger <cg@exept.de>
parents: 1273
diff changeset
  5815
     if you ever plan to stc-compile it into a shared library"
7d4a3391a81a comments
Claus Gittinger <cg@exept.de>
parents: 1273
diff changeset
  5816
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5817
1271
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5818
    |pos exprList|
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5819
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5820
    pos := tokenPosition.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5821
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5822
    self nextToken.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5823
    exprList := self squeakComputedArray.
1277
f7c21ebe1520 squeak computed arrays again
Claus Gittinger <cg@exept.de>
parents: 1276
diff changeset
  5824
    (exprList == #Error) ifTrue:[ ^ #Error ].
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5825
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5826
    tokenType ~~ $} ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5827
        self parseError:'''}'' expected' position:tokenPosition.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5828
        ^ #Error
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5829
    ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5830
    self nextToken.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5831
    (self noAssignmentAllowed:'invalid assignment' at:pos) ifFalse:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5832
        ^ #Error
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5833
    ].
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
    "/ make it an array creation expression ...
1271
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5836
    ^ self genMakeArrayWith:exprList
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5837
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5838
    "
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5839
     Compiler allowSqueakExtensions:true.
1299
6c182cd87b6c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1297
diff changeset
  5840
    "
6c182cd87b6c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1297
diff changeset
  5841
6c182cd87b6c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1297
diff changeset
  5842
    "
6c182cd87b6c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1297
diff changeset
  5843
     { 1@2. 10 factorial. Date today }.     
6c182cd87b6c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1297
diff changeset
  5844
    "
6c182cd87b6c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1297
diff changeset
  5845
6c182cd87b6c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1297
diff changeset
  5846
   "
1271
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5847
     Compiler allowSqueakExtensions:false.
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  5848
    "
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5849
!
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
primary_super
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5852
    "parse a super primary; return a node-tree, nil or #Error."
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5853
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5854
    |pos|
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5855
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5856
    pos := tokenPosition.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5857
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5858
    usesSuper := true.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5859
    self nextToken.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5860
    (self noAssignmentAllowed:'assignment to pseudo variable ''super''' at:pos) ifFalse:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5861
        ^ #Error
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5862
    ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5863
    (classToCompileFor isNil or:[classToCompileFor superclass isNil]) ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5864
        self warning:'superclass is (currently ?) nil' position:pos to:(pos + 4).
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
    superNode isNil ifTrue:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5867
        superNode := SuperNode value:selfValue inClass:classToCompileFor
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
    self markSelfFrom:pos to:pos+4.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5870
    ^ superNode
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5871
!
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5872
1262
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  5873
primary_thisContext
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  5874
    "parse a thisContext primary; return a node-tree, or raise an Error."
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  5875
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  5876
    |pos|
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  5877
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  5878
    pos := tokenPosition.
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  5879
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  5880
    self nextToken.
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  5881
    (self noAssignmentAllowed:'assignment to pseudo variable ''thisContext''' at:pos) ifFalse:[
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  5882
        ^ #Error
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  5883
    ].
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  5884
    self markIdentifierFrom:pos to:pos+10.
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  5885
    ^ VariableNode type:#ThisContext context:contextToEvaluateIn. "/ often nil
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  5886
!
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  5887
1227
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5888
primary_true
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5889
    "parse a true primary; return a node-tree, or raise an Error."
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5890
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5891
    |pos|
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
    pos := tokenPosition.
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
    self nextToken.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5896
    (self noAssignmentAllowed:'assignment to ''true''' at:pos) ifFalse:[
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5897
        ^ #Error
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5898
    ].
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5899
    self markBooleanConstantFrom:pos to:pos+3.
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5900
    ^ ConstantNode type:#True value:true
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5901
!
74d5695ce8dc dolphin compatibility;
Claus Gittinger <cg@exept.de>
parents: 1225
diff changeset
  5902
924
6214afc7e312 qualifiedName support
Claus Gittinger <cg@exept.de>
parents: 921
diff changeset
  5903
qualifiedName
6214afc7e312 qualifiedName support
Claus Gittinger <cg@exept.de>
parents: 921
diff changeset
  5904
    "a vw3.x (and later) feature: QualifiedName is #{ id ... id }
6214afc7e312 qualifiedName support
Claus Gittinger <cg@exept.de>
parents: 921
diff changeset
  5905
     and mapped to a global variable here.
6214afc7e312 qualifiedName support
Claus Gittinger <cg@exept.de>
parents: 921
diff changeset
  5906
     The initial #{ is supposed to be not yet skipped."
6214afc7e312 qualifiedName support
Claus Gittinger <cg@exept.de>
parents: 921
diff changeset
  5907
1436
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  5908
    |elements elem pos1 nm|
924
6214afc7e312 qualifiedName support
Claus Gittinger <cg@exept.de>
parents: 921
diff changeset
  5909
6214afc7e312 qualifiedName support
Claus Gittinger <cg@exept.de>
parents: 921
diff changeset
  5910
    pos1 := tokenPosition.
6214afc7e312 qualifiedName support
Claus Gittinger <cg@exept.de>
parents: 921
diff changeset
  5911
    self nextToken.
6214afc7e312 qualifiedName support
Claus Gittinger <cg@exept.de>
parents: 921
diff changeset
  5912
    elements := OrderedCollection new.
1436
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  5913
    [ tokenType ~~ $} ] whileTrue:[
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  5914
        (tokenType == #Identifier) ifFalse:[
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  5915
            self syntaxError:'bad qualifiedName; Identifier expected' 
924
6214afc7e312 qualifiedName support
Claus Gittinger <cg@exept.de>
parents: 921
diff changeset
  5916
                    position:pos1 to:tokenPosition
6214afc7e312 qualifiedName support
Claus Gittinger <cg@exept.de>
parents: 921
diff changeset
  5917
        ].
1436
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  5918
        elem := tokenName.
924
6214afc7e312 qualifiedName support
Claus Gittinger <cg@exept.de>
parents: 921
diff changeset
  5919
        elements add:elem.
1028
cbdce68d87f6 fixed qualifiedName parsing
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  5920
cbdce68d87f6 fixed qualifiedName parsing
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  5921
        self nextToken.
1436
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  5922
        tokenType = $} ifTrue:[
1028
cbdce68d87f6 fixed qualifiedName parsing
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  5923
        ] ifFalse:[
1436
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  5924
            tokenType == #'::' ifTrue:[
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  5925
                "/ notice that Foo.Bar has already been scanned as Foo::Bar
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  5926
                "/(which is a kludge)
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  5927
                self nextToken.
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  5928
            ] ifFalse:[
1028
cbdce68d87f6 fixed qualifiedName parsing
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  5929
                self syntaxError:'bad qualifiedName syntax; ''.'' or ''}'' expected' 
cbdce68d87f6 fixed qualifiedName parsing
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  5930
                        position:pos1 to:tokenPosition.
cbdce68d87f6 fixed qualifiedName parsing
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  5931
            ].
cbdce68d87f6 fixed qualifiedName parsing
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  5932
        ].
1436
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  5933
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  5934
"/        elem := self variable.
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  5935
"/        (elem == #Error) ifTrue:[
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  5936
"/            (tokenType == #EOF) ifTrue:[
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  5937
"/                self syntaxError:'unterminated qualifiedName; ''}'' expected' 
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  5938
"/                        position:pos1 to:tokenPosition
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  5939
"/            ].
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  5940
"/            ^ #Error
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  5941
"/        ].
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  5942
"/        errorFlag := false.
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  5943
"/        (elem isVariable and:[elem isGlobal]) ifFalse:[
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  5944
"/            self warning:'elements of a qualifiedName should be globalIdentifiers' 
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  5945
"/                    position:pos1 to:tokenPosition
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  5946
"/        ].
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  5947
"/        elements add:elem.
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  5948
"/
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  5949
"/        self nextToken.
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  5950
"/        tokenType == #'::' ifTrue:[
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  5951
"/            "/ notice that Foo.Bar has already been scanned as Foo::Bar
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  5952
"/            "/(which is a kludge)
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  5953
"/            self nextToken.
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  5954
"/        ] ifFalse:[
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  5955
"/            tokenType ~~ $} ifTrue:[
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  5956
"/                self syntaxError:'bad qualifiedName syntax; ''.'' or ''}'' expected' 
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  5957
"/                        position:pos1 to:tokenPosition.
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  5958
"/                ^ #Error
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  5959
"/            ].
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  5960
"/        ].
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  5961
    ].
1437
a7a5db01ad12 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1436
diff changeset
  5962
    nm := (elements asStringWith:'::') asSymbol.
1436
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  5963
    ^ ConstantNode type:#Symbol value:nm
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  5964
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  5965
"/    elements size > 1 ifTrue:[
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  5966
"/        self syntaxError:'Sorry: qualified names are not yet implemented.'.
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  5967
"/    ].
e345acd83456 qualified name stuff
Claus Gittinger <cg@exept.de>
parents: 1434
diff changeset
  5968
"/    ^ elements first.
924
6214afc7e312 qualifiedName support
Claus Gittinger <cg@exept.de>
parents: 921
diff changeset
  5969
6214afc7e312 qualifiedName support
Claus Gittinger <cg@exept.de>
parents: 921
diff changeset
  5970
    "Modified: / 14.4.1998 / 17:03:29 / cg"
6214afc7e312 qualifiedName support
Claus Gittinger <cg@exept.de>
parents: 921
diff changeset
  5971
!
6214afc7e312 qualifiedName support
Claus Gittinger <cg@exept.de>
parents: 921
diff changeset
  5972
894
943b6d0d26b3 changes to support loading squeak code containing computed
Claus Gittinger <cg@exept.de>
parents: 887
diff changeset
  5973
squeakComputedArray
943b6d0d26b3 changes to support loading squeak code containing computed
Claus Gittinger <cg@exept.de>
parents: 887
diff changeset
  5974
    |expressions elem pos1|
943b6d0d26b3 changes to support loading squeak code containing computed
Claus Gittinger <cg@exept.de>
parents: 887
diff changeset
  5975
1275
91a0eead9e0e oops - stc bug workaround - scans keyword selectors
Claus Gittinger <cg@exept.de>
parents: 1274
diff changeset
  5976
    tokenType == $} ifTrue:[
91a0eead9e0e oops - stc bug workaround - scans keyword selectors
Claus Gittinger <cg@exept.de>
parents: 1274
diff changeset
  5977
        ^ #()
91a0eead9e0e oops - stc bug workaround - scans keyword selectors
Claus Gittinger <cg@exept.de>
parents: 1274
diff changeset
  5978
    ].
91a0eead9e0e oops - stc bug workaround - scans keyword selectors
Claus Gittinger <cg@exept.de>
parents: 1274
diff changeset
  5979
894
943b6d0d26b3 changes to support loading squeak code containing computed
Claus Gittinger <cg@exept.de>
parents: 887
diff changeset
  5980
    pos1 := tokenPosition.
943b6d0d26b3 changes to support loading squeak code containing computed
Claus Gittinger <cg@exept.de>
parents: 887
diff changeset
  5981
    expressions := OrderedCollection new:20.
1275
91a0eead9e0e oops - stc bug workaround - scans keyword selectors
Claus Gittinger <cg@exept.de>
parents: 1274
diff changeset
  5982
    [true] whileTrue:[
894
943b6d0d26b3 changes to support loading squeak code containing computed
Claus Gittinger <cg@exept.de>
parents: 887
diff changeset
  5983
        elem := self expression.
943b6d0d26b3 changes to support loading squeak code containing computed
Claus Gittinger <cg@exept.de>
parents: 887
diff changeset
  5984
        (elem == #Error) ifTrue:[
943b6d0d26b3 changes to support loading squeak code containing computed
Claus Gittinger <cg@exept.de>
parents: 887
diff changeset
  5985
            (tokenType == #EOF) ifTrue:[
943b6d0d26b3 changes to support loading squeak code containing computed
Claus Gittinger <cg@exept.de>
parents: 887
diff changeset
  5986
                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
  5987
                        position:pos1 to:tokenPosition
943b6d0d26b3 changes to support loading squeak code containing computed
Claus Gittinger <cg@exept.de>
parents: 887
diff changeset
  5988
            ].
943b6d0d26b3 changes to support loading squeak code containing computed
Claus Gittinger <cg@exept.de>
parents: 887
diff changeset
  5989
            ^ #Error
943b6d0d26b3 changes to support loading squeak code containing computed
Claus Gittinger <cg@exept.de>
parents: 887
diff changeset
  5990
        ].
943b6d0d26b3 changes to support loading squeak code containing computed
Claus Gittinger <cg@exept.de>
parents: 887
diff changeset
  5991
        expressions add:elem.
1277
f7c21ebe1520 squeak computed arrays again
Claus Gittinger <cg@exept.de>
parents: 1276
diff changeset
  5992
        tokenType == $. ifFalse:[
894
943b6d0d26b3 changes to support loading squeak code containing computed
Claus Gittinger <cg@exept.de>
parents: 887
diff changeset
  5993
            ^ expressions
1277
f7c21ebe1520 squeak computed arrays again
Claus Gittinger <cg@exept.de>
parents: 1276
diff changeset
  5994
        ].
f7c21ebe1520 squeak computed arrays again
Claus Gittinger <cg@exept.de>
parents: 1276
diff changeset
  5995
        self nextToken.
f7c21ebe1520 squeak computed arrays again
Claus Gittinger <cg@exept.de>
parents: 1276
diff changeset
  5996
        tokenType == $} ifTrue:[
f7c21ebe1520 squeak computed arrays again
Claus Gittinger <cg@exept.de>
parents: 1276
diff changeset
  5997
            ^ expressions
f7c21ebe1520 squeak computed arrays again
Claus Gittinger <cg@exept.de>
parents: 1276
diff changeset
  5998
        ].
894
943b6d0d26b3 changes to support loading squeak code containing computed
Claus Gittinger <cg@exept.de>
parents: 887
diff changeset
  5999
    ].
1275
91a0eead9e0e oops - stc bug workaround - scans keyword selectors
Claus Gittinger <cg@exept.de>
parents: 1274
diff changeset
  6000
    "/ not reached
894
943b6d0d26b3 changes to support loading squeak code containing computed
Claus Gittinger <cg@exept.de>
parents: 887
diff changeset
  6001
!
943b6d0d26b3 changes to support loading squeak code containing computed
Claus Gittinger <cg@exept.de>
parents: 887
diff changeset
  6002
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  6003
unaryExpression
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  6004
    "parse a unary-expression; return a node-tree, nil or #Error"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  6005
1328
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  6006
    |receiver|
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  6007
1405
f888caa1f2d8 refactored primitive-decl parsing;
Claus Gittinger <cg@exept.de>
parents: 1400
diff changeset
  6008
    receiver := self arrayIndexingExpression.
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  6009
    (receiver == #Error) ifTrue:[^ #Error].
1328
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  6010
    ^ self unaryExpressionFor:receiver
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  6011
!
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  6012
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  6013
unaryExpressionFor:receiverArg
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  6014
    "parse a unary-expression; return a node-tree, nil or #Error"
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  6015
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  6016
    |receiver thisReceiver sel pos pos2 try note|
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  6017
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  6018
    receiver := receiverArg.
af0a47799078 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1327
diff changeset
  6019
    (receiver == #Error) ifTrue:[^ #Error].
1306
90f45715a0d7 optionally allow nil, true, false etc. as unary selector
Claus Gittinger <cg@exept.de>
parents: 1304
diff changeset
  6020
    [ self isValidUnarySelector:tokenType ] whileTrue:[
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  6021
        pos := tokenPosition.
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  6022
        pos2 := pos + tokenName size - 1.
864
a716d90fa5a9 better selector marking
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
  6023
        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
  6024
        sel := tokenName.
1022
32bc5fc06687 added selector correction.
Claus Gittinger <cg@exept.de>
parents: 1020
diff changeset
  6025
        sel := self selectorCheck:sel for:receiver position:pos to:pos2.
1061
457156ffedec *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1060
diff changeset
  6026
        thisReceiver := receiver.
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  6027
        try := UnaryNode receiver:receiver selector:sel fold:foldConstants.
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  6028
        (try isMemberOf:String) ifTrue:[
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  6029
            self parseError:try position:pos to:pos2.
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  6030
            errorFlag := false. "ok, user wants it - so he'll get it"
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  6031
            receiver := UnaryNode receiver:receiver selector:sel fold:nil.
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  6032
        ] ifFalse:[
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  6033
            receiver := try
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  6034
        ].
1193
c441d3b202e5 check bad super message
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
  6035
        note := self plausibilityCheck:receiver.
c441d3b202e5 check bad super message
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
  6036
        note notNil ifTrue:[
c441d3b202e5 check bad super message
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
  6037
            self warning:note position:pos to:pos2
c441d3b202e5 check bad super message
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
  6038
        ].
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  6039
        receiver lineNumber:tokenLineNr.
1060
9978f9d22dde more queries (remember super messages)
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  6040
        parseForCode ifFalse:[
1061
457156ffedec *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1060
diff changeset
  6041
            self rememberSelectorUsed:sel receiver:thisReceiver
1060
9978f9d22dde more queries (remember super messages)
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  6042
        ].
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  6043
        self nextToken.
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  6044
    ].
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  6045
    ^ receiver
210
b22f4472833b allow enable/disable of constantFolding
Claus Gittinger <cg@exept.de>
parents: 207
diff changeset
  6046
1032
f97183aecb4e oops - super-send-doIt in a debugger used receivers class
Claus Gittinger <cg@exept.de>
parents: 1028
diff changeset
  6047
    "Modified: / 6.2.2000 / 14:54:20 / cg"
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  6048
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  6049
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  6050
variable
1028
cbdce68d87f6 fixed qualifiedName parsing
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  6051
    "parse a simple (i.e. non-namespace-access path) variable; 
cbdce68d87f6 fixed qualifiedName parsing
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  6052
     return a node-tree, nil or #Error.
cbdce68d87f6 fixed qualifiedName parsing
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  6053
     Does not advance to next token.
cbdce68d87f6 fixed qualifiedName parsing
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  6054
     If undefined, notify error and correct if user wants to"
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  6055
864
a716d90fa5a9 better selector marking
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
  6056
    |v pos1 pos2|
687
27565829b5d4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 685
diff changeset
  6057
454
00a079c9832f handle uses: usedNameSpace info
Claus Gittinger <cg@exept.de>
parents: 451
diff changeset
  6058
    v := self variableOrError:tokenName.
664
63d1460e8ee3 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 663
diff changeset
  6059
    (v ~~ #Error) ifTrue:[
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  6060
        (v isMemberOf:VariableNode) ifTrue:[
687
27565829b5d4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 685
diff changeset
  6061
            self markVariable:v.
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  6062
        ].
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  6063
        ^ v
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  6064
    ].
865
580b3f73021b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 864
diff changeset
  6065
687
27565829b5d4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 685
diff changeset
  6066
    pos1 := tokenPosition.
864
a716d90fa5a9 better selector marking
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
  6067
    pos2 := pos1+tokenName size-1.
a716d90fa5a9 better selector marking
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
  6068
    self markUnknownIdentifierFrom:pos1 to:pos2.
664
63d1460e8ee3 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 663
diff changeset
  6069
1089
ac7a3f73e18f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1087
diff changeset
  6070
    parseForCode == true ifTrue:[    
1337
b558251f5e77 function call is now compiled into an #eval: message
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
  6071
        v := self correctVariable:tokenName atPosition:pos1 to:pos2.
1089
ac7a3f73e18f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1087
diff changeset
  6072
        (v ~~ #Error) ifTrue:[^ v].
ac7a3f73e18f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1087
diff changeset
  6073
    ].
ac7a3f73e18f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1087
diff changeset
  6074
ac7a3f73e18f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1087
diff changeset
  6075
    errorFlag := true.
664
63d1460e8ee3 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 663
diff changeset
  6076
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  6077
    parseForCode ifFalse:[
1304
ade15708e7c1 undeclared variable handling was broken (to allow reference search)
penk
parents: 1301
diff changeset
  6078
        self rememberGlobalUsed:(Smalltalk undeclaredPrefix) , tokenName.
ade15708e7c1 undeclared variable handling was broken (to allow reference search)
penk
parents: 1301
diff changeset
  6079
        self rememberGlobalUsed:tokenName.
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  6080
    ] ifTrue:[
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  6081
        tokenName first isLowercase ifTrue:[
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  6082
            ImplicitSelfSends ifTrue:[
1271
47c443af9bb9 better code for squeak computed array;
Claus Gittinger <cg@exept.de>
parents: 1262
diff changeset
  6083
                ^ UnaryNode receiver:(self selfNode) selector:('__' , tokenName) asSymbol.
663
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  6084
            ].
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  6085
            ^ #Error
6c6a20f144ea more syntaxHighlighting
Claus Gittinger <cg@exept.de>
parents: 660
diff changeset
  6086
        ]
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  6087
    ].
865
580b3f73021b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 864
diff changeset
  6088
869
c483b1e6a0c3 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 866
diff changeset
  6089
"/    self markGlobalIdentifierFrom:pos1 to:pos2.
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  6090
    ^ VariableNode globalNamed:tokenName
454
00a079c9832f handle uses: usedNameSpace info
Claus Gittinger <cg@exept.de>
parents: 451
diff changeset
  6091
687
27565829b5d4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 685
diff changeset
  6092
    "Modified: / 16.4.1998 / 18:46:45 / cg"
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  6093
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  6094
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  6095
variableOrError
1028
cbdce68d87f6 fixed qualifiedName parsing
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  6096
    "parse a simple (i.e. non-namespace-access path) variable; 
cbdce68d87f6 fixed qualifiedName parsing
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  6097
     return a node-tree, nil or #Error.
cbdce68d87f6 fixed qualifiedName parsing
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  6098
     Does not advance to next token."
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  6099
21
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  6100
    ^ self variableOrError:tokenName
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  6101
!
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  6102
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  6103
variableOrError:varName
1028
cbdce68d87f6 fixed qualifiedName parsing
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  6104
    "parse a simple (i.e. non-namespace-access path) variable; 
cbdce68d87f6 fixed qualifiedName parsing
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  6105
     return a node-tree, nil or #Error.
cbdce68d87f6 fixed qualifiedName parsing
Claus Gittinger <cg@exept.de>
parents: 1025
diff changeset
  6106
     Does not advance to next token."
21
338c3cfeffbf *** empty log message ***
claus
parents: 20
diff changeset
  6107
1351
107757ea7184 Remove unused method variables
Stefan Vogel <sv@exept.de>
parents: 1347
diff changeset
  6108
    |varIndex aClass searchBlock args vars
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  6109
     tokenSymbol space classVarIndex holder node|
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  6110
7ad01559b262 Initial revision
claus
parents:
diff changeset
  6111
    "is it a block-arg or block-var ?"
7ad01559b262 Initial revision
claus
parents:
diff changeset
  6112
    searchBlock := currentBlock.
7ad01559b262 Initial revision
claus
parents:
diff changeset
  6113
    [searchBlock notNil] whileTrue:[
628
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6114
        vars := searchBlock variables.
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6115
        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
  6116
            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
  6117
            varIndex ~~ 0 ifTrue:[
628
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6118
                ^ VariableNode type:#BlockVariable
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6119
                               name:varName
640
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  6120
                              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
  6121
                              index:varIndex
628
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6122
                              block:searchBlock
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6123
                               from:currentBlock
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6124
            ].
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6125
        ].
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6126
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6127
        args := searchBlock arguments.
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6128
        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
  6129
            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
  6130
            varIndex ~~ 0 ifTrue:[
628
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6131
                ^ VariableNode type:#BlockArg
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6132
                               name:varName
640
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  6133
                              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
  6134
                              index:varIndex
628
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6135
                              block:searchBlock
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6136
                               from:currentBlock 
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6137
            ].
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6138
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6139
        ].
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6140
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6141
        searchBlock := searchBlock home
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  6142
    ].
7ad01559b262 Initial revision
claus
parents:
diff changeset
  6143
7ad01559b262 Initial revision
claus
parents:
diff changeset
  6144
    "is it a method-variable ?"
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  6145
    (node := self nodeForMethodVariable:varName) notNil
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  6146
    ifTrue:[
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  6147
        ^ node
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  6148
    ].
7ad01559b262 Initial revision
claus
parents:
diff changeset
  6149
7ad01559b262 Initial revision
claus
parents:
diff changeset
  6150
    "is it a method-argument ?"
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  6151
    (node := self nodeForMethodArg:varName) notNil
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  6152
    ifTrue:[
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  6153
        ^ node
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  6154
    ].
7ad01559b262 Initial revision
claus
parents:
diff changeset
  6155
640
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  6156
    contextToEvaluateIn notNil ifTrue:[
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  6157
        |con varNames|
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  6158
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  6159
        "/ 
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  6160
        "/ 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
  6161
        "/ 
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  6162
        con := contextToEvaluateIn.
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  6163
        [con notNil] whileTrue:[
1446
ac887ee4881a ** changed access to blockContexts source, args and vars -- please watch out
penk
parents: 1445
diff changeset
  6164
            varNames := con argAndVarNames.
690
936f55e3cc17 care for empty varNames
Claus Gittinger <cg@exept.de>
parents: 688
diff changeset
  6165
            varNames size > 0 ifTrue:[
936f55e3cc17 care for empty varNames
Claus Gittinger <cg@exept.de>
parents: 688
diff changeset
  6166
                varIndex := varNames lastIndexOf:varName.
936f55e3cc17 care for empty varNames
Claus Gittinger <cg@exept.de>
parents: 688
diff changeset
  6167
                varIndex ~~ 0 ifTrue:[
936f55e3cc17 care for empty varNames
Claus Gittinger <cg@exept.de>
parents: 688
diff changeset
  6168
                    ^ VariableNode type:#ContextVariable
936f55e3cc17 care for empty varNames
Claus Gittinger <cg@exept.de>
parents: 688
diff changeset
  6169
                                   name:varName
936f55e3cc17 care for empty varNames
Claus Gittinger <cg@exept.de>
parents: 688
diff changeset
  6170
                                context:con
936f55e3cc17 care for empty varNames
Claus Gittinger <cg@exept.de>
parents: 688
diff changeset
  6171
                                  index:varIndex
936f55e3cc17 care for empty varNames
Claus Gittinger <cg@exept.de>
parents: 688
diff changeset
  6172
                ].
640
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  6173
            ].
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  6174
            con := con home.
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  6175
        ].
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  6176
    ].
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  6177
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  6178
    classToCompileFor notNil ifTrue:[
628
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6179
        "is it an instance-variable ?"
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6180
640
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  6181
        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
  6182
        varIndex ~~ 0 ifTrue:[
628
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6183
            classToCompileFor isMeta ifTrue:[
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6184
                classVarIndex := (self classesClassVarNames) lastIndexOf:varName.
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6185
                classVarIndex ~~ 0 ifTrue:[
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6186
                    "/ give a warning - that maybe a common error
825
ff00fb46342f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 822
diff changeset
  6187
                    alreadyWarnedClassInstVarRefs isNil ifTrue:[
ff00fb46342f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 822
diff changeset
  6188
                        alreadyWarnedClassInstVarRefs := Set new
ff00fb46342f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 822
diff changeset
  6189
                    ].
ff00fb46342f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 822
diff changeset
  6190
                    (alreadyWarnedClassInstVarRefs includes:varName) ifFalse:[
ff00fb46342f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 822
diff changeset
  6191
                        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
  6192
                        alreadyWarnedClassInstVarRefs add:varName.
ff00fb46342f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 822
diff changeset
  6193
                    ].
628
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6194
                ].
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6195
            ].
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6196
            parseForCode ifFalse:[self rememberInstVarUsed:varName].
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6197
            ^ VariableNode type:#InstanceVariable 
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6198
                           name:varName
640
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  6199
                          index:varIndex
628
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6200
                      selfValue:selfValue
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6201
        ].
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6202
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6203
        "/ see if there is a corresponding classVar (for the warning)
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6204
        classVarIndex := (self classesClassVarNames) lastIndexOf:varName.
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6205
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6206
        "/      "is it a class-instance-variable ?"
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6207
        "/
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6208
        "/ Notice:
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6209
        "/ it is no longer allowed to fetch class-instance variables
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6210
        "/ from instance methods ...
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6211
        "/ (used to be in previous ST/X versions)
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6212
        "/
640
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  6213
        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
  6214
        varIndex ~~ 0 ifTrue:[
628
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6215
            aClass := self inWhichClassIsClassInstVar:varName.
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6216
            aClass notNil ifTrue:[
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6217
                classToCompileFor isMeta ifFalse:[
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6218
                    classVarIndex == 0 ifTrue:[
705
e22927413fe5 allow access to class-instVars from doIts;
Claus Gittinger <cg@exept.de>
parents: 694
diff changeset
  6219
                        "/ there is no corresponding classVar;
e22927413fe5 allow access to class-instVars from doIts;
Claus Gittinger <cg@exept.de>
parents: 694
diff changeset
  6220
                        "/ wants to access classInstVar ?
e22927413fe5 allow access to class-instVars from doIts;
Claus Gittinger <cg@exept.de>
parents: 694
diff changeset
  6221
                        contextToEvaluateIn notNil ifTrue:[
e22927413fe5 allow access to class-instVars from doIts;
Claus Gittinger <cg@exept.de>
parents: 694
diff changeset
  6222
                            "/ allow it in a doIt ...
e22927413fe5 allow access to class-instVars from doIts;
Claus Gittinger <cg@exept.de>
parents: 694
diff changeset
  6223
e22927413fe5 allow access to class-instVars from doIts;
Claus Gittinger <cg@exept.de>
parents: 694
diff changeset
  6224
                            ^ VariableNode type:#ClassInstanceVariable
e22927413fe5 allow access to class-instVars from doIts;
Claus Gittinger <cg@exept.de>
parents: 694
diff changeset
  6225
                                           name:varName
e22927413fe5 allow access to class-instVars from doIts;
Claus Gittinger <cg@exept.de>
parents: 694
diff changeset
  6226
                                          index:varIndex
e22927413fe5 allow access to class-instVars from doIts;
Claus Gittinger <cg@exept.de>
parents: 694
diff changeset
  6227
                                      selfClass:aClass
e22927413fe5 allow access to class-instVars from doIts;
Claus Gittinger <cg@exept.de>
parents: 694
diff changeset
  6228
                        ].
628
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6229
                        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
  6230
                        ^ #Error.
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6231
                    ] ifFalse:[
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6232
                        "/ give a warning - that maybe a common error
738
2c85becd8697 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 735
diff changeset
  6233
                        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
  6234
                    ]
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6235
                ].
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6236
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6237
"/ OLD CODE:
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6238
"/ 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
  6239
"/
628
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6240
"/                    parseForCode ifFalse:[self rememberClassVarUsed:varName].
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6241
"/                    ^ VariableNode type:#ClassInstanceVariable
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6242
"/                                   name:varName
640
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  6243
"/                                  index:varIndex
628
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6244
"/                              selfClass:aClass
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6245
"/                ].
732
c36e5ef1e6ce oops - when evaluating in a context, classVars must be
Claus Gittinger <cg@exept.de>
parents: 725
diff changeset
  6246
            ] ifFalse:[
c36e5ef1e6ce oops - when evaluating in a context, classVars must be
Claus Gittinger <cg@exept.de>
parents: 725
diff changeset
  6247
                "/ self halt:'oops - should not happen'.
628
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6248
            ]
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6249
        ].
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6250
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6251
        "is it a class-variable ?"
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6252
640
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  6253
        varIndex := classVarIndex.
c3be1ba89df0 handle passed-in context (for evaluation in the debuggers code-frame)
Claus Gittinger <cg@exept.de>
parents: 637
diff changeset
  6254
        varIndex ~~ 0 ifTrue:[
628
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6255
            aClass := self inWhichClassIsClassVar:varName.
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6256
            aClass notNil ifTrue:[
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6257
                parseForCode ifFalse:[self rememberClassVarUsed:varName].
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6258
                ^ 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
  6259
            ].
c36e5ef1e6ce oops - when evaluating in a context, classVars must be
Claus Gittinger <cg@exept.de>
parents: 725
diff changeset
  6260
            "/ self halt:'oops - should not happen'.
628
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6261
        ].
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6262
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6263
        "is it a private-class ?"
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6264
735
4012fa1611b1 code cleanup & fix for doIt (implementing class)
Claus Gittinger <cg@exept.de>
parents: 733
diff changeset
  6265
        aClass := self classToLookForClassVars.
1212
082618467e2c isMeta/soleInstance -> theMetaclass / theNonMetaclass
Claus Gittinger <cg@exept.de>
parents: 1207
diff changeset
  6266
        aClass := aClass theNonMetaclass.
628
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6267
        (aClass privateClassesAt:varName) notNil ifTrue:[
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6268
            parseForCode ifFalse:[self rememberGlobalUsed:(aClass name , '::' , varName)].
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6269
            ^ VariableNode type:#PrivateClass class:aClass name:varName
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6270
        ].
418
6a3d240e7db6 namespace support
Claus Gittinger <cg@exept.de>
parents: 412
diff changeset
  6271
    ].
6a3d240e7db6 namespace support
Claus Gittinger <cg@exept.de>
parents: 412
diff changeset
  6272
455
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6273
    "is it in a namespace ?"
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6274
    space := self findNameSpaceWith:varName.
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6275
    space notNil ifTrue:[
628
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6276
        space ~~ Smalltalk ifTrue:[
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6277
            parseForCode ifFalse:[self rememberGlobalUsed:(space name , '::' , varName)].
1042
d192446cb745 fixed qualifiedName handling (as array constant)
Claus Gittinger <cg@exept.de>
parents: 1041
diff changeset
  6278
            space isNameSpace ifTrue:[
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  6279
                ^ VariableNode globalNamed:(space name , '::' , varName)
1212
082618467e2c isMeta/soleInstance -> theMetaclass / theNonMetaclass
Claus Gittinger <cg@exept.de>
parents: 1207
diff changeset
  6280
            ].
082618467e2c isMeta/soleInstance -> theMetaclass / theNonMetaclass
Claus Gittinger <cg@exept.de>
parents: 1207
diff changeset
  6281
            ^ VariableNode type:#PrivateClass class:space name:varName
082618467e2c isMeta/soleInstance -> theMetaclass / theNonMetaclass
Claus Gittinger <cg@exept.de>
parents: 1207
diff changeset
  6282
        ].
082618467e2c isMeta/soleInstance -> theMetaclass / theNonMetaclass
Claus Gittinger <cg@exept.de>
parents: 1207
diff changeset
  6283
        parseForCode ifFalse:[self rememberGlobalUsed:varName].
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  6284
        ^ VariableNode globalNamed:varName
454
00a079c9832f handle uses: usedNameSpace info
Claus Gittinger <cg@exept.de>
parents: 451
diff changeset
  6285
    ].
00a079c9832f handle uses: usedNameSpace info
Claus Gittinger <cg@exept.de>
parents: 451
diff changeset
  6286
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  6287
    "is it a global-variable ?"
63
c30ce56de7a8 *** empty log message ***
claus
parents: 62
diff changeset
  6288
    tokenSymbol := varName asSymbolIfInterned.
c30ce56de7a8 *** empty log message ***
claus
parents: 62
diff changeset
  6289
    tokenSymbol notNil ifTrue:[
628
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6290
        (Smalltalk includesKey:tokenSymbol) ifTrue:[
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6291
            parseForCode ifFalse:[self rememberGlobalUsed:varName].
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  6292
            ^ VariableNode globalNamed:tokenSymbol
628
54fa351ac6be *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 624
diff changeset
  6293
        ]
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  6294
    ].
358
78b0d8954c49 removed possible conflict between #classVarNames here and in Class.
Claus Gittinger <cg@exept.de>
parents: 354
diff changeset
  6295
877
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  6296
    "is it a workspace variable ?"
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  6297
    (requestor notNil and:[requestor isStream not]) ifTrue:[
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  6298
        "/ when parsing doits, this is done twice;
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  6299
        "/ first, for the parse, then as a block-code
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  6300
        "/ for the code.
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  6301
        "/ We only care for WorkspaceVars in doIts
1440
7084ae99ced7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1439
diff changeset
  6302
        (self isDoIt) ifTrue:[
1295
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  6303
            (Workspace notNil 
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  6304
            and:[(holder := Workspace workspaceVariableAt:varName) notNil])
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  6305
            ifTrue:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  6306
                ^ VariableNode type:#WorkspaceVariable holder:holder name:varName
877
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  6307
            ]
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  6308
        ]
e75488a39c46 workspace variables.
Claus Gittinger <cg@exept.de>
parents: 869
diff changeset
  6309
    ].
1295
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  6310
    "is it a doIt variable ?"
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  6311
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  6312
"/    (requestor notNil and:[requestor isStream not]) ifTrue:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  6313
        "/ when parsing doits, this is done twice;
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  6314
        "/ first, for the parse, then as a block-code
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  6315
        "/ for the code.
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  6316
        "/ We only care for WorkspaceVars in doIts
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  6317
1440
7084ae99ced7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1439
diff changeset
  6318
        (self isDoIt) ifTrue:[
1295
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  6319
            (doItTemporaries notNil 
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  6320
            and:[(holder := doItTemporaries at:varName asSymbol ifAbsent:nil) notNil]) 
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  6321
            ifTrue:[
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  6322
                ^ VariableNode type:#DoItTemporary holder:holder name:varName
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  6323
            ]
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  6324
        ].
8d3e193bb30d experimental lazyValues
Claus Gittinger <cg@exept.de>
parents: 1286
diff changeset
  6325
"/    ].
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  6326
    ^ #Error
1212
082618467e2c isMeta/soleInstance -> theMetaclass / theNonMetaclass
Claus Gittinger <cg@exept.de>
parents: 1207
diff changeset
  6327
    "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
  6328
! !
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6329
1410
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6330
!Parser methodsFor:'parsing-primitives & pragmas'!
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6331
1420
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6332
checkForClosingAngle
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6333
    ((tokenType == #BinaryOperator) and:[tokenName = '>']) ifTrue:[
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6334
        self nextToken.
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6335
    ] ifFalse:[
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6336
        self parseError:'bad primitive definition (''>'' expected)'.
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6337
    ]
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6338
!
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6339
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6340
parseApiCallPragma
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6341
    |cString|
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6342
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6343
    cString := source upTo:$>.
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6344
    self nextToken.
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6345
    "/ TODO: generate that interface ...
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6346
    ^ -1
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6347
!
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6348
1410
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6349
parseApiPragma
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6350
    |cString|
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6351
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6352
    cString := source upTo:$>.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6353
    self nextToken.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6354
    "/ TODO: generate that interface ...
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6355
    ^ -1
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6356
!
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6357
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6358
parseCDeclPragma
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6359
    |cString cStream cParser returnType functionName argTypes|
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6360
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6361
    cString := source upTo:$>.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6362
    self nextToken.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6363
    cStream := cString readStream.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6364
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6365
    cParser := CParser new.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6366
    cParser source:cStream scannerClass:CDeclScanner.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6367
    cParser nextToken.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6368
    returnType := cParser type.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6369
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6370
    cParser tokenType ~~ #String ifTrue:[
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6371
        self parseError:'invalid cdecl - functionName expected'.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6372
        ^ -1
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6373
    ].
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6374
    functionName := cParser token.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6375
    cParser nextToken.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6376
    argTypes := cParser parseFunctionArgumentSpec.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6377
self halt.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6378
    "/ TODO: generate that ffi-calling code ...
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6379
    ^ -1
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6380
!
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6381
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6382
parseCPragma
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6383
    |cString cParser cType|
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6384
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6385
    cString := source upTo:$>.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6386
    self nextToken.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6387
    "/ TODO: generate that type
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6388
    cParser := CParser new.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6389
    cParser source:(cString , ';').
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6390
    cParser nextToken.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6391
    cType := cParser type.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6392
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6393
    primitiveResource "primitiveType" := cType.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6394
    ^ -1
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6395
!
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6396
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6397
parsePrimitive
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6398
    "parse an ST-80 type primitive as '< primitive: nr >';
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6399
     return primitive number or #Error.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6400
     or a Squeak-style primitive, as '< primitive: string >';
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6401
     return primitive name or #Error.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6402
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6403
     Also, ST-80 style resource specs are parsed; the result is
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6404
     left (as side effect) in primitiveResource. 
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6405
     (maybe someone else knows what to do with it ...)
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6406
     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
  6407
     do keyboard processing ... <resource: keyboard ( keys )>
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6408
     For faster finding of used keyboard accelerators,
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6409
     and to mark resource methods (image, menu or canvas resources).
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6410
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6411
     prim ::= st80Primitive | st80Pragma | stxPragma
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6412
              squeakPrimitive | newSTXPrimitive | resourceDecl
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6413
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6414
     st80Primitive ::= 'primitive:' INTEGER
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6415
     st80Pragma    ::= 'exception:' ( 'handle | 'raise' | 'unwind' )
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6416
     stxPragma     ::= 'context:' 'return'
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6417
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6418
     squeakPrimitive ::= 'primitive:' STRING
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6419
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6420
     newSTXPrimitive ::= 'primitive'
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6421
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6422
     resourceDecl ::= 'resource:' SYMBOL       - leave SYMBOL in primitiveResource
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6423
                    | 'resource:' SYMBOL (...) - leave (SYMBOL (...)) in primitiveResource
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6424
    "
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6425
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6426
    (tokenType == #Keyword or:[tokenType == #Identifier]) ifFalse:[
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6427
        self parseError:'bad primitive definition (keyword expected)'.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6428
        ^ #Error
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6429
    ].
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6430
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6431
    (tokenName = 'primitive:') ifTrue:[
1420
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6432
        ^ self parseTraditionalPrimitive.
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6433
    ].
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6434
    (tokenName = 'primitive') ifTrue:[
1410
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6435
        self nextToken.
1420
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6436
        self checkForClosingAngle.
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6437
        ^ 0.    "/ no primitive number
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6438
    ].
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6439
    (tokenName = 'resource:') ifTrue:[
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6440
        self parseResourcePragma.
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6441
        ^ nil.    "/ no primitive number
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6442
    ].
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6443
    (tokenName = 'exception:' 
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6444
    or:[tokenName = 'context:']) ifTrue:[
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6445
        self parseExceptionOrContextPragma.    
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6446
        self checkForClosingAngle.
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6447
        ^ nil   "/ no primitive number
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6448
    ].
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6449
    (tokenName = 'C:') ifTrue:[
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6450
        self parseCPragma.    
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6451
        ^ nil   "/ no primitive number
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6452
    ].
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6453
    (tokenName = 'api:') ifTrue:[
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6454
        self parseApiPragma.    
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6455
        ^ nil   "/ no primitive number
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6456
    ].
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6457
    (tokenName = 'apicall:') ifTrue:[
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6458
        self parseApiCallPragma.    
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6459
        ^ nil   "/ no primitive number
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6460
    ].
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6461
    (tokenName = 'cdecl:') ifTrue:[
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6462
        self parseCDeclPragma.
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6463
        ^ nil   "/ no primitive number
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6464
    ].
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6465
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6466
    self parseError:'unrecognized pragma: ' , tokenName.
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6467
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6468
    "/ skip
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6469
    [tokenType ~~ #EOF] whileTrue:[
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6470
        ((tokenType == #BinaryOperator) and:[tokenName = '>']) ifTrue:[
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6471
            self nextToken.
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6472
            ^ nil "/ no primitive number
1410
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6473
        ].
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6474
        self nextToken.
1420
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6475
    ].
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6476
    ^ nil  "/ no primitive number
1410
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6477
!
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6478
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6479
parsePrimitiveOrResourceSpecOrEmpty
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6480
    "parse a methods primitive or resource spec"
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6481
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6482
    |pos wmsg primNr primNrOrString|
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
    [(tokenType == #BinaryOperator) and:[tokenName = '<']] whileTrue:[
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6485
        "/ an ST-80 primitive or resourceSpec - parsed but ignored
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6486
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6487
        pos := tokenPosition.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6488
        self nextToken.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6489
        primNrOrString := self parsePrimitive.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6490
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6491
        (primNrOrString == #Error) ifTrue:[^ #Error].
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6492
        wmsg := nil.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6493
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6494
        primNrOrString isString ifTrue:[
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6495
            primNr := self primitiveNumberFromName:primNrOrString
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6496
        ] ifFalse:[
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6497
            primNr := primNrOrString
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6498
        ].
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6499
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6500
        primNr notNil ifTrue:[
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6501
            primNr < 0 ifTrue:[
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6502
                WarnST80Directives == true ifTrue:[
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6503
                    wmsg := 'ST-80/Squeak directive ignored'.
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
            ] ifFalse:[
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6506
                primNr > 0 ifTrue:[
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6507
                    primitiveNr := primNr.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6508
                    wmsg := 'ST-80 primitive may not work'
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6509
                ] ifFalse:[
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6510
                    primitiveNr := primNr.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6511
                    wmsg := 'ST/X primitives only work in rel5 and newer'
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
            ].
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6514
        ].
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6515
        wmsg notNil ifTrue:[self warning:wmsg position:pos]
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
    "Created: 27.4.1996 / 16:55:55 / cg"
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6519
    "Modified: 29.5.1996 / 17:25:52 / cg"
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6520
!
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6521
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6522
parseResourcePragma
1420
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6523
    " '< resource:' has already been parsed."
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6524
1410
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6525
    |keys resource resourceValue|
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6526
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6527
    self nextToken.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6528
    (tokenType ~~ #Symbol) ifTrue:[
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6529
        self parseError:'symbol expected'.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6530
        ^ #Error
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6531
    ].
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6532
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6533
    resource := tokenValue.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6534
    resourceValue := true.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6535
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6536
    self nextToken.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6537
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6538
    tokenType == $( ifTrue:[
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6539
        self nextToken.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6540
        keys := OrderedCollection new.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6541
        [(tokenType == $)) or:[tokenType == #EOF] ] whileFalse:[
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6542
            keys add:tokenValue.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6543
            self nextToken.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6544
        ].
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6545
        resourceValue := keys.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6546
        (tokenType == $)) ifFalse:[
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6547
            self parseError:'unterminated primitive/spec (missing '')'')'.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6548
        ].
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6549
        self nextToken.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6550
    ].
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6551
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6552
    primitiveResource isNil ifTrue:[
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6553
        primitiveResource := IdentityDictionary new.
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6554
    ].
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6555
    primitiveResource at:(resource asSymbol) put:resourceValue.
1420
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6556
    self checkForClosingAngle.
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6557
!
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6558
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6559
parseTraditionalPrimitive
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6560
    "parse everything after the initial '<primitive:'"
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6561
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6562
    |primNumber|
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6563
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6564
    self nextToken.
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6565
    (tokenType == #Integer) ifFalse:[
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6566
        allowSqueakExtensions ifTrue:[
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6567
            (tokenType == #String) ifFalse:[
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6568
                self parseError:'primitive number or name expected'.
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6569
                ^ #Error
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6570
            ]
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6571
        ] ifFalse:[
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6572
            self parseError:'primitive number expected'.
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6573
            ^ #Error
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6574
        ]
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6575
    ].
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6576
    primitiveNr notNil ifTrue:[
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6577
        self parseError:'only one primitive spec allowed'.
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6578
        primNumber := -1.
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6579
    ] ifFalse:[
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6580
        primNumber := tokenValue.
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6581
    ].
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6582
    self nextToken.
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6583
    ((tokenType == #BinaryOperator) and:[tokenName = '>']) ifFalse:[
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6584
        ((tokenType == #Keyword) and:[tokenName = 'errorCode:']) ifTrue:[
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6585
            self nextToken.
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6586
            (tokenType == #Identifier) ifTrue:[
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6587
                self nextToken.
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6588
            ] ifFalse:[
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6589
                self error:'not yet implemented'.
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6590
            ]
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6591
        ].
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6592
    ].
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6593
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6594
    self checkForClosingAngle.
57f3f5c8a070 more for exotic primitives/pragmas
Claus Gittinger <cg@exept.de>
parents: 1419
diff changeset
  6595
    ^ primNumber
1410
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6596
!
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6597
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6598
primitiveNumberFromName:aPrimitiveName
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6599
    "for future compatibility with Squeak ..."
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
    ^ nil
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6602
! !
e93635fe8c40 pragma & ffi stuff
Claus Gittinger <cg@exept.de>
parents: 1407
diff changeset
  6603
455
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6604
!Parser methodsFor:'private'!
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6605
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6606
currentNameSpace
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6607
    |spc|
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6608
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6609
    spc := currentNamespace.
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6610
    spc isNil ifTrue:[
832
553c25252a78 Use #query instead of #raise when invoking QuerySignals
Stefan Vogel <sv@exept.de>
parents: 825
diff changeset
  6611
        (requestor respondsTo:#currentNameSpace) ifTrue:[
553c25252a78 Use #query instead of #raise when invoking QuerySignals
Stefan Vogel <sv@exept.de>
parents: 825
diff changeset
  6612
            spc := requestor currentNameSpace
553c25252a78 Use #query instead of #raise when invoking QuerySignals
Stefan Vogel <sv@exept.de>
parents: 825
diff changeset
  6613
        ] ifFalse:[
553c25252a78 Use #query instead of #raise when invoking QuerySignals
Stefan Vogel <sv@exept.de>
parents: 825
diff changeset
  6614
            spc := Class nameSpaceQuerySignal query.
553c25252a78 Use #query instead of #raise when invoking QuerySignals
Stefan Vogel <sv@exept.de>
parents: 825
diff changeset
  6615
        ].
553c25252a78 Use #query instead of #raise when invoking QuerySignals
Stefan Vogel <sv@exept.de>
parents: 825
diff changeset
  6616
        currentNamespace := spc.
455
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6617
    ].
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6618
    ^ spc
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6619
832
553c25252a78 Use #query instead of #raise when invoking QuerySignals
Stefan Vogel <sv@exept.de>
parents: 825
diff changeset
  6620
    "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
  6621
    "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
  6622
    "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
  6623
!
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6624
492
fe778fd0ce46 additional entry, passing the namespace
Claus Gittinger <cg@exept.de>
parents: 489
diff changeset
  6625
currentNameSpace:aNameSpace
fe778fd0ce46 additional entry, passing the namespace
Claus Gittinger <cg@exept.de>
parents: 489
diff changeset
  6626
    currentNamespace := aNameSpace.
fe778fd0ce46 additional entry, passing the namespace
Claus Gittinger <cg@exept.de>
parents: 489
diff changeset
  6627
fe778fd0ce46 additional entry, passing the namespace
Claus Gittinger <cg@exept.de>
parents: 489
diff changeset
  6628
    "Created: 8.2.1997 / 19:37:03 / cg"
fe778fd0ce46 additional entry, passing the namespace
Claus Gittinger <cg@exept.de>
parents: 489
diff changeset
  6629
!
fe778fd0ce46 additional entry, passing the namespace
Claus Gittinger <cg@exept.de>
parents: 489
diff changeset
  6630
1247
ce0d19140248 care for package directive (remember)
Claus Gittinger <cg@exept.de>
parents: 1246
diff changeset
  6631
currentPackage
ce0d19140248 care for package directive (remember)
Claus Gittinger <cg@exept.de>
parents: 1246
diff changeset
  6632
    |pkg|
ce0d19140248 care for package directive (remember)
Claus Gittinger <cg@exept.de>
parents: 1246
diff changeset
  6633
ce0d19140248 care for package directive (remember)
Claus Gittinger <cg@exept.de>
parents: 1246
diff changeset
  6634
    pkg := currentPackage.
ce0d19140248 care for package directive (remember)
Claus Gittinger <cg@exept.de>
parents: 1246
diff changeset
  6635
    pkg isNil ifTrue:[
ce0d19140248 care for package directive (remember)
Claus Gittinger <cg@exept.de>
parents: 1246
diff changeset
  6636
        (requestor respondsTo:#currentPackage) ifTrue:[
ce0d19140248 care for package directive (remember)
Claus Gittinger <cg@exept.de>
parents: 1246
diff changeset
  6637
            pkg := requestor currentPackage
ce0d19140248 care for package directive (remember)
Claus Gittinger <cg@exept.de>
parents: 1246
diff changeset
  6638
        ] ifFalse:[
ce0d19140248 care for package directive (remember)
Claus Gittinger <cg@exept.de>
parents: 1246
diff changeset
  6639
            pkg := Class packageQuerySignal query.
ce0d19140248 care for package directive (remember)
Claus Gittinger <cg@exept.de>
parents: 1246
diff changeset
  6640
        ].
ce0d19140248 care for package directive (remember)
Claus Gittinger <cg@exept.de>
parents: 1246
diff changeset
  6641
        currentPackage := pkg.
ce0d19140248 care for package directive (remember)
Claus Gittinger <cg@exept.de>
parents: 1246
diff changeset
  6642
    ].
ce0d19140248 care for package directive (remember)
Claus Gittinger <cg@exept.de>
parents: 1246
diff changeset
  6643
    ^ pkg
ce0d19140248 care for package directive (remember)
Claus Gittinger <cg@exept.de>
parents: 1246
diff changeset
  6644
!
ce0d19140248 care for package directive (remember)
Claus Gittinger <cg@exept.de>
parents: 1246
diff changeset
  6645
ce0d19140248 care for package directive (remember)
Claus Gittinger <cg@exept.de>
parents: 1246
diff changeset
  6646
currentPackage:aPackageName
ce0d19140248 care for package directive (remember)
Claus Gittinger <cg@exept.de>
parents: 1246
diff changeset
  6647
    currentPackage := aPackageName.
ce0d19140248 care for package directive (remember)
Claus Gittinger <cg@exept.de>
parents: 1246
diff changeset
  6648
!
ce0d19140248 care for package directive (remember)
Claus Gittinger <cg@exept.de>
parents: 1246
diff changeset
  6649
455
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6650
currentUsedNameSpaces
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6651
    |spaces|
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6652
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6653
    spaces := currentUsedNamespaces.
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6654
    spaces isNil ifTrue:[
679
6a60e6d0ccd1 avoid redoing work in #currentUsedNameSpaces
Claus Gittinger <cg@exept.de>
parents: 673
diff changeset
  6655
        (requestor respondsTo:#usedNameSpaces) ifTrue:[
6a60e6d0ccd1 avoid redoing work in #currentUsedNameSpaces
Claus Gittinger <cg@exept.de>
parents: 673
diff changeset
  6656
            spaces := requestor usedNameSpaces
6a60e6d0ccd1 avoid redoing work in #currentUsedNameSpaces
Claus Gittinger <cg@exept.de>
parents: 673
diff changeset
  6657
        ] ifFalse:[
832
553c25252a78 Use #query instead of #raise when invoking QuerySignals
Stefan Vogel <sv@exept.de>
parents: 825
diff changeset
  6658
            spaces := Class usedNameSpaceQuerySignal query.
679
6a60e6d0ccd1 avoid redoing work in #currentUsedNameSpaces
Claus Gittinger <cg@exept.de>
parents: 673
diff changeset
  6659
        ].
6a60e6d0ccd1 avoid redoing work in #currentUsedNameSpaces
Claus Gittinger <cg@exept.de>
parents: 673
diff changeset
  6660
        spaces isNil ifTrue:[
6a60e6d0ccd1 avoid redoing work in #currentUsedNameSpaces
Claus Gittinger <cg@exept.de>
parents: 673
diff changeset
  6661
            spaces := #()
6a60e6d0ccd1 avoid redoing work in #currentUsedNameSpaces
Claus Gittinger <cg@exept.de>
parents: 673
diff changeset
  6662
        ].
6a60e6d0ccd1 avoid redoing work in #currentUsedNameSpaces
Claus Gittinger <cg@exept.de>
parents: 673
diff changeset
  6663
        currentUsedNamespaces := spaces.
455
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6664
    ].
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6665
    ^ spaces
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6666
679
6a60e6d0ccd1 avoid redoing work in #currentUsedNameSpaces
Claus Gittinger <cg@exept.de>
parents: 673
diff changeset
  6667
    "Created: / 19.12.1996 / 23:49:10 / cg"
6a60e6d0ccd1 avoid redoing work in #currentUsedNameSpaces
Claus Gittinger <cg@exept.de>
parents: 673
diff changeset
  6668
    "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
  6669
    "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
  6670
!
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6671
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6672
findNameSpaceWith:aVariableName
692
78647d24f59a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 690
diff changeset
  6673
    |ns currentSpace usedSpaces|
486
e894035d5223 fixed name resolving for private classes when accessing
Claus Gittinger <cg@exept.de>
parents: 481
diff changeset
  6674
e894035d5223 fixed name resolving for private classes when accessing
Claus Gittinger <cg@exept.de>
parents: 481
diff changeset
  6675
    "/ 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
  6676
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6677
    classToCompileFor notNil ifTrue:[
1042
d192446cb745 fixed qualifiedName handling (as array constant)
Claus Gittinger <cg@exept.de>
parents: 1041
diff changeset
  6678
        "/ Q:
d192446cb745 fixed qualifiedName handling (as array constant)
Claus Gittinger <cg@exept.de>
parents: 1041
diff changeset
  6679
        "/ consider private classes of superclasses.
d192446cb745 fixed qualifiedName handling (as array constant)
Claus Gittinger <cg@exept.de>
parents: 1041
diff changeset
  6680
        "/ 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
  6681
d192446cb745 fixed qualifiedName handling (as array constant)
Claus Gittinger <cg@exept.de>
parents: 1041
diff changeset
  6682
        "/ 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
  6683
        "/ known to the corresponding ownerClass.
d192446cb745 fixed qualifiedName handling (as array constant)
Claus Gittinger <cg@exept.de>
parents: 1041
diff changeset
  6684
d192446cb745 fixed qualifiedName handling (as array constant)
Claus Gittinger <cg@exept.de>
parents: 1041
diff changeset
  6685
        "is it in the classes namespace ?"
d192446cb745 fixed qualifiedName handling (as array constant)
Claus Gittinger <cg@exept.de>
parents: 1041
diff changeset
  6686
1315
c82178f7d52e use #topNameSpace
Claus Gittinger <cg@exept.de>
parents: 1309
diff changeset
  6687
        ns := classToCompileFor topNameSpace.
1042
d192446cb745 fixed qualifiedName handling (as array constant)
Claus Gittinger <cg@exept.de>
parents: 1041
diff changeset
  6688
        (ns notNil
d192446cb745 fixed qualifiedName handling (as array constant)
Claus Gittinger <cg@exept.de>
parents: 1041
diff changeset
  6689
        and:[ns ~~ Smalltalk]) ifTrue:[
1142
8ed9215cba13 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1139
diff changeset
  6690
            ns isNameSpace ifTrue:[
8ed9215cba13 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1139
diff changeset
  6691
                (ns at:aVariableName) notNil ifTrue:[
8ed9215cba13 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1139
diff changeset
  6692
                    ^ ns
8ed9215cba13 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1139
diff changeset
  6693
                ]
1042
d192446cb745 fixed qualifiedName handling (as array constant)
Claus Gittinger <cg@exept.de>
parents: 1041
diff changeset
  6694
            ]
d192446cb745 fixed qualifiedName handling (as array constant)
Claus Gittinger <cg@exept.de>
parents: 1041
diff changeset
  6695
        ].
494
bb3e71c90dfd currentClasses nameSpace is first to look for globals.
Claus Gittinger <cg@exept.de>
parents: 493
diff changeset
  6696
495
Claus Gittinger <cg@exept.de>
parents: 494
diff changeset
  6697
"/        ns := classToCompileFor nameSpace.
Claus Gittinger <cg@exept.de>
parents: 494
diff changeset
  6698
"/        ns notNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 494
diff changeset
  6699
"/            "is it in the current classes namespace ?"
Claus Gittinger <cg@exept.de>
parents: 494
diff changeset
  6700
"/            (ns at:aVariableName asSymbol) notNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 494
diff changeset
  6701
"/                ^ ns
Claus Gittinger <cg@exept.de>
parents: 494
diff changeset
  6702
"/            ]
Claus Gittinger <cg@exept.de>
parents: 494
diff changeset
  6703
"/        ].
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
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6706
    "is it in the current namespace ?"
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6707
    currentSpace := self currentNameSpace.
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6708
    (currentSpace notNil
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6709
    and:[currentSpace ~~ Smalltalk]) ifTrue:[
1043
08ad8eb7532d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1042
diff changeset
  6710
        currentSpace isNameSpace ifTrue:[
08ad8eb7532d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1042
diff changeset
  6711
            (currentSpace at:aVariableName) notNil ifTrue:[
08ad8eb7532d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1042
diff changeset
  6712
                ^ currentSpace
08ad8eb7532d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1042
diff changeset
  6713
            ]
08ad8eb7532d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1042
diff changeset
  6714
        ] ifFalse:[
08ad8eb7532d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1042
diff changeset
  6715
            (currentSpace privateClassesAt:aVariableName) notNil ifTrue:[
08ad8eb7532d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1042
diff changeset
  6716
                ^ currentSpace
08ad8eb7532d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1042
diff changeset
  6717
            ]
1042
d192446cb745 fixed qualifiedName handling (as array constant)
Claus Gittinger <cg@exept.de>
parents: 1041
diff changeset
  6718
        ]
455
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6719
    ].
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6720
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6721
    "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
  6722
    usedSpaces := self currentUsedNameSpaces.
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6723
    usedSpaces notNil ifTrue:[
1042
d192446cb745 fixed qualifiedName handling (as array constant)
Claus Gittinger <cg@exept.de>
parents: 1041
diff changeset
  6724
        usedSpaces do:[:aNameSpace |
d192446cb745 fixed qualifiedName handling (as array constant)
Claus Gittinger <cg@exept.de>
parents: 1041
diff changeset
  6725
            (aNameSpace at:aVariableName) notNil ifTrue:[
d192446cb745 fixed qualifiedName handling (as array constant)
Claus Gittinger <cg@exept.de>
parents: 1041
diff changeset
  6726
                ^ aNameSpace
d192446cb745 fixed qualifiedName handling (as array constant)
Claus Gittinger <cg@exept.de>
parents: 1041
diff changeset
  6727
            ]
d192446cb745 fixed qualifiedName handling (as array constant)
Claus Gittinger <cg@exept.de>
parents: 1041
diff changeset
  6728
        ]
455
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6729
    ].
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6730
    ^ nil
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6731
2e234d3bc96d fixed parsing of private classes within a nameSpace
Claus Gittinger <cg@exept.de>
parents: 454
diff changeset
  6732
    "Created: 19.12.1996 / 23:51:02 / cg"
619
247c7807db14 empty source notification
Claus Gittinger <cg@exept.de>
parents: 607
diff changeset
  6733
    "Modified: 14.10.1997 / 20:56:35 / cg"
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  6734
!
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  6735
1327
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  6736
implementedInAnyClass:selector
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  6737
    Smalltalk allClassesAndMetaclassesDo:[:cls |
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  6738
        (cls implements:selector) ifTrue:[^ true].
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  6739
    ].
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  6740
    ^ false
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  6741
!
133a7d16f2a2 more checks
Claus Gittinger <cg@exept.de>
parents: 1326
diff changeset
  6742
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  6743
inWhichClassIsClassInstVar:aString
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  6744
    "search class-chain for the class-instance variable named aString
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  6745
     - return the class or nil if not found"
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  6746
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  6747
    |aClass|
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  6748
735
4012fa1611b1 code cleanup & fix for doIt (implementing class)
Claus Gittinger <cg@exept.de>
parents: 733
diff changeset
  6749
    aClass := self classToLookForClassVars.
732
c36e5ef1e6ce oops - when evaluating in a context, classVars must be
Claus Gittinger <cg@exept.de>
parents: 725
diff changeset
  6750
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  6751
    [aClass notNil] whileTrue:[
732
c36e5ef1e6ce oops - when evaluating in a context, classVars must be
Claus Gittinger <cg@exept.de>
parents: 725
diff changeset
  6752
        (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
  6753
        aClass := aClass superclass
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  6754
    ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  6755
    ^ nil
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  6756
735
4012fa1611b1 code cleanup & fix for doIt (implementing class)
Claus Gittinger <cg@exept.de>
parents: 733
diff changeset
  6757
    "Modified: / 18.6.1998 / 15:45:34 / cg"
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  6758
!
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  6759
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  6760
inWhichClassIsClassVar:aString
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  6761
    "search class-chain for the classvariable named aString
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  6762
     - return the class or nil if not found"
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  6763
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  6764
    |aClass className baseClass|
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  6765
735
4012fa1611b1 code cleanup & fix for doIt (implementing class)
Claus Gittinger <cg@exept.de>
parents: 733
diff changeset
  6766
    aClass := self classToLookForClassVars.
732
c36e5ef1e6ce oops - when evaluating in a context, classVars must be
Claus Gittinger <cg@exept.de>
parents: 725
diff changeset
  6767
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  6768
    aClass isMeta ifTrue:[
732
c36e5ef1e6ce oops - when evaluating in a context, classVars must be
Claus Gittinger <cg@exept.de>
parents: 725
diff changeset
  6769
        className := aClass name copyWithoutLast:6.
c36e5ef1e6ce oops - when evaluating in a context, classVars must be
Claus Gittinger <cg@exept.de>
parents: 725
diff changeset
  6770
        baseClass := Smalltalk at:(className asSymbol).
c36e5ef1e6ce oops - when evaluating in a context, classVars must be
Claus Gittinger <cg@exept.de>
parents: 725
diff changeset
  6771
        baseClass notNil ifTrue:[
c36e5ef1e6ce oops - when evaluating in a context, classVars must be
Claus Gittinger <cg@exept.de>
parents: 725
diff changeset
  6772
            aClass := baseClass
c36e5ef1e6ce oops - when evaluating in a context, classVars must be
Claus Gittinger <cg@exept.de>
parents: 725
diff changeset
  6773
        ]
713
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  6774
    ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  6775
    ^ aClass whichClassDefinesClassVar:aString
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  6776
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  6777
"/    [aClass notNil] whileTrue:[
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  6778
"/        (aClass classVarNames includes:aString) ifTrue:[ ^ aClass].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  6779
"/        aClass := aClass superclass
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  6780
"/    ].
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  6781
"/    ^ nil
ae3141c892d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 712
diff changeset
  6782
732
c36e5ef1e6ce oops - when evaluating in a context, classVars must be
Claus Gittinger <cg@exept.de>
parents: 725
diff changeset
  6783
    "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
  6784
    "Modified: / 18.6.1998 / 15:45:29 / cg"
787
9a178fa050b9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 762
diff changeset
  6785
!
9a178fa050b9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 762
diff changeset
  6786
1262
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6787
makeReferenceFor:aNode
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6788
    |rec sel indexNode contextNode arg1 arg2|
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6789
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6790
    contextNode := VariableNode type:#ThisContext context:contextToEvaluateIn.
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6791
    indexNode := ConstantNode type:#Integer value:aNode index.
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6792
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6793
    aNode isArgument ifTrue:[
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6794
        sel := #forArgument:in:.
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6795
        arg1 := indexNode.
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6796
        arg2 := contextNode.
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6797
    ] ifFalse:[
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6798
        aNode isLocal ifTrue:[
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6799
            sel := #forLocal:in:.
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6800
            arg1 := indexNode.
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6801
            arg2 := contextNode.
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6802
        ] ifFalse:[
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6803
            self parseError:'unsupported variable reference (must be local or argument)'.
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6804
            ^ aNode
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6805
        ]
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6806
    ].
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6807
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6808
    parseForCode ifFalse:[self rememberGlobalUsed:'Reference'].
1309
f85561a7b90e preps for nonDeterministic and FD variables.
Claus Gittinger <cg@exept.de>
parents: 1306
diff changeset
  6809
    rec := VariableNode globalNamed:'Reference'.
1262
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6810
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6811
    ^ MessageNode receiver:rec selector:sel arg1:arg1 arg2:arg2.
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6812
!
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6813
1003
37badd2eb5b0 dont stop syntaxHighlighting when a bad assignment is encountered
Claus Gittinger <cg@exept.de>
parents: 997
diff changeset
  6814
noAssignmentAllowed:eMsg at:pos
37badd2eb5b0 dont stop syntaxHighlighting when a bad assignment is encountered
Claus Gittinger <cg@exept.de>
parents: 997
diff changeset
  6815
    ((tokenType == $_) or:[tokenType == #':=']) ifTrue:[
37badd2eb5b0 dont stop syntaxHighlighting when a bad assignment is encountered
Claus Gittinger <cg@exept.de>
parents: 997
diff changeset
  6816
        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
  6817
        self isSyntaxHighlighter ifFalse:[
37badd2eb5b0 dont stop syntaxHighlighting when a bad assignment is encountered
Claus Gittinger <cg@exept.de>
parents: 997
diff changeset
  6818
            ^ false
37badd2eb5b0 dont stop syntaxHighlighting when a bad assignment is encountered
Claus Gittinger <cg@exept.de>
parents: 997
diff changeset
  6819
        ].
37badd2eb5b0 dont stop syntaxHighlighting when a bad assignment is encountered
Claus Gittinger <cg@exept.de>
parents: 997
diff changeset
  6820
        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
  6821
    ].
37badd2eb5b0 dont stop syntaxHighlighting when a bad assignment is encountered
Claus Gittinger <cg@exept.de>
parents: 997
diff changeset
  6822
    ^ true
37badd2eb5b0 dont stop syntaxHighlighting when a bad assignment is encountered
Claus Gittinger <cg@exept.de>
parents: 997
diff changeset
  6823
!
37badd2eb5b0 dont stop syntaxHighlighting when a bad assignment is encountered
Claus Gittinger <cg@exept.de>
parents: 997
diff changeset
  6824
787
9a178fa050b9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 762
diff changeset
  6825
plausibilityCheck:aNode
1193
c441d3b202e5 check bad super message
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
  6826
    |note|
c441d3b202e5 check bad super message
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
  6827
c441d3b202e5 check bad super message
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
  6828
    note := aNode plausibilityCheck.
c441d3b202e5 check bad super message
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
  6829
    note isNil ifTrue:[
c441d3b202e5 check bad super message
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
  6830
        aNode isMessage ifTrue:[
c441d3b202e5 check bad super message
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
  6831
            (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
  6832
                aNode receiver isSuper ifTrue:[
c441d3b202e5 check bad super message
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
  6833
                    aNode selector ~= selector ifTrue:[
c441d3b202e5 check bad super message
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
  6834
                        ^ '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
  6835
                    ].
c441d3b202e5 check bad super message
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
  6836
                ].
c441d3b202e5 check bad super message
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
  6837
            ].
c441d3b202e5 check bad super message
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
  6838
        ].
c441d3b202e5 check bad super message
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
  6839
    ].
c441d3b202e5 check bad super message
Claus Gittinger <cg@exept.de>
parents: 1190
diff changeset
  6840
    ^ note
1262
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6841
!
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6842
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6843
selfNode
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6844
    selfNode isNil ifTrue:[ 
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6845
        selfNode := SelfNode value:selfValue
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6846
    ].
85c57c7eee77 experimental: refs
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
  6847
    ^ selfNode
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  6848
! !
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  6849
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  6850
!Parser methodsFor:'queries'!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  6851
735
4012fa1611b1 code cleanup & fix for doIt (implementing class)
Claus Gittinger <cg@exept.de>
parents: 733
diff changeset
  6852
classToLookForClassVars
4012fa1611b1 code cleanup & fix for doIt (implementing class)
Claus Gittinger <cg@exept.de>
parents: 733
diff changeset
  6853
    "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
  6854
     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
  6855
     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
  6856
     class of the receiver."
4012fa1611b1 code cleanup & fix for doIt (implementing class)
Claus Gittinger <cg@exept.de>
parents: 733
diff changeset
  6857
1160
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  6858
    |m who|
735
4012fa1611b1 code cleanup & fix for doIt (implementing class)
Claus Gittinger <cg@exept.de>
parents: 733
diff changeset
  6859
4012fa1611b1 code cleanup & fix for doIt (implementing class)
Claus Gittinger <cg@exept.de>
parents: 733
diff changeset
  6860
    contextToEvaluateIn notNil ifTrue:[
748
9c44179d6b03 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 743
diff changeset
  6861
        m := contextToEvaluateIn method.
9c44179d6b03 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 743
diff changeset
  6862
        m notNil ifTrue:[
9c44179d6b03 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 743
diff changeset
  6863
            who := contextToEvaluateIn method who.
9c44179d6b03 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 743
diff changeset
  6864
            who notNil ifTrue:[
9c44179d6b03 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 743
diff changeset
  6865
                ^ who methodClass.
9c44179d6b03 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 743
diff changeset
  6866
            ]
735
4012fa1611b1 code cleanup & fix for doIt (implementing class)
Claus Gittinger <cg@exept.de>
parents: 733
diff changeset
  6867
        ].
4012fa1611b1 code cleanup & fix for doIt (implementing class)
Claus Gittinger <cg@exept.de>
parents: 733
diff changeset
  6868
        "/ mhmh - might be a doIt ...
4012fa1611b1 code cleanup & fix for doIt (implementing class)
Claus Gittinger <cg@exept.de>
parents: 733
diff changeset
  6869
    ].
4012fa1611b1 code cleanup & fix for doIt (implementing class)
Claus Gittinger <cg@exept.de>
parents: 733
diff changeset
  6870
    ^ classToCompileFor
4012fa1611b1 code cleanup & fix for doIt (implementing class)
Claus Gittinger <cg@exept.de>
parents: 733
diff changeset
  6871
4012fa1611b1 code cleanup & fix for doIt (implementing class)
Claus Gittinger <cg@exept.de>
parents: 733
diff changeset
  6872
    "Created: / 18.6.1998 / 15:43:42 / cg"
748
9c44179d6b03 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 743
diff changeset
  6873
    "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
  6874
!
4012fa1611b1 code cleanup & fix for doIt (implementing class)
Claus Gittinger <cg@exept.de>
parents: 733
diff changeset
  6875
358
78b0d8954c49 removed possible conflict between #classVarNames here and in Class.
Claus Gittinger <cg@exept.de>
parents: 354
diff changeset
  6876
classesClassInstVarNames
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  6877
    "caching allInstVarNames for next compilation saves time ..."
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  6878
735
4012fa1611b1 code cleanup & fix for doIt (implementing class)
Claus Gittinger <cg@exept.de>
parents: 733
diff changeset
  6879
    |names|
694
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  6880
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  6881
    [
735
4012fa1611b1 code cleanup & fix for doIt (implementing class)
Claus Gittinger <cg@exept.de>
parents: 733
diff changeset
  6882
        |cls|
4012fa1611b1 code cleanup & fix for doIt (implementing class)
Claus Gittinger <cg@exept.de>
parents: 733
diff changeset
  6883
4012fa1611b1 code cleanup & fix for doIt (implementing class)
Claus Gittinger <cg@exept.de>
parents: 733
diff changeset
  6884
        cls := self classToLookForClassVars.
4012fa1611b1 code cleanup & fix for doIt (implementing class)
Claus Gittinger <cg@exept.de>
parents: 733
diff changeset
  6885
732
c36e5ef1e6ce oops - when evaluating in a context, classVars must be
Claus Gittinger <cg@exept.de>
parents: 725
diff changeset
  6886
        (PrevClassInstVarNames isNil or:[PrevClass ~~ cls]) ifTrue:[
694
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  6887
            PrevClass notNil ifTrue:[
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  6888
                PrevClass removeDependent:Parser
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  6889
            ].
732
c36e5ef1e6ce oops - when evaluating in a context, classVars must be
Claus Gittinger <cg@exept.de>
parents: 725
diff changeset
  6890
            PrevClass := cls.
c36e5ef1e6ce oops - when evaluating in a context, classVars must be
Claus Gittinger <cg@exept.de>
parents: 725
diff changeset
  6891
c36e5ef1e6ce oops - when evaluating in a context, classVars must be
Claus Gittinger <cg@exept.de>
parents: 725
diff changeset
  6892
            PrevClassInstVarNames := cls class allInstVarNames.
694
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  6893
            PrevClass addDependent:Parser.
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  6894
        ].
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  6895
        names := PrevClassInstVarNames.
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  6896
    ] valueUninterruptably.
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  6897
    ^ names
358
78b0d8954c49 removed possible conflict between #classVarNames here and in Class.
Claus Gittinger <cg@exept.de>
parents: 354
diff changeset
  6898
732
c36e5ef1e6ce oops - when evaluating in a context, classVars must be
Claus Gittinger <cg@exept.de>
parents: 725
diff changeset
  6899
    "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
  6900
    "Modified: / 18.6.1998 / 15:44:41 / cg"
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  6901
!
7ad01559b262 Initial revision
claus
parents:
diff changeset
  6902
358
78b0d8954c49 removed possible conflict between #classVarNames here and in Class.
Claus Gittinger <cg@exept.de>
parents: 354
diff changeset
  6903
classesClassVarNames
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  6904
    "caching allClassVarNames for next compilation saves time ..."
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  6905
735
4012fa1611b1 code cleanup & fix for doIt (implementing class)
Claus Gittinger <cg@exept.de>
parents: 733
diff changeset
  6906
    |names|
694
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  6907
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  6908
    [
735
4012fa1611b1 code cleanup & fix for doIt (implementing class)
Claus Gittinger <cg@exept.de>
parents: 733
diff changeset
  6909
        |cls aClass|
4012fa1611b1 code cleanup & fix for doIt (implementing class)
Claus Gittinger <cg@exept.de>
parents: 733
diff changeset
  6910
4012fa1611b1 code cleanup & fix for doIt (implementing class)
Claus Gittinger <cg@exept.de>
parents: 733
diff changeset
  6911
        cls := self classToLookForClassVars.
4012fa1611b1 code cleanup & fix for doIt (implementing class)
Claus Gittinger <cg@exept.de>
parents: 733
diff changeset
  6912
732
c36e5ef1e6ce oops - when evaluating in a context, classVars must be
Claus Gittinger <cg@exept.de>
parents: 725
diff changeset
  6913
        (PrevClassVarNames isNil or:[PrevClass ~~ cls]) ifTrue:[
694
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  6914
            PrevClass notNil ifTrue:[
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  6915
                PrevClass removeDependent:Parser
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  6916
            ].
732
c36e5ef1e6ce oops - when evaluating in a context, classVars must be
Claus Gittinger <cg@exept.de>
parents: 725
diff changeset
  6917
            aClass := PrevClass := cls.
694
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  6918
            aClass isMeta ifTrue:[
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  6919
                aClass := aClass soleInstance.
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  6920
                aClass isNil ifTrue:[
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  6921
                    aClass := classToCompileFor
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  6922
                ]
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  6923
            ].
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  6924
            PrevClassVarNames := aClass allClassVarNames.
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  6925
            PrevClass addDependent:Parser.
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  6926
        ].
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  6927
        names := PrevClassVarNames.
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  6928
    ] valueUninterruptably.
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  6929
    ^ names
290
d1650b17b9e9 Change the name of a classes Metaclass from e.g. "SmallIntegerclass" to
Stefan Vogel <sv@exept.de>
parents: 285
diff changeset
  6930
732
c36e5ef1e6ce oops - when evaluating in a context, classVars must be
Claus Gittinger <cg@exept.de>
parents: 725
diff changeset
  6931
    "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
  6932
    "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
  6933
    "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
  6934
!
78b0d8954c49 removed possible conflict between #classVarNames here and in Class.
Claus Gittinger <cg@exept.de>
parents: 354
diff changeset
  6935
78b0d8954c49 removed possible conflict between #classVarNames here and in Class.
Claus Gittinger <cg@exept.de>
parents: 354
diff changeset
  6936
classesInstVarNames
78b0d8954c49 removed possible conflict between #classVarNames here and in Class.
Claus Gittinger <cg@exept.de>
parents: 354
diff changeset
  6937
    "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
  6938
694
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  6939
    |names|
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  6940
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  6941
    [
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  6942
        (PrevInstVarNames isNil or:[PrevClass ~~ classToCompileFor]) ifTrue:[
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  6943
            PrevClass notNil ifTrue:[
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  6944
                PrevClass removeDependent:Parser
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  6945
            ].
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  6946
            PrevClass := classToCompileFor.
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  6947
            PrevInstVarNames := classToCompileFor allInstVarNames.
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  6948
            PrevClassInstVarNames := nil.
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  6949
            PrevClassVarNames := nil.
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  6950
            PrevClass addDependent:Parser
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  6951
        ].
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  6952
        names := PrevInstVarNames
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  6953
    ] valueUninterruptably.
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  6954
1ec57d3a2592 must manage the PrevClass cached instVars/classInstVars
Claus Gittinger <cg@exept.de>
parents: 692
diff changeset
  6955
    ^ names
358
78b0d8954c49 removed possible conflict between #classVarNames here and in Class.
Claus Gittinger <cg@exept.de>
parents: 354
diff changeset
  6956
78b0d8954c49 removed possible conflict between #classVarNames here and in Class.
Claus Gittinger <cg@exept.de>
parents: 354
diff changeset
  6957
    "Created: 14.10.1996 / 18:00:26 / cg"
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  6958
!
7ad01559b262 Initial revision
claus
parents:
diff changeset
  6959
934
716f9c76b06b pass down returnable-context flag via method.
Claus Gittinger <cg@exept.de>
parents: 931
diff changeset
  6960
contextMustBeReturnable
716f9c76b06b pass down returnable-context flag via method.
Claus Gittinger <cg@exept.de>
parents: 931
diff changeset
  6961
    ^ primitiveContextInfo notNil 
716f9c76b06b pass down returnable-context flag via method.
Claus Gittinger <cg@exept.de>
parents: 931
diff changeset
  6962
      and:[ ^ primitiveContextInfo includes:('context:' -> #return) ]
716f9c76b06b pass down returnable-context flag via method.
Claus Gittinger <cg@exept.de>
parents: 931
diff changeset
  6963
716f9c76b06b pass down returnable-context flag via method.
Claus Gittinger <cg@exept.de>
parents: 931
diff changeset
  6964
716f9c76b06b pass down returnable-context flag via method.
Claus Gittinger <cg@exept.de>
parents: 931
diff changeset
  6965
!
716f9c76b06b pass down returnable-context flag via method.
Claus Gittinger <cg@exept.de>
parents: 931
diff changeset
  6966
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  6967
hasNonOptionalPrimitiveCode
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  6968
    "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
  6969
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  6970
    ^ hasNonOptionalPrimitiveCode
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  6971
!
7ad01559b262 Initial revision
claus
parents:
diff changeset
  6972
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  6973
hasPrimitiveCode
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  6974
    "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
  6975
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  6976
    ^ hasPrimitiveCode
98
claus
parents: 97
diff changeset
  6977
!
claus
parents: 97
diff changeset
  6978
1440
7084ae99ced7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1439
diff changeset
  6979
isDoIt
7084ae99ced7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1439
diff changeset
  6980
    ^ (selector isNil or:[selector == #'doIt' or:[selector == #'doIt:']])
7084ae99ced7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1439
diff changeset
  6981
!
7084ae99ced7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1439
diff changeset
  6982
883
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  6983
isSyntaxHighlighter
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  6984
    ^ false
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  6985
!
e595802b4853 mark badIdentifiers
Claus Gittinger <cg@exept.de>
parents: 879
diff changeset
  6986
385
425fc425516b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 382
diff changeset
  6987
lineNumberInfo
425fc425516b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 382
diff changeset
  6988
    ^ lineNumberInfo
425fc425516b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 382
diff changeset
  6989
425fc425516b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 382
diff changeset
  6990
    "Created: 21.10.1996 / 17:06:16 / cg"
425fc425516b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 382
diff changeset
  6991
!
425fc425516b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 382
diff changeset
  6992
391
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
  6993
lineNumberInfo:how
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
  6994
    lineNumberInfo := how
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
  6995
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
  6996
    "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
  6997
!
c556973a4b47 added method to extract a block, given a lineNumber within the
Claus Gittinger <cg@exept.de>
parents: 390
diff changeset
  6998
1082
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  6999
messagesSent
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7000
    "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
  7001
     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
  7002
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7003
    ^ (messagesSent ? #()) collect:[:each | each asSymbol]
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7004
!
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7005
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7006
messagesSentToSelf
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7007
    "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
  7008
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7009
    ^ (messagesSentToSelf ? #()) collect:[:each | each asSymbol]
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7010
!
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7011
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7012
messagesSentToSuper
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7013
    "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
  7014
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7015
    ^ (messagesSentToSuper ? #()) collect:[:each | each asSymbol]
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7016
!
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7017
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7018
methodArgs
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7019
    "return an array with methodarg names (valid after parsing spec)"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7020
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7021
    ^ methodArgNames
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7022
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7023
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7024
methodVars
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7025
    "return a collection with method variablenames (valid after parsing)"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7026
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7027
    ^ methodVarNames
23
1f7bcfff8d39 *** empty log message ***
claus
parents: 21
diff changeset
  7028
!
1f7bcfff8d39 *** empty log message ***
claus
parents: 21
diff changeset
  7029
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7030
modifiedClassVars
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7031
    "return a collection with classvariablenames modified by method (valid after parsing)"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7032
541
63f0c6734fb3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 540
diff changeset
  7033
    ^ modifiedClassVars ? #()
63f0c6734fb3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 540
diff changeset
  7034
63f0c6734fb3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 540
diff changeset
  7035
    "Modified: 19.6.1997 / 17:54:48 / cg"
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7036
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7037
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7038
modifiedGlobals
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7039
    "return a collection with globalnames modified by method (valid after parsing)"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7040
541
63f0c6734fb3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 540
diff changeset
  7041
    ^ modifiedGlobals ? #()
63f0c6734fb3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 540
diff changeset
  7042
63f0c6734fb3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 540
diff changeset
  7043
    "Modified: 19.6.1997 / 17:54:51 / cg"
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7044
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7045
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7046
modifiedInstVars
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7047
    "return a collection with instvariablenames modified by method (valid after parsing)"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7048
541
63f0c6734fb3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 540
diff changeset
  7049
    ^ modifiedInstVars ? #()
63f0c6734fb3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 540
diff changeset
  7050
63f0c6734fb3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 540
diff changeset
  7051
    "Modified: 19.6.1997 / 17:54:27 / cg"
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  7052
!
7ad01559b262 Initial revision
claus
parents:
diff changeset
  7053
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7054
numberOfMethodArgs
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7055
    "return the number of methodargs (valid after parsing spec)"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7056
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7057
    ^ methodArgs size
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7058
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7059
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7060
numberOfMethodVars
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7061
    "return the number of method variables (valid after parsing)"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7062
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7063
    ^ methodVars size
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7064
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7065
1077
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7066
readClassVars
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7067
    "return a collection with classvariablenames read by method (valid after parsing)"
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7068
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7069
    ^ readClassVars ? #()
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7070
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7071
    "Modified: 19.6.1997 / 17:54:38 / cg"
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7072
!
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7073
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7074
readInstVars
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7075
    "return a collection with instvariablenames read by method (valid after parsing)"
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7076
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7077
    ^ readInstVars ? #()
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7078
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7079
    "Modified: 19.6.1997 / 17:54:38 / cg"
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7080
!
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7081
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7082
selector
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7083
    "return the selector (valid after parsing spec)"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7084
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7085
    ^ selector
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  7086
!
7ad01559b262 Initial revision
claus
parents:
diff changeset
  7087
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7088
usedClassVars
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7089
    "return a collection with classvariablenames refd by method (valid after parsing)"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7090
541
63f0c6734fb3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 540
diff changeset
  7091
    ^ usedClassVars ? #()
63f0c6734fb3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 540
diff changeset
  7092
63f0c6734fb3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 540
diff changeset
  7093
    "Modified: 19.6.1997 / 17:54:56 / cg"
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7094
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7095
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7096
usedGlobals
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7097
    "return a collection with globalnames refd by method (valid after parsing)"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7098
541
63f0c6734fb3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 540
diff changeset
  7099
    ^ usedGlobals ? #()
63f0c6734fb3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 540
diff changeset
  7100
63f0c6734fb3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 540
diff changeset
  7101
    "Modified: 19.6.1997 / 17:55:00 / cg"
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7102
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7103
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7104
usedInstVars
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7105
    "return a collection with instvariablenames refd by method (valid after parsing)"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7106
541
63f0c6734fb3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 540
diff changeset
  7107
    ^ usedInstVars ? #()
63f0c6734fb3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 540
diff changeset
  7108
63f0c6734fb3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 540
diff changeset
  7109
    "Modified: 19.6.1997 / 17:54:38 / cg"
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7110
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7111
1064
ecd50cdfb881 added #usedSymbols statistic
Claus Gittinger <cg@exept.de>
parents: 1063
diff changeset
  7112
usedSymbols
ecd50cdfb881 added #usedSymbols statistic
Claus Gittinger <cg@exept.de>
parents: 1063
diff changeset
  7113
    "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
  7114
ecd50cdfb881 added #usedSymbols statistic
Claus Gittinger <cg@exept.de>
parents: 1063
diff changeset
  7115
    ^ (usedSymbols ? #()) 
ecd50cdfb881 added #usedSymbols statistic
Claus Gittinger <cg@exept.de>
parents: 1063
diff changeset
  7116
!
ecd50cdfb881 added #usedSymbols statistic
Claus Gittinger <cg@exept.de>
parents: 1063
diff changeset
  7117
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7118
usedVars
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7119
    "return a collection with variablenames refd by method (valid after parsing)"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7120
541
63f0c6734fb3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 540
diff changeset
  7121
    ^ usedVars ? #()
63f0c6734fb3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 540
diff changeset
  7122
63f0c6734fb3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 540
diff changeset
  7123
    "Modified: 19.6.1997 / 17:55:04 / cg"
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  7124
!
7ad01559b262 Initial revision
claus
parents:
diff changeset
  7125
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7126
usesSuper
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7127
    "return true if the parsed method uses super (valid after parsing)"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7128
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7129
    ^ usesSuper
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
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7132
!Parser methodsFor:'setup'!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7133
1220
53e6eeadee72 added declare instVar and classInstVar
Claus Gittinger <cg@exept.de>
parents: 1215
diff changeset
  7134
classToCompileFor
53e6eeadee72 added declare instVar and classInstVar
Claus Gittinger <cg@exept.de>
parents: 1215
diff changeset
  7135
    ^ classToCompileFor
53e6eeadee72 added declare instVar and classInstVar
Claus Gittinger <cg@exept.de>
parents: 1215
diff changeset
  7136
53e6eeadee72 added declare instVar and classInstVar
Claus Gittinger <cg@exept.de>
parents: 1215
diff changeset
  7137
    "Created: / 15.11.2001 / 17:21:10 / cg"
53e6eeadee72 added declare instVar and classInstVar
Claus Gittinger <cg@exept.de>
parents: 1215
diff changeset
  7138
!
53e6eeadee72 added declare instVar and classInstVar
Claus Gittinger <cg@exept.de>
parents: 1215
diff changeset
  7139
229
7aecb52d907d dont fold constants with immediate evaluations
Claus Gittinger <cg@exept.de>
parents: 223
diff changeset
  7140
foldConstants:aSymbolOrNil
7aecb52d907d dont fold constants with immediate evaluations
Claus Gittinger <cg@exept.de>
parents: 223
diff changeset
  7141
    "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
  7142
7aecb52d907d dont fold constants with immediate evaluations
Claus Gittinger <cg@exept.de>
parents: 223
diff changeset
  7143
    foldConstants := aSymbolOrNil
7aecb52d907d dont fold constants with immediate evaluations
Claus Gittinger <cg@exept.de>
parents: 223
diff changeset
  7144
7aecb52d907d dont fold constants with immediate evaluations
Claus Gittinger <cg@exept.de>
parents: 223
diff changeset
  7145
    "Created: 21.3.1996 / 16:03:22 / cg"
7aecb52d907d dont fold constants with immediate evaluations
Claus Gittinger <cg@exept.de>
parents: 223
diff changeset
  7146
    "Modified: 21.3.1996 / 16:05:04 / cg"
7aecb52d907d dont fold constants with immediate evaluations
Claus Gittinger <cg@exept.de>
parents: 223
diff changeset
  7147
!
7aecb52d907d dont fold constants with immediate evaluations
Claus Gittinger <cg@exept.de>
parents: 223
diff changeset
  7148
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7149
initialize
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7150
    super initialize.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7151
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7152
    hasPrimitiveCode := hasNonOptionalPrimitiveCode := false.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7153
    warnSTXHereExtensionUsed := WarnSTXSpecials.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7154
    usesSuper := false.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7155
    parseForCode := false.
377
bee1c21ecc62 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 376
diff changeset
  7156
    foldConstants := FoldConstants.
bee1c21ecc62 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 376
diff changeset
  7157
    lineNumberInfo := LineNumberInfo.
607
118452a23976 allow dollars in identifiers
Claus Gittinger <cg@exept.de>
parents: 603
diff changeset
  7158
    warnUndeclared := true.
1160
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  7159
    warnUnusedVars := WarnUnusedVars.
607
118452a23976 allow dollars in identifiers
Claus Gittinger <cg@exept.de>
parents: 603
diff changeset
  7160
118452a23976 allow dollars in identifiers
Claus Gittinger <cg@exept.de>
parents: 603
diff changeset
  7161
    "Modified: 7.9.1997 / 02:04:34 / cg"
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7162
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7163
1363
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  7164
initializeFlagsFrom:aParser
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  7165
    "initialize flags from another scanner"
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  7166
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  7167
    super initializeFlagsFrom:aParser.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  7168
    warnSTXHereExtensionUsed := aParser warnSTXHereExtensionUsed.
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  7169
!
2ce77081f79a separated instance creation from parsing
penk
parents: 1361
diff changeset
  7170
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7171
parseForCode
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7172
    "turns off certain statistics (keeping referenced variables, modified vars etc.)
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7173
     Use this when parsing for compilation or evaluation"
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
    parseForCode := true
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  7176
!
7ad01559b262 Initial revision
claus
parents:
diff changeset
  7177
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7178
setClassToCompileFor:aClass
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7179
    "set the class to be used for parsing/evaluating"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7180
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7181
    classToCompileFor := aClass.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7182
    (classToCompileFor ~~ PrevClass) ifTrue:[
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7183
	PrevClass notNil ifTrue:[
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7184
	    Parser update:PrevClass
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7185
	]
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7186
    ]
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7187
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7188
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7189
setContext:aContext
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7190
    "set the context used while evaluating"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7191
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7192
    contextToEvaluateIn := aContext
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7193
!
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
setSelf:anObject
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7196
    "set the value to be used for self while evaluating"
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7197
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7198
    selfValue := anObject.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7199
    classToCompileFor := anObject class.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7200
    (classToCompileFor ~~ PrevClass) ifTrue:[
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7201
	PrevClass notNil ifTrue:[
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7202
	    Parser update:PrevClass
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7203
	]
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7204
    ]
607
118452a23976 allow dollars in identifiers
Claus Gittinger <cg@exept.de>
parents: 603
diff changeset
  7205
!
118452a23976 allow dollars in identifiers
Claus Gittinger <cg@exept.de>
parents: 603
diff changeset
  7206
118452a23976 allow dollars in identifiers
Claus Gittinger <cg@exept.de>
parents: 603
diff changeset
  7207
warnUndeclared:aBoolean
118452a23976 allow dollars in identifiers
Claus Gittinger <cg@exept.de>
parents: 603
diff changeset
  7208
    warnUndeclared := aBoolean.
118452a23976 allow dollars in identifiers
Claus Gittinger <cg@exept.de>
parents: 603
diff changeset
  7209
118452a23976 allow dollars in identifiers
Claus Gittinger <cg@exept.de>
parents: 603
diff changeset
  7210
    "Created: 7.9.1997 / 02:05:00 / cg"
1160
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  7211
!
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  7212
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  7213
warnUnusedVars:aBoolean
972e7e337891 Warn about unused method vars
Stefan Vogel <sv@exept.de>
parents: 1158
diff changeset
  7214
    warnUnusedVars := aBoolean.
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  7215
! !
7ad01559b262 Initial revision
claus
parents:
diff changeset
  7216
84
claus
parents: 83
diff changeset
  7217
!Parser methodsFor:'statistic'!
claus
parents: 83
diff changeset
  7218
1077
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7219
rememberClassVarRead:name 
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7220
    readClassVars isNil ifTrue:[
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7221
        readClassVars := Set new
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7222
    ].
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7223
    readClassVars add:name.
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7224
    self rememberClassVarUsed:name
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7225
!
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7226
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7227
rememberClassVarUsed:name 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7228
    usedClassVars isNil ifTrue:[
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7229
	usedClassVars := Set new
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7230
    ].
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7231
    usedClassVars add:name.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7232
    self rememberVariableUsed:name
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7233
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7234
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7235
rememberGlobalUsed:name 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7236
    usedGlobals isNil ifTrue:[
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7237
	usedGlobals := Set new
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
    usedGlobals add:name.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7240
    self rememberVariableUsed:name
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
1077
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7243
rememberInstVarRead:name 
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7244
    readInstVars isNil ifTrue:[
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7245
        readInstVars := Set new
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7246
    ].
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7247
    readInstVars add:name.
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7248
    self rememberVariableUsed:name
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7249
!
e34f711bd1d1 #readInstVars & #readClassVars
Claus Gittinger <cg@exept.de>
parents: 1070
diff changeset
  7250
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7251
rememberInstVarUsed:name 
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7252
    usedInstVars isNil ifTrue:[
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7253
	usedInstVars := Set new
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7254
    ].
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7255
    usedInstVars add:name.
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7256
    self rememberVariableUsed:name
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7257
!
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7258
977
c1afbaf48a23 remember used & modified local vars;
Claus Gittinger <cg@exept.de>
parents: 971
diff changeset
  7259
rememberLocalUsed:name 
c1afbaf48a23 remember used & modified local vars;
Claus Gittinger <cg@exept.de>
parents: 971
diff changeset
  7260
    usedLocalVars isNil ifTrue:[
c1afbaf48a23 remember used & modified local vars;
Claus Gittinger <cg@exept.de>
parents: 971
diff changeset
  7261
        usedLocalVars := Set new
c1afbaf48a23 remember used & modified local vars;
Claus Gittinger <cg@exept.de>
parents: 971
diff changeset
  7262
    ].
c1afbaf48a23 remember used & modified local vars;
Claus Gittinger <cg@exept.de>
parents: 971
diff changeset
  7263
    usedLocalVars add:name.
c1afbaf48a23 remember used & modified local vars;
Claus Gittinger <cg@exept.de>
parents: 971
diff changeset
  7264
c1afbaf48a23 remember used & modified local vars;
Claus Gittinger <cg@exept.de>
parents: 971
diff changeset
  7265
!
c1afbaf48a23 remember used & modified local vars;
Claus Gittinger <cg@exept.de>
parents: 971
diff changeset
  7266
1231
637e0e215633 returnValue check
Claus Gittinger <cg@exept.de>
parents: 1230
diff changeset
  7267
rememberReturnedValue:anExpressionNode 
637e0e215633 returnValue check
Claus Gittinger <cg@exept.de>
parents: 1230
diff changeset
  7268
    |expr|
637e0e215633 returnValue check
Claus Gittinger <cg@exept.de>
parents: 1230
diff changeset
  7269
637e0e215633 returnValue check
Claus Gittinger <cg@exept.de>
parents: 1230
diff changeset
  7270
    returnedValues isNil ifTrue:[returnedValues := Set new].
637e0e215633 returnValue check
Claus Gittinger <cg@exept.de>
parents: 1230
diff changeset
  7271
637e0e215633 returnValue check
Claus Gittinger <cg@exept.de>
parents: 1230
diff changeset
  7272
    expr := anExpressionNode.
637e0e215633 returnValue check
Claus Gittinger <cg@exept.de>
parents: 1230
diff changeset
  7273
    expr isAssignment ifTrue:[
637e0e215633 returnValue check
Claus Gittinger <cg@exept.de>
parents: 1230
diff changeset
  7274
        expr := expr expression.
637e0e215633 returnValue check
Claus Gittinger <cg@exept.de>
parents: 1230
diff changeset
  7275
    ].
637e0e215633 returnValue check
Claus Gittinger <cg@exept.de>
parents: 1230
diff changeset
  7276
    (expr isConstant or:[expr isSelf]) ifTrue:[
637e0e215633 returnValue check
Claus Gittinger <cg@exept.de>
parents: 1230
diff changeset
  7277
        returnedValues add:expr
637e0e215633 returnValue check
Claus Gittinger <cg@exept.de>
parents: 1230
diff changeset
  7278
    ].
637e0e215633 returnValue check
Claus Gittinger <cg@exept.de>
parents: 1230
diff changeset
  7279
!
637e0e215633 returnValue check
Claus Gittinger <cg@exept.de>
parents: 1230
diff changeset
  7280
84
claus
parents: 83
diff changeset
  7281
rememberSelectorUsed:sel
1082
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7282
    messagesSent isNil ifTrue:[
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7283
        messagesSent := IdentitySet new.
84
claus
parents: 83
diff changeset
  7284
    ].
1082
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7285
    messagesSent add:sel 
1060
9978f9d22dde more queries (remember super messages)
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  7286
!
9978f9d22dde more queries (remember super messages)
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  7287
9978f9d22dde more queries (remember super messages)
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  7288
rememberSelectorUsed:sel receiver:receiverNode
9978f9d22dde more queries (remember super messages)
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  7289
    self rememberSelectorUsed:sel.
9978f9d22dde more queries (remember super messages)
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  7290
    receiverNode isSuper ifTrue:[
1082
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7291
        self rememberSelectorUsedInSuperSend:sel
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7292
    ] ifFalse:[
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7293
        receiverNode isSelf ifTrue:[
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7294
            self rememberSelectorUsedInSelfSend:sel
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7295
        ].
1060
9978f9d22dde more queries (remember super messages)
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  7296
    ].
9978f9d22dde more queries (remember super messages)
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  7297
!
9978f9d22dde more queries (remember super messages)
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  7298
1082
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7299
rememberSelectorUsedInSelfSend:sel
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7300
    messagesSentToSelf isNil ifTrue:[
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7301
        messagesSentToSelf := IdentitySet new.
1060
9978f9d22dde more queries (remember super messages)
Claus Gittinger <cg@exept.de>
parents: 1052
diff changeset
  7302
    ].
1082
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7303
    messagesSentToSelf add:sel
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7304
!
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7305
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7306
rememberSelectorUsedInSuperSend:sel
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7307
    messagesSentToSuper isNil ifTrue:[
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7308
        messagesSentToSuper := IdentitySet new.
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7309
    ].
f795099895c5 keep track of messages sent to self (for checker)
Claus Gittinger <cg@exept.de>
parents: 1078
diff changeset
  7310
    messagesSentToSuper add:sel
84
claus
parents: 83
diff changeset
  7311
!
claus
parents: 83
diff changeset
  7312
1064
ecd50cdfb881 added #usedSymbols statistic
Claus Gittinger <cg@exept.de>
parents: 1063
diff changeset
  7313
rememberSymbolUsed:aSymbol
ecd50cdfb881 added #usedSymbols statistic
Claus Gittinger <cg@exept.de>
parents: 1063
diff changeset
  7314
    usedSymbols isNil ifTrue:[
ecd50cdfb881 added #usedSymbols statistic
Claus Gittinger <cg@exept.de>
parents: 1063
diff changeset
  7315
        usedSymbols := IdentitySet new.
ecd50cdfb881 added #usedSymbols statistic
Claus Gittinger <cg@exept.de>
parents: 1063
diff changeset
  7316
    ].
ecd50cdfb881 added #usedSymbols statistic
Claus Gittinger <cg@exept.de>
parents: 1063
diff changeset
  7317
    usedSymbols add:aSymbol 
ecd50cdfb881 added #usedSymbols statistic
Claus Gittinger <cg@exept.de>
parents: 1063
diff changeset
  7318
!
ecd50cdfb881 added #usedSymbols statistic
Claus Gittinger <cg@exept.de>
parents: 1063
diff changeset
  7319
84
claus
parents: 83
diff changeset
  7320
rememberVariableUsed:name 
claus
parents: 83
diff changeset
  7321
    usedVars isNil ifTrue:[
claus
parents: 83
diff changeset
  7322
	usedVars := Set new
claus
parents: 83
diff changeset
  7323
    ].
claus
parents: 83
diff changeset
  7324
    usedVars add:name
claus
parents: 83
diff changeset
  7325
! !
claus
parents: 83
diff changeset
  7326
1340
579fe8cd2e52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1337
diff changeset
  7327
!Parser::ParseError methodsFor:'accessing'!
579fe8cd2e52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1337
diff changeset
  7328
1386
10cb83add18b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1380
diff changeset
  7329
description
1434
e7d527d493d3 optional lineNumber info added to parseError
Claus Gittinger <cg@exept.de>
parents: 1432
diff changeset
  7330
    |s|
e7d527d493d3 optional lineNumber info added to parseError
Claus Gittinger <cg@exept.de>
parents: 1432
diff changeset
  7331
e7d527d493d3 optional lineNumber info added to parseError
Claus Gittinger <cg@exept.de>
parents: 1432
diff changeset
  7332
    s := super description , (errorMessage ? '').
e7d527d493d3 optional lineNumber info added to parseError
Claus Gittinger <cg@exept.de>
parents: 1432
diff changeset
  7333
    lineNumber notNil ifTrue:[
e7d527d493d3 optional lineNumber info added to parseError
Claus Gittinger <cg@exept.de>
parents: 1432
diff changeset
  7334
        s := s , ' [' , lineNumber asString , ']'
e7d527d493d3 optional lineNumber info added to parseError
Claus Gittinger <cg@exept.de>
parents: 1432
diff changeset
  7335
    ].
e7d527d493d3 optional lineNumber info added to parseError
Claus Gittinger <cg@exept.de>
parents: 1432
diff changeset
  7336
    ^ s
1386
10cb83add18b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1380
diff changeset
  7337
!
10cb83add18b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1380
diff changeset
  7338
1340
579fe8cd2e52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1337
diff changeset
  7339
endPosition
579fe8cd2e52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1337
diff changeset
  7340
    "return the value of the instance variable 'endPosition' (automatically generated)"
579fe8cd2e52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1337
diff changeset
  7341
579fe8cd2e52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1337
diff changeset
  7342
    ^ endPosition
579fe8cd2e52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1337
diff changeset
  7343
!
579fe8cd2e52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1337
diff changeset
  7344
579fe8cd2e52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1337
diff changeset
  7345
errorMessage
579fe8cd2e52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1337
diff changeset
  7346
    "return the value of the instance variable 'errorMessage' (automatically generated)"
579fe8cd2e52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1337
diff changeset
  7347
579fe8cd2e52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1337
diff changeset
  7348
    ^ errorMessage
579fe8cd2e52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1337
diff changeset
  7349
!
579fe8cd2e52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1337
diff changeset
  7350
579fe8cd2e52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1337
diff changeset
  7351
errorMessage:errorMessageArg startPosition:startPositionArg endPosition:endPositionArg 
579fe8cd2e52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1337
diff changeset
  7352
    "set instance variables (automatically generated)"
579fe8cd2e52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1337
diff changeset
  7353
579fe8cd2e52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1337
diff changeset
  7354
    errorMessage := errorMessageArg.
579fe8cd2e52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1337
diff changeset
  7355
    startPosition := startPositionArg.
579fe8cd2e52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1337
diff changeset
  7356
    endPosition := endPositionArg.
579fe8cd2e52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1337
diff changeset
  7357
!
579fe8cd2e52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1337
diff changeset
  7358
1434
e7d527d493d3 optional lineNumber info added to parseError
Claus Gittinger <cg@exept.de>
parents: 1432
diff changeset
  7359
lineNumber:something
e7d527d493d3 optional lineNumber info added to parseError
Claus Gittinger <cg@exept.de>
parents: 1432
diff changeset
  7360
    "set the value of the instance variable 'lineNumber' (automatically generated)"
e7d527d493d3 optional lineNumber info added to parseError
Claus Gittinger <cg@exept.de>
parents: 1432
diff changeset
  7361
e7d527d493d3 optional lineNumber info added to parseError
Claus Gittinger <cg@exept.de>
parents: 1432
diff changeset
  7362
    lineNumber := something.
e7d527d493d3 optional lineNumber info added to parseError
Claus Gittinger <cg@exept.de>
parents: 1432
diff changeset
  7363
!
e7d527d493d3 optional lineNumber info added to parseError
Claus Gittinger <cg@exept.de>
parents: 1432
diff changeset
  7364
1340
579fe8cd2e52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1337
diff changeset
  7365
parser
579fe8cd2e52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1337
diff changeset
  7366
    ^ originator
579fe8cd2e52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1337
diff changeset
  7367
!
579fe8cd2e52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1337
diff changeset
  7368
579fe8cd2e52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1337
diff changeset
  7369
startPosition
579fe8cd2e52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1337
diff changeset
  7370
    "return the value of the instance variable 'startPosition' (automatically generated)"
579fe8cd2e52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1337
diff changeset
  7371
579fe8cd2e52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1337
diff changeset
  7372
    ^ startPosition
579fe8cd2e52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1337
diff changeset
  7373
! !
579fe8cd2e52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1337
diff changeset
  7374
1399
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
  7375
!Parser::UndefinedVariableNotification methodsFor:'accessing'!
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
  7376
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
  7377
parser
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
  7378
    "return the value of the instance variable 'parser' (automatically generated)"
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
  7379
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
  7380
    ^ parser
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
  7381
!
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
  7382
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
  7383
parser:something
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
  7384
    "set the value of the instance variable 'parser' (automatically generated)"
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
  7385
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
  7386
    parser := something.
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
  7387
!
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
  7388
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
  7389
variableName
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
  7390
    ^ parameter
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
  7391
! !
95b2eaa4e457 undefinedVariableNotification fix
Claus Gittinger <cg@exept.de>
parents: 1398
diff changeset
  7392
358
78b0d8954c49 removed possible conflict between #classVarNames here and in Class.
Claus Gittinger <cg@exept.de>
parents: 354
diff changeset
  7393
!Parser class methodsFor:'documentation'!
148
ef0e604209ec version method at the end
Claus Gittinger <cg@exept.de>
parents: 145
diff changeset
  7394
ef0e604209ec version method at the end
Claus Gittinger <cg@exept.de>
parents: 145
diff changeset
  7395
version
1455
25e4af227208 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1453
diff changeset
  7396
    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.407 2003-09-10 15:01:23 cg Exp $'
148
ef0e604209ec version method at the end
Claus Gittinger <cg@exept.de>
parents: 145
diff changeset
  7397
! !
1322
da25e31f423c autodefine workspace variables
Claus Gittinger <cg@exept.de>
parents: 1315
diff changeset
  7398
141
d378d997aab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 139
diff changeset
  7399
Parser initialize!