hg/stx-libbasic: comparison Project.st

equal deleted inserted replaced

-:8616fba1e9e3
+:4ced52c817e6
 createLoadAllFile
 "creates a 'loadAll' file, which will load all classes
 of the project - this loadAll file is supposed to be located
 in the projects source directory."
-|d f out in topName classes classInfo numBad firstBad msg|
+|d f out in topName classes classInfo numBad firstBad msg methodsFile|
 classes := self classes.
 numBad := 0.
 firstBad := nil.
 cls.
 ] ifFalse:[
 clsOrSymbol
 ]
 ].
 numBad ~~ 0 ifTrue:[
 msg := 'Cannot generate ''loadAll''-file.\\'.
 msg := msg , 'Reason: Class ''' , firstBad asText allBold
 , ''' is not loaded.'.
 numBad ~~ 1 ifTrue:[
 ].
 self warn:msg withCRs.
 ^ self.
 ].
+"/ to not list private classes
+classes := classes select:[:cls | cls owningClass isNil].
 classes := classes copy topologicalSort:[:a :b | b isSubclassOf:a].
 Transcript showCR:'creating loadAll file'.
 d := directoryName asFilename.
 ].
 out nextPutAll:'"/
 "/ $' , 'Header' , '$
 "/
-"/ load-file to load code for: ' , self package , '
+"/ loadAll-file to fileIn code for: ' , self package , '
 "/
 "/ Automatically generated from project definition.
 "/
 "/
 "/ Prerequisites:
 "/
+"/ Smalltalk loadPackage:''module:directory''.
+"/ Smalltalk loadPackage:''....''.
+"/ Smalltalk loadPackage:''....''.
+!!
 "{ package:''' , self package , ''' }"!!
 |files|
-''loading package ' , self package , ' ...'' printCR.
+''loading package ' , self package , ' ...'' infoPrintCR.
 files := #(
 '.
 classes do:[:cls |
 out nextPutAll:'  '''.
 cls nameWithoutNameSpacePrefix printOn:out.
 out nextPutAll:'.st'''.
 out cr.
 ].
+(methodsFile := self propertyAt:#methodsFile) notNil ifTrue:[
+out
+nextPutAll:'  ''';
+nextPutAll:methodsFile;
+nextPutAll:''''.
+].
 out nextPutAll:') asOrderedCollection.
 (Smalltalk loadClassLibraryIfAbsent:''' , self name , ''') ifTrue:[
 |handle loaded|
-handle := ObjectFileLoader loadedObjectHandles detect:[:h | |cls|
+handle := ObjectFileLoader loadedObjectHandles
-cls := h classes firstIfEmpty:nil.
+detect:[:h | h package = ''' , self package , '''] ifNone:nil.
-cls notNil and:[cls package = ''' , self package , ''']
-] ifNone:[].
 handle ifNotNil:[
 loaded := Set new:(handle classes size).
 handle classes do:[:c| c isMeta ifFalse:[loaded add:c classFilename]].
+'.
+methodsFile notNil ifTrue:[
+out nextPutAll:
+'        loaded add:''' , methodsFile , '''.'.
+].
+out nextPutAll:'
 files := files asOrderedCollection select:[:f| (loaded includes:f) not].
 ].
 ].
 files do:[:s |
-''.'' print.
+''.'' infoPrint.
 Smalltalk fileIn:s.
 ].
-'' '' printCR.
+'' '' infoPrintCR.
-'' done (' , self package , ').'' printCR.
+'' done (' , self package , ').'' infoPrintCR.
 '.
 out close
 !
 createProtoMakefile
 "creates a Make.proto file"
 |d f s type appName libName startUpClass startUpSelector
-topName classes numBad firstBad msg|
+topName classes numBad firstBad msg methodsFile|
 classes := self classes.
 numBad := 0.
 firstBad := nil.
 ].
 self warn:msg withCRs.
 ^ self.
 ].
+"/ to not list private classes
+classes := classes select:[:cls | cls owningClass isNil].
 classes := classes copy topologicalSort:[:a :b | b isSubclassOf:a].
 topName := self findTopFrom:directoryName.
 s nextPutAll:' \'. s cr.
 abbrev := Smalltalk fileNameForClass:aClass name.
 s nextPutAll:'  '; nextPutAll:abbrev; nextPutAll:'.$(O)'.
 ].
+(methodsFile := self propertyAt:#methodsFile) notNil ifTrue:[
+s nextPutAll:' \'. s cr.
+s nextPutAll:'  ';
+nextPutAll:(methodsFile asFilename withoutSuffix baseName);
+nextPutAll:'.$(O)'.
+].
 s cr.
 s nextPutAll:'
 # add more install actions here
 install::
 classes do:[:aClass |
 aClass isLoaded ifFalse:[
 aClass autoload.
 ].
 ].
+"/ to not list private classes
+classes := classes select:[:cls | cls owningClass isNil].
 classes := classes topologicalSort:[:a :b | a isSubclassOf:b].
 classes do:[:aClass |
 Transcript show:' ... '; showCR:aClass name, '.st'; endEntry.
 aClass fileOutIn:dir
 ! !
 !Project class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.99 1999-09-20 14:36:21 cg Exp $'
+^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.100 1999-09-22 08:11:02 cg Exp $'
 ! !
 Project initialize!

changeset 4785	4ced52c817e6
parent 4779	767b94dabb98
child 4786	2375c3d2bffc