Cface__GeneratorCommand.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Mon, 06 Jul 2015 22:28:52 +0100
changeset 40 7d1e77b6115e
parent 32 d7464405cbda
child 43 9327987437ae
permissions -rw-r--r--
Renamed CUserDefinedTypeNode to CUnresolvedTypeNode. This is a preparation for new resolving code.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
32
d7464405cbda Package renamed from cvut:fel/cface to jv:cface
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 24
diff changeset
     1
"{ Package: 'jv:cface' }"
1
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
Object subclass:#GeneratorCommand
5
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
     6
	instanceVariableNames:'platform mappings definitions unixLibraryName win32LibraryName'
1
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-Generators'
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
2
cfd2c393abfe Smalltalk/X generator improvements:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    13
!GeneratorCommand class methodsFor:'projects'!
cfd2c393abfe Smalltalk/X generator improvements:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    14
cfd2c393abfe Smalltalk/X generator improvements:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    15
generateCairo
cfd2c393abfe Smalltalk/X generator improvements:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    16
15
e873065959dc Fiew fixes, needs to be updated for newer GCC-XML
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14
diff changeset
    17
    | cairoDefFile |
2
cfd2c393abfe Smalltalk/X generator improvements:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    18
32
d7464405cbda Package renamed from cvut:fel/cface to jv:cface
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 24
diff changeset
    19
    cairoDefFile := (Smalltalk packageDirectoryForPackageId: 'jv:cface')
15
e873065959dc Fiew fixes, needs to be updated for newer GCC-XML
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14
diff changeset
    20
                    / 'resources' / 'examples' / 'libcairo' / 'libcairo.def'.
e873065959dc Fiew fixes, needs to be updated for newer GCC-XML
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14
diff changeset
    21
    cairoDefFile exists ifFalse:[
e873065959dc Fiew fixes, needs to be updated for newer GCC-XML
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14
diff changeset
    22
        self error:'Cannot find libcairo.def'
e873065959dc Fiew fixes, needs to be updated for newer GCC-XML
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14
diff changeset
    23
    ].
2
cfd2c393abfe Smalltalk/X generator improvements:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    24
10
8087158409e4 Fixed namespace and class generation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
    25
    ^Cface::Platform theInstance generatorCommand
2
cfd2c393abfe Smalltalk/X generator improvements:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    26
        definitions: cairoDefFile asFilename;
cfd2c393abfe Smalltalk/X generator improvements:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    27
        mappings: Cface::CairoMapping new;
10
8087158409e4 Fixed namespace and class generation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
    28
        unixLibraryName:'libcairo.so.2';
8087158409e4 Fixed namespace and class generation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
    29
        win32LibraryName:'cairo.dll';
8087158409e4 Fixed namespace and class generation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
    30
        process.
8087158409e4 Fixed namespace and class generation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
    31
8087158409e4 Fixed namespace and class generation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
    32
    "
8087158409e4 Fixed namespace and class generation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
    33
        Cface::GeneratorCommand generateCairo
8087158409e4 Fixed namespace and class generation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
    34
    "
2
cfd2c393abfe Smalltalk/X generator improvements:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    35
cfd2c393abfe Smalltalk/X generator improvements:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    36
    "Created: / 03-07-2008 / 23:55:14 / Jan Vrany <vranyj1@fel.cvut.cz>"
10
8087158409e4 Fixed namespace and class generation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
    37
    "Modified: / 22-01-2009 / 19:10:08 / Jan Vrany <vranyj1@fel.cvut.cz>"
15
e873065959dc Fiew fixes, needs to be updated for newer GCC-XML
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14
diff changeset
    38
    "Modified: / 12-07-2011 / 15:54:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2
cfd2c393abfe Smalltalk/X generator improvements:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    39
!
cfd2c393abfe Smalltalk/X generator improvements:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    40
11
a77f44d45a27 Initial support for GTK
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 10
diff changeset
    41
generateGTK
a77f44d45a27 Initial support for GTK
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 10
diff changeset
    42
a77f44d45a27 Initial support for GTK
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 10
diff changeset
    43
    |gtkDir gtkDefFile|
a77f44d45a27 Initial support for GTK
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 10
diff changeset
    44
14
1f730d82496e Added version_SVN methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 11
diff changeset
    45
    gtkDir := '/home/jv/Projects/Cface/cface/resources/examples/libgtk/'.
11
a77f44d45a27 Initial support for GTK
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 10
diff changeset
    46
    gtkDefFile := gtkDir ,  'libgtk.def'.  
a77f44d45a27 Initial support for GTK
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 10
diff changeset
    47
a77f44d45a27 Initial support for GTK
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 10
diff changeset
    48
    ^Cface::Platform theInstance generatorCommand
a77f44d45a27 Initial support for GTK
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 10
diff changeset
    49
        definitions: gtkDefFile asFilename;
a77f44d45a27 Initial support for GTK
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 10
diff changeset
    50
        mappings: Cface::GTKMapping new;
a77f44d45a27 Initial support for GTK
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 10
diff changeset
    51
        unixLibraryName:'libgtk-x11-2.0.so';
a77f44d45a27 Initial support for GTK
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 10
diff changeset
    52
        process
a77f44d45a27 Initial support for GTK
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 10
diff changeset
    53
a77f44d45a27 Initial support for GTK
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 10
diff changeset
    54
    "
a77f44d45a27 Initial support for GTK
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 10
diff changeset
    55
        Cface::GeneratorCommand generateSubversion
a77f44d45a27 Initial support for GTK
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 10
diff changeset
    56
    "
a77f44d45a27 Initial support for GTK
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 10
diff changeset
    57
a77f44d45a27 Initial support for GTK
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 10
diff changeset
    58
    "Created: / 22-02-2009 / 14:44:00 / Jan Vrany <vranyj1@fel.cvut.cz>"
a77f44d45a27 Initial support for GTK
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 10
diff changeset
    59
!
a77f44d45a27 Initial support for GTK
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 10
diff changeset
    60
24
e7afa531abcf Some fixes for libgit2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 22
diff changeset
    61
generateLibgit2
22
57da23a9fbbd - Cface::Libgit2Mapping
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 19
diff changeset
    62
57da23a9fbbd - Cface::Libgit2Mapping
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 19
diff changeset
    63
    |svnDir libgit2DefFile|
57da23a9fbbd - Cface::Libgit2Mapping
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 19
diff changeset
    64
57da23a9fbbd - Cface::Libgit2Mapping
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 19
diff changeset
    65
    svnDir := '/home/jv/Projects/Cface/sources/cface/trunk/resources/examples/libgit2/'.
57da23a9fbbd - Cface::Libgit2Mapping
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 19
diff changeset
    66
    libgit2DefFile := svnDir ,  'libgit2.def'.  
57da23a9fbbd - Cface::Libgit2Mapping
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 19
diff changeset
    67
57da23a9fbbd - Cface::Libgit2Mapping
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 19
diff changeset
    68
    ^Cface::Platform theInstance generatorCommand
57da23a9fbbd - Cface::Libgit2Mapping
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 19
diff changeset
    69
        definitions: libgit2DefFile asFilename;
57da23a9fbbd - Cface::Libgit2Mapping
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 19
diff changeset
    70
        mappings: Cface::Libgit2Mapping new;
57da23a9fbbd - Cface::Libgit2Mapping
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 19
diff changeset
    71
        unixLibraryName:'libgit2.so';
24
e7afa531abcf Some fixes for libgit2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 22
diff changeset
    72
        win32LibraryName:'git2.dll';
22
57da23a9fbbd - Cface::Libgit2Mapping
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 19
diff changeset
    73
        process
57da23a9fbbd - Cface::Libgit2Mapping
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 19
diff changeset
    74
57da23a9fbbd - Cface::Libgit2Mapping
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 19
diff changeset
    75
    "
24
e7afa531abcf Some fixes for libgit2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 22
diff changeset
    76
        Cface::GeneratorCommand generateLibgit2
22
57da23a9fbbd - Cface::Libgit2Mapping
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 19
diff changeset
    77
    "
57da23a9fbbd - Cface::Libgit2Mapping
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 19
diff changeset
    78
24
e7afa531abcf Some fixes for libgit2
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 22
diff changeset
    79
    "Created: / 05-09-2012 / 10:55:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
22
57da23a9fbbd - Cface::Libgit2Mapping
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 19
diff changeset
    80
!
57da23a9fbbd - Cface::Libgit2Mapping
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 19
diff changeset
    81
2
cfd2c393abfe Smalltalk/X generator improvements:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    82
generateSubversion
cfd2c393abfe Smalltalk/X generator improvements:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    83
cfd2c393abfe Smalltalk/X generator improvements:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    84
    |svnDir svnDefFile|
cfd2c393abfe Smalltalk/X generator improvements:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    85
14
1f730d82496e Added version_SVN methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 11
diff changeset
    86
    svnDir := '/home/jv/Projects/Cface/cface/resources/examples/libsvn/'.
10
8087158409e4 Fixed namespace and class generation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
    87
    svnDefFile := svnDir ,  'libsvn.def'.  
2
cfd2c393abfe Smalltalk/X generator improvements:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    88
10
8087158409e4 Fixed namespace and class generation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
    89
    ^Cface::Platform theInstance generatorCommand
2
cfd2c393abfe Smalltalk/X generator improvements:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    90
        definitions: svnDefFile asFilename;
10
8087158409e4 Fixed namespace and class generation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
    91
        mappings: Cface::SVNMapping new;
8087158409e4 Fixed namespace and class generation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
    92
        unixLibraryName:'libsvn.so';
2
cfd2c393abfe Smalltalk/X generator improvements:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    93
        process
cfd2c393abfe Smalltalk/X generator improvements:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    94
10
8087158409e4 Fixed namespace and class generation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
    95
    "
8087158409e4 Fixed namespace and class generation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
    96
        Cface::GeneratorCommand generateSubversion
8087158409e4 Fixed namespace and class generation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
    97
    "
8087158409e4 Fixed namespace and class generation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
    98
2
cfd2c393abfe Smalltalk/X generator improvements:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
    99
    "Created: / 03-07-2008 / 23:55:54 / Jan Vrany <vranyj1@fel.cvut.cz>"
10
8087158409e4 Fixed namespace and class generation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
   100
    "Modified: / 06-01-2009 / 12:16:47 / Jan Vrany <vranyj1@fel.cvut.cz>"
2
cfd2c393abfe Smalltalk/X generator improvements:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   101
! !
cfd2c393abfe Smalltalk/X generator improvements:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1
diff changeset
   102
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   103
!GeneratorCommand methodsFor:'accessing'!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   104
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   105
definitions
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   106
    ^ definitions
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   107
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   108
    "Created: / 18-02-2008 / 15:36:22 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   109
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   110
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   111
definitions:aFilename
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   112
    definitions := self platform parser parse: aFilename contents asString.
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   113
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   114
    "Created: / 18-02-2008 / 15:36:22 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   115
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   116
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   117
mappings
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   118
    ^ mappings ifNil:[platform mappings]
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   119
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   120
    "Created: / 18-02-2008 / 15:35:04 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   121
    "Modified: / 27-05-2008 / 14:22:00 / Jan Vrany <vranyj1@fel.cvut.cz>"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   122
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   123
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   124
mappings:something
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   125
    mappings := something.
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   126
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   127
    "Created: / 18-02-2008 / 15:35:04 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   128
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   129
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   130
platform
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   131
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   132
    platform ifNil:[platform := Cface::Platform theInstance].
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   133
    ^platform
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
    "Created: / 18-02-2008 / 15:28:45 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   136
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   137
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   138
platform:something
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   139
    platform := something.
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   140
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   141
    "Created: / 18-02-2008 / 15:30:12 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   142
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   143
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   144
typeMapper
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   145
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   146
    ^platform typeMapper
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   147
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   148
    "Created: / 18-02-2008 / 15:30:40 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   149
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   150
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   151
typeResolver
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
    ^platform typeResolver
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   154
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   155
    "Created: / 18-02-2008 / 15:30:32 / janfrog"
5
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
   156
!
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
   157
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
   158
unixLibraryName
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
   159
    ^ unixLibraryName
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
   160
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
   161
    "Created: / 10-07-2008 / 09:07:56 / Jan Vrany <vranyj1@fel.cvut.cz>"
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
   162
!
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
   163
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
   164
unixLibraryName:something
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
   165
    unixLibraryName := something.
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
   166
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
   167
    "Created: / 10-07-2008 / 09:07:56 / Jan Vrany <vranyj1@fel.cvut.cz>"
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
   168
!
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
   169
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
   170
win32LibraryName
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
   171
    ^ win32LibraryName
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
   172
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
   173
    "Created: / 10-07-2008 / 09:07:56 / Jan Vrany <vranyj1@fel.cvut.cz>"
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
   174
!
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
   175
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
   176
win32LibraryName:something
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
   177
    win32LibraryName := something.
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
   178
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
   179
    "Created: / 10-07-2008 / 09:07:56 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   180
! !
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   181
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   182
!GeneratorCommand methodsFor:'processing'!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   183
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   184
process
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   185
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   186
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   187
    self platform typeResolver process: definitions.
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   188
    self platform typeMapper process: definitions using: self mappings.
3
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2
diff changeset
   189
    ^self platform generator 
5
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
   190
        unixLibraryName: unixLibraryName;
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
   191
        win32LibraryName: win32LibraryName;
3
110a9cbf8594 More improvements, now it generates usable Cairo bindings!
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2
diff changeset
   192
        process: definitions.
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   193
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   194
    "Created: / 18-02-2008 / 15:25:54 / janfrog"
5
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
   195
    "Modified: / 10-07-2008 / 09:08:18 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   196
! !
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   197
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   198
!GeneratorCommand class methodsFor:'documentation'!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   199
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   200
version
19
1297bf936bfb Some fixes for modern GCC XML
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 15
diff changeset
   201
    ^ '$Id$'
14
1f730d82496e Added version_SVN methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 11
diff changeset
   202
!
1f730d82496e Added version_SVN methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 11
diff changeset
   203
1f730d82496e Added version_SVN methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 11
diff changeset
   204
version_SVN
1f730d82496e Added version_SVN methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 11
diff changeset
   205
    ^ '$Id$'
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   206
! !