:def-meta-model
:def-base-class
:%def-base-class
+
:def-view-class/table
:def-view-class/meta
:view-class-metadata
:explode-foreign-key
:list-has-many
:list-many-to-many
- :sync-instance))
+ :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 :ok))
-
+ (: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
+ :instance-is-stored-p
+ :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)
+ (:nicknames :lol)
+ (:export
+ ;;;; LoL
+ :initialize-lol-for-table
+ :initialize-lol-for-database
+
+
+
+ ;;;; Mewa Exports
+ :mewa ;the superclass of all mewa-presentations
+ :make-presentation
+ :call-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
+
+ ;; CRUD
+ :instance-is-stored-p
+
+ ;;;; Meta Model Exports))
+ :def-view-class/table
+ :def-view-class/meta
+ :list-slot-types
+ ))
\ No newline at end of file