French

version 9/110414 by Eric Forgeot

  • Home page
  • Beginning
  • Previous
  • Next



  • Section 2 - Autres remplacements pour I6

    Include (-
    [ PrintTimeOfDay t h aop;
        if (t<0) { print "<pas d'heure>"; return; }
        if (t >= TWELVE_HOURS) { aop = "pm"; t = t - TWELVE_HOURS; } else aop = "am";
        h = t/ONE_HOUR; if (h==0) h=12;
        print h, ":";
        if (t%ONE_HOUR < 10) print "0"; print t%ONE_HOUR, " ", (string) aop;
    ];
    -) instead of "Digital Printing" in "Time.i6t".


    Include (-
    [ PrintTimeOfDayEnglish t h m dir aop say_minutes quad;
    ! adapted the spanish version by Sebastian Arg
    quad = 1; ! =1 es la primera media hora, =2 es la segunda
    h = (t/60) % 12; m = t%60; if (h==0) h=12;
        if (m==0) { if(h==1) {print "une" ;print " heure"; return ;} else print (number) h;print " heures"; return; } !infsp hack
        dir = "heures";! infsp hack
        if (m > 30) { m = 60-m; h = (h+1)%12; if (h==0) h=12; dir = "heures moins"; quad=2;} !infsp hack
        switch(m) {
    1: say_minutes = "une";
    2: say_minutes = "deux";
    3: say_minutes = "trois";
    4: say_minutes = "quatre";
    5: say_minutes = "cinq";
    6: say_minutes = "six";
    7: say_minutes = "sept";
    8: say_minutes = "huit";
    9: say_minutes = "neuf";
    10: say_minutes = "dix";
    11: say_minutes = "onze";
    12: say_minutes = "douze";
    13: say_minutes = "treize";
    14: say_minutes = "quatorze";
        15: if (quad==2) say_minutes = "le quart"; else say_minutes = "et quart";
    16: say_minutes = "seize";
    17: say_minutes = "dix-sept";
    18: say_minutes = "dix-huit";
    19: say_minutes = "dix-neuf";
    20: say_minutes = "vingt";
    21: say_minutes = "vingt-et-une";
    22: say_minutes = "vingt-deux";
    23: say_minutes = "vingt-trois";
    24: say_minutes = "vingt-quatre";
    25: say_minutes = "vingt-cinq";
    26: say_minutes = "vingt-six";
    27: say_minutes = "vingt-sept";
    28: say_minutes = "vingt-huit";
    29: say_minutes = "vingt-neuf";
    30: say_minutes = "et demi";
            default:
    if (quad == 2){
    print (number) m;
             if (m%5 ~= 0) {
                        if (m == 1) print " minute"; else print " minutes"; ! infsp hack
             }
    ! if(h==1) print " para la una"; else print " ", "para las ", (number) h;!infsp hack

    }
    if (quad == 1){
    if(h==1) {print (number) h," heure "; print (number) m;} else print (number) h," heures "; print (number) m;
                 ! TODO reste problème : une heures (sic) moins douze etc.
             if (m%5 ~= 0) {
                        if (m == 1) print ""; else print ""; ! infsp hack
             }
    }
    return;
        }
        if(h==1) print "une"; else print (number) h; print " ",(string) dir, " ",(string) say_minutes;!infsp hack
    ];
    -) instead of "Analogue Printing" in "Time.i6t".




    Include (-

    [ Banner;
    BeginActivity(PRINTING_BANNER_TEXT_ACT);
    if (ForActivity(PRINTING_BANNER_TEXT_ACT) == false) {
         VM_Style(HEADER_VMSTY);
            print (string) Story;
            VM_Style(NORMAL_VMSTY);
            new_line;
            print (string) Headline;
            #ifdef Story_Author;
            print " par ", (string) Story_Author;
            #endif; ! Story_Author
            new_line;
            VM_Describe_Release();
            print " / Inform 7 build ", (string) NI_BUILD_COUNT, " ";
            print "(I6/v"; inversion;
            print " lib ", (string) LibRelease, ") ";
            #Ifdef STRICT_MODE;
            print "S";
            #Endif; ! STRICT_MODE
            #Ifdef DEBUG;
            print "D";
            #Endif; ! DEBUG
            new_line;
    }
    EndActivity(PRINTING_BANNER_TEXT_ACT);
    ];
    -) instead of "Banner" in "Printing.i6t".