LibraryDefinition.st
author Claus Gittinger <cg@exept.de>
Mon, 21 Aug 2006 19:16:16 +0200
changeset 9617 edf60cb58ef7
parent 9616 7bd19460f53f
child 9622 9846503abab1
permissions -rw-r--r--
*** empty log message ***
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
9526
6760ab786028 changed name from '..._Definition' to '...'
Claus Gittinger <cg@exept.de>
parents: 9517
diff changeset
     1
"
6760ab786028 changed name from '..._Definition' to '...'
Claus Gittinger <cg@exept.de>
parents: 9517
diff changeset
     2
 COPYRIGHT (c) 2006 by eXept Software AG
6760ab786028 changed name from '..._Definition' to '...'
Claus Gittinger <cg@exept.de>
parents: 9517
diff changeset
     3
              All Rights Reserved
6760ab786028 changed name from '..._Definition' to '...'
Claus Gittinger <cg@exept.de>
parents: 9517
diff changeset
     4
6760ab786028 changed name from '..._Definition' to '...'
Claus Gittinger <cg@exept.de>
parents: 9517
diff changeset
     5
 This software is furnished under a license and may be used
6760ab786028 changed name from '..._Definition' to '...'
Claus Gittinger <cg@exept.de>
parents: 9517
diff changeset
     6
 only in accordance with the terms of that license and with the
6760ab786028 changed name from '..._Definition' to '...'
Claus Gittinger <cg@exept.de>
parents: 9517
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
6760ab786028 changed name from '..._Definition' to '...'
Claus Gittinger <cg@exept.de>
parents: 9517
diff changeset
     8
 be provided or otherwise made available to, or used by, any
6760ab786028 changed name from '..._Definition' to '...'
Claus Gittinger <cg@exept.de>
parents: 9517
diff changeset
     9
 other person.  No title to or ownership of the software is
6760ab786028 changed name from '..._Definition' to '...'
Claus Gittinger <cg@exept.de>
parents: 9517
diff changeset
    10
 hereby transferred.
6760ab786028 changed name from '..._Definition' to '...'
Claus Gittinger <cg@exept.de>
parents: 9517
diff changeset
    11
"
6760ab786028 changed name from '..._Definition' to '...'
Claus Gittinger <cg@exept.de>
parents: 9517
diff changeset
    12
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
    13
"{ Package: 'stx:libbasic3' }"
b17358de5730 initial checkin
fm
parents:
diff changeset
    14
9568
7d41a61ebd34 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9558
diff changeset
    15
ProjectDefinition subclass:#LibraryDefinition
9616
7bd19460f53f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9613
diff changeset
    16
	instanceVariableNames:''
7bd19460f53f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9613
diff changeset
    17
	classVariableNames:''
7bd19460f53f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9613
diff changeset
    18
	poolDictionaries:''
7bd19460f53f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9613
diff changeset
    19
	category:'System-Support-Projects'
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
    20
!
b17358de5730 initial checkin
fm
parents:
diff changeset
    21
9568
7d41a61ebd34 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9558
diff changeset
    22
!LibraryDefinition class methodsFor:'documentation'!
9526
6760ab786028 changed name from '..._Definition' to '...'
Claus Gittinger <cg@exept.de>
parents: 9517
diff changeset
    23
6760ab786028 changed name from '..._Definition' to '...'
Claus Gittinger <cg@exept.de>
parents: 9517
diff changeset
    24
copyright
6760ab786028 changed name from '..._Definition' to '...'
Claus Gittinger <cg@exept.de>
parents: 9517
diff changeset
    25
"
6760ab786028 changed name from '..._Definition' to '...'
Claus Gittinger <cg@exept.de>
parents: 9517
diff changeset
    26
 COPYRIGHT (c) 2006 by eXept Software AG
6760ab786028 changed name from '..._Definition' to '...'
Claus Gittinger <cg@exept.de>
parents: 9517
diff changeset
    27
              All Rights Reserved
6760ab786028 changed name from '..._Definition' to '...'
Claus Gittinger <cg@exept.de>
parents: 9517
diff changeset
    28
6760ab786028 changed name from '..._Definition' to '...'
Claus Gittinger <cg@exept.de>
parents: 9517
diff changeset
    29
 This software is furnished under a license and may be used
6760ab786028 changed name from '..._Definition' to '...'
Claus Gittinger <cg@exept.de>
parents: 9517
diff changeset
    30
 only in accordance with the terms of that license and with the
6760ab786028 changed name from '..._Definition' to '...'
Claus Gittinger <cg@exept.de>
parents: 9517
diff changeset
    31
 inclusion of the above copyright notice.   This software may not
6760ab786028 changed name from '..._Definition' to '...'
Claus Gittinger <cg@exept.de>
parents: 9517
diff changeset
    32
 be provided or otherwise made available to, or used by, any
6760ab786028 changed name from '..._Definition' to '...'
Claus Gittinger <cg@exept.de>
parents: 9517
diff changeset
    33
 other person.  No title to or ownership of the software is
6760ab786028 changed name from '..._Definition' to '...'
Claus Gittinger <cg@exept.de>
parents: 9517
diff changeset
    34
 hereby transferred.
6760ab786028 changed name from '..._Definition' to '...'
Claus Gittinger <cg@exept.de>
parents: 9517
diff changeset
    35
"
6760ab786028 changed name from '..._Definition' to '...'
Claus Gittinger <cg@exept.de>
parents: 9517
diff changeset
    36
! !
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
    37
9568
7d41a61ebd34 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9558
diff changeset
    38
!LibraryDefinition class methodsFor:'defaults'!
9533
fae577b43add *** empty log message ***
fm
parents: 9530
diff changeset
    39
9534
b326ffacb811 *** empty log message ***
fm
parents: 9533
diff changeset
    40
defaultDescription
b326ffacb811 *** empty log message ***
fm
parents: 9533
diff changeset
    41
    ^ 'a classLibrary'
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
    42
! !
b17358de5730 initial checkin
fm
parents:
diff changeset
    43
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
    44
!LibraryDefinition class methodsFor:'description - project information'!
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
    45
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
    46
description
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
    47
    "Returns a description string which will appear in nt.def / bc.def"
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
    48
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
    49
    self module = 'stx' ifTrue:[
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
    50
        ^ 'Smalltalk/X Class library'
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
    51
    ].
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
    52
9586
eb87399baea3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9582
diff changeset
    53
    ^ 'Class Library'
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
    54
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
    55
    "Created: / 17-08-2006 / 20:52:16 / cg"
9586
eb87399baea3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9582
diff changeset
    56
    "Modified: / 18-08-2006 / 16:15:53 / cg"
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
    57
! !
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
    58
9568
7d41a61ebd34 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9558
diff changeset
    59
!LibraryDefinition class methodsFor:'file generation'!
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
    60
9534
b326ffacb811 *** empty log message ***
fm
parents: 9533
diff changeset
    61
fileNamesToGenerate
b326ffacb811 *** empty log message ***
fm
parents: 9533
diff changeset
    62
    ^ #( 
9604
55b93e1619f8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9596
diff changeset
    63
          #('Make.proto'        #'generate_make_dot_proto')
55b93e1619f8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9596
diff changeset
    64
          #('Make.spec'         #'generate_make_dot_spec')
55b93e1619f8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9596
diff changeset
    65
          #('libInit.cc'        #'generate_libInit_dot_cc')
55b93e1619f8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9596
diff changeset
    66
          #('bc.def'            #'generate_bc_dot_def')
55b93e1619f8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9596
diff changeset
    67
          #('nt.mak'            #'generate_nt_dot_mak')
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
    68
"
9604
55b93e1619f8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9596
diff changeset
    69
          #('nt.def'            #'generate_nt_dot_def')
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
    70
"
9604
55b93e1619f8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9596
diff changeset
    71
          #('abbrev.stc'        #'generate_abbrev_dot_stc') 
55b93e1619f8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9596
diff changeset
    72
          #('bmake.bat'         #'generate_bmake_dot_mak') 
9534
b326ffacb811 *** empty log message ***
fm
parents: 9533
diff changeset
    73
     )
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
    74
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
    75
    "Modified: / 17-08-2006 / 20:03:00 / cg"
9582
8753d32d0969 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9576
diff changeset
    76
!
8753d32d0969 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9576
diff changeset
    77
8753d32d0969 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9576
diff changeset
    78
generate_libInit_dot_cc
8753d32d0969 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9576
diff changeset
    79
8753d32d0969 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9576
diff changeset
    80
    ^self replaceMappings: self libInit_dot_cc_mappings 
8753d32d0969 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9576
diff changeset
    81
            in: self libInit_dot_cc
8753d32d0969 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9576
diff changeset
    82
8753d32d0969 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9576
diff changeset
    83
"
8753d32d0969 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9576
diff changeset
    84
  DapasXProject generate_libInit_dot_cc
8753d32d0969 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9576
diff changeset
    85
  DapasX_Datenbasis generate_libInit_dot_cc
8753d32d0969 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9576
diff changeset
    86
8753d32d0969 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9576
diff changeset
    87
"
8753d32d0969 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9576
diff changeset
    88
8753d32d0969 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9576
diff changeset
    89
    "Created: / 08-08-2006 / 12:47:16 / fm"
8753d32d0969 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9576
diff changeset
    90
    "Modified: / 09-08-2006 / 11:30:52 / fm"
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
    91
! !
b17358de5730 initial checkin
fm
parents:
diff changeset
    92
9568
7d41a61ebd34 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9558
diff changeset
    93
!LibraryDefinition class methodsFor:'file templates'!
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
    94
b17358de5730 initial checkin
fm
parents:
diff changeset
    95
bc_dot_def
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
    96
    "the template code for the bc.def file"
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
    97
b17358de5730 initial checkin
fm
parents:
diff changeset
    98
^ 
9608
9dbec800d20e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9606
diff changeset
    99
'LIBRARY         %(LIBRARY_NAME)
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   100
DESCRIPTION     %(DESCRIPTION)
b17358de5730 initial checkin
fm
parents:
diff changeset
   101
CODE            PRELOAD MOVEABLE DISCARDABLE
b17358de5730 initial checkin
fm
parents:
diff changeset
   102
SEGMENTS
b17358de5730 initial checkin
fm
parents:
diff changeset
   103
    INITCODE    PRELOAD DISCARDABLE
b17358de5730 initial checkin
fm
parents:
diff changeset
   104
EXPORTS
9590
4b6cfa035ecb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9586
diff changeset
   105
    __%(LIBRARY_NAME)_Init     @1
9504
b89c84c60e86 *** empty log message ***
fm
parents: 9503
diff changeset
   106
'
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   107
b17358de5730 initial checkin
fm
parents:
diff changeset
   108
    "Created: / 08-08-2006 / 12:26:58 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   109
    "Modified: / 08-08-2006 / 19:32:27 / fm"
9590
4b6cfa035ecb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9586
diff changeset
   110
    "Modified: / 18-08-2006 / 17:13:45 / cg"
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   111
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   112
b17358de5730 initial checkin
fm
parents:
diff changeset
   113
classLine_libInit_dot_cc
b17358de5730 initial checkin
fm
parents:
diff changeset
   114
b17358de5730 initial checkin
fm
parents:
diff changeset
   115
^'_%(CLASS)_Init(pass,__pRT__,snd);'
b17358de5730 initial checkin
fm
parents:
diff changeset
   116
b17358de5730 initial checkin
fm
parents:
diff changeset
   117
    "Created: / 08-08-2006 / 12:51:44 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   118
    "Modified: / 08-08-2006 / 15:46:05 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   119
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   120
b17358de5730 initial checkin
fm
parents:
diff changeset
   121
extensionLine_libInit_dot_cc
b17358de5730 initial checkin
fm
parents:
diff changeset
   122
b17358de5730 initial checkin
fm
parents:
diff changeset
   123
^'_%(LIBRARY_NAME)_extensions_Init(pass,__pRT__,snd);'
b17358de5730 initial checkin
fm
parents:
diff changeset
   124
b17358de5730 initial checkin
fm
parents:
diff changeset
   125
    "Created: / 08-08-2006 / 15:48:56 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   126
    "Modified: / 08-08-2006 / 19:32:33 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   127
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   128
b17358de5730 initial checkin
fm
parents:
diff changeset
   129
libInit_dot_cc
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   130
    "the template code for the libInit.cc file"
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   131
b17358de5730 initial checkin
fm
parents:
diff changeset
   132
^ 
b17358de5730 initial checkin
fm
parents:
diff changeset
   133
'/*
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   134
 * $','Header','$
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   135
 *
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   136
 * DO NOT EDIT 
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   137
 * automagically generated from the projectDefinition: ',self name,'.
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   138
 */
b17358de5730 initial checkin
fm
parents:
diff changeset
   139
#define __INDIRECTVMINITCALLS__
b17358de5730 initial checkin
fm
parents:
diff changeset
   140
#include <stc.h>
b17358de5730 initial checkin
fm
parents:
diff changeset
   141
#define INIT_TEXT_SECT /* as nothing */
b17358de5730 initial checkin
fm
parents:
diff changeset
   142
#ifdef WIN32
b17358de5730 initial checkin
fm
parents:
diff changeset
   143
# pragma codeseg INITCODE "INITCODE"
b17358de5730 initial checkin
fm
parents:
diff changeset
   144
#else /* not WIN32 */
b17358de5730 initial checkin
fm
parents:
diff changeset
   145
# if defined(__GNUC__) && !!defined(NO_SECTION_ATTRIBUTES)
b17358de5730 initial checkin
fm
parents:
diff changeset
   146
#  if (__GNUC__  == 2 && __GNUC_MINOR__ >= 7) || __GNUC__ > 2
b17358de5730 initial checkin
fm
parents:
diff changeset
   147
#   undef INIT_TEXT_SECT
b17358de5730 initial checkin
fm
parents:
diff changeset
   148
#   define INIT_TEXT_SECT __attribute__((section(".stxitext")))
b17358de5730 initial checkin
fm
parents:
diff changeset
   149
#  endif
b17358de5730 initial checkin
fm
parents:
diff changeset
   150
# endif /* not GNUC */
b17358de5730 initial checkin
fm
parents:
diff changeset
   151
#endif /* not WIN32 */
b17358de5730 initial checkin
fm
parents:
diff changeset
   152
#ifdef INIT_TEXT_SECT
b17358de5730 initial checkin
fm
parents:
diff changeset
   153
extern void _%(LIBRARY_NAME)_Init() INIT_TEXT_SECT;
b17358de5730 initial checkin
fm
parents:
diff changeset
   154
#endif
b17358de5730 initial checkin
fm
parents:
diff changeset
   155
void _%(LIBRARY_NAME)_Init(pass, __pRT__, snd)
b17358de5730 initial checkin
fm
parents:
diff changeset
   156
OBJ snd; struct __vmData__ *__pRT__; {
b17358de5730 initial checkin
fm
parents:
diff changeset
   157
__BEGIN_PACKAGE2__("%(LIBRARY_NAME)", _%(LIBRARY_NAME)_Init, "%(PACKAGE)");
b17358de5730 initial checkin
fm
parents:
diff changeset
   158
%(CLASSES)
b17358de5730 initial checkin
fm
parents:
diff changeset
   159
%(EXTENSION)
b17358de5730 initial checkin
fm
parents:
diff changeset
   160
__END_PACKAGE__();
b17358de5730 initial checkin
fm
parents:
diff changeset
   161
}'
b17358de5730 initial checkin
fm
parents:
diff changeset
   162
b17358de5730 initial checkin
fm
parents:
diff changeset
   163
    "Created: / 08-08-2006 / 12:40:45 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   164
    "Modified: / 08-08-2006 / 19:33:01 / fm"
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   165
    "Modified: / 18-08-2006 / 12:57:02 / cg"
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   166
!
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   167
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   168
lib_dot_rc
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   169
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   170
^ 
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   171
'/*------------------------------------------------------------------------
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   172
 * $','Header','$                                                            
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   173
 *
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   174
 * DO NOT EDIT 
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   175
 * automagically generated from the projectDefinition: ',self name,'.
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   176
 *------------------------------------------------------------------------*/
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   177
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   178
// #if (__BORLANDC__ < 0x0550)
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   179
// #include <ver.h>
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   180
// #endif
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   181
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   182
VS_VERSION_INFO VERSIONINFO
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   183
  FILEVERSION     %(FILEVERSION)
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   184
  PRODUCTVERSION  %(PRODUCTVERSION)
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   185
  FILEFLAGSMASK   VS_FF_DEBUG | VS_FF_PRERELEASE
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   186
  FILEFLAGS       VS_FF_PRERELEASE | VS_FF_SPECIALBUILD
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   187
  FILEOS          VOS_NT_WINDOWS32
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   188
  FILETYPE        %(FILETYPE)
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   189
  FILESUBTYPE     VS_USER_DEFINED
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   190
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   191
BEGIN
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   192
  BLOCK "StringFileInfo"
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   193
  BEGIN
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   194
    BLOCK "040904E4"
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   195
    BEGIN
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   196
      VALUE "CompanyName", %(COMPANYNAME)
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   197
      VALUE "FileDescription", "Smalltalk/X Additional Developer Basic Classes Library\0"
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   198
      VALUE "FileVersion", "5.2.8.1\0"
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   199
      VALUE "InternalName", "libbasic3\0"
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   200
      VALUE "LegalCopyright", "Copyright eXept Software AG 1998-2006\0"
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   201
      VALUE "ProductName", "Smalltalk/X\0"
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   202
      VALUE "ProductVersion", "5.2.8.1\0"
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   203
    END
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   204
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   205
  END
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   206
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   207
  BLOCK "VarFileInfo"
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   208
  BEGIN                               //  Language   |    Translation
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   209
    VALUE "Translation", 0x409, 0x4E4 // U.S. English, Windows Multilingual
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   210
  END
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   211
END
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   212
'
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   213
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   214
    "Created: / 17-08-2006 / 19:37:50 / cg"
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   215
    "Modified: / 18-08-2006 / 12:57:09 / cg"
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   216
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   217
b17358de5730 initial checkin
fm
parents:
diff changeset
   218
make_dot_proto
b17358de5730 initial checkin
fm
parents:
diff changeset
   219
b17358de5730 initial checkin
fm
parents:
diff changeset
   220
^ 
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   221
'# $','Header','$
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   222
#
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   223
# DO NOT EDIT 
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   224
# automagically generated from the projectDefinition: ',self name,'.
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   225
#
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   226
# Warning: once you modify this file, do not rerun
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   227
# stmkmp or projectDefinition-build again - otherwise, your changes are lost.
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   228
#
b17358de5730 initial checkin
fm
parents:
diff changeset
   229
# The Makefile as generated by this Make.proto supports the following targets:
b17358de5730 initial checkin
fm
parents:
diff changeset
   230
#    make         - compile all st-files to a classLib
b17358de5730 initial checkin
fm
parents:
diff changeset
   231
#    make clean   - clean all temp files
b17358de5730 initial checkin
fm
parents:
diff changeset
   232
#    make clobber - clean all
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   233
#
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   234
# This file contains definitions for Unix based platforms.
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   235
b17358de5730 initial checkin
fm
parents:
diff changeset
   236
#
b17358de5730 initial checkin
fm
parents:
diff changeset
   237
# position (of this package) in directory hierarchy:
b17358de5730 initial checkin
fm
parents:
diff changeset
   238
# (must point to ST/X top directory, for tools and includes)
b17358de5730 initial checkin
fm
parents:
diff changeset
   239
TOP=%(TOP)
b17358de5730 initial checkin
fm
parents:
diff changeset
   240
b17358de5730 initial checkin
fm
parents:
diff changeset
   241
b17358de5730 initial checkin
fm
parents:
diff changeset
   242
# subdirectories where targets are to be made:
b17358de5730 initial checkin
fm
parents:
diff changeset
   243
SUBDIRS=%(SUBDIRECTORIES)
b17358de5730 initial checkin
fm
parents:
diff changeset
   244
b17358de5730 initial checkin
fm
parents:
diff changeset
   245
b17358de5730 initial checkin
fm
parents:
diff changeset
   246
# subdirectories where Makefiles are to be made:
b17358de5730 initial checkin
fm
parents:
diff changeset
   247
# (only define if different from SUBDIRS)
b17358de5730 initial checkin
fm
parents:
diff changeset
   248
# ALLSUBDIRS=
b17358de5730 initial checkin
fm
parents:
diff changeset
   249
b17358de5730 initial checkin
fm
parents:
diff changeset
   250
b17358de5730 initial checkin
fm
parents:
diff changeset
   251
# if your embedded C code requires any system includes, 
b17358de5730 initial checkin
fm
parents:
diff changeset
   252
# add the path(es) here:, 
b17358de5730 initial checkin
fm
parents:
diff changeset
   253
# ********** OPTIONAL: MODIFY the next lines ***
b17358de5730 initial checkin
fm
parents:
diff changeset
   254
# LOCALINCLUDES=-Ifoo -Ibar
b17358de5730 initial checkin
fm
parents:
diff changeset
   255
LOCALINCLUDES=%(LOCAL_INCLUDES)
b17358de5730 initial checkin
fm
parents:
diff changeset
   256
b17358de5730 initial checkin
fm
parents:
diff changeset
   257
b17358de5730 initial checkin
fm
parents:
diff changeset
   258
# if you need any additional defines for embedded C code, 
b17358de5730 initial checkin
fm
parents:
diff changeset
   259
# add them here:, 
b17358de5730 initial checkin
fm
parents:
diff changeset
   260
# ********** OPTIONAL: MODIFY the next lines ***
b17358de5730 initial checkin
fm
parents:
diff changeset
   261
# LOCALDEFINES=-Dfoo -Dbar -DDEBUG
b17358de5730 initial checkin
fm
parents:
diff changeset
   262
LOCALDEFINES=%(LOCAL_DEFINES)
b17358de5730 initial checkin
fm
parents:
diff changeset
   263
b17358de5730 initial checkin
fm
parents:
diff changeset
   264
9582
8753d32d0969 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9576
diff changeset
   265
PACKAGE=$(MODULE):$(MODULE_DIR)
9613
b61c0a447008 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9612
diff changeset
   266
STCLOCALOPT=''-package=$(PACKAGE)'' -I. $(LOCALINCLUDES) $(STCLOCALOPTIMIZATIONS) $(STCWARNINGS) $(LOCALDEFINES) %(HEADEROUTPUTARG) %(COMMONSYMFLAG) -varPrefix=$(LIBNAME)
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   267
b17358de5730 initial checkin
fm
parents:
diff changeset
   268
b17358de5730 initial checkin
fm
parents:
diff changeset
   269
# ********** OPTIONAL: MODIFY the next line ***
b17358de5730 initial checkin
fm
parents:
diff changeset
   270
# additional C-libraries that should be pre-linked with the class-objects
b17358de5730 initial checkin
fm
parents:
diff changeset
   271
LD_OBJ_LIBS=
b17358de5730 initial checkin
fm
parents:
diff changeset
   272
b17358de5730 initial checkin
fm
parents:
diff changeset
   273
b17358de5730 initial checkin
fm
parents:
diff changeset
   274
# ********** OPTIONAL: MODIFY the next line ***
b17358de5730 initial checkin
fm
parents:
diff changeset
   275
# additional C targets or libraries should be added below
b17358de5730 initial checkin
fm
parents:
diff changeset
   276
LOCAL_EXTRA_TARGETS=
b17358de5730 initial checkin
fm
parents:
diff changeset
   277
9606
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   278
OBJS= $(COMMON_OBJS) $(UNIX_OBJS)
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   279
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   280
all:: preMake classLibRule postMake
b17358de5730 initial checkin
fm
parents:
diff changeset
   281
b17358de5730 initial checkin
fm
parents:
diff changeset
   282
b17358de5730 initial checkin
fm
parents:
diff changeset
   283
# add more install actions here
b17358de5730 initial checkin
fm
parents:
diff changeset
   284
install::
b17358de5730 initial checkin
fm
parents:
diff changeset
   285
b17358de5730 initial checkin
fm
parents:
diff changeset
   286
# add more install actions for aux-files (resources) here
b17358de5730 initial checkin
fm
parents:
diff changeset
   287
installAux::
b17358de5730 initial checkin
fm
parents:
diff changeset
   288
b17358de5730 initial checkin
fm
parents:
diff changeset
   289
# add more preMake actions here
b17358de5730 initial checkin
fm
parents:
diff changeset
   290
preMake::
b17358de5730 initial checkin
fm
parents:
diff changeset
   291
b17358de5730 initial checkin
fm
parents:
diff changeset
   292
# add more postMake actions here
b17358de5730 initial checkin
fm
parents:
diff changeset
   293
postMake:: cleanjunk
b17358de5730 initial checkin
fm
parents:
diff changeset
   294
b17358de5730 initial checkin
fm
parents:
diff changeset
   295
cleanjunk::
b17358de5730 initial checkin
fm
parents:
diff changeset
   296
b17358de5730 initial checkin
fm
parents:
diff changeset
   297
clean::
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   298
%(TAB)-rm -f *.o *.H
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   299
b17358de5730 initial checkin
fm
parents:
diff changeset
   300
clobber::
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   301
%(TAB)-rm -f *.so *.dll
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   302
b17358de5730 initial checkin
fm
parents:
diff changeset
   303
',
b17358de5730 initial checkin
fm
parents:
diff changeset
   304
"
b17358de5730 initial checkin
fm
parents:
diff changeset
   305
$(INSTALLBASE)::
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   306
%(TAB)@test -d $@ || mkdir $@
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   307
b17358de5730 initial checkin
fm
parents:
diff changeset
   308
$(INSTALLBASE)/packages:: $(INSTALLBASE)
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   309
%(TAB)@test -d $@ || mkdir $@
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   310
b17358de5730 initial checkin
fm
parents:
diff changeset
   311
$(INSTALLBASE)/packages/$(MODULE):: $(INSTALLBASE)/packages
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   312
%(TAB)@test -d $@ || mkdir $@
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   313
b17358de5730 initial checkin
fm
parents:
diff changeset
   314
$(INSTALLBASE)/packages/$(MODULE)/dapasx:: $(INSTALLBASE)/packages/$(MODULE)
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   315
%(TAB)@test -d $@ || mkdir $@
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   316
b17358de5730 initial checkin
fm
parents:
diff changeset
   317
$(INSTALLBASE)/packages/$(MODULE)/dapasx/interactiver_editor:: $(INSTALLBASE)/packages/$(MODULE)/dapasx
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   318
%(TAB)@test -d $@ || mkdir $@
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   319
b17358de5730 initial checkin
fm
parents:
diff changeset
   320
$(INSTALLBASE)/packages/$(MODULE)/$(MODULE_DIR):: $(INSTALLBASE)/packages/$(MODULE)
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   321
%(TAB)@test -d $@ || mkdir $@
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   322
"
b17358de5730 initial checkin
fm
parents:
diff changeset
   323
'
b17358de5730 initial checkin
fm
parents:
diff changeset
   324
# if other things are to be compiled,
b17358de5730 initial checkin
fm
parents:
diff changeset
   325
# add target definitions here,
b17358de5730 initial checkin
fm
parents:
diff changeset
   326
# and list them in LOCAL_EXTRA_TARGETS above.
b17358de5730 initial checkin
fm
parents:
diff changeset
   327
# (care for make syntax - TABS are required in the actions)
b17358de5730 initial checkin
fm
parents:
diff changeset
   328
# foo:  foo.o
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   329
#%(TAB)$(CC) -o foo foo.o
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   330
b17358de5730 initial checkin
fm
parents:
diff changeset
   331
# ''make depend'' will add dependency info between
b17358de5730 initial checkin
fm
parents:
diff changeset
   332
# BEGIN...END below
b17358de5730 initial checkin
fm
parents:
diff changeset
   333
#
b17358de5730 initial checkin
fm
parents:
diff changeset
   334
# BEGINMAKEDEPEND --- do not remove this line; make depend needs it
b17358de5730 initial checkin
fm
parents:
diff changeset
   335
# ENDMAKEDEPEND --- do not remove this line
b17358de5730 initial checkin
fm
parents:
diff changeset
   336
b17358de5730 initial checkin
fm
parents:
diff changeset
   337
'
b17358de5730 initial checkin
fm
parents:
diff changeset
   338
b17358de5730 initial checkin
fm
parents:
diff changeset
   339
    "Created: / 08-08-2006 / 20:45:36 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   340
    "Modified: / 09-08-2006 / 16:50:23 / fm"
9582
8753d32d0969 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9576
diff changeset
   341
    "Modified: / 18-08-2006 / 15:32:40 / cg"
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   342
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   343
b17358de5730 initial checkin
fm
parents:
diff changeset
   344
make_dot_spec
b17358de5730 initial checkin
fm
parents:
diff changeset
   345
b17358de5730 initial checkin
fm
parents:
diff changeset
   346
^ 
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   347
'# $','Header','$
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   348
#
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   349
# DO NOT EDIT 
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   350
# automagically generated from the projectDefinition: ',self name,'.
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   351
#
b17358de5730 initial checkin
fm
parents:
diff changeset
   352
# Warning: once you modify this file, do not rerun
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   353
# stmkmp or projectDefinition-build again - otherwise, your changes are lost.
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   354
#
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   355
# This file contains specifications which are common to all platforms.
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   356
#
b17358de5730 initial checkin
fm
parents:
diff changeset
   357
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   358
# Do NOT CHANGE THESE DEFINITIONS
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   359
# (otherwise, ST/X will have a hard time to find out the packages location from its packageID,
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   360
#  to find the source code of a class and to find the library for a package)
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   361
MODULE=%(MODULE)
b17358de5730 initial checkin
fm
parents:
diff changeset
   362
MODULE_DIR=%(MODULE_DIRECTORY)
b17358de5730 initial checkin
fm
parents:
diff changeset
   363
LIBNAME=%(LIBRARY_NAME)
b17358de5730 initial checkin
fm
parents:
diff changeset
   364
b17358de5730 initial checkin
fm
parents:
diff changeset
   365
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   366
# Argument(s) to the stc compiler (stc --usage).
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   367
#  -H.         : create header files locally
b17358de5730 initial checkin
fm
parents:
diff changeset
   368
#                (if removed, they will be created as common
b17358de5730 initial checkin
fm
parents:
diff changeset
   369
#  -Pxxx       : defines the package
b17358de5730 initial checkin
fm
parents:
diff changeset
   370
#  -Zxxx       : a prefix for variables within the classLib
b17358de5730 initial checkin
fm
parents:
diff changeset
   371
#  -Dxxx       : defines passed to to CC for inline C-code
b17358de5730 initial checkin
fm
parents:
diff changeset
   372
#  -Ixxx       : include path passed to CC for inline C-code
b17358de5730 initial checkin
fm
parents:
diff changeset
   373
#  +optspace   : optimized for space
b17358de5730 initial checkin
fm
parents:
diff changeset
   374
#  +optspace2  : optimized more for space
b17358de5730 initial checkin
fm
parents:
diff changeset
   375
#  +optspace3  : optimized even more for space
b17358de5730 initial checkin
fm
parents:
diff changeset
   376
#  +optinline  : generate inline code for some ST constructs
b17358de5730 initial checkin
fm
parents:
diff changeset
   377
#  +inlineNew  : additionally inline new
b17358de5730 initial checkin
fm
parents:
diff changeset
   378
#  +inlineMath : additionally inline some floatPnt math stuff
b17358de5730 initial checkin
fm
parents:
diff changeset
   379
#
b17358de5730 initial checkin
fm
parents:
diff changeset
   380
# ********** OPTIONAL: MODIFY the next line(s) ***
b17358de5730 initial checkin
fm
parents:
diff changeset
   381
# STCLOCALOPTIMIZATIONS=+optinline +inlineNew
b17358de5730 initial checkin
fm
parents:
diff changeset
   382
# STCLOCALOPTIMIZATIONS=+optspace3
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   383
STCLOCALOPTIMIZATIONS=%(STCOPTIMIZATIONOPTIONS)
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   384
b17358de5730 initial checkin
fm
parents:
diff changeset
   385
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   386
# Argument(s) to the stc compiler (stc --usage).
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   387
#  -warn            : no warnings
b17358de5730 initial checkin
fm
parents:
diff changeset
   388
#  -warnNonStandard : no warnings about ST/X extensions
b17358de5730 initial checkin
fm
parents:
diff changeset
   389
#  -warnEOLComments : no warnings about EOL comment extension
b17358de5730 initial checkin
fm
parents:
diff changeset
   390
#  -warnPrivacy     : no warnings about privateClass extension
b17358de5730 initial checkin
fm
parents:
diff changeset
   391
#
b17358de5730 initial checkin
fm
parents:
diff changeset
   392
# ********** OPTIONAL: MODIFY the next line(s) ***
b17358de5730 initial checkin
fm
parents:
diff changeset
   393
# STCWARNINGS=-warn
b17358de5730 initial checkin
fm
parents:
diff changeset
   394
# STCWARNINGS=-warnNonStandard
b17358de5730 initial checkin
fm
parents:
diff changeset
   395
# STCWARNINGS=-warnEOLComments
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   396
STCWARNINGS=%(STCWARNINGOPTIONS)
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   397
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   398
%(OBJECTS)
b17358de5730 initial checkin
fm
parents:
diff changeset
   399
'
b17358de5730 initial checkin
fm
parents:
diff changeset
   400
b17358de5730 initial checkin
fm
parents:
diff changeset
   401
    "Created: / 08-08-2006 / 19:31:29 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   402
    "Modified: / 09-08-2006 / 15:10:57 / fm"
9582
8753d32d0969 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9576
diff changeset
   403
    "Modified: / 18-08-2006 / 15:32:02 / cg"
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   404
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   405
b17358de5730 initial checkin
fm
parents:
diff changeset
   406
nt_dot_def
b17358de5730 initial checkin
fm
parents:
diff changeset
   407
b17358de5730 initial checkin
fm
parents:
diff changeset
   408
^
b17358de5730 initial checkin
fm
parents:
diff changeset
   409
'LIBRARY        %(LIBRARY_NAME)
b17358de5730 initial checkin
fm
parents:
diff changeset
   410
DESCRIPTION     %(DESCRIPTION)
b17358de5730 initial checkin
fm
parents:
diff changeset
   411
VERSION         %(VERSION_NUMBER)
b17358de5730 initial checkin
fm
parents:
diff changeset
   412
CODE            EXECUTE READ 
b17358de5730 initial checkin
fm
parents:
diff changeset
   413
DATA            READ WRITE
b17358de5730 initial checkin
fm
parents:
diff changeset
   414
SECTIONS
b17358de5730 initial checkin
fm
parents:
diff changeset
   415
    INITCODE    READ EXECUTE 
b17358de5730 initial checkin
fm
parents:
diff changeset
   416
    INITDATA    READ WRITE
b17358de5730 initial checkin
fm
parents:
diff changeset
   417
EXPORTS 
b17358de5730 initial checkin
fm
parents:
diff changeset
   418
    _%(LIBRARY_NAME)_Init      @1
b17358de5730 initial checkin
fm
parents:
diff changeset
   419
IMPORTS'
b17358de5730 initial checkin
fm
parents:
diff changeset
   420
b17358de5730 initial checkin
fm
parents:
diff changeset
   421
    "Modified: / 08-08-2006 / 19:33:14 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   422
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   423
b17358de5730 initial checkin
fm
parents:
diff changeset
   424
nt_dot_mak
b17358de5730 initial checkin
fm
parents:
diff changeset
   425
b17358de5730 initial checkin
fm
parents:
diff changeset
   426
^
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   427
'# $','Header','$
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   428
#
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   429
# DO NOT EDIT 
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   430
# automagically generated from the projectDefinition: ',self name,'.
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   431
#
b17358de5730 initial checkin
fm
parents:
diff changeset
   432
# Warning: once you modify this file, do not rerun
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   433
# stmkmp or projectDefinition-build again - otherwise, your changes are lost.
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   434
#
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   435
# This file contains make rules for the win32 platform (using borland-bcc).
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   436
#
b17358de5730 initial checkin
fm
parents:
diff changeset
   437
TOP=%(TOP)
b17358de5730 initial checkin
fm
parents:
diff changeset
   438
b17358de5730 initial checkin
fm
parents:
diff changeset
   439
!!INCLUDE $(TOP)\rules\stdHeader_nt
b17358de5730 initial checkin
fm
parents:
diff changeset
   440
b17358de5730 initial checkin
fm
parents:
diff changeset
   441
!!INCLUDE Make.spec
b17358de5730 initial checkin
fm
parents:
diff changeset
   442
b17358de5730 initial checkin
fm
parents:
diff changeset
   443
LOCALINCLUDES=%(LOCAL_INCLUDES)
b17358de5730 initial checkin
fm
parents:
diff changeset
   444
9582
8753d32d0969 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9576
diff changeset
   445
PACKAGE=$(MODULE):$(MODULE_DIR)
9613
b61c0a447008 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9612
diff changeset
   446
STCLOCALOPT=''-package=$(PACKAGE)'' -I. $(LOCALINCLUDES) %(HEADEROUTPUTARG) $(STCLOCALOPTIMIZATIONS) $(STCWARNINGS) $(LOCALDEFINES) %(COMMONSYMFLAG) -varPrefix=$(LIBNAME)
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   447
RESFILES=%(RESFILENAME)
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   448
9606
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   449
OBJS= $(COMMON_OBJS) $(WIN32_OBJS)
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   450
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   451
ALL::  $(LIBDIR)\$(LIBNAME).lib $(BINDIR)\$(LIBNAME).dll
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   452
b17358de5730 initial checkin
fm
parents:
diff changeset
   453
!!INCLUDE $(TOP)\rules\stdRules_nt
b17358de5730 initial checkin
fm
parents:
diff changeset
   454
b17358de5730 initial checkin
fm
parents:
diff changeset
   455
# BEGINMAKEDEPEND --- do not remove this line; make depend needs it
b17358de5730 initial checkin
fm
parents:
diff changeset
   456
# ENDMAKEDEPEND --- do not remove this line
b17358de5730 initial checkin
fm
parents:
diff changeset
   457
'
b17358de5730 initial checkin
fm
parents:
diff changeset
   458
b17358de5730 initial checkin
fm
parents:
diff changeset
   459
    "Created: / 09-08-2006 / 11:44:20 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   460
    "Modified: / 09-08-2006 / 19:59:32 / fm"
9590
4b6cfa035ecb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9586
diff changeset
   461
    "Modified: / 18-08-2006 / 17:18:55 / cg"
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   462
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   463
b17358de5730 initial checkin
fm
parents:
diff changeset
   464
objectLine_make_dot_spec
b17358de5730 initial checkin
fm
parents:
diff changeset
   465
9608
9dbec800d20e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9606
diff changeset
   466
^'    %(CLASSFILE).$(O) \'
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   467
b17358de5730 initial checkin
fm
parents:
diff changeset
   468
    "Created: / 08-08-2006 / 20:16:46 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   469
! !
b17358de5730 initial checkin
fm
parents:
diff changeset
   470
9568
7d41a61ebd34 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9558
diff changeset
   471
!LibraryDefinition class methodsFor:'mappings'!
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   472
b17358de5730 initial checkin
fm
parents:
diff changeset
   473
bc_dot_def_mappings
9534
b326ffacb811 *** empty log message ***
fm
parents: 9533
diff changeset
   474
    ^ (super bc_dot_def_mappings)
9504
b89c84c60e86 *** empty log message ***
fm
parents: 9503
diff changeset
   475
        at:#'LIBRARY_NAME' put:[ self libraryName ];
b89c84c60e86 *** empty log message ***
fm
parents: 9503
diff changeset
   476
        yourself
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   477
b17358de5730 initial checkin
fm
parents:
diff changeset
   478
    "Created: / 09-08-2006 / 11:17:59 / fm"
9543
b4f82498926b *** empty log message ***
fm
parents: 9540
diff changeset
   479
    "Modified: / 16-08-2006 / 18:19:25 / User"
9590
4b6cfa035ecb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9586
diff changeset
   480
    "Modified: / 18-08-2006 / 17:14:00 / cg"
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   481
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   482
b17358de5730 initial checkin
fm
parents:
diff changeset
   483
classLine_libInit_dot_cc_mappings: aClassName
b17358de5730 initial checkin
fm
parents:
diff changeset
   484
b17358de5730 initial checkin
fm
parents:
diff changeset
   485
^Dictionary new                                               
9530
fm
parents: 9529
diff changeset
   486
    at: #'CLASS' put: [self st2c:aClassName];
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   487
    yourself
b17358de5730 initial checkin
fm
parents:
diff changeset
   488
b17358de5730 initial checkin
fm
parents:
diff changeset
   489
    "Created: / 08-08-2006 / 14:04:00 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   490
    "Modified: / 09-08-2006 / 18:27:07 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   491
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   492
b17358de5730 initial checkin
fm
parents:
diff changeset
   493
extensionLine_libInit_dot_cc_mappings
b17358de5730 initial checkin
fm
parents:
diff changeset
   494
b17358de5730 initial checkin
fm
parents:
diff changeset
   495
^Dictionary new                                               
b17358de5730 initial checkin
fm
parents:
diff changeset
   496
    at: #'LIBRARY_NAME' put: [self libraryName];
b17358de5730 initial checkin
fm
parents:
diff changeset
   497
    yourself
b17358de5730 initial checkin
fm
parents:
diff changeset
   498
b17358de5730 initial checkin
fm
parents:
diff changeset
   499
    "Created: / 09-08-2006 / 11:19:59 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   500
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   501
b17358de5730 initial checkin
fm
parents:
diff changeset
   502
libInit_dot_cc_mappings
b17358de5730 initial checkin
fm
parents:
diff changeset
   503
b17358de5730 initial checkin
fm
parents:
diff changeset
   504
^Dictionary new
9543
b4f82498926b *** empty log message ***
fm
parents: 9540
diff changeset
   505
    at: #'LIBRARY_NAME' put: [self libraryName];
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   506
    at: #'PACKAGE' put: [self package];
b17358de5730 initial checkin
fm
parents:
diff changeset
   507
    at: #'CLASSES' put: [self generateClassLines_libInit_dot_cc];
b17358de5730 initial checkin
fm
parents:
diff changeset
   508
    at: #'EXTENSION' put: [self generateExtensionLine_libInit_dot_cc];
b17358de5730 initial checkin
fm
parents:
diff changeset
   509
b17358de5730 initial checkin
fm
parents:
diff changeset
   510
    yourself
b17358de5730 initial checkin
fm
parents:
diff changeset
   511
b17358de5730 initial checkin
fm
parents:
diff changeset
   512
    "Created: / 09-08-2006 / 11:20:24 / fm"
9543
b4f82498926b *** empty log message ***
fm
parents: 9540
diff changeset
   513
    "Modified: / 16-08-2006 / 18:19:03 / User"
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   514
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   515
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   516
lib_dot_rc_mappings
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   517
b17358de5730 initial checkin
fm
parents:
diff changeset
   518
^Dictionary new
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   519
    at: #'FILEVERSION' put: ['5,2,8,1'];
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   520
    at: #'PRODUCTVERSION' put: ['5,2,8,1'];
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   521
    at: #'FILETYPE' put: 'VFT_DLL';
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   522
    yourself
b17358de5730 initial checkin
fm
parents:
diff changeset
   523
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   524
    "Created: / 17-08-2006 / 19:35:05 / cg"
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   525
!
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   526
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   527
make_dot_proto_mappings
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   528
    ^ Dictionary new
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   529
        at: #'TAB' put: ( Character tab asString );
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   530
        at: #'TOP' put: ( self unixPathToTop );
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   531
        at: #'SUBDIRECTORIES' put: [self generateSubDirectories];
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   532
        at: #'LOCAL_INCLUDES' put: [self generateUnixLocalIncludes];
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   533
        at: #'LOCAL_DEFINES' put: '';
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   534
        at: #'COMMONSYMFLAG' put: (self commonSymbolsFlag);
9594
40da6ee6b391 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9593
diff changeset
   535
        at: #'HEADEROUTPUTARG' put: (self headerFileOutputArg);
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   536
        yourself
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   537
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   538
    "Created: / 09-08-2006 / 11:20:45 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   539
    "Modified: / 09-08-2006 / 16:44:48 / fm"
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   540
    "Modified: / 18-08-2006 / 12:59:05 / cg"
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   541
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   542
b17358de5730 initial checkin
fm
parents:
diff changeset
   543
make_dot_spec_mappings
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   544
    |d|
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   545
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   546
    d := super make_dot_spec_mappings.
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   547
    d
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   548
        at: #'LIBRARY_NAME' put: ( self libraryName );
9594
40da6ee6b391 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9593
diff changeset
   549
        at: #'OBJECTS' put: [self generateObjects_make_dot_spec];
40da6ee6b391 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9593
diff changeset
   550
        yourself.
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   551
    ^ d
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   552
b17358de5730 initial checkin
fm
parents:
diff changeset
   553
    "Created: / 09-08-2006 / 11:21:06 / fm"
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   554
    "Modified: / 18-08-2006 / 11:45:18 / cg"
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   555
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   556
b17358de5730 initial checkin
fm
parents:
diff changeset
   557
nt_dot_def_mappings
b17358de5730 initial checkin
fm
parents:
diff changeset
   558
b17358de5730 initial checkin
fm
parents:
diff changeset
   559
^Dictionary new
b17358de5730 initial checkin
fm
parents:
diff changeset
   560
    at: #'LIBRARY_NAME' put: [self libraryName];
9504
b89c84c60e86 *** empty log message ***
fm
parents: 9503
diff changeset
   561
    at: #'DESCRIPTION' put: [self description storeString];
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   562
    at: #'VERSION_NUMBER' put: [self versionNumber];
b17358de5730 initial checkin
fm
parents:
diff changeset
   563
    yourself
b17358de5730 initial checkin
fm
parents:
diff changeset
   564
b17358de5730 initial checkin
fm
parents:
diff changeset
   565
    "Created: / 09-08-2006 / 11:21:21 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   566
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   567
b17358de5730 initial checkin
fm
parents:
diff changeset
   568
nt_dot_mak_mappings
9590
4b6cfa035ecb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9586
diff changeset
   569
    |d resFileName|
4b6cfa035ecb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9586
diff changeset
   570
4b6cfa035ecb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9586
diff changeset
   571
    resFileName := (self package copyFrom:(self package lastIndexOfAny:':/')+1),'.res'.
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   572
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   573
    d := super nt_dot_mak_mappings.
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   574
    d
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   575
        at: #'LOCAL_INCLUDES' put: [self generateMsdosLocalIncludes];
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   576
        at: #'COMMONSYMFLAG' put: (self commonSymbolsFlag);
9594
40da6ee6b391 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9593
diff changeset
   577
        at: #'HEADEROUTPUTARG' put: (self headerFileOutputArg);
40da6ee6b391 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9593
diff changeset
   578
        at: #'RESFILENAME' put: resFileName;
40da6ee6b391 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9593
diff changeset
   579
        yourself.
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   580
    ^ d.
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   581
b17358de5730 initial checkin
fm
parents:
diff changeset
   582
    "Created: / 09-08-2006 / 11:44:36 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   583
    "Modified: / 09-08-2006 / 20:00:01 / fm"
9590
4b6cfa035ecb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9586
diff changeset
   584
    "Modified: / 18-08-2006 / 17:20:25 / cg"
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   585
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   586
b17358de5730 initial checkin
fm
parents:
diff changeset
   587
objectLine_make_dot_spec_mappings: aClassName
b17358de5730 initial checkin
fm
parents:
diff changeset
   588
b17358de5730 initial checkin
fm
parents:
diff changeset
   589
^Dictionary new                                               
9608
9dbec800d20e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9606
diff changeset
   590
    at: #'CLASSFILE' put: [(Smalltalk classNamed:aClassName) classFilename asFilename withoutSuffix baseName];
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   591
    yourself
b17358de5730 initial checkin
fm
parents:
diff changeset
   592
b17358de5730 initial checkin
fm
parents:
diff changeset
   593
    "Created: / 08-08-2006 / 20:17:28 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   594
    "Modified: / 09-08-2006 / 18:26:52 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   595
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   596
9530
fm
parents: 9529
diff changeset
   597
st2c:aString
fm
parents: 9529
diff changeset
   598
        ^ (aString asString
fm
parents: 9529
diff changeset
   599
            copyReplaceString:'_' withString:('_',($_ codePoint printStringRadix:8)))
fm
parents: 9529
diff changeset
   600
                replaceAny:':' with:$_
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   601
! !
b17358de5730 initial checkin
fm
parents:
diff changeset
   602
9568
7d41a61ebd34 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9558
diff changeset
   603
!LibraryDefinition class methodsFor:'mappings support'!
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   604
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   605
commonSymbolsFlag
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   606
    "some libraries are compiled with COMMONSYMBOLS -
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   607
     This saves a lot of space in the generated dll/so files;
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   608
     However, it also requires the librun to be rebuilt, whenever one of
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   609
     the commonSymbols-libs changes.
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   610
     Therefore, NEVER do this for end-user or application libraries;
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   611
     ONLY do it for a subset of the predefined, exept-provided standard stx libraries"
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   612
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   613
    (
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   614
        #(
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   615
            'stx:libbasic'        'stx:libview'         'stx:libtool'   
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   616
            'stx:libbasic2'       'stx:libview2'        'stx:libtool2'
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   617
            'stx:libbasic3'       'stx:libwidg'         'stx:libhtml'
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   618
            'stx:libcomp'         'stx:libwidg2'        'stx:libui'
9596
8c5b666db3c7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9594
diff changeset
   619
            'stx:libboss'         'stx:libdb'
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   620
        )
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   621
    includes:self package) ifTrue:[
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   622
        ^ '$(COMMONSYMBOLS)'
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   623
    ].
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   624
    ^ ''
9547
d39be0b83b82 *** empty log message ***
fm
parents: 9543
diff changeset
   625
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   626
    "Created: / 18-08-2006 / 13:01:52 / cg"
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   627
!
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   628
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   629
generateClassLines_libInit_dot_cc
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   630
    ^ String streamContents:[:s |
9582
8753d32d0969 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9576
diff changeset
   631
        |putLineForClassName|
8753d32d0969 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9576
diff changeset
   632
8753d32d0969 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9576
diff changeset
   633
        putLineForClassName := [:className | 
8753d32d0969 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9576
diff changeset
   634
                |newClassLine mappings|
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   635
9582
8753d32d0969 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9576
diff changeset
   636
                mappings := self classLine_libInit_dot_cc_mappings: className.
8753d32d0969 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9576
diff changeset
   637
                newClassLine := self replaceMappings:mappings in:self classLine_libInit_dot_cc.
8753d32d0969 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9576
diff changeset
   638
                s nextPutLine: newClassLine 
8753d32d0969 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9576
diff changeset
   639
            ].
8753d32d0969 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9576
diff changeset
   640
9616
7bd19460f53f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9613
diff changeset
   641
        self common_compiled_classNames do:putLineForClassName.
7bd19460f53f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9613
diff changeset
   642
9606
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   643
        #(
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   644
                ('UNIX'  #unix)
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   645
                ('WIN32' #win32)
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   646
                ('VMS'   #vms)
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   647
                ('BEOS'  #beos)
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   648
        ) pairsDo:[:ifdef :id|
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   649
            |classes|
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   650
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   651
            classes := self compiled_classNamesForArchitecture:id.    
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   652
            classes notEmpty ifTrue:[
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   653
                s nextPutLine: '#ifdef ',ifdef.
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   654
                classes do:putLineForClassName.
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   655
                s nextPutLine: '#endif /* ',ifdef,' */'.
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   656
            ].
9582
8753d32d0969 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9576
diff changeset
   657
        ].
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   658
    ]
b17358de5730 initial checkin
fm
parents:
diff changeset
   659
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   660
    "
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   661
     bosch_dapasx_datenbasis  generateClassLines_libInit_dot_cc
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   662
     bosch_dapasx_kernel  generateClassLines_libInit_dot_cc
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   663
     stx_libbasic3 generateClassLines_libInit_dot_cc
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   664
    "
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   665
b17358de5730 initial checkin
fm
parents:
diff changeset
   666
    "Created: / 09-08-2006 / 11:21:48 / fm"
9547
d39be0b83b82 *** empty log message ***
fm
parents: 9543
diff changeset
   667
    "Modified: / 16-08-2006 / 18:52:10 / User"
9616
7bd19460f53f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9613
diff changeset
   668
    "Modified: / 21-08-2006 / 18:47:21 / cg"
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   669
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   670
b17358de5730 initial checkin
fm
parents:
diff changeset
   671
generateExtensionLine_libInit_dot_cc
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   672
    |mappings|
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   673
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   674
    ^self extensionMethodNames isEmpty
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   675
        ifTrue:['']
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   676
        ifFalse:[ 
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   677
            mappings := self extensionLine_libInit_dot_cc_mappings.
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   678
            self replaceMappings: mappings in: self extensionLine_libInit_dot_cc.]
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   679
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   680
    "
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   681
     DapasXProject generateExtensionLine_libInit_dot_cc
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   682
     DapasX_Datenbasis generateExtensionLine_libInit_dot_cc
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   683
    "
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   684
b17358de5730 initial checkin
fm
parents:
diff changeset
   685
    "Created: / 09-08-2006 / 11:23:34 / fm"
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   686
    "Modified: / 18-08-2006 / 12:00:18 / cg"
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   687
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   688
9503
fd9bf4b0b073 *** empty log message ***
fm
parents: 9502
diff changeset
   689
generateMsdosLocalIncludes
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   690
    ^ String streamContents:[:s |
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   691
        self searchForProjectsWhichProvideHeaderFiles
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   692
            do:[:includeProjectName |    
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   693
                s nextPutAll:' -I',(self msdosPathToPackage: includeProjectName) 
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   694
            ]
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   695
    ]
b17358de5730 initial checkin
fm
parents:
diff changeset
   696
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   697
    "
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   698
     DapasXProject generateLocalIncludes
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   699
     DapasX_Datenbasis generateLocalIncludes
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   700
    "
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   701
b17358de5730 initial checkin
fm
parents:
diff changeset
   702
    "Created: / 09-08-2006 / 16:46:49 / fm"
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   703
    "Modified: / 18-08-2006 / 11:58:40 / cg"
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   704
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   705
b17358de5730 initial checkin
fm
parents:
diff changeset
   706
generateObjects_make_dot_spec 
9504
b89c84c60e86 *** empty log message ***
fm
parents: 9503
diff changeset
   707
    |pivateClassesOf classes|
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   708
9606
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   709
    classes := self compiled_classes_common.
9504
b89c84c60e86 *** empty log message ***
fm
parents: 9503
diff changeset
   710
    pivateClassesOf := IdentityDictionary new.
b89c84c60e86 *** empty log message ***
fm
parents: 9503
diff changeset
   711
    classes do:[:each | pivateClassesOf at:each put:(each allPrivateClasses)].
b89c84c60e86 *** empty log message ***
fm
parents: 9503
diff changeset
   712
b89c84c60e86 *** empty log message ***
fm
parents: 9503
diff changeset
   713
    classes topologicalSort:[:a :b |
b89c84c60e86 *** empty log message ***
fm
parents: 9503
diff changeset
   714
        "/ a must come before b iff:
b89c84c60e86 *** empty log message ***
fm
parents: 9503
diff changeset
   715
        "/    b is a subclass of a
b89c84c60e86 *** empty log message ***
fm
parents: 9503
diff changeset
   716
        "/    b has a private class which is a subclass of a
b89c84c60e86 *** empty log message ***
fm
parents: 9503
diff changeset
   717
b89c84c60e86 *** empty log message ***
fm
parents: 9503
diff changeset
   718
        |mustComeBefore pivateClassesOfB|
9533
fae577b43add *** empty log message ***
fm
parents: 9530
diff changeset
   719
fae577b43add *** empty log message ***
fm
parents: 9530
diff changeset
   720
        mustComeBefore := false.                        
fae577b43add *** empty log message ***
fm
parents: 9530
diff changeset
   721
        (a isSharedPool and:[(b sharedPools includes: a name)]) ifTrue:[
fae577b43add *** empty log message ***
fm
parents: 9530
diff changeset
   722
            mustComeBefore := true
fae577b43add *** empty log message ***
fm
parents: 9530
diff changeset
   723
        ].
fae577b43add *** empty log message ***
fm
parents: 9530
diff changeset
   724
fae577b43add *** empty log message ***
fm
parents: 9530
diff changeset
   725
        mustComeBefore := mustComeBefore or:[b isSubclassOf:a].
9504
b89c84c60e86 *** empty log message ***
fm
parents: 9503
diff changeset
   726
        pivateClassesOfB := pivateClassesOf at:b.
b89c84c60e86 *** empty log message ***
fm
parents: 9503
diff changeset
   727
        pivateClassesOfB do:[:eachClassInB |
b89c84c60e86 *** empty log message ***
fm
parents: 9503
diff changeset
   728
            mustComeBefore := mustComeBefore or:[eachClassInB isSubclassOf:a]
b89c84c60e86 *** empty log message ***
fm
parents: 9503
diff changeset
   729
        ].
b89c84c60e86 *** empty log message ***
fm
parents: 9503
diff changeset
   730
        mustComeBefore
b89c84c60e86 *** empty log message ***
fm
parents: 9503
diff changeset
   731
    ].
b89c84c60e86 *** empty log message ***
fm
parents: 9503
diff changeset
   732
b89c84c60e86 *** empty log message ***
fm
parents: 9503
diff changeset
   733
    ^ String streamContents:[:s |
9606
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   734
        |putLineForClass sysDepOrNil|
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   735
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   736
        putLineForClass := 
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   737
            [:eachClass |
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   738
                |mappings newObjectLine|
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   739
                mappings := self objectLine_make_dot_spec_mappings: eachClass name.
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   740
                newObjectLine := self replaceMappings: mappings in: self objectLine_make_dot_spec.
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   741
                s nextPutLine:newObjectLine. 
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   742
            ].
9504
b89c84c60e86 *** empty log message ***
fm
parents: 9503
diff changeset
   743
9606
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   744
        sysDepOrNil := nil.
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   745
        #(
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   746
                ('UNIX'  #unix)
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   747
                ('WIN32' #win32)
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   748
                ('VMS'   #vms)
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   749
                ('BEOS'  #beos)
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   750
        ) pairsDo:[:def :id|
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   751
            |depClasses|
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   752
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   753
            depClasses := self compiled_classesForArchitecture:id.    
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   754
            depClasses notEmpty ifTrue:[
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   755
                sysDepOrNil := def,'_OBJS'.
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   756
                s nextPutLine:sysDepOrNil,'= \'.
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   757
                depClasses do:putLineForClass.
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   758
                s cr.
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   759
                s cr.
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   760
            ]
9534
b326ffacb811 *** empty log message ***
fm
parents: 9533
diff changeset
   761
        ].
9606
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   762
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   763
        s nextPutLine:'COMMON_OBJS= \'.
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   764
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   765
        classes do:putLineForClass.
9534
b326ffacb811 *** empty log message ***
fm
parents: 9533
diff changeset
   766
        self extensionMethodNames notEmpty
b326ffacb811 *** empty log message ***
fm
parents: 9533
diff changeset
   767
            ifTrue:[
b326ffacb811 *** empty log message ***
fm
parents: 9533
diff changeset
   768
                s nextPutLine:'    extensions.$(O) \'. 
9606
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   769
            ].
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   770
        s cr.
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   771
    ]
b17358de5730 initial checkin
fm
parents:
diff changeset
   772
9606
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   773
    "
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   774
     bosch_dapasx_hw_schnittstellen_Definition generateObjects_make_dot_spec
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   775
     DapasXProject generateObjects_make_dot_spec
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   776
     stx_libbasic3 generateObjects_make_dot_spec
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   777
    "
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   778
b17358de5730 initial checkin
fm
parents:
diff changeset
   779
    "Created: / 09-08-2006 / 11:24:39 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   780
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   781
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   782
generateSubDirectories
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   783
    ^ String streamContents:[:s |
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   784
        self subProjects 
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   785
            do:[:subProjectName |    
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   786
                s space; nextPutAll:subProjectName
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   787
            ]
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   788
    ]
b17358de5730 initial checkin
fm
parents:
diff changeset
   789
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   790
    "
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   791
     DapasXProject generateSubDirectories
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   792
     DapasX_Datenbasis generateSubDirectories
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   793
    "
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   794
b17358de5730 initial checkin
fm
parents:
diff changeset
   795
    "Created: / 09-08-2006 / 11:26:59 / fm"
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   796
    "Modified: / 18-08-2006 / 11:59:32 / cg"
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   797
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   798
9503
fd9bf4b0b073 *** empty log message ***
fm
parents: 9502
diff changeset
   799
generateUnixLocalIncludes
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   800
    ^ String streamContents:[:s |
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   801
        self searchForProjectsWhichProvideHeaderFiles
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   802
            do:[:includeProjectName |    
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   803
                s nextPutAll:' -I',(self unixPathToPackage: includeProjectName) 
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   804
            ]
9503
fd9bf4b0b073 *** empty log message ***
fm
parents: 9502
diff changeset
   805
    ]
fd9bf4b0b073 *** empty log message ***
fm
parents: 9502
diff changeset
   806
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   807
    "
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   808
     DapasXProject generateLocalIncludes
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   809
     DapasX_Datenbasis generateLocalIncludes
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   810
    "
9503
fd9bf4b0b073 *** empty log message ***
fm
parents: 9502
diff changeset
   811
fd9bf4b0b073 *** empty log message ***
fm
parents: 9502
diff changeset
   812
    "Created: / 09-08-2006 / 16:46:49 / fm"
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   813
    "Modified: / 18-08-2006 / 11:58:45 / cg"
9594
40da6ee6b391 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9593
diff changeset
   814
!
40da6ee6b391 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9593
diff changeset
   815
40da6ee6b391 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9593
diff changeset
   816
headerFileOutputArg
40da6ee6b391 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9593
diff changeset
   817
    "all stx stuff goes to the common include directory.
40da6ee6b391 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9593
diff changeset
   818
     Everything else is left locally"
40da6ee6b391 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9593
diff changeset
   819
40da6ee6b391 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9593
diff changeset
   820
    (
40da6ee6b391 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9593
diff changeset
   821
        #(
40da6ee6b391 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9593
diff changeset
   822
            'stx:libbasic'        'stx:libview'         'stx:libtool'   
40da6ee6b391 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9593
diff changeset
   823
            'stx:libbasic2'       'stx:libview2'        'stx:libtool2'
40da6ee6b391 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9593
diff changeset
   824
            'stx:libbasic3'       'stx:libwidg'         'stx:libhtml'
40da6ee6b391 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9593
diff changeset
   825
            'stx:libcomp'         'stx:libwidg2'        'stx:libui'
9596
8c5b666db3c7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9594
diff changeset
   826
            'stx:libboss'         'stx:libdb'
9594
40da6ee6b391 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9593
diff changeset
   827
        )
40da6ee6b391 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9593
diff changeset
   828
    includes:self package) ifTrue:[
40da6ee6b391 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9593
diff changeset
   829
        ^ '-H$(INCLUDE)'
40da6ee6b391 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9593
diff changeset
   830
    ].
40da6ee6b391 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9593
diff changeset
   831
    ^ '-H.'
40da6ee6b391 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9593
diff changeset
   832
40da6ee6b391 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9593
diff changeset
   833
    "Created: / 18-08-2006 / 13:01:52 / cg"
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   834
! !
b17358de5730 initial checkin
fm
parents:
diff changeset
   835
9568
7d41a61ebd34 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9558
diff changeset
   836
!LibraryDefinition class methodsFor:'sanity checks'!
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   837
b17358de5730 initial checkin
fm
parents:
diff changeset
   838
searchForInconsistencies
b17358de5730 initial checkin
fm
parents:
diff changeset
   839
    self searchForNeverCompiledSuperclasses.
b17358de5730 initial checkin
fm
parents:
diff changeset
   840
b17358de5730 initial checkin
fm
parents:
diff changeset
   841
"
b17358de5730 initial checkin
fm
parents:
diff changeset
   842
    self searchForInconsistencies
b17358de5730 initial checkin
fm
parents:
diff changeset
   843
    DapasX_Datenbasis searchForInconsistencies  
b17358de5730 initial checkin
fm
parents:
diff changeset
   844
"
b17358de5730 initial checkin
fm
parents:
diff changeset
   845
b17358de5730 initial checkin
fm
parents:
diff changeset
   846
    "Created: / 09-08-2006 / 16:30:46 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   847
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   848
b17358de5730 initial checkin
fm
parents:
diff changeset
   849
searchForNeverCompiledSuperclasses
9495
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   850
      self compiled_classesDo:[:includedClass | 
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   851
            includedClass allSuperclassesDo:[:eachSuperClass |
b17358de5730 initial checkin
fm
parents:
diff changeset
   852
                eachSuperClass package == Project noProjectID ifTrue:[ 
b17358de5730 initial checkin
fm
parents:
diff changeset
   853
                    self inconsistency:'uncompiled superclass: ' , eachSuperClass name
b17358de5730 initial checkin
fm
parents:
diff changeset
   854
                ].
b17358de5730 initial checkin
fm
parents:
diff changeset
   855
            ]
b17358de5730 initial checkin
fm
parents:
diff changeset
   856
      ].
b17358de5730 initial checkin
fm
parents:
diff changeset
   857
b17358de5730 initial checkin
fm
parents:
diff changeset
   858
"
b17358de5730 initial checkin
fm
parents:
diff changeset
   859
    self searchForNeverCompiledSuperclasses
b17358de5730 initial checkin
fm
parents:
diff changeset
   860
    DapasX_Datenbasis searchForNeverCompiledSuperclasses  
b17358de5730 initial checkin
fm
parents:
diff changeset
   861
"
b17358de5730 initial checkin
fm
parents:
diff changeset
   862
b17358de5730 initial checkin
fm
parents:
diff changeset
   863
    "Created: / 09-08-2006 / 16:31:54 / fm"
b17358de5730 initial checkin
fm
parents:
diff changeset
   864
! !
b17358de5730 initial checkin
fm
parents:
diff changeset
   865
9568
7d41a61ebd34 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9558
diff changeset
   866
!LibraryDefinition class methodsFor:'testing'!
9558
510ca1ebce30 code cleanup
Claus Gittinger <cg@exept.de>
parents: 9547
diff changeset
   867
510ca1ebce30 code cleanup
Claus Gittinger <cg@exept.de>
parents: 9547
diff changeset
   868
isProjectDefinition
9611
855d919d5040 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9608
diff changeset
   869
    ^ self ~~ LibraryDefinition
9558
510ca1ebce30 code cleanup
Claus Gittinger <cg@exept.de>
parents: 9547
diff changeset
   870
9612
450e2a5676da *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9611
diff changeset
   871
    "
450e2a5676da *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9611
diff changeset
   872
     stx_libboss isProjectDefinition
450e2a5676da *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9611
diff changeset
   873
     ProjectDefinition isProjectDefinition
450e2a5676da *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9611
diff changeset
   874
    "
450e2a5676da *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9611
diff changeset
   875
9558
510ca1ebce30 code cleanup
Claus Gittinger <cg@exept.de>
parents: 9547
diff changeset
   876
    "Created: / 17-08-2006 / 14:11:46 / cg"
9612
450e2a5676da *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9611
diff changeset
   877
    "Modified: / 21-08-2006 / 15:50:13 / cg"
9558
510ca1ebce30 code cleanup
Claus Gittinger <cg@exept.de>
parents: 9547
diff changeset
   878
! !
510ca1ebce30 code cleanup
Claus Gittinger <cg@exept.de>
parents: 9547
diff changeset
   879
9568
7d41a61ebd34 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9558
diff changeset
   880
!LibraryDefinition class methodsFor:'update description'!
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   881
9606
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   882
classNamesAndAttributes_code
9495
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   883
    ^ String streamContents:[:s |
9606
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   884
        s nextPutLine:'classNamesAndAttributes'.
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   885
        s nextPutLine:'    ^ #('.
9606
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   886
        s tab; nextPutLine:'"/ <className> or (<className> attributes...)'.
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   887
        self searchForClasses do:[:eachClass |
9606
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   888
            |attributes specEntry|
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   889
9616
7bd19460f53f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9613
diff changeset
   890
            (eachClass isLoaded not or:[eachClass isPrivate not]) ifTrue:[
9606
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   891
                specEntry := self classNamesAndAttributes detect:[:entry | entry first = eachClass name] ifNone:nil.
9617
edf60cb58ef7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9616
diff changeset
   892
                specEntry isNil ifTrue:[
edf60cb58ef7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9616
diff changeset
   893
                    eachClass isLoaded ifFalse:[
edf60cb58ef7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9616
diff changeset
   894
                        attributes := #( autoload ).
edf60cb58ef7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9616
diff changeset
   895
                    ].
edf60cb58ef7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9616
diff changeset
   896
                ] ifFalse:[
9606
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   897
                    attributes := specEntry copyFrom:2.
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   898
                ].
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   899
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   900
                s tab.
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   901
                attributes isEmptyOrNil ifTrue:[
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   902
                    s nextPutAll:eachClass name asString storeString.
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   903
                ] ifFalse:[
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   904
                    s nextPutAll:'('; nextPutAll:eachClass name asString storeString.
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   905
                    s nextPutAll:' '.
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   906
                    attributes do:[:eachAttribute | s nextPutAll:eachAttribute storeString.].
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   907
                    s nextPutAll:')'.
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   908
                ].
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   909
                s cr.
9495
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   910
             ]
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   911
        ].
9606
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   912
        s nextPutLine:'    )'
9495
36b012644f9d *** empty log message ***
fm
parents: 9493
diff changeset
   913
    ].
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   914
b17358de5730 initial checkin
fm
parents:
diff changeset
   915
"
9606
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   916
    stx_libbasic3 classNamesAndAttributes_code
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   917
"
b17358de5730 initial checkin
fm
parents:
diff changeset
   918
b17358de5730 initial checkin
fm
parents:
diff changeset
   919
    "Modified: / 08-08-2006 / 19:24:34 / fm"
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   920
    "Created: / 17-08-2006 / 21:03:07 / cg"
9617
edf60cb58ef7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9616
diff changeset
   921
    "Modified: / 21-08-2006 / 19:16:14 / cg"
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   922
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   923
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   924
extensionMethodNames_code
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   925
    ^ String streamContents:[:s |
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   926
        s nextPutLine:'extensionMethodNames'.
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   927
        s nextPutLine:'    ^ #('.
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   928
        self searchForExtensions do:[:eachMethod | 
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   929
            s nextPutAll:eachMethod mclass name storeString. 
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   930
            s nextPutAll:' '.
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   931
            s nextPutLine: eachMethod selector storeString. 
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   932
        ]. 
9606
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   933
        s nextPutLine:'    )'
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   934
    ].
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   935
b17358de5730 initial checkin
fm
parents:
diff changeset
   936
"
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   937
    self extensionMethodNames_code
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   938
"
b17358de5730 initial checkin
fm
parents:
diff changeset
   939
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   940
    "Created: / 17-08-2006 / 21:21:48 / cg"
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   941
!
b17358de5730 initial checkin
fm
parents:
diff changeset
   942
9514
761b3f12d37c hook for compilation
Claus Gittinger <cg@exept.de>
parents: 9513
diff changeset
   943
forEachMethodsCodeToCompileDo:aTwoArgBlock
9586
eb87399baea3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9582
diff changeset
   944
    super forEachMethodsCodeToCompileDo:aTwoArgBlock.
eb87399baea3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9582
diff changeset
   945
9514
761b3f12d37c hook for compilation
Claus Gittinger <cg@exept.de>
parents: 9513
diff changeset
   946
    aTwoArgBlock 
9606
229eb8b1cfd5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9604
diff changeset
   947
        value:self classNamesAndAttributes_code
9534
b326ffacb811 *** empty log message ***
fm
parents: 9533
diff changeset
   948
        value:'description'.
9514
761b3f12d37c hook for compilation
Claus Gittinger <cg@exept.de>
parents: 9513
diff changeset
   949
9586
eb87399baea3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9582
diff changeset
   950
    aTwoArgBlock 
9576
9ff741fe7271 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9568
diff changeset
   951
        value: self extensionMethodNames_code
9534
b326ffacb811 *** empty log message ***
fm
parents: 9533
diff changeset
   952
        value: 'description'.
9514
761b3f12d37c hook for compilation
Claus Gittinger <cg@exept.de>
parents: 9513
diff changeset
   953
761b3f12d37c hook for compilation
Claus Gittinger <cg@exept.de>
parents: 9513
diff changeset
   954
    "Created: / 10-08-2006 / 16:35:47 / cg"
9586
eb87399baea3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9582
diff changeset
   955
    "Modified: / 18-08-2006 / 16:22:49 / cg"
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   956
! !
b17358de5730 initial checkin
fm
parents:
diff changeset
   957
9568
7d41a61ebd34 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9558
diff changeset
   958
!LibraryDefinition class methodsFor:'documentation'!
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   959
b17358de5730 initial checkin
fm
parents:
diff changeset
   960
version
9617
edf60cb58ef7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9616
diff changeset
   961
    ^ '$Header: /cvs/stx/stx/libbasic/LibraryDefinition.st,v 1.37 2006-08-21 17:16:16 cg Exp $'
9493
b17358de5730 initial checkin
fm
parents:
diff changeset
   962
! !