/[cl-sbml]/cl-sbml/cl-sbml.asd
ViewVC logotype

Contents of /cl-sbml/cl-sbml.asd

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (show annotations)
Fri Feb 1 11:33:08 2013 UTC (14 months, 2 weeks ago) by mantoniotti
Branch: MAIN
CVS Tags: HEAD
.asd file added.
1 ;;; -*- Mode: Lisp -*-
2
3 ;;; cl-sbml.asd
4
5 ;;; *_cl-xml-load-file* --
6 ;;; Change this variable to accomodate the location of CL-XML.
7 ;;; If you already have CL-XML loaded in your image, this is optional.
8
9 (defparameter *_cl-xml-load-file*
10 (merge-pathnames (make-pathname :directory '(:relative "lang" "cl" "cl-xml" "code")
11 :name "load"
12 :type "lisp")
13 (user-homedir-pathname)))
14
15
16 (eval-when (:load-toplevel :execute)
17 (unless (find-package "XML-PARSER")
18 (loop while (not (and *_cl-xml-load-file* (probe-file *_cl-xml-load-file*))) do
19 (cerror "Enter the pathanme of CL-XML load file. Use either a string or a pathname."
20 "Cannot find the ~S file.~@
21 CL-XML is not available and therefore the system cannot~@
22 be setup."
23 *_cl-xml-load-file*)
24 (format t "> ")
25 (setf *_cl-xml-load-file*
26 (ignore-errors (pathname (read))))
27 (fresh-line)
28 )
29 (load *_cl-xml-load-file*)))
30
31
32 ;;;; ADD HERE ASDF DIRECTORIES INFO.
33
34
35 ;;; CL-SBML asdf system definition.
36
37 (asdf:defsystem "CL-SBML"
38 :components ((:module "base"
39 :components ("cl-sbml-package"
40 "sid"
41 "sbml-base"
42 "sbml-element"
43 "model"
44 "sbml"
45 "unit"
46 "unit-definition"
47 "unit-kind"
48 "compartment"
49 "event"
50 "event-assignment"
51 "function-definition"
52 "kinetic-law"
53 "species"
54 "parameter"
55 "reaction"
56 "stoichiometry-math"
57 "simple-species-reference"
58 (:file "modifier-species-reference"
59 :depends-on ("simple-species-reference"))
60 (:file "species-reference"
61 :depends-on ("simple-species-reference"))
62
63
64 "rule"
65 "algebraic-rule"
66 "rate-rule"
67 "assignment-rule"
68
69
70 "sbml-loader"
71 "build-model"
72 "sbml-writer"
73 ))
74 #| #+lispworks
75 (:module "gui"
76 :components ("cl-sbml-interface")
77 :depends-on ("base"))
78 |#
79 )
80 :depends-on ("cl-xml-ext" "cl-mathml"))
81
82
83 (eval-when (:load-toplevel :execute)
84 (format t "~&;;; Setting the CL-SBML LP Translation.~%")
85 (setf (logical-pathname-translations "CL-SBML")
86 `(("*.*" ,(make-pathname :name :wild
87 :type :wild
88 :defaults *load-pathname*))
89 ("**;*.*" ,(make-pathname :name :wild
90 :type :wild
91 :directory (append (or (pathname-directory *load-pathname*)
92 (list :relative) ; This :RELATIVE may not be right.
93 )
94 (list :wild-inferiors))
95 :defaults *load-pathname*))
96 )))
97
98
99
100 ;;; end of file -- cl-sbml.asd --

  ViewVC Help
Powered by ViewVC 1.1.5