home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 February / PCWK0296.iso / sharewar / os2 / tekst / pluma110 / ndrlands.cmd < prev    next >
Encoding:
Text File  |  1994-07-08  |  2.3 KB  |  107 lines
  1. /* NDRLANDS.CMD : Installeer de Nederlandse versie van Pluma. */
  2.  
  3. '@echo off'
  4.  
  5. /* Zet de titel van het programma */
  6.  
  7. Title = 'Pluma 1.10'
  8.  
  9. /* Laad REXXUTIL */
  10.  
  11. Call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
  12. Call SysLoadFuncs
  13.  
  14. /* Initialiseer */
  15.  
  16. Signal On Failure Name FAILURE
  17. Signal On Halt Name HALT
  18. Signal On Syntax Name SYNTAX
  19.  
  20. Call SysCls
  21. Say 'Installatie van Pluma nu bezig...'
  22. Say ''
  23.  
  24. /* Controlleer of de verschillende bestanden beschikbaar zijn. */
  25.  
  26. Language = 'NDRLANDS'
  27.  
  28. Result = SysFileTree( 'PLUMA.EXE', 'Files', 'F')
  29. If Files.0 = 0 Then
  30.    Do
  31.    Say 'FOUT: PLUMA.EXE niet gevonden!'
  32.    Signal DONE
  33.    End
  34.  
  35. Result = SysFileTree( Language".DLL", 'Files', 'F')
  36. If Files.0 = 0 Then
  37.    Do
  38.    Say 'FOUT: 'Language'.DLL niet gevonden!'
  39.    Signal DONE
  40.    End
  41.  
  42. Result = SysFileTree( Language".HLP", 'Files', 'F')
  43. If Files.0 = 0 Then
  44.    Do
  45.    Say 'FOUT: 'Language'.HLP niet gevonden!'
  46.    Signal DONE
  47.    End
  48.  
  49. /* Vraag naar de directory waarin het programma moet geplaatst worden */
  50.  
  51. Say 'Geef a.u.b. de volledige naam van de directory waarin'
  52. Say ' PLUMA moet geplaatst worden (standaard C:\OS2\APPS): '
  53. Pull Directory
  54. If Directory = "" Then Directory = 'C:\OS2\APPS'
  55.  
  56. /* Maak de aangegeven directory indien nodig */
  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 'FOUT: Onmogelijk om de aangegeven directory te maken.'
  68.       Signal DONE
  69.       End
  70.    End
  71. Say ''
  72.  
  73. /* Voer de installatie uit */
  74.  
  75. Say 'PLUMA wordt op' Directory 'gecopieerd...'
  76. Copy PLUMA.EXE Directory                   '1>NUL'
  77. Copy Language".DLL" Directory"\PLUMA.DLL"  '1>NUL'
  78. Copy Language".HLP" Directory"\PLUMA.HLP"  '1>NUL'
  79.  
  80. Say 'Het programma-object wordt gemaakt...'
  81. Type = 'WPProgram'
  82. Folder = '<WP_DESKTOP>'
  83. Parms = "MINWIN=DESKTOP;PROGTYPE=PM;EXENAME="Directory"\PLUMA.EXE;STARTUPDIR="Directory";OBJECTID=<PLUMA>;NOPRINT=YES;ASSOCTYPE=Pluma;"
  84. Result = SysCreateObject( Type, Title, Folder, Parms, 'ReplaceIfExists' )
  85.  
  86. If Result = 1 Then
  87.    Say 'Object gemaakt! Klaar.'
  88. Else
  89.    Say 'FOUT: Object niet gemaakt.'
  90.  
  91. Signal DONE
  92.  
  93. FAILURE:
  94. Say 'REXX fout.'
  95. Signal DONE
  96.  
  97. HALT:
  98. Say 'REXX halt.'
  99. Signal DONE
  100.  
  101. SYNTAX:
  102. Say 'REXX taalfout.'
  103. Signal DONE
  104.  
  105. DONE:
  106. Exit
  107.