src/packages.lisp

(defpackage :meta-model
  (:use :common-lisp :clsql)
  (:export
   :meta-model-class
   :meta-model.base-type
   :meta-model.instance
   :meta-model.metadata
   :def-meta-model
   :def-base-class
   :%def-base-class

   :def-view-class/table
   :def-view-class/meta
   :view-class-metadata
   :create-table-from-model
   :list-slots
   :list-slot-types
   :slot-type
   :display-slot
   :list-joins
   :list-join-attributes
   :list-keys
   :list-view-classes
   :display-slot
   :primary-key-p
   :list-foreign-keys
   :foreign-key-p
   :explode-foreign-key
   :find-join-class
   :find-join-key
   :find-default-value
   :explode-foreign-key
   :list-has-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-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)
  (:nicknames :lol)
  (:export
   ;;;; Mewa Exports
   :mewa ;the superclass of all mewa-presentations
   :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
   ))
Commit	Line	Data
	1	(defpackage :meta-model
	2	(:use :common-lisp :clsql)
	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
	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
	34	:list-many-to-many
	35	:sync-instance
	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
	46	:select-instances))
	47
	48
	49	(defpackage :mewa
	50	(:use :ucw :common-lisp)
	51	(:export
	52	:mewa
	53	:mewa-object-presentation
	54	:mewa-one-line-presentation
	55	:mewa-list-presentation
	56	:mewa-presentation-search
	57	:find-attribute
	58	:set-default-attributes
	59	:make-presentation
	60	:call-presentation
	61	:label
	62	:attributes
	63	:set-attribute
	64	:perform-set-attributes
	65	:perform-set-attribute-properties
	66	:find-class-attributes
	67	:default-attributes
	68	:ok
	69	:edit-instance
	70	:save-instance
	71	:cancel-save-instance
	72	:ensure-instance-sync
	73	:global-properties
	74	:search-expr
	75	:search-query))
	76
	77	(defpackage :lisp-on-lines
	78	(:use :mewa :meta-model :common-lisp :it.bese.ucw)
	79	(:nicknames :lol)
	80	(:export
	81	;;;; Mewa Exports
	82	:mewa ;the superclass of all mewa-presentations
	83	:make-presentation
	84
	85	;;attributes
	86	:attributes
	87	:set-default-attributes
	88	:set-attribute
	89	:find-attribute
	90	:perform-set-attributes
	91	;;
	92	:perform-set-attribute-properties
	93
	94	;; presentation objects
	95	:mewa-object-presentation
	96	:mewa-one-line-presentation
	97	:mewa-list-presentation
	98	;;;; Meta Model Exports))
	99	:def-view-class/table
	100	:def-view-class/meta
	101	:list-slot-types
	102	))