Rev 16204 | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
20 | reyssat | 1 | !distribute items $wims_read_parm into n_,1_,2_,3_,4_,5_ |
2 | !if NaN isin $[$n_] or $n_<1 or $n_>$methparmcnt |
||
16204 | bpr | 3 | !exit |
20 | reyssat | 4 | !endif |
5 | |||
6 | !set t_=!item $n_ of $methparmtype |
||
7 | !distribute words $t_ into t_,p_ |
||
8 | !if $t_ iswordof number parm function text choice |
||
16204 | bpr | 9 | !goto $t_ |
20 | reyssat | 10 | !else |
16204 | bpr | 11 | !goto text |
20 | reyssat | 12 | !endif |
13 | |||
14 | :number |
||
15 | !default 1_=10 |
||
16204 | bpr | 16 | :input |
17187 | bpr | 17 | <input size="$1_" name="methparm$n_" value="$(methparm$n_)"> |
20 | reyssat | 18 | !exit |
19 | |||
20 | :function |
||
21 | !default 1_=22 |
||
22 | !goto input |
||
23 | |||
24 | :text |
||
25 | !default 1_=30 |
||
26 | !goto input |
||
27 | |||
28 | :choice |
||
29 | !formselect methparm$n_ from 1 to $p_ prompt $methchoiceprompt |
||
30 | !exit |
||
31 | |||
32 | :parm |
||
7210 | bpr | 33 | |
16204 | bpr | 34 | !set N_=!linecnt $(mtobj$n_) |
35 | !reset P_ |
||
36 | !if $N_>1 or ($N_=1 and $n_ isitemof $methparmrelax) |
||
20 | reyssat | 37 | !for i=1 to $N_ |
16204 | bpr | 38 | !set l=!line $i of $(mtobj$n_) |
39 | !set l=!item 2 to -1 of $l |
||
40 | !set l=!items2words $l |
||
41 | !set P_=!append item $l to $P_ |
||
20 | reyssat | 42 | !next i |
43 | !set P_=!replace internal < by < in $P_ |
||
44 | !set P_=!replace internal > by > in $P_ |
||
45 | !if $n_ isitemof $methparmrelax |
||
16204 | bpr | 46 | !set p0=$ch_optional |
20 | reyssat | 47 | !else |
16204 | bpr | 48 | !set p0=$ch_choose |
20 | reyssat | 49 | !endif |
50 | !formselect methparm$n_ from 0 to $N_ prompt $p0,$P_ |
||
16204 | bpr | 51 | !else |
20 | reyssat | 52 | !if $N_=1 |
17187 | bpr | 53 | <input type="hidden" name="methparm$n_" value="1"> |
16204 | bpr | 54 | !set l=!item 2 to -1 of $(mtobj$n_) |
55 | !set l=!items2words $l |
||
56 | !insmath $l |
||
20 | reyssat | 57 | !else |
16204 | bpr | 58 | <span class="tt">$ch_optional</span> |
20 | reyssat | 59 | !endif |
16204 | bpr | 60 | !endif |
20 | reyssat | 61 | !exit |