Subversion Repositories wimsdev

fml=$formula
fml=!translate ; to $\
$ in $fml
icnt=!itemcnt $fml
:retest
!if $icnt>1
 test=!item 1 of $fml
 test=!declosing $test
 tcnt=!itemcnt $test
 !if $tcnt=2
    form=!lines2items $fml
    form=!nonempty items $form
    lcnt=!itemcnt $form
    !reset fml
    !for i=1 to $lcnt
      l=!item $i of $form
      l=!declosing $l
      c=!itemcnt $l
      !if $c!=2
        error=bad_formula
        !exit
      !endif
      fml=!append line $l to $fml
    !next i
 !else
    tcnt=!wordcnt $test
    !if $tcnt=2
      form=!lines2items $fml
      form=!nonempty items $form
      lcnt=!itemcnt $form
      !reset fml
      !for i=1 to $lcnt
        l=!item $i of $form
        l=!declosing $l
        c=!wordcnt $l
        t=!itemcnt $l
        !if $c!=2 or $t!=1
          error=bad_formula
          !exit
        !endif
        !distribute words $l into x_,y_
        fml=!append line $x_,$y_ to $fml
      !next i
    !else
      form=$fml
      form=!nonempty lines $form
      lcnt=!linecnt $form
      !reset fml
      !for i=1 to $lcnt
        l=!line $i of $form
        c=!itemcnt $l
        !if $c!=2
          error=bad_formula
          !exit
        !endif
        fml=!append line $l to $fml
      !next i
    !endif
  !endif
!else
  fml=!lines2items $fml
  icnt=!itemcnt $fml
  !if $icnt>1
    !goto retest
  !else
    error=bad_formula
    !exit
  !endif
!endif

fml=!nonempty lines $fml
cnt=!linecnt $fml
op=!lower $option
fml3=
!if exchange iswordof $op
 f=
 !for i=1 to $cnt
  l=!line $i of $fml
  !distribute items $l into x_,y_
  f=!append line $y_,$x_ to $f
  fml3=!append item ($y_,$x_) to $fml3
 !next i
 fml=$f
!else
 !for i=1 to $cnt
  l=!line $i of $fml
  fml3=!append item ($l) to $fml3
 !next i
!endif
fml2=!translate $\
$ to ; in $fml
fml2=!rawmath $fml2
fml2=!replace , by , $ in $fml2
fml2=!replace ; by ; $ in $fml2
fml2=!singlespace $fml2
fml3=!replace , by , $ in $fml3
fml3=!singlespace $fml3

# fml: x1,y1\
# x2,y2...
#
# fml2: x1,y1;x2,y2;...
#
# fml3: (x1,y1),(x2,y2),...