ECompletionConstantNode.st
author Jan Vrany <jan.vrany@labware.com>
Thu, 27 Oct 2022 14:53:59 +0100
branchjv
changeset 4735 3b11fb3ede98
parent 4315 734f7d2b6efe
permissions -rw-r--r--
Allow single underscore as method / block argument and temporaries This commit is a follow up for 38b221e.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
4315
734f7d2b6efe Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present
Patrik Svestka <patrik.svestka@gmail.com>
parents: 2606
diff changeset
     1
"{ Encoding: utf8 }"
734f7d2b6efe Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present
Patrik Svestka <patrik.svestka@gmail.com>
parents: 2606
diff changeset
     2
2508
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     3
"
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     4
 COPYRIGHT (c) 2006 by eXept Software AG
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     5
	      All Rights Reserved
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     6
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     7
 This software is furnished under a license and may be used
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     8
 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
     9
 inclusion of the above copyright notice.   This software may not
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    10
 be provided or otherwise made available to, or used by, any
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    11
 other person.  No title to or ownership of the software is
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    12
 hereby transferred.
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
"{ Package: 'stx:libcomp' }"
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    15
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    16
ConstantNode subclass:#ECompletionConstantNode
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    17
	instanceVariableNames:''
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    18
	classVariableNames:''
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    19
	poolDictionaries:''
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    20
	category:'System-Compiler-Support'
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    21
!
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
!ECompletionConstantNode class methodsFor:'documentation'!
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
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    26
"
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    27
 COPYRIGHT (c) 2006 by eXept Software AG
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    28
	      All Rights Reserved
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    29
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    30
 This software is furnished under a license and may be used
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    31
 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
    32
 inclusion of the above copyright notice.   This software may not
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    33
 be provided or otherwise made available to, or used by, any
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    34
 other person.  No title to or ownership of the software is
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    35
 hereby transferred.
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
! !
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
!ECompletionConstantNode class methodsFor:'Adding'!
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
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
    ^ (self basicNew) type:t value:val
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
    "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
    46
! !
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    47
2606
10531e36c012 - added acceptVisior:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2508
diff changeset
    48
!ECompletionConstantNode methodsFor:'visiting'!
10531e36c012 - added acceptVisior:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2508
diff changeset
    49
10531e36c012 - added acceptVisior:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2508
diff changeset
    50
acceptVisitor:aVisitor 
10531e36c012 - added acceptVisior:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2508
diff changeset
    51
    "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
    52
     the selector (visitor pattern)"
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
    "stub code automatically generated - please change if required"
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
    ^ aVisitor visitECompletionConstantNode:self
10531e36c012 - added acceptVisior:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2508
diff changeset
    57
! !
10531e36c012 - added acceptVisior:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2508
diff changeset
    58
2508
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    59
!ECompletionConstantNode class methodsFor:'documentation'!
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    60
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    61
version_CVS
2606
10531e36c012 - added acceptVisior:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2508
diff changeset
    62
    ^ '$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
    63
!
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    64
09dfe887bf2f initial checkin
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    65
version_SVN
4315
734f7d2b6efe Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present
Patrik Svestka <patrik.svestka@gmail.com>
parents: 2606
diff changeset
    66
    ^ '§ 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
    67
! !