fixes for ucw+interpreter
[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 :instance-is-stored-p
74 :global-properties
75 :search-expr
76 :search-query))
77
78 (defpackage :lisp-on-lines
79 (:use :mewa :meta-model :common-lisp :it.bese.ucw)
80 (:nicknames :lol)
81 (:export
82 ;;;; LoL
83 :initialize-lol-for-table
84 :initialize-lol-for-database
85
86
87
88 ;;;; Mewa Exports
89 :mewa ;the superclass of all mewa-presentations
90 :make-presentation
91 :call-presentation
92 ;;attributes
93 :attributes
94 :set-default-attributes
95 :set-attribute
96 :find-attribute
97 :perform-set-attributes
98 ;;
99 :perform-set-attribute-properties
100
101 ;; presentation objects
102 :mewa-object-presentation
103 :mewa-one-line-presentation
104 :mewa-list-presentation
105
106 ;; CRUD
107 :instance-is-stored-p
108
109 ;;;; Meta Model Exports))
110 :def-view-class/table
111 :def-view-class/meta
112 :list-slot-types
113 ))