equal
deleted
inserted
replaced
3190 Tools::ToDoListBrowser notNil ifTrue:[ |
3190 Tools::ToDoListBrowser notNil ifTrue:[ |
3191 "/ experimental |
3191 "/ experimental |
3192 self |
3192 self |
3193 notifyTodo:('"%1" is nowhere implemented' bindWith:aSelectorString) position:posVector first |
3193 notifyTodo:('"%1" is nowhere implemented' bindWith:aSelectorString) position:posVector first |
3194 className:(self classToCompileFor name) selector:selector |
3194 className:(self classToCompileFor name) selector:selector |
3195 severity:#warning priority:#high |
3195 severity:#warning priority:(Tools::ToDoList highPriority) |
3196 equalityParameter:aSelectorString |
3196 equalityParameter:aSelectorString |
3197 checkAction:[:e | |
3197 checkAction:[:e | |
3198 e problemMethod notNil |
3198 e problemMethod notNil |
3199 and:[(e problemMethod sends:aSelectorString asSymbol) |
3199 and:[(e problemMethod sends:aSelectorString asSymbol) |
3200 and:[self class implementedInAnyClass:aSelectorString]] ] |
3200 and:[self class implementedInAnyClass:aSelectorString]] ] |
3234 Tools::ToDoListBrowser notNil ifTrue:[ |
3234 Tools::ToDoListBrowser notNil ifTrue:[ |
3235 "/ experimental |
3235 "/ experimental |
3236 self |
3236 self |
3237 notifyTodo:(selectorSymbol ,' ',err) position:posVector first |
3237 notifyTodo:(selectorSymbol ,' ',err) position:posVector first |
3238 className:(self classToCompileFor name) selector:selector |
3238 className:(self classToCompileFor name) selector:selector |
3239 severity:#warning priority:#high |
3239 severity:#warning priority:(Tools::ToDoList highPriority) |
3240 equalityParameter:selectorSymbol |
3240 equalityParameter:selectorSymbol |
3241 checkAction:[:e | |
3241 checkAction:[:e | |
3242 |selClass| |
3242 |selClass| |
3243 |
3243 |
3244 selClass := self typeOfNode:receiver. |
3244 selClass := self typeOfNode:receiver. |
3664 Tools::ToDoListBrowser notNil ifTrue:[ |
3664 Tools::ToDoListBrowser notNil ifTrue:[ |
3665 "/ experimental |
3665 "/ experimental |
3666 self |
3666 self |
3667 notifyTodo:errMsg position:pos1 |
3667 notifyTodo:errMsg position:pos1 |
3668 className:(self classToCompileFor name) selector:selector |
3668 className:(self classToCompileFor name) selector:selector |
3669 severity:#warning priority:#high |
3669 severity:#warning priority:(Tools::ToDoList highPriority) |
3670 equalityParameter:aName |
3670 equalityParameter:aName |
3671 checkAction:[:e | |
3671 checkAction:[:e | |
3672 e problemMethod notNil |
3672 e problemMethod notNil |
3673 and:[(e problemMethod usedGlobals includes:aName) |
3673 and:[(e problemMethod usedGlobals includes:aName) |
3674 and:[(Smalltalk includesKey:aName) not]] ]. |
3674 and:[(Smalltalk includesKey:aName) not]] ]. |
3746 self deleteDefinitionOf:eachName in:(localVarDefPosition first) to:(localVarDefPosition last). |
3746 self deleteDefinitionOf:eachName in:(localVarDefPosition first) to:(localVarDefPosition last). |
3747 ]. |
3747 ]. |
3748 RestartCompilationSignal raise |
3748 RestartCompilationSignal raise |
3749 ]. |
3749 ]. |
3750 ]. |
3750 ]. |
|
3751 |
|
3752 Tools::ToDoListBrowser notNil ifTrue:[ |
|
3753 "/ experimental |
|
3754 self |
|
3755 notifyTodo:msg position:(localVarDefPosition first) |
|
3756 className:(self classToCompileFor name) selector:selector |
|
3757 severity:#warning priority:(Tools::ToDoList mediumPriority) |
|
3758 equalityParameter:nil |
|
3759 checkAction:nil. |
|
3760 ]. |
|
3761 |
3751 ]. |
3762 ]. |
3752 |
3763 |
3753 "Modified: / 17.11.2001 / 10:30:47 / cg" |
3764 "Modified: / 17.11.2001 / 10:30:47 / cg" |
3754 ! ! |
3765 ! ! |
3755 |
3766 |
4399 |
4410 |
4400 Tools::ToDoListBrowser notNil ifTrue:[ |
4411 Tools::ToDoListBrowser notNil ifTrue:[ |
4401 self |
4412 self |
4402 notifyTodo:'stc will not compile empty statements' position:tokenPosition |
4413 notifyTodo:'stc will not compile empty statements' position:tokenPosition |
4403 className:(self classToCompileFor name) selector:selector |
4414 className:(self classToCompileFor name) selector:selector |
4404 severity:#warning priority:#high |
4415 severity:#warning priority:(Tools::ToDoList highPriority) |
4405 equalityParameter:nil |
4416 equalityParameter:nil |
4406 checkAction:nil. |
4417 checkAction:nil. |
4407 ]. |
4418 ]. |
4408 ]. |
4419 ]. |
4409 self nextToken |
4420 self nextToken |
8991 ! ! |
9002 ! ! |
8992 |
9003 |
8993 !Parser class methodsFor:'documentation'! |
9004 !Parser class methodsFor:'documentation'! |
8994 |
9005 |
8995 version |
9006 version |
8996 ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.544 2007-03-13 14:37:32 cg Exp $' |
9007 ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.545 2007-03-13 17:16:44 cg Exp $' |
8997 ! ! |
9008 ! ! |
8998 |
9009 |
8999 Parser initialize! |
9010 Parser initialize! |