(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
+ :mewa-list-presentation
+ :mewa-presentation-search
+ :find-attribute
+ :set-default-leattributes
+ :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)
+ (: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))
\ No newline at end of file