Subversion Repositories wimsdev

Rev

Rev 16168 | Rev 16172 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 16168 Rev 16169
Line 4... Line 4...
4 
 
 4 
 
5 
slib_author=Bernadette, Perrin-Riou; Raoul, Hatterer; Eric, Reyssat
 5 
slib_author=Bernadette, Perrin-Riou; Raoul, Hatterer; Eric, Reyssat
6 
slib_parms=3\
 6 
slib_parms=3\
7 
,number\
 7 
,number\
8 
,language (fr,en,it ; default=fr)\
 8 
,language (fr,en,it ; default=fr)\
9 
,space separated options in brackets (works in french): frrule (trad/1990, default=1990),type (card/ord, default=card), plural (yes/no, default=no), fracdenom (yes/no, default=yes), [variant=septante,huitante,nonante]
 9 
,space separated options in brackets (works in french): frrule (trad/1990, default=1990),type (card/ord, default=card), plural (yes/no, default=no), fracdenom (yes/no, default=yes), 70=septante 80=huitante 90=nonante
10 
 
 10 
 
11 
slib_example=5678\
 11 
slib_example=5678\
12 
[678,122]\
 12 
[678,122]\
13 
[295,180],fr\
 13 
[295,180],fr\
14 
[295,180],en\
 14 
[295,180],en\
Line 24... Line 24...
24 
4,fr,[type=ord]\
 24 
4,fr,[type=ord]\
25 
4,fr,[type=ord plural=yes fracdenom=no]\
 25 
4,fr,[type=ord plural=yes fracdenom=no]\
26 
[0,1,10,100,1000,10000,100000,1000000,10000000,1000000000], fr\
 26 
[0,1,10,100,1000,10000,100000,1000000,10000000,1000000000], fr\
27 
[0,1,10,100,1000,10000,100000,1000000,10000000], en\
 27 
[0,1,10,100,1000,10000,100000,1000000,10000000], en\
28 
[0,1,10,100,1000,10000,100000,1000000,10000000,1000000000], it\
 28 
[0,1,10,100,1000,10000,100000,1000000,10000000,1000000000], it\
29 
[678,9880,99120],fr,[variant=septante,huitante,nonante]\
 29 
[678,9880,99120],fr,[type=ord 70=septante 80=huitante 90=nonante]\
30 
[485,95,1881,91],fr,[variant=septante,huitante,nonante]
 30 
[485,95,1881,91],fr,[70=septante 80=huiptante]
31 
 
 31 
 
32 
!exit
 32 
!exit
33 
 
 33 
 
34 
:proc
 34 
:proc
35 
 
 35 
 
Line 45... Line 45...
45 
slib_plural=!getopt plural in $slib_options
 45 
slib_plural=!getopt plural in $slib_options
46 
!default slib_plural=no
 46 
!default slib_plural=no
47 
slib_fden=!getopt fracdenom in $slib_options
 47 
slib_fden=!getopt fracdenom in $slib_options
48 
!default slib_fden=yes
 48 
!default slib_fden=yes
49 
slib_variant=!getopt variant in $slib_options
 49 
slib_variant=!getopt variant in $slib_options
- 
 
 50 
slib_variant7=!getopt 70 in $slib_options
- 
 
 51 
slib_variant8=!getopt 80 in $slib_options
- 
 
 52 
slib_variant9=!getopt 90 in $slib_options
50 
slib_language= $(wims_read_parm[2])
 53 
slib_language= $(wims_read_parm[2])
51 
!if $slib_language notwordof it fr en
 54 
!if $slib_language notwordof it fr en
52 
  slib_language=fr
 55 
  slib_language=fr
53 
!endif
 56 
!endif
54 
!reset slib_out
 57 
!reset slib_out
Line 335... Line 338...
335 
  !! use adapted English algorithm (E.R.)
 338 
  !! use adapted English algorithm (E.R.)
336 
  !! treats simultaneously cardinal and ordinal numbers
 339 
  !! treats simultaneously cardinal and ordinal numbers
337 
 
 340 
 
338 
  slib_smallNumbers = un, deux, trois, quatre, cinq, six, sept, huit, neuf, dix, onze, douze, treize, quatorze, quinze, seize, dix-sept, dix-huit, dix-neuf
 341 
  slib_smallNumbers = un, deux, trois, quatre, cinq, six, sept, huit, neuf, dix, onze, douze, treize, quatorze, quinze, seize, dix-sept, dix-huit, dix-neuf
339 
  slib_tyWords = , vingt, trente, quarante, cinquante, soixante, soixante, quatre-vingt, quatre-vingt
 342 
  slib_tyWords = , vingt, trente, quarante, cinquante, soixante, soixante, quatre-vingt, quatre-vingt
340 
  !if septante isin $slib_variant
 - 
 
341 
    slib_tyWords=!replace item number 7 by septante in $slib_tyWords
 - 
 
342 
  !endif
 - 
 
343 
  !if huitante isin $slib_variant
 - 
 
344 
    slib_tyWords=!replace item number 8 by huitante in $slib_tyWords
 - 
 
345 
  !endif
 - 
 
346 
  !if huiptante isin $slib_variant
 - 
 
347 
    slib_tyWords=!replace item number 8 by huiptante in $slib_tyWords
 - 
 
348 
  !endif
 - 
 
349 
  !if nonante isin $slib_variant
 - 
 
350 
    slib_tyWords=!replace item number 9 by nonante in $slib_tyWords
 - 
 
351 
  !endif
 - 
 
352 
  slib_scaleNumbers = ,mille, million, milliard
 343 
  slib_scaleNumbers = ,mille, million, milliard
353 
  slib_smallNumbersOrd = unième, deuxième, troisième, quatrième, cinquième, sixième, septième, huitième, neuvième, dixième, onzième, douzième, treizième, quatorzième, quinzième, seizième, dix-septième, dix-huitième, dix-neuvième
 344 
  slib_smallNumbersOrd = unième, deuxième, troisième, quatrième, cinquième, sixième, septième, huitième, neuvième, dixième, onzième, douzième, treizième, quatorzième, quinzième, seizième, dix-septième, dix-huitième, dix-neuvième
354 
  slib_tyWordsOrd = , vingtième, trentième, quarantième, cinquantième, soixantième, , quatre-vingtième,
 345 
  slib_tyWordsOrd = , vingtième, trentième, quarantième, cinquantième, soixantième, , quatre-vingtième,
355 
  slib_scaleNumbersOrd = ,millième, millionième, milliardième
 346 
  slib_scaleNumbersOrd = ,millième, millionième, milliardième
356 
  slib_var1=7,9
 347 
  slib_var1=7,9
357 
  slib_var2=2,3,4,5,6,8
 348 
  slib_var2=2,3,4,5,6,8
358 
  slib_var3=8
 349 
  slib_var3=8
359 
 
 - 
 
- 
 
 350 
  !if $slib_variant7!=$empty
- 
 
 351 
    slib_tyWords=!replace item number 7 by $slib_variant7 in $slib_tyWords
- 
 
 352 
    slib_variantie7=!char 1 to -2 of $slib_variant7
360 
  !if septante isin $slib_variant
 353 
    slib_variantie7=$(slib_variantie7)ième
361 
    slib_tyWordsOrd=!replace item number 7 by septantième in $slib_tyWordsOrd
 354 
    slib_tyWordsOrd=!replace item number 7 by $slib_variantie7 in $slib_tyWordsOrd
362 
    slib_var1=!listcomplement 7 in $slib_var1
 355 
    slib_var1=!listcomplement 7 in $slib_var1
363 
    slib_var2=$slib_var2,7
 356 
    slib_var2=$slib_var2,7
364 
  !endif
 357 
  !endif
365 
  !if huitante isin $slib_variant
 358 
  !if $slib_variant8!=$empty
366 
    slib_tyWordsOrd=!replace item number 8 by huitantième in $slib_tyWordsOrd
 359 
    slib_tyWords=!replace item number 8 by $slib_variant8 in $slib_tyWords
367 
    slib_var1=!listcomplement 8 in $slib_var1
 360 
    slib_variantie8=!char 1 to -2 of $slib_variant8
368 
    slib_var2=$slib_var2,8
 361 
    slib_variantie8=$(slib_variantie8)ième
369 
    slib_var3=
 - 
 
370 
  !endif
 - 
 
371 
  !if huiptante isin $slib_variant
 - 
 
372 
    slib_tyWordsOrd=!replace item number 8 by huiptantième in $slib_tyWordsOrd
 362 
    slib_tyWordsOrd=!replace item number 8 by $slib_variantie8 in $slib_tyWordsOrd
373 
    slib_var1=!listcomplement 8 in $slib_var1
 363 
    slib_var1=!listcomplement 8 in $slib_var1
374 
    slib_var2=$slib_var2,8
 364 
    slib_var2=$slib_var2,8
375 
    slib_var3=
 365 
    slib_var3=
376 
  !endif
 366 
  !endif
- 
 
 367 
  !if $slib_variant9!=$empty
- 
 
 368 
    slib_tyWords=!replace item number 9 by  $slib_variant9 in $slib_tyWords
- 
 
 369 
    slib_variantie9=!char 1 to -2 of $slib_variant9
377 
  !if nonante isin $slib_variant
 370 
    slib_variantie9=$(slib_variantie9)ième
378 
    slib_tyWordsOrd=!replace item number 9 by nonantième in $slib_tyWordsOrd
 371 
    slib_tyWordsOrd=!replace item number 9 by $slib_variantie9 in $slib_tyWordsOrd
379 
    slib_var1=!listcomplement 9 in $slib_var1
 372 
    slib_var1=!listcomplement 9 in $slib_var1
380 
    slib_var2=$slib_var2,9
 373 
    slib_var2=$slib_var2,9
381 
  !endif
 374 
  !endif
382 
  slib_var2=!sort list $slib_var2
 375 
  slib_var2=!sort list $slib_var2
383 
  !! mark for french plural (so we can use $s)
 376 
  !! mark for french plural (so we can use $s)