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