aUCBLogo Demos and Tests / translate_help


setCaseIgnored false

be translate_help
;clearText
   
language="de
   
load word language "/startup.lg
   
startup_de
   
load "en/startup.lg
   
startup_en
   
setCaseIgnored false
   
translation_en_de=reverse translation_de
   
foreach tolist translation_en
   
[   t=translation_en_de.(?.2)
      
if != []
      
[   i=?.1
;         (pr i t)
         
translation_en_de.i=t
         
i=lowercase ?.1
         
translation_en_de.i=t
         
i=uppercase ?.1
         
translation_en_de.i=t
      
]
   
]
   
translation_en_de=(merge 
      
lowerCase translation_en_de
      
translation_en_de)
   
translation_en_de=(merge 
      
upperCase translation_en_de
      
translation_en_de)
;   print translation_en_de

   
fl=(files [aucblogo.hrf])
   
foreach fl
   
[   translateFile ?
   
]
   
   
be translateFile in
      
out=(word language "/ in "_ language ".txt)
      
(print in "=> out)
      
openRead in
      
setReader in
      
openWrite out
      
setWriter out
      
l=array readListFlatRaw
      
repeat count l
      
[   w=l.repcount
         
t=translation_en_de.w
         
ifelse != [] 
         
[   (type t)
         
][   (type w)
         
]
      
]
      
setReader []
      
close in
      
setWriter []
      
close out
   
end
end