Subversion Repositories wimsdev

!default wims_firstname=$wims_devfirstname
!default wims_lastname=$wims_devlastname
!!$wims_sesdir a mettre partout y a t-il quelque chose pour s2
!read lang/names.phtml.fr
!set limit=50
!reset begin
!default ext=1
javaoption=$javatype
!default javaoption=circle
!if $end=1
 !goto end
!endif
!if $step <=1
 !set wims_form_method=file
 !set already=!sh mkdir -p $wims_home/$wims_sesdir/$sesdir; ls $wims_home/$wims_sesdir/$sesdir
 !set already=!words2items $already
 !set already=!nospace $already
!endif
!if $step>$limit
  test=limit
  !exit
!endif
# how to detect the need to compute?
!if $cmd=reply
 error=
 compute=
 !if $wims_deposit_old=0
   !reset wims_deposit_old
 !endif
 !default wims_deposit=$wims_deposit_old
 f_wims_deposit=!replace internal . by , in $wims_deposit
 f_wims_deposit=!item 1 of $f_wims_deposit
 !if $data=
   !if noname.file isin $wims_deposit or $wims_deposit=$empty
     wims_deposit=$wims_deposit_old
   !else
     !reset wims_deposit_old
   !endif
 !endif
 !if $wims_deposit_old!=
    begin=1
    f_wims_deposit=!replace internal . by , in $wims_deposit_old
    f_wims_deposit=!item 1 of $f_wims_deposit
    data=!sh cat $wims_home/$wims_sesdir/data_$f_wims_deposit
    !reset  wims_deposit_old
    insdraw_size=!line 1 of $data
    step=!linecnt $data
    test_ext=!line 2 of $data
    test_extcnt=!itemcnt $test_ext
    test_extcnt2=!listintersect test_ext and $list_curve
    !if ($test_extcnt=3 and $type=1) or ($type<2 and $(test_ext[2]) isitemof $list_curve) \
       or ($type=2 and $test_extcnt2=$empty)
      data=!line 1 of $data
      step=3
      !goto 2
    !endif
    !if $step=0 
      step=1
      !goto 1
    !endif
    !for l_ =2 to $step
      c_=!line $l_ of $data
      !if $type=1
        dessin=!append line arrow $(c_[2..5]),5,black to $dessin
      !endif
      !if $type iswordof 0 2
       dessin=!append line fcircle $(c_[2..3]),10,black to $dessin
      !endif
      XXXXX
    !next
    !increase step
    !!exit
  !endif wims_deposit_old

:1
 !if $step=1
   !if  / isin $wims_deposit or .. isin $wims_deposit or noname.file isin $wims_deposit or $wims_deposit=$empty
     !if $wims_deposit_old!=
       wims_deposit=$wims_deposit_old
     !else
       test=noimage
       !exit
     !endif
   !endif / isin
   test_wims_deposit=!replace internal . by , in $wims_deposit
   test_wims_deposit=!item -1 of $test_wims_deposit
   test_wims_deposit=!lowercase $test_wims_deposit
   !if $test_wims_deposit notwordof jpg png jpeg gif
       test=bad_image
       !exit
   !endif
   !if $wims_deposit_old=
    !sh cd $wims_home/$wims_sesdir\
     mkdir -p getfile\
     mkdir -p $sesdir\
     mv user-deposit $sesdir/$wims_deposit
   !endif 
   !increase step
 !endif step=1
:2
 !if $step>=2
  !if $erase=yes
   !if $type=0
    dessin=!line 1 to -2 of $dessin
   !else
    dessin=!line 1 to -3 of $dessin
   !endif type=0
   data=!line 1 to -2 of $data
   !writefile wimshome/sessions/$wims_session/data_$f_wims_deposit $data
   step=$[max($[$step-1],2)]
   !if $step=2
    !reset data
     !!!writefile wimshome/sessions/$wims_session/data_$f_wims_deposit $data
   !endif step=2
   !reset legend test erase
   !!!!
    !exit
  !endif erase=yes
 !endif step>=2
 !reset wims_form_method
 !default imgsrc=$wims_ref_name?session=$session&cmd=getfile&special_parm=$sesdir1/$wims_deposit
 click_x=$[$click_x]
 click_y=$[$click_y]

 !if $step=2
   !reset data
   !if $click_x != 0 and $click_y != 0
     data=!append line $click_x,$click_y to $data
     !increase step
     insdraw_size=$click_x,$click_y
   !else
     test=nosize
   !endif click!=0 ..
 !else
  !if $type=2
   !if $ext=2
     data=!append item $javaoption,$(javaoutput) to $data
     data=!replace internal ; by , in $data
     !if $javaoption=circle
       javaout2=$(javaoutput[1]),$(javaoutput[2]),$(javaoutput[3])*2,black
     !endif
     !if $javaoption=rectangle
       javaout2=$(javaoutput),black
     !endif
     !if $javaoption=polygon
       javaout2=!replace internal ; by , in black,$(javaoutput)
     !endif
     dessin=!append line $javaoption $javaout2 to $dessin
     !increase step
     ext=1
     begin=1
     !reset legend begin test
   !endif
  !endif type=2

  !if ($legend!=$empty and ($click_x!=0 or $click_y!=0))
    !if $ext<=1
      data=!append line $legend,$click_x,$click_y to $data
     !if $type=1
      dessin=!append line fcircle $click_x,$click_y,5,black to $dessin
     !endif
     !increase step
     !if $type iswordof 0
       !reset legend
dessin=!append line fcircle $click_x,$click_y,10,black to $dessin
     !endif
     !if $type=1
dessin=!append line arrow $click_x,$click_y to $dessin
     !endif
    !if $type iswordof 1 2
      !increase ext
    !endif
   !else
     data=!append item $click_x,$click_y to $data
     !if $type iswordof 1
dessin=!append item $click_x,$click_y,10,black to $dessin
     !endif
     !if $type iswordof 2
 !insdraw $dessin
 !set imgsrc=$ins_filename
     !endif

     
     !reset legend
     ext=1
    !endif ext <=1
  !else legend
   !if $legend=$empty and $begin!=1
     test=nolegend
   !endif
   !if ($click_x=0 and $click_y=0) and $begin!=1
     test=noclick
   !endif
  !endif legend
!endif
!if $step >= $limit
  end=1
!endif 

:end

!if $end!=0 and $end!=$empty
 name_title=!line 1 of $(name_description$end)
 exo=!record 0 to -1 of data/example$end.oef
 exo_begin=!record 0 of data/example$end.oef
 exo=!record 1 to -1 of data/example$end.oef
 exo=!replace internal &lt; by < in $exo_begin\
:$(name_description$end)\
$exo

 !writefile wimshome/sessions/$wims_session/submit.oef $exo
 !writefile wimshome/sessions/$wims_session/data_$f_wims_deposit $data
 insdraw_size=!line 1 of $data
 !insdraw $dessin
 !set imgfilename=$ins_filename
 !if $type=2
  !sh cd $wims_home/\
     cp s2/$wims_session/$imgfilename sessions/$wims_session/getfile/click/z_$wims_deposit
 !endif
!endif
!reset click_x click_y erase javaoutput