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 | 72 | :ensure-instance-sync |
569ad9e6 | 73 | :instance-is-stored-p |
85281029 DC |
74 | :global-properties |
75 | :search-expr | |
76 | :search-query)) | |
6d063a77 | 77 | |
78 | (defpackage :lisp-on-lines | |
dbeb1708 | 79 | (:use :mewa :meta-model :common-lisp :it.bese.ucw) |
8e6e6b56 | 80 | (:nicknames :lol) |
dbeb1708 | 81 | (:export |
68a53dce DC |
82 | ;;;; LoL |
83 | :initialize-lol-for-table | |
84 | :initialize-lol-for-database | |
85 | ||
86 | ||
87 | ||
dbeb1708 | 88 | ;;;; Mewa Exports |
8e6e6b56 | 89 | :mewa ;the superclass of all mewa-presentations |
dbeb1708 | 90 | :make-presentation |
68a53dce | 91 | :call-presentation |
dbeb1708 DC |
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 | |
569ad9e6 DC |
105 | |
106 | ;; CRUD | |
107 | :instance-is-stored-p | |
108 | ||
dbeb1708 DC |
109 | ;;;; Meta Model Exports)) |
110 | :def-view-class/table | |
7c3aade7 | 111 | :def-view-class/meta |
8e6e6b56 DC |
112 | :list-slot-types |
113 | )) |