MessageNd.st
changeset 74 fee7c3091f71
parent 63 c30ce56de7a8
child 75 d8b9d6b39497
equal deleted inserted replaced
73:317a3bd63c65 74:fee7c3091f71
    19 
    19 
    20 MessageNode comment:'
    20 MessageNode comment:'
    21 COPYRIGHT (c) 1989 by Claus Gittinger
    21 COPYRIGHT (c) 1989 by Claus Gittinger
    22 	      All Rights Reserved
    22 	      All Rights Reserved
    23 
    23 
    24 $Header: /cvs/stx/stx/libcomp/Attic/MessageNd.st,v 1.19 1995-02-18 01:25:16 claus Exp $
    24 $Header: /cvs/stx/stx/libcomp/Attic/MessageNd.st,v 1.20 1995-02-26 18:20:45 claus Exp $
    25 '!
    25 '!
    26 
    26 
    27 !MessageNode class methodsFor:'documentation'!
    27 !MessageNode class methodsFor:'documentation'!
    28 
    28 
    29 copyright
    29 copyright
    40 "
    40 "
    41 !
    41 !
    42 
    42 
    43 version
    43 version
    44 "
    44 "
    45 $Header: /cvs/stx/stx/libcomp/Attic/MessageNd.st,v 1.19 1995-02-18 01:25:16 claus Exp $
    45 $Header: /cvs/stx/stx/libcomp/Attic/MessageNd.st,v 1.20 1995-02-26 18:20:45 claus Exp $
    46 "
    46 "
    47 !
    47 !
    48 
    48 
    49 documentation
    49 documentation
    50 "
    50 "
   693     aStream nextPut:lineNr.
   693     aStream nextPut:lineNr.
   694     aStream nextPut:#jump.
   694     aStream nextPut:#jump.
   695     aStream nextPut:pos.
   695     aStream nextPut:pos.
   696 
   696 
   697     (aStream contents) at:pos2 put:(aStream position)
   697     (aStream contents) at:pos2 put:(aStream position)
       
   698     aStream nextPut:#drop.
   698 !
   699 !
   699 
   700 
   700 codeIfElseOn:aStream inBlock:b valueNeeded:valueNeeded
   701 codeIfElseOn:aStream inBlock:b valueNeeded:valueNeeded
   701     "generate code for x ifxxx:[ ... ] yyy:[ ...]"
   702     "generate code for x ifxxx:[ ... ] yyy:[ ...]"
   702 
   703