home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / mems400b.zip / mem4b.zip / Francais.cmd < prev    next >
OS/2 REXX Batch file  |  1997-10-23  |  4KB  |  161 lines
  1. /* FRANCAIS.CMD : installation de 'Ressources système' en français. */
  2.  
  3. '@Echo Off'
  4. 'CHCP 850'
  5.  
  6. /* Chargement de REXXUTIL */
  7.  
  8. Call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
  9. Call SysLoadFuncs
  10.  
  11.  
  12. /* Initialisations */
  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 'Installation de 'D2C(39)'Ressources système'D2C(39)'...'
  20. Say ''
  21.  
  22.  
  23. /* Vérification de l'existance des différents fichiers. */
  24.  
  25. Language = 'FRANCAIS'
  26.  
  27. Result = SysFileTree( 'MEMSIZE2.EXE', 'Files', 'F' )
  28. If Files.0 = 0 Then
  29.   Do
  30.   Say 'Erreur : MEMSIZE2.EXE introuvable !'
  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 'Erreur : 'Language'.DLL introuvable !'
  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 'Erreur : 'Language'.HLP introuvable !'
  45.   Signal DONE
  46.   End
  47.  
  48. /* Saisie du répertoire de destination. */
  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 'Veuillez saisir le nom complet du répertoire où Ressources Système'
  58. Say '  doit être installé (par défaut, 'Default') : '
  59. Parse Pull Directory
  60. If Directory = "" Then Directory = Default
  61.  
  62.  
  63. /* Création du répertoire destination si nécessaire. */
  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 'Erreur : Impossible de créer le répertoire destination.'
  75.     Signal DONE
  76.     End
  77.   End
  78. Say ''
  79.  
  80.  
  81. /* Save the target directory. */
  82.  
  83. SysIni( "USER", "MEMSIZE", "INIPATH", Directory )
  84. SysIni( Directory"\MEMSIZE2.INI", "MEMSIZE", "INIPATH", Directory )
  85.  
  86.  
  87. /* Saisie par l'utilisateur du dossier destination. */
  88.  
  89. Say 'Désirez-vous ajouter 'D2C(39)'Ressources système'D2C(39)' au dossier de lancement ? (O/N) '
  90. Pull YesNo
  91. If YesNo = "O" Then
  92.   Do
  93.   Folder = '<WP_START>'
  94.   Say 'L'D2C(39)'objet sera placé dans le dossier de lancement.'
  95.   End
  96. Else
  97.   Do
  98.   Folder = '<WP_DESKTOP>'
  99.   Say 'L'D2C(39)'objet sera placé sur le bureau.'
  100.   End
  101. Say ''
  102.  
  103.  
  104. /* Destruction d'une éventuelle ancienne version */
  105.  
  106. Call SysDestroyObject( '<MEMSIZE>' )
  107. Call SysSleep( 5 )
  108.  
  109. /* Installation */
  110.  
  111. Say 'Copie de 'D2C(39)'Ressources système'D2C(39)' vers 'Directory' ...'
  112. Copy MEMSIZE2.EXE Directory                  '1>NUL'
  113. Copy "OBJECTS.OS2\"Language".DLL" Directory"\MEMSIZE2.DLL" '1>NUL'
  114. Copy "OBJECTS.OS2\"Language".HLP" Directory"\MEMSIZE2.HLP" '1>NUL'
  115. Copy Language".DOC" Directory"\MEMSIZE2.DOC" "1>NUL"
  116.  
  117. Result = SysFileTree( "HLP2INF.EXE", 'Files', 'F' )
  118. If Files.0 > 0 Then
  119.    Do
  120.    Result = SysFileTree( Directory"\MEMSIZE2.INF", 'Files', 'F' )
  121.    If Files.0 > 0 Then
  122.       Do
  123.       "Erase" Directory"\MEMSIZE2.INF"
  124.       End
  125.    "HLP2INF" Directory"\MEMSIZE2.HLP"
  126.    End
  127.  
  128. Result = SysFileTree( "SNPSHOT2.EXE", 'Files', 'F' )
  129. If Files.0 > 0 Then
  130.    Do
  131.    Copy "SNPSHOT2.EXE" Directory"\SNPSHOT2.EXE"  '1>NUL'
  132.    End
  133.  
  134. Say 'Création de l'D2C(39)'objet programme...'
  135. Type = 'WPProgram'
  136. Title = 'Ressources système'
  137. Parms = 'OPEN=DEFAULT;MINWIN=DESKTOP;PROGTYPE=PM;EXENAME='Directory'\MEMSIZE2.EXE;STARTUPDIR='Directory';OBJECTID=<MEMSIZE>;NOPRINT=YES;'
  138. Result = SysCreateObject( Type, Title, Folder, Parms, 'ReplaceIfExists' )
  139.  
  140. If Result = 1 Then
  141.   Say 'Objet créé ! Terminé.'
  142. Else
  143.   Say 'Erreur : l'D2C(39)'objet n'D2C(39)'a pas pu être créé.'
  144.  
  145. Signal DONE
  146.  
  147. FAILURE:
  148. Say 'Échec REXX.'
  149. Signal DONE
  150.  
  151. HALT:
  152. Say 'Halte REXX.'
  153. Signal DONE
  154.  
  155. SYNTAX:
  156. Say 'Erreur de syntaxe REXX.'
  157. Signal DONE
  158.  
  159. DONE:
  160. Exit
  161.