source: packages/fishpack.asd @ 534:31fc98e595c1

Last change on this file since 534:31fc98e595c1 was 534:31fc98e595c1, checked in by rtoy, 9 years ago

Initial revision.

File size: 1.4 KB
Line 
1;;; -*- Mode: lisp -*-
2;;;
3;;; This defsystem converts the FISHPACK Fortran routines
4;;; to Lisp and compiling the result.
5;;;
6
7(defpackage #:fishpack-asd
8  (:use :cl :asdf))
9
10(in-package :fishpack-asd)
11
12(defclass fortran-source-file (source-file) ())
13(defmethod source-file-type ((c fortran-source-file) (s module)) "f")
14
15(defmethod output-files ((o operation) (c fortran-source-file))
16  (list (make-pathname :name (component-name c)
17                       :type #+cmu "x86f" #-cmu "fasl"
18                       :defaults (component-pathname c))))
19
20(defmethod perform ((o compile-op) (c fortran-source-file))
21  (f2cl:f2cl-compile (make-pathname :name (component-name c)
22                                    :defaults (component-pathname c)) ))
23
24(defmethod perform ((o load-op) (c fortran-source-file))
25  (load (car (output-files o c))))
26
27(defsystem fishpack
28  :components
29 
30  ((:fortran-source-file "pimach")
31   (:fortran-source-file "merge")
32   (:fortran-source-file "cosgen"
33                         :depends-on ("pimach"))
34   (:fortran-source-file "genbun"
35                         :depends-on ("pimach" "poisd2" "poisp2" "poisn2"))
36   (:fortran-source-file "tri3")
37   (:fortran-source-file "trix")
38   (:fortran-source-file "hwscrt"
39                         :depends-on ("trix" "tri3" "pimach"))
40   (:fortran-source-file "poisd2"
41                         :depends-on ("cosgen" "trix" "merge"))
42   (:fortran-source-file "poisn2"
43                         :depends-on ("cosgen" "trix" "tri3" "merge"))
44   (:fortran-source-file "poisp2"
45                         :depends-on ("cosgen" "trix" "tri3" "merge"
46                                               "poisd2"))))
Note: See TracBrowser for help on using the repository browser.