PPToken.st
author sr
Wed, 04 Jul 2018 15:30:19 +0200
changeset 611 38338f2de417
parent 258 2b307d16da02
child 377 6112a403a52d
permissions -rw-r--r--
build order was wrong
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
4
90de244a7fa2 move to package
Claus Gittinger <cg@exept.de>
parents: 0
diff changeset
     1
"{ Package: 'stx:goodies/petitparser' }"
0
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
Object subclass:#PPToken
160
24352e941a6d class: PPToken
Claus Gittinger <cg@exept.de>
parents: 91
diff changeset
     4
	instanceVariableNames:'collection start stop value'
24352e941a6d class: PPToken
Claus Gittinger <cg@exept.de>
parents: 91
diff changeset
     5
	classVariableNames:'NewLineParser'
0
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
	poolDictionaries:''
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
	category:'PetitParser-Core'
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
!
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
160
24352e941a6d class: PPToken
Claus Gittinger <cg@exept.de>
parents: 91
diff changeset
    11
!PPToken class methodsFor:'initialization'!
24352e941a6d class: PPToken
Claus Gittinger <cg@exept.de>
parents: 91
diff changeset
    12
24352e941a6d class: PPToken
Claus Gittinger <cg@exept.de>
parents: 91
diff changeset
    13
initialize
24352e941a6d class: PPToken
Claus Gittinger <cg@exept.de>
parents: 91
diff changeset
    14
    "Platform independent newline sequence. LF: Unix, CR+LF: Windows, and CR: Apple."
24352e941a6d class: PPToken
Claus Gittinger <cg@exept.de>
parents: 91
diff changeset
    15
24352e941a6d class: PPToken
Claus Gittinger <cg@exept.de>
parents: 91
diff changeset
    16
    |cr|
24352e941a6d class: PPToken
Claus Gittinger <cg@exept.de>
parents: 91
diff changeset
    17
24352e941a6d class: PPToken
Claus Gittinger <cg@exept.de>
parents: 91
diff changeset
    18
    cr := Smalltalk isSmalltalkX 
24352e941a6d class: PPToken
Claus Gittinger <cg@exept.de>
parents: 91
diff changeset
    19
            ifTrue:[Character return] 
24352e941a6d class: PPToken
Claus Gittinger <cg@exept.de>
parents: 91
diff changeset
    20
            ifFalse:[Character cr].
24352e941a6d class: PPToken
Claus Gittinger <cg@exept.de>
parents: 91
diff changeset
    21
    NewLineParser := (Character lf asParser) / (cr asParser , Character lf asParser optional)
24352e941a6d class: PPToken
Claus Gittinger <cg@exept.de>
parents: 91
diff changeset
    22
! !
24352e941a6d class: PPToken
Claus Gittinger <cg@exept.de>
parents: 91
diff changeset
    23
0
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
!PPToken class methodsFor:'instance creation'!
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
new
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
	self error: 'Token can only be created using a dedicated constructor.'
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
!
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
on: aSequenceableCollection
160
24352e941a6d class: PPToken
Claus Gittinger <cg@exept.de>
parents: 91
diff changeset
    31
	^ self on: aSequenceableCollection start: 1 stop: aSequenceableCollection size value: nil
0
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    32
!
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    33
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    34
on: aSequenceableCollection start: aStartInteger stop: aStopInteger
30
6d6315787d46 Checkin from browser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
    35
	^ self basicNew 
0
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    36
		initializeOn: aSequenceableCollection
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    37
		start: aStartInteger stop: aStopInteger
160
24352e941a6d class: PPToken
Claus Gittinger <cg@exept.de>
parents: 91
diff changeset
    38
!
24352e941a6d class: PPToken
Claus Gittinger <cg@exept.de>
parents: 91
diff changeset
    39
24352e941a6d class: PPToken
Claus Gittinger <cg@exept.de>
parents: 91
diff changeset
    40
on: aSequenceableCollection start: aStartInteger stop: aStopInteger value: anObject
24352e941a6d class: PPToken
Claus Gittinger <cg@exept.de>
parents: 91
diff changeset
    41
	^ self basicNew 
24352e941a6d class: PPToken
Claus Gittinger <cg@exept.de>
parents: 91
diff changeset
    42
		initializeOn: aSequenceableCollection
24352e941a6d class: PPToken
Claus Gittinger <cg@exept.de>
parents: 91
diff changeset
    43
		start: aStartInteger stop: aStopInteger
24352e941a6d class: PPToken
Claus Gittinger <cg@exept.de>
parents: 91
diff changeset
    44
		value: anObject
0
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    45
! !
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    46
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    47
!PPToken methodsFor:'accessing'!
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    48
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    49
collection
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    50
	"Answer the underlying collection of this token."
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    51
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    52
	^ collection
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    53
!
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    54
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    55
size
160
24352e941a6d class: PPToken
Claus Gittinger <cg@exept.de>
parents: 91
diff changeset
    56
	"Answer the size of this token in the underlying collection."
0
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    57
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    58
	^ stop - start + 1
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    59
!
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    60
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    61
start
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    62
	"Answer the start position of this token in the underlying collection."
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    63
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    64
	^ start
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    65
!
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    66
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    67
stop
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    68
	"Answer the stop position of this token in the underlying collection."
30
6d6315787d46 Checkin from browser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
    69
	
0
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    70
	^ stop
160
24352e941a6d class: PPToken
Claus Gittinger <cg@exept.de>
parents: 91
diff changeset
    71
! !
24352e941a6d class: PPToken
Claus Gittinger <cg@exept.de>
parents: 91
diff changeset
    72
24352e941a6d class: PPToken
Claus Gittinger <cg@exept.de>
parents: 91
diff changeset
    73
!PPToken methodsFor:'accessing-values'!
24352e941a6d class: PPToken
Claus Gittinger <cg@exept.de>
parents: 91
diff changeset
    74
24352e941a6d class: PPToken
Claus Gittinger <cg@exept.de>
parents: 91
diff changeset
    75
inputValue
24352e941a6d class: PPToken
Claus Gittinger <cg@exept.de>
parents: 91
diff changeset
    76
	"Answer the consumed input of this token."
24352e941a6d class: PPToken
Claus Gittinger <cg@exept.de>
parents: 91
diff changeset
    77
24352e941a6d class: PPToken
Claus Gittinger <cg@exept.de>
parents: 91
diff changeset
    78
	^ collection copyFrom: start to: stop
24352e941a6d class: PPToken
Claus Gittinger <cg@exept.de>
parents: 91
diff changeset
    79
!
24352e941a6d class: PPToken
Claus Gittinger <cg@exept.de>
parents: 91
diff changeset
    80
24352e941a6d class: PPToken
Claus Gittinger <cg@exept.de>
parents: 91
diff changeset
    81
parsedValue
24352e941a6d class: PPToken
Claus Gittinger <cg@exept.de>
parents: 91
diff changeset
    82
	"Answer the parsed value of this token."
24352e941a6d class: PPToken
Claus Gittinger <cg@exept.de>
parents: 91
diff changeset
    83
24352e941a6d class: PPToken
Claus Gittinger <cg@exept.de>
parents: 91
diff changeset
    84
	^ value
0
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    85
!
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    86
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    87
value
160
24352e941a6d class: PPToken
Claus Gittinger <cg@exept.de>
parents: 91
diff changeset
    88
	self notify: 'Token>>#value is no longer supported. Instead use Token>>#inputValue or the more pragmatic #parsedValue.'.
24352e941a6d class: PPToken
Claus Gittinger <cg@exept.de>
parents: 91
diff changeset
    89
	^ self inputValue
0
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    90
! !
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    91
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    92
!PPToken methodsFor:'comparing'!
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    93
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    94
= anObject
160
24352e941a6d class: PPToken
Claus Gittinger <cg@exept.de>
parents: 91
diff changeset
    95
	^ self class = anObject class and: [ self parsedValue = anObject parsedValue ]
0
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    96
!
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    97
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    98
hash
160
24352e941a6d class: PPToken
Claus Gittinger <cg@exept.de>
parents: 91
diff changeset
    99
	^ self parsedValue hash
0
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   100
! !
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   101
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   102
!PPToken methodsFor:'copying'!
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   103
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   104
copyFrom: aStartInteger to: aStopInteger
160
24352e941a6d class: PPToken
Claus Gittinger <cg@exept.de>
parents: 91
diff changeset
   105
	^ self class on: collection start: start + aStartInteger - 1 stop: stop + aStopInteger - 3 value: value
0
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   106
! !
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   107
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   108
!PPToken methodsFor:'initialization'!
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   109
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   110
initializeOn: aSequenceableCollection start: aStartInteger stop: aStopInteger
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   111
	collection := aSequenceableCollection.
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   112
	start := aStartInteger.
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   113
	stop := aStopInteger
160
24352e941a6d class: PPToken
Claus Gittinger <cg@exept.de>
parents: 91
diff changeset
   114
!
24352e941a6d class: PPToken
Claus Gittinger <cg@exept.de>
parents: 91
diff changeset
   115
24352e941a6d class: PPToken
Claus Gittinger <cg@exept.de>
parents: 91
diff changeset
   116
initializeOn: aSequenceableCollection start: aStartInteger stop: aStopInteger value: anObject
24352e941a6d class: PPToken
Claus Gittinger <cg@exept.de>
parents: 91
diff changeset
   117
	collection := aSequenceableCollection.
24352e941a6d class: PPToken
Claus Gittinger <cg@exept.de>
parents: 91
diff changeset
   118
	start := aStartInteger.
24352e941a6d class: PPToken
Claus Gittinger <cg@exept.de>
parents: 91
diff changeset
   119
	stop := aStopInteger.
24352e941a6d class: PPToken
Claus Gittinger <cg@exept.de>
parents: 91
diff changeset
   120
	value := anObject
0
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   121
! !
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   122
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   123
!PPToken methodsFor:'printing'!
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   124
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   125
printOn: aStream
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   126
	super printOn: aStream.
160
24352e941a6d class: PPToken
Claus Gittinger <cg@exept.de>
parents: 91
diff changeset
   127
	aStream nextPut: $[; print: self start; nextPut: $,; print: self stop; nextPut: $].
24352e941a6d class: PPToken
Claus Gittinger <cg@exept.de>
parents: 91
diff changeset
   128
	aStream nextPut: $(; print: self parsedValue; nextPut: $)
0
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   129
! !
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   130
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   131
!PPToken methodsFor:'private'!
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   132
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   133
newline
91
ed96c98bff4a class: PPToken
Claus Gittinger <cg@exept.de>
parents: 30
diff changeset
   134
        "Parser a platform independent newline sequence. LF: Unix, CR+LF: Windows, and CR: Apple."
258
2b307d16da02 class: PPToken
Claus Gittinger <cg@exept.de>
parents: 160
diff changeset
   135
        |cr|
0
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   136
258
2b307d16da02 class: PPToken
Claus Gittinger <cg@exept.de>
parents: 160
diff changeset
   137
        cr := Smalltalk isSmalltalkX 
2b307d16da02 class: PPToken
Claus Gittinger <cg@exept.de>
parents: 160
diff changeset
   138
                ifTrue:[Character return] 
2b307d16da02 class: PPToken
Claus Gittinger <cg@exept.de>
parents: 160
diff changeset
   139
                ifFalse:[Character cr].
2b307d16da02 class: PPToken
Claus Gittinger <cg@exept.de>
parents: 160
diff changeset
   140
        ^ (Character lf asParser)
2b307d16da02 class: PPToken
Claus Gittinger <cg@exept.de>
parents: 160
diff changeset
   141
        / (cr asParser , Character lf asParser optional)
0
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   142
! !
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   143
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   144
!PPToken methodsFor:'querying'!
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   145
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   146
column
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   147
	"Answer the column number of this token in the underlying collection."
30
6d6315787d46 Checkin from browser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
   148
	
0
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   149
	| position |
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   150
	position := 0.
160
24352e941a6d class: PPToken
Claus Gittinger <cg@exept.de>
parents: 91
diff changeset
   151
	(NewLineParser , [ :stream |
0
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   152
		start <= stream position
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   153
			ifTrue: [ ^ start - position ].
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   154
		position := stream position ] asParser
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   155
		/ #any asParser) star
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   156
			parse: collection.
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   157
	 ^ start - position
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   158
!
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   159
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   160
line
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   161
	"Answer the line number of this token in the underlying collection."
30
6d6315787d46 Checkin from browser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
   162
	
0
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   163
	| line |
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   164
	line := 1.
160
24352e941a6d class: PPToken
Claus Gittinger <cg@exept.de>
parents: 91
diff changeset
   165
	(NewLineParser , [ :stream |
0
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   166
		start <= stream position
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   167
			ifTrue: [ ^ line ].
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   168
		line := line + 1 ] asParser
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   169
		/ #any asParser) star
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   170
			parse: collection.
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   171
	^ line
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   172
! !
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   173
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   174
!PPToken class methodsFor:'documentation'!
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   175
30
6d6315787d46 Checkin from browser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
   176
version
258
2b307d16da02 class: PPToken
Claus Gittinger <cg@exept.de>
parents: 160
diff changeset
   177
    ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPToken.st,v 1.6 2014-03-04 20:10:06 cg Exp $'
30
6d6315787d46 Checkin from browser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
   178
!
6d6315787d46 Checkin from browser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
   179
6d6315787d46 Checkin from browser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
   180
version_CVS
258
2b307d16da02 class: PPToken
Claus Gittinger <cg@exept.de>
parents: 160
diff changeset
   181
    ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPToken.st,v 1.6 2014-03-04 20:10:06 cg Exp $'
30
6d6315787d46 Checkin from browser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
   182
!
6d6315787d46 Checkin from browser
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
   183
0
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   184
version_SVN
258
2b307d16da02 class: PPToken
Claus Gittinger <cg@exept.de>
parents: 160
diff changeset
   185
    ^ '$Id: PPToken.st,v 1.6 2014-03-04 20:10:06 cg Exp $'
0
739fe9b7253e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   186
! !
160
24352e941a6d class: PPToken
Claus Gittinger <cg@exept.de>
parents: 91
diff changeset
   187
24352e941a6d class: PPToken
Claus Gittinger <cg@exept.de>
parents: 91
diff changeset
   188
24352e941a6d class: PPToken
Claus Gittinger <cg@exept.de>
parents: 91
diff changeset
   189
PPToken initialize!