ECompletionConstantNode.st
author Claus Gittinger <cg@exept.de>
Mon, 15 Jul 2019 15:38:51 +0200
changeset 4458 458a1ac0701d
parent 2606 10531e36c012
child 4315 734f7d2b6efe
permissions -rw-r--r--
#OTHER by cg unneeded subProjects method removed (already inherited)
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
2508
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     1
"
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     2
 COPYRIGHT (c) 2006 by eXept Software AG
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     3
	      All Rights Reserved
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     4
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     5
 This software is furnished under a license and may be used
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     6
 only in accordance with the terms of that license and with the
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     8
 be provided or otherwise made available to, or used by, any
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     9
 other person.  No title to or ownership of the software is
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    10
 hereby transferred.
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    11
"
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    12
"{ Package: 'stx:libcomp' }"
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    13
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    14
ConstantNode subclass:#ECompletionConstantNode
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    15
	instanceVariableNames:''
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    16
	classVariableNames:''
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    17
	poolDictionaries:''
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    18
	category:'System-Compiler-Support'
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    19
!
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    20
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    21
!ECompletionConstantNode class methodsFor:'documentation'!
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    22
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    23
copyright
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    24
"
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    25
 COPYRIGHT (c) 2006 by eXept Software AG
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    26
	      All Rights Reserved
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    27
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    28
 This software is furnished under a license and may be used
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    29
 only in accordance with the terms of that license and with the
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    30
 inclusion of the above copyright notice.   This software may not
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    31
 be provided or otherwise made available to, or used by, any
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    32
 other person.  No title to or ownership of the software is
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    33
 hereby transferred.
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    34
"
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    35
! !
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    36
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    37
!ECompletionConstantNode class methodsFor:'Adding'!
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    38
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    39
type:t value:val
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    40
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    41
    ^ (self basicNew) type:t value:val
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    42
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    43
    "Created: / 23-02-2011 / 18:23:19 / Jakub <zelenja7@fel.cvut.cz>"
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    44
! !
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    45
2606
10531e36c012 - added acceptVisior:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2508
diff changeset
    46
!ECompletionConstantNode methodsFor:'visiting'!
10531e36c012 - added acceptVisior:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2508
diff changeset
    47
10531e36c012 - added acceptVisior:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2508
diff changeset
    48
acceptVisitor:aVisitor 
10531e36c012 - added acceptVisior:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2508
diff changeset
    49
    "Double dispatch back to the visitor, passing my type encoded in
10531e36c012 - added acceptVisior:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2508
diff changeset
    50
     the selector (visitor pattern)"
10531e36c012 - added acceptVisior:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2508
diff changeset
    51
10531e36c012 - added acceptVisior:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2508
diff changeset
    52
    "stub code automatically generated - please change if required"
10531e36c012 - added acceptVisior:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2508
diff changeset
    53
10531e36c012 - added acceptVisior:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2508
diff changeset
    54
    ^ aVisitor visitECompletionConstantNode:self
10531e36c012 - added acceptVisior:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2508
diff changeset
    55
! !
10531e36c012 - added acceptVisior:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2508
diff changeset
    56
2508
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    57
!ECompletionConstantNode class methodsFor:'documentation'!
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    58
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    59
version_CVS
2606
10531e36c012 - added acceptVisior:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2508
diff changeset
    60
    ^ '$Header: /cvs/stx/stx/libcomp/ECompletionConstantNode.st,v 1.2 2011-07-25 22:36:22 vrany Exp $'
2508
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    61
!
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    62
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    63
version_SVN
2606
10531e36c012 - added acceptVisior:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2508
diff changeset
    64
    ^ '§ Id: ECompletionConstantNode.st 2038 2011-04-05 13:57:16Z vranyj1  §'
2508
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    65
! !