home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Science / Science.zip / fftpm110.zip / INSTALL.CMD < prev    next >
OS/2 REXX Batch file  |  1996-09-30  |  2KB  |  116 lines
  1. /* install.cmd - installer for FFTPM */
  2.  
  3. '@Echo Off'
  4.  
  5. /* REXXUTIL laden */
  6.  
  7. Call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
  8. Call SysLoadFuncs
  9.  
  10.  
  11. /* Default Install Directory */
  12.  
  13. DefaultDir = 'C:\FFTPM'
  14.  
  15.  
  16. Call SysCls
  17. Say '   Installation of FFTPM'
  18. Say ''
  19.  
  20.  
  21. /* Which language */
  22.  
  23. Say 'Install (E)nglish or (G)erman language version?'
  24. Pull YesNo
  25. If YesNo = "G" Then
  26.    Do
  27.      Language = 'DEUTSCH'
  28.    End
  29. Else
  30.    Do
  31.      Language = 'ENGLISH'
  32.    End
  33. Say ''
  34.  
  35.  
  36. /* Check for the files */
  37.  
  38. Result = SysFileTree( 'FFTPM.EXE', 'Files', 'F' )
  39. If Files.0 = 0 Then
  40.   Do
  41.   Say 'Error: FFTPM.EXE not found!'
  42.   exit
  43.   End
  44.  
  45. Result = SysFileTree( Language".DLL", 'Files', 'F' )
  46. If Files.0 = 0 Then
  47.   Do
  48.   Say 'Error: 'Language'.DLL not found!'
  49.   exit
  50.   End
  51.  
  52. Result = SysFileTree( Language".HLP", 'Files', 'F' )
  53. If Files.0 = 0 Then
  54.   Do
  55.   Say 'Error: 'Language'.HLP not found!'
  56.   exit
  57.   End
  58.  
  59. /* Get target directory */
  60.  
  61. If Language = 'DEUTSCH' Then
  62.   Do
  63.     Say 'Bitte geben Sie den vollen Verzeichnisnamen ein, wohin'
  64.     Say 'FFTPM installiert werden soll (Standard: 'DefaultDir'): '
  65.   End
  66. Else
  67.   Do
  68.     Say 'Please enter the full name of the directory to which you want'
  69.     Say 'to install FFTPM (default 'DefaultDir'): '
  70.   End
  71.  
  72. Pull Directory
  73. If Directory = "" Then Directory = DefaultDir
  74. Say ''
  75.  
  76. /* Create the target directory if necessary. */
  77.  
  78. Result = SysFileTree( Directory, 'Dirs', 'D' )
  79. If Dirs.0 = 0 Then
  80.   Do
  81.   Result = SysMkDir( Directory )
  82.   if Result == 0 Then
  83.     Do
  84.     End
  85.   Else
  86.     Do
  87.     Say 'FEHLER: Kann das Zielverzeichnis nicht anlegen.'
  88.     Say 'ERROR: Unable to create target directory.'
  89.     exit
  90.     End
  91.   End
  92. Say '';
  93.  
  94.  
  95. /* Do the installation */
  96.  
  97. Say 'Installing FFTPM to ' Directory '...'
  98. Copy FFTPM.EXE Directory '1>NUL'
  99. Copy Language".DLL" Directory"\FFTPM.DLL" '1>NUL'
  100. Copy Language".HLP" Directory"\FFTPM.HLP" '1>NUL'
  101.  
  102.  
  103. if SysCreateObject('WPProgram','FFTPM','<WP_DESKTOP>','EXENAME='Directory'\FFTPM.EXE;STARTUPDIR='Directory';PROGTYPE=PM;CCVIEW=YES;OBJECTID=<FFTPM>','r') then
  104.    do
  105.    say 'The program object was successfully created.'
  106.    say 'Das Programmobjekt wurde erstellt.'
  107.    end
  108. else
  109.    do
  110.    say 'Error: Cannot create object.'
  111.    say 'Fehler: Objekt konnte nicht erstellt werden!'
  112.    end
  113. Say ''
  114.  
  115. Exit
  116.