home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / memsz331.zip / BPORTUGU.CMD next >
OS/2 REXX Batch file  |  1996-10-08  |  4KB  |  159 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( 'MEMSIZE.EXE', 'Files', 'F' )
  28. If Files.0 = 0 Then
  29.   Do
  30.   Say 'ERRO: MEMSIZE.EXE N╟O foi encontrado!'
  31.   Signal DONE
  32.   End
  33.  
  34. Result = SysFileTree( 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( 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. Default = SysIni('USER', 'MEMSIZE', 'INIPATH' )
  51. If Default = 'ERROR:'
  52.   Then Default = 'C:\OS2\Apps'
  53. If SUBSTR(Default,LENGTH(Default),1) <= ' '
  54.   Then Default = SUBSTR(Default,1,LENGTH(Default)-1)
  55.  
  56. Say 'Por favor, escreva o nome completo do diretório no qual'
  57. Say '  deseja instalar o programa MEMSIZE (default é 'Default'): '
  58. Parse Pull Directory
  59. If Directory = "" Then Directory = Default
  60.  
  61.  
  62. /* Cria o diretório de destino, se necessário. */
  63.  
  64. Result = SysFileTree( Directory, 'Dirs', 'D' )
  65. If Dirs.0 = 0 Then
  66.   Do
  67.   Result = SysMkDir( Directory )
  68.   if Result == 0 Then
  69.     Do
  70.     End
  71.   Else
  72.     Do
  73.     Say 'ERRO: N╞o foi possível criar o diretório de destino.'
  74.     Signal DONE
  75.     End
  76.   End
  77. Say ''
  78.  
  79. /* Guarda o diretório de destino. */
  80.  
  81. SysIni( "USER", "MEMSIZE", "INIPATH", Directory )
  82. SysIni( Directory"\MEMSIZE.INI", "MEMSIZE", "INIPATH", Directory )
  83.  
  84. /* Pergunta sobre a Pasta de Inicializaç╞o. */
  85.  
  86. Say "Deseja colocar na Pasta de Inicializaç╞o? (S/N)"
  87. Pull YesNo
  88. If YesNo = "S" Then
  89.   Do
  90.   Folder = '<WP_START>'
  91.   Say "O objeto será copiado na Pasta de Inicializaç╞o."
  92.   End
  93. Else
  94.   Do
  95.   Folder = '<WP_DESKTOP>'
  96.   Say "O objeto será copiado no Ambiente de Trabalho."
  97.   End
  98. Say ''
  99.  
  100.  
  101. /* Destroi o objeto antigo, se existir. */
  102.  
  103. Call SysDestroyObject( '<MEMSIZE>' )
  104. Call SysSleep( 5 )
  105.  
  106.  
  107. /* Executa a instalaç╞o. */
  108.  
  109. Say 'Copiando MEMSIZE para o diretório 'Directory' ...'
  110. Copy MEMSIZE.EXE Directory                  '1>NUL'
  111. Copy Language".DLL" Directory"\MEMSIZE.DLL" '1>NUL'
  112. Copy Language".HLP" Directory"\MEMSIZE.HLP" '1>NUL'
  113. Copy Language".DOC" Directory"\MEMSIZE.DOC" "1>NUL"
  114.  
  115. Result = SysFileTree( "HLP2INF.EXE", 'Files', 'F' )
  116. If Files.0 > 0 Then
  117.    Do
  118.    Result = SysFileTree( Directory"\MEMSIZE.INF", 'Files', 'F' )
  119.    If Files.0 > 0 Then
  120.       Do
  121.       "Erase" Directory"\MEMSIZE.INF"
  122.       End
  123.    "HLP2INF" Directory"\MEMSIZE.HLP"
  124.    End
  125.  
  126. Result = SysFileTree( "SNAPSHOT.EXE", 'Files', 'F' )
  127. If Files.0 > 0 Then
  128.    Do
  129.    Copy "SNAPSHOT.EXE" Directory"\SNAPSHOT.EXE"  '1>NUL'
  130.    End
  131.  
  132. Say "Criando o objeto do programa..."
  133. Type = 'WPProgram'
  134. Title = 'Recursos do Sistema'
  135. Parms = 'OPEN=DEFAULT;MINWIN=DESKTOP;PROGTYPE=PM;EXENAME='Directory'\MEMSIZE.EXE;STARTUPDIR='Directory';OBJECTID=<MEMSIZE>;NOPRINT=YES;'
  136. Result = SysCreateObject( Type, Title, Folder, Parms, 'ReplaceIfExists' )
  137.  
  138. If Result = 1 Then
  139.   Say "O objeto foi criado.  Fim."
  140. Else
  141.   Say "ERRO: N╟O foi possível criar o objeto!"
  142.  
  143. Signal DONE
  144.  
  145. FAILURE:
  146. Say 'Erro de REXX.'
  147. Signal DONE
  148.  
  149. HALT:
  150. Say 'O REXX foi encerrado.'
  151. Signal DONE
  152.  
  153. SYNTAX:
  154. Say 'Erro de sintaxe de REXX.'
  155. Signal DONE
  156.  
  157. DONE:
  158. Exit
  159.