lots of great changes to update along with maxwell 0.8
[clinton/lisp-on-lines.git] / src / packages.lisp
1 (defpackage :meta-model
2 (:use :common-lisp :clsql)
3 (:export
4 :meta-model-class
5 :meta-model.base-type
6 :meta-model.instance
7 :meta-model.metadata
8 :def-meta-model
9 :def-base-class
10 :%def-base-class
11
12 :def-view-class/table
13 :def-view-class/meta
14 :view-class-metadata
15 :create-table-from-model
16 :list-slots
17 :list-slot-types
18 :slot-type
19 :display-slot
20 :list-joins
21 :list-join-attributes
22 :list-keys
23 :list-view-classes
24 :display-slot
25 :primary-key-p
26 :list-foreign-keys
27 :foreign-key-p
28 :explode-foreign-key
29 :find-join-class
30 :find-join-key
31 :find-default-value
32 :explode-foreign-key
33 :list-has-many
34 :list-many-to-many
35 :sync-instance
36 :explode-has-many
37 :expr-ends-with
38 :expr-starts-with
39 :expr-contains
40 :expr-=
41 :expr-<
42 :expr->
43 :expr-and
44 :expr-or
45 :expr-not
46 :select-instances))
47
48
49 (defpackage :mewa
50 (:use :ucw :common-lisp)
51 (:export
52 :mewa
53 :mewa-object-presentation
54 :mewa-one-line-presentation
55 :mewa-list-presentation
56 :mewa-presentation-search
57 :find-attribute
58 :set-default-attributes
59 :make-presentation
60 :call-presentation
61 :label
62 :attributes
63 :set-attribute
64 :perform-set-attributes
65 :perform-set-attribute-properties
66 :find-class-attributes
67 :default-attributes
68 :ok
69 :edit-instance
70 :save-instance
71 :cancel-save-instance
72 :ensure-instance-sync
73 :global-properties
74 :search-expr
75 :search-query))
76
77 (defpackage :lisp-on-lines
78 (:use :mewa :meta-model :common-lisp :it.bese.ucw)
79 (:nicknames :lol)
80 (:export
81 ;;;; Mewa Exports
82 :mewa ;the superclass of all mewa-presentations
83 :make-presentation
84
85 ;;attributes
86 :attributes
87 :set-default-attributes
88 :set-attribute
89 :find-attribute
90 :perform-set-attributes
91 ;;
92 :perform-set-attribute-properties
93
94 ;; presentation objects
95 :mewa-object-presentation
96 :mewa-one-line-presentation
97 :mewa-list-presentation
98 ;;;; Meta Model Exports))
99 :def-view-class/table
100 :def-view-class/meta
101 :list-slot-types
102 ))