home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: InfoMgt / InfoMgt.zip / clock230.zip / FRANCAIS.CMD < prev    next >
OS/2 REXX Batch file  |  1995-08-25  |  3KB  |  132 lines
  1. /* FRANCAIS.CMD - Installation de CLOCK 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 l'D2C(39)'horloge...'
  20. Say ''
  21.  
  22.  
  23. /* Vérification de l'existance des différents fichier nécessaires */
  24.  
  25. Language = 'FRANCAIS'
  26.  
  27. Result = SysFileTree( 'CLOCK.EXE', 'Files', 'F' )
  28. If Files.0 = 0 Then
  29.   Do
  30.   Say 'Erreur : CLOCK.EXE introuvable !'
  31.   Signal DONE
  32.   End
  33.  
  34. Result = SysFileTree( 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( 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 par l'utilisateur du répertoire destination */
  49.  
  50. Say 'Veuillez entrer le nom complet du répertoire où l'D2C(39)'horloge doit'
  51. Say 'être installée (par défaut, C:\OS2\APPS) : '
  52. Parse Pull Directory
  53. If Directory = "" Then Directory = 'C:\OS2\APPS'
  54.  
  55.  
  56. /* Création du répertoire destination si nécessaire */
  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 'Erreur : impossible de créer le répertoire destination.'
  68.     Signal DONE
  69.     End
  70.   End
  71. Say ''
  72.  
  73.  
  74. /* Saisie par l'utilisateur du dossier destination. */
  75.  
  76. Say 'Désirez-vous ajouter l'D2C(39)'horloge au dossier de lancement ? (O/N) '
  77. Pull YesNo
  78. If YesNo = "O" Then
  79.   Do
  80.   Folder = '<WP_START>'
  81.   Say 'L'D2C(39)'objet sera placé dans le dossier de lancement.'
  82.   End
  83. Else
  84.   Do
  85.   Folder = '<WP_DESKTOP>'
  86.   Say 'L'D2C(39)'objet sera placé sur le bureau.'
  87.   End
  88. Say ''
  89.  
  90.  
  91. /* Installation */
  92.  
  93. Say 'Copie de l'D2C(39)'horloge vers ' Directory '...'
  94. Copy CLOCK.EXE Directory                  '1>NUL'
  95. Copy Language".DLL" Directory"\CLOCK.DLL" '1>NUL'
  96. Copy Language".HLP" Directory"\CLOCK.HLP" '1>NUL'
  97. Copy Language".DOC" Directory"\CLOCK.DOC" '1>NUL'
  98.  
  99. Result = SysFileTree( Language".INF", 'Files', 'F' )
  100. If Files.0 > 0 Then
  101.    Do
  102.    Copy Language".INF" Directory"\CLOCK.INF"  '1>NUL'
  103.    End
  104.  
  105. Say 'Création de l'D2C(39)'objet programme...'
  106. Type = 'WPProgram'
  107. Title = 'Horloge'
  108. Parms = 'MINWIN=DESKTOP;PROGTYPE=PM;EXENAME='Directory'\CLOCK.EXE;STARTUPDIR='Directory';OBJECTID=<CLOCK>;NOPRINT=YES;'
  109. Result = SysCreateObject( Type, Title, Folder, Parms, 'ReplaceIfExists' )
  110.  
  111. If Result = 1 Then
  112.   Say 'Objet créé ! Terminé.'
  113. Else
  114.   Say 'Erreur : l'D2C(39)'objet n'D2C(39'a pas pu être créé.'
  115.  
  116. Signal DONE
  117.  
  118. FAILURE:
  119. Say 'Échec REXX.'
  120. Signal DONE
  121.  
  122. HALT:
  123. Say 'Halte REXX.'
  124. Signal DONE
  125.  
  126. SYNTAX:
  127. Say 'Erreur de syntaxe REXX.'
  128. Signal DONE
  129.  
  130. DONE:
  131. Exit
  132.