File: lbfgs-lisp.system

package info (click to toggle)
maxima 5.42.1-1
  • links: PTS
  • area: main
  • in suites: buster
  • size: 150,192 kB
  • sloc: lisp: 382,565; fortran: 14,666; perl: 14,365; tcl: 11,123; sh: 4,622; makefile: 2,688; ansic: 444; xml: 23; awk: 17; sed: 17
file content (35 lines) | stat: -rw-r--r-- 773 bytes parent folder | download | duplicates (13) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
;;; -*- Mode: lisp; Package: CL-USER -*-

;;; System to convert the Fortran code to Lisp
;;;
;;; To regenerate the Lisp code, just do
;;;
;;; (mk:oos "lbfgs-lisp" :compile :force t)
;;;
;;; in this directory.

(in-package #:cl-user)
(require :f2cl)

(mk:define-language :f2cl-lisp
    :compiler #'f2cl:f2cl
    :loader #'identity
    :source-extension "f"
    :binary-extension "lisp")

(mk:defsystem lbfgs-lisp
  :source-extension "f"
  :language :f2cl-lisp
  :components
  ((:file "lbfgs-daxpy")
   (:file "lbfgs-ddot")
   (:file "lb1"
	  :depends-on ("lb2"))
   (:file "lb2"
	  :compiler-options (:declare-common t))
   (:file "lbfgs"
	  :depends-on ("mcsrch" "lb2" "lbfgs-ddot" "lbfgs-daxpy"))
   (:file "mcsrch"
	  :depends-on ("mcstep" "lb2"))
   (:file "mcstep")))