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 | |
45 | :select-instances | |
46 | )) | |
579597e3 | 47 | |
6d063a77 | 48 | |
49 | (defpackage :mewa | |
50 | (:use :ucw :common-lisp) | |
498061f6 | 51 | (:export |
52 | :mewa | |
53 | :mewa-object-presentation | |
9d6c69fb DC |
54 | :mewa-one-line-presentation |
55 | :mewa-presentation-search | |
498061f6 | 56 | :find-attribute |
57 | :set-default-attributes | |
58 | :make-presentation | |
59 | :call-presentation | |
60 | :label | |
61 | :set-attribute | |
62 | :find-class-attributes | |
63 | :default-attributes | |
64 | :ok | |
65 | :edit-instance | |
66 | :save-instance | |
67 | :cancel-save-instance | |
85281029 DC |
68 | :ensure-instance-sync |
69 | :global-properties | |
70 | :search-expr | |
71 | :search-query)) | |
6d063a77 | 72 | |
73 | (defpackage :lisp-on-lines | |
85281029 | 74 | (:use :mewa :meta-model :common-lisp :it.bese.ucw)) |