equal
deleted
inserted
replaced
11 " |
11 " |
12 |
12 |
13 "{ Package: 'stx:libcomp' }" |
13 "{ Package: 'stx:libcomp' }" |
14 |
14 |
15 ParseNode subclass:#MessageNode |
15 ParseNode subclass:#MessageNode |
16 instanceVariableNames:'receiver selector argArray lineNr selectorPosition' |
16 instanceVariableNames:'receiver selector argArray lineNr selectorPosition' |
17 classVariableNames:'' |
17 classVariableNames:'' |
18 poolDictionaries:'' |
18 poolDictionaries:'' |
19 category:'System-Compiler-Support' |
19 category:'System-Compiler-Support' |
20 ! |
20 ! |
21 |
21 |
22 !MessageNode class methodsFor:'documentation'! |
22 !MessageNode class methodsFor:'documentation'! |
23 |
23 |
24 copyright |
24 copyright |
269 |
269 |
270 "Modified: / 3.9.1995 / 16:41:39 / claus" |
270 "Modified: / 3.9.1995 / 16:41:39 / claus" |
271 "Modified: / 15.5.1998 / 15:32:05 / cg" |
271 "Modified: / 15.5.1998 / 15:32:05 / cg" |
272 ! ! |
272 ! ! |
273 |
273 |
|
274 |
274 !MessageNode methodsFor:'accessing'! |
275 !MessageNode methodsFor:'accessing'! |
275 |
276 |
276 arg1 |
277 arg1 |
277 ^ argArray at:1 |
278 ^ argArray at:1 |
278 ! |
279 ! |
2844 ^ self printWhileOn:aStream indent:i |
2845 ^ self printWhileOn:aStream indent:i |
2845 ]. |
2846 ]. |
2846 ]. |
2847 ]. |
2847 selectorParts := selector asCollectionOfSubstringsSeparatedBy:$:. |
2848 selectorParts := selector asCollectionOfSubstringsSeparatedBy:$:. |
2848 receiver printOn:aStream indent:i parenthized:(receiver precedence <= self precedence). |
2849 receiver printOn:aStream indent:i parenthized:(receiver precedence <= self precedence). |
2849 |
2850 argArray notNil ifTrue:[ |
2850 argArray with:selectorParts |
2851 argArray with:selectorParts |
2851 do:[:arg :selPart | |
2852 do:[:arg :selPart | |
2852 aStream |
2853 aStream |
2853 cr; |
2854 cr; |
2854 spaces:i + 4; |
2855 spaces:i + 4; |
2855 nextPutAll:(selPart , ':'). |
2856 nextPutAll:(selPart , ':'). |
2856 arg printOn:aStream indent:i + 4 parenthized:(arg precedence <= self precedence). |
2857 arg printOn:aStream indent:i + 4 parenthized:(arg precedence <= self precedence). |
2857 ] |
2858 ] |
2858 |
2859 ]. |
2859 "Modified: / 20-04-2005 / 14:29:16 / cg" |
2860 |
|
2861 "Modified: / 06-08-2006 / 12:38:44 / cg" |
2860 ! |
2862 ! |
2861 |
2863 |
2862 printWhileOn:aStream indent:i |
2864 printWhileOn:aStream indent:i |
2863 "special handling of whileTrue/whileFalse" |
2865 "special handling of whileTrue/whileFalse" |
2864 |
2866 |
2869 aStream nextPutAll:'] ',selector,' '. |
2871 aStream nextPutAll:'] ',selector,' '. |
2870 |
2872 |
2871 arg := argArray at:1. |
2873 arg := argArray at:1. |
2872 arg printOn:aStream indent:i parenthized:(arg precedence <= self precedence). |
2874 arg printOn:aStream indent:i parenthized:(arg precedence <= self precedence). |
2873 ! ! |
2875 ! ! |
|
2876 |
2874 |
2877 |
2875 !MessageNode methodsFor:'queries'! |
2878 !MessageNode methodsFor:'queries'! |
2876 |
2879 |
2877 argumentCount |
2880 argumentCount |
2878 "VisualAge/ANSI compatibility - same as numArgs" |
2881 "VisualAge/ANSI compatibility - same as numArgs" |
2923 ^ receiver |
2926 ^ receiver |
2924 |
2927 |
2925 "Modified: / 17.7.1998 / 02:09:05 / cg" |
2928 "Modified: / 17.7.1998 / 02:09:05 / cg" |
2926 ! ! |
2929 ! ! |
2927 |
2930 |
|
2931 |
2928 !MessageNode class methodsFor:'documentation'! |
2932 !MessageNode class methodsFor:'documentation'! |
2929 |
2933 |
2930 version |
2934 version |
2931 ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.155 2006-03-16 14:39:26 cg Exp $' |
2935 ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.156 2006-08-07 11:02:24 cg Exp $' |
2932 ! ! |
2936 ! ! |