!read adm/language lang/names.phtml

!if $wims_developer!=$empty
  !set wims_ariane_self=no
  !set wims_ariane=!append line modtool,1,module=adm/modtool&job=flist&modreq=$catmodule\
  to $wims_ariane
!endif

wims_helper=chapter=4&open=4_oef#oef
wims_form_method=post
wims_nw=existing catmodule catmodule1 newone oef_fname level vsave \
  delete deltitle mode realtest deffile wims_noexport \
  empty wims_module_log class_header
wims_nr=wims_sesrandom
wims_trustfile=oef/embed.phtml oef/special.phtml oef/togetfile.proc
slib/circuits/draw slib/circuits/drawcomp slib/circuits/range\
slib/circuits/comppos
answerlim=!defof MAX_OEFREPLIES in wimshome/public_html/bases/sys/define.conf
choicelim=!defof MAX_OEFCHOICES in wimshome/public_html/bases/sys/define.conf
!distribute item 10,40 into condlim,promptlim
!bound mode within raw,file,model default $
!read tabletheme
!if $wims_user!=$empty or $wims_developer!=$empty
  !default oef_author=!trim $wims_firstname $wims_lastname
  !default oef_email=$wims_email
  !if $wims_developer!=$empty
    !read adm/getdeveloper
    !default oef_author=$dv_name
    !default oef_email=$dv_email
  !endif
  !if $newone=1
    existing=
    newone=
  !endif
  !if (..devel/ notin ..$catmodule or $wims_developer=$empty) and \
      $existing!=$empty and $wims_user!=supervisor \
      and ..*/$wims_user. notin ..*/$existing
    existing=
  !endif
  !if $existing!=$empty and $level=$empty
    !if $catmodule!=$empty
      !if ..devel/ isin ..$catmodule and ($wims_developer= or \
        ..devel/$wims_developer notin ..$catmodule)
        !goto nonexist
      !endif
    !if .. isin $catmodule or ..adm/ isin ..$catmodule or \
        ..classes/ isin ..$catmodule
      !goto nonexist
    !endif
  !endif
  src=!mexec catexisting.sh $existing
  !if $src!=$empty
    mode=raw
    level=1
  !else
    :nonexist
    error=not_exist
    del=$existing
    existing=
    !exit
    !endif
  !endif
!else
  existing=
!endif

!if $cmd=help
  !if $realtest=yes
    !!variable for ariane
    !set ariane_title=$$wims_name_createxo
    !set wims_ariane=!append line backcreatexo,1,module=adm/createxo&cmd=resume&realtest=no\
testexo,1,module=$module&cmd=resume\
to $wims_ariane
    !changeto oef/var.proc
 !else
    !set wims_ariane=!append line resume,1,module=$module&cmd=resume\
to $wims_ariane
    !if $modtoolhelp!=yes
      !!trouble with mhelp=%2Cmhelp (coming from ,mhelp)
      !if $special_parm!=$empty and ($special_parm notwordof mhelp help and mhelp notin $special_parm)
        !set wims_ariane=!append line back2 $$wims_name_help,1,cmd=help\
 to $wims_ariane
      !endif
    !endif
  !endif
  !if $modtoolhelp=yes
    !distribute items no,no, into wims_ariane_home,wims_ariane_self,wims_ariane
  !endif
  !exit
!endif
!if $modtoolhelp=yes
  !distribute items no,no, into wims_ariane_home,wims_ariane_self,wims_ariane
!endif
!if $delete!=$empty
  !if $wims_class==$empty
    error=not_class
    !exit
  !endif
  !if $wims_user!=supervisor
    error=not_supervisor
    !exit
  !endif
  del=!word 1 of $delete
  delete=
  deleted=!mexec delexo.sh $del
  !if $deleted=$empty
    error=not_exist
  !else
    wims_module_log=delete $wims_class/$del
  !endif
  !exit
!endif

!if $level notwordof 2 and ($realtest!=no and $realtest!=$empty)
  !set wims_ariane=!append line backcreatexo,1,cmd=resume&realtest=no\
  to $wims_ariane
!endif
!if $level iswordof 6
  !set wims_ariane=!append line backcreatexo,1,cmd=reply&level=3\
  to $wims_ariane
!endif
!if $mode=model and $model!=$empty
  model=!text select abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 in $model
  !sh cp -f $wims_home/public_html/scripts/model/$lang/src/$model.oef $wims_home/sessions/$wims_session/user-deposit\
    cp -f $wims_home/sessions/$wims_session/user-deposit $wims_home/sessions/$wims_session/submit.oef
  !if $level=3 and $realtest=yes
    !mexec makedef.sh
  !endif
  !reset status
  model=
!endif

!if $level=2 and $mode=model
  !read model/cut.proc
  !if $cnt<6 or $sps=$empty or $parms=$empty or $desc=$empty or\
      $model_type=$empty or statementrec=$empty
    mode=
    !goto nomodel
  !endif
  !set wims_ariane=!append line modellist,1,cmd=reply&level=1&mode=model\
to $wims_ariane
!endif

!if $level=2 and $mode=$empty
  !set wims_ariane=!append line normalmode,1,cmd=reply&level=1\
to $wims_ariane
  !read model/cut.proc
  !if $cnt>=6 and $sps!=$empty and $parms!=$empty and $desc!=$empty and\
      $model_type!=$empty and statementrec>1
    mode=model
    rawinp=
  !endif
!endif

:nomodel
!if $level=3 and $realtest=yes
  oef_test=yes
  !changeto oef/var.proc
!else
  !if $realtest=no
    question=
    hint=
    solution=
    status=
    varcnt=0
    replycnt=0
    choicecnt=0
    score=
    !if $mode=model
      !for i=1 to 100
        reply$i=
      !next i
    !endif model
  !endif realtest
  !reset status realtest retest
!endif level=3

!if $rawinp!=$empty
  mode=raw
  level=1
  rawinp=
!endif

!if $mode=raw and $level<=2
  modeltest=!recordcnt wimshome/sessions/$wims_session/submit.oef
  !if $modeltest>6
    modeltest=!record 0 of wimshome/sessions/$wims_session/submit.oef
    modeltest=!getopt type in $modeltest
    !if $modeltest!=$empty
      modeltest=yes
      !sh cd $wims_home/sessions/$wims_session\
        [ -s user-deposit ] || cp -f submit.oef user-deposit
    !endif
  !endif
!endif

!bound oef_format within tex,html default html
!bound oef_answercnt between integer 0 and $answerlim default 1
!bound oef_choicecnt between integer 0 and $choicelim default 0
!bound oef_condcnt   between integer 0 and $condlim   default 0
!bound oef_precision within 100,1000,10000,100000,1000000 default 10000
!bound oef_computeanswer within yes,no default no
!bound level between integer 0 and 7 default 0
!if $level=6 and $wims_user!=supervisor
  level=1
!endif

!for i in l,r
  oef_range$i=!trim $(oef_range$i)
  !if $(oef_range$i)!=$empty
    oef_range$i=$[$(oef_range$i)]
    !if NaN isin $(oef_range$i)] or Inf isin $(oef_range$i)
      oef_range$i=
    !endif
  !endif
!next i
!default oef_rangel=-5
!default oef_ranger=5
!if $oef_rangel=$oef_ranger
  oef_rangel=-5
  oef_ranger=5
!endif
!if $oef_rangel>$oef_ranger
  range=$oef_rangel
  oef_rangel=$oef_ranger
  oef_ranger=$range
!endif

!if $level>1 and $mode=$empty
  oef_title=!trim $oef_title
  !if $oef_title=$empty and $level>1
   error=no_title
   !exit
  !endif
  # !if $oef_answercnt+$oef_choicecnt<=0
  #  error=no_answer
  #  !exit
  # !endif
!endif
!if $level=7 and $wims_developer!=$empty
  !reset file_name_src
   list_mod=!sh ls $wims_home/public_html/modules/devel/$wims_developer
   list_mod=!words2items $list_mod
   list_mod_oef=
   !for a in $list_mod
     category = !module category devel/$wims_developer/$a
    !if oef isin $category
       list_mod_oef=!append item $a to $list_mod_oef
    !endif
   !next
   !if $list_mod_oef=$empty
     error = $error oefempty
   !endif
!endif

!if $level=3
  !if $mode=$empty
    header=\language{$lang}\
\range{$oef_rangel..$oef_ranger}
    !for i in author,email,computeanswer,format,precision
      oef_$i=!trim $(oef_$i)
      !if $(oef_$i)!=$empty
        header=!append line \$i{$(oef_$i)} to $header
      !endif
    !next i
    oef_statement=!trim $oef_statement
    !if $oef_statement=$empty
      error=no_statement
      !exit
    !endif
    answers=
    !for i=1 to $oef_answercnt
      ansprompt$i=!trim $(ansprompt$i)
      prompt=!char 1 to $promptlim of $(ansprompt$i)
      ansgood$i=!trim $(ansgood$i)
      !if $prompt!=$empty and $(ansgood$i)!=$empty
        !default anstype$i=default
        answers=!append line \answer{$prompt}{$(ansgood$i)}{type=$(anstype$i)} to $answers
      !endif
    !next i
    replycnt=!linecnt $answers
    choices=
    !for i=1 to $oef_choicecnt
      choiprompt$i=!trim $(choiprompt$i)
      prompt=!char 1 to $promptlim of $(choiprompt$i)
      choigood$i=!trim $(choigood$i)
      choibad$i=!trim $(choibad$i)
      !if $prompt!=$empty and $(choigood$i)!=$empty and $(choibad$i)!=$empty
        choices=!append line \choice{$prompt}{$(choigood$i)}{$(choibad$i)} to $choices
      !endif
    !next i
    choicecnt=!linecnt $choices
    conditions=
    !for i=1 to $oef_condcnt
      cn=!trim $(Condname$i)
      ct=!trim $(Condtest$i)
      !if $cn!=$empty and $ct!=$empty
        conditions=!append line \condition{$cn}{$ct} to $conditions
      !endif
    !next i
    #  !ifval $replycnt+$choicecnt=0
    #   error=no_reply2
    #   !exit
    #  !endif
    oef_hint=!trim $oef_hint
    !if $oef_hint!=$empty
      hints=\hint{$oef_hint}
    !endif
    oef_solution=!trim $oef_solution
    !if $oef_solution!=$empty
      solutions=\solution{$oef_solution}
    !endif
    source=!mexec makedef.sh
  !else
    !if $mode=model
      !read model/cutback.proc
    !endif
    !mexec makedef.sh
  !endif mode=$empty
  status=waiting
  oef2wims_out=!record 0 of wimshome/$wims_sesdir/oef2wims.out
  !if ERROR iswordof $oef2wims_out
    :diagerror
    test=!line 1 of $oef2wims_out
    !if ERROR notin $test
      oef2wims_out=!line 2 to -1 of $oef2wims_out
    !endif
    error=def_fail
    !exit
  !endif
  replycnt=
  choicecnt=
  varcnt=
  !read wimshome/$wims_sesdir/submit.def
  !if $replycnt=$empty or $choicecnt=$empty or $varcnt=$empty
    !goto diagerror
    !exit
  !endif
  title=!trim $title
  !if $title=$empty
    error=empty_title
    !exit
  !endif
  oef_fname=
  titlen=!charcnt $title
  !for i=1 to $titlen
    c=!char $i of $title
    !if $c isin 1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz_
      oef_fname=$oef_fname$c
    !endif
  !next i
  oef_fname=!char 1 to 14 of $oef_fname
  !if $wims_user!=$empty and $wims_user!=supervisor
    oef_fname=$wims_user.$oef_fname
  !endif
!endif

!if $level=4 and $wims_user!=$empty
  regout=!mexec regclass.sh
  reg1=!word 1 of $regout
  !if $reg1=success
    fnamebase=!word 2 of $regout
    existing=$fnamebase
    success=1
  !else
    error=!word 2 of $regout
    !if $error!=already
      !exit
    !else
      error=
      already=yes
    !endif
  !endif
  !if $wims_user!=supervisor and ..devel/ notin ..$catmodule
    prefix=$wims_user.
  !else
    prefix=
  !endif
 wims_module_log=Regclass $wims_class $mode $prefix$oef_title
!endif

!if $level=4
  !if $catmodule1 !=
    catmodule=devel/$wims_developer/$catmodule1
    !reset catmodule1
  !endif

  existing_new=!replace internal .oef by in $file_name_src
  !set existing_new=!text select ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz_1234567890 in $existing_new
  !if $existing_new != $empty
   existing=$existing_new
  !endif
!endif
!if $level=4 and $wims_developer!=$empty and ..devel/ isin ..$catmodule and \
   .. notin $catmodule $existing
  wims_exec_error=
  !sh cp $wims_home/sessions/$wims_session/submit.oef modules/$catmodule/src/$existing.oef\
    cd modules/$catmodule; src2def
  test_image=!sh ls $wims_home/sessions/$wims_session/getfile/oefimg 2>/dev/null
  !if $test_image!=$empty
    !reset test_common
    test_common=!defof common_images in wimshome/public_html/modules/$catmodule/var.proc
    !if $test_common!=$empty
      !if $test_common notwordof no yes
        wims_exec_error=!append word imagedir=$test_common to $wims_exec_error
      !else
        !if $test_common iswordof no or $test_common=$empty
          im_dir=images/$existing
        !else
          im_dir=images
        !endif
        !sh mkdir -p modules/$catmodule/$im_dir ;\
        cp $wims_home/sessions/$wims_session/getfile/oefimg/* modules/$catmodule/$im_dir
      !endif
    !endif
  !endif
  !reset test_image
  !reset already regout prefix
  !if $wims_exec_error=$empty
    reg1=success
    regout=$existing
  !else
    reg1=fail
  !endif
  wims_module_log=Regdev $catmodule $existing
  !goto l4end
!endif

!if ($level=4 and $wims_user=$empty) or $level=5
  regout=!mexec regpub.sh
  reg1=!word 1 of $regout
  !if $reg1=success
    fnamebase=!word 2 of $regout
  !else
    error=!word 2 of $regout
    !exit
  !endif
  wims_module_log=Regpub $mode $oef_title
!endif

:l4end
!if $level=6
  !readproc adm/class/quotafree.proc proc
  !if $wims_deposit!=$empty and .. notin $wims_deposit and / notin $wims_deposit
    !if $quota_free>1
      !sh cd $wims_home/$wims_sesdir\
      mkdir -p getfile/oefimg\
      mv user-deposit getfile/oefimg/$wims_deposit\
      cp oefdeposit user-deposit 2>/dev/null
    !endif
    imgfname=$wims_deposit
    wims_deposit=
  !else
    !sh cd $wims_home/$wims_sesdir\
      if [ -f user-deposit ]; then cp user-deposit oefdeposit; fi
    !if $delfile!=$empty and .. notin $delfile
      !sh rm -f $wims_home/$wims_sesdir/getfile/oefimg/$delfile
    !endif
  !endif
  imglist=!filelist $wims_home/$wims_sesdir/getfile/oefimg
  imglist=!words2items $imglist
!endif