maxima-to-ir

All + All -

maxima-to-ir

atom
- $%i
  - (num 0 1)
- $%pi
  - (num (symbol "math.pi") 0)
- $%e
  - (num (symbol "math.e") 0)
- (stringp form)
  - (string form)
- DEFAULT
  - (num form 0)
(consp form)
- (consp (car form))
  - ((atom ~) ~)
    - + - (atom (caar form))
      - ((mtimes ~) exp1 exp2 ~)
        
        (op * simp-exp1 simp-exp2 ~)
      - ((mplus ~) exp1 exp2 ~)
        
        (op + simp-exp1 simp-exp2 ~)
      - ((mexpt ~) exp1 exp2)
        
        (funcall (symbol "pow") simp-exp1 simp-exp2)
      - ((mfactorial ~) exp1)
        
        (funcall math.factorial simp-exp1)
      - ((rat ~) exp1 exp2)
        
        (op / simp-exp1 simp-exp2)
      - ((mlist ~) exp1 exp2 ~)
        
        (struct-list simp-exp1 simp-exp2 ~)
      - ((msetq ~) exp1 exp2)
        
        (assign simp-exp1 simp-exp2)
      - ((mdefine simp) ((atom) atom1 atom2 ((mlist) atom3)) exp1)
        
        (func-def (symbol atom) ((symbol atom1) (symbol atom2) (symbol *atom3)) (body-indented (simp-exp1) ~))
      - ((mprog/mprogn) exp1 exp2 ~)
        
        Creation of a function :- (func-def (symbol "random") () (body-indented )) (funcall (symbol "random") )
      - ((%array ~) name num1 num2 ~)
        
        (asign (SYMBOL ) (OP * (STRUCT-LIST (OP * (STRUCT-LIST ...~... (SYMBOL "None")) num2)) num1))
      - ((%array ~) name type num1 num2 ~)
        
        (assign (SYMBOL ) (OP * (STRUCT-LIST (OP * (STRUCT-LIST ...~... (SYMBOL "None")) num2)) num1))
      - ((%array ~) ((mlist ~) name1 name2 ~) num1 num2 ~)
        
        (body (assign (SYMBOL ) (OP * (STRUCT-LIST (OP * (STRUCT-LIST (OP * ..~.. (STRUCT-LIST (SYMBOL "None")) 3)) 2)) 1)) (assign (SYMBOL ) (OP * (STRUCT-LIST (OP * (STRUCT-LIST (OP * ..~.. (STRUCT-LIST (SYMBOL "None")) 3)) 2)) 1)) .... (assign (SYMBOL ) (OP * (STRUCT-LIST (OP * (STRUCT-LIST (OP * ..~.. (STRUCT-LIST (SYMBOL "None")) 3)) 2)) 1)))
        
        (assign (SYMBOL "REF")
        
        (OP *
        
        (STRUCT-LIST
        
        (OP *
        
        (STRUCT-LIST
        
        (OP * (STRUCT-LIST (SYMBOL "None")) 3))
        
        2))
        
        1))
        
        (assign (SYMBOL "SVSV")
        
        (OP *
        
        (STRUCT-LIST
        
        (OP *
        
        (STRUCT-LIST
        
        (OP * (STRUCT-LIST (SYMBOL "None")) 3))
        
        2))
        
        1))
        
        (assign (SYMBOL "SDVSDV")
        
        (OP *
        
        (STRUCT-LIST
        
        (OP *
        
        (STRUCT-LIST
        
        (OP * (STRUCT-LIST (SYMBOL "None")) 3))
        
        2))
        
        1)))
      - ((array-name simp array) index1 index2 ~_
        
        (element-array (element-array (element-array (symbol ) index-1) index-2) .. index-n)
      - DEFAULT CASE
        
        (funcall (symbol <(caar form)>) simp-exp1 simp-exp2 ~)
      - ((mcond) cond1 exp1 cond2 exp2 ... condn expn t expnn)
        
        (conditional cond1 exp1 (conditional cond2 exp2 expnn))
    - ((mnot ~) exp)
      - (funcall (symbol "not") simp-exp)
    - ((mand ~) exp-1 exp-2 ~)
      - (boolop and simp-exp-1 simp-exp-2)
    - ((mor ~) exp-1 exp-2 ~)
      - (boolop or simp-exp-1 simp-exp-2)
    - ((mgreaterp ~) exp exp)
      - (comp-op > exp exp)
    - ((mequal ~) exp exp)
      - (comp-op == exp exp)
    - ((mnotequal ~) exp exp)
      - (comp-op != exp exp)
    - ((mlessp ~) exp exp)
      - (comp-op < exp exp)
    - ((mgeqp ~) exp exp)
      - (comp-op >= exp exp)
    - ((mleqp ~) exp exp)
      - (comp-op <= exp exp)
    - + - ((lambda ~) ((mlist) s1 s2 ~) exp-1)
      - (lambda (simp-s1 simp-s2) simp-exp-1)
    - ((lambda ~) ((mlist) s1 s2 ~) exp-1 exp-2 ~)
      - (BODY (FUNC-DEF (SYMBOL "func19167") NIL (BODY-INDENTED simp-exp1 simp-exp2 (FUNCALL (SYMBOL "return") (OP / (SYMBOL "a") (SYMBOL "b"))))) (LAMBDA () (FUNCALL (SYMBOL "func19167")))
    - + - ((MDOIN SIMP) $I ((MLIST SIMP)) NIL NIL NIL NIL (($PRINT SIMP) $I)
      - (for-list (symbol "i") (struct-list) (body-indented exps)
    - ((MDO SIMP) $I 10 5 NIL NIL ((MLEQP SIMP) ((MTIMES SIMP) 5 $I) 30) ((MPROGN SIMP) (($PRINT SIMP) $I) (($PRINT SIMP) ((MTIMES SIMP) 5 $I))))
      - (BODY (BODY (ASSIGN (SYMBOL "i") (NUM 10 0)) (WHILE-LOOP (FUNCALL (SYMBOL "not") (COMP-OP <= (OP * (NUM 5 0) (SYMBOL "i")) (NUM 30 0))) (BODY-INDENTED (FUNCALL (SYMBOL "print") (SYMBOL "i")) (FUNCALL (SYMBOL "print") (OP * (NUM 5 0) (SYMBOL "i"))) (ASSIGN (SYMBOL "i") (OP + (SYMBOL "i") (NUM 5 0))))) (DEL (SYMBOL "i"))))