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