[9bdedb]: maxima-pre59 / bin / copy-doc.lisp  Maximize  Restore  History

Download this file

22 lines (14 with data), 1.2 kB

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
;;; -*- Mode: LISP -*-
;;Since file positioning may not work for your connection to
;;the unix host where the documentation was stored, you must
;;copy the documentation to lisp machine host.
;;Also the error files from the tests, will go to the directory where the
;;the rtest files are stored. Note there will probably be floating
;;point discrepancies in the rtest results.
(defvar *maxima-host* "rascal:/usr2/maxima/")
(loop for v in '("rtest1" "rtest2" "rtest3" "rtest4" "rtest5" "rtest6" "rtest6a" "rtest6b" "rtest7" "rtest8" "rtest9" "rtest9a" "rtest10" "rtest11" "rtest12" "rtest13" "rtest13s") do (copy-file
(format nil "~adoc/~a.mac" *maxima-host* v)
(format nil "maxima-documentation:maxima;~a.mac" v)))
(loop for v in '("macsym" "documentation") do (copy-file (format nil "~adoc/~a.doc" *maxima-host* v)
(format nil "maxima-documentation:maxima;~a.doc" v)))
;;for u in rest(["rtest1","rtest2","rtest3","rtest4","rtest5","rtest6","rtest6a","rtest6b","rtest7","rtest8","rtest9","rtest9a","rtest10","rtest11","rtest12","rtest13","rtest13s"], 0) do (print (["for test suite",u]),batch(concat("maxima-documentation:maxima;",u,".mac"),test));