Subversion Repositories wimsdev

Rev

Rev 539 | Blame | Compare with Previous | Last modification | View Log | RSS feed


datatype=!char 1 to 20 of $datatype
datatype=!deaccent $datatype
operation=!trim $operation
operation=!char 1 to 100 of $operation
opr=!deaccent $operation
opr=!lower $opr

!distribute items $opr into oprname,opr
oprname=!translate internal `'"\/,;.-?! to $                  $ in $oprname
opr=!translate internal `'"\,;.-?! to $                  $ in $opr
oprname=!singlespace $oprname

!if $opr=$empty
  dictionary=$module_dir/dic/syno
  suffix_dictionary=bases/sys/suffix.$module_language
  translator_unknown=leave
  opr=!exec translator $oprname
  opr=!singlespace $opr
!endif

dictionary=$module_dir/dic/cmd
translator_unknown=
!if $opr=$empty
  opr=!exec translator $oprname
!endif
opr=!word 1 of $opr
!bound showformat within tex,html,raw default $
!bound precision between integer 3,1000 default 20
!if $picturesize!=$empty
  psize=!translate internal ,;xX to $      $ in $picturesize
  !distribute words $psize into picx, picy
  picx=$[$picx]
  picy=$[$picy]
!endif
!bound picx between 10 and 1000 default 320
!bound picy between 10 and 1000 default 240

formula=!trim $formula
!if $formula=$empty
  !if $opr!=$empty
    error=empty_data
  !endif
  !exit
!endif
!if $opr=$empty and $operation!=$empty
  error=unknown_operation
  !exit
!endif

!if $opr!=$empty
  op=!translate internal / to $ $ in $opr
  opdir=!word 1 to -2 of op $op
  opdir=!translate $ $ to / in $opdir
  !read op/$opr.def def
  module_title=$module_title: $title
  !if $input!=$empty
    !read input/$input
    !if $error!=$empty
      !exit
    !endif
  !endif
  pari_precision=$precision
  maxima_precision=$precision
  print_precision=$precision
  !read op/$opr.def proc
  result=!mathsubst I=i in $result
  result=!trim $result
  !if $result=$empty
    !default error=fail
    !exit
  !endif
!endif

wims_module_log=$operation