home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: Java
/
Java.zip
/
hj11os2.zip
/
makeobj.cmd
< prev
next >
Wrap
OS/2 REXX Batch file
|
1997-09-21
|
2KB
|
57 lines
/* HotJava 1.1 Object Maker for OS/2 Warp with JDK 1.1.1 */
/* By Samuel Audet <guardia@cam.org> */
call RxFuncAdd 'SysSearchPath', 'RexxUtil', 'SysSearchPath'
call RxFuncAdd 'SysMkDir', 'RexxUtil', 'SysMkDir'
call RxFuncAdd 'SysCreateObject', 'RexxUtil', 'SysCreateObject'
/* find Java 1.1 directory */
javaexe = syssearchpath('PATH','JAVA.EXE')
if javaexe = '' then do
say 'No Java runtime installed at all! Aborting'
exit
end
parse var javaexe java11dir '\BIN'
parse arg parm
parm = strip(parm)
if parm <> '' then java11dir = parm
if lastpos('\',java11dir) = length(java11dir) then java11dir = left(java11dir,length(java11dir) - 1)
java11dir = strip(java11dir)
/* create HotJava propreties directory if it doesn't exist */
call sysmkdir java11dir'\.hotjava'
say 'HotJava 1.1 Object Maker for OS/2 Warp with JDK 1.1.1'
say 'By Samuel Audet <guardia@cam.org>'
say
say 'Making Program Object for HotJava 1.1 with' java11dir '...'
say 'This directory MUST contain OS/2 Java JDK 1.1. If that is not the case,'
say 'specify the apropriate directory on the command line. And no, don''t try'
say 'it, it won''t run with JDK 1.0.'
/* Change to executed directory */
parse source . . sourcename
sourcedir = filespec('D', sourcename)||filespec('P', sourcename)
sourcedir = delstr(sourcedir, length(sourcedir))
call directory sourcedir
/* finding home dir */
sourcedir = translate(sourcedir)
parse var sourcedir hotjavahome '\BIN'
/* What are those? -noasyncgc -ms4m -mx32m */
classname='WPProgram'
title='HotJava 1.1'
location='<WP_DESKTOP>'
setup='OBJECTID=<HOT_JAVA>;'||,
'EXENAME='java11dir'\BIN\JAVA.EXE;'||,
'ICONFILE='sourcedir'\hotjava.ico;'||,
'PARAMETERS=-classpath 'java11dir'\lib\classes.zip^;'hotjavahome'\lib\classes.zip^;'hotjavahome'\lib\ssl.zip^;'hotjavahome'\lib\. -noasyncgc -ms4m -mx32m -Dhotjava.home='hotjavahome' -Djava.home='java11dir' sunw.hotjava.Main;'
say 'Creating Object: 'title
result = SysCreateObject(classname, title, location, setup, 'R')
If result > 1 Then say 'Error: Object not created. Return code='result