home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga 12 / MA_Cover_12.iso / internet / ftransapi_10 / arexx / ftransamirc.amirx next >
Encoding:
Text File  |  1999-04-25  |  2.9 KB  |  121 lines
  1. /* 
  2.  
  3.  ----------------------------------------
  4.  Amirc Translator By FTranslator Client 
  5.  
  6.  Script by Cristian Robert Gallas
  7.  
  8.  Tested with Amirc 2.2
  9.  Usage:                                
  10.  Use in ARexx interface of Amirc      
  11.  $VER: FTransAMIRC.amirx v1.0 (01.05.99)
  12.  ----------------------------------------
  13.  
  14.  HISTORY
  15.  ----------------------------------------
  16.  v0.01b [11.08.98] - First public beta version.
  17.  v1.0   [01.05.99] - Added new options
  18.  ----------------------------------------
  19.  
  20.  [Steps installation]
  21.  
  22.  > Go to Amirc Configuration
  23.  > Create a new button
  24.  > Name of button [Port->Eng] (example: Portugues to English)
  25.  > /rx FTransAmirc.amirx 3 (3 is a translation direction)
  26.  > Select text click [Port->Eng] and see! :)
  27.  
  28.  0 - English   to Francais
  29.  1 - English   to Deutsch
  30.  2 - English   to Italiano
  31.  3 - English   to Portugues
  32.  4 - English   to Espanol
  33.  5 - Francais  to English
  34.  6 - Deutsch   to English
  35.  7 - Italiano  to English
  36.  8 - Espanol   to English
  37.  9 - Portugues to English
  38.  
  39. */
  40.  
  41. Options Results
  42.  
  43. tmpfile = 'Ram:FTransTmp.AMIRC'
  44. tmpclip = 'Ram:FTransAmirc.Clip'
  45.  
  46. ARG traduz
  47.  
  48. /* TESTA SE PODE SER USADAS AS LIBS DO AREXX */
  49. if ~show(l, "rexxsupport.library") then
  50.   if ~addlib("rexxsupport.library", 0, -30) then
  51.     exit
  52. if ~show(l, "rexxtricks.library") then
  53.   if ~addlib("rexxtricks.library", 0, -30) then
  54.     exit
  55.  
  56. /* TESTA SE O PROGRAMA JA NAO ESTA COM A PORTA DE TRADUCAO ABERTA */
  57. if exists(tmpfile) then do
  58.   cecho('FTranslation port is open! Translation in progress, wait...')
  59.   exit
  60. end
  61.  
  62. /* COLOCA COMO DEFAULT PORTUGUES TO ENGLISH */
  63. if traduz = "" then do
  64.   /* LE INFORMACOES SOBRE A TELA CORRENTE */
  65. "INFO screen"
  66.   pubs='"'||result||'"'
  67.   if pubs= '""' then pubs='"Workbench"'
  68.  
  69.   cecho('DIRECTIONS:')
  70.   cecho('')
  71.   cecho(' 1  - English   to Francais')
  72.   cecho(' 2  - English   to Deutsch')
  73.   cecho(' 3  - English   to Italiano')
  74.   cecho(' 4  - English   to Portugues')
  75.   cecho(' 5  - English   to Espanol')
  76.   cecho(' 6  - Francais  to English')
  77.   cecho(' 7  - Deutsch   to English')
  78.   cecho(' 8  - Italiano  to English')
  79.   cecho(' 9  - Espanol   to English')
  80.   cecho(' 10 - Portugues to English')
  81.   traduz = rtezrequest("Select the direction to translate", "1|2|3|4|5|6|7|8|9|10|Cancel",,'RT_PUBSCRNAME='pubs)
  82.   if(traduz = 0) then do
  83.     cecho('FTrans canceled...')
  84.     exit
  85.   end
  86.   traduz = traduz - 1
  87. end
  88.  
  89. /* LE O CLIPBOARD COM UMA FUNCAO DO AREXXTRICKS */
  90. sel = ReadClipboard(0)
  91.  
  92. call open(1, tmpclip, 'W')
  93. call writeln(1, sel)
  94. call close(1)
  95.  
  96. /* EXECUTA O FTRANSLATOR COM OS ARGUMENTOS DA TRADUCAO */
  97.  
  98. cecho('FTranslator^Amirc integration v0.01')
  99. cecho('Waiting, initiating Freedom translation...')
  100. comando = 'C:FTranslator FILE 'traduz' "'tmpclip'" SILENCE > 'tmpfile
  101. Address Command comando
  102. delete(tmpclip)
  103.  
  104. goodopen=open(1, tmpfile, 'R')
  105. linein = ''
  106. if goodopen then do
  107.   do until eof(1)
  108.     linein = readln(1)
  109.     cecho(linein)
  110.   end
  111. end
  112. close(1)
  113. delete(tmpfile)
  114.  
  115. exit
  116.  
  117. /* FUNCAO DE DISPLAY */
  118. cecho:
  119. "ECHO P="d2c(27)"b«"FTrans"» C=6" arg(1)
  120. return 0
  121.