Project.st
changeset 5179 37fa0ca0a226
parent 5178 5cc5f9ed5313
child 5181 6079b255ee64
equal deleted inserted replaced
5178:5cc5f9ed5313 5179:37fa0ca0a226
  2338 TOP=' , topName ,'
  2338 TOP=' , topName ,'
  2339 
  2339 
  2340 # subdirectories where targets are to be made:
  2340 # subdirectories where targets are to be made:
  2341 SUBDIRS='.
  2341 SUBDIRS='.
  2342     self prerequisitePackages do:[:aPackageId |
  2342     self prerequisitePackages do:[:aPackageId |
       
  2343         |p|
       
  2344 
  2343         "/ add sub-packages
  2345         "/ add sub-packages
  2344         (aPackageId startsWith:pkg) ifTrue:[
  2346         (aPackageId startsWith:pkg) ifTrue:[
  2345             s nextPutAll:(aPackageId copyFrom:pkg size + 2).
  2347             p := aPackageId copyFrom:pkg size + 1.
       
  2348             (p startsWith:$/) ifTrue:[
       
  2349                 p := p copyFrom:2
       
  2350             ].
       
  2351             s nextPutAll:p.
  2346             s space.
  2352             s space.
  2347         ]
  2353         ]
  2348     ].
  2354     ].
  2349 
  2355 
  2350     s nextPutAll:'
  2356     s nextPutAll:'
  3526 ! !
  3532 ! !
  3527 
  3533 
  3528 !Project class methodsFor:'documentation'!
  3534 !Project class methodsFor:'documentation'!
  3529 
  3535 
  3530 version
  3536 version
  3531     ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.141 2000-01-13 18:40:45 cg Exp $'
  3537     ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.142 2000-01-13 18:45:36 cg Exp $'
  3532 ! !
  3538 ! !
  3533 Project initialize!
  3539 Project initialize!