Subversion Repositories wimsdev

Rev

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

  1.  
  2. !! This script handle OEF embed{t, inputsize, [prompt]} instruction
  3.  
  4. !! replace oef variables by their associated value
  5. !set parm=!replace internal \ by $$m_ in $wims_read_parm
  6.  
  7. !set t_=!item 1 of $parm
  8. !set inputsize=!item 2 of $parm
  9. !! To let LaTeX instructions working, "\" must not be replaced in prompt.
  10. !set prompt_=!item 3 of $wims_read_parm
  11.  
  12. !if $(replytype$i) iswordof flashcard
  13.  !set inputsize1=!word 1 of $inputsize
  14. !else
  15.  !set inputsize1=$inputsize
  16. !endif
  17. !!! i -> iii
  18. !!! i_ -> i dans print version
  19. !if $printing=yes or $cmd=hint
  20.  !set cnt_$iii= !linecnt $(Rg$iii)
  21.  !! i__ is the question number
  22.  !! iii is the exercise number (print version)
  23.  !! does not exist in case cmd=hint
  24.  !reset prompt___
  25.  !set i__=!replace internal reply by in $t_
  26.  !set i__=!replace internal r by in $i__
  27.  !set i__=!trim $i__
  28.  !if $cmd!=hint
  29.    !set replytype$i__=!item $i__ of $(Replytype$iii)
  30.    !set replystyle$i__=!item $i__ of $(Replystyle$iii)
  31.  !endif
  32.  !reset anstyle
  33.  !readproc anstype/$(replytype$i__).input def
  34.  !set replystyle$i__=$anstyle
  35.  !default replystyle$i__=$(replytype$i__)
  36.  !!  mc=checkbox click flashcard mark menu radio
  37.  !if mc iswordof $(replystyle$i__) \
  38.      or $(replytype$i__) iswordof dragfill clickfill
  39.    !if $inputsize1>0
  40.      !if $prompt_=$empty
  41.        !if $cmd=hint
  42.          !set g_=!rows2lines $(replygood$i__)
  43.          !set prompt_=!line 2 of $g_
  44.        !else
  45.          !set prompt_=!line $i__ of $(Rg$iii)
  46.        !endif
  47.        !set prompt_=!item $inputsize1 of $prompt_
  48.        !set prompt_=<span style="display:inline-block;">$prompt_</span>
  49.      !endif
  50.    !else
  51.      !if $prompt_=$empty
  52.        !set prompt_=!line $i__ of $(Rg$iii)
  53.        !set prompt_=!items2lines $prompt_
  54.        !set prompt__=$prompt_
  55.        !if $(replytype$i__) iswordof menu checkbox radio click
  56.          !set tmp=class="wims_list wims_$(replytype$i__)"
  57.          !set prompt_=!replace internal $\
  58. $ by  </li>$ $<li> in <div class="inline"><ul $tmp><li>$prompt_</li></ul></div>
  59.          !reset tmp
  60.        !else
  61.          !set prompt_$iii=!append line $prompt__ to $(prompt_$iii)
  62.          !set inputsize1_=!replace internal x by , in $inputsize1
  63.          !if $(inputsize1_[4])!=$empty and $(inputsize1_[4])>1
  64.            !set prompt_=<table class="wimsborder">
  65.            !for j=1 to $(inputsize1_[4])
  66.              !set prompt_=$prompt_<tr>
  67.              !for h=1 to $[ceil($(inputsize1_[3])/$(inputsize1_[4]))]
  68.                !set prompt_=$prompt_<td>&nbsp;</td>
  69.              !next
  70.              !set prompt_=$prompt_ </tr>
  71.            !next
  72.            !set prompt_=$prompt_</table>
  73.          !endif
  74.          !! regroupe les prompts des dragfill et de clickfill
  75.          !if $i__>=$(cnt_$iii)
  76.            !set prompt_$iii=!lines2items $(prompt_$iii)
  77.            !set prompt_$iii=!listuniq $(prompt_$iii)
  78.            !set prompt_$iii=!shuffle $(prompt_$iii)
  79.            !set prompt___=!replace internal , \
  80.              by </div>$ $<div class="drag_label" style="display:inline-block;"> \
  81. in <div class="drag_label" style="display:inline-block;">$(prompt_$iii)</div>
  82.          !endif
  83.          !reset prompt_
  84.        !endif
  85.      !endif
  86.    !endif
  87.  !else
  88.    !set prompt_=!line $i__ of $(Rg$iii)
  89.    !if $(replytype$i__) iswordof compose reorder
  90.      !set prompt_=!shuffle $prompt_
  91.      !set prompt_=!replace internal , by </div>$  $ <div class="drag_label" style="display:inline-block;"> \
  92. in <div class="drag_label" style="display:inline-block;">$prompt_</div>
  93.    !endif
  94.  !endif
  95.  !if $(replytype$i__) iswordof jsxgraph jsxgraphcurve clock draw
  96.    $(oefcss_$iii)
  97.    !read anstype/$(replytype$i__).input $i__
  98.    !exit
  99.  !endif
  100.  !if $prompt_ issametext $empty
  101.    !set prompt_=$prompt_empty
  102.  !endif
  103.  $prompt_
  104.  !exit
  105. !endif
  106. !!end of print section
  107.  
  108. !if $wims_read_parm=$empty
  109.  !exit
  110. !endif
  111.  
  112. !set n_=!char 2 to -1 of $t_
  113. !set t_=!char 1 of $t_
  114. !set t_=!lower $t_
  115. !set t_=!translate a to r in $t_
  116. !set n_=!text select 0123456789()+-* in $n_
  117. !set n_=$[$n_]
  118. !bound n_ between integer 1 and 100 default $
  119. !if $t_ notitemof r,c or $n_=$empty
  120.  !exit
  121. !endif
  122.  
  123. !if $t_=c and $(choicelist$n_)=$empty or\
  124.           $t_=r and $(replygood$n_)=$empty
  125.  !exit
  126. !endif
  127.  
  128. !if $t_$n_ notitemof $embedded
  129.  !set embedded=!append item $t_$n_ to $embedded
  130.  !set embcnt=!itemcnt $embedded
  131. !endif
  132. !set i=$n_
  133. !if $q_form=yes
  134.  !if $t_=c
  135.    !set p_=$ch_choose,$(choicelist$i)
  136.    !if $idontknow>0 and noidontknow notwordof $(choiceoption$i)
  137.      !set p_=$p_,$ch_noidea
  138.    !endif
  139.    !if $qcmgood<1
  140.      !set p_=$p_,$ch_none
  141.    !endif
  142.    !set N_=!itemcnt $p_
  143.    !set C_=$(choice$i)
  144.    !if debug iswordof $m_oefenv
  145.      !set replydefaulted=yes
  146.      !if $oef_default=yes
  147.        !set T_=!positionof item $(choicegood$i[1]) in $(choicelist$i)
  148.        !default choice$i=$(T_[1])
  149.      !endif
  150.    !endif
  151.    !formselect choice$i from 0 to $[$N_-1] prompt $p_
  152.    !set choice$i=$C_
  153.  !else
  154.    !if $thisstep=$empty or r$n_ isitemof $thisstep
  155.      !read anstype/$(replytype$i).input noprompt
  156.    !else
  157.     XXXX
  158.    !endif
  159.  !endif
  160. !else
  161.  !distribute item oef_indgood, oef_indbad, oef_indforget, oef_indneutral, oef_empty, oef_indprec, oef_indpartial\
  162.    into colorr_good, colorr_bad, colorr_forget, colorr_neutral, colorr_none, colorr_prec, colorr_partial
  163.  !set cl=colorr_none
  164.  !if $t_=c
  165.    !set cl=$(colorr_$(diachoice$i))
  166.    !set p_=!item $(choice$i) of $(choicelist$i),$ch_noidea,$ch_none
  167.    !set choicename$i=[$embcnt]
  168.  !else
  169.    !default reply_$i=$(reply$i)
  170.    !set p_=$(reply_$i)
  171.    !if dprompt iswordof $(replystyle$i)
  172.      !set reply_$i=$(reply__$i)
  173.    !endif
  174.    !if mc iswordof $(replystyle$i) and $inputsize1!=$empty and $[$inputsize1]!=NaN and $[$inputsize1] >= 1 and $[$inputsize1] <= 1000
  175.      !set tt=!rows2lines $(replygood$i)
  176.      !distribute lines $tt into ts,tt
  177.      !default prompt_=!item $inputsize1 of $tt
  178.      !set p_=$prompt_
  179.      !reset tv
  180.      !if $(replytype$i) iswordof mark flashcard
  181.        !set tv=$(reply$i)
  182.      !else
  183.        !for r_ in $(reply$i)
  184.          !set tu=!positionof item $r_ in $tt
  185.          !set tv=!append item $tu to $tv
  186.        !next r_
  187.      !endif
  188.      !set p_=!replace internal &#59; by ; in $p_
  189.      !if $inputsize1 notitemof $tv
  190.        !if $presentgood=0
  191.          !set cl= $colorr_none
  192.        !else
  193.          !if $inputsize1 isitemof $ts and $(replytype$i) iswordof mark flashcard checkbox
  194.            !set cl = $colorr_forget
  195.          !else
  196.            !set cl = $colorr_neutral
  197.          !endif
  198.        !endif
  199.        !set p__=!detag $p_
  200.        !if $p__!=$empty
  201.          !imgrename <span class="$cl">$p_</span>
  202.        !else
  203.          $p_
  204.        !endif
  205.        !exit
  206.      !endif
  207.    !endif
  208.    !if $(replytype$i) iswordof code
  209.      !set p_=!replace internal & by &amp; in $p_
  210.      !set p_=!replace internal &amp;#36; by &#36; in $p_
  211.      !set p_=!replace internal < by &lt; in $p_
  212.      !set p_=<pre>$p_</pre>
  213.    !endif
  214.    !set tt=!word 1 of $(replygood$i)
  215.    !if $tt!=?analyze
  216.      !set cl=$(colorr_$(diareply$i))
  217.      !if $(replytype$i) iswordof mark flashcard checkbox
  218.        !if $inputsize!=$empty
  219.          !if $inputsize isitemof $ts
  220.            !set cl = $colorr_good
  221.          !else
  222.            !set cl = $colorr_bad
  223.          !endif
  224.        !else
  225.          !set cl=$(colorr_$(diareply$i))
  226.          !default display_forget=no
  227.        !endif
  228.      !endif
  229.      !if $(partialgood$i)=yes
  230.        !set cl=$(colorr_partial)
  231.      !endif
  232.      !if $(precreply$i)=yes
  233.        !set cl=$(colorr_prec)
  234.      !endif
  235.    !else
  236.      !set embedded_analyze=!append item $i to $embedded_analyze
  237.      !if noanalyzeprint notwordof $(replyoption$i)
  238.        !set embedded_bracket=$embedded_bracket [$embcnt]
  239.      !endif
  240.    !endif
  241.    !set replyname$i=[$embcnt]
  242.  !endif
  243.  !set embcnt1=&nbsp;<sup><small>[$embcnt]</small></sup>
  244.  !if $(replytype$i) notwordof correspond crossword
  245.    !if bad isin $cl
  246.      !set instex_color=red
  247.    !endif
  248.    !if good isin $cl
  249.      !set instex_color=green
  250.    !endif
  251.    !if forget isin $cl
  252.      !set instex_color=blue
  253.    !endif
  254.    !imgrename <span class="$cl">$p_</span>$embcnt1
  255.  !else
  256.    !imgrename $p_ $embcnt1
  257.  !endif
  258.  !set instex_color=black
  259.  !if $(replytype$i) iswordof correspond
  260.    !set noshow$i=yes
  261.  !endif
  262. !endif
  263.