Subversion Repositories wimsdev

!nocache
stepdiag=bad
!for i=1 to $replycnt
  !if r$i isitemof $gotsteps
    !if r$i isitemof $thisstep
      saverep$i=$(reply$i)
    !else
      reply$i=$(saverep$i)
    !endif
    r_=!trim $(reply$i)
    !if $r_=$empty
      default_$i=!getopt default in $(replyoption$i)
      !if $(default_$i)!=$empty
        r_=$(default_$i)
      !endif
    !endif
    !if $(replytype$i)!=code
      reply$i=$r_
    !endif
    !if $r_=$empty and $(replytype$i)!=coord || \
        $click_x$click_y=$empty and $(replytype$i)=coord || \
        ($(reply$i)=?????? and $(replytype$i) iswordof menu)
      error=empty_data
      !exit
    !endif
    m_reply$i=$(reply$i)
    !read oef/screply.proc
    !default replytype$i=default
    tt=!word 1 of $(replygood$i)
    # analyzed reply
    !if $tt=?analyze
      t_=!rows2lines $(replygood$i)
      t_=!word 2 of $t_
      !read oef/ans.proc $i nocompare
      !if $error!=$empty
        !exit
      !endif
      !default m_reply$i=$(reply$i)
      !default m_reply_$i=$(reply_$i)
      !default m_reply_$i=$(reply$i)
      !read oef/screply.proc
      val$t_=$(reply$i)
      !if NaN isin $test
        !goto badans
      !endif
      !goto cont
    !endif
    !read oef/ans.proc $i
    !default m_reply$i=$(reply$i)
    !default m_reply_$i=$(reply_$i)
    !default m_reply_$i=$(reply$i)
    !read oef/screply.proc
    !if bad isin $Test
      error=bad_exo
      !advance reply_cnt
      status=
      !exit
    !endif
    !if NaN isin $test
      :badans
      error=bad_answer
      bad_name=$(replyname$i)
      bad_value=$(reply$i)
      !exit
    !endif
    !if $(diareply$i)!=good and nonstop notwordof $(replyoption$i)
      !exit
    !endif
    :cont
  !endif
!next i

!for i=1 to $choicecnt
  !if c$i isitemof $gotsteps
    !if c$i isitemof $thisstep
      savech$i=$(choice$i)
    !else
      choice$i=$(savech$i)
    !endif
    !default choice$i=0
    choic=$[rint($(choice$i))]
    !if $choic=0 and ($oefsteps=$empty or c$i isitemof $gotsteps)
      error=empty_data
      !exit
    !endif
    !if NaN isin $choic or $choic<1 or $choic>$(choiceitems$i)+2
      error=bad_answer
      bad_name=$(choicename$i)
      bad_value=$(choice$i)
      !exit
    !else
      choice$i=$choic
    !endif
    ch=!item $choic of $(choicelist$i)
    m_choice$i=$ch
    !if $qcmgood<1 and $choic=$[$(choiceitems$i)+2]
      !if $(choicegood$i)=$empty
        chh=good
      !else
        chh=bad
      !endif
    !endif
    !if ($choic>$(choiceitems$i) or $ch notitemof $(choicegood$i)) and $chh!=good
      !exit
    !endif
  !endif
!next i

!advance oefstep
m_step=$oefstep
!if $dynsteps=yes
  !read oef/nextstep.proc
!endif

stepdiag=ok
thisstep=!line $oefstep of $oefsteps
gotsteps=!line 1 to $oefstep of $oefsteps
gotsteps=!lines2items $gotsteps