Commit | Line | Data |
---|---|---|
579597e3 | 1 | (defpackage :meta-model |
292c806a | 2 | (:use :common-lisp :clsql) |
579597e3 | 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 | :def-view-class/table | |
12 | :def-view-class/meta | |
13 | :view-class-metadata | |
14 | :create-table-from-model | |
15 | :list-slots | |
16 | :list-slot-types | |
17 | :slot-type | |
18 | :display-slot | |
19 | :list-joins | |
20 | :list-join-attributes | |
21 | :list-keys | |
22 | :list-view-classes | |
23 | :display-slot | |
24 | :primary-key-p | |
25 | :list-foreign-keys | |
26 | :foreign-key-p | |
27 | :explode-foreign-key | |
28 | :find-join-class | |
29 | :find-join-key | |
30 | :find-default-value | |
31 | :explode-foreign-key | |
32 | :list-has-many | |
292c806a | 33 | :list-many-to-many |
498061f6 | 34 | :sync-instance |
9d6c69fb DC |
35 | :explode-has-many |
36 | :expr-ends-with | |
37 | :expr-starts-with | |
38 | :expr-contains | |
39 | :expr-= | |
40 | :expr-< | |
41 | :expr-> | |
42 | :expr-and | |
43 | :expr-or | |
44 | :expr-not | |
dbeb1708 | 45 | :select-instances)) |
579597e3 | 46 | |
6d063a77 | 47 | |
48 | (defpackage :mewa | |
49 | (:use :ucw :common-lisp) | |
498061f6 | 50 | (:export |
51 | :mewa | |
52 | :mewa-object-presentation | |
9d6c69fb | 53 | :mewa-one-line-presentation |
dbeb1708 | 54 | :mewa-list-presentation |
9d6c69fb | 55 | :mewa-presentation-search |
498061f6 | 56 | :find-attribute |
7c3aade7 | 57 | :set-default-attributes |
498061f6 | 58 | :make-presentation |
59 | :call-presentation | |
dbeb1708 DC |
60 | :label |
61 | :attributes | |
e8e743d7 | 62 | :set-attribute |
63 | :perform-set-attributes | |
dbeb1708 | 64 | :perform-set-attribute-properties |
498061f6 | 65 | :find-class-attributes |
66 | :default-attributes | |
67 | :ok | |
68 | :edit-instance | |
69 | :save-instance | |
70 | :cancel-save-instance | |
85281029 DC |
71 | :ensure-instance-sync |
72 | :global-properties | |
73 | :search-expr | |
74 | :search-query)) | |
6d063a77 | 75 | |
76 | (defpackage :lisp-on-lines | |
dbeb1708 DC |
77 | (:use :mewa :meta-model :common-lisp :it.bese.ucw) |
78 | (:export | |
79 | ;;;; Mewa Exports | |
80 | :make-presentation | |
81 | ||
82 | ;;attributes | |
83 | :attributes | |
84 | :set-default-attributes | |
85 | :set-attribute | |
86 | :find-attribute | |
87 | :perform-set-attributes | |
88 | ;; | |
89 | :perform-set-attribute-properties | |
90 | ||
91 | ;; presentation objects | |
92 | :mewa-object-presentation | |
93 | :mewa-one-line-presentation | |
94 | :mewa-list-presentation | |
95 | ;;;; Meta Model Exports)) | |
96 | :def-view-class/table | |
7c3aade7 DC |
97 | :def-view-class/meta |
98 | :list-slot-types)) |