archive/bin/copy-doc.lisp

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