Subversion Repositories wimsdev

Rev

Rev 5724 | Rev 13617 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

!if $cmd=help
 ses=!replace internal _mhelp by in $wims_session
!else
 ses=$wims_session
!endif
input=$wims_read_parm
!default input=wimshome/sessions/$ses/submit.oef
!default embraced_randitem=help

!reset sps parms desc explain statement statementrec helpst
cnt=!recordcnt $input

!if $cnt<6
 !exit
!endif

lbrace={

r=!record 0 of $input
model_def=$r
model_type=!getopt type in $r
model_textarea=!getopt textarea in $r
model_textarea=!items2words $model_textarea
model_author=!getopt author in $r
model_email=!getopt email in $r
model_css=!getopt css in $r
model_random=!getopt random in $r
model_random=!items2words $model_random
model_computed=!getopt computed in $r
model_computed=!items2words $model_computed
model_helped=$model_random $model_computed
model_menutester=item(

r=!record 1 of $input
r=!trim $r
desc=!line 1 of $r
help1=!line 2 to -1 of $r

!if $wims_developer!=
 !read adm/getdeveloper
!endif

!for i=2 to $cnt
 r=!record $i of $input
 r=!trim $r
 n=!linecnt $r
 c=!char 1 of $r
 !if \ = $c
  v=!translate internal \{} to $   $ in $r
  v=!word 1 of $v
  !if $v iswordof title author email css credits
   name$i=$v
   model_$v=!embraced extract $r
   !if $oef_author!=$empty
    !default model_author=$oef_author
    !default model_email=$oef_email
   !endif
   val$i=$(model_$v)
   sps=!append item $i to $sps
  !endif
  !goto loopend
 !endif
 !if $c=%
  !goto loopend
 !endif
 !if $c=:
  !for j=1 to $n
   l=!line $j of $r
   l=!trim $l
   c=!char 1 of $l
   !if \ = $c
    statement=!line $j to -1 of $r
    statement=!embraced extract $statement
    statementrec=$i
    !break
   !else
    helpst=!append line $l to $helpst
   !endif
  !next j
  !goto loopend
 !endif
 title$i=!line 1 of $r
 !reset help$i name$i type$i menu$i
 !for j=2 to $n
  l=!line $j of $r
  l=!trim $l
  c=!char 1 of $l
  !if \ = $c
   def=!line $j to -1 of $r
   t=!positionof char $lbrace in $def
   t=!item 1 of $t
   type=!char 2 to $t-1 of $def
   type$i=!word 1 of $type
   def=!char $t to -1 of $def
   def=!trim $def
   def=!declosing $def
   c=!char 1 of $def
   !if $c=$lbrace
    !goto loopend
   !endif
   t=!positionof char = in $def
   t=!item 1 of $t
   !if $t=$empty
    !goto loopend
   !endif
   name=!char 1 to $t-1 of $def
   name$i=!word 1 of $name
   val$i=!char $t+1 to -1 of $def
   !if $(type$i)=text
    val$i=!trim $(val$i)
    menutest=!char 1 to 5 of $(val$i)
    !if $menutest=$model_menutester
     menu$i=!char 6 to -2 of $(val$i)
     val$i=!item 1 of $(menu$i)
     menu$i=!item 2 to -1 of $(menu$i)
    !endif
   !endif
   !break
  !else
   help$i=!append line $l to $(help$i)
  !endif
 !next j
 !if $(name$i)!=$empty
  parms=!append item $i to $parms
 !endif
 :loopend
!next i