hg/stx-libbasic: comparison LibraryDefinition.st

equal deleted inserted replaced

-:353ef8cc798f
+:9ff741fe7271
 !LibraryDefinition class methodsFor:'defaults'!
 defaultDescription
 ^ 'a classLibrary'
+! !
+!LibraryDefinition class methodsFor:'description - project information'!
+description
+"Returns a description string which will appear in nt.def / bc.def"
+self module = 'stx' ifTrue:[
+^ 'Smalltalk/X Class library'
+].
+self subclassResponsibility
+"Created: / 17-08-2006 / 20:52:16 / cg"
 ! !
 !LibraryDefinition class methodsFor:'file generation'!
 fileNamesToGenerate
 #('Make.proto' #'generate_make_dot_proto')
 #('Make.spec' #'generate_make_dot_spec')
 #('libInit.cc' #'generate_libInit_dot_cc')
 #('bc.def' #'generate_bc_dot_def')
 #('nt.mak' #'generate_nt_dot_mak')
+"
 #('nt.def' #'generate_nt_dot_def')
+"
 #('abbrev.stc' #'generate_abbrev_dot_stc')
+#('bmake.bat'  #'generate_bmake_dot_mak')
 )
+"Modified: / 17-08-2006 / 20:03:00 / cg"
 ! !
 !LibraryDefinition class methodsFor:'file templates'!
 bc_dot_def
+"the template code for the bc.def file"
 ^
 'LIBRARY        %(LIBRARY_NAME)
 DESCRIPTION     %(DESCRIPTION)
 CODE            PRELOAD MOVEABLE DISCARDABLE
 __%(C_LIBRARY_NAME)_Init     @1
 '
 "Created: / 08-08-2006 / 12:26:58 / fm"
 "Modified: / 08-08-2006 / 19:32:27 / fm"
+"Modified: / 17-08-2006 / 20:05:24 / cg"
 !
 classLine_libInit_dot_cc
 ^'_%(CLASS)_Init(pass,__pRT__,snd);'
 "Created: / 08-08-2006 / 15:48:56 / fm"
 "Modified: / 08-08-2006 / 19:32:33 / fm"
 !
 libInit_dot_cc
+"the template code for the libInit.cc file"
 ^
 '/*
+* $','Header','$
+*
 * DO NOT EDIT
-* automagically generated from Make.proto (by make libInit.cc)
+* automagically generated from the projectDefinition: ',self name,'.
 */
 #define __INDIRECTVMINITCALLS__
 #include <stc.h>
 #define INIT_TEXT_SECT /* as nothing */
 #ifdef WIN32
 __END_PACKAGE__();
 }'
 "Created: / 08-08-2006 / 12:40:45 / fm"
 "Modified: / 08-08-2006 / 19:33:01 / fm"
+"Modified: / 18-08-2006 / 12:57:02 / cg"
+!
+lib_dot_rc
+^
+'/*------------------------------------------------------------------------
+* $','Header','$
+*
+* DO NOT EDIT
+* automagically generated from the projectDefinition: ',self name,'.
+*------------------------------------------------------------------------*/
+// #if (__BORLANDC__ < 0x0550)
+// #include <ver.h>
+// #endif
+VS_VERSION_INFO VERSIONINFO
+FILEVERSION     %(FILEVERSION)
+PRODUCTVERSION  %(PRODUCTVERSION)
+FILEFLAGSMASK   VS_FF_DEBUG | VS_FF_PRERELEASE
+FILEFLAGS       VS_FF_PRERELEASE | VS_FF_SPECIALBUILD
+FILEOS          VOS_NT_WINDOWS32
+FILETYPE        %(FILETYPE)
+FILESUBTYPE     VS_USER_DEFINED
+BEGIN
+BLOCK "StringFileInfo"
+BEGIN
+BLOCK "040904E4"
+BEGIN
+VALUE "CompanyName", %(COMPANYNAME)
+VALUE "FileDescription", "Smalltalk/X Additional Developer Basic Classes Library\0"
+VALUE "FileVersion", "5.2.8.1\0"
+VALUE "InternalName", "libbasic3\0"
+VALUE "LegalCopyright", "Copyright eXept Software AG 1998-2006\0"
+VALUE "ProductName", "Smalltalk/X\0"
+VALUE "ProductVersion", "5.2.8.1\0"
+END
+END
+BLOCK "VarFileInfo"
+BEGIN                               //  Language   |    Translation
+VALUE "Translation", 0x409, 0x4E4 // U.S. English, Windows Multilingual
+END
+END
+'
+"Created: / 17-08-2006 / 19:37:50 / cg"
+"Modified: / 18-08-2006 / 12:57:09 / cg"
 !
 make_dot_proto
 ^
-'#
+'# $','Header','$
+#
+# DO NOT EDIT
+# automagically generated from the projectDefinition: ',self name,'.
+#
 # Warning: once you modify this file, do not rerun
-# stmkmp again - otherwise, your changes are lost.
+# stmkmp or projectDefinition-build again - otherwise, your changes are lost.
 #
 # The Makefile as generated by this Make.proto supports the following targets:
 #    make         - compile all st-files to a classLib
-#    make install - install the classLib in /opt/smalltalk/...
 #    make clean   - clean all temp files
 #    make clobber - clean all
+#
+# This file contains definitions for Unix based platforms.
 #
 # position (of this package) in directory hierarchy:
 # (must point to ST/X top directory, for tools and includes)
 TOP=%(TOP)
 postMake:: cleanjunk
 cleanjunk::
 clean::
--rm -f *.o *.H
+%(TAB)-rm -f *.o *.H
 clobber::
--rm -f *.so *.dll
+%(TAB)-rm -f *.so *.dll
 ',
 "
 $(INSTALLBASE)::
-@test -d $@ || mkdir $@
+%(TAB)@test -d $@ || mkdir $@
 $(INSTALLBASE)/packages:: $(INSTALLBASE)
-@test -d $@ || mkdir $@
+%(TAB)@test -d $@ || mkdir $@
 $(INSTALLBASE)/packages/$(MODULE):: $(INSTALLBASE)/packages
-@test -d $@ || mkdir $@
+%(TAB)@test -d $@ || mkdir $@
 $(INSTALLBASE)/packages/$(MODULE)/dapasx:: $(INSTALLBASE)/packages/$(MODULE)
-@test -d $@ || mkdir $@
+%(TAB)@test -d $@ || mkdir $@
 $(INSTALLBASE)/packages/$(MODULE)/dapasx/interactiver_editor:: $(INSTALLBASE)/packages/$(MODULE)/dapasx
-@test -d $@ || mkdir $@
+%(TAB)@test -d $@ || mkdir $@
 $(INSTALLBASE)/packages/$(MODULE)/$(MODULE_DIR):: $(INSTALLBASE)/packages/$(MODULE)
-@test -d $@ || mkdir $@
+%(TAB)@test -d $@ || mkdir $@
 "
 '
 # if other things are to be compiled,
 # add target definitions here,
 # and list them in LOCAL_EXTRA_TARGETS above.
 # (care for make syntax - TABS are required in the actions)
 # foo:  foo.o
-#         $(CC) -o foo foo.o
+#%(TAB)$(CC) -o foo foo.o
 # ''make depend'' will add dependency info between
 # BEGIN...END below
 #
 # BEGINMAKEDEPEND --- do not remove this line; make depend needs it
 '
 "Created: / 08-08-2006 / 20:45:36 / fm"
 "Modified: / 09-08-2006 / 16:50:23 / fm"
+"Modified: / 18-08-2006 / 12:57:19 / cg"
 !
 make_dot_spec
 ^
-'#
+'# $','Header','$
+#
+# DO NOT EDIT
+# automagically generated from the projectDefinition: ',self name,'.
+#
+# Warning: once you modify this file, do not rerun
+# stmkmp or projectDefinition-build again - otherwise, your changes are lost.
+#
 # This file contains specifications which are common to all platforms.
 #
-# Warning: once you modify this file, do not rerun
-# stmkmp again - otherwise, your changes are lost.
+# Do NOT CHANGE THESE DEFINITIONS
-#
+# (otherwise, ST/X will have a hard time to find out the packages location from its packageID,
-# This file contains definitions for Unix based platforms.
+#  to find the source code of a class and to find the library for a package)
-#
-# module and directory-in-module;
-# these should correspond to the directory hierarchy
-# location (otherwise, ST/X will have a hard time to
-# find out the packages location from its packageID)
 MODULE=%(MODULE)
 MODULE_DIR=%(MODULE_DIRECTORY)
-# the name of your classLibrary:
-# ********** REQUIRED: CHECK the next line ***
 LIBNAME=%(LIBRARY_NAME)
-# the package is stored as an ID in classes and methods
-# to identify code belonging to this project.
-# It also specifies the position in the source repository
-# and directory tree, when packages are loaded by packageID.
-# ********** REQUIRED: CHECK the next line ***
 PACKAGE=$(MODULE):$(MODULE_DIR)
-# Argument(s) to the stc compiler.
+# Argument(s) to the stc compiler (stc --usage).
 #  -H.         : create header files locally
 #                (if removed, they will be created as common
 #  -Pxxx       : defines the package
 #  -Zxxx       : a prefix for variables within the classLib
 #  -Dxxx       : defines passed to to CC for inline C-code
 #  +inlineMath : additionally inline some floatPnt math stuff
 #
 # ********** OPTIONAL: MODIFY the next line(s) ***
 # STCLOCALOPTIMIZATIONS=+optinline +inlineNew
 # STCLOCALOPTIMIZATIONS=+optspace3
-STCLOCALOPTIMIZATIONS=+optspace3
+STCLOCALOPTIMIZATIONS=%(STCOPTIMIZATIONOPTIONS)
-# Argument(s) to the stc compiler.
+# Argument(s) to the stc compiler (stc --usage).
 #  -warn            : no warnings
 #  -warnNonStandard : no warnings about ST/X extensions
 #  -warnEOLComments : no warnings about EOL comment extension
 #  -warnPrivacy     : no warnings about privateClass extension
 #
 # ********** OPTIONAL: MODIFY the next line(s) ***
 # STCWARNINGS=-warn
 # STCWARNINGS=-warnNonStandard
 # STCWARNINGS=-warnEOLComments
-STCWARNINGS=
+STCWARNINGS=%(STCWARNINGOPTIONS)
 OBJS= \
 %(OBJECTS)
 '
 "Created: / 08-08-2006 / 19:31:29 / fm"
 "Modified: / 09-08-2006 / 15:10:57 / fm"
+"Modified: / 18-08-2006 / 12:56:33 / cg"
 !
 nt_dot_def
 ^
 !
 nt_dot_mak
 ^
-'#
+'# $','Header','$
+#
+# DO NOT EDIT
+# automagically generated from the projectDefinition: ',self name,'.
+#
+# Warning: once you modify this file, do not rerun
+# stmkmp or projectDefinition-build again - otherwise, your changes are lost.
+#
 # This file contains make rules for the win32 platform (using borland-bcc).
 #
-# Warning: once you modify this file, do not rerun
-# stmkmp again - otherwise, your changes are lost.
-#
 TOP=%(TOP)
 !!INCLUDE $(TOP)\rules\stdHeader_nt
 !!INCLUDE Make.spec
 LOCALINCLUDES=%(LOCAL_INCLUDES)
 STCLOCALOPT=-I. $(LOCALINCLUDES) -H. $(STCLOCALOPTIMIZATIONS) $(STCWARNINGS) $(LOCALDEFINES) ''-P$(PACKAGE)'' ''-Z$(LIBNAME)'' $(COMMONSYMFLAG) $(INITCODESEPFLAG)
+RESFILENAME=$(LIBNAME).res
-ALL::  $(LIBJPEG) $(LIBDIR)\$(LIBNAME).lib $(BINDIR)\$(LIBNAME).dll
+RESFILES=%(RESFILENAME)
+ALL::  $(LIBDIR)\$(LIBNAME).lib $(BINDIR)\$(LIBNAME).dll
 !!INCLUDE $(TOP)\rules\stdRules_nt
 # BEGINMAKEDEPEND --- do not remove this line; make depend needs it
 # ENDMAKEDEPEND --- do not remove this line
 '
 "Created: / 09-08-2006 / 11:44:20 / fm"
 "Modified: / 09-08-2006 / 19:59:32 / fm"
+"Modified: / 18-08-2006 / 12:57:32 / cg"
 !
 objectLine_make_dot_spec
 ^'    %(CLASS).$(O) \'
 "Created: / 09-08-2006 / 11:20:24 / fm"
 "Modified: / 16-08-2006 / 18:19:03 / User"
 !
+lib_dot_rc_mappings
+^Dictionary new
+at: #'FILEVERSION' put: ['5,2,8,1'];
+at: #'PRODUCTVERSION' put: ['5,2,8,1'];
+at: #'FILETYPE' put: 'VFT_DLL';
+yourself
+"Created: / 17-08-2006 / 19:35:05 / cg"
+!
 make_dot_proto_mappings
+^ Dictionary new
-^Dictionary new
+at: #'TAB' put: ( Character tab asString );
-at: #'TOP' put: [self unixPathToTop];
+at: #'TOP' put: ( self unixPathToTop );
 at: #'SUBDIRECTORIES' put: [self generateSubDirectories];
 at: #'LOCAL_INCLUDES' put: [self generateUnixLocalIncludes];
-at: #'LOCAL_DEFINES' put: [''];
+at: #'LOCAL_DEFINES' put: '';
-yourself
+at: #'COMMONSYMFLAG' put: (self commonSymbolsFlag);
+yourself
 "Created: / 09-08-2006 / 11:20:45 / fm"
 "Modified: / 09-08-2006 / 16:44:48 / fm"
+"Modified: / 18-08-2006 / 12:59:05 / cg"
 !
 make_dot_spec_mappings
+|d|
-^Dictionary new
-at: #'MODULE' put: [self module];
+d := super make_dot_spec_mappings.
-at: #'MODULE_DIRECTORY' put: [self moduleDirectory];
+d
-at: #'LIBRARY_NAME' put: [self libraryName];
+at: #'LIBRARY_NAME' put: ( self libraryName );
-at: #'OBJECTS' put: [self generateObjects_make_dot_spec];
+at: #'OBJECTS' put: [self generateObjects_make_dot_spec].
-yourself
+^ d
 "Created: / 09-08-2006 / 11:21:06 / fm"
+"Modified: / 18-08-2006 / 11:45:18 / cg"
 !
 nt_dot_def_mappings
 ^Dictionary new
 "Created: / 09-08-2006 / 11:21:21 / fm"
 !
 nt_dot_mak_mappings
+|d|
-^Dictionary new
-at: #'TOP' put: [self msdosPathToTop];
+d := super nt_dot_mak_mappings.
-at: #'LOCAL_INCLUDES' put: [self generateMsdosLocalIncludes];
+d
-yourself
+at: #'LOCAL_INCLUDES' put: [self generateMsdosLocalIncludes];
+at: #'COMMONSYMFLAG' put: (self commonSymbolsFlag);
+at: #'RESFILENAME' put:'RESFILENAME'.
+^ d.
 "Created: / 09-08-2006 / 11:44:36 / fm"
 "Modified: / 09-08-2006 / 20:00:01 / fm"
+"Modified: / 18-08-2006 / 13:03:50 / cg"
 !
 objectLine_make_dot_spec_mappings: aClassName
 ^Dictionary new
 replaceAny:':' with:$_
 ! !
 !LibraryDefinition class methodsFor:'mappings support'!
+commonSymbolsFlag
+"some libraries are compiled with COMMONSYMBOLS -
+This saves a lot of space in the generated dll/so files;
+However, it also requires the librun to be rebuilt, whenever one of
+the commonSymbols-libs changes.
+Therefore, NEVER do this for end-user or application libraries;
+ONLY do it for a subset of the predefined, exept-provided standard stx libraries"
+(
+#(
+'stx:libbasic'        'stx:libview'         'stx:libtool'
+'stx:libbasic2'       'stx:libview2'        'stx:libtool2'
+'stx:libbasic3'       'stx:libwidg'         'stx:libhtml'
+'stx:libcomp'         'stx:libwidg2'        'stx:libui'
+)
+includes:self package) ifTrue:[
+^ '$(COMMONSYMBOLS)'
+].
+^ ''
+"Created: / 18-08-2006 / 13:01:52 / cg"
+!
 generateClassLines_libInit_dot_cc
+^ String streamContents:[:s |
-^self compiled_classNames
+self compiled_classNames do:[:className |
-inject: ''
+|newClassLine mappings|
-into:[:classLines :className |
-|newClassLine mappings|
+mappings := self classLine_libInit_dot_cc_mappings: className.
+newClassLine := self replaceMappings:mappings in:self classLine_libInit_dot_cc.
-mappings := self classLine_libInit_dot_cc_mappings: className.
+s nextPutLine: newClassLine
-newClassLine := self replaceMappings: mappings
+]
-in: self classLine_libInit_dot_cc.
-classLines concatenate: newClassLine
-and: String lf
 ]
 "
 bosch_dapasx_datenbasis  generateClassLines_libInit_dot_cc
 bosch_dapasx_kernel  generateClassLines_libInit_dot_cc
+stx_libbasic3 generateClassLines_libInit_dot_cc
 "
 "Created: / 09-08-2006 / 11:21:48 / fm"
 "Modified: / 16-08-2006 / 18:52:10 / User"
+"Modified: / 18-08-2006 / 11:59:44 / cg"
 !
 generateExtensionLine_libInit_dot_cc
 |mappings|
-^self extensionMethodNames isEmpty
-ifTrue:['']
+^self extensionMethodNames isEmpty
-ifFalse:[ mappings := self extensionLine_libInit_dot_cc_mappings.
+ifTrue:['']
-self replaceMappings: mappings
+ifFalse:[
-in: self extensionLine_libInit_dot_cc.]
+mappings := self extensionLine_libInit_dot_cc_mappings.
-"
+self replaceMappings: mappings in: self extensionLine_libInit_dot_cc.]
-DapasXProject generateExtensionLine_libInit_dot_cc
-DapasX_Datenbasis generateExtensionLine_libInit_dot_cc
+"
+DapasXProject generateExtensionLine_libInit_dot_cc
-"
+DapasX_Datenbasis generateExtensionLine_libInit_dot_cc
+"
 "Created: / 09-08-2006 / 11:23:34 / fm"
+"Modified: / 18-08-2006 / 12:00:18 / cg"
 !
 generateMsdosLocalIncludes
+^ String streamContents:[:s |
-^self searchForProjectsWhichProvideHeaderFiles
+self searchForProjectsWhichProvideHeaderFiles
-inject: ''
+do:[:includeProjectName |
-into:[:objectLines :includeProjectName |
+s nextPutAll:' -I',(self msdosPathToPackage: includeProjectName)
-objectLines , ' -I',(self msdosPathToPackage: includeProjectName)
+]
 ]
 "
 DapasXProject generateLocalIncludes
 DapasX_Datenbasis generateLocalIncludes
+"
-"
 "Created: / 09-08-2006 / 16:46:49 / fm"
+"Modified: / 18-08-2006 / 11:58:40 / cg"
 !
 generateObjects_make_dot_spec
 |pivateClassesOf classes|
 "
 "Created: / 09-08-2006 / 11:24:39 / fm"
 !
-generatePrerequisiteProjectsPaths
+generateSubDirectories
+^ String streamContents:[:s |
-^self prerequisiteProjects
+self subProjects
-inject: ''
+do:[:subProjectName |
-into:[:objectLines :subProjectName |
+s space; nextPutAll:subProjectName
-objectLines
+]
-concatenate: String lf
-and: ' -I'
-and: subProjectName
 ]
 "
-DapasXProject generatePrerequisiteProjectsPaths
+DapasXProject generateSubDirectories
-DapasX_Datenbasis generatePrerequisiteProjectsPaths
+DapasX_Datenbasis generateSubDirectories
+"
-"
+"Created: / 09-08-2006 / 11:26:59 / fm"
-"Created: / 09-08-2006 / 12:34:20 / fm"
+"Modified: / 18-08-2006 / 11:59:32 / cg"
 !
-generateSubDirectories
+generateUnixLocalIncludes
+^ String streamContents:[:s |
-^self subProjects
+self searchForProjectsWhichProvideHeaderFiles
-inject: ''
+do:[:includeProjectName |
-into:[:objectLines :subProjectName |
+s nextPutAll:' -I',(self unixPathToPackage: includeProjectName)
-objectLines
+]
-concatenate: ' '
-and: subProjectName
 ]
 "
-DapasXProject generateSubDirectories
+DapasXProject generateLocalIncludes
-DapasX_Datenbasis generateSubDirectories
+DapasX_Datenbasis generateLocalIncludes
+"
-"
-"Created: / 09-08-2006 / 11:26:59 / fm"
-!
-generateUnixLocalIncludes
-^self searchForProjectsWhichProvideHeaderFiles
-inject: ''
-into:[:objectLines :includeProjectName |
-objectLines , ' -I',(self unixPathToPackage: includeProjectName)
-]
-"
-DapasXProject generateLocalIncludes
-DapasX_Datenbasis generateLocalIncludes
-"
 "Created: / 09-08-2006 / 16:46:49 / fm"
-!
+"Modified: / 18-08-2006 / 11:58:45 / cg"
-prerequisiteProjectsOrdered
-^self prerequisiteProjects asSortedCollection:[:a :b | ]
-"
-DapasXProject generatePrerequisiteProjectsPaths
-DapasX_Datenbasis generatePrerequisiteProjectsPaths
-"
-"Created: / 09-08-2006 / 13:12:01 / fm"
 ! !
 !LibraryDefinition class methodsFor:'sanity checks'!
 searchForInconsistencies
 "Created: / 17-08-2006 / 14:11:46 / cg"
 ! !
 !LibraryDefinition class methodsFor:'update description'!
-autoloadedClassNamesGeneratedCodeToCompile
+autoloadedClassNames_code
-|classNamesCode|
+|compiled excluded|
-classNamesCode := 'autoloaded_classNames', String lf, '"This method has been automatically generated"'.
+compiled := self compiled_classNames.
-classNamesCode := classNamesCode, String lf, self autoloadedClassNamesGeneratedString.
+excluded := self excluded_classNames.
-^classNamesCode
-"
-DapasXProject autoloadedClassNamesGeneratedCodeToCompile
-DapasX_Datenbasis autoloadedClassNamesGeneratedCodeToCompile
-"
-"Created: / 08-08-2006 / 15:07:06 / fm"
-!
-autoloadedClassNamesGeneratedString
-| |
 ^ String streamContents:[:s |
-s nextPutAll:'^#('.
+s nextPutLine:'autoloaded_classNames'.
-self searchForClassesWithProject do:[:eachClass |
+s nextPutLine:'    ^ #('.
+self searchForClasses do:[:eachClass |
 (false "eachClass wasAutoloaded" or:[ eachClass isLoaded not ]) ifTrue:[
-(self compiled_classNames includes:eachClass name) ifFalse:[
+(compiled includes:eachClass name) ifFalse:[
-(self excluded_classNames includes:eachClass name) ifFalse:[
+(excluded includes:eachClass name) ifFalse:[
-s cr; nextPutAll:eachClass name asString storeString
+s nextPutAll:'        '; nextPutLine:eachClass name asString storeString
 ]
 ]
 ]
 ].
-s cr; nextPutAll:')'
+s nextPutLine:')'
 ].
 "
-bosch_dapasx_interactiver_editor autoloadedClassNamesGeneratedString
+DapasXProject autoloadedClassNames_code
-"
+DapasX_Datenbasis autoloadedClassNames_code
+stx_libbasic3 autoloadedClassNames_code
-"Created: / 08-08-2006 / 15:00:17 / fm"
+"
-"Modified: / 08-08-2006 / 19:24:34 / fm"
-"Modified: / 11-08-2006 / 14:01:23 / cg"
+"Created: / 17-08-2006 / 20:55:35 / cg"
 !
-classNamesGeneratedCodeToCompile
+classNames_code
-|classNamesCode|
+|autoloaded excluded|
-classNamesCode := 'compiled_classNames', String lf, '"This method has been automatically generated"'.
+autoloaded := self autoloaded_classNames.
-classNamesCode := classNamesCode, String lf, self classNamesGeneratedString.
+excluded := self excluded_classNames.
-^classNamesCode
-"
-DapasXProject Datenbasis
-DapasX_Datenbasis Datenbasis
-"
-"Created: / 08-08-2006 / 15:07:06 / fm"
-!
-classNamesGeneratedString
-| |
 ^ String streamContents:[:s |
-s nextPutAll:'^#('.
+s nextPutLine:'compiled_classNames'.
-self searchForClassesWithProject do:[:eachClass |
+s nextPutLine:'    ^ #('.
-(self autoloaded_classNames includes:eachClass name) ifFalse:[
+self searchForClasses do:[:eachClass |
-(self excluded_classNames includes:eachClass name) ifFalse:[
+eachClass isPrivate ifFalse:[
-s cr; nextPutAll:eachClass name asString storeString
+(autoloaded includes:eachClass name) ifFalse:[
+(excluded includes:eachClass name) ifFalse:[
+s nextPutAll:'        '; nextPutLine:eachClass name asString storeString
+]
 ]
 ]
 ].
-s cr; nextPutAll:')'
+s nextPutLine:')'
 ].
 "
 bosch_dapasx_interactiver_editor classNamesGeneratedString
 "
-"Created: / 08-08-2006 / 15:00:17 / fm"
 "Modified: / 08-08-2006 / 19:24:34 / fm"
-"Modified: / 11-08-2006 / 14:01:26 / cg"
+"Created: / 17-08-2006 / 21:03:07 / cg"
 !
-extensionMethodNamesGeneratedCodeToCompile
+extensionMethodNames_code
-|extensionMethodNamesCode|
-extensionMethodNamesCode := 'extensionMethodNames', String lf, '"This method has been automatically generated"'.
-extensionMethodNamesCode := extensionMethodNamesCode, String lf, self extensionMethodNamesGeneratedString.
-^extensionMethodNamesCode
-"
-DapasXProject extensionMethodNamesGeneratedCodeToCompile
-DapasX_Datenbasis extensionMethodNamesGeneratedCodeToCompile
-"
-"Created: / 08-08-2006 / 18:54:42 / fm"
-!
-extensionMethodNamesGeneratedString
 |generatedString |
-generatedString := self searchForExtensionsWithProject
+^ String streamContents:[:s |
-inject: '^#('
+s nextPutLine:'extensionMethodNames'.
-into:[:string :each |
+s nextPutLine:'    ^ #('.
-string, String lf, each mclass name asString storeString, ' #', each name ].
+self searchForExtensions do:[:eachMethod |
-^generatedString, String lf, ')'
+s nextPutAll:eachMethod mclass name storeString.
+s nextPutAll:' '.
-"
+s nextPutLine: eachMethod selector storeString.
-self extensionMethodNamesGeneratedString
+].
-"
+s nextPutLine:')'
+].
-"Created: / 08-08-2006 / 18:55:04 / fm"
+"
+self extensionMethodNames_code
+"
+"Created: / 17-08-2006 / 21:21:48 / cg"
 !
 forEachMethodsCodeToCompileDo:aTwoArgBlock
 aTwoArgBlock
-value:self autoloadedClassNamesGeneratedCodeToCompile
+value:self autoloadedClassNames_code
 value:'description'.
 aTwoArgBlock
-value: self classNamesGeneratedCodeToCompile
+value: self classNames_code
 value: 'description'.
 (self theMetaclass includesSelector:#excluded_classNames) ifFalse:[
 aTwoArgBlock
 value: 'excluded_classNames\^ #()' withCRs
 value: 'description'.
 ].
 aTwoArgBlock
-value: self extensionMethodNamesGeneratedCodeToCompile
+value: self extensionMethodNames_code
 value: 'description'.
-"/   aTwoArgBlock
+aTwoArgBlock
-"/        value: 'description ^''bla bla'''
+value: self description_code
-"/        value: 'description'
+value: 'description - project information'.
 "Created: / 10-08-2006 / 16:35:47 / cg"
+"Modified: / 17-08-2006 / 21:22:26 / cg"
 ! !
 !LibraryDefinition class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libbasic/LibraryDefinition.st,v 1.22 2006-08-17 15:24:38 cg Exp $'
+^ '$Header: /cvs/stx/stx/libbasic/LibraryDefinition.st,v 1.23 2006-08-18 11:07:23 cg Exp $'
 ! !

changeset 9576	9ff741fe7271
parent 9568	7d41a61ebd34
child 9582	8753d32d0969