home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: InfoMgt / InfoMgt.zip / clock230.zip / ITALIANO.CMD < prev    next >
OS/2 REXX Batch file  |  1995-08-28  |  3KB  |  132 lines
  1. /* ITALIANO.CMD: Install CLOCK in Italiano. */
  2.  
  3. '@Echo Off'
  4. 'CHCP 850'
  5.  
  6. /* Load REXXUTIL */
  7.  
  8. Call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
  9. Call SysLoadFuncs
  10.  
  11.  
  12. /* Initialize */
  13.  
  14. Signal On Failure Name FAILURE
  15. Signal On Halt Name HALT
  16. Signal On Syntax Name SYNTAX
  17.  
  18. Call SysCls
  19. Say 'Installo CLOCK...'
  20. Say ''
  21.  
  22.  
  23. /* Verify the existence of the various component files. */
  24.  
  25. Language = 'ITALIANO'
  26.  
  27. Result = SysFileTree( 'CLOCK.EXE', 'Files', 'F' )
  28. If Files.0 = 0 Then
  29.   Do
  30.   Say 'ERROR: CLOCK.EXE non trovato!'
  31.   Signal DONE
  32.   End
  33.  
  34. Result = SysFileTree( Language".DLL", 'Files', 'F' )
  35. If Files.0 = 0 Then
  36.   Do
  37.   Say 'ERROR: 'Language'.DLL trovato!'
  38.   Signal DONE
  39.   End
  40.  
  41. Result = SysFileTree( Language".HLP", 'Files', 'F' )
  42. If Files.0 = 0 Then
  43.   Do
  44.   Say 'ERROR: 'Language'.HLP non trovato!'
  45.   Signal DONE
  46.   End
  47.  
  48. /* Ask for the target directory name. */
  49.  
  50. Say 'Per favore scrivi il nome completo del percorso in cui'
  51. Say '  desideri installare il CLOCK (default C:\OS2\APPS): '
  52. Parse Pull Directory
  53. If Directory = "" Then Directory = 'C:\OS2\APPS'
  54.  
  55.  
  56. /* Create the target directory if necessary. */
  57.  
  58. Result = SysFileTree( Directory, 'Dirs', 'D' )
  59. If Dirs.0 = 0 Then
  60.   Do
  61.   Result = SysMkDir( Directory )
  62.   if Result == 0 Then
  63.     Do
  64.     End
  65.   Else
  66.     Do
  67.     Say 'ERROR: Non riesco a crare la directory di destinazione.'
  68.     Signal DONE
  69.     End
  70.   End
  71. Say ''
  72.  
  73.  
  74. /* Ask for the target folder. */
  75.  
  76. Say 'Desideri inserirlo nel folder di startup? (S/N)'
  77. Pull YesNo
  78. If YesNo = "S" Then
  79.   Do
  80.   Folder = '<WP_START>'
  81.   Say 'Oggetto posto nella dir di startup.'
  82.   End
  83. Else
  84.   Do
  85.   Folder = '<WP_DESKTOP>'
  86.   Say 'Oggetto posto sul desktop.'
  87.   End
  88. Say ''
  89.  
  90.  
  91. /* Perform the installation. */
  92.  
  93. Say 'Copio CLOCK in ' Directory '...'
  94. Copy CLOCK.EXE Directory                  '1>NUL'
  95. Copy Language".DLL" Directory"\CLOCK.DLL" '1>NUL'
  96. Copy Language".HLP" Directory"\CLOCK.HLP" '1>NUL'
  97. Copy Language".DOC" Directory"\CLOCK.DOC" '1>NUL'
  98.  
  99. Result = SysFileTree( Language".INF", 'Files', 'F' )
  100. If Files.0 > 0 Then
  101.    Do
  102.    Copy Language".INF" Directory"\CLOCK.INF"  '1>NUL'
  103.    End
  104.  
  105. Say 'Creo oggetto del programma...'
  106. Type = 'WPProgram'
  107. Title = 'Clock'
  108. Parms = 'MINWIN=DESKTOP;PROGTYPE=PM;EXENAME='Directory'\CLOCK.EXE;STARTUPDIR='Directory';OBJECTID=<CLOCK>;NOPRINT=YES;'
  109. Result = SysCreateObject( Type, Title, Folder, Parms, 'ReplaceIfExists' )
  110.  
  111. If Result = 1 Then
  112.   Say 'Oggetto creato!  Fine.'
  113. Else
  114.   Say 'ERROR: Oggetto non creato.'
  115.  
  116. Signal DONE
  117.  
  118. FAILURE:
  119. Say 'REXX failure.'
  120. Signal DONE
  121.  
  122. HALT:
  123. Say 'REXX fermato.'
  124. Signal DONE
  125.  
  126. SYNTAX:
  127. Say 'REXX errore di sintassi.'
  128. Signal DONE
  129.  
  130. DONE:
  131. Exit
  132.