X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;ds=sidebyside;f=sql%2Fgenerics.lisp;h=a8de765681f9521c8f8b5e0329c23ca1903f3440;hb=cff8a2497b3f111a43d819476b55bfad2b447532;hp=eabb8e5336f1fb07b745ca3271d59c1b6a1d373f;hpb=42cc1228e98bd1333c0f67c944f3aa0e07ba248f;p=clsql.git diff --git a/sql/generics.lisp b/sql/generics.lisp index eabb8e5..a8de765 100644 --- a/sql/generics.lisp +++ b/sql/generics.lisp @@ -24,4 +24,34 @@ (defgeneric output-sql-hash-key (arg database) ) +(defgeneric collect-table-refs (sql) + ) +(defgeneric database-output-sql (arg database) + ) +(defgeneric database-constraint-description (constraint database) + ) +(defgeneric database-pkey-constraint (class database) + ) +(defgeneric database-constraint-statement (constraints database) + ) +(defgeneric %install-class (class database) + ) +(defgeneric database-generate-column-definition (class slotdef database) + ) +(defgeneric update-slot-from-db (instance slotdef val) + ) +(defgeneric key-value-from-db (slotdef value database) + ) +(defgeneric get-slot-values-from-view (obj slotdeflist values) + ) +(defgeneric database-output-sql-as-type (type val database) + ) +(defgeneric read-sql-value (val type database) + ) +(defgeneric postinitialize (object) + ) +(defgeneric add-to-relation (target slot-name value) + ) +(defgeneric remove-from-relation (target slot-name value) + )