home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1995 December / SOFM_Dec1995.bin / pc / os2 / resource / norsk.cmd < prev    next >
OS/2 REXX Batch file  |  1995-10-31  |  3KB  |  138 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. Say 'Vennligst oppgi fullt navn for den katalogen hvor du ¢nsker'
  51. Say '  MEMSIZE installert (standard C:\OS2\APPS): '
  52. Parse Pull Directory
  53. If Directory = "" Then Directory = 'C:\OS2\APPS'
  54.  
  55.  
  56. /* Lag installasjonskatalogen om n¢dvendig. */
  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 'FEIL: Kan ikke opprette installasjonskatalogen.'
  68.     Signal DONE
  69.     End
  70.   End
  71. Say ''
  72.  
  73.  
  74. /* Sp¢r etter mål-katalog. */
  75.  
  76. Say '¥nsker du å plassere MEMSIZE i oppstart-katalogen? (J/N)'
  77. Pull YesNo
  78. If YesNo = "J" Then
  79.   Do
  80.   Folder = '<WP_START>'
  81.   Say 'Programobjekt plasseres i oppstart-katalogen.'
  82.   End
  83. Else
  84.   Do
  85.   Folder = '<WP_DESKTOP>'
  86.   Say 'Programobjekt plasseres på arbeidsområdet.'
  87.   End
  88. Say ''
  89.  
  90.  
  91. /* Gj¢r installasjonen. */
  92.  
  93. Say 'Kopierer MEMSIZE til ' Directory '...'
  94. Copy MEMSIZE.EXE Directory                  '1>NUL'
  95. Copy Language".DLL" Directory"\MEMSIZE.DLL" '1>NUL'
  96. Copy Language".HLP" Directory"\MEMSIZE.HLP" '1>NUL'
  97. Copy Language".DOC" Directory"\MEMSIZE.DOC" "1>NUL"
  98.  
  99. Result = SysFileTree( Language".INF", 'Files', 'F' )
  100. If Files.0 > 0 Then
  101.    Do
  102.    Copy Language".INF" Directory"\MEMSIZE.INF"  '1>NUL'
  103.    End
  104.  
  105. Result = SysFileTree( "SNAPSHOT.EXE", 'Files', 'F' )
  106. If Files.0 > 0 Then
  107.    Do
  108.    Copy "SNAPSHOT.EXE" Directory"\SNAPSHOT.EXE"  '1>NUL'
  109.    End
  110.  
  111. Say 'Oppretter programobjekt...'
  112. Type = 'WPProgram'
  113. Title = 'Systemressurser'
  114. Parms = 'MINWIN=DESKTOP;PROGTYPE=PM;EXENAME='Directory'\MEMSIZE.EXE;STARTUPDIR='Directory';OBJECTID=<MEMSIZE>;NOPRINT=YES;'
  115. Result = SysCreateObject( Type, Title, Folder, Parms, 'ReplaceIfExists' )
  116.  
  117. If Result = 1 Then
  118.   Say 'Objekt opprettet!  Ferdig.'
  119. Else
  120.   Say 'FEIL: Objekt ikke opprettet.'
  121.  
  122. Signal DONE
  123.  
  124. FAILURE:
  125. Say 'REXX feil.'
  126. Signal DONE
  127.  
  128. HALT:
  129. Say 'REXX stoppet.'
  130. Signal DONE
  131.  
  132. SYNTAX:
  133. Say 'REXX syntaks feil.'
  134. Signal DONE
  135.  
  136. DONE:
  137. Exit
  138.