ProjectBuilder.st
author Claus Gittinger <cg@exept.de>
Sat, 10 Oct 2009 16:26:51 +0200
changeset 2599 e8624fcf3c1b
parent 2598 2bb47a698d59
child 2600 bfde5434dcdd
permissions -rw-r--r--
added:
#copySTCDirectoryForBuild
#copySTCDirectoryForBuild:
#generateDLLsForLinkage
changed:
#build
#generateSourceFilesByFilingOut
cg@2596
     1
"{ Package: 'stx:libtool2' }"
cg@2596
     2
cg@2596
     3
Object subclass:#ProjectBuilder
cg@2596
     4
	instanceVariableNames:'package projectDefinitionClass sourceCodeManager buildDirectory
cg@2598
     5
		myWorkingDirectory mySTXTopDirectory myTopDirectory'
cg@2596
     6
	classVariableNames:'PreviousBuildDirectory'
cg@2596
     7
	poolDictionaries:''
cg@2596
     8
	category:'System-Support-Projects'
cg@2596
     9
!
cg@2596
    10
cg@2596
    11
cg@2596
    12
!ProjectBuilder class methodsFor:'examples'!
cg@2596
    13
cg@2596
    14
example1
cg@2596
    15
    Smalltalk loadPackage:'stx:projects/helloWorldApp' asAutoloaded:true.
cg@2596
    16
cg@2596
    17
    self new
cg@2596
    18
        package:'stx:projects/helloWorldApp';
cg@2596
    19
        build
cg@2596
    20
! !
cg@2596
    21
cg@2596
    22
!ProjectBuilder methodsFor:'accessing'!
cg@2596
    23
cg@2596
    24
package:aPackageIDOrSymbol
cg@2596
    25
    package := aPackageIDOrSymbol asPackageId.
cg@2596
    26
!
cg@2596
    27
cg@2596
    28
projectDefinitionClass:something
cg@2596
    29
    projectDefinitionClass := something.
cg@2596
    30
! !
cg@2596
    31
cg@2596
    32
!ProjectBuilder methodsFor:'building'!
cg@2596
    33
cg@2596
    34
build
cg@2596
    35
    "/ intermediate - this will move into a commonly used utility class
cg@2596
    36
    "/ (where all the project code support will be collected).
cg@2596
    37
cg@2596
    38
    |module directory|
cg@2596
    39
cg@2596
    40
    projectDefinitionClass := ProjectDefinition definitionClassForPackage:package.
cg@2596
    41
    projectDefinitionClass isNil ifTrue:[
cg@2596
    42
        self error:('Missing ProjectDefinition class for "',package asString,'"')
cg@2596
    43
    ].
cg@2596
    44
cg@2596
    45
    "/ ensure that everything is loaded...
cg@2596
    46
    projectDefinitionClass loadAsAutoloaded:false.
cg@2596
    47
    projectDefinitionClass loadExtensions.
cg@2596
    48
    projectDefinitionClass loadAllClassesAsAutoloaded:false.
cg@2596
    49
cg@2596
    50
    module := package module.
cg@2596
    51
    directory := package directory.
cg@2596
    52
cg@2596
    53
    buildDirectory := PreviousBuildDirectory ifNil:[ UserPreferences current buildDirectory ].
cg@2596
    54
    buildDirectory isNil ifTrue:[
cg@2596
    55
        buildDirectory := Filename tempDirectory construct:'stx_build'.
cg@2596
    56
    ].
cg@2596
    57
    buildDirectory := buildDirectory asFilename.
cg@2596
    58
cg@2596
    59
    "/ self validateBuildDirectoryIsPresent.
cg@2596
    60
cg@2596
    61
    PreviousBuildDirectory := buildDirectory.
cg@2596
    62
cg@2596
    63
    "/ UserPreferences current localBuild:true
cg@2596
    64
    UserPreferences current localBuild ifFalse:[
cg@2596
    65
        SourceCodeManager notNil ifTrue:[
cg@2596
    66
            sourceCodeManager := SourceCodeManagerUtilities sourceCodeManagerFor:projectDefinitionClass.
cg@2596
    67
        ]
cg@2596
    68
    ].
cg@2596
    69
    sourceCodeManager := nil.
cg@2596
    70
cg@2598
    71
    myTopDirectory := 
cg@2596
    72
        Smalltalk packagePath 
cg@2596
    73
            detect:[:aPath |
cg@2596
    74
                (aPath asFilename / 'stx' / 'include') exists
cg@2596
    75
                and: [ (aPath asFilename / 'stx' / 'rules') exists ]]
cg@2596
    76
            ifNone:nil.       
cg@2598
    77
    myTopDirectory isNil ifTrue:[
cg@2598
    78
        self error:('Cannot figure out my top directory (where stx/include and stx/rules are)')
cg@2596
    79
    ].
cg@2598
    80
    myTopDirectory := myTopDirectory asFilename.
cg@2598
    81
    mySTXTopDirectory := myTopDirectory / 'stx'.
cg@2596
    82
cg@2596
    83
    self setupBuildDirectory.
cg@2599
    84
self halt.
cg@2599
    85
    self copySTCDirectoryForBuild.
cg@2596
    86
    self generateSourceFiles.
cg@2599
    87
    self generateDLLsForLinkage.
cg@2598
    88
self halt.
cg@2596
    89
cg@2596
    90
    OperatingSystem
cg@2599
    91
        executeCommand:(ParserFlags makeCommand,' exe')
cg@2596
    92
        inputFrom:nil
cg@2596
    93
        outputTo:Transcript
cg@2596
    94
        errorTo:Transcript
cg@2599
    95
        inDirectory:(buildDirectory / module / directory)
cg@2596
    96
        onError:[:status| self error:'make failed'].
cg@2596
    97
cg@2596
    98
    "Created: / 09-08-2006 / 18:37:19 / fm"
cg@2596
    99
    "Modified: / 09-08-2006 / 19:55:50 / fm"
cg@2596
   100
    "Modified: / 22-09-2006 / 17:37:11 / cg"
cg@2596
   101
!
cg@2596
   102
cg@2596
   103
copyDirectory:relativepath
cg@2596
   104
    "/ need rules in stx
cg@2596
   105
    ((Smalltalk projectDirectoryForPackage:'stx') asFilename construct:relativepath)
cg@2596
   106
        recursiveCopyTo:(buildDirectory construct:'stx').
cg@2596
   107
!
cg@2596
   108
cg@2596
   109
copyDirectoryForBuild:subdir
cg@2598
   110
    |targetDir targetFile|
cg@2596
   111
cg@2596
   112
    targetDir := buildDirectory / 'stx' / subdir.
cg@2596
   113
    targetDir exists ifFalse:[
cg@2596
   114
        targetDir makeDirectory.
cg@2598
   115
    ].
cg@2598
   116
    (mySTXTopDirectory / subdir) directoryContentsAsFilenamesDo:[:eachFile |
cg@2598
   117
        eachFile isDirectory ifFalse:[
cg@2598
   118
            targetFile := targetDir / eachFile baseName.
cg@2598
   119
            (targetFile exists not
cg@2598
   120
            or:[ targetFile modificationTime < eachFile modificationTime ]) ifTrue:[
cg@2598
   121
                self activityNotification:'copying ',eachFile pathName,'...'.
cg@2596
   122
                eachFile copyTo:(targetDir construct:eachFile baseName)
cg@2596
   123
            ]
cg@2596
   124
        ].
cg@2596
   125
    ].
cg@2598
   126
    self activityNotification:nil
cg@2598
   127
!
cg@2598
   128
cg@2599
   129
copySTCDirectoryForBuild
cg@2599
   130
    |targetDir stc files|
cg@2599
   131
cg@2599
   132
    targetDir := buildDirectory / 'stx' / 'stc'.
cg@2599
   133
    targetDir exists ifFalse:[ targetDir makeDirectory ].
cg@2599
   134
cg@2599
   135
    stc := OperatingSystem isMSWINDOWSlike 
cg@2599
   136
                ifTrue:[ 'stc.exe' ]
cg@2599
   137
                ifFalse:[ 'stc' ].
cg@2599
   138
cg@2599
   139
    files := #( ) copyWith:stc.
cg@2599
   140
cg@2599
   141
    files do:[:eachFile |
cg@2599
   142
        |sourceFile targetFile|
cg@2599
   143
cg@2599
   144
        sourceFile := mySTXTopDirectory / 'stc' / eachFile.
cg@2599
   145
        targetFile := targetDir / eachFile.
cg@2599
   146
        (targetFile exists not
cg@2599
   147
        or:[ targetFile modificationTime < sourceFile modificationTime ]) ifTrue:[
cg@2599
   148
            self activityNotification:'copying ',sourceFile pathName,'...'.
cg@2599
   149
            sourceFile copyTo:targetFile
cg@2599
   150
        ].
cg@2599
   151
    ].
cg@2599
   152
    self activityNotification:nil
cg@2599
   153
!
cg@2599
   154
cg@2598
   155
createHeaderFileFor:aClass in:packageTargetDir
cg@2598
   156
    |instVarList classInstVarList classVarList bindings superclassFilename
cg@2598
   157
     template file newContents oldContents|
cg@2598
   158
cg@2598
   159
    instVarList := StringCollection new.
cg@2598
   160
    aClass instVarNames do:[:v |
cg@2598
   161
        instVarList add:('OBJ %1;' bindWith:v)
cg@2598
   162
    ].
cg@2598
   163
    classInstVarList := StringCollection new.
cg@2598
   164
    aClass class instVarNames do:[:v |
cg@2598
   165
(v includes:$_) ifTrue:[self halt].
cg@2598
   166
        classInstVarList add:('OBJ %1;' bindWith:v)
cg@2598
   167
    ].
cg@2598
   168
    classVarList := StringCollection new.
cg@2598
   169
    aClass classVarNames do:[:v |
cg@2598
   170
        classVarList add:('extern OBJ %1_%2;' bindWith:aClass name with:v)
cg@2598
   171
    ].
cg@2598
   172
cg@2598
   173
    bindings := Dictionary new.
cg@2598
   174
    bindings at:'ClassName' put:aClass name. 
cg@2598
   175
    aClass superclass isNil ifTrue:[
cg@2598
   176
        bindings at:'SuperclassName' put:'-'. 
cg@2598
   177
        bindings at:'SuperclassFileInclude' put:nil.
cg@2598
   178
    ] ifFalse:[
cg@2598
   179
        bindings at:'SuperclassName' put:aClass superclass name. 
cg@2598
   180
        bindings at:'SuperclassFileName' put:(superclassFilename := Smalltalk fileNameForClass:aClass superclass).
cg@2598
   181
        bindings at:'SuperclassFileInclude' put:('#include "%1.STH"' bindWith:superclassFilename).
cg@2598
   182
    ].
cg@2598
   183
    bindings at:'InstVarList' put:instVarList asString. 
cg@2598
   184
    bindings at:'ClassVarList' put:classVarList asString. 
cg@2598
   185
    bindings at:'ClassInstVarList' put:classInstVarList asString. 
cg@2598
   186
cg@2598
   187
    template := 
cg@2598
   188
'/* This file was generated by ProjectBuilder. */
cg@2598
   189
/* !!!!!!!! Do not change by hand !!!!!!!! */
cg@2598
   190
cg@2598
   191
/* Class: %(ClassName) */
cg@2598
   192
/* Superclass: %(SuperclassName) */
cg@2598
   193
cg@2598
   194
%(SuperclassFileInclude)
cg@2598
   195
cg@2598
   196
/* INDIRECTGLOBALS */
cg@2598
   197
#ifdef _HEADER_INST_
cg@2598
   198
%(InstVarList)
cg@2598
   199
#endif /* _HEADER_INST_ */
cg@2598
   200
cg@2598
   201
#ifdef _HEADER_CLASS_
cg@2598
   202
%(ClassVarList)
cg@2598
   203
#endif /* _HEADER_CLASS_ */
cg@2598
   204
cg@2598
   205
#ifdef _HEADER_CLASSINST_
cg@2598
   206
%(ClassInstVarList)
cg@2598
   207
#endif /* _HEADER_CLASSINST_ */
cg@2598
   208
'.
cg@2598
   209
    newContents := template bindWithArguments:bindings.
cg@2598
   210
    file := packageTargetDir asFilename / ((Smalltalk fileNameForClass:aClass),'.STH').
cg@2598
   211
    (file exists not
cg@2598
   212
    or:[ (oldContents := file contents) ~= newContents ]) ifTrue:[
cg@2598
   213
        file contents: newContents.
cg@2598
   214
    ].
cg@2596
   215
!
cg@2596
   216
cg@2599
   217
generateDLLsForLinkage
cg@2599
   218
    |targetBuildDir|
cg@2599
   219
cg@2599
   220
    targetBuildDir := buildDirectory / package module / package directory.
cg@2599
   221
cg@2599
   222
    "/ generate header files...
cg@2599
   223
    (projectDefinitionClass allPreRequisites)
cg@2599
   224
    do:[:eachPackageToFileout |
cg@2599
   225
        |packageId packageDef packageModule packageDirectory packageTargetDir
cg@2599
   226
         dllSource dllSourceDir libraryName dllRelativePath|
cg@2599
   227
cg@2599
   228
        packageId := eachPackageToFileout asPackageId.
cg@2599
   229
        packageModule := packageId module.
cg@2599
   230
        packageDirectory := packageId directory.
cg@2599
   231
        packageTargetDir := (buildDirectory / packageModule / packageDirectory) recursiveMakeDirectory.
cg@2599
   232
cg@2599
   233
        packageDef := packageId projectDefinitionClass.
cg@2599
   234
        libraryName := packageDef libraryName.
cg@2599
   235
cg@2599
   236
        "/ mhmh - take them from my tree or from the projects/smalltalk execution directory ??
cg@2599
   237
        dllSourceDir := myTopDirectory / packageModule / packageDirectory.
cg@2599
   238
        OperatingSystem isMSWINDOWSlike ifTrue:[
cg@2599
   239
"/            dllRelativePath := 'objvc','/',(libraryName,'.dll').
cg@2599
   240
"/            (dllSourceDir / dllRelativePath) exists 
cg@2599
   241
            false ifFalse:[
cg@2599
   242
                dllRelativePath := 'objbc','/',(libraryName,'.dll').
cg@2599
   243
            ]
cg@2599
   244
        ] ifFalse:[
cg@2599
   245
            dllRelativePath := libraryName,'.so'.
cg@2599
   246
        ].
cg@2599
   247
        ((dllSourceDir / dllRelativePath) exists
cg@2599
   248
        and:[ (dllSourceDir / dllRelativePath) fileSize = (packageTargetDir / dllRelativePath) fileSize
cg@2599
   249
        and:[ (dllSourceDir / dllRelativePath) modificationTime < (packageTargetDir / dllRelativePath) modificationTime
cg@2599
   250
        "/ and:[ (dllSourceDir / dllRelativePath) sameContentsAs:(packageTargetDir / dllRelativePath) ]
cg@2599
   251
        ]]) ifFalse:[
cg@2599
   252
            (packageTargetDir / dllRelativePath) directory recursiveMakeDirectory.
cg@2599
   253
            (dllSourceDir / dllRelativePath) copyTo:(packageTargetDir / dllRelativePath).    
cg@2599
   254
        ]
cg@2599
   255
    ].
cg@2599
   256
!
cg@2599
   257
cg@2596
   258
generateSourceFiles
cg@2596
   259
    sourceCodeManager notNil ifTrue:[
cg@2596
   260
        "/ check out / generate files there
cg@2596
   261
        self generateSourceFilesByCheckingOutUsing:sourceCodeManager
cg@2596
   262
    ] ifFalse:[
cg@2596
   263
        "/ local build
cg@2596
   264
        "/ fileout the project
cg@2596
   265
        self generateSourceFilesByFilingOut
cg@2596
   266
    ]
cg@2596
   267
!
cg@2596
   268
cg@2596
   269
generateSourceFilesByCheckingOutUsing:aSourceCodeManager
cg@2596
   270
    "/ will no longer be needed/supported
cg@2596
   271
cg@2596
   272
    |repository stxRepository module directory|
cg@2596
   273
cg@2596
   274
self halt.
cg@2596
   275
    "/ check out / generate files there
cg@2596
   276
    repository := (aSourceCodeManager repositoryNameForModule:module) ifNil:[aSourceCodeManager repositoryName].
cg@2596
   277
    stxRepository := aSourceCodeManager repositoryName.
cg@2596
   278
cg@2596
   279
    (buildDirectory construct:'stx') exists ifFalse:[
cg@2596
   280
        (module ~= 'stx') ifTrue:[
cg@2596
   281
            OperatingSystem
cg@2596
   282
                executeCommand:('cvs -d ',stxRepository,' co stx')
cg@2596
   283
                inputFrom:nil
cg@2596
   284
                outputTo:Transcript
cg@2596
   285
                errorTo:Transcript
cg@2596
   286
                inDirectory:buildDirectory
cg@2596
   287
                onError:[:status| self error:'cvs update stx failed'].
cg@2596
   288
        ].
cg@2596
   289
    ].
cg@2596
   290
cg@2596
   291
    ((buildDirectory construct:module) construct:'CVS') exists ifFalse:[
cg@2596
   292
        OperatingSystem
cg@2596
   293
            executeCommand:('cvs -d ',repository,' co -l ',directory)
cg@2596
   294
            inputFrom:nil
cg@2596
   295
            outputTo:Transcript
cg@2596
   296
            errorTo:Transcript
cg@2596
   297
            inDirectory:buildDirectory
cg@2596
   298
            onError:[:status| self error:'cvs update failed'].
cg@2596
   299
    ].
cg@2596
   300
    OperatingSystem
cg@2596
   301
        executeCommand:'cvs upd -d'
cg@2596
   302
        inputFrom:nil
cg@2596
   303
        outputTo:Transcript
cg@2596
   304
        errorTo:Transcript
cg@2596
   305
        inDirectory:(buildDirectory construct:module)
cg@2596
   306
        onError:[:status| self error:'cvs update failed'].
cg@2596
   307
self halt.
cg@2596
   308
!
cg@2596
   309
cg@2596
   310
generateSourceFilesByFilingOut
cg@2596
   311
    "/ local build
cg@2596
   312
    "/ fileout the project
cg@2596
   313
cg@2596
   314
    (package module ~= 'stx') ifTrue:[
cg@2596
   315
        (buildDirectory / package module) makeDirectory.
cg@2596
   316
    ].
cg@2596
   317
cg@2599
   318
    "/ file out the package(s) which are to be built
cg@2598
   319
    ((Array with:package))
cg@2598
   320
    do:[:eachPackageToFileout |
cg@2598
   321
        |packageId packageModule packageDirectory packageTargetDir packageDef|
cg@2596
   322
cg@2598
   323
        packageId := eachPackageToFileout asPackageId.
cg@2598
   324
        packageModule := packageId module.
cg@2598
   325
        packageDirectory := packageId directory.
cg@2596
   326
        packageTargetDir := (buildDirectory / packageModule / packageDirectory) recursiveMakeDirectory.
cg@2596
   327
cg@2598
   328
        packageDef := packageId projectDefinitionClass.
cg@2598
   329
        (packageDef compiled_classNames_common ,
cg@2598
   330
        packageDef compiled_classNamesForPlatform) do:[:eachClassName |
cg@2598
   331
            |cls|
cg@2598
   332
cg@2598
   333
            cls := Smalltalk classNamed:eachClassName.
cg@2598
   334
            self assert:cls isLoaded.
cg@2598
   335
            cls fileOutIn:packageTargetDir
cg@2596
   336
        ].
cg@2598
   337
cg@2598
   338
"/        (Smalltalk allClassesInPackage:eachPackageToFileout) do:[:cls |
cg@2598
   339
"/            cls isPrivate ifFalse:[
cg@2598
   340
"/                cls isLoaded ifFalse:[
cg@2598
   341
"/                    self halt.
cg@2598
   342
"/                    cls autoload.
cg@2598
   343
"/                ].
cg@2598
   344
"/                cls fileOutIn:packageTargetDir
cg@2598
   345
"/            ]
cg@2598
   346
"/        ].
cg@2599
   347
cg@2599
   348
        projectDefinitionClass forEachFileNameAndGeneratedContentsDo:[:fileName :fileContents |
cg@2599
   349
            ((packageTargetDir / fileName) exists
cg@2599
   350
            and:[ (packageTargetDir / fileName) contents = fileContents ]) ifFalse:[
cg@2599
   351
                (packageTargetDir / fileName) contents:fileContents.
cg@2599
   352
            ].
cg@2599
   353
        ].    
cg@2599
   354
self halt.
cg@2598
   355
    ].
cg@2599
   356
cg@2599
   357
    "/ generate header files in prerequisite packages...
cg@2598
   358
    (projectDefinitionClass allPreRequisites)
cg@2598
   359
    do:[:eachPackageToFileout |
cg@2598
   360
        |packageId packageDef packageModule packageDirectory packageTargetDir|
cg@2598
   361
cg@2598
   362
        packageId := eachPackageToFileout asPackageId.
cg@2598
   363
        packageModule := packageId module.
cg@2598
   364
        packageDirectory := packageId directory.
cg@2598
   365
        packageTargetDir := (buildDirectory / packageModule / packageDirectory) recursiveMakeDirectory.
cg@2598
   366
cg@2598
   367
        packageDef := packageId projectDefinitionClass.
cg@2598
   368
        (packageDef compiled_classNames_common ,
cg@2598
   369
        packageDef compiled_classNamesForPlatform) do:[:eachClassName |
cg@2598
   370
            |cls|
cg@2598
   371
cg@2598
   372
            cls := Smalltalk classNamed:eachClassName.
cg@2598
   373
            self assert:cls isLoaded.
cg@2598
   374
            cls isLoaded ifTrue:[    
cg@2598
   375
                self createHeaderFileFor:cls in:packageTargetDir
cg@2598
   376
            ].
cg@2598
   377
        ].
cg@2596
   378
    ].
cg@2596
   379
cg@2596
   380
"/    stx_libbasic2 preRequisitesForBuilding#(#'stx:libbasic')
cg@2596
   381
!
cg@2596
   382
cg@2596
   383
setupBuildDirectory
cg@2596
   384
    buildDirectory exists ifFalse:[
cg@2596
   385
        buildDirectory recursiveMakeDirectory.
cg@2596
   386
    ].
cg@2596
   387
    (buildDirectory / 'stx') exists ifFalse:[
cg@2596
   388
        (buildDirectory / 'stx') makeDirectory.
cg@2596
   389
    ].
cg@2596
   390
cg@2596
   391
    self copyDirectoryForBuild:'include'.
cg@2596
   392
    self copyDirectoryForBuild:'rules'.
cg@2596
   393
!
cg@2596
   394
cg@2596
   395
validateBuildDirectoryIsPresent
cg@2596
   396
cg@2596
   397
    ^ self.
cg@2596
   398
cg@2596
   399
"/    [
cg@2596
   400
"/        |default directoryIsOKForMe stc |
cg@2596
   401
"/
cg@2596
   402
"/        default := (buildDirectory ?
cg@2596
   403
"/                          PreviousBuildDirectory)
cg@2596
   404
"/                          ifNil:[ UserPreferences current buildDirectory].
cg@2596
   405
"/
cg@2596
   406
"/        buildDirectory := Dialog requestDirectoryName:'Temporary Work-ROOT for build:'
cg@2596
   407
"/                                 default:default.
cg@2596
   408
"/
cg@2596
   409
"/        buildDirectory isEmptyOrNil ifTrue:[^ self].
cg@2596
   410
"/        buildDirectory := buildDirectory asFilename.
cg@2596
   411
"/        directoryIsOKForMe := true.
cg@2596
   412
"/
cg@2596
   413
"/        buildDirectory exists ifFalse:[
cg@2596
   414
"/            Dialog warn:(self classResources string:'Work directory %1 does not exist.' with:buildDirectory).
cg@2596
   415
"/            directoryIsOKForMe := false.
cg@2596
   416
"/        ] ifTrue:[
cg@2596
   417
"/            (buildDirectory construct:'stx') exists ifFalse:[
cg@2596
   418
"/                Dialog warn:(self classResources stringWithCRs:'Work directory must contain an stx subDirectory,\which contains (at least) the stc and include subdirectories.').
cg@2596
   419
"/                directoryIsOKForMe := false.
cg@2596
   420
"/            ] ifTrue:[
cg@2596
   421
"/                stc := (OperatingSystem isMSDOSlike) ifTrue:['stc.exe'] ifFalse:['stc'].
cg@2596
   422
"/                (((buildDirectory construct:'stx')construct:'stc')construct:stc) exists ifFalse:[
cg@2596
   423
"/                    Dialog warn:(self classResources stringWithCRs:'Work directory must contain an stc compiler in the stx/stc subDirectory.').
cg@2596
   424
"/                    directoryIsOKForMe := false.
cg@2596
   425
"/                ].
cg@2596
   426
"/                ((buildDirectory construct:'stx')construct:'include') exists ifFalse:[
cg@2596
   427
"/                    Dialog warn:(self classResources stringWithCRs:'Work directory must have had a make run before (for include files to exists).').
cg@2596
   428
"/                    directoryIsOKForMe := false.
cg@2596
   429
"/                ].
cg@2596
   430
"/            ]
cg@2596
   431
"/        ].
cg@2596
   432
"/        directoryIsOKForMe
cg@2596
   433
"/    ] whileFalse
cg@2596
   434
! !
cg@2596
   435
cg@2596
   436
!ProjectBuilder class methodsFor:'documentation'!
cg@2596
   437
cg@2596
   438
version_CVS
cg@2596
   439
    ^ '$Header$'
cg@2596
   440
! !