← Back to branch summary

~ubuntu-branches/ubuntu/karmic/maxima/karmic

« back to all changes in this revision

Viewing changes to share/contrib/maximaMathML/mathmldisplay.lisp

  • Committer: Bazaar Package Importer
  • Author(s): Camm Maguire
  • Date: 2004-11-13 18:39:14 UTC
  • mto: (2.1.2 hoary) (3.2.1 sid) (1.1.5 upstream)
  • mto: This revision was merged to the branch mainline in revision 3.
  • Revision ID: james.westby@ubuntu.com-20041113183914-ttig0evwuatnqosl
Tags: upstream-5.9.1
Import upstream version 5.9.1

Show diffs side-by-side

added added

removed removed

Lines of Context:
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