"

 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 classBaseFilename asFilename withSuffix:'so') baseName].

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

    "Modified: / 12-10-2006 / 15:50:39 / cg"

!

guiClassFileNames_win32

    ^ self guiClasses_win32 

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

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

    "Modified: / 12-10-2006 / 15:50:42 / 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'!

documentExtensions

    "list extensions which should be registered with the application.

     Results in the application to be started when double-clicking on such a file (win32)"

    ^ #()

    "Created: / 15-10-2006 / 12:44:14 / cg"

!

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"

!

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: / 29-09-2006 / 17:32:57 / 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"

    "Modified: / 15-10-2006 / 12:52:21 / 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"

!

defineExtenionLine_nsi_for:extension

    "the template code for a single extenions definition line in the <appname>.nsi file"

^ 

'  WriteRegStr HKCR ".',extension,'" "" "%(MODULE_KEY).%(PRODUCT_NAME).1"'

    "Created: / 15-10-2006 / 12:50:00 / cg"

!

make_dot_proto

^ 

'# $','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.

#

# The Makefile as generated by this Make.proto supports the following targets:

#    make         - compile all st-files to a classLib

#    make clean   - clean all temp files

#    make clobber - clean all

#

# This file contains definitions for Unix based platforms.

# It shares common definitions with the win32-make in Make.spec.

#

# position (of this package) in directory hierarchy:

# (must point to ST/X top directory, for tools and includes)

TOP=%(TOP)

INCLUDE_TOP=$(TOP)/..

# subdirectories where targets are to be made:

SUBDIRS=%(SUBDIRECTORIES)

# subdirectories where Makefiles are to be made:

# (only define if different from SUBDIRS)

# ALLSUBDIRS=

# if your embedded C code requires any system includes, 

# add the path(es) here:, 

# ********** OPTIONAL: MODIFY the next lines ***

# LOCALINCLUDES=-Ifoo -Ibar

LOCALINCLUDES=%(LOCAL_INCLUDES)

# if you need any additional defines for embedded C code, 

# add them here:, 

# ********** OPTIONAL: MODIFY the next lines ***

# LOCALDEFINES=-Dfoo -Dbar -DDEBUG

LOCALDEFINES=%(LOCAL_DEFINES)

LIBNAME=%(LIBRARY_NAME)

STCLOCALOPT=''-package=$(PACKAGE)'' -I. $(LOCALINCLUDES) $(STCLOCALOPTIMIZATIONS) $(STCWARNINGS) $(LOCALDEFINES) %(HEADEROUTPUTARG) %(COMMONSYMFLAG) -varPrefix=$(LIBNAME)

# ********** OPTIONAL: MODIFY the next line ***

# additional C-libraries that should be pre-linked with the class-objects

LD_OBJ_LIBS=%(ADDITIONAL_LINK_LIBRARIES)

LOCAL_SHARED_LIBS=%(ADDITIONAL_SHARED_LINK_LIBRARIES)

# ********** OPTIONAL: MODIFY the next line ***

# additional C targets or libraries should be added below

LOCAL_EXTRA_TARGETS=

OBJS= $(COMMON_OBJS) $(UNIX_OBJS)

%(ADDITIONAL_DEFINITIONS)

all:: preMake classLibRule postMake

pre_objs:: %(ADDITIONAL_TARGETS)

%(ADDITIONAL_RULES)

# add more install actions here

install::