home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / hjavaos2.zip / makeobj.cmd < prev    next >
OS/2 REXX Batch file  |  1997-06-20  |  2KB  |  51 lines
  1. /* HotJava 1.0 Object Maker for OS/2 Warp with JDK 1.1.1 */
  2. /* By Samuel Audet <guardia@cam.org>                     */
  3.  
  4. call RxFuncAdd 'SysSearchPath', 'RexxUtil', 'SysSearchPath'
  5. javaexe = translate(syssearchpath('PATH','JAVA.EXE'))
  6. if javaexe = '' then do
  7.    say 'No Java runtime installed at all!  Aborting'
  8.    exit
  9. end
  10. parse var javaexe java11dir '\BIN'
  11.  
  12. parse arg parm
  13. parm = strip(parm)
  14. if parm <> '' then java11dir = parm
  15. if lastpos('\',java11dir) = length(java11dir) then java11dir = left(java11dir,length(java11dir) - 1)
  16. java11dir = strip(java11dir)
  17.  
  18. say 'HotJava 1.0 Object Maker for OS/2 Warp with JDK 1.1.1'
  19. say 'By Samuel Audet <guardia@cam.org>'
  20. say
  21. say 'Making Program Object for HotJava 1.0 with' java11dir '...'
  22. say 'This directory MUST contain OS/2 Java JDK 1.1.  If that is not the case,'
  23. say 'specify the apropriate directory on the command line. And no, don''t try'
  24. say 'it, it won''t run with JDK 1.0.'
  25.  
  26. /* Change to executed directory */
  27. parse source . . sourcename
  28. sourcedir = filespec('D', sourcename)||filespec('P', sourcename)
  29. sourcedir = delstr(sourcedir, length(sourcedir))
  30. call directory sourcedir
  31.  
  32. /* finding home dir */
  33. parse var sourcedir hotjavahome '\bin'
  34.  
  35. /* What are those? -noasyncgc -ms4m -mx32m */
  36.  
  37. classname='WPProgram'
  38. title='HotJava 1.0'
  39. location='<WP_DESKTOP>'
  40. setup='OBJECTID=<HOT_JAVA>;'||,
  41.       'EXENAME='java11dir'\BIN\JAVA.EXE;'||,
  42.       'ICONFILE='sourcedir'\hotjava.ico;'||,
  43.       'PARAMETERS=-classpath 'java11dir'\lib\classes.zip^;'hotjavahome'\lib\classes.zip^;'hotjavahome'\lib\ssl.zip -noasyncgc -ms4m -mx32m -Dhotjava.home='hotjavahome' sun.hotjava.Main;'
  44. say 'Creating Object: 'title
  45. result = SysCreateObject(classname, title, location, setup, 'R')
  46. If result > 1 Then say 'Error: Object not created. Return code='result
  47.  
  48.  
  49.  
  50.  
  51.