xotcl.wu-wien.ac.at
Begin main content
Methods: Source: Variables:
[All Methods | Documented Methods | Hide Methods] [Display Source | Hide Source] [Show Variables | Hide Variables]

::xo::db::Class[i] ::xo::db::sql::acs_object_type

Class Hierarchy of ::xo::db::sql::acs_object_type

  • ::xotcl::Object[i]
    Meta-class:
    ::xotcl::Class[i]
    Methods for instances:
    __api_make_doc, __api_make_forward_doc, __timediff, abstract, ad_doc, ad_forward, ad_proc, appendC, arrayC, asHTML, autonameC, check, classC, cleanupC, configureC, containsC, copyC, db_0or1rowC, db_1rowC, debug, defaultmethodC, destroyC, destroy_on_cleanup, ds, evalC, existsC, extractConfigureArg, filterC, filterguardC, filtersearch, forward, hasclass, incrC, infoC, init, instvarC, invarC, isclass, ismetaclass, ismixin, isobject, istype, lappendC, log, method, mixinC, mixinguardC, moveC, msg, noinitC, objectparameter, parametercmdC, proc, procsearch, qn, requireNamespaceC, residualargsC, self, serialize, setC, set_instance_vars_defaults, show-object, substC, traceC, unknown, unsetC, uplevelC, upvarC, volatileC, vwait
    Methods to be applied on the class (in addition to the methods provided by the meta-class):
    getExitHandler, setExitHandler, unsetExitHandler

Class Relations

  • superclass: ::xotcl::Object[i]
::xo::db::Class create ::xo::db::sql::acs_object_type \
     -superclass ::xotcl::Object

Methods

  • proc create_type (public)

    ::xo::db::sql::acs_object_type[i] create_type [ -dbn dbn ] \
        -object_type object_type  -pretty_name pretty_name  \
        -pretty_plural pretty_plural  -supertype supertype  \
        [ -table_name table_name ] [ -id_column id_column ] \
        [ -package_name package_name ] [ -abstract_p abstract_p ] \
        [ -type_extension_table type_extension_table ] \
        [ -name_method name_method ]
    Automatically generated method

    Switches:
    -dbn (optional)
    -object_type (required)
    -pretty_name (required)
    -pretty_plural (required)
    -supertype (required)
    -table_name (optional)
    -id_column (optional)
    -package_name (optional)
    -abstract_p (defaults to "f") (optional)
    -type_extension_table (optional)
    -name_method (optional)
    ::247789 proc create_type {{-dbn {}} -object_type:required -pretty_name:required -pretty_plural:required -supertype:required -table_name -id_column -package_name {-abstract_p f} -type_extension_table -name_method} {
            #function_args: {OBJECT_TYPE {}} {PRETTY_NAME {}} {PRETTY_PLURAL {}} {SUPERTYPE {}} {TABLE_NAME null} {ID_COLUMN null} {PACKAGE_NAME null} {ABSTRACT_P f} {TYPE_EXTENSION_TABLE null} {NAME_METHOD null}
            foreach var [list OBJECT_TYPE PRETTY_NAME PRETTY_PLURAL SUPERTYPE TABLE_NAME ID_COLUMN PACKAGE_NAME ABSTRACT_P TYPE_EXTENSION_TABLE NAME_METHOD]  {
              set varname [string tolower $var]
              if {[info exists $varname]} {
                set $var [set $varname]
                set _$var :$var
              } else {
                set _$var null
              }
            }
            set sql "
            select acs_object_type__create_type($_OBJECT_TYPE, $_PRETTY_NAME, $_PRETTY_PLURAL, $_SUPERTYPE, $_TABLE_NAME, $_ID_COLUMN, $_PACKAGE_NAME, $_ABSTRACT_P, $_TYPE_EXTENSION_TABLE, $_NAME_METHOD)
          "
            db_with_handle -dbn $dbn db {
              #ns_log notice "--sql=$sql"
              return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
            }
          }
    
  • proc drop_type (public)

    ::xo::db::sql::acs_object_type[i] drop_type [ -dbn dbn ] \
        -object_type object_type  [ -cascade_p cascade_p ]
    Automatically generated method

    Switches:
    -dbn (optional)
    -object_type (required)
    -cascade_p (defaults to "f") (optional)
    ::247789 proc drop_type {{-dbn {}} -object_type:required {-cascade_p f}} {
            #function_args: {OBJECT_TYPE {}} {CASCADE_P f}
            foreach var [list OBJECT_TYPE CASCADE_P]  {
              set varname [string tolower $var]
              if {[info exists $varname]} {
                set $var [set $varname]
                set _$var :$var
              } else {
                set _$var null
              }
            }
            set sql "
            select acs_object_type__drop_type($_OBJECT_TYPE, $_CASCADE_P)
          "
            db_with_handle -dbn $dbn db {
              #ns_log notice "--sql=$sql"
              return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
            }
          }
    
  • proc is_subtype_p (public)

    ::xo::db::sql::acs_object_type[i] is_subtype_p [ -dbn dbn ] \
        -object_type_1 object_type_1  -object_type_2 object_type_2 
    Automatically generated method

    Switches:
    -dbn (optional)
    -object_type_1 (required)
    -object_type_2 (required)
    ::247789 proc is_subtype_p {{-dbn {}} -object_type_1:required -object_type_2:required} {
            #function_args: {OBJECT_TYPE_1 {}} {OBJECT_TYPE_2 {}}
            foreach var [list OBJECT_TYPE_1 OBJECT_TYPE_2]  {
              set varname [string tolower $var]
              if {[info exists $varname]} {
                set $var [set $varname]
                set _$var :$var
              } else {
                set _$var null
              }
            }
            set sql "
            select acs_object_type__is_subtype_p($_OBJECT_TYPE_1, $_OBJECT_TYPE_2)
          "
            db_with_handle -dbn $dbn db {
              #ns_log notice "--sql=$sql"
              return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
            }
          }
    
  • proc pretty_name (public)

    ::xo::db::sql::acs_object_type[i] pretty_name [ -dbn dbn ] \
        -object_type object_type 
    Automatically generated method

    Switches:
    -dbn (optional)
    -object_type (required)
    ::247789 proc pretty_name {{-dbn {}} -object_type:required} {
            #function_args: {OBJECT_TYPE {}}
            foreach var [list OBJECT_TYPE]  {
              set varname [string tolower $var]
              if {[info exists $varname]} {
                set $var [set $varname]
                set _$var :$var
              } else {
                set _$var null
              }
            }
            set sql "
            select acs_object_type__pretty_name($_OBJECT_TYPE)
          "
            db_with_handle -dbn $dbn db {
              #ns_log notice "--sql=$sql"
              return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
            }
          }
    

Methods: Source: Variables:
[All Methods | Documented Methods | Hide Methods] [Display Source | Hide Source] [Show Variables | Hide Variables]