home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / memsz331.zip / NORSK.CMD < prev    next >
OS/2 REXX Batch file  |  1996-07-26  |  3KB  |  155 lines
  1. /* NORSK.CMD: Installerer MEMSIZE på norsk. */
  2.  
  3. '@Echo Off'
  4. 'CHCP 850'
  5.  
  6. /* Hent REXXUTIL */
  7.  
  8. Call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
  9. Call SysLoadFuncs
  10.  
  11.  
  12. /* Initialiser */
  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 'Installerer MEMSIZE...'
  20. Say ''
  21.  
  22.  
  23. /* Sjekk eksistensen av de forskjellige komponentfilene. */
  24.  
  25. Language = 'NORSK'
  26.  
  27. Result = SysFileTree( 'MEMSIZE.EXE', 'Files', 'F' )
  28. If Files.0 = 0 Then
  29.   Do
  30.   Say 'FEIL: MEMSIZE.EXE ikke funnet!'
  31.   Signal DONE
  32.   End
  33.  
  34. Result = SysFileTree( Language".DLL", 'Files', 'F' )
  35. If Files.0 = 0 Then
  36.   Do
  37.   Say 'FEIL: 'Language'.DLL ikke funnet!'
  38.   Signal DONE
  39.   End
  40.  
  41. Result = SysFileTree( Language".HLP", 'Files', 'F' )
  42. If Files.0 = 0 Then
  43.   Do
  44.   Say 'FEIL: 'Language'.HLP ikke funnet!'
  45.   Signal DONE
  46.   End
  47.  
  48. /* Sp¢r etter installasjonskatalogen. */
  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 'Vennligst oppgi fullt navn for den katalogen hvor du ¢nsker'
  57. Say '  MEMSIZE installert (standard 'Default'): '
  58. Parse Pull Directory
  59. If Directory = "" Then Directory = Default
  60.  
  61.  
  62. /* Lag installasjonskatalogen om n¢dvendig. */
  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 'FEIL: Kan ikke opprette installasjonskatalogen.'
  74.     Signal DONE
  75.     End
  76.   End
  77. Say ''
  78.  
  79.  
  80. /* Sp¢r etter mål-katalog. */
  81.  
  82. Say '¥nsker du å plassere MEMSIZE i oppstart-katalogen? (J/N)'
  83. Pull YesNo
  84. If YesNo = "J" Then
  85.   Do
  86.   Folder = '<WP_START>'
  87.   Say 'Programobjekt plasseres i oppstart-katalogen.'
  88.   End
  89. Else
  90.   Do
  91.   Folder = '<WP_DESKTOP>'
  92.   Say 'Programobjekt plasseres på arbeidsområdet.'
  93.   End
  94. Say ''
  95.  
  96.  
  97. /* Destroy the old object, if present. */
  98.  
  99. Call SysDestroyObject( '<MEMSIZE>' )
  100. Call SysSleep( 5 )
  101.  
  102.  
  103. /* Gj¢r installasjonen. */
  104.  
  105. Say 'Kopierer MEMSIZE til 'Directory' ...'
  106. Copy MEMSIZE.EXE Directory                  '1>NUL'
  107. Copy Language".DLL" Directory"\MEMSIZE.DLL" '1>NUL'
  108. Copy Language".HLP" Directory"\MEMSIZE.HLP" '1>NUL'
  109. Copy Language".DOC" Directory"\MEMSIZE.DOC" "1>NUL"
  110.  
  111. Result = SysFileTree( "HLP2INF.EXE", 'Files', 'F' )
  112. If Files.0 > 0 Then
  113.    Do
  114.    Result = SysFileTree( Directory"\MEMSIZE.INF", 'Files', 'F' )
  115.    If Files.0 > 0 Then
  116.       Do
  117.       "Erase" Directory"\MEMSIZE.INF"
  118.       End
  119.    "HLP2INF" Directory"\MEMSIZE.HLP"
  120.    End
  121.  
  122. Result = SysFileTree( "SNAPSHOT.EXE", 'Files', 'F' )
  123. If Files.0 > 0 Then
  124.    Do
  125.    Copy "SNAPSHOT.EXE" Directory"\SNAPSHOT.EXE"  '1>NUL'
  126.    End
  127.  
  128. Say 'Oppretter programobjekt...'
  129. Type = 'WPProgram'
  130. Title = 'Systemressurser'
  131. Parms = 'OPEN=DEFAULT;MINWIN=DESKTOP;PROGTYPE=PM;EXENAME='Directory'\MEMSIZE.EXE;STARTUPDIR='Directory';OBJECTID=<MEMSIZE>;NOPRINT=YES;'
  132. Result = SysCreateObject( Type, Title, Folder, Parms, 'ReplaceIfExists' )
  133.  
  134. If Result = 1 Then
  135.   Say 'Objekt opprettet!  Ferdig.'
  136. Else
  137.   Say 'FEIL: Objekt ikke opprettet.'
  138.  
  139. Signal DONE
  140.  
  141. FAILURE:
  142. Say 'REXX feil.'
  143. Signal DONE
  144.  
  145. HALT:
  146. Say 'REXX stoppet.'
  147. Signal DONE
  148.  
  149. SYNTAX:
  150. Say 'REXX syntaks feil.'
  151. Signal DONE
  152.  
  153. DONE:
  154. Exit
  155.