[haiku-i18n-it] Re: Presentazione

  • From: "zuMi" <zumikkebe@xxxxxxxxx>
  • To: haiku-i18n-it@xxxxxxxxxxxxx
  • Date: Mon, 02 May 2011 15:42:35 +0200

Giuseppe Gargaro <giuseppe.gargaro@xxxxxxxxx> wrote:
> Il giorno 01 maggio 2011 10:42, zuMi <zumikkebe@xxxxxxxxx> ha
> scritto:
>
> > Ciao a tutti,
> >
> > mantengo (quasi) sempre le mie minacce quindi ecco lo script yab
> > che
> > sugge il glossario e da suggerimenti sui traducenti da usare,
> > ovviamente occorre yab, su haikuware c'è una 1.6, mi pare!
> >
> > Buona domenica e buon 1° maggio, qui sembra si stia girando una
> > bella
> > giornata spero che tenga, vi auguro altrettanto!
> > Michele
> >
>
> Ciao Michele grazie per l'utile lavoro ho provato il programma
> funziona bene
> con yab 1.5 che trovate qui
>
>  http://haikuware.com/directory/view-details/development/language/yab
>
> mentre con la versione 1.6 ha dei problemi vi consiglio inoltre di
> scaricare
> l'ide per compilarlo
>
> http://haikuware.com/directory/view-details/development/editors/yabide-besly-edition
>
in allegato nuova versione corretta dello script e diff tra le mie
traduzioni e quelle prelevate dal trunk di haiku qualche gg fa

OT: IMO compilare uno script yab è maligno, lega lo script
all'interprete e lo rende pure nascosto, OSS forever, anche quando è
scritto da un puzzone come me :P

altro punto malato in quanto m'è balenata un'altra idea astrusa, se il
termine RAISE ora tradotto in un adottatissimo PRIMO PIANO lo
rendissimo col verbo SPICCARE o un suo sinonimo?

cya gente
#! /boot/home/config/bin/yab

SYSTEM ("wget -O - 
\"http://www.google.com/notebook/public/04405626939701509747/BDcsN3goQ2_y-8vcl\";
 | sed -n \'/PubNoteContentArea/,/td>/p\' | sed \'s/<[^<>]*>/$/g\' | tr \"$\" 
\"\n\" | sed -e \'/^[^a-zA-Z]*$/d\' > /tmp/prova.tmp")

SUB fUpdateList ( )

        COLUMNBOX CLEAR "List_"

        DIM awk_res$ ( 1 )

        n = SPLIT ( SYSTEM$ ( "sort /tmp/prova.tmp | grep -i \"" + Filter$ + 
"\" | awk \'{print $1}\' FS=\",\"" ) , awk_res$ () , "\n" )

        FOR i = 1 TO n - 1

                COLUMNBOX ADD "List_" , 1 , i , 20 , awk_res$ ( i )

        NEXT i

        DIM awk_res$ ( 1 )

        n = SPLIT ( SYSTEM$ ( "sort /tmp/prova.tmp | grep -i \"" + Filter$ + 
"\" | awk \'{print $2}\' FS=\",\"" ) , awk_res$ () , "\n" )

        FOR i = 1 TO n - 1

                COLUMNBOX ADD "List_" , 2 , i , 20 , awk_res$ ( i )

        NEXT i

END SUB

//#

//#

//#

win_width = 400

win_height = 160

x_pos = ( PEEK ( "DesktopWidth" ) - win_width ) / 2

y_pos = ( PEEK ( "DesktopHeight" ) - win_height ) / 2

WINDOW OPEN x_pos , y_pos TO ( x_pos + win_width ) , ( y_pos + win_height ) , 
"MainView1" , "Traducenti"

WINDOW SET "MainView1" , "Flags" , "Not-Resizable , Not-Zoomable"

VIEW 0 , 0 TO win_width , win_height , "View1" , "MainView1"

TEXTEDIT 10 , 10 TO win_width - 10 , 30 , "Filter_" , 1 , "View1"

TEXTEDIT SET "Filter_" , "has-autocompletion" , TRUE
        
TEXTEDIT SET "Filter_" , "autocomplete-start" , TRUE

DIM temp$ (1)

n = SPLIT ( SYSTEM$ ( "awk '{print $1}' FS=\",\" /tmp/prova.tmp") , temp$() , 
"\n" )

FOR i = 1 TO n

        TEXTEDIT SET "Filter_" , "autocomplete" , LOWER$ ( temp$ ( i ) )

        TEXTEDIT SET "Filter_" , "autocomplete" , UPPER$ ( temp$ ( i ) )

NEXT i

COLUMNBOX 10 , 40 TO win_width - 10 , win_height - 10 , "List_" , 1 , "" , 
"View1"

COLUMNBOX COLUMN "List_" , "Originale" , 1 , 180 , 180 , 180 , "align-left"

COLUMNBOX COLUMN "List_" , "Traducente" , 2 , 180 , 180 , 180 , "align-left"

COLUMNBOX COLOR "List_" , "selection" , 153 , 203 , 255

Filter$ = ""

fUpdateList ( )

WHILE ( ! inloop )
        
        msg$ = MESSAGE$

        currFilter$ = Filter$

        Filter$ = TEXTEDIT GET$ "Filter_"

        IF ( Filter$ <> currFilter$ ) fUpdateList ( )
        
        IF ( INSTR ( msg$ , "Quit" ) ) inloop = TRUE
        
WEND

WINDOW CLOSE "MainView1"

EXIT

<<< application/x-be_attribute; name="BeOS Attributes": Unrecognized >>>

Other related posts: