Subversion Repositories wimsdev

  varcnt=!defof varcnt in $(class_header)def/$e_.def

  !default varcnt=0

  !for v=2 to $varcnt+5

    val$v=

  !next v

  status=prep

  wims_prefix_=$wims_prefix

  !reset wims_prefix

  !! hack for declaring not printable exercise if the commande !getdef (equivalent defof) is used

  !! should be better to allow this command as in the printable version outside a class

  testgetdef=!sh grep !getdef $(Class_header)def/$e_.def

  !if $testgetdef!=

    question=

  !else

    !read $(class_header)def/$e_.def

    embedcnt$i=$embedcnt

    oefcss_$i=$oefcss

  !endif

  wims_prefix=$wims_prefix_

  !if $format=html

    question_$i=$question

    !if __EXECUTED_ isin $question

      varcnt_$i=$varcnt

      var_$i=$val1

      !for v=2 to $varcnt+5

        v_=!translate internal $\

$ to $	$ in $(val$v)

        var_$i=$(var_$i)\

$v_

      !next v

    !endif

    !ifval $replycnt=0 and $choicecnt=1

      rep=!item 1 to 6 of $choicebad1

      rep=!append item $choicegood1 to $rep

      rep=!listuniq $rep

      rep=!sort items $rep

      rep=!replace , by </li><li> in <ul style="list-style-type:square;"><li>$rep</li></ul>

      chce_$i=$rep

      test_print=1

    !else

      chce_$i=

    !endif

    rep=

    !!FIXME

    !if 3 isin $intro_check or $intro_check=$empty

      !for k=1 to $choicecnt

        !if $(choicename$k)!=

          rep=!append line <em>$(choicename$k)</em>: $(choicegood$k) to $rep

        !else

          rep=!append line $(choicegood$k) to $rep

        !endif

      !next k

      !for k=1 to $replycnt

        thisstep=!line 1 of $oefsteps

        !if r$k isitemof $thisstep or $oefsteps=$empty

          rg_=$(replygood$k)

          !reset anstyle

          !readproc anstype/$(replytype$k).input def

          replystyle$k=$anstyle

          Replytype$i=!append item $(replytype$k) to $(Replytype$i)

          Replystyle$i=!append item $(replystyle$k) to $(Replystyle$i)

          !if $(replytype$k) iswordof flashcard

            question_$i=

            !reset rg_

            Rg$i=!append line $prompt_empty to $(Rg$i)

            !goto endRg

          !endif

          !if $(replytype$k) iswordof checkbox click mark menu radio clickfill dragfill multipleclick

            rg_=!rows2lines $rg_

            rg1_=!line 1 of $rg_

            rg2_=!line 2 to -1 of $rg_

            rg2_=!translate internal $\

$ to ; in $rg2_

            !if $(replytype$k) iswordof checkbox click mark menu radio

              rg_=!item $rg1_ of $rg2_

            !else

              rg_=$rg1_

            !endif

            rg_tmp=$rg2_

            !if $(replytype$k) iswordof clickfill dragfill

              !if ?analyze notin $rg1_

                rg_tmp=!listuniq $rg1_,$rg2_

              !else

                rg_tmp=$rg2_

              !endif

            !endif

            Rg$i=!append line $rg_tmp to $(Rg$i)

            !goto endRg

          !endif

          !if $(replytype$k) iswordof coord

            rg_=<img src="$(rg_[1;])" />

            Rg$i=!append line $rg_ to $(Rg$i)

            !goto endRg

          !endif

          !if $(replytype$k) iswordof atext wlist nocase case

            rg_=!translate internal ;| to $\

\

$ in $rg_

            rg_=!line 1 of $rg_

            !goto endRg

          !endif

          !if $(replytype$k) iswordof function default equation sigunits numexp\

            or $(replystyle$k) iswordof numeric text

            rg_=!item 1 of $rg_

            Rg$i=!append line $prompt_empty to $(Rg$i)

            !goto endRg

          !endif

          !if $(replytype$k) iswordof imgcomp textcomp compose reorder

            rg_=!translate internal | to $\

$ in $rg_

            rg_=!rows2lines $rg_

            rg_tmp=!lines2items $rg_

            rg_=!line 1 of $rg_

            !if $(replytype$k)=imgcomp

              rg_=!item 2 to -1 of $rg_

              rg_=!nospace $rg_

              rg_=!replace , by " />,<img src="$imagedir/ in <img src="$imagedir/$rg_" />

              rg__=!shuffle $rg_

              Rg$i=!append line $rg__ to $(Rg$i)

            !else

              rg_cnt_=!itemcnt $rg_tmp

              rg__=!shuffle $rg_cnt_

              rg_tmp=!listuniq $(rg_tmp[$rg__])

              Rg$i=!append line $rg_tmp to $(Rg$i)

            !endif

            rg_=!translate , to $ $ in $rg_

            !goto endRg

          !endif

          !if $(replytype$k) iswordof correspond

            !set rg__=!rows2lines $rg_

            !distribute lines $rg__ into rg1__,rg2__

            !set rg__cnt=!itemcnt $rg1__

            !set rg_2_=!shuffle $rg__cnt

            !set rg__=<table class="wimscenter wimsnoborder"><tr>

            !set rgg_=<table class="wimscenter wimsnoborder"><tr>

            !for tmp=1 to $rg__cnt

              !set rg__=$rg__<tr><td>$(rg1__[$tmp])</td><td style="min-width:30px;text-align:left">&bullet;</td><td style="min-width:30px;text-align:right">&bullet;</td><td>$(rg2__[$(rg_2_[$tmp])])</td></tr>

              !set rgg_=$rgg_<tr><td>$(rg1__[$tmp])</td><td>\(\longleftrightarrow\)</td><td>$(rg2__[$tmp])</td></tr>

            !next

            !set rg__=$rg__</tr></table>

            !set rg_=$rgg_</tr></table>

            Rg$i=!append line $(rg__) to $(Rg$i)

            !goto endRg

          !endif

          !if $(replytype$k) iswordof draw

            rg__=$(rg_[2;])

            tmp=!item 1 of $rg__

            !if $tmp=arrows

              arrow_head=!getopt arrowhead in $(replyoption$k)

              !default arrow_head=10

              comp=,$arrow_head

            !endif

            rg__=!replace internal $tmp by $tmp blue$comp in $rg__

            !reset comp

            rg_=!declosing $(rg_[1;])

            !! FIXME inputsize is in the field embed not accessible here

            rg_=200,200$	$ $rg_

            !readproc oef/canvasdraw.phtml $rg_

            canvasdraw=!replace internal $\

$ by in $canvasdraw_out

            Rg$i=!append line $canvasdraw to $(Rg$i)

            !readproc oef/canvasdraw.phtml $rg_$	$ $rg__

            rg_=!replace internal $\

$ by in $canvasdraw_out

            !goto endRg

          !endif

          !if $(replytype$k) iswordof crossword

            Rg$i=!append line $prompt_empty to $(Rg$i)

            !goto endRg

          !endif

          Rg$i=!append line $prompt_empty to $(Rg$i)

:endRg

          !if $conditioncnt<1

            tmp=!replace internal , by , in $(replyname$k)

            Replyname$i=$(Replyname$i)$tmp,

            !if noanalyzeprint notwordof $(replyoption$k)

              !if $(replyname$k)$rg_ !=

                !if http isin $(replyname$k)$rg_

                  rep=$rg_

                !else

                  !if $(replyname$k)!=

                    rep=!append line <em>$(replyname$k)</em>: $rg_ to $rep

                  !else

                    rep=!append line $rg_ to $rep

                  !endif

                !endif

              !endif

            !endif

          !endif

        !else

          Replytype$i=!append item $(replytype$k) to $(Replytype$i)

          Replystyle$i=!append item $(replystyle$k) to $(Replystyle$i)

        !endif r$k isitemof $thisstep

        !reset replyoption$k

      !next k

    !endif

    rep=!imgrename $rep

    ans_$i=!trim $rep

    !if $(ans_$i)!=

      test_print=1

    !endif

  !endif

  !reset intro_check

  Rg$i=!imgrename $(Rg$i)

  !if $latex_exists>=0

    !readproc oef/latex.proc exo

  !endif