share/minpack/minpack-lisp.system

   1 ;;;; -*- Mode: lisp -*-
   2
   3 ;;; System to convert the Fortran code to Lisp
   4
   5 (in-package #:cl-user)
   6 (require :f2cl)
   7
   8 (defparameter *minpack-root* (maxima::maxima-load-pathname-directory))
   9
  10 (mk:define-language :f2cl-lisp
  11     :compiler #'f2cl:f2cl
  12     :loader #'identity
  13     :source-extension "f"
  14     :binary-extension "lisp")
  15
  16
  17 (mk:defsystem minpack-lisp
  18     :source-pathname *minpack-root*
  19     :components
  20     ((:module "fortran"
  21               :source-extension "f"
  22               :binary-pathname "lisp"
  23               :language :f2cl-lisp
  24               :compiler-options (:include-comments t
  25                                  :keep-lisp-file t
  26                                  :relaxed-array-decls nil
  27                                  :array-type :array
  28                                  :array-slicing t
  29                                  :package :minpack)
  30               :components
  31               (
  32                (:file "dpmpar")
  33                (:file "enorm")
  34                (:file "fdjac1"
  35                       :depends-on ("dpmpar"))
  36                (:file "fdjac2"
  37                       :depends-on ("dpmpar"))
  38                (:file "qrsolv")
  39                (:file "lmpar"
  40                       :depends-on ("dpmpar" "enorm" "qrsolv"))
  41                (:file "qrfac"
  42                       :depends-on ("dpmpar" "enorm"))
  43                (:file "lmdif"
  44                       :depends-on ("dpmpar" "enorm" "fdjac2" "lmpar" "qrfac"))
  45                (:file "lmdif1"
  46                       :depends-on ("lmdif"))
  47                (:file "lmder"
  48                       :depends-on ("dpmpar" "enorm" "lmpar" "qrfac"))
  49                (:file "lmder1"
  50                       :depends-on ("lmder"))
  51                (:file "dogleg"
  52                       :depends-on ("dpmpar" "enorm"))
  53                (:file "qform")
  54                (:file "r1mpyq")
  55                (:file "r1updt"
  56                       :depends-on ("dpmpar"))
  57                (:file "hybrd"
  58                       :depends-on ("dogleg" "dpmpar" "enorm" "fdjac1"
  59                                             "qform" "qrfac" "r1mpyq" "r1updt"))
  60                (:file "hybrd1"
  61                       :depends-on ("hybrd"))
  62                (:file "hybrj"
  63                       :depends-on ("dogleg" "dpmpar" "enorm" "qform" "qrfac"
  64                                             "r1mpyq" "r1updt"))
  65                (:file "hybrj1"
  66                       :depends-on ("hybrj"))
  67                ))))