share/contrib/maximaMathML/maximaMathML.lisp

   1 ;;;;;;;;;;;;;;;;; File:  load-mathml.lsp  ;;;;;;;;;;;;;;;;;;;;;;;;;;;
   2 ;; Purpose:   Makes maxima display mathml
   3 ;;
   4 ;; Usage:     load this file into maxima
   5 ;;                loadfile("mathmldisplay.lsp");
   6 ;;
   7 ;; Author: Paul S. Wang
   8 ;; Date: 5/20/99
   9 ;
  10 ; Authors:  Paul S. Wang, Kent State University
  11 ; This work was supported by NSF/USA.
  12 ; Permission to use this work for any purpose is granted provided that
  13 ; the copyright notice, author and support credits above are retained.
  14 ;
  15 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  16
  17 (in-package :maxima)
  18
  19 ;;; no saving of expressions under automatically generated labels
  20 (setq $nolabels t)
  21
  22 ;;; For the time being use concat(load("maximaMathML/load-mathml.lisp"))
  23 ;;; or something since the redefined displa can't handle lisp strings. -wj
  24
  25 ;; redefines maxima displa
  26 ($load "mathmldisplay")
  27
  28 ;; mathml input to maxima
  29 ($load "mathml-maxima")
  30
  31 ;; generate MathML Presentation encoding
  32 ($load "PrMathML")
  33
  34 ;; generate MathML Content encoding
  35 ($load "CtMathML")
  36
  37 ;;; enables mathml content code input to maxima
  38 ;;; use the command mathml(); followed by <math>...</math> from stdin