"

 COPYRIGHT (c) 2006 by eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

"{ Package: 'stx:libbasic' }"

ProjectDefinition subclass:#ApplicationDefinition

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'System-Support-Projects'

!

!ApplicationDefinition class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 2006 by eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

! !

!ApplicationDefinition class methodsFor:'accessing'!

applicationName

    |m path|

    m := self moduleDirectory.

    path := m subStrings:$/.

    path last = 'application' ifTrue:[

        path size > 1 ifTrue:[

            path := path copyWithoutLast:1.

        ].

    ].

    ^ path last

    "

     bosch_dapasx_application applicationName     

     stx_projects_smalltalk applicationName     

    "

    "Created: / 08-08-2006 / 20:25:39 / fm"

    "Modified: / 30-08-2006 / 19:29:25 / cg"

! !

!ApplicationDefinition class methodsFor:'code generation'!

forEachMethodsCodeToCompileDo:aTwoArgBlock ignoreOldDefinition:ignoreOldDefinition

    super forEachMethodsCodeToCompileDo:aTwoArgBlock ignoreOldDefinition:ignoreOldDefinition.

    aTwoArgBlock 

        value:self subProjects_code

        value:'description'.

    aTwoArgBlock 

        value:self preRequisites_code

        value:'description'.

    (self class implements:#startupClassName) ifFalse:[

        aTwoArgBlock 

            value:self startupClassName_code

            value:'description - startup'.

    ].

    (self class implements:#startupSelector) ifFalse:[

        aTwoArgBlock 

            value:self startupSelector_code

            value:'description - startup'.

    ].

    "Created: / 10-08-2006 / 16:35:47 / cg"

    "Modified: / 30-08-2006 / 19:03:48 / cg"

!

startupClassName_code

    ^ 

'startupClassName

    self error:''undefined startupClass''.

    ^ ''<name of class here>''

'

!

startupClassName_codeFor:aClassName

    ^ 

'startupClassName

    ^ ''',aClassName,'''

'

    "Created: / 05-09-2006 / 13:40:32 / cg"

!

startupSelector_code

    ^ 

'startupSelector

    self error:''undefined startupSelector''.

    ^ #''start'' "startupSelector here"

'

    "Created: / 30-08-2006 / 19:02:50 / cg"

!

startupSelector_codeFor:aSelector

    ^ 

'startupSelector

    ^ #''',aSelector,''' 

'

    "Created: / 05-09-2006 / 13:41:01 / cg"

!

subProjects_code        

    |subProjects|

    subProjects := 

        (self siblingsAreSubProjects)

            ifTrue:[ self searchForSiblingProjects ]

            ifFalse:[ self searchForSubProjects ].

    subProjects removeAll: self excludedFromSubProjects.

    ^ String streamContents:[:s |

        s nextPutLine:'subProjects'.

        s nextPutLine:'    ^ #('.

        subProjects do:[:eachPackageID |    

            s nextPutLine:eachPackageID asString storeString

        ].      

        s nextPutLine:')'

    ].

    "

     bosch_dapasx subProjectsGeneratedString

     stx_goodies subProjectsGeneratedString

    "

    "Modified: / 08-08-2006 / 19:24:34 / fm"

    "Created: / 17-08-2006 / 21:26:51 / cg"

! !

!ApplicationDefinition class methodsFor:'defaults'!

defaultDescription

    ^ 'an application'

!

guiClassFileNames_unix

    ^ self guiClasses_unix 

        collect:[:cls | (cls classFilename asFilename withSuffix:'so') baseName].

    "Created: / 14-09-2006 / 18:13:22 / cg"

!

guiClassFileNames_win32

    ^ self guiClasses_win32 

        collect:[:cls | (cls classFilename asFilename withSuffix:'dll') baseName].

    "Created: / 07-09-2006 / 17:23:13 / cg"

    "Modified: / 14-09-2006 / 18:13:46 / cg"

!

guiClasses_unix

    ^ #()

    "Created: / 14-09-2006 / 18:12:58 / cg"

!

guiClasses_win32

    ^ #()

    "/ ^ Array with:XWorkstation

    "Created: / 07-09-2006 / 17:22:27 / cg"

    "Modified: / 14-09-2006 / 18:12:35 / cg"

!

needResources

    ^ self isGUIApplication

! !

!ApplicationDefinition class methodsFor:'description'!

excludedFromSubProjects

    "list packages which are to be explicitely excluded from the automatic constructed

     subProjects list. If empty, every sub-package is included as a prerequisite."

    ^ #()

    "Modified: / 17-08-2006 / 19:49:40 / cg"

!

isConsoleApplication

    "Return true, if this is a console application (used with win32 only). 

     Console applications have stdout and stderr and open up a command-window

     when started. Only console applications can interact with the user in the

     command line window.

     By default, GUI apps are compiled as non-console apps."

    ^ self isGUIApplication not

    "Created: / 20-09-2006 / 11:29:24 / cg"

!

isGUIApplication

    "Return true, if this is a GUI app. 

     Redefine to return false for non-GUI applications (affects inclusion of Display classes)."

    ^true

    "Created: / 08-08-2006 / 11:15:01 / fm"

    "Modified: / 17-08-2006 / 19:47:36 / cg"

!

isSingleThreadedApplication

    "Return true, if this should be started without multiple threads. 

     (not possible with gui applications)"

    ^false

    "Created: / 05-09-2006 / 13:36:18 / cg"

!

startupClassName

    "The name of the class which provides the entry point for the application."

    self subclassResponsibility

    "Modified: / 17-08-2006 / 20:00:22 / cg"

!

startupSelector

    "The name of the entry point method (in startUpClass) used to start the application."

    ^ #'start'

    "Modified: / 17-08-2006 / 20:01:00 / cg"

! !

!ApplicationDefinition class methodsFor:'description - project information'!

description

    "Returns a description string which will appear in nt.def / bc.def"

    self module = 'stx' ifTrue:[

        ^ 'Smalltalk/X Application'

    ].

    ^ 'Application'

    "Created: / 17-08-2006 / 20:52:48 / cg"

    "Modified: / 18-08-2006 / 16:16:01 / cg"

!

docDirPath_unix

    "path relative to my dir to the documentation - or nil"

    ^ nil

    "Created: / 20-09-2006 / 17:58:44 / cg"

!

docDirPath_win32

    "path relative to my dir to the documentation - or nil"

    ^ nil

    "Created: / 20-09-2006 / 17:58:40 / cg"

!

fileDescription

    "Return a description string which will appear in nt.def / bc.def"

    ^self description , ' Application'

    "Created: / 14-09-2006 / 20:08:11 / cg"

!

hasLicenceToAcceptDuringInstallation

    ^ false

    "Created: / 14-09-2006 / 22:34:00 / cg"

! !

!ApplicationDefinition class methodsFor:'file generation'!

basicFileNamesToGenerate

    ^ #( 

          #('Make.spec'         #'generate_make_dot_spec')

"/          #('Make.proto'        #'generate_make_dot_proto')

          #('bc.def'            #'generate_bc_dot_def')

          #('nt.mak'            #'generate_nt_dot_mak')

          #('modules.stx'       #'generate_modules_dot_stx')

          #('modules.c'         #'generate_modules_dot_c')

"

          #('nt.def'            #'generate_nt_dot_def')

"

          #('abbrev.stc'        #'generate_abbrev_dot_stc') 

          #('bmake.bat'         #'generate_bmake_dot_mak') 

     ) , (Array

            with:

                (Array 

                    with:self rcFilename

                    with:#'generate_packageName_dot_rc')

            with:

                (Array 

                    with:self nsiFilename

                    with:#'generate_packageName_dot_nsi')

         ).

    "Created: / 14-09-2006 / 14:36:00 / cg"

    "Modified: / 19-09-2006 / 22:51:01 / cg"

!

generateFile:filename

    ^ super generateFile:filename

    "Created: / 22-08-2006 / 18:35:40 / cg"

    "Modified: / 30-08-2006 / 19:23:12 / cg"

!

generate_modules_dot_c

    ^self replaceMappings: self modules_dot_c_mappings 

            in: self modules_dot_c

    "

     bosch_dapasx_application generate_modules_dot_c

    "

    "Created: / 19-09-2006 / 22:35:27 / cg"

!

generate_packageName_dot_nsi

    ^self replaceMappings: self packageName_dot_nsi_mappings 

            in: self packageName_dot_nsi

    "

     bosch_dapasx_application generate_packageName_dot_nsi

    "

    "Modified: / 09-08-2006 / 11:31:09 / fm"

    "Created: / 14-09-2006 / 21:08:23 / cg"

!

rcFilename

    ^ self packageName,'WinRC.rc'.

    "Created: / 07-09-2006 / 17:07:08 / cg"

!

resourceFilename

    ^ (self rcFilename asFilename withSuffix:'res') name

    "Created: / 07-09-2006 / 17:12:53 / cg"

! !

!ApplicationDefinition class methodsFor:'file templates'!

bc_dot_def

    "the template code for the bc.def file"

^ 

'DESCRIPTION     %(DESCRIPTION)

CODE            PRELOAD MOVEABLE DISCARDABLE

SEGMENTS

    INITCODE    PRELOAD DISCARDABLE

'

    "Created: / 08-08-2006 / 12:26:58 / fm"

    "Modified: / 08-08-2006 / 19:32:27 / fm"

    "Modified: / 17-08-2006 / 20:05:17 / cg"

!

buildDate_dot_h

    "the template code for the buildDate.h file"

^ 

'#define BUILD_DATE "%(BUILDDATE)"'

    "Created: / 30-08-2006 / 19:18:34 / cg"

!

classLine_modules_dot_c

^'_%(CLASS)_Init,'

    "Modified: / 08-08-2006 / 15:46:05 / fm"

    "Created: / 19-09-2006 / 22:49:46 / cg"

!

classLine_modules_dot_c_extern

^'extern void _%(CLASS)_Init();'

    "Modified: / 08-08-2006 / 15:46:05 / fm"

    "Created: / 19-09-2006 / 22:50:14 / cg"

!

modules_dot_c

^ 

'/* $','Header','$

 *

 * DO NOT EDIT 

 * automagically generated from the projectDefinition: ',self name,'.

 *

 * Warning: once you modify this file, do not rerun

 * stmkmp or projectDefinition-build again - otherwise, your changes are lost.

 */

typedef void (*vf)();

%(EXTERN_INIT_NAME_LIST)

static vf modules[] = {

    %(INIT_LIST)

    (vf)0

};

vf *__modules__ = modules;

'

    "Created: / 19-09-2006 / 22:36:58 / cg"

!

modules_dot_stx

^ 

'# $','Header','$

#

# DO NOT EDIT 

# automagically generated from the projectDefinition: ',self name,'.

#

# Warning: once you modify this file, do not rerun

# stmkmp or projectDefinition-build again - otherwise, your changes are lost.

#

# This file is (currently) only used with win-95 / win-NT versions of STX.

# It lists the dll''s which are to be loaded at startup time.

#

# All classes loaded at startup time will be present as precompiled classes.

# Others will be autoloaded.

#

%(PREREQUISITE_LIBS)

%(SUBPROJECT_LIBS)

'

    "Created: / 08-08-2006 / 12:26:58 / fm"

    "Modified: / 08-08-2006 / 19:32:27 / fm"

    "Modified: / 16-08-2006 / 17:56:58 / User"

    "Modified: / 17-08-2006 / 20:35:38 / cg"

!

nt_dot_mak

    |def needResources|

    needResources := false "self isGUIApplication".

    def :=

'# $','Header','$

#

# DO NOT EDIT 

# automagically generated from the projectDefinition: ',self name,'.

#

# Warning: once you modify this file, do not rerun

# stmkmp or projectDefinition-build again - otherwise, your changes are lost.

#

TOP=%(TOP)       

INCLUDE_TOP=$(TOP)\..

# CFLAGS1= -WD -w-pro -w-ccc -w-rch -w-aus -w-par -x- -r- -k -y -v -vi- -c -tWDR

CFLAGS1= -w-pro -w-ccc -w-rch -w-aus -w-par -x- -r- -k -y -v -vi- -c

CFLAGS_CONSOLE= -tWC -tWR -D_NO_VCL;WIN32 -DWIN_LOGFILE="\"%(APPLICATION)_%%d.log\""

CFLAGS_NOCONSOLE=-tWR -D_NO_VCL;WIN32GUI;WIN32 -DWIN_LOGFILE="\"%(APPLICATION)_%%d.log\""

LFLAGS_CONSOLE=-ap

LFLAGS_NOCONSOLE=-aa

CRT_STARTUP_CONSOLE=c0x32.obj

CRT_STARTUP_NOCONSOLE=c0w32.obj

CFLAGS_APPTYPE=$(CFLAGS_%(CONSOLE_OR_NOCONSOLE))