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] |
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 |
|
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 ; |
28 | slib_data=!replace internal ; by $\\$ $\ |
30 |
|
29 | $ in $slib_data |
31 | slib_out=\left $slib_opt1 \begin{matrix} |
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 |