hypergraph/modules.lisp at master · delaray/hypergraph · GitHub

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
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
(in-package :module-manager)

;;; ===========================================================================
;;;
;;; Author: Raymond de Lacaze
;;;
;;; This file defines the GRAPH module
;;;
;;; ===========================================================================

;;;----------------------------------------------------------------------------
;;; Graph Package
;;;----------------------------------------------------------------------------

(eval-when (eval compile load)
  (unless (find-package :hypergraph)
    (make-package "HYPERGRAPH"
		  :use '(#-SBCL :user #+SBCL :cl-user
			 :common-lisp
			 #-SBCL :clos
			 #-SBCL :excl)
		  :nicknames '(:graph))))


(define-root-directory '(:graph-root) *load-truename*)

;;;----------------------------------------------------------------------------
;;; Global Graph Pathname Related Variables
;;;----------------------------------------------------------------------------

(defparameter *GRAPH-DEVICE*
    (pathname-device *load-truename*))

;;;----------------------------------------------------------------------------

(defparameter *GRAPH-DIRECTORY*
   (pathname-directory *load-truename*))

;;;----------------------------------------------------------------------------

(defparameter *GRAPH-ROOT*
    (make-pathname :name nil :type nil
                   :directory  (pathname-directory *load-truename*)
                   :defaults  *load-truename*))


;;;----------------------------------------------------------------------------
;;; Graph
;;;----------------------------------------------------------------------------

(define-module :Graph
  (:directory :graph-root)
  (:requires  :utilities)
  (:files "Graph"
	  "Graph-Operations"
	  "Graph-Traversals"
	  "Graph-Test"))

;;;----------------------------------------------------------------------------
;;; Graph
;;;----------------------------------------------------------------------------

(define-module :Persistent-Graph
  (:directory :graph-root)
  (:requires :database :graph)
  (:files "Graph-Persistence-Postgres"))

;;;----------------------------------------------------------------------------
;;; Semantic-Net
;;;----------------------------------------------------------------------------

(define-module :Semantic-Net
  (:directory :graph-root)
  (:requires :graph)
  (:files "Semantic-Net"
	  "Semantic-Net-Relations"
	  "Semantic-Net-Tests"))

;;;----------------------------------------------------------------------------
;;; Graph-Graphics
;;;----------------------------------------------------------------------------

#+IGNORE
(define-module :Graph-Graphics
  (:directory :graph-root)
  (:requires :gom :graph)
  (:files "Graph-Graphics"))


;;;-------------------------------------------------------------------------
;;; End of File
;;;-------------------------------------------------------------------------