1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
!if $wims_read_parm!=slib_header
!goto proc
!endif
slib_author=Bernadette, Perrin-Riou
!exit
:proc
slib_texte=!lines2words $wims_read_parm
slib_texte=!singlespace $slib_texte
slib_texte= !embraced randitem $slib_texte
slib_texte=!rows2lines $slib_texte
slib_texte=!replace internal $\
$ by ; in $slib_texte
slib_texte=!replace internal ?? by ; in $slib_texte
slib_cntrow=!rowcnt $slib_texte
slib_TEXTE=
slib_rep=
slib_mark=
slib_cnt=0
slib_cnt_mark=0
slib_JUSTE=
slib_texte=!replace internal , by , in $slib_texte
slib_texte=!replace internal ( by ( in $slib_texte
slib_texte=!replace internal ) by ) in $slib_texte
!for slib_i= 1 to $slib_cntrow
slib_H = !row $slib_i of $slib_texte
slib_k=$[$slib_i%2]
!if $slib_k = 0
slib_H=!replace internal $ $ by in $slib_H
!endif
slib_cnt_w=!wordcnt $slib_H
!if $slib_k = 0
slib_faux=!replace internal | by , in $slib_H
!distribute items $slib_faux into slib_H,slib_juste
!if $slib_juste=
slib_JUSTE = !append item slib_ZZZZZ to $slib_JUSTE
!else
slib_JUSTE = !append item $slib_juste to $slib_JUSTE
!endif
!endif
slib_cnt_w=!wordcnt $slib_H
!if $slib_k = 0
slib_rep1 = !values $slib_cnt + x for x=1 to $slib_cnt_w
slib_mark = !append line $slib_rep1 to $slib_mark
!if @_ notin $slib_H
slib_rep1 = !values $slib_cnt_mark + x for x=1 to $slib_cnt_w
slib_rep = !append line $slib_rep1 to $slib_rep
!endif
slib_cnt_mark=$[$slib_cnt_mark + $slib_cnt_w]
slib_HH = !words2items $slib_H
slib_cnt= $[$slib_cnt+1]
!else
slib_HH = $slib_H
slib_cnt= $[$slib_cnt+1]
!endif
slib_TEXTE = !append item $slib_HH to $slib_TEXTE
!next slib_i
slib_rep=!nonempty items $slib_rep
slib_mark=!nonempty lines $slib_mark
slib_TEXTE = !replace internal @_ by in $slib_TEXTE
slib_JUSTE = !replace internal slib_ZZZZZ by in $slib_JUSTE
slib_out= $slib_rep;[$slib_mark];$slib_TEXTE;$slib_JUSTE;$slib_cnt
|
