Subversion Repositories wimsdev

 !goto end

  !goto end

 !set wims_form_method=file

  !set wims_form_method=file

 !set already=!sh mkdir -p $wims_home/$wims_sesdir/$sesdir; ls $wims_home/$wims_sesdir/$sesdir

  !set already=!sh mkdir -p $wims_home/$wims_sesdir/$sesdir; ls $wims_home/$wims_sesdir/$sesdir

 !set already=!words2items $already

  !set already=!words2items $already

 !set already=!nospace $already

  !set already=!nospace $already

 error=

  error=

 compute=

  compute=

 !if $wims_deposit_old=0

  !if $wims_deposit_old=0

   !reset wims_deposit_old

    !reset wims_deposit_old

 !endif

  !endif

 !default wims_deposit=$wims_deposit_old

  !default wims_deposit=$wims_deposit_old

 f_wims_deposit=!replace internal . by , in $wims_deposit

  f_wims_deposit=!replace internal . by , in $wims_deposit

 f_wims_deposit=!item 1 of $f_wims_deposit

  f_wims_deposit=!item 1 of $f_wims_deposit

 !if $data=

  !if $data=

   !if noname.file isin $wims_deposit or $wims_deposit=$empty

    !if noname.file isin $wims_deposit or $wims_deposit=$empty

     wims_deposit=$wims_deposit_old

      wims_deposit=$wims_deposit_old

   !else

    !else

     !reset wims_deposit_old

      !reset wims_deposit_old

   !endif

    !endif

 !endif

  !endif

 !if $wims_deposit_old!=

  !if $wims_deposit_old!=

       dessin=!append line fcircle $(c_[2..3]),10,black to $dessin

        dessin=!append line fcircle $(c_[2..3]),10,black to $dessin

       dessin=!append line polyline black,$(c_[2..3]) to $dessin

        dessin=!append line polyline black,$(c_[2..3]) to $dessin

      !endif

      !endif

    !increase step

    !increase step

:1

  :1

 !if $step=1

  !if $step=1

   !if  / isin $wims_deposit or .. isin $wims_deposit or noname.file isin $wims_deposit or $wims_deposit=$empty

    !if  / isin $wims_deposit or .. isin $wims_deposit or noname.file isin $wims_deposit or $wims_deposit=$empty

     !if $wims_deposit_old!=

      !if $wims_deposit_old!=

       wims_deposit=$wims_deposit_old

        wims_deposit=$wims_deposit_old

     !else

      !else

       test=noimage

        test=noimage

       !exit

        !exit

     !endif

      !endif

   !endif / isin

    !endif / isin

   test_wims_deposit=!replace internal . by , in $wims_deposit

    test_wims_deposit=!replace internal . by , in $wims_deposit

   test_wims_deposit=!item -1 of $test_wims_deposit

    test_wims_deposit=!item -1 of $test_wims_deposit

   test_wims_deposit=!lowercase $test_wims_deposit

    test_wims_deposit=!lowercase $test_wims_deposit

   !if $test_wims_deposit notwordof jpg png jpeg gif

    !if $test_wims_deposit notwordof jpg png jpeg gif

       test=bad_image

      test=bad_image

       !exit

      !exit

   !endif

    !endif

   !if $wims_deposit_old=

    !if $wims_deposit_old=

    !sh cd $wims_home/$wims_sesdir\

      !sh cd $wims_home/$wims_sesdir\

     mkdir -p getfile\

       mkdir -p getfile\

     mkdir -p $sesdir\

       mkdir -p $sesdir\

     mv user-deposit $sesdir/$wims_deposit

       mv user-deposit $sesdir/$wims_deposit

   !endif

    !endif

   !increase step

    !increase step

 !endif step=1

  !endif step=1

:2

  :2

 !if $step>=2

  !if $step>=2

  !if $erase=yes

    !if $erase=yes

   !if $type iswordof 0 2 3

      !if $type iswordof 0 2 3

    dessin=!line 1 to -2 of $dessin

        dessin=!line 1 to -2 of $dessin

   !else

      !else

    dessin=!line 1 to -3 of $dessin

        dessin=!line 1 to -3 of $dessin

   !endif type

      !endif type

   data=!line 1 to -2 of $data

      data=!line 1 to -2 of $data

   !writefile wimshome/sessions/$wims_session/data_$f_wims_deposit $data

      !writefile wimshome/sessions/$wims_session/data_$f_wims_deposit $data

   step=$[max($[$step-1],2)]

      step=$[max($[$step-1],2)]

   !if $step=2

  !if $step=2

   !if $click_x != 0 and $click_y != 0

    !if $click_x != 0 and $click_y != 0

     data=!append line $click_x,$click_y to $data

      data=!append line $click_x,$click_y to $data

     !increase step

      !increase step

     insdraw_size=$click_x,$click_y

      insdraw_size=$click_x,$click_y

     !if $type!=3

      !if $type!=3

      test=nosize

        test=nosize

     !endif

      !endif

   !endif click!=0 ..

    !endif click!=0 ..

 !else

  !else

  !if $type iswordof 2 3

    !if $type iswordof 2 3

   !if $ext=2

      !if $ext=2

     data=!append item $javaoption,$(javaoutput) to $data

        data=!append item $javaoption,$(javaoutput) to $data

     data=!replace internal ; by , in $data

        data=!replace internal ; by , in $data

     !if $javaoption=circle

        !if $javaoption=circle

       javaout2=$(javaoutput[1]),$(javaoutput[2]),$(javaoutput[3])*2,black

          javaout2=$(javaoutput[1]),$(javaoutput[2]),$(javaoutput[3])*2,black

     !endif

        !endif

     !if $javaoption=rectangle

        !if $javaoption=rectangle

       javaout2=$(javaoutput),black

          javaout2=$(javaoutput),black

     !endif

        !endif

     !if $javaoption=polygon

        !if $javaoption=polygon

       javaout2=!replace internal ; by , in black,$(javaoutput)

          javaout2=!replace internal ; by , in black,$(javaoutput)

     !endif

        !endif

     !if $javaoption=brokenline

        !if $javaoption=brokenline

        javaout2=$(javaoutput)

          javaout2=$(javaoutput)

     !endif

        !endif

     dessin=!append line $javaoption $javaout2 to $dessin

        dessin=!append line $javaoption $javaout2 to $dessin

     !increase step

        !increase step

     ext=1

        ext=1

     begin=1

        begin=1

     !reset legend begin test

        !reset legend begin test

   !endif

      !endif

  !endif type=2

    !endif type=2

  !if ($legend!=$empty and ($click_x!=0 or $click_y!=0 or $type iswordof 3))

    !if ($legend!=$empty and ($click_x!=0 or $click_y!=0 or $type iswordof 3))

    !if $ext<=1

      !if $ext<=1

     !if $type=3

        !if $type=3

        data=!append line $legend to $data

          data=!append line $legend to $data

     !else

        !else

        data=!append line $legend,$click_x,$click_y to $data

          data=!append line $legend,$click_x,$click_y to $data

     !endif

        !endif

     !if $type=1

        !if $type=1

       dessin=!append line fcircle $click_x,$click_y,5,black to $dessin

          dessin=!append line fcircle $click_x,$click_y,5,black to $dessin

     !endif

        !endif

     !increase step

        !increase step

     !if $type iswordof 0

        !if $type iswordof 0

       !reset legend

          !reset legend

dessin=!append line fcircle $click_x,$click_y,10,black to $dessin

          dessin=!append line fcircle $click_x,$click_y,10,black to $dessin

     !endif

        !endif

     !if $type=1

        !if $type=1

dessin=!append line arrow $click_x,$click_y to $dessin

          dessin=!append line arrow $click_x,$click_y to $dessin

     !endif

        !endif

     !if $type iswordof 1 2 3

        !if $type iswordof 1 2 3

      !increase ext

          !increase ext

        !if $type iswordof 2

            !if $type iswordof 2

    dessin_p=!append line circle $click_x,$click_y,5,red to $dessin_p

              dessin_p=!append line circle $click_x,$click_y,5,red to $dessin_p

       !endif

            !endif

       !if $type iswordof 2 3

            !if $type iswordof 2 3

    !set insdraw_filebase=!append item $wims_home/sessions/$wims_session/$sesdir to $insdraw_filebase

              !set insdraw_filebase=!append item $wims_home/sessions/$wims_session/$sesdir to $insdraw_filebase

    !set insdraw_filebase=!listuniq $insdraw_filebase

              !set insdraw_filebase=!listuniq $insdraw_filebase

    !set insdraw_filebase=!items2words $insdraw_filebase

              !set insdraw_filebase=!items2words $insdraw_filebase

    !insdraw copy 0,0,-1,-1,-1,-1,$wims_deposit\

              !insdraw copy 0,0,-1,-1,-1,-1,$wims_deposit\

      !sh cd $wims_home/\

              !sh cd $wims_home/\

     cp s2/$wims_session/$ins_filename sessions/$wims_session/getfile/click/$ins_filename

      cp s2/$wims_session/$ins_filename sessions/$wims_session/getfile/click/$ins_filename

 !set imgsrc=$wims_ref_name?session=$session&cmd=getfile&special_parm=$sesdir1/$ins_filename

              !set imgsrc=$wims_ref_name?session=$session&cmd=getfile&special_parm=$sesdir1/$ins_filename

     data=!append item $click_x,$click_y to $data

        !if ($click_x=0 and $click_y=0) and $begin!=1 and $type!=3

     !if $type iswordof 1

          test=noclick

     !endif

        !endif

     !reset legend

      !endif legend

   !endif

    !endif

   !endif

  !endif

 name_title=!line 1 of $(name_description$end)

  name_title=!line 1 of $(name_description$end)

 exo=!record 0 to -1 of data/example$end.oef

  exo=!record 0 to -1 of data/example$end.oef

 exo_begin=!record 0 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=!record 1 to -1 of data/example$end.oef

 exo=!replace internal &lt; by < in $exo_begin\

  exo=!replace internal &lt; by < in $exo_begin\

 !writefile wimshome/sessions/$wims_session/submit.oef $exo

  !writefile wimshome/sessions/$wims_session/submit.oef $exo

 !writefile wimshome/sessions/$wims_session/data_$f_wims_deposit $data

  !writefile wimshome/sessions/$wims_session/data_$f_wims_deposit $data

 insdraw_size=!line 1 of $data

  insdraw_size=!line 1 of $data

 !insdraw $dessin

  !insdraw $dessin

 !set imgfilename=$ins_filename

  !set imgfilename=$ins_filename

 !if $type iswordof 2 3

  !if $type iswordof 2 3

  !sh cd $wims_home/\

    !sh cd $wims_home/\

     cp s2/$wims_session/$imgfilename sessions/$wims_session/getfile/click/z_$wims_deposit

      cp s2/$wims_session/$imgfilename sessions/$wims_session/getfile/click/z_$wims_deposit

 !endif

  !endif