src/packages.lisp

   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    :instance-is-stored-p
  74    :global-properties
  75    :search-expr
  76    :search-query))
  77
  78 (defpackage :lisp-on-lines
  79   (:use :mewa :meta-model :common-lisp :it.bese.ucw)
  80   (:nicknames :lol)
  81   (:export
  82    ;;;; Mewa Exports
  83    :mewa ;the superclass of all mewa-presentations
  84    :make-presentation
  85
  86    ;;attributes
  87    :attributes
  88    :set-default-attributes
  89    :set-attribute
  90    :find-attribute
  91    :perform-set-attributes
  92    ;;
  93    :perform-set-attribute-properties
  94
  95    ;; presentation objects
  96    :mewa-object-presentation
  97    :mewa-one-line-presentation
  98    :mewa-list-presentation
  99
 100    ;; CRUD
 101    :instance-is-stored-p
 102
 103    ;;;; Meta Model Exports))
 104    :def-view-class/table
 105    :def-view-class/meta
 106    :list-slot-types
 107    ))