Subversion Repositories wimsdev

!if $wims_read_parm!=slib_header

  !goto proc

!endif

slib_author=Georges, Khaznadar

slib_license=GPL

slib_example= H2 + O2 -> H2O, 2H2 + O2 -> 2H2O \

2H2 + O2 -> 2H2O, 2H2_g + O2_g -> 2H2O \

H2 + 1/2 O2 -> H2O, 2H2 + O2 -> 2H2O \

Fe + Cu^2+ -> Fe^2+ + Cu, Fe + Cu^2+ -> Fe^2+ + Cu \

Ag^+ + 1/2 SO4^2- -> 1/2 Ag2(SO4), 2Ag^+ + SO4^2- -> Ag2(SO4)

slib_require=chemeq

!exit

:proc

!reset slib_parm, slib_student_eq, slib_correct_eq, slib_ok_reply, slib_ko_reply, slib_st_eq, slib_co_eq

slib_parm=!item 1 to 4 of $wims_read_parm

!distribute item $slib_parm into slib_student_eq, slib_correct_eq, slib_ok_reply, slib_ko_reply

!default slib_ok_reply=good

!default slib_ko_reply=bad

slib_out=$slib_ko_reply

chemeq_option=n

slib_st_eq=!exec chemeq $slib_student_eq

!if ERROR isin $wims_exec_error

  !goto end

!endif

slib_co_eq=!exec chemeq $slib_correct_eq

!if ERROR isin $wims_exec_error

  !goto end

!endif

!if $slib_st_eq = $slib_co_eq

  slib_out=$slib_ok_reply

!endif

:end

!reset chemeq_option