ConstNode.st
changeset 20 f8dd8ba75205
parent 13 30e69e21d1d1
child 33 8985ec2f9e82
equal deleted inserted replaced
19:84a1ddf215a5 20:f8dd8ba75205
    17        poolDictionaries:''
    17        poolDictionaries:''
    18        category:'System-Compiler-Support'
    18        category:'System-Compiler-Support'
    19 !
    19 !
    20 
    20 
    21 ConstantNode comment:'
    21 ConstantNode comment:'
    22 
       
    23 COPYRIGHT (c) 1989 by Claus Gittinger
    22 COPYRIGHT (c) 1989 by Claus Gittinger
    24               All Rights Reserved
    23               All Rights Reserved
    25 
       
    26 $Header: /cvs/stx/stx/libcomp/Attic/ConstNode.st,v 1.6 1994-01-16 03:51:34 claus Exp $
       
    27 '!
    24 '!
       
    25 
       
    26 !ConstantNode class methodsFor:'documentation'!
       
    27 
       
    28 copyright
       
    29 "
       
    30  COPYRIGHT (c) 1989 by Claus Gittinger
       
    31               All Rights Reserved
       
    32 
       
    33  This software is furnished under a license and may be used
       
    34  only in accordance with the terms of that license and with the
       
    35  inclusion of the above copyright notice.   This software may not
       
    36  be provided or otherwise made available to, or used by, any
       
    37  other person.  No title to or ownership of the software is
       
    38  hereby transferred.
       
    39 "
       
    40 !
       
    41 
       
    42 version
       
    43 "
       
    44 $Header: /cvs/stx/stx/libcomp/Attic/ConstNode.st,v 1.7 1994-06-02 20:25:56 claus Exp $
       
    45 "
       
    46 !
       
    47 
       
    48 documentation
       
    49 "
       
    50     node for parse-trees, representing literal constants
       
    51 "
       
    52 ! !
    28 
    53 
    29 !ConstantNode class methodsFor:'queries'!
    54 !ConstantNode class methodsFor:'queries'!
    30 
    55 
    31 typeOfConstant:anObject
    56 typeOfConstant:anObject
    32     anObject isNumber ifTrue:[
    57     anObject isNumber ifTrue:[