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