Cface__CDefinitionParser.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Tue, 04 Sep 2012 15:06:32 +0000
changeset 22 57da23a9fbbd
parent 19 1297bf936bfb
child 24 e7afa531abcf
permissions -rw-r--r--
- Cface::Libgit2Mapping added:7 methods - Cface::GeneratorCommand added: #generateLibgit - cvut_fel_cface changed: #classNamesAndAttributes #extensionMethodNames #preRequisites - extensions ...
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     1
"{ Package: 'cvut:fel/cface' }"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     2
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     3
"{ NameSpace: Cface }"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     4
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     5
SmaCC::SmaCCParser subclass:#CDefinitionParser
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     6
	instanceVariableNames:''
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     7
	classVariableNames:''
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     8
	poolDictionaries:''
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     9
	category:'Cface-Parser'
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    10
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    11
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    12
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    13
!CDefinitionParser class methodsFor:'generated-accessing'!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    14
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    15
scannerClass
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    16
	^Cface::CDefinitionScanner
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    17
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
    18
    "Modified: / 09-09-2008 / 17:05:06 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    19
! !
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    20
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    21
!CDefinitionParser class methodsFor:'generated-comments'!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    22
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    23
parserDefinitionComment
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    24
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    25
	"%start DefinitionFile;
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    26
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    27
DefinitionFile:
3
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    28
        Definition* 
4
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3
diff changeset
    29
        { CDefinitionFileNode new definitions: '1' } ;
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    30
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    31
Definition:       
3
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    32
          Function { '1' }               
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    33
        | Struct { '1' }                 
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    34
        | Union { '1' }          
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    35
        | Enum { '1' }           
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    36
        | Typedef { '1' }                
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    37
        ;
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    38
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    39
Generated:
3
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    40
        ""#Generated"" ""from:"" <file> 'file' { file value } 
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    41
        ;
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    42
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    43
Function:
3
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    44
        ""("" ""function"" <name> 'name' ""("" Argument* 'arguments' "")"" Return 'return' "")"" 
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    45
                { CFunctionNode new 
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    46
                                cName:(name  value);
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    47
                                arguments:arguments;
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    48
                                return:return }
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    49
        ;
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    50
        
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    51
        
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    52
Argument:
3
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    53
        ""("" ""argument"" ""("" Type 'type' "")"" <name> 'name' "")"" 
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    54
                { (CArgumentNode new
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    55
                                cName:(name value);
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    56
                                type:type) }
6
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
    57
        | ""("" ""argument"" ""("" Type 'type' "")"" ""value"" 'name' "")"" 
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
    58
                { (CArgumentNode new
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
    59
                                cName:(name value);
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
    60
                                type:type) }
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
    61
        | ""("" ""argument"" ""("" Type 'type' "")"" ""array"" 'name' "")"" 
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
    62
                { (CArgumentNode new
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
    63
                                cName:(name value);
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
    64
                                type:type) }
3
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    65
        ;                               
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    66
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    67
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    68
Return:
3
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    69
        ""("" ""return"" Type 'Type' "")"" { Type } 
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    70
        ;
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    71
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    72
FunctionPrototype:
3
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    73
        ""("" ""function-type"" <name> 'name' ""("" FunctionPrototypeArgument* 'arguments' "")"" Return 'return' "")"" 
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    74
                { CFunctionTypeNode new
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    75
                                cName:(name  value); 
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    76
                                arguments:arguments;
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    77
                                return:return } 
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    78
        ;
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    79
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    80
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    81
FunctionPrototypeArgument:
3
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    82
        ""("" ""argument"" ""("" Type  "")"" "")"" 
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    83
                { CArgumentNode new
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    84
                                cName:nil; 
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    85
                                type:'4'        }
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    86
        ;
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    87
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    88
Type:
3
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    89
          Const 
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    90
                { '1' } 
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    91
        | BuiltinType
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    92
                { '1' }
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    93
        | Pointer 
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    94
                { '1' } 
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    95
        | Array
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    96
                { '1' } 
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    97
        | FunctionPrototype     
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    98
                { '1' } 
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    99
        | Struct
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   100
                { '1' }         
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   101
        | Union
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   102
                { '1' }         
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   103
        | Enum
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   104
                { '1' }         
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   105
        | <name>
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   106
                { CUserDefinedTypeNode new cName: '1' value }
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   107
        ;
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   108
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   109
BuiltinType:
4
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3
diff changeset
   110
     ""unsigned"" BuiltinType
3
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   111
                { CUnsignedNode new type: '2' }                 
4
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3
diff changeset
   112
  |  ""signed"" BuiltinType
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3
diff changeset
   113
                { '2' }     
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   114
  | ""long"" BuiltinType
3
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   115
                { CLongNode new type: '2' }             
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   116
  | ""short"" BuiltinType
3
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   117
                { CShortNode new type: '2' }                            
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   118
        | ""int""
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   119
                { CIntNode new }
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   120
        | ""char""
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   121
                { CCharNode new }                                       
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   122
        | ""double""
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   123
                { CDoubleNode new }                                     
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   124
        | ""float""
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   125
                { CFloatNode new }                                      
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   126
        | ""void""
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   127
                { CVoidNode new }                                       
4
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3
diff changeset
   128
        | ""wchar_t""
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3
diff changeset
   129
                { CWCharNode new }                                       
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3
diff changeset
   130
3
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   131
        ;
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   132
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   133
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   134
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   135
Array:
3
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   136
        ""("" ""array"" ""("" Type "")"" <number> "")"" 
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   137
                { CArrayNode new
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   138
                                type:'4';
5
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
   139
                                size:'6' value } 
3
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   140
        ;
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   141
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   142
Const:
3
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   143
        ""const"" Type 
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   144
                { CConstNode new type: '2' }
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   145
        ;
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   146
        
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   147
        
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   148
                                
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   149
Pointer:
3
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   150
        ""("" ""pointer-to"" Type "")"" 
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   151
                { CPointerNode new type:'3' } ;
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   152
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   153
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   154
Struct:
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
   155
                ""("" ""struct"" [ <name> ] 'name' "":size"" <number> 'size' StructField* 'fields' "")"" 
3
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   156
                { CStructNode new
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   157
                                cName:(name ifNotNil:[name value]);
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
   158
                                cByteSize: size value asNumber;
3
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   159
                                fields:fields;
5
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
   160
                                foreign:false
3
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   161
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   162
 } 
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
   163
|                 ""("" ""struct-foreign"" [ <name> ] 'name'  "":size"" <number> 'size' StructField* 'fields' "")"" 
3
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   164
                { CStructNode new
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   165
                                cName:(name ifNotNil:[name value]);
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
   166
                                cByteSize: size value asNumber;
3
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   167
                                fields:fields;
5
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
   168
                                foreign:true
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   169
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   170
 } 
3
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   171
        ;
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   172
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   173
Union:
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
   174
                ""("" ""union"" [ <name> ] 'name' "":size"" <number> 'size'  StructField* 'fields' "")"" 
3
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   175
                { CUnionNode new 
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   176
                                cName:(name ifNotNil:[name value]);
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
   177
                                cByteSize: size value asNumber;
3
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   178
                                fields:fields;
5
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
   179
                                foreign: false
3
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   180
                 } 
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
   181
    |   ""("" ""union-foreign"" [ <name> ] 'name' "":size"" <number> 'size'  StructField* 'fields' "")"" 
3
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   182
                { CUnionNode new 
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   183
                                cName:(name ifNotNil:[name value]);
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
   184
                                cByteSize: size value asNumber;
3
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   185
                                fields:fields;
5
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
   186
                                foreign:true
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   187
 } 
3
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   188
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   189
        ;
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   190
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   191
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   192
3
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   193
        
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   194
StructField:
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
   195
          ""("" ""field"" ""("" Type  "")"" <name>  "":offset"" <number> "")""
3
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   196
                { CStructFieldNode new
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   197
                                cName:('6' value);
5
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
   198
                                offset: '8' value asNumber;
3
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   199
                                type:'4' }
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
   200
    | ""("" ""field"" ""("" Type  "")"" ""value"" "":offset"" <number> "")""
4
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3
diff changeset
   201
                { CStructFieldNode new
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3
diff changeset
   202
                                cName:('6' value);
5
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
   203
                                offset: '8' value asNumber;
4
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3
diff changeset
   204
                                type:'4' }
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
   205
    | ""("" ""field"" ""("" Type  "")"" ""function"" "":offset"" <number> "")""
4
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3
diff changeset
   206
                { CStructFieldNode new
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3
diff changeset
   207
                                cName:('6' value);
5
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
   208
                                offset: '8' value asNumber;    
4
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3
diff changeset
   209
                                type:'4' }
3
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   210
        ;
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   211
        
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   212
                
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   213
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   214
Enum:
3
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   215
                ""("" ""enum"" 'foreign' [ <name> ] 'name'EnumValue* 'fields' "")"" 
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   216
                { CEnumNode new
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   217
                                cName:(name ifNotNil:[name value]);
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   218
                                values:fields;
5
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
   219
                                foreign: false;
3
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   220
                                typedef:false
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   221
                }
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   222
        |       ""("" ""enum-foreign"" [ <name> ] 'name'EnumValue* 'fields' "")"" 
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   223
                { CEnumNode new
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   224
                                cName:(name ifNotNil:[name value]);
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   225
                                values:fields;
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   226
                                foreign: true;
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   227
                                typedef:false
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   228
                }
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   229
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   230
        ;
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   231
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   232
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   233
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   234
EnumValue:
3
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   235
        ""("" ""value"" ""("" <name> 'name' "")"" <number> 'number' "")""
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   236
                { (CEnumValueNode new 
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   237
                                cName:(name value);
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   238
                                intValue:(number value)) } ;
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   239
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   240
Typedef:
5
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
   241
        ""("" ""typedef""  <name> 'name' Type 'type' "")"" 
3
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   242
        { CTypedefNode new
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   243
                        cName:(name value);
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   244
                        type:type} 
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   245
    | ""("" ""typedef-foreign"" <name> 'name' Type 'type' "")"" 
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   246
        { CTypedefNode new
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   247
                        cName:(name value);
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   248
                        type:type;
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   249
                        foreign:true } 
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   250
3
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   251
    ;
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   252
"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   253
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
   254
    "Modified: / 09-09-2008 / 17:05:06 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   255
! !
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   256
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   257
!CDefinitionParser class methodsFor:'generated-starting states'!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   258
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   259
startingStateForDefFile
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   260
	^1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   261
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   262
    "Modified: / 10-02-2008 / 10:29:48 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   263
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   264
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   265
startingStateForDefinitionFile
5
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
   266
	^2
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   267
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
   268
    "Modified: / 09-09-2008 / 17:05:05 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   269
! !
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   270
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   271
!CDefinitionParser methodsFor:'accessing'!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   272
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   273
nodeStack
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   274
    ^ nodeStack
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   275
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   276
    "Created: / 02-11-2007 / 12:34:17 / haja"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   277
! !
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   278
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   279
!CDefinitionParser methodsFor:'generated-reduction actions'!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   280
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   281
reduceActionForArgument1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   282
    ^ ((CArgumentNode new)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   283
        cName:((nodes at:6) value);
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   284
        type:(nodes at:4))
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   285
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
   286
    "Modified: / 09-09-2008 / 17:05:06 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   287
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   288
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   289
reduceActionForArgument2:nodes 
6
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
   290
    ^ ((CArgumentNode new)
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
   291
        cName:((nodes at:6) value);
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
   292
        type:(nodes at:4))
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
   293
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
   294
    "Modified: / 09-09-2008 / 17:05:06 / Jan Vrany <vranyj1@fel.cvut.cz>"
6
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
   295
!
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   296
6
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
   297
reduceActionForArgument3:nodes 
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
   298
    ^ ((CArgumentNode new)
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
   299
        cName:((nodes at:6) value);
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
   300
        type:(nodes at:4))
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
   301
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
   302
    "Modified: / 09-09-2008 / 17:05:06 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   303
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   304
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   305
reduceActionForArguments1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   306
    ^ OrderedCollection new
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   307
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   308
    "Modified: / 28-11-2007 / 17:11:19 / haja"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   309
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   310
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   311
reduceActionForArguments2:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   312
    ^ (nodes at:6)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   313
        addFirst:(FunctionArgumentNode cName:((nodes at:4) value) id:(nodes at:2));
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   314
        yourself
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   315
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   316
    "Modified: / 28-11-2007 / 17:11:19 / haja"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   317
    "Modified: / 10-02-2008 / 19:08:18 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   318
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   319
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   320
reduceActionForArray1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   321
    ^ (CArrayNode new)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   322
        type:(nodes at:4);
5
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
   323
        size:(nodes at:6) value
4
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3
diff changeset
   324
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
   325
    "Modified: / 09-09-2008 / 17:05:06 / Jan Vrany <vranyj1@fel.cvut.cz>"
4
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3
diff changeset
   326
!
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   327
4
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3
diff changeset
   328
reduceActionForBuiltinType10:nodes 
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3
diff changeset
   329
    ^ CWCharNode new
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3
diff changeset
   330
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
   331
    "Modified: / 09-09-2008 / 17:05:06 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   332
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   333
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   334
reduceActionForBuiltinType1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   335
    ^ CUnsignedNode new type:(nodes at:2)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   336
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
   337
    "Modified: / 09-09-2008 / 17:05:05 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   338
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   339
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   340
reduceActionForBuiltinType2:nodes 
4
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3
diff changeset
   341
    ^ nodes at:2
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   342
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
   343
    "Modified: / 09-09-2008 / 17:05:05 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   344
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   345
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   346
reduceActionForBuiltinType3:nodes 
4
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3
diff changeset
   347
    ^ CLongNode new type:(nodes at:2)
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   348
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
   349
    "Modified: / 09-09-2008 / 17:05:05 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   350
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   351
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   352
reduceActionForBuiltinType4:nodes 
4
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3
diff changeset
   353
    ^ CShortNode new type:(nodes at:2)
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   354
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
   355
    "Modified: / 09-09-2008 / 17:05:05 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   356
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   357
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   358
reduceActionForBuiltinType5:nodes 
4
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3
diff changeset
   359
    ^ CIntNode new
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   360
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
   361
    "Modified: / 09-09-2008 / 17:05:05 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   362
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   363
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   364
reduceActionForBuiltinType6:nodes 
4
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3
diff changeset
   365
    ^ CCharNode new
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   366
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
   367
    "Modified: / 09-09-2008 / 17:05:05 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   368
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   369
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   370
reduceActionForBuiltinType7:nodes 
4
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3
diff changeset
   371
    ^ CDoubleNode new
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   372
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
   373
    "Modified: / 09-09-2008 / 17:05:05 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   374
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   375
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   376
reduceActionForBuiltinType8:nodes 
4
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3
diff changeset
   377
    ^ CFloatNode new
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3
diff changeset
   378
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
   379
    "Modified: / 09-09-2008 / 17:05:06 / Jan Vrany <vranyj1@fel.cvut.cz>"
4
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3
diff changeset
   380
!
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3
diff changeset
   381
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3
diff changeset
   382
reduceActionForBuiltinType9:nodes 
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   383
    ^ CVoidNode new
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   384
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
   385
    "Modified: / 09-09-2008 / 17:05:06 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   386
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   387
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   388
reduceActionForConst1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   389
    ^ CConstNode new type:(nodes at:2)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   390
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
   391
    "Modified: / 09-09-2008 / 17:05:05 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   392
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   393
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   394
reduceActionForDefBody1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   395
    ^ OrderedCollection new
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   396
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   397
    "Modified: / 10-02-2008 / 10:32:17 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   398
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   399
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   400
reduceActionForDefBody2:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   401
    ^ (nodes at:2)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   402
        addFirst:(nodes at:1);
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   403
        yourself
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   404
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   405
    "Modified: / 10-02-2008 / 10:32:17 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   406
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   407
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   408
reduceActionForDefBody3:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   409
    ^ (nodes at:2)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   410
        addFirst:(nodes at:1);
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   411
        yourself
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   412
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   413
    "Modified: / 10-02-2008 / 10:32:17 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   414
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   415
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   416
reduceActionForDefBody4:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   417
    ^ (nodes at:2)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   418
        addFirst:(nodes at:1);
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   419
        yourself
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   420
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   421
    "Modified: / 10-02-2008 / 10:32:17 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   422
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   423
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   424
reduceActionForDefBody5:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   425
    ^ (nodes at:2)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   426
        addFirst:(nodes at:1);
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   427
        yourself
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   428
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   429
    "Modified: / 10-02-2008 / 10:32:17 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   430
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   431
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   432
reduceActionForDefBody6:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   433
    ^ (nodes at:2)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   434
        addFirst:(nodes at:1);
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   435
        yourself
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   436
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   437
    "Modified: / 10-02-2008 / 10:32:17 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   438
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   439
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   440
reduceActionForDefBody7:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   441
    ^ (nodes at:2)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   442
        addFirst:(nodes at:1);
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   443
        yourself
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   444
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   445
    "Modified: / 10-02-2008 / 10:32:17 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   446
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   447
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   448
reduceActionForDefBody8:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   449
    ^ (nodes at:2)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   450
        addFirst:(nodes at:1);
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   451
        yourself
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   452
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   453
    "Modified: / 10-02-2008 / 10:32:17 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   454
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   455
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   456
reduceActionForDefBody9:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   457
    ^ (nodes at:2)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   458
        addFirst:(nodes at:1);
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   459
        yourself
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   460
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   461
    "Modified: / 10-02-2008 / 10:32:17 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   462
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   463
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   464
reduceActionForDefFile1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   465
    ^ FileNode generatedFrom:(nodes at:1) defBody:(nodes at:2)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   466
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   467
    "Modified: / 10-02-2008 / 10:29:48 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   468
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   469
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   470
reduceActionForDefinition1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   471
    ^ nodes at:1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   472
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
   473
    "Modified: / 09-09-2008 / 17:05:05 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   474
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   475
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   476
reduceActionForDefinition2:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   477
    ^ nodes at:1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   478
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
   479
    "Modified: / 09-09-2008 / 17:05:05 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   480
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   481
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   482
reduceActionForDefinition3:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   483
    ^ nodes at:1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   484
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
   485
    "Modified: / 09-09-2008 / 17:05:05 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   486
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   487
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   488
reduceActionForDefinition4:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   489
    ^ nodes at:1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   490
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
   491
    "Modified: / 09-09-2008 / 17:05:05 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   492
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   493
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   494
reduceActionForDefinition5:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   495
    ^ nodes at:1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   496
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
   497
    "Modified: / 09-09-2008 / 17:05:05 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   498
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   499
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   500
reduceActionForDefinition6:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   501
    ^ nodes at:1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   502
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   503
    "Modified: / 10-02-2008 / 19:43:38 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   504
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   505
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   506
reduceActionForDefinition7:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   507
    ^ nodes at:1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   508
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   509
    "Modified: / 10-02-2008 / 19:43:38 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   510
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   511
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   512
reduceActionForDefinition8:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   513
    ^ nodes at:1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   514
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   515
    "Modified: / 10-02-2008 / 19:43:38 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   516
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   517
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   518
reduceActionForDefinitionFile1:nodes 
4
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3
diff changeset
   519
    ^ CDefinitionFileNode new definitions:(nodes at:1)
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   520
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
   521
    "Modified: / 09-09-2008 / 17:05:06 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   522
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   523
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   524
reduceActionForEnum1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   525
    ^ (CEnumNode new)
3
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   526
        cName:((nodes at:3) ifNotNil:[ (nodes at:3) value ]);
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   527
        values:(nodes at:4);
5
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
   528
        foreign:false;
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   529
        typedef:false
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   530
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
   531
    "Modified: / 09-09-2008 / 17:05:05 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   532
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   533
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   534
reduceActionForEnum2:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   535
    ^ (CEnumNode new)
3
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   536
        cName:((nodes at:3) ifNotNil:[ (nodes at:3) value ]);
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   537
        values:(nodes at:4);
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   538
        foreign:true;
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   539
        typedef:false
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   540
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
   541
    "Modified: / 09-09-2008 / 17:05:05 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   542
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   543
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   544
reduceActionForEnumField1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   545
    ^ (CEnumFieldNode name:((nodes at:4) value) number:((nodes at:6) value))
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   546
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   547
    "Modified: / 10-02-2008 / 10:48:29 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   548
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   549
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   550
reduceActionForEnumFields1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   551
    ^ OrderedCollection new
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   552
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   553
    "Modified: / 10-02-2008 / 10:26:48 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   554
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   555
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   556
reduceActionForEnumFields2:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   557
    ^ (nodes at:8)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   558
        addFirst:(EnumFieldNode name:((nodes at:4) value)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   559
                    number:((nodes at:6) value));
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   560
        yourself
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   561
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   562
    "Modified: / 10-02-2008 / 10:26:49 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   563
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   564
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   565
reduceActionForEnumValue1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   566
    ^ ((CEnumValueNode new)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   567
        cName:((nodes at:4) value);
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   568
        intValue:((nodes at:6) value))
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   569
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
   570
    "Modified: / 09-09-2008 / 17:05:06 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   571
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   572
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   573
reduceActionForFunction1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   574
    ^ (CFunctionNode new)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   575
        cName:((nodes at:3) value);
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   576
        arguments:(nodes at:5);
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   577
        return:(nodes at:7)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   578
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
   579
    "Modified: / 09-09-2008 / 17:05:05 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   580
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   581
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   582
reduceActionForFunctionArguments1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   583
    ^ OrderedCollection new
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   584
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   585
    "Modified: / 10-02-2008 / 10:25:11 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   586
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   587
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   588
reduceActionForFunctionArguments2:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   589
    ^ (nodes at:8)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   590
        addFirst:(FunctionArgumentNode cName:((nodes at:6) value) id:(nodes at:4));
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   591
        yourself
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   592
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   593
    "Modified: / 10-02-2008 / 19:08:18 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   594
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   595
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   596
reduceActionForFunctionPrototype1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   597
    ^ (CFunctionTypeNode new)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   598
        cName:((nodes at:3) value);
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   599
        arguments:(nodes at:5);
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   600
        return:(nodes at:7)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   601
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
   602
    "Modified: / 09-09-2008 / 17:05:05 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   603
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   604
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   605
reduceActionForFunctionPrototypeArgument1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   606
    ^ (CArgumentNode new)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   607
        cName:nil;
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   608
        type:(nodes at:4)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   609
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
   610
    "Modified: / 09-09-2008 / 17:05:05 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   611
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   612
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   613
reduceActionForFunctionPrototypeArguments1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   614
    ^ OrderedCollection new
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   615
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   616
    "Modified: / 10-02-2008 / 10:48:29 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   617
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   618
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   619
reduceActionForFunctionPrototypeArguments2:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   620
    ^ (nodes at:7)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   621
        addFirst:(CArgumentNode cName:nil id:(nodes at:4));
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   622
        yourself
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   623
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   624
    "Modified: / 10-02-2008 / 19:08:18 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   625
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   626
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   627
reduceActionForGenerated1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   628
    ^ (nodes at:3) value
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   629
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
   630
    "Modified: / 09-09-2008 / 17:05:05 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   631
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   632
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   633
reduceActionForGroup_____Function___Struct___Enum___Union___Typedef1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   634
    ^ nodes at:1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   635
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   636
    "Created: / 25-10-2007 / 18:05:35 / haja"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   637
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   638
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   639
reduceActionForGroup_____Function___Struct___Enum___Union___Typedef2:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   640
    ^ nodes at:1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   641
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   642
    "Created: / 25-10-2007 / 18:05:35 / haja"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   643
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   644
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   645
reduceActionForGroup_____Function___Struct___Enum___Union___Typedef3:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   646
    ^ nodes at:1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   647
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   648
    "Created: / 25-10-2007 / 18:05:35 / haja"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   649
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   650
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   651
reduceActionForGroup_____Function___Struct___Enum___Union___Typedef4:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   652
    ^ nodes at:1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   653
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   654
    "Created: / 25-10-2007 / 18:05:35 / haja"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   655
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   656
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   657
reduceActionForGroup_____Function___Struct___Enum___Union___Typedef5:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   658
    ^ nodes at:1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   659
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   660
    "Created: / 25-10-2007 / 18:05:35 / haja"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   661
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   662
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   663
reduceActionForGroup_____Pointer___Array___Function___Type1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   664
    ^ nodes at:1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   665
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   666
    "Created: / 25-10-2007 / 18:05:35 / haja"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   667
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   668
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   669
reduceActionForGroup_____Pointer___Array___Function___Type2:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   670
    ^ nodes at:1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   671
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   672
    "Created: / 25-10-2007 / 18:05:35 / haja"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   673
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   674
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   675
reduceActionForGroup_____Pointer___Array___Function___Type3:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   676
    ^ nodes at:1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   677
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   678
    "Created: / 25-10-2007 / 18:05:35 / haja"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   679
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   680
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   681
reduceActionForGroup_____Pointer___Array___Function___Type4:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   682
    ^ nodes at:1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   683
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   684
    "Created: / 25-10-2007 / 18:05:35 / haja"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   685
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   686
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   687
reduceActionForGroup_____StructField___Struct___Union1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   688
    ^ nodes at:1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   689
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   690
    "Created: / 25-10-2007 / 18:05:35 / haja"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   691
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   692
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   693
reduceActionForGroup_____StructField___Struct___Union2:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   694
    ^ nodes at:1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   695
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   696
    "Created: / 25-10-2007 / 18:05:35 / haja"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   697
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   698
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   699
reduceActionForGroup_____StructField___Struct___Union3:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   700
    ^ nodes at:1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   701
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   702
    "Created: / 25-10-2007 / 18:05:35 / haja"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   703
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   704
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   705
reduceActionForGroup_____UnionField___Struct___Union1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   706
    ^ nodes at:1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   707
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   708
    "Created: / 25-10-2007 / 18:05:35 / haja"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   709
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   710
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   711
reduceActionForGroup_____UnionField___Struct___Union2:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   712
    ^ nodes at:1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   713
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   714
    "Created: / 25-10-2007 / 18:05:35 / haja"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   715
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   716
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   717
reduceActionForGroup_____UnionField___Struct___Union3:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   718
    ^ nodes at:1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   719
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   720
    "Created: / 25-10-2007 / 18:05:35 / haja"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   721
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   722
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   723
reduceActionForGroup_______foreign_1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   724
    ^ nodes at:1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   725
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   726
    "Modified: / 17-02-2008 / 18:45:28 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   727
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   728
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   729
reduceActionForGroup_______type_1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   730
    ^ nodes at:1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   731
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   732
    "Created: / 05-12-2007 / 18:36:56 / haja"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   733
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   734
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   735
reduceActionForGroup_______typedef_1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   736
    ^ nodes at:1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   737
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   738
    "Created: / 05-12-2007 / 18:31:48 / haja"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   739
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   740
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   741
reduceActionForGroup______foreign_1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   742
    ^ nodes at:1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   743
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   744
    "Modified: / 19-11-2007 / 09:51:07 / haja"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   745
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   746
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   747
reduceActionForGroup______name_1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   748
    ^ nodes at:1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   749
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
   750
    "Modified: / 09-09-2008 / 17:05:06 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   751
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   752
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   753
reduceActionForGroup______number_____name_1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   754
    ^ nodes at:1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   755
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   756
    "Modified: / 29-10-2007 / 10:36:04 / haja"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   757
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   758
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   759
reduceActionForGroup______number_____name_2:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   760
    ^ nodes at:1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   761
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   762
    "Modified: / 29-10-2007 / 10:36:04 / haja"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   763
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   764
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   765
reduceActionForGroup______type_1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   766
    ^ nodes at:1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   767
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   768
    "Created: / 05-12-2007 / 18:45:57 / haja"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   769
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   770
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   771
reduceActionForGroup______type__1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   772
    ^ nodes at:1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   773
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   774
    "Modified: / 05-12-2007 / 18:45:57 / haja"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   775
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   776
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   777
reduceActionForGroup______typedef__1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   778
    ^ nodes at:1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   779
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   780
    "Modified: / 12-02-2008 / 21:56:04 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   781
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   782
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   783
reduceActionForId1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   784
    ^ nodes at:1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   785
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   786
    "Modified: / 10-02-2008 / 10:48:29 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   787
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   788
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   789
reduceActionForId2:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   790
    ^ nodes at:1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   791
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   792
    "Modified: / 10-02-2008 / 10:48:29 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   793
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   794
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   795
reduceActionForId3:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   796
    ^ nodes at:1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   797
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   798
    "Modified: / 10-02-2008 / 10:48:29 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   799
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   800
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   801
reduceActionForId4:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   802
    ^ nodes at:1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   803
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   804
    "Modified: / 10-02-2008 / 10:48:29 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   805
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   806
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   807
reduceActionForId5:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   808
    ^ IdNode names:(nodes at:1)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   809
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   810
    "Modified: / 10-02-2008 / 10:48:29 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   811
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   812
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   813
reduceActionForLocalStruct1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   814
    ^ StructNode 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   815
        name:((nodes at:3) value)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   816
        fields:(nodes at:4)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   817
        local:true
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   818
        foreign:((nodes at:2) isNil not)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   819
        typedef:false
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   820
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   821
    "Modified: / 10-02-2008 / 09:46:55 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   822
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   823
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   824
reduceActionForLocalUnion1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   825
    ^ UnionNode 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   826
        name:((nodes at:3) value)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   827
        fields:(nodes at:4)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   828
        local:true
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   829
        foreign:((nodes at:2) isNil not)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   830
        typedef:false
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   831
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   832
    "Modified: / 10-02-2008 / 09:46:55 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   833
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   834
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   835
reduceActionForLong1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   836
    ^ CUnsignedNode new type:(nodes at:1)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   837
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   838
    "Created: / 10-02-2008 / 19:50:10 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   839
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   840
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   841
reduceActionForNames1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   842
    ^ OrderedCollection new
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   843
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   844
    "Modified: / 10-02-2008 / 10:48:29 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   845
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   846
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   847
reduceActionForNames2:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   848
    ^ (nodes at:2)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   849
        addFirst:(nodes at:1) value;
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   850
        yourself
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   851
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   852
    "Modified: / 10-02-2008 / 10:48:29 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   853
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   854
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   855
reduceActionForOptional__Group_______foreign_1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   856
    ^ nil
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   857
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   858
    "Modified: / 17-02-2008 / 18:45:28 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   859
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   860
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   861
reduceActionForOptional__Group_______foreign_2:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   862
    ^ nodes at:1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   863
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   864
    "Modified: / 17-02-2008 / 18:45:28 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   865
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   866
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   867
reduceActionForOptional__Group_______type_1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   868
    ^ nil
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   869
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   870
    "Created: / 05-12-2007 / 18:36:56 / haja"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   871
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   872
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   873
reduceActionForOptional__Group_______type_2:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   874
    ^ nodes at:1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   875
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   876
    "Created: / 05-12-2007 / 18:36:56 / haja"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   877
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   878
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   879
reduceActionForOptional__Group_______typedef_1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   880
    ^ nil
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   881
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   882
    "Created: / 05-12-2007 / 18:31:48 / haja"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   883
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   884
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   885
reduceActionForOptional__Group_______typedef_2:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   886
    ^ nodes at:1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   887
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   888
    "Created: / 05-12-2007 / 18:31:48 / haja"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   889
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   890
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   891
reduceActionForOptional__Group______foreign_1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   892
    ^ nil
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   893
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   894
    "Modified: / 19-11-2007 / 09:51:07 / haja"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   895
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   896
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   897
reduceActionForOptional__Group______foreign_2:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   898
    ^ nodes at:1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   899
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   900
    "Modified: / 19-11-2007 / 09:51:07 / haja"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   901
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   902
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   903
reduceActionForOptional__Group______name_1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   904
    ^ nil
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   905
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
   906
    "Modified: / 09-09-2008 / 17:05:06 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   907
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   908
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   909
reduceActionForOptional__Group______name_2:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   910
    ^ nodes at:1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   911
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
   912
    "Modified: / 09-09-2008 / 17:05:06 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   913
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   914
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   915
reduceActionForOptional__Group______type_1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   916
    ^ nil
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   917
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   918
    "Created: / 05-12-2007 / 18:45:57 / haja"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   919
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   920
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   921
reduceActionForOptional__Group______type_2:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   922
    ^ nodes at:1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   923
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   924
    "Created: / 05-12-2007 / 18:45:57 / haja"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   925
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   926
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   927
reduceActionForOptional__Group______type__1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   928
    ^ nil
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   929
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   930
    "Modified: / 05-12-2007 / 18:45:57 / haja"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   931
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   932
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   933
reduceActionForOptional__Group______type__2:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   934
    ^ nodes at:1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   935
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   936
    "Modified: / 05-12-2007 / 18:45:57 / haja"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   937
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   938
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   939
reduceActionForOptional__Group______typedef__1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   940
    ^ nil
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   941
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   942
    "Modified: / 12-02-2008 / 21:56:04 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   943
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   944
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   945
reduceActionForOptional__Group______typedef__2:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   946
    ^ nodes at:1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   947
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   948
    "Modified: / 12-02-2008 / 21:56:04 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   949
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   950
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   951
reduceActionForOptional___local_1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   952
    ^ nil
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   953
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   954
    "Modified: / 29-10-2007 / 11:05:17 / haja"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   955
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   956
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   957
reduceActionForOptional___local_2:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   958
    ^ nodes at:1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   959
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   960
    "Modified: / 29-10-2007 / 11:05:17 / haja"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   961
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   962
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   963
reduceActionForPointer1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   964
    ^ CPointerNode new type:(nodes at:3)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   965
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
   966
    "Modified: / 09-09-2008 / 17:05:06 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   967
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   968
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   969
reduceActionForRepeat_Multiple___name_1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   970
    ^ OrderedCollection with:(nodes at:1)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   971
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   972
    "Created: / 25-10-2007 / 18:05:35 / haja"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   973
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   974
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   975
reduceActionForRepeat_Multiple___name_2:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   976
    ^ (nodes at:1)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   977
        add:(nodes at:2);
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   978
        yourself
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   979
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   980
    "Created: / 25-10-2007 / 18:05:35 / haja"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   981
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   982
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   983
reduceActionForRepeat__Argument1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   984
    ^ OrderedCollection new
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   985
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
   986
    "Modified: / 09-09-2008 / 17:05:05 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   987
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   988
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   989
reduceActionForRepeat__Argument2:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   990
    ^ (nodes at:1)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   991
        add:(nodes at:2);
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   992
        yourself
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   993
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
   994
    "Modified: / 09-09-2008 / 17:05:05 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   995
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   996
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   997
reduceActionForRepeat__Definition1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   998
    ^ OrderedCollection new
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   999
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1000
    "Modified: / 09-09-2008 / 17:05:06 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1001
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1002
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1003
reduceActionForRepeat__Definition2:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1004
    ^ (nodes at:1)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1005
        add:(nodes at:2);
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1006
        yourself
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1007
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1008
    "Modified: / 09-09-2008 / 17:05:06 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1009
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1010
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1011
reduceActionForRepeat__EnumField1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1012
    ^ OrderedCollection new
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1013
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1014
    "Modified: / 10-02-2008 / 10:48:29 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1015
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1016
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1017
reduceActionForRepeat__EnumField2:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1018
    ^ (nodes at:1)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1019
        add:(nodes at:2);
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1020
        yourself
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1021
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1022
    "Modified: / 10-02-2008 / 10:48:29 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1023
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1024
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1025
reduceActionForRepeat__EnumValue1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1026
    ^ OrderedCollection new
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1027
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1028
    "Modified: / 09-09-2008 / 17:05:06 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1029
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1030
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1031
reduceActionForRepeat__EnumValue2:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1032
    ^ (nodes at:1)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1033
        add:(nodes at:2);
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1034
        yourself
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1035
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1036
    "Modified: / 09-09-2008 / 17:05:06 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1037
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1038
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1039
reduceActionForRepeat__FunctionPrototypeArgument1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1040
    ^ OrderedCollection new
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1041
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1042
    "Modified: / 09-09-2008 / 17:05:05 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1043
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1044
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1045
reduceActionForRepeat__FunctionPrototypeArgument2:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1046
    ^ (nodes at:1)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1047
        add:(nodes at:2);
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1048
        yourself
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1049
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1050
    "Modified: / 09-09-2008 / 17:05:05 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1051
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1052
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1053
reduceActionForRepeat__Group_____Function___Struct___Enum___Union___Typedef1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1054
    ^ OrderedCollection new
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1055
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1056
    "Created: / 25-10-2007 / 18:05:35 / haja"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1057
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1058
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1059
reduceActionForRepeat__Group_____Function___Struct___Enum___Union___Typedef2:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1060
    ^ (nodes at:1)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1061
        add:(nodes at:2);
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1062
        yourself
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1063
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1064
    "Created: / 25-10-2007 / 18:05:35 / haja"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1065
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1066
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1067
reduceActionForRepeat__Group_____StructField___Struct___Union1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1068
    ^ OrderedCollection new
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1069
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1070
    "Created: / 25-10-2007 / 18:05:35 / haja"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1071
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1072
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1073
reduceActionForRepeat__Group_____StructField___Struct___Union2:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1074
    ^ (nodes at:1)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1075
        add:(nodes at:2);
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1076
        yourself
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1077
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1078
    "Created: / 25-10-2007 / 18:05:35 / haja"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1079
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1080
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1081
reduceActionForRepeat__Group_____UnionField___Struct___Union1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1082
    ^ OrderedCollection new
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1083
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1084
    "Created: / 25-10-2007 / 18:05:35 / haja"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1085
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1086
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1087
reduceActionForRepeat__Group_____UnionField___Struct___Union2:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1088
    ^ (nodes at:1)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1089
        add:(nodes at:2);
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1090
        yourself
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1091
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1092
    "Created: / 25-10-2007 / 18:05:35 / haja"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1093
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1094
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1095
reduceActionForRepeat__StructField1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1096
    ^ OrderedCollection new
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1097
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1098
    "Modified: / 09-09-2008 / 17:05:06 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1099
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1100
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1101
reduceActionForRepeat__StructField2:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1102
    ^ (nodes at:1)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1103
        add:(nodes at:2);
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1104
        yourself
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1105
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1106
    "Modified: / 09-09-2008 / 17:05:06 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1107
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1108
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1109
reduceActionForReturn1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1110
    ^ nodes at:3
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1111
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1112
    "Modified: / 09-09-2008 / 17:05:05 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1113
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1114
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1115
reduceActionForStruct1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1116
    ^ (CStructNode new)
3
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
  1117
        cName:((nodes at:3) ifNotNil:[ (nodes at:3) value ]);
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1118
        cByteSize:(nodes at:5) value asNumber;
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1119
        fields:(nodes at:6);
5
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
  1120
        foreign:false
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1121
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1122
    "Modified: / 09-09-2008 / 17:05:05 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1123
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1124
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1125
reduceActionForStruct2:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1126
    ^ (CStructNode new)
3
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
  1127
        cName:((nodes at:3) ifNotNil:[ (nodes at:3) value ]);
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1128
        cByteSize:(nodes at:5) value asNumber;
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1129
        fields:(nodes at:6);
5
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
  1130
        foreign:true
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1131
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1132
    "Modified: / 09-09-2008 / 17:05:05 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1133
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1134
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1135
reduceActionForStructField1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1136
    ^ (CStructFieldNode new)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1137
        cName:((nodes at:6) value);
5
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
  1138
        offset:(nodes at:8) value asNumber;
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1139
        type:(nodes at:4)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1140
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1141
    "Modified: / 09-09-2008 / 17:05:06 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1142
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1143
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1144
reduceActionForStructField2:nodes 
4
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3
diff changeset
  1145
    ^ (CStructFieldNode new)
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3
diff changeset
  1146
        cName:((nodes at:6) value);
5
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
  1147
        offset:(nodes at:8) value asNumber;
4
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3
diff changeset
  1148
        type:(nodes at:4)
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1149
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1150
    "Modified: / 09-09-2008 / 17:05:06 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1151
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1152
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1153
reduceActionForStructField3:nodes 
4
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3
diff changeset
  1154
    ^ (CStructFieldNode new)
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3
diff changeset
  1155
        cName:((nodes at:6) value);
5
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
  1156
        offset:(nodes at:8) value asNumber;
4
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3
diff changeset
  1157
        type:(nodes at:4)
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1158
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1159
    "Modified: / 09-09-2008 / 17:05:06 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1160
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1161
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1162
reduceActionForStructField4:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1163
    ^ (nodes at:1) local:true
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1164
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1165
    "Modified: / 10-02-2008 / 10:00:46 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1166
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1167
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1168
reduceActionForStructFields1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1169
    ^ OrderedCollection new
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1170
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1171
    "Modified: / 10-02-2008 / 09:36:44 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1172
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1173
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1174
reduceActionForStructFields2:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1175
    ^ (nodes at:6)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1176
        addFirst:(StructFieldNode cName:((nodes at:4) value) id:(nodes at:2));
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1177
        yourself
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1178
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1179
    "Modified: / 10-02-2008 / 19:08:18 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1180
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1181
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1182
reduceActionForStructFields3:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1183
    ^ (nodes at:2)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1184
        addFirst:(nodes at:1);
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1185
        yourself
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1186
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1187
    "Modified: / 10-02-2008 / 09:36:44 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1188
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1189
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1190
reduceActionForStructFields4:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1191
    ^ (nodes at:2)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1192
        addFirst:(nodes at:1);
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1193
        yourself
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1194
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1195
    "Modified: / 10-02-2008 / 09:36:44 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1196
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1197
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1198
reduceActionForStructOrUnionFields1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1199
    ^ (nodes at:1)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1200
        add:(nodes at:2);
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1201
        yourself
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1202
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1203
    "Modified: / 10-02-2008 / 10:21:30 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1204
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1205
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1206
reduceActionForStructOrUnionFields2:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1207
    ^ OrderedCollection new
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1208
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1209
    "Modified: / 10-02-2008 / 10:21:30 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1210
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1211
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1212
reduceActionForStructOrUnionFields3:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1213
    ^ (nodes at:2)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1214
        addFirst:(nodes at:1);
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1215
        yourself
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1216
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1217
    "Modified: / 10-02-2008 / 09:42:27 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1218
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1219
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1220
reduceActionForStructOrUnionFields4:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1221
    ^ (nodes at:2)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1222
        addFirst:(nodes at:1);
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1223
        yourself
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1224
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1225
    "Modified: / 10-02-2008 / 09:42:27 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1226
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1227
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1228
reduceActionForType1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1229
    ^ nodes at:1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1230
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1231
    "Modified: / 09-09-2008 / 17:05:05 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1232
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1233
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1234
reduceActionForType2:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1235
    ^ nodes at:1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1236
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1237
    "Modified: / 09-09-2008 / 17:05:05 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1238
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1239
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1240
reduceActionForType3:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1241
    ^ nodes at:1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1242
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1243
    "Modified: / 09-09-2008 / 17:05:05 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1244
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1245
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1246
reduceActionForType4:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1247
    ^ nodes at:1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1248
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1249
    "Modified: / 09-09-2008 / 17:05:05 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1250
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1251
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1252
reduceActionForType5:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1253
    ^ nodes at:1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1254
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1255
    "Modified: / 09-09-2008 / 17:05:05 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1256
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1257
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1258
reduceActionForType6:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1259
    ^ nodes at:1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1260
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1261
    "Modified: / 09-09-2008 / 17:05:05 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1262
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1263
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1264
reduceActionForType7:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1265
    ^ nodes at:1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1266
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1267
    "Modified: / 09-09-2008 / 17:05:05 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1268
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1269
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1270
reduceActionForType8:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1271
    ^ nodes at:1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1272
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1273
    "Modified: / 09-09-2008 / 17:05:05 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1274
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1275
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1276
reduceActionForType9:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1277
    ^ CUserDefinedTypeNode new cName:(nodes at:1) value
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1278
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1279
    "Modified: / 09-09-2008 / 17:05:05 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1280
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1281
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1282
reduceActionForTypedef1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1283
    ^ (CTypedefNode new)
3
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
  1284
        cName:((nodes at:3) value);
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
  1285
        type:(nodes at:4)
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
  1286
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1287
    "Modified: / 09-09-2008 / 17:05:05 / Jan Vrany <vranyj1@fel.cvut.cz>"
3
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
  1288
!
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1289
3
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
  1290
reduceActionForTypedef2:nodes 
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
  1291
    ^ (CTypedefNode new)
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
  1292
        cName:((nodes at:3) value);
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
  1293
        type:(nodes at:4);
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
  1294
        foreign:true
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
  1295
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1296
    "Modified: / 09-09-2008 / 17:05:05 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1297
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1298
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1299
reduceActionForTypedefEnum1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1300
    ^ CEnumNode 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1301
        name:((nodes at:4) value)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1302
        fields:(nodes at:5)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1303
        foreign:((nodes at:3) isNil not)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1304
        typedef:true
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1305
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1306
    "Modified: / 10-02-2008 / 10:48:29 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1307
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1308
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1309
reduceActionForTypedefStruct1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1310
    ^ CStructNode 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1311
        name:((nodes at:4) value)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1312
        fields:(nodes at:5)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1313
        local:false
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1314
        foreign:((nodes at:3) isNil not)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1315
        typedef:true
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1316
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1317
    "Modified: / 10-02-2008 / 10:48:29 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1318
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1319
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1320
reduceActionForTypedefUnion1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1321
    ^ CUnionNode 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1322
        name:((nodes at:3) value)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1323
        fields:(nodes at:4)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1324
        local:false
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1325
        foreign:((nodes at:2) isNil not)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1326
        typedef:true
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1327
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1328
    "Modified: / 10-02-2008 / 10:48:29 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1329
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1330
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1331
reduceActionForUnion1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1332
    ^ (CUnionNode new)
3
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
  1333
        cName:((nodes at:3) ifNotNil:[ (nodes at:3) value ]);
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1334
        cByteSize:(nodes at:5) value asNumber;
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1335
        fields:(nodes at:6);
5
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
  1336
        foreign:false
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1337
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1338
    "Modified: / 09-09-2008 / 17:05:05 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1339
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1340
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1341
reduceActionForUnion2:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1342
    ^ (CUnionNode new)
3
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
  1343
        cName:((nodes at:3) ifNotNil:[ (nodes at:3) value ]);
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1344
        cByteSize:(nodes at:5) value asNumber;
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1345
        fields:(nodes at:6);
5
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
  1346
        foreign:true
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1347
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1348
    "Modified: / 09-09-2008 / 17:05:05 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1349
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1350
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1351
reduceActionForUnionFields1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1352
    ^ OrderedCollection new
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1353
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1354
    "Modified: / 10-02-2008 / 09:36:44 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1355
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1356
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1357
reduceActionForUnionFields2:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1358
    ^ (nodes at:6)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1359
        addFirst:(UnionFieldNode cName:((nodes at:4) value) id:(nodes at:2));
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1360
        yourself
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1361
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1362
    "Modified: / 10-02-2008 / 19:08:18 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1363
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1364
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1365
reduceActionForUnionFields3:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1366
    ^ (nodes at:2)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1367
        addFirst:(nodes at:1);
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1368
        yourself
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1369
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1370
    "Modified: / 10-02-2008 / 09:36:44 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1371
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1372
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1373
reduceActionForUnionFields4:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1374
    ^ (nodes at:2)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1375
        addFirst:(nodes at:1);
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1376
        yourself
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1377
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1378
    "Modified: / 10-02-2008 / 09:36:44 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1379
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1380
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1381
reduceActionForUnsigned1:nodes 
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1382
    ^ CUnsignedNode new type:(nodes at:1)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1383
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1384
    "Modified: / 10-02-2008 / 19:50:10 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1385
! !
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1386
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1387
!CDefinitionParser methodsFor:'generated-tables'!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1388
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1389
reduceTable
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1390
	^#(
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1391
#(39 7 #reduceActionForStruct1:)
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1392
#(39 7 #reduceActionForStruct2:)
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1393
#(40 7 #reduceActionForUnion1:)
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1394
#(40 7 #reduceActionForUnion2:)
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1395
#(41 5 #reduceActionForEnum1:)
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1396
#(41 5 #reduceActionForEnum2:)
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1397
#(42 5 #reduceActionForTypedef1:)
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1398
#(42 5 #reduceActionForTypedef2:)
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1399
#(43 8 #reduceActionForFunction1:)
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1400
#(44 3 #reduceActionForGenerated1:)
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1401
#(45 1 #reduceActionForDefinition1:)
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1402
#(45 1 #reduceActionForDefinition2:)
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1403
#(45 1 #reduceActionForDefinition3:)
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1404
#(45 1 #reduceActionForDefinition4:)
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1405
#(45 1 #reduceActionForDefinition5:)
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1406
#(46 1 #reduceFor:)
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1407
#(47 0 #'reduceActionForRepeat__Argument1:')
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1408
#(47 2 #'reduceActionForRepeat__Argument2:')
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1409
#(48 4 #reduceActionForReturn1:)
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1410
#(49 1 #reduceActionForType1:)
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1411
#(49 1 #reduceActionForType2:)
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1412
#(49 1 #reduceActionForType3:)
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1413
#(49 1 #reduceActionForType4:)
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1414
#(49 1 #reduceActionForType5:)
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1415
#(49 1 #reduceActionForType6:)
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1416
#(49 1 #reduceActionForType7:)
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1417
#(49 1 #reduceActionForType8:)
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1418
#(49 1 #reduceActionForType9:)
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1419
#(50 6 #reduceActionForFunctionPrototypeArgument1:)
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1420
#(51 0 #'reduceActionForRepeat__FunctionPrototypeArgument1:')
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1421
#(51 2 #'reduceActionForRepeat__FunctionPrototypeArgument2:')
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1422
#(52 8 #reduceActionForFunctionPrototype1:)
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1423
#(53 2 #reduceActionForConst1:)
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1424
#(54 2 #reduceActionForBuiltinType1:)
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1425
#(54 2 #reduceActionForBuiltinType2:)
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1426
#(54 2 #reduceActionForBuiltinType3:)
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1427
#(54 2 #reduceActionForBuiltinType4:)
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1428
#(54 1 #reduceActionForBuiltinType5:)
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1429
#(54 1 #reduceActionForBuiltinType6:)
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1430
#(54 1 #reduceActionForBuiltinType7:)
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1431
#(54 1 #reduceActionForBuiltinType8:)
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1432
#(54 1 #reduceActionForBuiltinType9:)
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1433
#(54 1 #reduceActionForBuiltinType10:)
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1434
#(55 4 #reduceActionForPointer1:)
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1435
#(56 7 #reduceActionForArray1:)
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1436
#(57 7 #reduceActionForArgument1:)
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1437
#(57 7 #reduceActionForArgument2:)
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1438
#(57 7 #reduceActionForArgument3:)
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1439
#(58 1 #'reduceActionForGroup______name_1:')
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1440
#(59 0 #'reduceActionForOptional__Group______name_1:')
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1441
#(59 1 #'reduceActionForOptional__Group______name_2:')
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1442
#(60 9 #reduceActionForStructField1:)
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1443
#(60 9 #reduceActionForStructField2:)
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1444
#(60 9 #reduceActionForStructField3:)
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1445
#(61 0 #'reduceActionForRepeat__StructField1:')
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1446
#(61 2 #'reduceActionForRepeat__StructField2:')
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1447
#(62 7 #reduceActionForEnumValue1:)
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1448
#(63 0 #'reduceActionForRepeat__EnumValue1:')
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1449
#(63 2 #'reduceActionForRepeat__EnumValue2:')
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1450
#(66 0 #'reduceActionForRepeat__Definition1:')
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1451
#(66 2 #'reduceActionForRepeat__Definition2:')
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1452
#(67 1 #reduceActionForDefinitionFile1:)
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1453
)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1454
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1455
    "Modified: / 09-09-2008 / 17:05:06 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1456
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1457
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1458
transitionTable
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1459
	^#(
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1460
#[1 0 242 0 13 0 242 0 64 0 13 0 66 0 17 0 67]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1461
#[1 0 242 0 13 0 242 0 64 0 13 0 66 0 21 0 67]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1462
#[1 0 25 0 13 0 29 0 39 0 33 0 40 0 37 0 41 0 41 0 42 0 45 0 43 0 49 0 45 0 250 0 64]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1463
#[0 0 0 0 64]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1464
#[0 0 0 0 64]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1465
#[1 0 53 0 9 0 57 0 12 0 61 0 19 0 65 0 20 0 69 0 22 0 73 0 23 0 77 0 24 0 81 0 25 0 85 0 32]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1466
#[0 0 50 0 13 0 64]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1467
#[0 0 54 0 13 0 64]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1468
#[0 0 58 0 13 0 64]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1469
#[0 0 62 0 13 0 64]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1470
#[0 0 46 0 13 0 64]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1471
#[0 0 246 0 13 0 64]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1472
#[0 0 89 0 34]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1473
#[0 0 93 0 34]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1474
#[1 0 202 0 30 0 97 0 34 0 101 0 58 0 105 0 59]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1475
#[1 0 202 0 13 0 202 0 15 0 97 0 34 0 101 0 58 0 109 0 59]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1476
#[0 0 113 0 34]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1477
#[1 0 202 0 13 0 202 0 15 0 97 0 34 0 101 0 58 0 117 0 59]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1478
#[1 0 202 0 30 0 97 0 34 0 101 0 58 0 121 0 59]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1479
#[1 0 202 0 30 0 97 0 34 0 101 0 58 0 125 0 59]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1480
#[1 0 202 0 30 0 97 0 34 0 101 0 58 0 129 0 59]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1481
#[1 0 133 0 1 0 137 0 3 0 141 0 4 0 145 0 5 0 149 0 6 0 153 0 13 0 157 0 16 0 161 0 26 0 165 0 27 0 169 0 28 0 173 0 29 0 177 0 31 0 181 0 34 0 185 0 39 0 189 0 40 0 193 0 41 0 197 0 49 0 201 0 52 0 205 0 53 0 209 0 54 0 213 0 55 0 217 0 56]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1482
#[0 0 221 0 13]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1483
#[0 0 198 0 13 0 15 0 30]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1484
#[0 0 206 0 13 0 15 0 30]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1485
#[0 0 225 0 30]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1486
#[1 0 234 0 13 0 234 0 15 0 229 0 63]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1487
#[1 0 133 0 1 0 137 0 3 0 141 0 4 0 145 0 5 0 149 0 6 0 153 0 13 0 157 0 16 0 161 0 26 0 165 0 27 0 169 0 28 0 173 0 29 0 177 0 31 0 181 0 34 0 185 0 39 0 189 0 40 0 193 0 41 0 233 0 49 0 201 0 52 0 205 0 53 0 209 0 54 0 213 0 55 0 217 0 56]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1488
#[1 0 234 0 13 0 234 0 15 0 237 0 63]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1489
#[0 0 241 0 30]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1490
#[0 0 245 0 30]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1491
#[0 0 249 0 30]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1492
#[1 0 133 0 1 0 137 0 3 0 141 0 4 0 145 0 5 0 149 0 6 0 157 0 16 0 161 0 26 0 165 0 27 0 169 0 28 0 173 0 29 0 253 0 54]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1493
#[1 0 133 0 1 0 137 0 3 0 141 0 4 0 145 0 5 0 149 0 6 0 157 0 16 0 161 0 26 0 165 0 27 0 169 0 28 0 173 0 29 1 1 0 54]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1494
#[1 0 133 0 1 0 137 0 3 0 141 0 4 0 145 0 5 0 149 0 6 0 157 0 16 0 161 0 26 0 165 0 27 0 169 0 28 0 173 0 29 1 5 0 54]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1495
#[0 0 154 0 15]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1496
#[1 0 133 0 1 0 137 0 3 0 141 0 4 0 145 0 5 0 149 0 6 0 157 0 16 0 161 0 26 0 165 0 27 0 169 0 28 0 173 0 29 1 9 0 54]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1497
#[1 1 13 0 2 1 17 0 8 0 61 0 19 0 65 0 20 0 73 0 23 0 77 0 24 0 81 0 25 0 85 0 32 1 21 0 33]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1498
#[0 0 158 0 15]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1499
#[0 0 162 0 15]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1500
#[0 0 170 0 15]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1501
#[0 0 166 0 15]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1502
#[0 0 174 0 15]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1503
#[1 0 133 0 1 0 137 0 3 0 141 0 4 0 145 0 5 0 149 0 6 0 153 0 13 0 157 0 16 0 161 0 26 0 165 0 27 0 169 0 28 0 173 0 29 0 177 0 31 0 181 0 34 0 185 0 39 0 189 0 40 0 193 0 41 1 25 0 49 0 201 0 52 0 205 0 53 0 209 0 54 0 213 0 55 0 217 0 56]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1504
#[0 0 114 0 15]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1505
#[0 0 102 0 15]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1506
#[0 0 106 0 15]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1507
#[0 0 110 0 15]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1508
#[0 1 29 0 15]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1509
#[0 0 98 0 15]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1510
#[0 0 82 0 15]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1511
#[0 0 86 0 15]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1512
#[0 0 90 0 15]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1513
#[0 0 94 0 15]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1514
#[1 0 70 0 13 0 70 0 15 1 33 0 47]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1515
#[0 1 37 0 35]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1516
#[1 1 41 0 13 1 45 0 15 1 49 0 62]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1517
#[0 1 53 0 15]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1518
#[1 1 41 0 13 1 57 0 15 1 49 0 62]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1519
#[0 1 61 0 35]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1520
#[0 1 65 0 35]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1521
#[0 1 69 0 35]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1522
#[0 0 138 0 15]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1523
#[0 0 146 0 15]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1524
#[0 0 142 0 15]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1525
#[0 0 150 0 15]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1526
#[0 1 73 0 34]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1527
#[0 1 77 0 13]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1528
#[1 0 133 0 1 0 137 0 3 0 141 0 4 0 145 0 5 0 149 0 6 0 153 0 13 0 157 0 16 0 161 0 26 0 165 0 27 0 169 0 28 0 173 0 29 0 177 0 31 0 181 0 34 0 185 0 39 0 189 0 40 0 193 0 41 1 81 0 49 0 201 0 52 0 205 0 53 0 209 0 54 0 213 0 55 0 217 0 56]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1529
#[0 0 134 0 15]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1530
#[0 0 34 0 13 0 64]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1531
#[1 1 85 0 13 1 89 0 15 1 93 0 57]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1532
#[1 0 222 0 13 0 222 0 15 1 97 0 61]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1533
#[0 1 101 0 17]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1534
#[0 0 22 0 13 0 15 0 64]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1535
#[0 0 238 0 13 0 15]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1536
#[0 0 30 0 13 0 64]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1537
#[0 0 26 0 13 0 15 0 64]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1538
#[1 0 222 0 13 0 222 0 15 1 105 0 61]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1539
#[1 0 222 0 13 0 222 0 15 1 109 0 61]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1540
#[1 0 222 0 13 0 222 0 15 1 113 0 61]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1541
#[0 1 117 0 13]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1542
#[1 0 133 0 1 0 137 0 3 0 141 0 4 0 145 0 5 0 149 0 6 0 153 0 13 0 157 0 16 0 161 0 26 0 165 0 27 0 169 0 28 0 173 0 29 0 177 0 31 0 181 0 34 0 185 0 39 0 189 0 40 0 193 0 41 1 121 0 49 0 201 0 52 0 205 0 53 0 209 0 54 0 213 0 55 0 217 0 56]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1543
#[0 1 125 0 15]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1544
#[0 1 129 0 14]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1545
#[1 1 133 0 13 1 137 0 48]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1546
#[0 0 74 0 13 0 15]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1547
#[1 1 141 0 13 1 145 0 15 1 149 0 60]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1548
#[0 1 153 0 13]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1549
#[1 1 141 0 13 1 157 0 15 1 149 0 60]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1550
#[1 1 141 0 13 1 161 0 15 1 149 0 60]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1551
#[1 1 141 0 13 1 165 0 15 1 149 0 60]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1552
#[1 0 122 0 13 0 122 0 15 1 169 0 51]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1553
#[0 1 173 0 15]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1554
#[0 0 178 0 15]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1555
#[0 1 177 0 13]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1556
#[0 1 181 0 7]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1557
#[0 1 185 0 15]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1558
#[0 1 189 0 18]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1559
#[0 0 18 0 13 0 15 0 64]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1560
#[0 0 226 0 13 0 15]
5
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
  1561
#[0 1 193 0 34]
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1562
#[0 0 14 0 13 0 15 0 64]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1563
#[0 0 10 0 13 0 15 0 64]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1564
#[0 0 6 0 13 0 15 0 64]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1565
#[1 1 197 0 13 1 201 0 15 1 205 0 50]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1566
#[0 1 209 0 35]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1567
#[1 0 133 0 1 0 137 0 3 0 141 0 4 0 145 0 5 0 149 0 6 0 153 0 13 0 157 0 16 0 161 0 26 0 165 0 27 0 169 0 28 0 173 0 29 0 177 0 31 0 181 0 34 0 185 0 39 0 189 0 40 0 193 0 41 1 213 0 49 0 201 0 52 0 205 0 53 0 209 0 54 0 213 0 55 0 217 0 56]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1568
#[1 0 133 0 1 0 137 0 3 0 141 0 4 0 145 0 5 0 149 0 6 0 153 0 13 0 157 0 16 0 161 0 26 0 165 0 27 0 169 0 28 0 173 0 29 0 177 0 31 0 181 0 34 0 185 0 39 0 189 0 40 0 193 0 41 1 217 0 49 0 201 0 52 0 205 0 53 0 209 0 54 0 213 0 55 0 217 0 56]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1569
#[0 0 38 0 13 0 64]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1570
#[0 1 221 0 13]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1571
#[0 1 225 0 15]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1572
#[0 1 229 0 14]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1573
#[1 1 133 0 13 1 233 0 48]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1574
#[0 0 126 0 13 0 15]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1575
#[0 1 237 0 15]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1576
#[0 1 241 0 15]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1577
#[0 1 245 0 15]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1578
#[1 0 133 0 1 0 137 0 3 0 141 0 4 0 145 0 5 0 149 0 6 0 153 0 13 0 157 0 16 0 161 0 26 0 165 0 27 0 169 0 28 0 173 0 29 0 177 0 31 0 181 0 34 0 185 0 39 0 189 0 40 0 193 0 41 1 249 0 49 0 201 0 52 0 205 0 53 0 209 0 54 0 213 0 55 0 217 0 56]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1579
#[0 1 253 0 35]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1580
#[0 2 1 0 13]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1581
#[0 2 5 0 15]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1582
#[0 0 182 0 15]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1583
#[1 2 9 0 8 2 13 0 17 2 17 0 34]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1584
#[0 0 78 0 15]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1585
#[0 2 21 0 15]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1586
#[0 2 25 0 15]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1587
#[1 0 133 0 1 0 137 0 3 0 141 0 4 0 145 0 5 0 149 0 6 0 153 0 13 0 157 0 16 0 161 0 26 0 165 0 27 0 169 0 28 0 173 0 29 0 177 0 31 0 181 0 34 0 185 0 39 0 189 0 40 0 193 0 41 2 29 0 49 0 201 0 52 0 205 0 53 0 209 0 54 0 213 0 55 0 217 0 56]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1588
#[0 0 130 0 15]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1589
#[0 2 33 0 15]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1590
#[0 2 37 0 15]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1591
#[0 2 41 0 15]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1592
#[1 2 45 0 12 2 49 0 17 2 53 0 34]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1593
#[0 0 230 0 13 0 15]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1594
#[0 2 57 0 15]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1595
#[0 0 194 0 13 0 15]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1596
#[0 0 190 0 13 0 15]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1597
#[0 0 186 0 13 0 15]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1598
#[0 2 61 0 21]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1599
#[0 2 65 0 21]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1600
#[0 2 69 0 21]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1601
#[0 2 73 0 15]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1602
#[0 2 77 0 35]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1603
#[0 2 81 0 35]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1604
#[0 2 85 0 35]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1605
#[0 0 118 0 13 0 15]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1606
#[0 2 89 0 15]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1607
#[0 2 93 0 15]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1608
#[0 2 97 0 15]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1609
#[0 0 218 0 13 0 15]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1610
#[0 0 214 0 13 0 15]
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1611
#[0 0 210 0 13 0 15]
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1612
)
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1613
9
03c7a764d2be - changed struct field accessor generation - no "prim" prefix.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
  1614
    "Modified: / 09-09-2008 / 17:05:05 / Jan Vrany <vranyj1@fel.cvut.cz>"
6
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
  1615
! !
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
  1616
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
  1617
!CDefinitionParser methodsFor:'private'!
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
  1618
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
  1619
performReduceMethod: aSymbol with: items 
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
  1620
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
  1621
    | cNode |
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
  1622
    cNode := super performReduceMethod: aSymbol with: items.
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
  1623
    (cNode isKindOf: CNode) ifTrue:
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
  1624
        [cNode line: scanner lineNumber].
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
  1625
    ^cNode
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
  1626
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
  1627
    "Created: / 10-07-2008 / 15:59:04 / Jan Vrany <vranyj1@fel.cvut.cz>"
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
  1628
    "Modified: / 10-07-2008 / 20:05:24 / Jan Vrany <vranyj1@fel.cvut.cz>"
4
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3
diff changeset
  1629
! !
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3
diff changeset
  1630
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3
diff changeset
  1631
!CDefinitionParser methodsFor:'private-error handling'!
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3
diff changeset
  1632
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3
diff changeset
  1633
reportErrorMessage: aString
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3
diff changeset
  1634
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3
diff changeset
  1635
    super reportErrorMessage: 'line ', scanner lineNumber printString, ': ' , aString
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3
diff changeset
  1636
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3
diff changeset
  1637
    "Created: / 04-07-2008 / 12:13:14 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1638
! !
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1639
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1640
!CDefinitionParser class methodsFor:'documentation'!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1641
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1642
version
19
1297bf936bfb Some fixes for modern GCC XML
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14
diff changeset
  1643
    ^ '$Id$'
14
1f730d82496e Added version_SVN methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
  1644
!
1f730d82496e Added version_SVN methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
  1645
1f730d82496e Added version_SVN methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
  1646
version_SVN
1f730d82496e Added version_SVN methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
  1647
    ^ '$Id$'
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
  1648
! !