ProjectDefinition.st
changeset 10058 290deec5f493
parent 10047 db630ab99570
child 10063 580a7b4b4b81
equal deleted inserted replaced
10057:8b649415885a 10058:290deec5f493
   614                         attributes := attributes copyWithout:#autoload.
   614                         attributes := attributes copyWithout:#autoload.
   615                     ] ifFalse:[
   615                     ] ifFalse:[
   616                         attributes := #()
   616                         attributes := #()
   617                     ].
   617                     ].
   618                     eachClass isLoaded ifFalse:[
   618                     eachClass isLoaded ifFalse:[
   619                          attributes := attributes copyWith:#autoload.
   619                         attributes := attributes copyWith:#autoload.
   620                     ].
   620                     ].
   621                 ] ifFalse:[
   621                 ] ifFalse:[
   622                     "keep any existing attribute"
   622                     "keep any existing attribute"
   623                     oldSpecEntry notNil ifTrue:[
   623                     oldSpecEntry notNil ifTrue:[
   624                         attributes := oldSpecEntry copyFrom:2.
   624                         attributes := oldSpecEntry copyFrom:2.
   645     stx_libbasic3 classNamesAndAttributes_code_ignoreOldDefinition:true
   645     stx_libbasic3 classNamesAndAttributes_code_ignoreOldDefinition:true
   646 "
   646 "
   647 
   647 
   648     "Modified: / 08-08-2006 / 19:24:34 / fm"
   648     "Modified: / 08-08-2006 / 19:24:34 / fm"
   649     "Created: / 17-08-2006 / 21:03:07 / cg"
   649     "Created: / 17-08-2006 / 21:03:07 / cg"
   650     "Modified: / 19-09-2006 / 17:14:17 / cg"
   650     "Modified: / 09-10-2006 / 13:27:23 / cg"
   651 !
   651 !
   652 
   652 
   653 companyName_code
   653 companyName_code
   654     ^ String streamContents:[:s |
   654     ^ String streamContents:[:s |
   655         s nextPutLine:'companyName'.
   655         s nextPutLine:'companyName'.
  1045     "answer the classes to be compiled only for platformName
  1045     "answer the classes to be compiled only for platformName
  1046      platformName is one of #unix, #win32 (OperatingSystem platformName)"
  1046      platformName is one of #unix, #win32 (OperatingSystem platformName)"
  1047 
  1047 
  1048     ^ self 
  1048     ^ self 
  1049         classNamesForWhich:[:nm :attr | 
  1049         classNamesForWhich:[:nm :attr | 
  1050             (attr includes:#autoload) not and:[ (attr includes:platformName) ]
  1050             "(attr includes:#autoload) not and:[" (attr includes:platformName)" ]"
  1051         ].
  1051         ].
  1052 
  1052 
  1053     "Created: / 07-08-2006 / 19:02:57 / fm"
  1053     "Created: / 07-08-2006 / 19:02:57 / fm"
  1054     "Modified: / 07-08-2006 / 21:25:25 / fm"
  1054     "Modified: / 07-08-2006 / 21:25:25 / fm"
  1055     "Modified: / 17-08-2006 / 20:47:20 / cg"
  1055     "Modified: / 09-10-2006 / 13:30:08 / cg"
  1056 !
  1056 !
  1057 
  1057 
  1058 compiled_classNames_common
  1058 compiled_classNames_common
  1059     "classes to be compiled for any platform"
  1059     "classes to be compiled for any platform"
  1060 
  1060 
  3255 ! !
  3255 ! !
  3256 
  3256 
  3257 !ProjectDefinition class methodsFor:'documentation'!
  3257 !ProjectDefinition class methodsFor:'documentation'!
  3258 
  3258 
  3259 version
  3259 version
  3260     ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.88 2006-10-06 13:49:45 cg Exp $'
  3260     ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.89 2006-10-09 11:36:45 cg Exp $'
  3261 ! !
  3261 ! !
  3262 
  3262 
  3263 ProjectDefinition initialize!
  3263 ProjectDefinition initialize!