← Back to branch summary

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

« back to all changes in this revision

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

  • Committer: Bazaar Package Importer
  • Author(s): Barry deFreese
  • Date: 2006-07-06 17:04:52 UTC
  • mfrom: (1.1.4 upstream)
  • Revision ID: james.westby@ubuntu.com-20060706170452-j9ypoqc1kjfnz221
Tags: 5.9.3-1ubuntu1
* Re-sync with Debian
* Comment out backward-delete-char-untabify in maxima.el (Closes Malone #5273)
* debian/control: build-dep automake -> automake1.9 (Closes BTS: #374663)

Show diffs side-by-side

added added

removed removed

Lines of Context:
share/contrib/maximaMathML/CtMathML.lisp
 
1
 
1
2
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2
3
;;;  Purpose:  Generate MathML Content code from MAXIMA
3
4
;;;  File: CtMathML.lsp
19
20
;; Author: Paul S. Wang
20
21
;; Date: 4/99
21
22
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
22
 
;
23
 
;=============================================================================
24
 
;    (c) copyright 2002  Kent State University
25
 
;               all rights reserved.
26
 
;
27
 
; Authors:  Paul S. Wang, Kent State University
28
 
; This work was supported by NSF/USA.
29
 
; Permission to use this work for any purpose is granted provided that
30
 
; the copyright notice, author and support credits above are retained.
31
 
;
32
 
;=============================================================================
33
23
 
34
 
(in-package "MAXIMA")
 
24
(in-package :maxima)
35
25
(macsyma-module mathml)
36
26
(declaim (special lop rop ccol *row *indent* mPrport))
37
27
 
75
65
                      (eq 'mlable (caar mexpress)))
76
66
                (setq mexpress (cadr mexpress))
77
67
           )
78
 
           (tprinc "<math>")
 
68
           (tprinc "<math  xmlns='http://www.w3.org/1998/Math/MathML'>")
79
69
           (ctmathml (nformat mexpress))  ;;; call engine
80
70
           (tprinc "</math>")
81
71
           (when filename (terpri mPrport) (close mPrport))
146
136
                  (tprinc "<cn type=\"constant\">") )
147
137
               (t (tprinc "<cn>") )
148
138
         )
149
 
         (tprinc val) (tprinc "</ci>")
 
139
         (tprinc val) (tprinc "</cn>")
150
140
        )
151
141
        (t (tprinc "<ci>")
152
142
         (tprinc (apply 'concat (mapcar #'handle_rsw
153
 
                   (rm '// (explode (fullstrip1 a))))))
 
143
                   ;; next line modified explode to exploden pwang 2/2003
 
144
                   (rm '// (exploden (fullstrip1 a))))))
154
145
         (tprinc "</ci>"))
155
146
  )
156
147
))