class: Tools::ProjectBuilder
authorClaus Gittinger <cg@exept.de>
Sat, 07 Jun 2014 17:02:41 +0200
changeset 3127f28722d20fbb
parent 3126 9002c0912b90
child 3128 bb09c25b54dc
class: Tools::ProjectBuilder
class definition
added:
#makeAppOnly
#makeAppOnly:
changed: #makeWithOutputTo:errorTo:
ProjectBuilder.st
     1.1 --- a/ProjectBuilder.st	Sat Jun 07 16:22:32 2014 +0200
     1.2 +++ b/ProjectBuilder.st	Sat Jun 07 17:02:41 2014 +0200
     1.3 @@ -16,8 +16,8 @@
     1.4  Object subclass:#ProjectBuilder
     1.5  	instanceVariableNames:'package projectDefinitionClass sourceCodeManager buildDirectory
     1.6  		myWorkingDirectory mySTXTopDirectory myTopDirectory outputStream
     1.7 -		makeExeOnly makeQuick usedCompiler stdOut stdErr isQuickBuild
     1.8 -		isLocalBuild'
     1.9 +		makeExeOnly makeAppOnly makeQuick usedCompiler stdOut stdErr
    1.10 +		isQuickBuild isLocalBuild'
    1.11  	classVariableNames:'PreviousBuildDirectory'
    1.12  	poolDictionaries:''
    1.13  	category:'System-Support-Projects'
    1.14 @@ -161,6 +161,14 @@
    1.15      isQuickBuild := aBoolean.
    1.16  !
    1.17  
    1.18 +makeAppOnly
    1.19 +    ^ (makeAppOnly ? false)
    1.20 +!
    1.21 +
    1.22 +makeAppOnly:aBoolean
    1.23 +    makeAppOnly := aBoolean.
    1.24 +!
    1.25 +
    1.26  makeExeOnly
    1.27      ^ (makeExeOnly ? false)
    1.28  !
    1.29 @@ -942,7 +950,7 @@
    1.30  !
    1.31  
    1.32  makeWithOutputTo:stdOut errorTo:stdErr
    1.33 -    |module directory makeCommand forceArg|
    1.34 +    |module directory makeCommand forceArg makeTarget|
    1.35  
    1.36      module := package module.
    1.37      directory := package directory.
    1.38 @@ -984,21 +992,17 @@
    1.39              onError:[:status | self error:'make failed'].
    1.40      ] ifFalse:[
    1.41          (self makeExeOnly) ifTrue:[
    1.42 -            self activityNotification:(makeCommand,' exe').
    1.43 +            makeTarget := 'exe'
    1.44 +        ] ifFalse:[
    1.45 +            (self makeAppOnly) ifTrue:[
    1.46 +                makeTarget := 'app'
    1.47 +            ] ifFalse:[
    1.48 +                makeTarget := 'ALL_NP'
    1.49 +            ].
    1.50 +            self activityNotification:(makeCommand,' ',makeTarget).
    1.51              OperatingSystem
    1.52                  "/ generate the executable
    1.53 -                executeCommand:(makeCommand,' exe',forceArg)
    1.54 -                inputFrom:nil
    1.55 -                outputTo:stdOut
    1.56 -                errorTo:stdErr
    1.57 -                inDirectory:(buildDirectory / module / directory)
    1.58 -                onError:[:status | self error:'make failed'].
    1.59 -
    1.60 -        ] ifFalse:[
    1.61 -            "/ generate the self-installable package
    1.62 -            self activityNotification:(makeCommand,' ALL_NP').
    1.63 -            OperatingSystem
    1.64 -                executeCommand:(makeCommand,' ALL_NP')
    1.65 +                executeCommand:(makeCommand,' ',makeTarget,forceArg)
    1.66                  inputFrom:nil
    1.67                  outputTo:stdOut
    1.68                  errorTo:stdErr