Subversion Repositories wimsdev

Rev

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

Rev 397 Rev 894
Line 2... Line 2...
2 
 !goto proc
 2 
 !goto proc
3 
!endif
 3 
!endif
4 
slib_title=For marking  some group of words with given explanation
 4 
slib_title=For marking  some words with given explanation
5 
slib_parms=2\
 5 
slib_parms=1\
6 
,joker like @_\
 - 
 
7 
,the input text (embedding delimiter: `??')
 6 
the input text (embedding delimiter: `??')
8 
slib_author=Bernadette PERRIN-RIOU
 7 
slib_author=Bernadette PERRIN-RIOU
9 
slib_out= position of words embedded in text by  ?? ?? (without the joker)\
 8 
slib_out= position of words embedded in text by  ?? ?? (without the joker)\
10 
amongst all the groups of the form ?? ?? (one line by embedding);\
 9 
amongst all the groups of the form ?? ?? (one line by embedding);\
11 
[position in the text of the ?? ??];\
 10 
[position in the text of the ?? ??];\
12 
Text output with comas ;\
 11 
Text output with comas ;\
Line 38... Line 37...
38 
slib_texte=!replace internal , by , in $slib_texte
 37 
slib_texte=!replace internal , by , in $slib_texte
39 
slib_texte=!replace internal ( by ( in $slib_texte
 38 
slib_texte=!replace internal ( by ( in $slib_texte
40 
slib_texte=!replace internal ) by ) in $slib_texte
 39 
slib_texte=!replace internal ) by ) in $slib_texte
41 
!for slib_i= 1 to $slib_cntrow
 40 
!for slib_i= 1 to $slib_cntrow
42 
  slib_H = !row $slib_i of $slib_texte
 41 
  slib_H = !row $slib_i of $slib_texte
43 
  slib_cnt_w=!wordcnt $slib_H
 - 
 
44 
  slib_k=$[$slib_i%2]
 42 
  slib_k=$[$slib_i%2]
- 
 
 43 
  !if $slib_k = 0
- 
 
 44 
   slib_H=!replace internal $ $ by     in $slib_H
- 
 
 45 
  !endif
- 
 
 46 
  slib_cnt_w=!wordcnt $slib_H
45 
  !if $slib_k = 0
 47 
  !if $slib_k = 0
46 
    slib_faux=!replace internal | by , in $slib_H
 48 
    slib_faux=!replace internal | by , in $slib_H
47 
    !distribute items $slib_faux into slib_H,slib_juste
 49 
    !distribute items $slib_faux into slib_H,slib_juste
48 
    !if $slib_juste=
 50 
    !if $slib_juste=
49 
      slib_JUSTE = !append item slib_ZZZZZ to $slib_JUSTE
 51 
      slib_JUSTE = !append item slib_ZZZZZ to $slib_JUSTE
Line 70... Line 72...
70 
  slib_TEXTE = !append item $slib_HH to $slib_TEXTE
 72 
  slib_TEXTE = !append item $slib_HH to $slib_TEXTE
71 
!next slib_i
 73 
!next slib_i
72 
slib_rep=!nonempty items $slib_rep
 74 
slib_rep=!nonempty items $slib_rep
73 
slib_mark=!nonempty lines $slib_mark
 75 
slib_mark=!nonempty lines $slib_mark
74 
 
 76 
 
75 
slib_TEXTE = !nonempty items $slib_TEXTE
 - 
 
76 
slib_TEXTE = !replace internal @_ by in $slib_TEXTE
 77 
slib_TEXTE = !replace internal @_ by in $slib_TEXTE
77 
slib_JUSTE = !replace internal slib_ZZZZZ by in $slib_JUSTE
 78 
slib_JUSTE = !replace internal slib_ZZZZZ by in $slib_JUSTE
78 
 
 79 
 
79 
slib_out= $slib_rep;[$slib_mark];$slib_TEXTE;$slib_JUSTE;$slib_cnt
 80 
slib_out= $slib_rep;[$slib_mark];$slib_TEXTE;$slib_JUSTE;$slib_cnt