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 |