Subversion Repositories wimsdev

Rev

Rev 13584 | Details | Compare with Previous | Last modification | View Log | RSS feed

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