blob: a652c00de457d3ce74687f4934cd9bf7df3fa624 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
|
diff -urN TeXmacs-1.0.6-src.orig/plugins/maxima/bin/maxima_detect TeXmacs-1.0.6-src/plugins/maxima/bin/maxima_detect
--- TeXmacs-1.0.6-src.orig/plugins/maxima/bin/maxima_detect 2005-12-02 19:08:07.000000000 +0100
+++ TeXmacs-1.0.6-src/plugins/maxima/bin/maxima_detect 2006-04-20 20:29:21.000000000 +0200
@@ -46,9 +46,10 @@
if [ "$1" ]
then
if $MAXIMA --list-avail | grep -F "version 5.9.1
-version 5.9.2" >/dev/null
+version 5.9.2
+version 5.9.3" >/dev/null
then
- # 5.9.1 or 5.9.2
+ # 5.9.1 or 5.9.2 or 5.9.3
maxima -d | grep -F 'maxima-htmldir=' | sed -e 's/maxima-htmldir=/"/' \
-e 's|$|/maxima_toc.html"|'
else
diff -urN TeXmacs-1.0.6-src.orig/plugins/maxima/bin/tm_maxima TeXmacs-1.0.6-src/plugins/maxima/bin/tm_maxima
--- TeXmacs-1.0.6-src.orig/plugins/maxima/bin/tm_maxima 2005-12-02 19:08:07.000000000 +0100
+++ TeXmacs-1.0.6-src/plugins/maxima/bin/tm_maxima 2006-04-20 20:29:21.000000000 +0200
@@ -14,6 +14,6 @@
5.9.0) exec maxima -u $1 -l $2 -p "$TEXMACS_MAXIMA_PATH/texmacs-maxima-5.9.0.lisp" \
| maxima_filter;;
5.9.1) exec maxima -u $1 -l $2 -p "$TEXMACS_MAXIMA_PATH/texmacs-maxima-5.9.1.lisp";;
- 5.9.1.1* | 5.9.2*) exec maxima -u $1 -l $2 -p "$TEXMACS_MAXIMA_PATH/texmacs-maxima-5.9.2.lisp";;
+ 5.9.1.1* | 5.9.2* | 5.9.3) exec maxima -u $1 -l $2 -p "$TEXMACS_MAXIMA_PATH/texmacs-maxima-5.9.2.lisp";;
*) echo -e "\2latex:\\red Unsupported version of maxima: $1\5"
esac
diff -urN TeXmacs-1.0.6-src.orig/plugins/maxima/lisp/texmacs-maxima-5.9.2.lisp TeXmacs-1.0.6-src/plugins/maxima/lisp/texmacs-maxima-5.9.2.lisp
--- TeXmacs-1.0.6-src.orig/plugins/maxima/lisp/texmacs-maxima-5.9.2.lisp 2005-12-02 19:08:07.000000000 +0100
+++ TeXmacs-1.0.6-src/plugins/maxima/lisp/texmacs-maxima-5.9.2.lisp 2006-04-20 20:29:36.000000000 +0200
@@ -5,7 +5,7 @@
(setf *alt-display2d* 'texmacs)
(setf *prompt-prefix* "channel:promptlatex:\\red ")
(setf *prompt-suffix* "\\black")
-(setf *general-display-prefix* "verbatim:")
+;(setf *general-display-prefix* "verbatim:")
(setf *maxima-prolog* "verbatim:")
(setf *maxima-epilog* "latex:\\red The end\\black")
#-gcl(setf *debug-io* (make-two-way-stream *standard-input* *standard-output*))
@@ -19,32 +19,6 @@
(format () "~A(~A~D) ~A" *prompt-prefix*
(tex-stripdollar $inchar) $linenum *prompt-suffix*))
-(defun retrieve (msg flag &aux (print? nil))
- (declare (special msg flag print?))
- (or (eq flag 'noprint) (setq print? t))
- (cond ((not print?)
- (setq print? t)
- (princ *prompt-prefix*)
- (princ *prompt-suffix*))
- ((null msg)
- (princ *prompt-prefix*)
- (princ *prompt-suffix*))
- ((atom msg)
- (format t "~a~a~a" *prompt-prefix* msg *prompt-suffix*)
- (mterpri))
- ((eq flag t)
- (princ *prompt-prefix*)
- (mapc #'princ (cdr msg))
- (princ *prompt-suffix*)
- (mterpri))
- (t
- (princ *prompt-prefix*)
- (displa msg)
- (princ *prompt-suffix*)
- (mterpri)))
- (let ((res (mread-noprompt *query-io* nil)))
- (princ *general-display-prefix*) res))
-
(declare-top
(special lop rop ccol $gcprint $inchar)
(*expr tex-lbp tex-rbp))
|
GitWeb
