Subversion Repositories wimsdev

Rev

Rev 4351 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
20 reyssat 1 
!if $wims_read_parm!=slib_header
2 
 !goto proc
3 
!endif
4351 bpr 4 
slib_author=Bernadette, Perrin-Riou
7409 bpr 5 
slib_example=??France?? Brésil ??Italie?? ??Allemagne??
6 
 
20 reyssat 7 
!exit
8 
 
9 
:proc
10 
 
11 
slib_texte=!lines2words $wims_read_parm
12 
slib_texte= !embraced randitem $slib_texte
13 
slib_texte=!rows2lines $slib_texte
14 
slib_texte=!replace internal $\
15 
$ by &#59; in $slib_texte
16 
slib_texte=!replace internal ?? by ; in $slib_texte
17 
slib_cntrow=!rowcnt $slib_texte
18 
slib_TEXTE=
19 
slib_rep=
20 
slib_cnt=0
21 
slib_texte=!replace internal , by , in $slib_texte
22 
!for slib_i= 1 to $slib_cntrow
23 
  slib_H = !row $slib_i of $slib_texte
24 
  slib_cnt_w=!wordcnt $slib_H
25 
  slib_k=$[$slib_i%2]
26 
  !if $slib_k = 0
27 
    slib_rep1 = !values $slib_cnt + x for x=1 to $slib_cnt_w
28 
    slib_rep  = !append item $slib_rep1 to $slib_rep
29 
  !endif
30 
  slib_cnt= $[$slib_cnt+$slib_cnt_w]
31 
  slib_HH = !words2items $slib_H
32 
  slib_TEXTE = !append item $slib_HH to $slib_TEXTE
33 
!next slib_i
34 
slib_rep=!nonempty items $slib_rep
35 
 
36 
slib_TEXTE = !nonempty items $slib_TEXTE
37 
 
38 
slib_out= $slib_rep;$slib_TEXTE;$slib_cnt
39 
 
40