1 " |
1 " |
2 COPYRIGHT (c) 2010 by Jan Vrany, SWING Research Group. CTU in Prague |
2 COPYRIGHT (c) 2010 by Jan Vrany, SWING Research Group. CTU in Prague |
3 COPYRIGHT (c) 2016 Jan Vrany |
3 COPYRIGHT (c) 2016 Jan Vrany |
|
4 COPYRIGHT (c) 2021 LabWare |
4 All Rights Reserved |
5 All Rights Reserved |
5 |
6 |
6 Permission is hereby granted, free of charge, to any person |
7 Permission is hereby granted, free of charge, to any person |
7 obtaining a copy of this software and associated documentation |
8 obtaining a copy of this software and associated documentation |
8 files (the 'Software'), to deal in the Software without |
9 files (the 'Software'), to deal in the Software without |
40 |
41 |
41 copyright |
42 copyright |
42 " |
43 " |
43 COPYRIGHT (c) 2010 by Jan Vrany, SWING Research Group. CTU in Prague |
44 COPYRIGHT (c) 2010 by Jan Vrany, SWING Research Group. CTU in Prague |
44 COPYRIGHT (c) 2016 Jan Vrany |
45 COPYRIGHT (c) 2016 Jan Vrany |
|
46 COPYRIGHT (c) 2021 LabWare |
45 All Rights Reserved |
47 All Rights Reserved |
46 |
48 |
47 Permission is hereby granted, free of charge, to any person |
49 Permission is hereby granted, free of charge, to any person |
48 obtaining a copy of this software and associated documentation |
50 obtaining a copy of this software and associated documentation |
49 files (the 'Software'), to deal in the Software without |
51 files (the 'Software'), to deal in the Software without |
987 "don't create symbols for partial typed selectors" |
989 "don't create symbols for partial typed selectors" |
988 selectorSymbol := selectorString asSymbolIfInterned. |
990 selectorSymbol := selectorString asSymbolIfInterned. |
989 |
991 |
990 element := elements newElementFor: (SelectorNode value: selectorSymbol ? selectorString from: pos1 to: pos2). |
992 element := elements newElementFor: (SelectorNode value: selectorSymbol ? selectorString from: pos1 to: pos2). |
991 |
993 |
992 (lastSelectorElement notNil "and:[lastSelectorElement value = selectorString]") ifTrue:[ |
994 (lastSelectorElement notNil and:[lastSelectorElement value = selectorString]) ifTrue:[ |
993 lastSelectorElement nextElement: element. |
995 lastSelectorElement nextElement: element. |
994 ]. |
996 ]. |
995 elements add: element. |
997 elements add: element. |
996 lastSelectorElement := "(self isValidUnarySelector:tokenType)"false |
998 lastSelectorElement := "(self isValidUnarySelector:tokenType)"false |
997 ifTrue:[nil] |
999 ifTrue:[nil] |
998 ifFalse:[element]. |
1000 ifFalse:[element]. |
999 |
1001 |
1000 "Created: / 14-02-2010 / 17:40:09 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1002 "Created: / 14-02-2010 / 17:40:09 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1001 "Modified: / 14-02-2010 / 19:24:17 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1002 "Modified (format): / 21-08-2011 / 09:18:21 / cg" |
1003 "Modified (format): / 21-08-2011 / 09:18:21 / cg" |
1003 "Modified: / 19-04-2012 / 09:53:59 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1004 "Modified: / 19-04-2012 / 09:53:59 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1005 "Modified: / 15-09-2021 / 21:54:54 / Jan Vrany <jan.vrany@labware.com>" |
1004 ! |
1006 ! |
1005 |
1007 |
1006 markSelfFrom:pos1 to:pos2 |
1008 markSelfFrom:pos1 to:pos2 |
1007 "in addition to marking, remember the variable reference" |
1009 "in addition to marking, remember the variable reference" |
1008 |
1010 |