"{ Package: 'stx:libbasic3' }"

Object subclass:#ProjectDefinition

!

!ProjectDefinition class methodsFor:'instance creation'!

definitionClassForPackage:aPackageID

    |classes|

    classes := OrderedCollection new.

    Smalltalk allClassesInPackage:aPackageID 

                do:[:eachClass |

                    eachClass isLoaded ifFalse:[

                        eachClass autoload

                    ].

                    (eachClass isSubclassOf:ProjectDefinition) ifTrue:[

                        classes add:eachClass    

                    ]

                ].

    classes isEmpty ifTrue:[

        ^ nil

    ].

    classes size > 1 ifTrue:[

        self error:'OOPS - multiple projectDefinitions' mayProceed:true.

        ^ classes first.

    ].

    ^ classes first

    "Created: / 09-08-2006 / 17:27:32 / fm"

!

newNamed:newName package:packageID

    |newClass|

    newClass := self

                    subclass:(newName asSymbol)

                    instanceVariableNames:''

                    classVariableNames:''

                    poolDictionaries:''

                    category:'* Projects *'.

    newClass package:packageID asSymbol.

    ^ newClass

    "Created: / 09-08-2006 / 17:57:37 / fm"

    "Modified: / 09-08-2006 / 19:27:53 / fm"

! !

!ProjectDefinition class methodsFor:'accessing'!

initialClassNameForDefinitionOf:aPackageId

    |s|

    s := aPackageId asString copy replaceAny:':/' by:$_.

    (s endsWith:$_) ifTrue:[

        s := s copyWithoutLast:1

    ].

    ^ s , '_Definition'

"

   DapasXProject initialClassNameForDefinitionOf:'bosch:dapasx/interactiver_editor' 

   DapasXProject initialClassNameForDefinitionOf:'stx:libbasic' 

   DapasXProject initialClassNameForDefinitionOf:'stx:goodies/xml' 

"

    "Created: / 09-08-2006 / 17:44:47 / fm"

    "Modified: / 10-08-2006 / 13:33:14 / cg"

!

libraryName

       ^ self package asString copy replaceAny:':/' by:$_

"

"

    "Modified: / 09-08-2006 / 18:20:29 / fm"

!

module

^self moduleOfClass: self

"

   DapasXProject module

   DapasX_Datenbasis module

"

    "Created: / 08-08-2006 / 20:24:53 / fm"

    "Modified: / 09-08-2006 / 16:16:37 / fm"

!

moduleDirectory

^(self package subStrings: $:) last

"

   DapasXProject moduleDirectory

   DapasX_Datenbasis moduleDirectory

"

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

!

moduleOfClass: aClass

^(aClass package subStrings: $:) first

"

   DapasXProject module

   DapasX_Datenbasis module

"

    "Created: / 09-08-2006 / 16:16:16 / fm"

!

msdosPathToPackage:aPackageID

"Returns the path to stx counting the number of $/ and $: in the package name and adding for each one '../' to get the ST/X top directory"

        ^ self msdosPathToTop , '\..\' , (aPackageID asString copy replaceAll:$: by:$/)

"

   DapasX_Datenbasis pathToPackage:'bosch:dapasx/kernel'

"

    "Created: / 09-08-2006 / 16:35:22 / fm"

!

msdosPathToTop

"Returns the path to stx counting the number of $/ and $: in the package name and adding for each one '../' to get the ST/X top directory"

       ^ (((1 to:(self package asCollectionOfSubstringsSeparatedByAny:':/') size)

            collect:[:n | '..\']) asStringWith:'') , 'stx'    

"

   DapasXProject pathToTop    

   DapasX_Datenbasis pathToTop  

"

    "Created: / 09-08-2006 / 15:45:54 / fm"

!

parentProject

    ^(self package asString subStrings: $/) first

"

    DapasX_Datenbasis parentProject

"

    "Created: / 07-08-2006 / 20:18:27 / fm"

    "Modified: / 08-08-2006 / 10:47:37 / fm"

!

unixPathToPackage:aPackageID

"Returns the path to stx counting the number of $/ and $: in the package name and adding for each one '../' to get the ST/X top directory"

        ^ self unixPathToTop , '/../' , (aPackageID asString copy replaceAll:$: by:$/)

"

   DapasX_Datenbasis pathToPackage:'bosch:dapasx/kernel'

"

    "Created: / 09-08-2006 / 16:35:22 / fm"

!

unixPathToTop

"Returns the path to stx counting the number of $/ and $: in the package name and adding for each one '../' to get the ST/X top directory"

       ^ (((1 to:(self package asCollectionOfSubstringsSeparatedByAny:':/') size)

            collect:[:n | '../']) asStringWith:'') , 'stx'    

"

   DapasXProject pathToTop    

   DapasX_Datenbasis pathToTop  

"

    "Created: / 09-08-2006 / 15:45:54 / fm"

! !

!ProjectDefinition class methodsFor:'file generation'!

allClassNames

    ^ (self compiled_classNames , self autoloaded_classNames , self excluded_classNames)

!

generate_abbrev_dot_stc

    ^ String 

        streamContents:[:s | 

            self allClassNames do:[:eachClassName | 

                |cls fn|

                cls := Smalltalk classNamed:eachClassName.

                cls autoload.

                s nextPutAll:eachClassName.

                s nextPutAll:' '.

                fn := cls classFilename asFilename withoutSuffix baseName.

                (fn includes:Character space) ifTrue:[

                    s nextPutAll:fn storeString.

                ] ifFalse:[

                    s nextPutAll:fn.

                ].

                s nextPutAll:' '.

                s nextPutAll:cls package.

                s nextPutAll:' '.

                s nextPutAll:cls category asString storeString.

                s nextPutAll:' '.

                s nextPutAll:(cls theMetaclass instVarNames size) printString.

                s cr.

            ]

        ]

    "

        DapasXProject generate_abbrev_dot_stc

        DapasX_Datenbasis generate_abbrev_dot_stc

        bosch_dapasx_interactiver_editor_Definition generate_abbrev_dot_stc

    "

    "Created: / 09-08-2006 / 11:24:39 / fm"

!

generate_bc_dot_def                         

    ^self replaceMappings: self bc_dot_def_mappings 

            in: self bc_dot_def

"

  DapasXProject generate_bc_dot_def

  DapasX_Datenbasis generate_bc_dot_def

"

    "Modified: / 09-08-2006 / 11:30:42 / fm"

!

generate_libInit_dot_cc

    ^self replaceMappings: self libInit_dot_cc_mappings 

            in: self libInit_dot_cc

"

  DapasXProject generate_libInit_dot_cc

  DapasX_Datenbasis generate_libInit_dot_cc

"

    "Created: / 08-08-2006 / 12:47:16 / fm"

    "Modified: / 09-08-2006 / 11:30:52 / fm"

!

generate_make_dot_proto   

    ^self replaceMappings: self make_dot_proto_mappings 

            in: self make_dot_proto

"

  DapasXProject generate_make_dot_proto

  DapasX_Datenbasis generate_make_dot_proto

"

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

!

generate_make_dot_spec

    ^self replaceMappings: self make_dot_spec_mappings 

            in: self make_dot_spec

"

  DapasXProject generate_make_dot_spec

  DapasX_Datenbasis generate_make_dot_spec

"

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

!

generate_nt_dot_def                           

    ^self replaceMappings: self nt_dot_def_mappings 

            in: self nt_dot_def

"

  DapasXProject generate_nt_dot_def

  DapasX_Datenbasis generate_nt_dot_def

"

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

!

generate_nt_dot_mak         

    ^self replaceMappings: self nt_dot_mak_mappings 

            in: self nt_dot_mak

"

  DapasXProject generate_nt_dot_mak

  DapasX_Datenbasis generate_nt_dot_mak

"

    "Modified: / 09-08-2006 / 11:46:14 / fm"

! !

!ProjectDefinition class methodsFor:'file templates'!

bc_dot_def

^ 

'LIBRARY        %(LIBRARY_NAME)

DESCRIPTION     %(DESCRIPTION)

CODE            PRELOAD MOVEABLE DISCARDABLE

SEGMENTS

    INITCODE    PRELOAD DISCARDABLE

EXPORTS

    __%(LIBRARY_NAME)_Init     @1

'

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

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

!

classLine_libInit_dot_cc

^'_%(CLASS)_Init(pass,__pRT__,snd);'

    "Created: / 08-08-2006 / 12:51:44 / fm"

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

!

extensionLine_libInit_dot_cc

^'_%(LIBRARY_NAME)_extensions_Init(pass,__pRT__,snd);'

    "Created: / 08-08-2006 / 15:48:56 / fm"

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

!

libInit_dot_cc

^ 

'/*

 * DO NOT EDIT 

 * automagically generated from Make.proto (by make libInit.cc)

 */

#define __INDIRECTVMINITCALLS__

#include <stc.h>

#define INIT_TEXT_SECT /* as nothing */

#ifdef WIN32

# pragma codeseg INITCODE "INITCODE"

#else /* not WIN32 */

# if defined(__GNUC__) && !!defined(NO_SECTION_ATTRIBUTES)

#  if (__GNUC__  == 2 && __GNUC_MINOR__ >= 7) || __GNUC__ > 2

#   undef INIT_TEXT_SECT

#   define INIT_TEXT_SECT __attribute__((section(".stxitext")))

#  endif

# endif /* not GNUC */

#endif /* not WIN32 */

#ifdef INIT_TEXT_SECT

extern void _%(LIBRARY_NAME)_Init() INIT_TEXT_SECT;

#endif

void _%(LIBRARY_NAME)_Init(pass, __pRT__, snd)

OBJ snd; struct __vmData__ *__pRT__; {

__BEGIN_PACKAGE2__("%(LIBRARY_NAME)", _%(LIBRARY_NAME)_Init, "%(PACKAGE)");

%(CLASSES)

%(EXTENSION)

__END_PACKAGE__();

}'

    "Created: / 08-08-2006 / 12:40:45 / fm"

    "Modified: / 08-08-2006 / 19:33:01 / fm"

!

make_dot_proto

^ 

'#

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

# stmkmp 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 install - install the classLib in /opt/smalltalk/...

#    make clean   - clean all temp files

#    make clobber - clean all

#

# position (of this package) in directory hierarchy:

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

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)

#

# The next 2 defines should be left as-is

#  for a class-library package, you can uncomment the following:

#  (it does not hurt much, if you leave it as is - but you may NOT

#   uncomment it if object files are to be loaded individually later).

# INITCODESEPFLAG=$(SEPINITCODE)

#

#  the following MAY ONLY be uncommented for classes/classLibs,

#  which are ALWAYS statically included in the executable.

#  (i.e. NEVER for those which are subject to dynamic loading).

# COMMONSYMFLAG=$(COMMONSYMBOLS)

#

STCLOCALOPT=-I. $(LOCALINCLUDES) $(STCLOCALOPTIMIZATIONS) $(STCWARNINGS) $(LOCALDEFINES) -H. ''-P$(PACKAGE)'' ''-Z$(LIBNAME)'' $(COMMONSYMFLAG) $(INITCODESEPFLAG)

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

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

LD_OBJ_LIBS=

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

# additional C targets or libraries should be added below

LOCAL_EXTRA_TARGETS=

all:: preMake classLibRule postMake

# add more install actions here

install::

# add more install actions for aux-files (resources) here

installAux::

# add more preMake actions here

preMake::

# add more postMake actions here

postMake:: cleanjunk

cleanjunk::

clean::

        -rm -f *.o *.H

clobber::

        -rm -f *.so *.dll

',

"

$(INSTALLBASE)::

        @test -d $@ || mkdir $@

$(INSTALLBASE)/packages:: $(INSTALLBASE)

        @test -d $@ || mkdir $@

$(INSTALLBASE)/packages/$(MODULE):: $(INSTALLBASE)/packages

        @test -d $@ || mkdir $@

$(INSTALLBASE)/packages/$(MODULE)/dapasx:: $(INSTALLBASE)/packages/$(MODULE)

        @test -d $@ || mkdir $@

$(INSTALLBASE)/packages/$(MODULE)/dapasx/interactiver_editor:: $(INSTALLBASE)/packages/$(MODULE)/dapasx

        @test -d $@ || mkdir $@