home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 17 / CD_ASCQ_17_101194.iso / vrac_os2 / fmcrd151.zip / ENGLISH.CMD < prev    next >
OS/2 REXX Batch file  |  1994-08-02  |  4KB  |  135 lines
  1. /********************************************************************/
  2. /*                                                                  */
  3. /* Card Games for OS/2                                              */
  4. /*                                                                  */
  5. /* English Installation, Version 1.51                               */
  6. /*                                                                  */
  7. /* Copyright 1994 (C) by Felix Maschek, Hamburg                     */
  8. /*                                                                  */
  9. /* EMail: CompuServe 100120,1370                                    */
  10. /*                   OS2SHARE                                       */
  11. /*                                                                  */
  12. /********************************************************************/
  13.  
  14. '@Echo Off'
  15.  
  16. /* load REXXUTIL */
  17.  
  18. Call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
  19. Call SysLoadFuncs
  20.  
  21.  
  22. /* Initialisation */
  23.  
  24. Signal On Failure Name FAILURE
  25. Signal On Halt Name HALT
  26. Signal On Syntax Name SYNTAX
  27.  
  28. Call SysCls
  29. Say 'Installation of CARDS 1.51...'
  30. Say ''
  31.  
  32.  
  33. /* Check... */
  34.  
  35. Result = SysFileTree( "CARDS.EXE", 'Files', 'F' )
  36. If Files.0 = 0 Then
  37.   Do
  38.   Say 'ERROR: CARDS.EXE not found!'
  39.   Signal DONE
  40.   End
  41.  
  42. Result = SysFileTree( "PICTURES.DLL", 'Files', 'F' )
  43. If Files.0 = 0 Then
  44.   Do
  45.   Say 'ERROR: PICTURES.DLL not found!'
  46.   Signal DONE
  47.   End
  48.  
  49. Result = SysFileTree( "CARDSENG.HLP", 'Files', 'F' )
  50. If Files.0 = 0 Then
  51.   Do
  52.   Say 'ERROR: CARDSENG.HLP not found!'
  53.   Signal DONE
  54.   End
  55.  
  56. Result = SysFileTree( "CARDSENG.DLL", 'Files', 'F' )
  57. If Files.0 = 0 Then
  58.   Do
  59.   Say 'ERROR: CARDSENG.DLL not found!'
  60.   Signal DONE
  61.   End
  62.  
  63. /* Zielverzeichnis erfragen. */
  64.  
  65. Say 'Please enter the full target path for CARDS'
  66. Say '  Default: C:\CARDS: '
  67. Pull Directory
  68. If Directory = "" Then Directory = 'C:\CARDS'
  69.  
  70.  
  71. /* create target-path. */
  72.  
  73. Result = SysFileTree( Directory, 'Dirs', 'D' )
  74. If Dirs.0 = 0 Then
  75.   Do
  76.   Result = SysMkDir( Directory )
  77.   if Result == 0 Then
  78.     Do
  79.     End
  80.   Else
  81.     Do
  82.     Say 'ERROR: Can''t create target path.'
  83.     Signal DONE
  84.     End
  85.   End
  86. Say '';
  87.  
  88. /* Create desktop object */
  89.  
  90. Folder = '<WP_DESKTOP>'
  91.  
  92. /* Install */
  93.  
  94. Say 'Copying CARDS to ' Directory '...'
  95. Copy "CARDS.EXE" Directory"\CARDS.EXE" '1>NUL'
  96. Copy "PICTURES.DLL" Directory"\PICTURES.DLL" '1>NUL'
  97. Copy "CARDSGER.HLP" Directory"\CARDSGER.HLP" '1>NUL'
  98. Copy "CARDSGER.DLL" Directory"\CARDSGER.DLL" '1>NUL'
  99. Copy "CARDSENG.HLP" Directory"\CARDSENG.HLP" '1>NUL'
  100. Copy "CARDSENG.DLL" Directory"\CARDSENG.DLL" '1>NUL'
  101. Copy "CARDSNOR.HLP" Directory"\CARDSNOR.HLP" '1>NUL'
  102. Copy "CARDSNOR.DLL" Directory"\CARDSNOR.DLL" '1>NUL'
  103. Copy "CARDSSWE.HLP" Directory"\CARDSSWE.HLP" '1>NUL'
  104. Copy "CARDSSWE.DLL" Directory"\CARDSSWE.DLL" '1>NUL'
  105. Copy "CARDSFRA.HLP" Directory"\CARDSFRA.HLP" '1>NUL'
  106. Copy "CARDSFRA.DLL" Directory"\CARDSFRA.DLL" '1>NUL'
  107.  
  108. Say 'Creating desktop object...'
  109. Type = 'WPProgram'
  110. Title = 'Cardgames'
  111. Parms = 'MINWIN=DESKTOP;PROGTYPE=PM;EXENAME='Directory'\CARDS.EXE;PARAMETERS=CARDSENG;STARTUPDIR='Directory';OBJECTID=<CARDS>;NOPRINT=YES;'
  112. Result = SysCreateObject( Type, Title, Folder, Parms, 'ReplaceIfExists' )
  113.  
  114. If Result = 1 Then
  115.   Say 'Desktop object was created!  Ready.'
  116. Else             
  117.   Say 'ERROR: Can''t create desktop object!'
  118.  
  119. Signal DONE
  120.  
  121. FAILURE:
  122. Say 'Error while processing REXX.'
  123. Signal DONE
  124.  
  125. HALT:
  126. Say 'REXX-Halt.'
  127. Signal DONE
  128.  
  129. SYNTAX:
  130. Say 'REXX-Syntaxerror.'
  131. Signal DONE
  132.  
  133. DONE:
  134. Exit
  135.