archive/src/repl.el

   1
   2
   3
   4 ;;First pass with string-delimited-search = string-search
   5 ;;and also to fix the package and syntax header. Do any
   6 ;;copyright changes.
   7 ;;
   8 (defvar *first-pass*
   9  '(("package: macsyma" . "mode: lisp; package: cl-maxima; syntax: common-lisp")
  10  ("package:macsyma" . "mode: lisp; package: cl-maxima; syntax: common-lisp")
  11  ("#//"  . "#\")))
  12
  13 ;;Second pass
  14 ;;evaluate the following in zetalisp syntax!!.
  15 (defvar *second-pass*
  16 '(
  17   ("#\;" .  "#. semi-colon-char")
  18   ("#\\" .  "#. back-slash-char")
  19   ("#\//" .  "#. forward-slash-char")
  20   ("#\/"" .  "#. double-quote-char")
  21   ("#\)" . "#. right-parentheses-char")
  22   ("#\(" . "#. left-parentheses-char")
  23   ("#\." . "#. period-char")
  24   ("#\|" .  "#. vertical-stroke-char")
  25   ("DELETE" . "zl-DELETE")
  26   ("EVERY"  . "ZL-EVERY") ;;actually all occurrences are now cl:every, there were no zl-every.
  27   ("MAKE-ARRAY" . "ZL-MAKE-ARRAY")
  28   ("MEMBER" . "zl-MEMBER")
  29   ("ASSOC" . "zl-ASSOC")
  30   ("LISTP" . "zl-LISTP")
  31   ("MAP" . "MAPL")
  32   ("MEMBER" . "zl-MEMBER")
  33   ("multiple-value" . "multiple-value-setq")
  34   ("NLISTP" . "zl-NLISTP")
  35   ("NINTERSECTION" . "zl-NINTERSECTION")
  36   ("NUNION" . "zl-NUNION")
  37   ("RASSOC" . "zl-RASSOC")
  38   ("REM" . "zl-REM")
  39   ("REMOVE" . "zl-REMOVE")
  40   ("SOME" . "zl-SOME")  ;;check were any  cl:some?
  41   ("UNION" . "zl-UNION")
  42   ("\" . "fixnum-remainder")
  43   ("\\" . "fixnum-gcd")
  44   ("//\" . "fixnum-remainder")
  45   ("typep" . "ml-typep")
  46   ( "terminal-io" .  "*terminal-io*")
  47   ( "standard-input" . "*standard-input*")
  48   ( "standard-output" . "*standard-output*")
  49   ( "query-io" . "*query-io*")
  50   ( "base" . "*print-base*")
  51   ( "ibase" . "*read-base*")
  52   ( "(*nopoint t)" . "print-radix*") ;;catch a few..
  53   ("CONSTANTP" . "MAXIMA-CONSTANTP")    ;;"CL-MAXIMA-SOURCE: MAXIMA; SIMP" ;different
  54   ("ERROR" . "MAXIMA-ERROR")            ;;"CL-MAXIMA-SOURCE: MAXIMA; COMMAC"
  55   ("FIND" . "MAXIMA-FIND")              ;;"CL-MAXIMA-SOURCE: MAXIMA; LMSUP" ;different
  56   ("float-precision" . "MAXIMA-float-precision") ;;"CL-MAXIMA-SOURCE: MAXIMA; cpoly" ;?
  57   ("INTEGERP" . "MAXIMA-INTEGERP")      ;;"CL-MAXIMA-SOURCE: MAXIMA; compar" ;different
  58   ("RATIONALIZE" . "MAXIMA-RATIONALIZE");;"CL-MAXIMA-SOURCE: MAXIMA; RAT3E" ;different
  59   ("RATIONALP" . "MAXIMA-RATIONALP")    ;;"CL-MAXIMA-SOURCE: MAXIMA; LAPLAC" ;different
  60   ("REDUCE" . "MAXIMA-REDUCE")          ;;"CL-MAXIMA-SOURCE: MAXIMA; trigi" ;different
  61   ("REM" . "MAXIMA-REM")                ;;"CL-MAXIMA-SOURCE: MAXIMA; MRGMAC" ;different
  62   ("REMF" . "MAXIMA-REMF")              ;;"CL-MAXIMA-SOURCE: MAXIMA; DB"  ;different
  63   ("SLEEP" . "MAXIMA-SLEEP")            ;;"CL-MAXIMA-SOURCE: MAXIMA; COMPAT"
  64   ("SUBSTITUTE" . "MAXIMA-SUBSTITUTE")  ;;"CL-MAXIMA-SOURCE: MAXIMA; COMM" ;different
  65   ("TYPECASE" . "MAXIMA-TYPECASE")      ;;"CL-MAXIMA-SOURCE: MAXIMA; COMMAC" ;remove old occur
  66   ))
  67
  68 (defvar *third-pass*
  69         '(("plist" . "symbol-plist")
  70           ))
  71
  72 ;;Additional changes:
  73 ;;"(declare"  .  "(top-level-declare"  ;;when char before is #\newline
  74
  75 (defun first-pass (file)
  76   (let ((*replace-comments* t) (*delimit-test* #'any-ok))
  77     (file-multiple-string-delimited-replace *first-pass* file)))
  78
  79 (defun second-pass (file)
  80     (file-multiple-string-delimited-replace *second-pass* file))
  81
  82
  83 ;;;;Explorer specific settings
  84 #+ti
  85 (setq  compiler:QC-FILE-CHECK-INDENTATION nil)
  86