--- a/JavaUtilities.st Fri Feb 14 14:27:26 2014 +0100
+++ b/JavaUtilities.st Wed Jan 28 03:12:08 2015 +0100
@@ -1,9 +1,9 @@
"
- COPYRIGHT (c) 1996-2011 by Claus Gittinger
+ COPYRIGHT (c) 1996-2015 by Claus Gittinger
New code and modifications done at SWING Research Group [1]:
- COPYRIGHT (c) 2010-2011 by Jan Vrany, Jan Kurs and Marcel Hlopko
+ COPYRIGHT (c) 2010-2015 by Jan Vrany, Jan Kurs and Marcel Hlopko
SWING Research Group, Czech Technical University in Prague
This software is furnished under a license and may be used
@@ -27,13 +27,6 @@
category:'Languages-Java-Utilities'
!
-Object subclass:#Tomcat6x
- instanceVariableNames:'bootstrap'
- classVariableNames:'OldspaceIncreased'
- poolDictionaries:''
- privateIn:JavaUtilities
-!
-
Object subclass:#Tomcat7x
instanceVariableNames:'bootstrap'
classVariableNames:'OldspaceIncreased'
@@ -45,11 +38,11 @@
copyright
"
- COPYRIGHT (c) 1996-2011 by Claus Gittinger
+ COPYRIGHT (c) 1996-2015 by Claus Gittinger
New code and modifications done at SWING Research Group [1]:
- COPYRIGHT (c) 2010-2011 by Jan Vrany, Jan Kurs and Marcel Hlopko
+ COPYRIGHT (c) 2010-2015 by Jan Vrany, Jan Kurs and Marcel Hlopko
SWING Research Group, Czech Technical University in Prague
This software is furnished under a license and may be used
@@ -78,9 +71,15 @@
tomcat6x
- ^Tomcat6x new
+ (Smalltalk at: #ApacheTomcat6) isNil ifTrue:[
+ (Smalltalk loadPackage:'stx:libjava/examples/tomcat6') ifFalse:[
+ self error:'Failed to load Tomcat 6.x package'.
+ ].
+ ].
+ ^ (Smalltalk at: #ApacheTomcat6) new
"Created: / 07-05-2012 / 22:03:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 20-11-2013 / 10:05:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
tomcat7x
@@ -90,150 +89,6 @@
"Created: / 07-05-2012 / 22:11:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-!JavaUtilities::Tomcat6x methodsFor:'accessing - paths'!
-
-catalinaHome
- "Bit hacky, but..."
- "/ OperatingSystem getLoginName = 'jv' ifTrue: [
- "/ ^ '/home/jv/Projects/libjava/sources/libjava/branches/jk_new_structure/src/examples/tomcat/apache-tomcat-6.0.35-src/output/build'
- "/ ].
-
- OperatingSystem getLoginName = 'm' ifTrue: [
- ^ '/home/m/Projects/stx/libjava/branches/jk_new_structure/src/examples/tomcat/apache-tomcat-6.0.35-src/output/build'
- ].
- "Add your default here"
- ^ ((Smalltalk at: #'stx_libjava') packageDirectory / 'examples' / 'tomcat'
- / 'apache-tomcat-6.0.35-src' / 'output'
- / 'build') pathName
-
- "Created: / 08-12-2011 / 22:17:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 13-12-2011 / 14:32:49 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
- "Modified (format): / 23-08-2012 / 00:12:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 23-08-2012 / 01:58:37 / m"
-!
-
-classPath1
-
- ^ self catalinaHome , '/bin/*.jar'
-
- "Created: / 08-12-2011 / 22:43:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 09-01-2013 / 16:47:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-classPath2
-
- ^ self catalinaHome , '/lib/*.jar'
-
- "Created: / 08-12-2011 / 22:44:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-sourcePath
- | pkgdir root path p |
- pkgdir := Smalltalk getPackageDirectoryForPackage: self class package.
- pkgdir isNil ifTrue: [ ^ #() ].
- root := pkgdir / 'examples' / 'tomcat' / 'apache-tomcat-6.0.35-src'.
- OperatingSystem getLoginName = 'm' ifTrue: [
- root := '/home/m/Projects/stx/libjava/branches/jk_new_structure/src/examples/tomcat/apache-tomcat-6.0.35-src'
- asFilename
- ].
- OperatingSystem getLoginName = 'jv' ifTrue: [
- root := '/home/jv/Projects/libjava/sources/libjava/branches/jk_new_structure/src/examples/tomcat/apache-tomcat-6.0.35-src/'
- asFilename
- ].
- root exists ifFalse: [ ^ #() ].
- path := OrderedCollection new.
- (p := root / 'java') exists ifTrue: [ path add: p ].
- (p := root / 'java-extras') exists ifTrue: [ path add: p ].
- ^ path
-
- "Created: / 08-12-2011 / 23:16:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 13-12-2011 / 14:33:42 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
- "Modified: / 30-07-2012 / 15:11:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 23-08-2012 / 01:58:54 / m"
-! !
-
-!JavaUtilities::Tomcat6x methodsFor:'initialization'!
-
-initializeVM
-
- Java flushAllJavaResources.
- Java initialize.
- JavaVM initializeVM.
-
- "Created: / 08-12-2011 / 00:01:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-setup
-
- | catalinaHome java_lang_System |
-
- catalinaHome := self catalinaHome.
- catalinaHome asFilename exists ifFalse:[
- self error:'Catalina home does not exist'.
- ^self.
- ].
-
- Java addToClassPath: self classPath1.
- Java addToClassPath: self classPath2.
- self sourcePath do:[:each|Java addToSourcePath: each].
- JavaVM booted ifFalse:[self initializeVM].
- java_lang_System := Java classForName:'java.lang.System'.
-
- {
- 'java.util.logging.config.file'. catalinaHome , '/conf/logging.properties' .
- 'java.util.logging.manager'. 'org.apache.juli.ClassLoaderLogManager' .
- 'java.endorsed.dirs'. catalinaHome , '/endorsed' .
- 'catalina.base'. catalinaHome .
- 'catalina.home'. catalinaHome .
- 'java.io.tmpdir'. catalinaHome , '/temp' .
- } pairWiseDo:[:key :value|
- java_lang_System perform: #'setProperty(Ljava/lang/String;Ljava/lang/String;)Ljava/lang/String;'
- with: (Java as_String: key)
- with: (Java as_String: value)
- ].
- OldspaceIncreased ~~ true ifTrue:[
- ObjectMemory moreOldSpace: 64"MB"*(1024*1024).
- OldspaceIncreased := true.
- ].
-
- "Created: / 18-04-2012 / 08:08:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-! !
-
-!JavaUtilities::Tomcat6x methodsFor:'start/stop'!
-
-start
-
- | notifier |
-
- self setup.
-
- notifier := (Java classForName: 'stx.libjava.tomcat.StartupNotifier').
-
-
- [
- (Java classForName: 'org.apache.catalina.startup.Bootstrap')
- perform: #'main([Ljava/lang/String;)V'
- with: ((Java classForName:'java.lang.String') javaArrayClass with:(Java as_String:'start')).
- ] fork.
-
- notifier waitUntilStarted.
- Transcript showCR: '== TomCat ready!! =='
-
- "Created: / 07-12-2011 / 23:59:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 10-01-2013 / 16:55:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-stop
-
- self setup.
-
- (Java classForName: 'org.apache.catalina.startup.Bootstrap')
- perform: #'main([Ljava/lang/String;)V'
- with: ((Java classForName:'java.lang.String') javaArrayClass with:(Java as_String:'stop'))
-
- "Created: / 08-12-2011 / 00:32:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-! !
-
!JavaUtilities::Tomcat7x methodsFor:'accessing - paths'!
catalinaHome
@@ -348,7 +203,7 @@
!JavaUtilities class methodsFor:'documentation'!
version_CVS
- ^ '$Header: /cvs/stx/stx/libjava/JavaUtilities.st,v 1.3 2013-09-06 00:41:27 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libjava/JavaUtilities.st,v 1.4 2015-01-28 02:10:50 vrany Exp $'
!
version_HG
@@ -357,6 +212,6 @@
!
version_SVN
- ^ '§Id§'
+ ^ 'Id'
! !