archive/src/kcl-make.lisp

   1
   2 (in-package 'si)
   3
   4 (setq *files*
   5  (sloop:sloop for v in
   6    (sloop:sloop for v in (get :maxima :files) when (listp v)
   7                 append (unless (keywordp (car v)) v) else collect v)
   8        collect (string-downcase (string v))))
   9
  10 #+bad
  11 (progn
  12   (setq *unixport-directory* #"($PORTDIR)")
  13   (setq *lsp-directory* #"($LSPDIR)")
  14   (setq *cmpnew-directory* #"($CMPDIR)")
  15   (setq *h-directory* #"($HDIR)")
  16   (setq *o-directory* #"($ODIR)"))
  17 (setq *kcl-home-directory* #"../xkcl/")
  18 (setq *unixport-directory* #"../max/")
  19 (setq *lsp-directory* #"../xkcl/lsp/")
  20 (setq *cmpnew-directory* #"../xkcl/cmpnew/")
  21 (setq *h-directory* #"../xkcl/h/")
  22 (setq *o-directory* #"../xkcl/o/")
  23 (setq *files-directory* #"../max/")
  24
  25 (load "/usr/local/schelter/xkcl/unixport/defsystem.lsp")
  26
  27 (defkcl :system-name "maxima" :makefile "ymakefile")
  28
  29 ;(defun init-file ( library  &optional (dir  #"")
  30 ;                                 (stream *standard-output*))
  31 ;  (format stream
  32 ;         "     printf(\"Initializing ~A...  \");  fflush(stdout);~%"
  33 ;         library)
  34 ;  (format stream
  35 ;         "     fasl_data = read_fasl_data(\"~A\");~%"
  36 ;         (namestring
  37 ;          (merge-pathnames (change-file-type library
  38 ;                                             "o")
  39 ;                           dir)))
  40 ;  (format stream "     init_~A(NULL, 0, fasl_data);~%" library)
  41 ;  (format stream
  42 ;         "     printf(\"\\n\");  fflush(stdout);~%")
  43 ;  (format stream "~%"))
  44 ;
  45 ;
  46 ;(defun write-init (&optional (stream t) )
  47 ;  (format stream "#include \"include.h\"
  48 ;
  49 ;static object fasl_data;
  50 ;
  51 ;init_init()
  52 ;{
  53 ;       enter_mark_origin(&fasl_data);
  54 ;       fasl_data = Cnil; ~2%
  55 ;       load(\"../lsp/export.lsp\");")
  56 ;
  57 ;
  58 ;  (sloop for v in *object-files* do (init-file v *o-directory* stream))
  59 ;  (format stream "     load(\"~A\");~%"
  60 ;         (namestring (merge-pathnames "autoload.lsp" *lsp-directory*)))
  61 ;  (sloop for v in *lsp-object-files* do (init-file v *lsp-directory* stream))
  62 ;  (format stream "}~%~%")
  63 ;
  64 ;  (format stream "init_system()~%{~%")
  65 ;  (sloop for v in *all-libraries* do (init-file v *lsp-directory* stream))
  66 ;  (format stream
  67 ;         "~%   Vpackage->s.s_dbind = user_package;~%")
  68 ;  (format stream "}~%"))
  69
  70
  71
  72 ;(defun write-make (&optional (fi "ymakefile"))
  73 ;  (with-open-file
  74 ;   (st fi :direction :output)
  75 ;    (format st "MOBJS =")
  76 ;    (sloop for v in all
  77 ;          for i from 1
  78 ;          when (zerop v (mod i 3)) do (format st "\\~% ")
  79 ;          do (format st "($MDIR)/~A.o" (string-downcase (string v))))))
  80 ;
  81 ;(defun write-sys (&optional (fi "sys_max"))
  82 ; (format st "init_maxima(){~%"
  83 ; (sloop for v in all
  84 ;       do (setq v (string-downcase (string v)))
  85 ;       (format st
  86 ;               "       fasl_data = read_fasl_data(\"~A\");~%"
  87 ;               (namestring
  88 ;                (merge-pathnames (change-file-type st "o")
  89 ;                                *Maxima-directory*)))
  90 ;       (format stream "printf(\"Initializing ~a...  \");  fflush(stdout);~%    printf(\"\n\");  fflush(stdout);" v)
  91 ;       (format stream "        init_~A(NULL, 0, fasl_data);~%" library)
  92 ;       )
  93 ; (format st "}")
  94 ;))
  95
  96
  97
  98
  99