Subversion Repositories wimsdev

Rev

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

Rev 7692 Rev 13584
Line 1... Line 1...
1
!if $wims_read_parm!=slib_header
1
!if $wims_read_parm!=slib_header
2
 !goto proc
2
  !goto proc
3
!endif
3
!endif
4
 
4
 
5
slib_author=Bernadette, Perrin-Riou
5
slib_author=Bernadette, Perrin-Riou
6
 
6
 
7
slib_example= [1,2;x^2,y;e_1,e_2],lbrace,rbrack
7
slib_example= [1,2;x^2,y;e_1,e_2],lbrace,rbrack\
-
 
8
[1,2;x^2,y;e_1,e_2],lbrace,rbrack,html
8
!exit
9
!exit
9
 
10
 
10
:proc
11
:proc
11
 
12
 
12
slib_data=!item 1  of $wims_read_parm
13
!distribute items $wims_read_parm into slib_data,slib_opt1,slib_opt2,slib_opt3
13
slib_opt1=!item 2 of $wims_read_parm
-
 
14
slib_opt2=!item 3 of $wims_read_parm
-
 
15
!default slib_opt1=(
14
!default slib_opt1=(
16
!default slib_opt2=)
15
!default slib_opt2=)
17
 
16
 
18
slib_data=!declosing $slib_data
17
slib_data=!declosing $slib_data
19
slib_data=!replace internal , by & in $slib_data
18
slib_data=!replace internal , by & in $slib_data
20
 
19
 
21
!if $slib_opt1 notwordof  (  ) .
20
!if $slib_opt1 notwordof ( ) .
22
 slib_opt1= \$slib_opt1
21
  slib_opt1= \$slib_opt1
23
!endif
22
!endif
24
 
23
 
25
!if $slib_opt2 notwordof  (  ) .
24
!if $slib_opt2 notwordof ( ) .
26
  slib_opt2= \$slib_opt2
25
  slib_opt2= \$slib_opt2
27
!endif
26
!endif
28
 
27
 
29
slib_data=!replace internal ;  by  $\
28
slib_data=!replace internal ; by $\\$ $\
30
$\\$ $ in $slib_data
29
$ in $slib_data
31
slib_out=\left $slib_opt1 \begin{matrix} $slib_data \end{matrix} \right $slib_opt2
30
slib_out=\left $slib_opt1 \begin{matrix}$slib_data\end{matrix}\right $slib_opt2
-
 
31
!if $slib_opt3=html
-
 
32
  slib_out=\($slib_out\)
32
 
33
!endif