home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / mems400b.zip / mem4b.zip / BPortugu.cmd next >
OS/2 REXX Batch file  |  1997-10-23  |  4KB  |  160 lines
  1. /* BPORTUGU.CMD: Instalaç╞o do MEMSIZE em Portugues do Brasil */
  2.  
  3. '@Echo Off'
  4. 'CHCP 850'
  5.  
  6. /* Carrega REXXUTIL */
  7.  
  8. Call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
  9. Call SysLoadFuncs
  10.  
  11.  
  12. /* Inicializa */
  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 'Instalaç╞o do MEMSIZE...'
  20. Say ''
  21.  
  22.  
  23. /* Verifica a existência de vários arquivos necessários. */
  24.  
  25. Language = 'BPORTUGU'
  26.  
  27. Result = SysFileTree( 'MEMSIZE2.EXE', 'Files', 'F' )
  28. If Files.0 = 0 Then
  29.   Do
  30.   Say 'ERRO: MEMSIZE2.EXE N╟O foi encontrado!'
  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 'ERRO: 'Language'.DLL! N╟O foi encontrado!'
  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 'ERRO: 'Language'.HLP! N╟O foi encontrado!'
  45.   Signal DONE
  46.   End
  47.  
  48. /* Pede o nome do diretório de destino. */
  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 'Por favor, escreva o nome completo do diretório no qual'
  58. Say '  deseja instalar o programa MEMSIZE (default é 'Default'): '
  59. Parse Pull Directory
  60. If Directory = "" Then Directory = Default
  61.  
  62.  
  63. /* Cria o diretório de destino, se necessário. */
  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 'ERRO: N╞o foi possível criar o diretório de destino.'
  75.     Signal DONE
  76.     End
  77.   End
  78. Say ''
  79.  
  80. /* Guarda o diretório de destino. */
  81.  
  82. SysIni( "USER", "MEMSIZE", "INIPATH", Directory )
  83. SysIni( Directory"\MEMSIZE2.INI", "MEMSIZE", "INIPATH", Directory )
  84.  
  85. /* Pergunta sobre a Pasta de Inicializaç╞o. */
  86.  
  87. Say "Deseja colocar na Pasta de Inicializaç╞o? (S/N)"
  88. Pull YesNo
  89. If YesNo = "S" Then
  90.   Do
  91.   Folder = '<WP_START>'
  92.   Say "O objeto será copiado na Pasta de Inicializaç╞o."
  93.   End
  94. Else
  95.   Do
  96.   Folder = '<WP_DESKTOP>'
  97.   Say "O objeto será copiado no Ambiente de Trabalho."
  98.   End
  99. Say ''
  100.  
  101.  
  102. /* Destroi o objeto antigo, se existir. */
  103.  
  104. Call SysDestroyObject( '<MEMSIZE>' )
  105. Call SysSleep( 5 )
  106.  
  107.  
  108. /* Executa a instalaç╞o. */
  109.  
  110. Say 'Copiando MEMSIZE para o diretório 'Directory' ...'
  111. Copy MEMSIZE2.EXE Directory                  '1>NUL'
  112. Copy "OBJECTS.OS2\"Language".DLL" Directory"\MEMSIZE2.DLL" '1>NUL'
  113. Copy "OBJECTS.OS2\"Language".HLP" Directory"\MEMSIZE2.HLP" '1>NUL'
  114. Copy Language".DOC" Directory"\MEMSIZE2.DOC" "1>NUL"
  115.  
  116. Result = SysFileTree( "HLP2INF.EXE", 'Files', 'F' )
  117. If Files.0 > 0 Then
  118.    Do
  119.    Result = SysFileTree( Directory"\MEMSIZE2.INF", 'Files', 'F' )
  120.    If Files.0 > 0 Then
  121.       Do
  122.       "Erase" Directory"\MEMSIZE2.INF"
  123.       End
  124.    "HLP2INF" Directory"\MEMSIZE2.HLP"
  125.    End
  126.  
  127. Result = SysFileTree( "SNPSHOT2.EXE", 'Files', 'F' )
  128. If Files.0 > 0 Then
  129.    Do
  130.    Copy "SNPSHOT2.EXE" Directory"\SNPSHOT2.EXE"  '1>NUL'
  131.    End
  132.  
  133. Say "Criando o objeto do programa..."
  134. Type = 'WPProgram'
  135. Title = 'Recursos do Sistema'
  136. Parms = 'OPEN=DEFAULT;MINWIN=DESKTOP;PROGTYPE=PM;EXENAME='Directory'\MEMSIZE2.EXE;STARTUPDIR='Directory';OBJECTID=<MEMSIZE>;NOPRINT=YES;'
  137. Result = SysCreateObject( Type, Title, Folder, Parms, 'ReplaceIfExists' )
  138.  
  139. If Result = 1 Then
  140.   Say "O objeto foi criado.  Fim."
  141. Else
  142.   Say "ERRO: N╟O foi possível criar o objeto!"
  143.  
  144. Signal DONE
  145.  
  146. FAILURE:
  147. Say 'Erro de REXX.'
  148. Signal DONE
  149.  
  150. HALT:
  151. Say 'O REXX foi encerrado.'
  152. Signal DONE
  153.  
  154. SYNTAX:
  155. Say 'Erro de sintaxe de REXX.'
  156. Signal DONE
  157.  
  158. DONE:
  159. Exit
  160.