home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: InfoMgt / InfoMgt.zip / ftree12e.zip / Install.cmd < prev    next >
OS/2 REXX Batch file  |  1997-10-16  |  2KB  |  80 lines
  1. /* FamilyTree installation */
  2. SAY 'FamilyTree Installation'
  3. SAY
  4. SAY '    (d)eutsch (e)nglish d(u)tch (f)rench f(i)nnish ?'
  5.  
  6. CALL RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  7. CALL SysLoadFuncs
  8.  
  9. name='Family Tree 1.2e'
  10. language=SysGetKey(NOECHO)
  11.  
  12. PARSE UPPER VAR language language
  13. SAY
  14.  
  15. /* Do a german install */
  16. IF language='D' THEN DO
  17.    SAY 'Erzeuge Onlinehilfe !'
  18.    '@copy German.hlp FTree.hlp >nul'
  19.    SAY 'Erzeuge Sprachresource !'
  20.    '@copy German.dll FTree.dll >nul'
  21.    SAY 'Erzeuge Programmobjekt !'
  22.    IF SubCreateObject(name)=0
  23.       THEN SAY '*** Fehler beim Erzeugen des Programmobjektes!'
  24.    EXIT
  25.    END
  26.  
  27. /* Do a dutch install */
  28. IF language='U' THEN DO
  29.    SAY 'Creating english online-help !'
  30.    '@copy English.hlp FTree.hlp >nul'
  31.    SAY 'Creating dutch language-resource !'
  32.    '@copy Dutch.dll FTree.dll >nul'
  33.    SAY 'Creating program object !'
  34.    IF SubCreateObject(name)=0
  35.       THEN SAY '*** Error creating program object !'
  36.    EXIT
  37.    END
  38.  
  39. /* Do a french install */
  40. IF language='F' THEN DO
  41.    SAY 'Creating english online-help !'
  42.    '@copy English.hlp FTree.hlp >nul'
  43.    SAY 'Creating french language-resource !'
  44.    '@copy French.dll FTree.dll >nul'
  45.    SAY 'Creating program object !'
  46.    IF SubCreateObject(name)=0
  47.       THEN SAY '*** Error creating program object !'
  48.    EXIT
  49.    END
  50.  
  51. /* Do a finnish install */
  52. IF language='I' THEN DO
  53.    SAY 'Creating english online-help !'
  54.    '@copy English.hlp FTree.hlp >nul'
  55.    SAY 'Creating finnish language-resource !'
  56.    '@copy Finnish.dll FTree.dll >nul'
  57.    SAY 'Creating program object !'
  58.    IF SubCreateObject(name)=0
  59.       THEN SAY '*** Error creating program object !'
  60.    EXIT
  61.    END
  62.  
  63. /* Do an english install */
  64.    SAY 'Creating online-help !'
  65.    '@copy English.hlp FTree.hlp >nul'
  66.    SAY 'Creating language-resource !'
  67.    '@copy English.dll FTree.dll >nul'
  68.    SAY 'Creating program object !'
  69.    IF SubCreateObject(name)=0
  70.       THEN SAY '*** Error creating program object !'
  71.    EXIT
  72.  
  73.  
  74. /* Creation subroutine */
  75. SubCreateObject:
  76.    PARSE ARG objname
  77.    return(SysCreateObject("WPProgram",objname,"<WP_DESKTOP>","EXENAME="||DIRECTORY()||"\ftree.exe;OBJECTID=<FTREE>;ASSOCFILTER=*.fam",replace))
  78.  
  79.  
  80.