"{ Package: 'stx:libjava/startup' }"

StandaloneStartup subclass:#JavaStartup

	instanceVariableNames:''

	classVariableNames:'ClassPath'

	poolDictionaries:''

	category:'Languages-Java-Support'

!

!JavaStartup class methodsFor:'constants & defaults'!

applicationRegistryPath

    "the key under which this application stores its process ID in the registry

     as a collection of path-components.

     i.e. if #('foo' 'bar' 'baz') is returned here, the current applications ID will be stored

     in HKEY_CURRENT_USER\Software\foo\bar\baz\CurrentID.

     (would also be used as a relative path for a temporary lock file under unix).

     Used to detect if another instance of this application is already running."

    ^ #('stx' 'java_x')

    "Created: / 07-02-2011 / 10:55:08 / Marcel Hlopko <hlopik@gmail.com>"

!

applicationUUID

    "answer an application-specific unique uuid.

     This is used as the name of some exclusive OS-resource, which is used to find out,

     if another instance of this application is already running.

     Under win32, a mutex is used; under unix, an exclusive file in the tempDir could be used."

    ^ 'ST_X_JAVA_X'.

    "Created: / 07-02-2011 / 10:52:50 / Marcel Hlopko <hlopik@gmail.com>"

! !

!JavaStartup class methodsFor:'startup'!

main:argv 

    "Currently only -c option for classpath setting working"

    |class arguments classAndArguments classpath classpathFromEnv|

    classpath := OrderedCollection new.

    classpathFromEnv := OperatingSystem getEnvironment:#CLASSPATH.

    classpathFromEnv isNil ifFalse:[

        (classpathFromEnv asArrayOfSubstringsSeparatedBy:$:) do:[:each | 

            classpath add:each

        ]

    ].

    classAndArguments := OrderedCollection new.

    (GetOpt new)

        at:$c

            put:[:opt :arg | (arg asArrayOfSubstringsSeparatedBy:$:) do: [:each | classpath add: each]];

        at:$? put:[:arg | self error:'not yet implemented'];

        default:[:arg | classAndArguments add:arg];

        parse:argv.

    class := classAndArguments at:1.

    arguments := classAndArguments

                removeFirst;

                yourself.

    Java flushAllJavaResources.

    self breakPoint:#mh.

    Java initialize.

    JavaVM initializeVM.

    classpath do:[:each | 

        Java addToClassPath:each

    ].

    (Java classForName:class) main:arguments asArray.

    "Created: / 07-02-2011 / 10:55:41 / Marcel Hlopko <hlopik@gmail.com>"

    "Modified: / 08-02-2011 / 00:55:42 / Marcel Hlopko <hlopik@gmail.com>"

! !

!JavaStartup class methodsFor:'documentation'!

version_SVN

    ^ '$Id$'

! !