equal
deleted
inserted
replaced
21 |
21 |
22 BlockNode comment:' |
22 BlockNode comment:' |
23 COPYRIGHT (c) 1989 by Claus Gittinger |
23 COPYRIGHT (c) 1989 by Claus Gittinger |
24 All Rights Reserved |
24 All Rights Reserved |
25 |
25 |
26 $Header: /cvs/stx/stx/libcomp/BlockNode.st,v 1.13 1995-06-27 02:17:05 claus Exp $ |
26 $Header: /cvs/stx/stx/libcomp/BlockNode.st,v 1.14 1995-07-23 02:23:06 claus Exp $ |
27 '! |
27 '! |
28 |
28 |
29 !BlockNode class methodsFor:'documentation'! |
29 !BlockNode class methodsFor:'documentation'! |
30 |
30 |
31 copyright |
31 copyright |
42 " |
42 " |
43 ! |
43 ! |
44 |
44 |
45 version |
45 version |
46 " |
46 " |
47 $Header: /cvs/stx/stx/libcomp/BlockNode.st,v 1.13 1995-06-27 02:17:05 claus Exp $ |
47 $Header: /cvs/stx/stx/libcomp/BlockNode.st,v 1.14 1995-07-23 02:23:06 claus Exp $ |
48 " |
48 " |
49 ! |
49 ! |
50 |
50 |
51 documentation |
51 documentation |
52 " |
52 " |
529 ! ! |
529 ! ! |
530 |
530 |
531 !BlockNode methodsFor:'printing'! |
531 !BlockNode methodsFor:'printing'! |
532 |
532 |
533 printOn:aStream indent:i |
533 printOn:aStream indent:i |
|
534 |n "{Class: SmallInteger }"| |
|
535 |
534 aStream nextPut:$[. |
536 aStream nextPut:$[. |
535 blockArgs size > 0 ifTrue:[ |
537 (n := blockArgs size) > 0 ifTrue:[ |
536 1 to:blockArgs size do:[:index | |
538 1 to:n do:[:index | |
537 aStream nextPut:$:. |
539 aStream nextPut:$:. |
538 aStream nextPutAll:(blockArgs at:index) name. |
540 aStream nextPutAll:(blockArgs at:index) name. |
539 aStream space. |
541 aStream space. |
540 ]. |
542 ]. |
541 aStream nextPut:$| |
543 aStream nextPut:$|. |
|
544 aStream space. |
|
545 ]. |
|
546 (n := blockVars size) > 0 ifTrue:[ |
|
547 aStream nextPut:$|. |
|
548 1 to:n do:[:index | |
|
549 aStream nextPutAll:(blockVars at:index) name. |
|
550 aStream space. |
|
551 ]. |
|
552 aStream nextPut:$|. |
542 ]. |
553 ]. |
543 statements notNil ifTrue:[ |
554 statements notNil ifTrue:[ |
544 aStream cr. |
555 aStream cr. |
545 statements printAllOn:aStream indent:i + 4. |
556 statements printAllOn:aStream indent:i + 4. |
546 aStream cr. |
557 aStream cr. |