home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / memsz331.zip / MAGYAR.CMD < prev    next >
OS/2 REXX Batch file  |  1996-12-29  |  4KB  |  161 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( 'MEMSIZE.EXE', 'Files', 'F' )
  28. If Files.0 = 0 Then
  29.   Do
  30.   Say 'HIBA: A MEMSIZE.EXE nem található!'
  31.   Signal DONE
  32.   End
  33.  
  34. Result = SysFileTree( 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( 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. Default = SysIni('USER', 'MEMSIZE', 'INIPATH' )
  51. If Default = 'ERROR:'
  52.   Then Default = 'C:\OS2\Apps'
  53. If SUBSTR(Default,LENGTH(Default),1) <= ' '
  54.   Then Default = SUBSTR(Default,1,LENGTH(Default)-1)
  55.  
  56. Say 'Add meg az alkönyvtár teljes nevét, amelybe a MEMSIZE-ot'
  57. Say '  telepíteni akarod (alapértelmezés: 'Default')! '
  58. Parse Pull Directory
  59. If Directory = "" Then Directory = Default
  60.  
  61.  
  62. /* A célalkönyvtár létrehozása, ha szükséges */
  63.  
  64. Result = SysFileTree( Directory, 'Dirs', 'D' )
  65. If Dirs.0 = 0 Then
  66.   Do
  67.   Result = SysMkDir( Directory )
  68.   if Result == 0 Then
  69.     Do
  70.     End
  71.   Else
  72.     Do
  73.     Say 'HIBA: A célalkönyvtár nem hozható létre.'
  74.     Signal DONE
  75.     End
  76.   End
  77. Say ''
  78.  
  79.  
  80. /* A célalkönyvtár mentése */
  81.  
  82. SysIni( "USER", "MEMSIZE", "INIPATH", Directory )
  83. SysIni( Directory"\MEMSIZE.INI", "MEMSIZE", "INIPATH", Directory )
  84.  
  85.  
  86. /* A célgy√jtï nevének bekérése */
  87.  
  88. Say 'Akarod az Indítás gy√jtïbe telepíteni? (I/N)'
  89. Pull YesNo
  90. If YesNo = "I" Then
  91.   Do
  92.   Folder = '<WP_START>'
  93.   Say 'Az objektum az Indítás gy√jtïbe kerül.'
  94.   End
  95. Else
  96.   Do
  97.   Folder = '<WP_DESKTOP>'
  98.   Say 'Az objektum a Munkaasztalra kerül.'
  99.   End
  100. Say ''
  101.  
  102.  
  103. /* A régi objektum törlése, ha létezik */
  104.  
  105. Call SysDestroyObject( '<MEMSIZE>' )
  106. Call SysSleep( 5 )
  107.  
  108.  
  109. /* Telepítés elvégzése */
  110.  
  111. Say 'MEMSIZE másolása a(z) ' Directory 'alkönyvtárba...'
  112. Copy MEMSIZE.EXE Directory                  '1>NUL'
  113. Copy Language".DLL" Directory"\MEMSIZE.DLL" '1>NUL'
  114. Copy Language".HLP" Directory"\MEMSIZE.HLP" '1>NUL'
  115. Copy Language".DOC" Directory"\MEMSIZE.DOC" "1>NUL"
  116.  
  117. Result = SysFileTree( "HLP2INF.EXE", 'Files', 'F' )
  118. If Files.0 > 0 Then
  119.    Do
  120.    Result = SysFileTree( Directory"\MEMSIZE.INF", 'Files', 'F' )
  121.    If Files.0 > 0 Then
  122.       Do
  123.       "Erase" Directory"\MEMSIZE.INF"
  124.       End
  125.    "HLP2INF" Directory"\MEMSIZE.HLP"
  126.    End
  127.  
  128. Result = SysFileTree( "SNAPSHOT.EXE", 'Files', 'F' )
  129. If Files.0 > 0 Then
  130.    Do
  131.    Copy "SNAPSHOT.EXE" Directory"\SNAPSHOT.EXE"  '1>NUL'
  132.    End
  133.  
  134. Say 'Programobjektum létrehozása...'
  135. Type = 'WPProgram'
  136. Title = 'System Resources'
  137. Parms = 'OPEN=DEFAULT;MINWIN=DESKTOP;PROGTYPE=PM;EXENAME='Directory'\MEMSIZE.EXE;STARTUPDIR='Directory';OBJECTID=<MEMSIZE>;NOPRINT=YES;'
  138. Result = SysCreateObject( Type, Title, Folder, Parms, 'ReplaceIfExists' )
  139.  
  140. If Result = 1 Then
  141.   Say 'Objektum létrehozva!  Kész.'
  142. Else
  143.   Say 'HIBA: Az objektum nem jött létre.'
  144.  
  145. Signal DONE
  146.  
  147. FAILURE:
  148. Say 'REXX hiba.'
  149. Signal DONE
  150.  
  151. HALT:
  152. Say 'REXX leállás.'
  153. Signal DONE
  154.  
  155. SYNTAX:
  156. Say 'REXX szintaktikai hiba.'
  157. Signal DONE
  158.  
  159. DONE:
  160. Exit
  161.