share/contrib/maximaMathML/mathmldisplay.lisp

   1 ;;;;;;;;;;;;;;;;; File:  mathmldisplay.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 (defun displa(exp)
  19      (setq exp (caddr exp))   ;;; get rid of output label
  20      (print 'presentation-exp)
  21      ($prmathml exp)
  22      (print 'content-exp)
  23      ($ctmathml exp)
  24      (print 'end-exp)
  25      (terpri)
  26 )
  27
  28 ;;;;;; example usage
  29
  30 ;;   (C1) loadfile("mathmldispla.lsp");
  31
  32 ;;   mathmldispla.lsp being loaded.
  33 ;;   Loading mathmldispla.lsp
  34 ;;   Finished loading mathmldispla.lsp