Subversion Repositories wimsdev

!endif

!endif

:number

:number

 !default 1_=10

 !default 1_=10

 :input

 :input

!exit

!exit

:function

:function

 !default 1_=22

 !default 1_=22

 !goto input

 !goto input

:choice

:choice

 !formselect methparm$n_ from 1 to $p_ prompt $methchoiceprompt

 !formselect methparm$n_ from 1 to $p_ prompt $methchoiceprompt

!exit

!exit

:parm

:parm

 !set N_=!linecnt $(mtobj$n_)

 !set N_=!linecnt $(mtobj$n_)

 !reset P_

 !reset P_

 !if $N_>1 or ($N_=1 and $n_ isitemof $methparmrelax)

 !if $N_>1 or ($N_=1 and $n_ isitemof $methparmrelax)

  !for i=1 to $N_

  !for i=1 to $N_

   !set l=!line $i of $(mtobj$n_)

   !set l=!line $i of $(mtobj$n_)

   !set l=!item 2 to -1 of $l

   !set l=!item 2 to -1 of $l

   !set P_=!append item $l to $P_

   !set P_=!append item $l to $P_

  !next i

  !next i

  !set P_=!replace internal < by &lt; in $P_

  !set P_=!replace internal < by &lt; in $P_

  !set P_=!replace internal > by > in $P_

  !set P_=!replace internal > by > in $P_

  !if $n_ isitemof $methparmrelax

  !if $n_ isitemof $methparmrelax

   !set p0=$ch_choose

   !set p0=$ch_choose

  !endif

  !endif

  !formselect methparm$n_ from 0 to $N_ prompt $p0,$P_

  !formselect methparm$n_ from 0 to $N_ prompt $p0,$P_

 !else

 !else

  !if $N_=1

  !if $N_=1

   !set l=!item 2 to -1 of $(mtobj$n_)

   !set l=!item 2 to -1 of $(mtobj$n_)

   !set l=!items2words $l

   !set l=!items2words $l

   !insmath $l

   !insmath $l

  !else

  !else

  !endif

  !endif

 !endif

 !endif

!exit

!exit