Decompiler.st
author Claus Gittinger <cg@exept.de>
Tue, 26 Dec 1995 18:29:19 +0100
changeset 179 56b3bd870f07
parent 164 b511f22fea3b
child 199 1b3b350a3f59
permissions -rw-r--r--
*** empty log message ***
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
     1
"
4
f6fd83437415 *** empty log message ***
claus
parents: 3
diff changeset
     2
 COPYRIGHT (c) 1991 by Claus Gittinger
135
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
     3
	      All Rights Reserved
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
     4
7ad01559b262 Initial revision
claus
parents:
diff changeset
     5
 This software is furnished under a license and may be used
7ad01559b262 Initial revision
claus
parents:
diff changeset
     6
 only in accordance with the terms of that license and with the
7ad01559b262 Initial revision
claus
parents:
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
7ad01559b262 Initial revision
claus
parents:
diff changeset
     8
 be provided or otherwise made available to, or used by, any
7ad01559b262 Initial revision
claus
parents:
diff changeset
     9
 other person.  No title to or ownership of the software is
7ad01559b262 Initial revision
claus
parents:
diff changeset
    10
 hereby transferred.
7ad01559b262 Initial revision
claus
parents:
diff changeset
    11
"
7ad01559b262 Initial revision
claus
parents:
diff changeset
    12
7ad01559b262 Initial revision
claus
parents:
diff changeset
    13
ByteCodeCompiler subclass:#Decompiler
164
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
    14
       instanceVariableNames:'hasLineNo bytes literals index '
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
    15
       classVariableNames:''
7ad01559b262 Initial revision
claus
parents:
diff changeset
    16
       poolDictionaries:''
7ad01559b262 Initial revision
claus
parents:
diff changeset
    17
       category:'System-Compiler'
7ad01559b262 Initial revision
claus
parents:
diff changeset
    18
!
7ad01559b262 Initial revision
claus
parents:
diff changeset
    19
135
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
    20
!Decompiler class methodsFor:'documentation'!
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
    21
135
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
    22
copyright
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
    23
"
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
    24
 COPYRIGHT (c) 1991 by Claus Gittinger
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
    25
	      All Rights Reserved
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
    26
135
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
    27
 This software is furnished under a license and may be used
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
    28
 only in accordance with the terms of that license and with the
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
    29
 inclusion of the above copyright notice.   This software may not
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
    30
 be provided or otherwise made available to, or used by, any
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
    31
 other person.  No title to or ownership of the software is
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
    32
 hereby transferred.
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
    33
"
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
    34
!
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
    35
135
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
    36
version
164
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
    37
    ^ '$Header: /cvs/stx/stx/libcomp/Decompiler.st,v 1.5 1995-12-10 14:40:27 cg Exp $'
135
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
    38
!
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
    39
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
    40
documentation
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
    41
"
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
    42
    only for stx-debugging. Not for public eyes.
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
    43
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
    44
    Decompiler decompile:(someClass compiledMethodAt:#someSelector)
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
    45
"
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
    46
! !
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
    47
7ad01559b262 Initial revision
claus
parents:
diff changeset
    48
!Decompiler class methodsFor:'decompiling'!
7ad01559b262 Initial revision
claus
parents:
diff changeset
    49
7ad01559b262 Initial revision
claus
parents:
diff changeset
    50
decompile:aMethod
7ad01559b262 Initial revision
claus
parents:
diff changeset
    51
    ^ (self new) decompile:aMethod
7ad01559b262 Initial revision
claus
parents:
diff changeset
    52
7ad01559b262 Initial revision
claus
parents:
diff changeset
    53
    "Decompiler decompile:(FileBrowser compiledMethodAt:#initialize)"
7ad01559b262 Initial revision
claus
parents:
diff changeset
    54
! !
7ad01559b262 Initial revision
claus
parents:
diff changeset
    55
7ad01559b262 Initial revision
claus
parents:
diff changeset
    56
!Decompiler methodsFor:'decompiling'!
7ad01559b262 Initial revision
claus
parents:
diff changeset
    57
7ad01559b262 Initial revision
claus
parents:
diff changeset
    58
showOffset:byte
7ad01559b262 Initial revision
claus
parents:
diff changeset
    59
    |offs|
7ad01559b262 Initial revision
claus
parents:
diff changeset
    60
7ad01559b262 Initial revision
claus
parents:
diff changeset
    61
    index := index + 1.
7ad01559b262 Initial revision
claus
parents:
diff changeset
    62
    (byte > 127) ifTrue:[
135
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
    63
	offs := byte - 256
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
    64
    ] ifFalse:[
135
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
    65
	offs := byte
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
    66
    ].
7ad01559b262 Initial revision
claus
parents:
diff changeset
    67
    Transcript show:(offs printString).
7ad01559b262 Initial revision
claus
parents:
diff changeset
    68
    Transcript show:' ('.
7ad01559b262 Initial revision
claus
parents:
diff changeset
    69
    Transcript show:(index + offs) printString.
7ad01559b262 Initial revision
claus
parents:
diff changeset
    70
    Transcript show:')'
7ad01559b262 Initial revision
claus
parents:
diff changeset
    71
!
7ad01559b262 Initial revision
claus
parents:
diff changeset
    72
7ad01559b262 Initial revision
claus
parents:
diff changeset
    73
showLongOffset:byte
7ad01559b262 Initial revision
claus
parents:
diff changeset
    74
    |offs|
7ad01559b262 Initial revision
claus
parents:
diff changeset
    75
7ad01559b262 Initial revision
claus
parents:
diff changeset
    76
    index := index + 1.
7ad01559b262 Initial revision
claus
parents:
diff changeset
    77
    (byte > 127) ifTrue:[
135
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
    78
	offs := byte - 256 - 128
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
    79
    ] ifFalse:[
135
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
    80
	offs := byte + 128
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
    81
    ].
7ad01559b262 Initial revision
claus
parents:
diff changeset
    82
    Transcript show:offs printString.
7ad01559b262 Initial revision
claus
parents:
diff changeset
    83
    Transcript show:' ('.
7ad01559b262 Initial revision
claus
parents:
diff changeset
    84
    Transcript show:(index + offs) printString.
7ad01559b262 Initial revision
claus
parents:
diff changeset
    85
    Transcript show:')'
7ad01559b262 Initial revision
claus
parents:
diff changeset
    86
!
7ad01559b262 Initial revision
claus
parents:
diff changeset
    87
7ad01559b262 Initial revision
claus
parents:
diff changeset
    88
showVeryLongOffset:byte
7ad01559b262 Initial revision
claus
parents:
diff changeset
    89
    |offs|
7ad01559b262 Initial revision
claus
parents:
diff changeset
    90
7ad01559b262 Initial revision
claus
parents:
diff changeset
    91
    index := index + 1.
7ad01559b262 Initial revision
claus
parents:
diff changeset
    92
    (byte > 127) ifTrue:[
135
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
    93
	offs := byte - 256 - 256
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
    94
    ] ifFalse:[
135
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
    95
	offs := byte + 256
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
    96
    ].
7ad01559b262 Initial revision
claus
parents:
diff changeset
    97
    Transcript show:offs printString.
7ad01559b262 Initial revision
claus
parents:
diff changeset
    98
    Transcript show:' ('.
7ad01559b262 Initial revision
claus
parents:
diff changeset
    99
    Transcript show:(index + offs) printString.
7ad01559b262 Initial revision
claus
parents:
diff changeset
   100
    Transcript show:')'
7ad01559b262 Initial revision
claus
parents:
diff changeset
   101
!
7ad01559b262 Initial revision
claus
parents:
diff changeset
   102
3
b63b8a6b71fb *** empty log message ***
claus
parents: 0
diff changeset
   103
showAbsOffset:byte
b63b8a6b71fb *** empty log message ***
claus
parents: 0
diff changeset
   104
    |offs b2|
b63b8a6b71fb *** empty log message ***
claus
parents: 0
diff changeset
   105
b63b8a6b71fb *** empty log message ***
claus
parents: 0
diff changeset
   106
    index := index + 1.
b63b8a6b71fb *** empty log message ***
claus
parents: 0
diff changeset
   107
    b2 := (bytes at:index).
b63b8a6b71fb *** empty log message ***
claus
parents: 0
diff changeset
   108
    offs := byte + (b2 bitShift:8).
b63b8a6b71fb *** empty log message ***
claus
parents: 0
diff changeset
   109
    index := index + 1.
b63b8a6b71fb *** empty log message ***
claus
parents: 0
diff changeset
   110
    Transcript show:offs printString.
b63b8a6b71fb *** empty log message ***
claus
parents: 0
diff changeset
   111
    Transcript show:' ('.
b63b8a6b71fb *** empty log message ***
claus
parents: 0
diff changeset
   112
    Transcript show:offs printString.
b63b8a6b71fb *** empty log message ***
claus
parents: 0
diff changeset
   113
    Transcript show:')'
b63b8a6b71fb *** empty log message ***
claus
parents: 0
diff changeset
   114
!
b63b8a6b71fb *** empty log message ***
claus
parents: 0
diff changeset
   115
b63b8a6b71fb *** empty log message ***
claus
parents: 0
diff changeset
   116
showAbsOffsetLevel:byte
b63b8a6b71fb *** empty log message ***
claus
parents: 0
diff changeset
   117
    |offs b2|
b63b8a6b71fb *** empty log message ***
claus
parents: 0
diff changeset
   118
b63b8a6b71fb *** empty log message ***
claus
parents: 0
diff changeset
   119
    index := index + 1.
b63b8a6b71fb *** empty log message ***
claus
parents: 0
diff changeset
   120
    b2 := (bytes at:index).
b63b8a6b71fb *** empty log message ***
claus
parents: 0
diff changeset
   121
    offs := byte + (b2 bitShift:8).
b63b8a6b71fb *** empty log message ***
claus
parents: 0
diff changeset
   122
    index := index + 1.
b63b8a6b71fb *** empty log message ***
claus
parents: 0
diff changeset
   123
    Transcript show:offs printString.
b63b8a6b71fb *** empty log message ***
claus
parents: 0
diff changeset
   124
    Transcript show:' ('.
b63b8a6b71fb *** empty log message ***
claus
parents: 0
diff changeset
   125
    Transcript show:offs printString.
b63b8a6b71fb *** empty log message ***
claus
parents: 0
diff changeset
   126
    Transcript show:')'.
b63b8a6b71fb *** empty log message ***
claus
parents: 0
diff changeset
   127
    self showNvarNargsAt:index.
b63b8a6b71fb *** empty log message ***
claus
parents: 0
diff changeset
   128
    index := index + 2
b63b8a6b71fb *** empty log message ***
claus
parents: 0
diff changeset
   129
!
b63b8a6b71fb *** empty log message ***
claus
parents: 0
diff changeset
   130
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
   131
showNvarNargsAt:index
7ad01559b262 Initial revision
claus
parents:
diff changeset
   132
    Transcript show:' nv='.
7ad01559b262 Initial revision
claus
parents:
diff changeset
   133
    Transcript show:(bytes at:index) printString.
7ad01559b262 Initial revision
claus
parents:
diff changeset
   134
    Transcript show:' na='.
7ad01559b262 Initial revision
claus
parents:
diff changeset
   135
    Transcript show:(bytes at:(index + 1)) printString
7ad01559b262 Initial revision
claus
parents:
diff changeset
   136
!
7ad01559b262 Initial revision
claus
parents:
diff changeset
   137
7ad01559b262 Initial revision
claus
parents:
diff changeset
   138
showLiteralAt:index
7ad01559b262 Initial revision
claus
parents:
diff changeset
   139
    |offs|
7ad01559b262 Initial revision
claus
parents:
diff changeset
   140
7ad01559b262 Initial revision
claus
parents:
diff changeset
   141
    offs := bytes at:index.
164
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   142
    self showLit:offs
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
   143
!
7ad01559b262 Initial revision
claus
parents:
diff changeset
   144
7ad01559b262 Initial revision
claus
parents:
diff changeset
   145
showLiteral:byte
7ad01559b262 Initial revision
claus
parents:
diff changeset
   146
    index := index + 1.
164
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   147
    self showLit:byte
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   148
!
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   149
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   150
showLiteral16:byte
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   151
    |litIndex|
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   152
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   153
    litIndex := bytes wordAt:index MSB:false.
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   154
    self showLit:litIndex.
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   155
    index := index + 2
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   156
!
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   157
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   158
showLit:litIndex
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   159
    Transcript show:(literals at:litIndex) storeString
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   160
!
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   161
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   162
showLit1:ignored
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   163
    self showLit:1
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   164
!
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   165
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   166
showLit2:ignored
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   167
    self showLit:2
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   168
!
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   169
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   170
showLit3:ignored
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   171
    self showLit:3
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   172
!
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   173
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   174
showLit4:ignored
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   175
    self showLit:4
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   176
!
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   177
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   178
showLit5:ignored
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   179
    self showLit:5
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   180
!
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   181
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   182
showLit6:ignored
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   183
    self showLit:6
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   184
!
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   185
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   186
showLit7:ignored
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   187
    self showLit:7
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   188
!
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   189
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   190
showLit8:ignored
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   191
    self showLit:8
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   192
!
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   193
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   194
showLit9:ignored
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   195
    self showLit:9
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
   196
!
7ad01559b262 Initial revision
claus
parents:
diff changeset
   197
7ad01559b262 Initial revision
claus
parents:
diff changeset
   198
showLiteralSkip5:byte
7ad01559b262 Initial revision
claus
parents:
diff changeset
   199
    index := index + 1.
7ad01559b262 Initial revision
claus
parents:
diff changeset
   200
    Transcript show:(literals at:byte) printString.
7ad01559b262 Initial revision
claus
parents:
diff changeset
   201
    index := index + 5
7ad01559b262 Initial revision
claus
parents:
diff changeset
   202
!
7ad01559b262 Initial revision
claus
parents:
diff changeset
   203
164
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   204
showLiteral16Skip5:byte
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   205
    |litIndex|
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   206
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   207
    litIndex := bytes wordAt:index MSB:false.
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   208
    index := index + 2.
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   209
    Transcript show:(literals at:litIndex) printString.
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   210
    index := index + 5
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   211
!
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   212
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
   213
showOffsetLevel:byte
7ad01559b262 Initial revision
claus
parents:
diff changeset
   214
    self showOffset:byte.
7ad01559b262 Initial revision
claus
parents:
diff changeset
   215
    self showNvarNargsAt:index.
7ad01559b262 Initial revision
claus
parents:
diff changeset
   216
    index := index + 2
7ad01559b262 Initial revision
claus
parents:
diff changeset
   217
!
7ad01559b262 Initial revision
claus
parents:
diff changeset
   218
7ad01559b262 Initial revision
claus
parents:
diff changeset
   219
showLongOffsetLevel:byte
7ad01559b262 Initial revision
claus
parents:
diff changeset
   220
    self showLongOffset:byte.
7ad01559b262 Initial revision
claus
parents:
diff changeset
   221
    self showNvarNargsAt:index.
7ad01559b262 Initial revision
claus
parents:
diff changeset
   222
    index := index + 2
7ad01559b262 Initial revision
claus
parents:
diff changeset
   223
!
7ad01559b262 Initial revision
claus
parents:
diff changeset
   224
7ad01559b262 Initial revision
claus
parents:
diff changeset
   225
showVeryLongOffsetLevel:byte
7ad01559b262 Initial revision
claus
parents:
diff changeset
   226
    self showVeryLongOffset:byte.
7ad01559b262 Initial revision
claus
parents:
diff changeset
   227
    self showNvarNargsAt:index.
7ad01559b262 Initial revision
claus
parents:
diff changeset
   228
    index := index + 2
7ad01559b262 Initial revision
claus
parents:
diff changeset
   229
!
7ad01559b262 Initial revision
claus
parents:
diff changeset
   230
7ad01559b262 Initial revision
claus
parents:
diff changeset
   231
showSendArgs:byte
7ad01559b262 Initial revision
claus
parents:
diff changeset
   232
    Transcript show:byte printString.
7ad01559b262 Initial revision
claus
parents:
diff changeset
   233
    Transcript show:' '.
7ad01559b262 Initial revision
claus
parents:
diff changeset
   234
    index := index + 1.
3
b63b8a6b71fb *** empty log message ***
claus
parents: 0
diff changeset
   235
    self showLiteralAt:index.
b63b8a6b71fb *** empty log message ***
claus
parents: 0
diff changeset
   236
    index := index + 1
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
   237
!
7ad01559b262 Initial revision
claus
parents:
diff changeset
   238
164
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   239
showLsendArgs:byte
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   240
    |litIndex|
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   241
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   242
    Transcript show:byte printString.
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   243
    Transcript show:' '.
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   244
    index := index + 1.
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   245
    litIndex := bytes wordAt:index MSB:false.
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   246
    Transcript show:(literals at:litIndex) printString.
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   247
    index := index + 2
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   248
!
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   249
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
   250
showSuperSendArgs:byte
7ad01559b262 Initial revision
claus
parents:
diff changeset
   251
    Transcript show:byte printString.
7ad01559b262 Initial revision
claus
parents:
diff changeset
   252
    Transcript show:' '.
7ad01559b262 Initial revision
claus
parents:
diff changeset
   253
    index := index + 1.
7ad01559b262 Initial revision
claus
parents:
diff changeset
   254
    self showLiteralAt:index.
3
b63b8a6b71fb *** empty log message ***
claus
parents: 0
diff changeset
   255
    index := index + 1.
b63b8a6b71fb *** empty log message ***
claus
parents: 0
diff changeset
   256
    self showLiteralAt:index.
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
   257
    index := index + 1
7ad01559b262 Initial revision
claus
parents:
diff changeset
   258
!
7ad01559b262 Initial revision
claus
parents:
diff changeset
   259
7ad01559b262 Initial revision
claus
parents:
diff changeset
   260
showLineNo:byte
7ad01559b262 Initial revision
claus
parents:
diff changeset
   261
    Transcript show:' line:' , byte printString.
7ad01559b262 Initial revision
claus
parents:
diff changeset
   262
    index := index + 1
7ad01559b262 Initial revision
claus
parents:
diff changeset
   263
!
7ad01559b262 Initial revision
claus
parents:
diff changeset
   264
7ad01559b262 Initial revision
claus
parents:
diff changeset
   265
showIndex:byte
7ad01559b262 Initial revision
claus
parents:
diff changeset
   266
    Transcript show:byte printString.
7ad01559b262 Initial revision
claus
parents:
diff changeset
   267
    index := index + 1
7ad01559b262 Initial revision
claus
parents:
diff changeset
   268
!
7ad01559b262 Initial revision
claus
parents:
diff changeset
   269
164
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   270
showLevelIndex:byte
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   271
    self showIndex:byte.
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   272
    Transcript show:' lvl:'; show:(bytes at:index).
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   273
    index := index + 1.
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   274
!
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   275
3
b63b8a6b71fb *** empty log message ***
claus
parents: 0
diff changeset
   276
showIndexLevel:byte
b63b8a6b71fb *** empty log message ***
claus
parents: 0
diff changeset
   277
    self showIndex:byte.
b63b8a6b71fb *** empty log message ***
claus
parents: 0
diff changeset
   278
    self showNvarNargsAt:index.
b63b8a6b71fb *** empty log message ***
claus
parents: 0
diff changeset
   279
    index := index + 2
b63b8a6b71fb *** empty log message ***
claus
parents: 0
diff changeset
   280
!
b63b8a6b71fb *** empty log message ***
claus
parents: 0
diff changeset
   281
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
   282
showNumber:byte
7ad01559b262 Initial revision
claus
parents:
diff changeset
   283
    Transcript show:byte printString.
7ad01559b262 Initial revision
claus
parents:
diff changeset
   284
    index := index + 1
7ad01559b262 Initial revision
claus
parents:
diff changeset
   285
!
7ad01559b262 Initial revision
claus
parents:
diff changeset
   286
164
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   287
showNumber16:byte
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   288
    Transcript show:(bytes signedWordAt:index MSB:false) printString.
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   289
    index := index + 2
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   290
!
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   291
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
   292
showPC
7ad01559b262 Initial revision
claus
parents:
diff changeset
   293
    Transcript show:(index printStringRadix:10 size:3 fill:(Character space)).
7ad01559b262 Initial revision
claus
parents:
diff changeset
   294
    Transcript show:': '.
7ad01559b262 Initial revision
claus
parents:
diff changeset
   295
    Transcript show:((bytes at:index) printStringRadix:16 size:2 fill:$0).
7ad01559b262 Initial revision
claus
parents:
diff changeset
   296
    Transcript show:' '.
7ad01559b262 Initial revision
claus
parents:
diff changeset
   297
!
7ad01559b262 Initial revision
claus
parents:
diff changeset
   298
7ad01559b262 Initial revision
claus
parents:
diff changeset
   299
decompile:aMethod
164
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   300
    |nBytes offs byte sym sel lineNr|
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
   301
7ad01559b262 Initial revision
claus
parents:
diff changeset
   302
    aMethod isNil ifTrue:[
135
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   303
	Transcript showCr:'nil method'.
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   304
	^ self
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
   305
    ].   
7ad01559b262 Initial revision
claus
parents:
diff changeset
   306
7ad01559b262 Initial revision
claus
parents:
diff changeset
   307
    bytes := aMethod byteCode.
7ad01559b262 Initial revision
claus
parents:
diff changeset
   308
    bytes isNil ifTrue:[
135
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   309
	Transcript showCr:'no bytecode'.
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   310
	^ self
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
   311
    ].
7ad01559b262 Initial revision
claus
parents:
diff changeset
   312
    literals := aMethod literals.
7ad01559b262 Initial revision
claus
parents:
diff changeset
   313
    index := 1.
7ad01559b262 Initial revision
claus
parents:
diff changeset
   314
    nBytes := bytes size.
7ad01559b262 Initial revision
claus
parents:
diff changeset
   315
    [index <= nBytes] whileTrue:[
135
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   316
	self showPC.
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   317
	sym := self symbolicCodeFor:(bytes at:index).
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   318
	Transcript show:sym.
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
   319
"
135
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   320
	extra notNil ifTrue:[Transcript show:(extra printString)].
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
   321
"
135
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   322
	hasLineNo ifTrue:[
164
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   323
	    index := index + 1.
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   324
	    lineNr := bytes at:index.
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   325
	] ifFalse:[
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   326
	    lineNr := nil
135
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   327
	].
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   328
	index := index + 1.
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   329
	extra notNil ifTrue:[
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   330
	    Transcript show:' '.
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   331
	    byte := bytes at:index.
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
   332
135
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   333
	    "compute argument showXXX selector from extra ..."
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
   334
135
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   335
	    sel := 'show' , extra , ':'.
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   336
	    sel at:5 put:(sel at:5) asUppercase.
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   337
	    self perform:sel asSymbol with:byte
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   338
	].
164
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   339
	lineNr notNil ifTrue:[
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   340
	    Transcript show:'['; show:lineNr; show:']'
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   341
	].
135
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   342
	Transcript showCr:''
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
   343
    ]
7ad01559b262 Initial revision
claus
parents:
diff changeset
   344
!
7ad01559b262 Initial revision
claus
parents:
diff changeset
   345
7ad01559b262 Initial revision
claus
parents:
diff changeset
   346
symbolicCodeFor:aByte
7ad01559b262 Initial revision
claus
parents:
diff changeset
   347
    |syms extras lnos|
7ad01559b262 Initial revision
claus
parents:
diff changeset
   348
7ad01559b262 Initial revision
claus
parents:
diff changeset
   349
    syms := #(  retTop         " 0  "
135
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   350
		retNil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   351
		retTrue
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   352
		retFalse
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   353
		ret0
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   354
		retSelf         " 5  "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   355
		blockRetTop
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   356
		nil
164
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   357
		LINE
135
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   358
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   359
		pushNil         " 10 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   360
		pushTrue
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   361
		pushFalse
164
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   362
		sendSelf
135
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   363
		pushLit
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   364
		pushSelf        " 15 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   365
		pushNum
164
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   366
		pushNum16
135
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   367
		drop
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   368
		send
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   369
		superSend       " 20 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   370
		send0
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   371
		send1
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   372
		send2
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   373
		send3
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   374
		sendDrop        " 25 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   375
		sendDrop0
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   376
		sendDrop1
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   377
		sendDrop2
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   378
		sendDrop3
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   379
		pushMethodArg   " 30 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   380
		pushMethodVar
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   381
		pushBlockArg
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   382
		pushBlockVar
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   383
		pushInstVar
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   384
		pushClassVar    " 35 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   385
		pushGlobal
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   386
		storeMethodVar
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   387
		storeBlockVar
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   388
		storeInstVar
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   389
		storeClassVar   " 40 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   390
		storeGlobal
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   391
		pushOuterBlockArg
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   392
		pushOuter1BlockArg
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   393
		pushOuter2BlockArg
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   394
		equal           " 45 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   395
		notEqual
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   396
		dup
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   397
		equal0
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   398
		notEqual0
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   399
		falseJump       " 50 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   400
		trueJump
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   401
		nilJump
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   402
		notNilJump
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   403
		jump
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   404
		makeBlock       " 55 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   405
		zeroJump
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   406
		notZeroJump
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   407
		eqJump
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   408
		notEqJump
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   409
		falseJump       " 60 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   410
		trueJump
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   411
		nilJump
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   412
		notNilJump
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   413
		jump
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   414
		makeBlock       " 65 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   415
		zeroJump
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   416
		notZeroJump
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   417
		eqJump
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   418
		notEqJump
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   419
		falseJump       " 70 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   420
		trueJump
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   421
		nilJump
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   422
		notNilJump
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   423
		jump
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   424
		makeBlock       " 75 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   425
		zeroJump
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   426
		notZeroJump
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   427
		eqJump
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   428
		notEqJump
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   429
		pushMethodVar1  " 80 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   430
		pushMethodVar2
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   431
		pushMethodVar3
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   432
		pushMethodVar4
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   433
		pushMethodVar5
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   434
		pushMethodVar6  " 85 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   435
		pushMethodArg1
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   436
		pushMethodArg2
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   437
		pushMethodArg3
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   438
		pushMethodArg4
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   439
		pushInstVar1    " 90 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   440
		pushInstVar2
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   441
		pushInstVar3
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   442
		pushInstVar4
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   443
		pushInstVar5
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   444
		pushInstVar6    " 95 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   445
		pushInstVar7
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   446
		pushInstVar8
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   447
		pushInstVar9
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   448
		pushInstVar10
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   449
		storeMethodVar1 " 100 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   450
		storeMethodVar2
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   451
		storeMethodVar3
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   452
		storeMethodVar4
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   453
		storeMethodVar5
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   454
		storeMethodVar6 " 105 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   455
		sendY
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   456
		sendX
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   457
		sendWidth
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   458
		sendHeight
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   459
		storeInstVar1   " 110 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   460
		storeInstVar2
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   461
		storeInstVar3
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   462
		storeInstVar4
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   463
		storeInstVar5
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   464
		storeInstVar6  " 115 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   465
		storeInstVar7
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   466
		storeInstVar8
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   467
		storeInstVar9
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   468
		storeInstVar10
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   469
		push0           " 120 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   470
		push1
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   471
		pushMinus1
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   472
		sendPlus1
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   473
		sendMinus1
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   474
		incMethodVar    " 125 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   475
		decMethodVar
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   476
		retNum
164
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   477
		pushOuterBlockVar       "16r80"
135
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   478
		storeOuterBlockVar
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   479
		sendEQ          " 130 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   480
		sendPLUS
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   481
		sendNE
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   482
		sendMINUS
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   483
		sendCLASS
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   484
		sendAT          " 135 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   485
		sendATPUT
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   486
		sendBitAnd
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   487
		sendBitOr
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   488
		push2
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   489
		pushBlockArg1   " 140 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   490
		pushBlockArg2
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   491
		pushBlockArg3
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   492
		pushBlockArg4
164
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   493
		pushContext             "16r90"
135
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   494
		sendGT          " 145 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   495
		sendGE
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   496
		sendLT
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   497
		sendLE
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   498
		sendNEXT
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   499
		sendPEEK        " 150 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   500
		sendVALUE
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   501
		sendVALUE1
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   502
		sendSIZE
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   503
		sendORIGIN
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   504
		sendEXTENT      " 155 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   505
		make0Block             
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   506
		makeNILBlock
164
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   507
		sendASINTEGER   " 158 "
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   508
		sendROUNDED     " 159 "
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   509
		retMvar1        " 160 " "16rA0"
135
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   510
		retMvar2        
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   511
		retMvar3        
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   512
		retMvar4        
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   513
		retMvar5        
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   514
		retMvar6        " 165 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   515
		retIvar1        
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   516
		retIvar2        
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   517
		retIvar3        
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   518
		retIvar4        
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   519
		retIvar5        " 170 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   520
		retIvar6        
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   521
		retIvar7        
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   522
		retIvar8        
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   523
		retMarg1        
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   524
		retMarg2        " 175 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   525
		pushClassInstVar
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   526
		storeClassInstVar
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   527
		nil
164
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   528
		not
135
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   529
		sendSelf0       " 180 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   530
		sendSelf1
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   531
		sendSelf2
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   532
		sendSelf3
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   533
		sendSelfDrop0   
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   534
		sendSelfDrop1   " 185 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   535
		sendSelfDrop2
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   536
		sendSelfDrop3
164
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   537
		isNil
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   538
		notNil
135
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   539
		falseJumpAbs    " 190 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   540
		trueJumpAbs     
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   541
		nilJumpAbs     
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   542
		notNilJumpAbs   
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   543
		jumpAbs        
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   544
		makeBlockAbs    " 195 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   545
		zeroJumpAbs
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   546
		notZeroJumpAbs
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   547
		eqJumpAbs
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   548
		notEqJumpAbs    " 199 "
164
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   549
		pushArray       " 200 "
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   550
		pushLLit
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   551
		jmpFalseL
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   552
		jmpTrueL
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   553
		nil
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   554
		lsend           "   205 " 
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   555
		lsuperSend
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   556
		lsendSelf         
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   557
		pushGT0
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   558
		nil
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   559
		sendArrayNew    "   210 " 
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   560
		sendBasicNew      
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   561
		sendGT0
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   562
		sendNew
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   563
		sendBasicNewN
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   564
		sendNewN        "   215 " 
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   565
		sendLogAnd
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   566
		sendLogOr
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   567
		pushGlobL
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   568
		storeGlobL
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   569
		nil              "  220 " 
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   570
		nil                  
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   571
		pushLit1             
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   572
		pushLit2              
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   573
		pushLit3             
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   574
		pushLit4             
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   575
		pushLit5             
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   576
		pushLit6             
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   577
		pushLit7            
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   578
		pushLit8            
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   579
		sendMUL          "   230 "
135
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   580
	      ).
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
   581
7ad01559b262 Initial revision
claus
parents:
diff changeset
   582
    lnos := #(  false          " 0  "
135
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   583
		false   
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   584
		false   
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   585
		false   
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   586
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   587
		false          " 5  "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   588
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   589
		false
164
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   590
		true
135
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   591
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   592
		false          " 10 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   593
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   594
		false
164
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   595
		true
135
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   596
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   597
		false          " 15 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   598
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   599
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   600
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   601
		true
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   602
		true           " 20 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   603
		true 
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   604
		true 
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   605
		true 
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   606
		true 
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   607
		true           " 25 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   608
		true 
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   609
		true 
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   610
		true 
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   611
		true 
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   612
		false          " 30 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   613
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   614
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   615
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   616
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   617
		false          " 35 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   618
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   619
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   620
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   621
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   622
		false           " 40 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   623
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   624
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   625
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   626
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   627
		false           " 45 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   628
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   629
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   630
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   631
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   632
		false       " 50 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   633
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   634
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   635
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   636
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   637
		false       " 55 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   638
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   639
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   640
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   641
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   642
		false       " 60 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   643
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   644
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   645
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   646
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   647
		false       " 65 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   648
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   649
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   650
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   651
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   652
		false       " 70 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   653
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   654
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   655
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   656
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   657
		false       " 75 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   658
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   659
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   660
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   661
		false 
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   662
		false  " 80 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   663
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   664
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   665
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   666
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   667
		false  " 85 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   668
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   669
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   670
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   671
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   672
		false    " 90 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   673
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   674
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   675
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   676
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   677
		false    " 95 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   678
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   679
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   680
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   681
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   682
		false " 100 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   683
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   684
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   685
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   686
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   687
		false " 105 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   688
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   689
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   690
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   691
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   692
		false   " 110 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   693
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   694
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   695
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   696
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   697
		false  " 115 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   698
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   699
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   700
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   701
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   702
		false           " 120 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   703
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   704
		false
164
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   705
		true
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   706
		true
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   707
		true    " 125 "
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   708
		true
135
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   709
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   710
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   711
		false
164
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   712
		true          " 130 "
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   713
		true
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   714
		true
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   715
		true
135
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   716
		false
164
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   717
		true          " 135 "
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   718
		true
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   719
		true
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   720
		true
135
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   721
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   722
		false   " 140 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   723
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   724
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   725
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   726
		false
164
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   727
		true          " 145 "
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   728
		true
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   729
		true
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   730
		true
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   731
		true
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   732
		true        " 150 "
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   733
		true
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   734
		true
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   735
		true
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   736
		true
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   737
		true             " 155 "
135
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   738
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   739
		false
164
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   740
		true
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   741
		true
135
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   742
		false        " 160 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   743
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   744
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   745
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   746
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   747
		false        " 165 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   748
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   749
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   750
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   751
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   752
		false        " 170 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   753
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   754
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   755
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   756
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   757
		false        " 175 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   758
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   759
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   760
		false
164
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   761
		true
135
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   762
		true         " 180 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   763
		true
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   764
		true
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   765
		true
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   766
		true
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   767
		true         " 185 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   768
		true
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   769
		true
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   770
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   771
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   772
		false         " 190 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   773
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   774
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   775
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   776
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   777
		false         " 195 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   778
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   779
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   780
		false
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   781
		false         " 199 "
164
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   782
		false         " 200 "
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   783
		false
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   784
		false
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   785
		false
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   786
		false
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   787
		true            " 205 " 
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   788
		true
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   789
		false
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   790
		true
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   791
		false
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   792
		false           " 210 "      " arrayNew "
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   793
		true                         " basicNew "
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   794
		true                         " > 0 "
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   795
		true                         " new "
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   796
		true                         " basicNew: "
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   797
		true            " 215 "      " new: "
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   798
		true
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   799
		true
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   800
		false
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   801
		false
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   802
		false           " 220 " 
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   803
		false
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   804
		false
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   805
		false
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   806
		false
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   807
		false           " 225 " 
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   808
		false
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   809
		false
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   810
		false
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   811
		false           " 229 " 
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   812
		true            " 230 "
135
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   813
	      ).
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
   814
7ad01559b262 Initial revision
claus
parents:
diff changeset
   815
    extras := #(nil             " 0  "
135
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   816
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   817
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   818
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   819
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   820
		nil             " 5  "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   821
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   822
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   823
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   824
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   825
		nil             " 10 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   826
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   827
		nil
164
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   828
		sendArgs
135
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   829
		literal
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   830
		nil             " 15 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   831
		number
164
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   832
		number16
135
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   833
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   834
		sendArgs
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   835
		superSendArgs   " 20 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   836
		literal
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   837
		literal
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   838
		literal
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   839
		literal
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   840
		sendArgs        " 25 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   841
		literal
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   842
		literal
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   843
		literal
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   844
		literal
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   845
		index           " 30 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   846
		index
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   847
		index
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   848
		index
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   849
		index
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   850
		literalSkip5    " 35 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   851
		literalSkip5
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   852
		index
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   853
		index
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   854
		index
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   855
		literalSkip5    " 40 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   856
		literalSkip5
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   857
		indexLevel
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   858
		index
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   859
		index
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   860
		nil             " 45 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   861
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   862
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   863
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   864
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   865
		offset          " 50 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   866
		offset
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   867
		offset
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   868
		offset
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   869
		offset
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   870
		offsetLevel     " 55 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   871
		offset
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   872
		offset
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   873
		offset
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   874
		offset
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   875
		longOffset      " 60 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   876
		longOffset
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   877
		longOffset
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   878
		longOffset
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   879
		longOffset
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   880
		longOffsetLevel " 65 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   881
		longOffset
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   882
		longOffset
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   883
		longOffset
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   884
		longOffset
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   885
		veryLongOffset  " 70 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   886
		veryLongOffset
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   887
		veryLongOffset
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   888
		veryLongOffset
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   889
		veryLongOffset
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   890
		veryLongOffsetLevel  " 75 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   891
		veryLongOffset
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   892
		veryLongOffset
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   893
		veryLongOffset
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   894
		veryLongOffset
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   895
		nil             " 80 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   896
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   897
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   898
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   899
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   900
		nil             " 85 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   901
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   902
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   903
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   904
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   905
		nil             " 90 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   906
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   907
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   908
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   909
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   910
		nil             " 95 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   911
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   912
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   913
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   914
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   915
		nil             " 100 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   916
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   917
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   918
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   919
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   920
		nil             " 105 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   921
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   922
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   923
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   924
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   925
		nil             " 110 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   926
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   927
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   928
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   929
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   930
		nil             " 115 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   931
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   932
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   933
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   934
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   935
		nil             " 120 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   936
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   937
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   938
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   939
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   940
		index           " 125 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   941
		index
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   942
		number
164
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
   943
		levelIndex "/ indexLevel
135
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   944
		indexLevel
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   945
		nil             " 130 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   946
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   947
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   948
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   949
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   950
		nil             " 135 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   951
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   952
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   953
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   954
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   955
		nil             " 140 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   956
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   957
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   958
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   959
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   960
		nil             " 145 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   961
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   962
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   963
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   964
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   965
		nil             " 150 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   966
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   967
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   968
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   969
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   970
		nil             " 155 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   971
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   972
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   973
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   974
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   975
		nil             " 160 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   976
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   977
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   978
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   979
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   980
		nil             " 165 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   981
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   982
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   983
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   984
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   985
		nil             " 170 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   986
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   987
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   988
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   989
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   990
		nil             " 175 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   991
		index
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   992
		index
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   993
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   994
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   995
		literal         " 180 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   996
		literal
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   997
		literal
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   998
		literal
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
   999
		literal         
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
  1000
		literal         " 185 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
  1001
		literal
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
  1002
		literal
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
  1003
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
  1004
		nil
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
  1005
		absOffset       " 190 "
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
  1006
		absOffset
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
  1007
		absOffset
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
  1008
		absOffset
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
  1009
		absOffset
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
  1010
		absOffsetLevel
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
  1011
		absOffset
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
  1012
		absOffset
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
  1013
		absOffset
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
  1014
		absOffset       " 199 "
164
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
  1015
		nil             " 200 "
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
  1016
		literal16
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
  1017
		nil
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
  1018
		nil
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
  1019
		nil
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
  1020
		lsendArgs       " 205 "
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
  1021
		lsuperSendArgs
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
  1022
		lsendSelfArgs
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
  1023
		nil
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
  1024
		nil
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
  1025
		nil             " 210 "
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
  1026
		nil
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
  1027
		nil
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
  1028
		nil
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
  1029
		nil
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
  1030
		nil             " 215 "
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
  1031
		nil
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
  1032
		nil
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
  1033
		literal16Skip5   
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
  1034
		literal16Skip5
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
  1035
		nil             " 220 "
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
  1036
		nil
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
  1037
		lit1
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
  1038
		lit2
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
  1039
		lit3
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
  1040
		lit4            " 225 "
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
  1041
		lit5
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
  1042
		lit6
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
  1043
		lit7
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
  1044
		lit8
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
  1045
		nil             " 230 "
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
  1046
135
aa4f7b8f121e uff - version methods changed to return stings
Claus Gittinger <cg@exept.de>
parents: 4
diff changeset
  1047
	     ).
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  1048
7ad01559b262 Initial revision
claus
parents:
diff changeset
  1049
    extra := extras at:(aByte + 1).
7ad01559b262 Initial revision
claus
parents:
diff changeset
  1050
    hasLineNo := lnos at:(aByte + 1).
7ad01559b262 Initial revision
claus
parents:
diff changeset
  1051
    ^ syms at:(aByte + 1)
164
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
  1052
b511f22fea3b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 135
diff changeset
  1053
    "Modified: 2.9.1995 / 00:12:11 / claus"
0
7ad01559b262 Initial revision
claus
parents:
diff changeset
  1054
! !