home *** CD-ROM | disk | FTP | other *** search
/ PC-Online 1999 November / PCOnline_11_1999.iso / filesbbs / OS2 / MEMSZ400.ZIP / MAGYAR.CMD < prev    next >
OS/2 REXX Batch file  |  1997-10-23  |  4KB  |  162 lines
  1. /* MAGYAR.CMD: A MEMSIZE telepítése magyar nyelven. */
  2.  
  3. '@Echo Off'
  4. 'CHCP 852'
  5.  
  6. /* A REXXUTIL betöltése */
  7.  
  8. Call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
  9. Call SysLoadFuncs
  10.  
  11.  
  12. /* Inicializálás */
  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 'A MEMSIZE telepítése...'
  20. Say ''
  21.  
  22.  
  23. /* Összetevïfájlok létezésének vizsgálata */
  24.  
  25. Language = 'MAGYAR'
  26.  
  27. Result = SysFileTree( 'MEMSIZE2.EXE', 'Files', 'F' )
  28. If Files.0 = 0 Then
  29.   Do
  30.   Say 'HIBA: A MEMSIZE2.EXE nem található!'
  31.   Signal DONE
  32.   End
  33.  
  34. Result = SysFileTree( "OBJECTS.OS2\"Language".DLL", 'Files', 'F' )
  35. If Files.0 = 0 Then
  36.   Do
  37.   Say 'Hiba: 'Language'.DLL nem található!'
  38.   Signal DONE
  39.   End
  40.  
  41. Result = SysFileTree( "OBJECTS.OS2\"Language".HLP", 'Files', 'F' )
  42. If Files.0 = 0 Then
  43.   Do
  44.   Say 'Hiba: 'Language'.HLP nem található!'
  45.   Signal DONE
  46.   End
  47.  
  48. /* A célalkönyvtár nevének bekérése */
  49.  
  50. BootDrive = Filespec('Drive',Value('SYSTEM_INI',,'OS2ENVIRONMENT'))
  51. Default = SysIni('USER', 'MEMSIZE', 'INIPATH' )
  52. If Default = 'ERROR:'
  53.   Then Default = BootDrive'\OS2\Apps'
  54. If SUBSTR(Default,LENGTH(Default),1) <= ' '
  55.   Then Default = SUBSTR(Default,1,LENGTH(Default)-1)
  56.  
  57. Say 'Add meg az alkönyvtár teljes nevét, amelybe a MEMSIZE-ot'
  58. Say '  telepíteni akarod (alapértelmezés: 'Default')! '
  59. Parse Pull Directory
  60. If Directory = "" Then Directory = Default
  61.  
  62.  
  63. /* A célalkönyvtár létrehozása, ha szükséges */
  64.  
  65. Result = SysFileTree( Directory, 'Dirs', 'D' )
  66. If Dirs.0 = 0 Then
  67.   Do
  68.   Result = SysMkDir( Directory )
  69.   if Result == 0 Then
  70.     Do
  71.     End
  72.   Else
  73.     Do
  74.     Say 'HIBA: A célalkönyvtár nem hozható létre.'
  75.     Signal DONE
  76.     End
  77.   End
  78. Say ''
  79.  
  80.  
  81. /* A célalkönyvtár mentése */
  82.  
  83. SysIni( "USER", "MEMSIZE", "INIPATH", Directory )
  84. SysIni( Directory"\MEMSIZE2.INI", "MEMSIZE", "INIPATH", Directory )
  85.  
  86.  
  87. /* A célgy√jtï nevének bekérése */
  88.  
  89. Say 'Akarod az Indítás gy√jtïbe telepíteni? (I/N)'
  90. Pull YesNo
  91. If YesNo = "I" Then
  92.   Do
  93.   Folder = '<WP_START>'
  94.   Say 'Az objektum az Indítás gy√jtïbe kerül.'
  95.   End
  96. Else
  97.   Do
  98.   Folder = '<WP_DESKTOP>'
  99.   Say 'Az objektum a Munkaasztalra kerül.'
  100.   End
  101. Say ''
  102.  
  103.  
  104. /* A régi objektum törlése, ha létezik */
  105.  
  106. Call SysDestroyObject( '<MEMSIZE>' )
  107. Call SysSleep( 5 )
  108.  
  109.  
  110. /* Telepítés elvégzése */
  111.  
  112. Say 'MEMSIZE másolása a(z) ' Directory 'alkönyvtárba...'
  113. Copy MEMSIZE2.EXE Directory                  '1>NUL'
  114. Copy "OBJECTS.OS2\"Language".DLL" Directory"\MEMSIZE2.DLL" '1>NUL'
  115. Copy "OBJECTS.OS2\"Language".HLP" Directory"\MEMSIZE2.HLP" '1>NUL'
  116. Copy Language".DOC" Directory"\MEMSIZE2.DOC" "1>NUL"
  117.  
  118. Result = SysFileTree( "HLP2INF.EXE", 'Files', 'F' )
  119. If Files.0 > 0 Then
  120.    Do
  121.    Result = SysFileTree( Directory"\MEMSIZE2.INF", 'Files', 'F' )
  122.    If Files.0 > 0 Then
  123.       Do
  124.       "Erase" Directory"\MEMSIZE2.INF"
  125.       End
  126.    "HLP2INF" Directory"\MEMSIZE2.HLP"
  127.    End
  128.  
  129. Result = SysFileTree( "SNPSHOT2.EXE", 'Files', 'F' )
  130. If Files.0 > 0 Then
  131.    Do
  132.    Copy "SNPSHOT2.EXE" Directory"\SNPSHOT2.EXE"  '1>NUL'
  133.    End
  134.  
  135. Say 'Programobjektum létrehozása...'
  136. Type = 'WPProgram'
  137. Title = 'System Resources'
  138. Parms = 'OPEN=DEFAULT;MINWIN=DESKTOP;PROGTYPE=PM;EXENAME='Directory'\MEMSIZE2.EXE;STARTUPDIR='Directory';OBJECTID=<MEMSIZE>;NOPRINT=YES;'
  139. Result = SysCreateObject( Type, Title, Folder, Parms, 'ReplaceIfExists' )
  140.  
  141. If Result = 1 Then
  142.   Say 'Objektum létrehozva!  Kész.'
  143. Else
  144.   Say 'HIBA: Az objektum nem jött létre.'
  145.  
  146. Signal DONE
  147.  
  148. FAILURE:
  149. Say 'REXX hiba.'
  150. Signal DONE
  151.  
  152. HALT:
  153. Say 'REXX leállás.'
  154. Signal DONE
  155.  
  156. SYNTAX:
  157. Say 'REXX szintaktikai hiba.'
  158. Signal DONE
  159.  
  160. DONE:
  161. Exit
  162.