equal
deleted
inserted
replaced
3249 requestor |
3249 requestor |
3250 insertString:ins |
3250 insertString:ins |
3251 atCharacterPosition:posToInsert. |
3251 atCharacterPosition:posToInsert. |
3252 |
3252 |
3253 endLocalsPos notNil ifTrue:[ |
3253 endLocalsPos notNil ifTrue:[ |
3254 localVarDefPosition at:2 put:(endLocalsPos + varName size + 1 + (space ifTrue:[2] ifFalse:[0])). |
3254 localVarDefPosition at:2 put:(endLocalsPos + varName size + 1). |
3255 |
3255 |
3256 methodVarNames := methodVarNames copyWith:varName. |
3256 methodVarNames := methodVarNames copyWith:varName. |
3257 methodVars := methodVars copyWith:(var := Variable new name:varName). |
3257 methodVars := methodVars copyWith:(var := Variable new name:varName). |
3258 ] ifFalse:[ |
3258 ] ifFalse:[ |
3259 localVarDefPosition := Array with:posToInsert with:posToInsert+varName size+1+(space ifTrue:[2] ifFalse:[0]). |
3259 localVarDefPosition := Array with:posToInsert with:posToInsert+varName size+1+(space ifTrue:[2] ifFalse:[0]). |
3275 ]. |
3275 ]. |
3276 self warning:'Sorry - unimplemented (adding ' , variableType , ')'. |
3276 self warning:'Sorry - unimplemented (adding ' , variableType , ')'. |
3277 |
3277 |
3278 "Created: / 14-10-2010 / 11:04:27 / cg" |
3278 "Created: / 14-10-2010 / 11:04:27 / cg" |
3279 "Modified: / 20-10-2010 / 18:36:32 / cg" |
3279 "Modified: / 20-10-2010 / 18:36:32 / cg" |
3280 "Modified: / 03-07-2012 / 10:31:25 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
3280 "Modified (comment): / 04-07-2012 / 13:05:39 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
3281 ! |
3281 ! |
3282 |
3282 |
3283 defineAsUndeclaredVariable:aName |
3283 defineAsUndeclaredVariable:aName |
3284 "define varName as undeclared variable |
3284 "define varName as undeclared variable |
3285 (actually, it will be installed as a funny global named 'Undeclared:::<name>'). |
3285 (actually, it will be installed as a funny global named 'Undeclared:::<name>'). |
10781 ! ! |
10781 ! ! |
10782 |
10782 |
10783 !Parser class methodsFor:'documentation'! |
10783 !Parser class methodsFor:'documentation'! |
10784 |
10784 |
10785 version |
10785 version |
10786 ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.718 2012-07-03 09:34:15 vrany Exp $' |
10786 ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.719 2012-07-04 12:06:32 vrany Exp $' |
10787 ! |
10787 ! |
10788 |
10788 |
10789 version_CVS |
10789 version_CVS |
10790 ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.718 2012-07-03 09:34:15 vrany Exp $' |
10790 ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.719 2012-07-04 12:06:32 vrany Exp $' |
10791 ! |
10791 ! |
10792 |
10792 |
10793 version_SVN |
10793 version_SVN |
10794 ^ '§ Id §' |
10794 ^ '§ Id §' |
10795 ! ! |
10795 ! ! |