Subversion Repositories wimsdev

!if $wims_read_parm!=slib_header
 !goto proc
!endif
slib_author=Georges, Khaznadar
slib_license=GPL

slib_example= MnO4^- + 5 e^- + 8H^+ -> Mn^2+ + 4H2O \
MnO4^- + 5 e^- + 8H^+ -> Mn^2+ + 4H2O, htmlbuttons 3 \
MnO4^- + 5 e^- + 8H^+ -> Mn^2+ + 4H2O, htmlbuttons 3,,[extra,redox_extra] \
MnO4^- + 5 e^- + 8H^+ -> Mn^2+ + 4H2O, htmlbuttons 2, shuffle,[extra]
slib_require=chemeq
!exit

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!! TODO : find a way to accept the experimental "tex" feature
!! this example should work but it does not:
!! MnO4^- + 5 e^- + 8H^+ -> Mn^2+ + 4H2O, htmlbuttons 2, tex
!! it should make nice graphic buttons with TeX rendered formulas
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

:proc

!distribute items $wims_read_parm into slib_chem, slib_html, slib_opt, slib_add

slib_add=!declosing $slib_add

!if htmlbuttons isin $slib_html
  !distribute words $slib_html into slib_html slib_n
!endif

!if shuffle isin $slib_opt
  slib_shuffle=shuffle
!else
  slib_shuffle=
!endif

!if tex isin $slib_opt
  slib_tex=tex
!else
  slib_tex=
!endif

chemeq_option=C
slib_c=!exec chemeq $slib_chem
!reset chemeq_option

slib_c=!replace |[^,;]* by $empy in $slib_c
slib_c=!replace [0-9]\+[ ] by $empy in $slib_c

slib_add=!replace redox_extra by H^+_aq,OH^-_aq,H2O,e^- in $slib_add

!if $slib_tex=tex
  slib_c=!replace ; by , in $slib_c
  slib_c1=
  !for slib_component in $slib_c
     chemeq_option=l
     slib_component_tex=!exec chemeq $slib_component
     slib_c1=!append item $slib_component_tex to $slib_c1
  !next
  slib_c=$slib_c1
!endif

slib_add=!replace extra by +,-> in $slib_add

!if $slib_add != $empty
  slib_c=$slib_c, $slib_add
!endif


!if $slib_html=htmlbuttons
  slib_c=!replace ; by , in $slib_c
  slib_c=!listuniq $slib_c
  !if $slib_shuffle=shuffle
    slib_c=!shuffle $slib_c
  !endif
  slib_buttons=
  !if $slib_tex=tex
    !!!!!!!!!!!!!! this feature should work but it does not !!!!!!!!!!!!!!!!!!
    !for slib_component in $slib_c
      slib_buttons=$slib_buttons<input type="button" value="\
!instex $slib_component\
" onclick="appendToInput($slib_n,' $slib_component ')" />
    !next slib_component
  !else
    !for slib_component in $slib_c
      slib_buttons=$slib_buttons<input type="button" value="$slib_component" onclick="appendToInput($slib_n,' $slib_component ')" />
    !next slib_component
  !endif
  slib_out=$slib_buttons
!else
  slib_out=$slib_c
!endif