Commit 057c2425 authored by rtoy's avatar rtoy
Browse files

Initial revision.

parent 79879e82
;;; -*- Mode: lisp -*-
;;;
;;; This defsystem converts the FISHPACK Fortran routines
;;; to Lisp and compiling the result.
;;;
(defpackage #:fishpack-asd
(:use :cl :asdf))
(in-package :fishpack-asd)
(defclass fortran-source-file (source-file) ())
(defmethod source-file-type ((c fortran-source-file) (s module)) "f")
(defmethod output-files ((o operation) (c fortran-source-file))
(list (make-pathname :name (component-name c)
:type #+cmu "x86f" #-cmu "fasl"
:defaults (component-pathname c))))
(defmethod perform ((o compile-op) (c fortran-source-file))
(f2cl:f2cl-compile (make-pathname :name (component-name c)
:defaults (component-pathname c)) ))
(defmethod perform ((o load-op) (c fortran-source-file))
(load (car (output-files o c))))
(defsystem fishpack
:components
((:fortran-source-file "pimach")
(:fortran-source-file "merge")
(:fortran-source-file "cosgen"
:depends-on ("pimach"))
(:fortran-source-file "genbun"
:depends-on ("pimach" "poisd2" "poisp2" "poisn2"))
(:fortran-source-file "tri3")
(:fortran-source-file "trix")
(:fortran-source-file "hwscrt"
:depends-on ("trix" "tri3" "pimach"))
(:fortran-source-file "poisd2"
:depends-on ("cosgen" "trix" "merge"))
(:fortran-source-file "poisn2"
:depends-on ("cosgen" "trix" "tri3" "merge"))
(:fortran-source-file "poisp2"
:depends-on ("cosgen" "trix" "tri3" "merge"
"poisd2"))))
;;; -*- Mode: lisp -*-
;;;
;;; This defsystem converts the FISHPACK Fortran routines
;;; to Lisp and compiling the result.
;;;
(mk:define-language :f2cl
:compiler #'f2cl:f2cl-compile
:source-extension "f")
(mk:defsystem fishpack
:source-pathname (translate-logical-pathname
"clocc:src;f2cl;packages;fishpack;")
:source-extension "f"
:language :f2cl
:components
((:file "pimach")
(:file "merge")
(:file "cosgen"
:depends-on ("pimach"))
(:file "genbun"
:depends-on ("pimach" "poisd2" "poisp2" "poisn2"))
(:file "tri3")
(:file "trix")
(:file "hwscrt"
:depends-on ("trix" "tri3" "pimach"))
(:file "poisd2"
:depends-on ("cosgen" "trix" "merge"))
(:file "poisn2"
:depends-on ("cosgen" "trix" "tri3" "merge"))
(:file "poisp2"
:depends-on ("cosgen" "trix" "tri3" "merge"
"poisd2"))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment