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 | |
8e6e6b56 | 11 | |
579597e3 | 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 | |
292c806a | 34 | :list-many-to-many |
498061f6 | 35 | :sync-instance |
9d6c69fb DC |
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 | |
dbeb1708 | 46 | :select-instances)) |
579597e3 | 47 | |
6d063a77 | 48 | |
49 | (defpackage :mewa | |
50 | (:use :ucw :common-lisp) | |
498061f6 | 51 | (:export |
52 | :mewa | |
53 | :mewa-object-presentation | |
9d6c69fb | 54 | :mewa-one-line-presentation |
dbeb1708 | 55 | :mewa-list-presentation |
9d6c69fb | 56 | :mewa-presentation-search |
498061f6 | 57 | :find-attribute |
7c3aade7 | 58 | :set-default-attributes |
498061f6 | 59 | :make-presentation |
60 | :call-presentation | |
dbeb1708 DC |
61 | :label |
62 | :attributes | |
e8e743d7 | 63 | :set-attribute |
64 | :perform-set-attributes | |
dbeb1708 | 65 | :perform-set-attribute-properties |
498061f6 | 66 | :find-class-attributes |
67 | :default-attributes | |
68 | :ok | |
69 | :edit-instance | |
70 | :save-instance | |
71 | :cancel-save-instance | |
85281029 DC |
72 | :ensure-instance-sync |
73 | :global-properties | |
74 | :search-expr | |
75 | :search-query)) | |
6d063a77 | 76 | |
77 | (defpackage :lisp-on-lines | |
dbeb1708 | 78 | (:use :mewa :meta-model :common-lisp :it.bese.ucw) |
8e6e6b56 | 79 | (:nicknames :lol) |
dbeb1708 DC |
80 | (:export |
81 | ;;;; Mewa Exports | |
8e6e6b56 | 82 | :mewa ;the superclass of all mewa-presentations |
dbeb1708 DC |
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 | |
7c3aade7 | 100 | :def-view-class/meta |
8e6e6b56 DC |
101 | :list-slot-types |
102 | )) |