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