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