1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
!if $wims_read_parm!=slib_header
!goto proc
!endif
slib_author=Bernadette, Perrin-Riou
slib_example=_,,tout_le_monde_\
,_,tout le monde\
,??,tout le monde\
:proc
slib_joker=!item 1 of $wims_read_parm
slib_joker2=!item 2 of $wims_read_parm
slib_text=!item 3 to -1 of $wims_read_parm
!if $slib_joker=
slib_out=!replace internal $ $ by $slib_joker2 in $slib_text
!exit
!endif
!if $slib_joker2=
slib_out=!replace internal $slib_joker by $ $ in $slib_text
!exit
!endif
slib_out=!replace internal $slib_joker by $slib_joker2 in $slib_text
|
