Subversion Repositories wimsdev

Rev

Rev 4158 | 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
20 reyssat 5
 
6
!exit
7
 
8
:proc
9
 
10
slib_texte=!lines2words $wims_read_parm
11
slib_texte= !embraced randitem $slib_texte
12
slib_texte=!rows2lines $slib_texte
13
slib_texte=!replace internal $\
14
$ by &#59; in $slib_texte
15
slib_texte=!replace internal ?? by ; in $slib_texte
16
 
17
slib_cntrow=!rowcnt $slib_texte
18
slib_TEXTE=
19
slib_rep=
20
slib_cnt=0
21
slib_JUSTE=
22
slib_texte=!replace internal , by , in $slib_texte
23
!for slib_i= 1 to $slib_cntrow
24
  slib_H = !row $slib_i of $slib_texte
25
  slib_cnt_w=!wordcnt $slib_H
26
  slib_k=$[$slib_i%2]
27
  !if $slib_k = 0
28
    slib_faux=!replace internal | by , in $slib_H
29
    !distribute items $slib_faux into slib_H,slib_juste
30
    !if $slib_juste=
31
      slib_JUSTE = !append item slib_ZZZZZ to $slib_JUSTE
32
    !else
33
      slib_JUSTE = !append item $slib_juste to $slib_JUSTE
34
    !endif
35
  !endif
36
  slib_cnt_w=!wordcnt $slib_H
37
  !if $slib_k = 0
38
    slib_rep1 = !values $slib_cnt + x for x=1 to $slib_cnt_w
39
    slib_rep  = !append item $slib_rep1 to $slib_rep
40
  !endif
41
  slib_cnt= $[$slib_cnt+$slib_cnt_w]
42
  slib_HH = !words2items $slib_H
43
  slib_TEXTE = !append item $slib_HH to $slib_TEXTE
44
!next slib_i
45
slib_rep=!nonempty items $slib_rep
46
 
47
slib_TEXTE = !nonempty items $slib_TEXTE
48
slib_JUSTE = !replace internal slib_ZZZZZ by in $slib_JUSTE
49
 
50
slib_out= $slib_rep;$slib_TEXTE;$slib_JUSTE;$slib_cnt
51