SyntaxElementVariable.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Thu, 14 Jun 2018 22:19:39 +0100
branchjv
changeset 18227 d25a407ba86d
parent 16738 1a1b5477fdd5
permissions -rw-r--r--
Mini testrunner: show "green" if there's at least one pass and rest is pass or skip This is more meaningfull result then showing "gray" if there's at least one skip.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
13821
3e9428fa12b6 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13532
diff changeset
     1
"
3e9428fa12b6 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13532
diff changeset
     2
 COPYRIGHT (c) 2006 by eXept Software AG
3e9428fa12b6 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13532
diff changeset
     3
	      All Rights Reserved
3e9428fa12b6 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13532
diff changeset
     4
3e9428fa12b6 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13532
diff changeset
     5
 This software is furnished under a license and may be used
3e9428fa12b6 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13532
diff changeset
     6
 only in accordance with the terms of that license and with the
3e9428fa12b6 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13532
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
3e9428fa12b6 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13532
diff changeset
     8
 be provided or otherwise made available to, or used by, any
3e9428fa12b6 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13532
diff changeset
     9
 other person.  No title to or ownership of the software is
3e9428fa12b6 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13532
diff changeset
    10
 hereby transferred.
3e9428fa12b6 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13532
diff changeset
    11
"
12910
a78434864ebb initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
"{ Package: 'stx:libtool' }"
a78434864ebb initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
16735
ca33e38be3af #OTHER by mawalch
mawalch
parents: 13821
diff changeset
    14
"{ NameSpace: Smalltalk }"
ca33e38be3af #OTHER by mawalch
mawalch
parents: 13821
diff changeset
    15
12910
a78434864ebb initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
SyntaxElement subclass:#SyntaxElementVariable
12978
48139ad13bf6 SyntaxElementVariable
Claus Gittinger <cg@exept.de>
parents: 12910
diff changeset
    17
	instanceVariableNames:'name assigned'
12910
a78434864ebb initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
	classVariableNames:''
a78434864ebb initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
	poolDictionaries:''
a78434864ebb initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
	category:'Interface-CodeView-Syntax'
a78434864ebb initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
!
a78434864ebb initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
a78434864ebb initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
!SyntaxElementVariable class methodsFor:'documentation'!
a78434864ebb initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
13821
3e9428fa12b6 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13532
diff changeset
    25
copyright
3e9428fa12b6 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13532
diff changeset
    26
"
3e9428fa12b6 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13532
diff changeset
    27
 COPYRIGHT (c) 2006 by eXept Software AG
3e9428fa12b6 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13532
diff changeset
    28
	      All Rights Reserved
3e9428fa12b6 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13532
diff changeset
    29
3e9428fa12b6 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13532
diff changeset
    30
 This software is furnished under a license and may be used
3e9428fa12b6 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13532
diff changeset
    31
 only in accordance with the terms of that license and with the
3e9428fa12b6 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13532
diff changeset
    32
 inclusion of the above copyright notice.   This software may not
3e9428fa12b6 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13532
diff changeset
    33
 be provided or otherwise made available to, or used by, any
3e9428fa12b6 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13532
diff changeset
    34
 other person.  No title to or ownership of the software is
3e9428fa12b6 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13532
diff changeset
    35
 hereby transferred.
3e9428fa12b6 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13532
diff changeset
    36
"
3e9428fa12b6 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13532
diff changeset
    37
!
3e9428fa12b6 merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13532
diff changeset
    38
12910
a78434864ebb initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    39
documentation
a78434864ebb initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    40
"
16735
ca33e38be3af #OTHER by mawalch
mawalch
parents: 13821
diff changeset
    41
    documentation to be added
12910
a78434864ebb initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    42
16735
ca33e38be3af #OTHER by mawalch
mawalch
parents: 13821
diff changeset
    43
    [author:]
12910
a78434864ebb initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    44
16735
ca33e38be3af #OTHER by mawalch
mawalch
parents: 13821
diff changeset
    45
    [instance variables:]
12910
a78434864ebb initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    46
16735
ca33e38be3af #OTHER by mawalch
mawalch
parents: 13821
diff changeset
    47
    [class variables:]
12910
a78434864ebb initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    48
16735
ca33e38be3af #OTHER by mawalch
mawalch
parents: 13821
diff changeset
    49
    [see also:]
12910
a78434864ebb initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    50
"
a78434864ebb initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    51
! !
a78434864ebb initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    52
a78434864ebb initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    53
!SyntaxElementVariable methodsFor:'accessing'!
a78434864ebb initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    54
a78434864ebb initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    55
assigned
13532
aa233ac282bc class: SyntaxElementVariable
Claus Gittinger <cg@exept.de>
parents: 12995
diff changeset
    56
    ^ assigned ? false
12910
a78434864ebb initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    57
!
a78434864ebb initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    58
a78434864ebb initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    59
assigned:something
a78434864ebb initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    60
    assigned := something.
12978
48139ad13bf6 SyntaxElementVariable
Claus Gittinger <cg@exept.de>
parents: 12910
diff changeset
    61
!
48139ad13bf6 SyntaxElementVariable
Claus Gittinger <cg@exept.de>
parents: 12910
diff changeset
    62
48139ad13bf6 SyntaxElementVariable
Claus Gittinger <cg@exept.de>
parents: 12910
diff changeset
    63
name
48139ad13bf6 SyntaxElementVariable
Claus Gittinger <cg@exept.de>
parents: 12910
diff changeset
    64
    ^ name
48139ad13bf6 SyntaxElementVariable
Claus Gittinger <cg@exept.de>
parents: 12910
diff changeset
    65
!
48139ad13bf6 SyntaxElementVariable
Claus Gittinger <cg@exept.de>
parents: 12910
diff changeset
    66
48139ad13bf6 SyntaxElementVariable
Claus Gittinger <cg@exept.de>
parents: 12910
diff changeset
    67
name:something
48139ad13bf6 SyntaxElementVariable
Claus Gittinger <cg@exept.de>
parents: 12910
diff changeset
    68
    name := something.
12910
a78434864ebb initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    69
! !
a78434864ebb initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    70
a78434864ebb initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    71
!SyntaxElementVariable methodsFor:'queries'!
a78434864ebb initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    72
12978
48139ad13bf6 SyntaxElementVariable
Claus Gittinger <cg@exept.de>
parents: 12910
diff changeset
    73
isClass
48139ad13bf6 SyntaxElementVariable
Claus Gittinger <cg@exept.de>
parents: 12910
diff changeset
    74
    ^ type == #class
48139ad13bf6 SyntaxElementVariable
Claus Gittinger <cg@exept.de>
parents: 12910
diff changeset
    75
!
48139ad13bf6 SyntaxElementVariable
Claus Gittinger <cg@exept.de>
parents: 12910
diff changeset
    76
48139ad13bf6 SyntaxElementVariable
Claus Gittinger <cg@exept.de>
parents: 12910
diff changeset
    77
isGlobal 
48139ad13bf6 SyntaxElementVariable
Claus Gittinger <cg@exept.de>
parents: 12910
diff changeset
    78
    ^ (type == #GlobalVariable) or:[ type == #class]
48139ad13bf6 SyntaxElementVariable
Claus Gittinger <cg@exept.de>
parents: 12910
diff changeset
    79
!
48139ad13bf6 SyntaxElementVariable
Claus Gittinger <cg@exept.de>
parents: 12910
diff changeset
    80
12995
211c2022783c class: SyntaxElementVariable
Claus Gittinger <cg@exept.de>
parents: 12988
diff changeset
    81
isInstanceVariable
211c2022783c class: SyntaxElementVariable
Claus Gittinger <cg@exept.de>
parents: 12988
diff changeset
    82
    ^ (type == #InstanceVariable) 
211c2022783c class: SyntaxElementVariable
Claus Gittinger <cg@exept.de>
parents: 12988
diff changeset
    83
!
211c2022783c class: SyntaxElementVariable
Claus Gittinger <cg@exept.de>
parents: 12988
diff changeset
    84
12910
a78434864ebb initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    85
isVariable
a78434864ebb initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    86
    ^ true
a78434864ebb initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    87
! !
a78434864ebb initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    88
a78434864ebb initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    89
!SyntaxElementVariable class methodsFor:'documentation'!
a78434864ebb initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    90
a78434864ebb initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    91
version
16735
ca33e38be3af #OTHER by mawalch
mawalch
parents: 13821
diff changeset
    92
    ^ '$Header$'
12910
a78434864ebb initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    93
!
a78434864ebb initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    94
a78434864ebb initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    95
version_CVS
16735
ca33e38be3af #OTHER by mawalch
mawalch
parents: 13821
diff changeset
    96
    ^ '$Header$'
12910
a78434864ebb initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    97
! !
a78434864ebb initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    98