home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 February / PCWK0296.iso / sharewar / os2 / tekst / pluma110 / english.cmd next >
Encoding:
Text File  |  1994-06-21  |  2.2 KB  |  112 lines
  1. /* ENGLISH.CMD: Install PLUMA in English. */
  2.  
  3. '@Echo Off'
  4.  
  5. /* Set the installed object's title. */
  6.  
  7. Title = 'Pluma 1.10'
  8.  
  9.  
  10. /* Load REXXUTIL */
  11.  
  12. Call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
  13. Call SysLoadFuncs
  14.  
  15.  
  16. /* Initialize */
  17.  
  18. Signal On Failure Name FAILURE
  19. Signal On Halt Name HALT
  20. Signal On Syntax Name SYNTAX
  21.  
  22. Call SysCls
  23. Say 'Installing PLUMA...'
  24. Say ''
  25.  
  26.  
  27. /* Verify the existence of the various component files. */
  28.  
  29. Language = 'ENGLISH'
  30.  
  31. Result = SysFileTree( 'PLUMA.EXE', 'Files', 'F' )
  32. If Files.0 = 0 Then
  33.   Do
  34.   Say 'ERROR: PLUMA.EXE not found!'
  35.   Signal DONE
  36.   End
  37.  
  38. Result = SysFileTree( Language".DLL", 'Files', 'F' )
  39. If Files.0 = 0 Then
  40.   Do
  41.   Say 'ERROR: 'Language'.DLL not found!'
  42.   Signal DONE
  43.   End
  44.  
  45. Result = SysFileTree( Language".HLP", 'Files', 'F' )
  46. If Files.0 = 0 Then
  47.   Do
  48.   Say 'ERROR: 'Language'.HLP not found!'
  49.   Signal DONE
  50.   End
  51.  
  52. /* Ask for the target directory name. */
  53.  
  54. Say 'Please enter the full name of the directory to which'
  55. Say '  you want PLUMA installed (default C:\OS2\APPS): '
  56. Pull Directory
  57. If Directory = "" Then Directory = 'C:\OS2\APPS'
  58.  
  59.  
  60. /* Create the target directory if necessary. */
  61.  
  62. Result = SysFileTree( Directory, 'Dirs', 'D' )
  63. If Dirs.0 = 0 Then
  64.   Do
  65.   Result = SysMkDir( Directory )
  66.   if Result == 0 Then
  67.     Do
  68.     End
  69.   Else
  70.     Do
  71.     Say 'ERROR: Unable to create target directory.'
  72.     Signal DONE
  73.     End
  74.   End
  75. Say ''
  76.  
  77.  
  78. /* Perform the installation. */
  79.  
  80. Say 'Copying PLUMA to ' Directory '...'
  81. Copy PLUMA.EXE Directory                   '1>NUL'
  82. Copy Language".DLL" Directory"\PLUMA.DLL"  '1>NUL'
  83. Copy Language".HLP" Directory"\PLUMA.HLP"  '1>NUL'
  84.  
  85. Say 'Creating program object...'
  86. Type = 'WPProgram'
  87. Folder = '<WP_DESKTOP>'
  88. Parms = "MINWIN=DESKTOP;PROGTYPE=PM;EXENAME="Directory"\PLUMA.EXE;STARTUPDIR="Directory";OBJECTID=<PLUMA>;NOPRINT=YES;ASSOCTYPE=Pluma;"
  89. Result = SysCreateObject( Type, Title, Folder, Parms, 'ReplaceIfExists' )
  90.  
  91. If Result = 1 Then
  92.   Say 'Object created!  Done.'
  93. Else             
  94.   Say 'ERROR: Object not created.'
  95.  
  96. Signal DONE
  97.  
  98. FAILURE:
  99. Say 'REXX failure.'
  100. Signal DONE
  101.  
  102. HALT:
  103. Say 'REXX halt.'
  104. Signal DONE
  105.  
  106. SYNTAX:
  107. Say 'REXX syntax error.'
  108. Signal DONE
  109.  
  110. DONE:
  111. Exit
  112.