-
Notifications
You must be signed in to change notification settings - Fork 1
/
planning.asd
74 lines (67 loc) · 2.88 KB
/
planning.asd
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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Package: cl-user; Base: 10; Lowercase: Yes -*-
(in-package #:asdf)
(eval-when (:load-toplevel :execute)
(defparameter *planning-directory*
(make-pathname :host (pathname-host *load-truename*)
:device (pathname-device *load-truename*)
:directory (pathname-directory *load-truename*)))
(setf (logical-pathname-translations "PLANNING")
`(("**;*.*"
,(make-pathname
:host (pathname-host *planning-directory*)
:device (pathname-device *planning-directory*)
:directory (append (pathname-directory *planning-directory*)
(list :wild-inferiors))
:name :wild
:type :wild
))))
) ; end of eval-when
;;; (defmethod source-file-type ((c cl-source-file) (s module)) "cl")
(asdf:defsystem #:utils
:name "Utils"
:description "Utilities for Planning System"
:version "0.90"
:author "Peter Norvig & Paul Graham"
:maintainer "Seiji Koide <SeijiKoide@aol.com>"
:licence "Norvig's Licence Agreement, cf http://www.norvig.com/license.html."
:components ((:module "utils"
:components ((:file "callcc")
(:file "utilities")))))
(asdf:defsystem #:fol
:description "FOL subsystem for Planning System"
:version "0.90"
:author "Peter Norvig"
:maintainer "Seiji Koide <SeijiKoide@aol.com>"
:licence "Norvig's Licence Agreement, cf http://www.norvig.com/license.html."
:depends-on ("utils")
:components ((:module "fol"
:components ((:file "infix")
(:file "unify")
(:file "normal"
:depends-on ("infix" "unify" ))
(:file "fol"
:depends-on ("unify" "normal"))))))
(asdf:defsystem #:plan
:description "plan subsystem for Planning System"
:version "0.90"
:author "Seiji Koide"
:maintainer "Seiji Koide <SeijiKoide@aol.com>"
:licence "Norvig's Licence Agreement, cf http://www.norvig.com/license.html."
:depends-on ("fol")
:components ((:module "plan"
:components ((:file "statespace")
(:file "operator")
(:file "FrwdBkwd")
(:file "STRIPS")
(:file "planspace")
(:file "PSP")
(:file "STN")))))
(asdf:defsystem #:planning
:description "Planning System"
:version "0.90"
:author "Seiji Koide"
:maintainer "Seiji Koide <SeijiKoide@aol.com>"
:licence "Norvig's Licence Agreement, cf http://www.norvig.com/license.html."
:depends-on ("plan")
:components ((:file "RusselProblem")
(:file "Travel")))