share/cobyla/cobyla-lisp.system

   1 ;;;; -*- Mode: lisp -*-
   2
   3 ;;; System to convert the Fortran code to Lisp
   4 ;;;
   5 ;;; You need to have at least f2cl1.l rev 1.222 to be able to convert
   6 ;;; these files because previous versions of f2cl didn't handle
   7 ;;; IMPLICIT DOUBLE PRECISION.
   8 ;;;
   9 ;;; To convert the files, do this, from a running maxima:
  10 ;;;
  11 ;;; :lisp (load "share/cobyla/cobyla-lisp.system")
  12 ;;; :lisp (mk:oos "cobyla-lisp" :compile :force t)
  13 ;;;
  14 ;;; This will convert the Fortran files and place them share/cobyla/lisp.
  15 ;;;
  16
  17 (in-package #:cl-user)
  18 (require :f2cl)
  19
  20 (defparameter *cobyla-root* (maxima::maxima-load-pathname-directory))
  21
  22 (mk:define-language :f2cl-lisp
  23     :compiler #'f2cl:f2cl
  24     :loader #'identity
  25     :source-extension "f"
  26     :binary-extension "lisp")
  27
  28 (mk:defsystem cobyla-lisp
  29   :source-pathname *cobyla-root*
  30   :components
  31   ((:module fortran
  32             :source-extension "f"
  33             :binary-pathname "lisp"
  34             :language :f2cl-lisp
  35             :compile-only t
  36             :compiler-options (:include-comments t
  37                                :package :cobyla)
  38             :components
  39             ((:file "cobyla"
  40                     :depends-on ("cobylb"))
  41              (:file "cobylb"
  42                     :depends-on ("trstlp" "calcfc"))
  43              (:file "trstlp")
  44              ;; This file isn't really needed, but it's useful to
  45              ;; compile this up so that nice code is generated for
  46              ;; calling calcfc.
  47              (:file "calcfc")))))