Rev 13248 | Blame | Compare with Previous | Last modification | View Log | RSS feed
!default wims_firstname=$wims_devfirstname
!default wims_lastname=$wims_devlastname
!set wims_ariane=!append line modtool,1,module=adm/modtool\
to $wims_ariane
!set wims_ariane_self=no
!if $cmd!=reply
!set wims_ariane=!append line coordclick,8\
to $wims_ariane
!else
!set wims_ariane=!append line coordclick,1,module=$module\
to $wims_ariane
!endif
!!$wims_sesdir a mettre partout y a-t-il quelque chose pour s2
!read adm/language lang/names.phtml
!set limit=50
!reset begin
!default ext=1
javaoption=$javatype
!if $type=3
javaoption=brokenline
!endif
!default javaoption=circle
javaoutput=!getopt free in $(javaoutput)
!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 iswordof 2 3 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
!if $type iswordof 3
dessin=!append line polyline black,$(c_[2..3]) 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 iswordof 0 2 3
dessin=!line 1 to -2 of $dessin
!else
dessin=!line 1 to -3 of $dessin
!endif type
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
!if $type!=3
test=nosize
!endif
!endif click!=0 ..
!else
!if $type iswordof 2 3
!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
!if $javaoption=brokenline
javaout2=$(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 or $type iswordof 3))
!if $ext<=1
!if $type=3
data=!append line $legend to $data
!else
data=!append line $legend,$click_x,$click_y to $data
!endif
!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 3
!increase ext
!if $type iswordof 2
dessin_p=!append line circle $click_x,$click_y,5,red to $dessin_p
!endif
!if $type iswordof 2 3
!set insdraw_filebase=!append item $wims_home/sessions/$wims_session/$sesdir to $insdraw_filebase
!set insdraw_filebase=!listuniq $insdraw_filebase
!set insdraw_filebase=!items2words $insdraw_filebase
!insdraw copy 0,0,-1,-1,-1,-1,$wims_deposit\
$dessin\
$dessin_p
!sh cd $wims_home/\
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
!endif
!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 3
!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 and $type!=3
test=noclick
!endif
!endif legend
!endif
!endif
!endif cmd=reply
!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 < 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 iswordof 2 3
!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