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),...