(defpackage :meta-model
- (:use :common-lisp )
+ (:use :common-lisp :clsql)
(:export
:meta-model-class
:meta-model.base-type
:find-default-value
:explode-foreign-key
:list-has-many
- :list-many-to-many))
+ :list-many-to-many
+ :sync-instance
+ :explode-has-many
+ :expr-ends-with
+ :expr-starts-with
+ :expr-contains
+ :expr-=
+ :expr-<
+ :expr->
+ :expr-and
+ :expr-or
+ :expr-not
+ :select-instances))
(defpackage :mewa
(:use :ucw :common-lisp)
- (:export :mewa :mewa-object-presentation :mewa-one-line-presentation :find-attribute :set-default-attributes :make-presentation :call-presentation :label :set-attribute :find-class-attributes :default-attributes))
-
+ (:export
+ :mewa
+ :mewa-object-presentation
+ :mewa-one-line-presentation
+ :mewa-list-presentation
+ :mewa-presentation-search
+ :find-attribute
+ :set-default-attributes
+ :make-presentation
+ :call-presentation
+ :label
+ :attributes
+ :set-attribute
+ :perform-set-attributes
+ :perform-set-attribute-properties
+ :find-class-attributes
+ :default-attributes
+ :ok
+ :edit-instance
+ :save-instance
+ :cancel-save-instance
+ :ensure-instance-sync
+ :global-properties
+ :search-expr
+ :search-query))
(defpackage :lisp-on-lines
- (:use :mewa :meta-model :common-lisp :it.bese.ucw))
\ No newline at end of file
+ (:use :mewa :meta-model :common-lisp :it.bese.ucw)
+ (:export
+ ;;;; Mewa Exports
+ :make-presentation
+
+ ;;attributes
+ :attributes
+ :set-default-attributes
+ :set-attribute
+ :find-attribute
+ :perform-set-attributes
+ ;;
+ :perform-set-attribute-properties
+
+ ;; presentation objects
+ :mewa-object-presentation
+ :mewa-one-line-presentation
+ :mewa-list-presentation
+ ;;;; Meta Model Exports))
+ :def-view-class/table
+ :def-view-class/meta
+ :list-slot-types))
\ No newline at end of file