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

::xo::db::Class ::xo::db::sql::acs_rel_type

Class Hierarchy of ::xo::db::sql::acs_rel_type
::xotcl::Object
Meta-class:

::xotcl::Class

Methods for instances:

__api_make_doc, __api_make_forward_doc, __timediff, abstract, ad_doc, ad_forward, ad_proc, append^C, array^C, asHTML, autoname^C, check, class^C, cleanup^C, configure^C, contains^C, copy^C, db_0or1row^C, db_1row^C, debug, defaultmethod^C, destroy^C, destroy_on_cleanup, dot_append_method, dotclass, dotcode, dotquote, dotquotel, ds, eval^C, exists^C, extractConfigureArg, filter^C, filterguard^C, filtersearch, forward, hasclass, incr^C, info^C, init, instvar^C, invar^C, isclass, ismetaclass, ismixin, isobject, istype, lappend^C, log, method, mixin^C, mixinguard^C, move^C, msg, noinit^C, objectparameter, parametercmd^C, proc, procsearch, qn, requireNamespace^C, residualargs^C, self, serialize, set^C, set_instance_vars_defaults, show-object, subst^C, trace^C, unknown, unset^C, uplevel^C, upvar^C, volatile^C, vwait
Methods to be applied on the class (in addition to the methods provided by the meta-class):

getExitHandler, setExitHandler, unsetExitHandler
::xo::db::sql::acs_rel_type
Meta-class:

::xo::db::Class

Methods to be applied on the class (in addition to the methods provided by the meta-class):

create_role, create_type, drop_role, drop_type, role_pretty_name, role_pretty_plural
Class Relations

superclass: ::xotcl::Object

::xo::db::Class create ::xo::db::sql::acs_rel_type \
     -superclass ::xotcl::Object

Methods

proc create_role (public)

::xo::db::sql::acs_rel_type create_role [ -dbn dbn ] -role role  \
    [ -pretty_name pretty_name ] [ -pretty_plural pretty_plural ]

Automatically generated method

Switches:

-dbn (optional)
-role (required)
-pretty_name (optional)
-pretty_plural (optional)

::329656 proc create_role {{-dbn {}} -role:required -pretty_name -pretty_plural} {
        #function_args: {ROLE {}} {PRETTY_NAME null} {PRETTY_PLURAL null}
        foreach var [list ROLE PRETTY_NAME PRETTY_PLURAL]  {
          set varname [string tolower $var]
          if {[info exists $varname]} {
            set $var [set $varname]
            set _$var :$var
          } else {
            set _$var null
          }
        }
        set sql "
        select acs_rel_type__create_role($_ROLE, $_PRETTY_NAME, $_PRETTY_PLURAL)
      "
        db_with_handle -dbn $dbn db {
          #ns_log notice "--sql=$sql"
          return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
        }
      }

proc create_type (public)

::xo::db::sql::acs_rel_type create_type [ -dbn dbn ] \
    -rel_type rel_type  -pretty_name pretty_name  \
    -pretty_plural pretty_plural  [ -supertype supertype ] \
    -table_name table_name  -id_column id_column  \
    -package_name package_name  -object_type_one object_type_one  \
    [ -role_one role_one ] -min_n_rels_one min_n_rels_one  \
    -max_n_rels_one max_n_rels_one  -object_type_two object_type_two  \
    [ -role_two role_two ] -min_n_rels_two min_n_rels_two  \
    -max_n_rels_two max_n_rels_two

Automatically generated method

Switches:

-dbn (optional)
-rel_type (required)
-pretty_name (required)
-pretty_plural (required)
-supertype (defaults to "relationship") (optional)
-table_name (required)
-id_column (required)
-package_name (required)
-object_type_one (required)
-role_one (optional)
-min_n_rels_one (required)
-max_n_rels_one (required)
-object_type_two (required)
-role_two (optional)
-min_n_rels_two (required)
-max_n_rels_two (required)

::329656 proc create_type {{-dbn {}} -rel_type:required -pretty_name:required -pretty_plural:required {-supertype relationship} -table_name:required -id_column:required -package_name:required -object_type_one:required -role_one -min_n_rels_one:required -max_n_rels_one:required -object_type_two:required -role_two -min_n_rels_two:required -max_n_rels_two:required} {
        #function_args: {REL_TYPE {}} {PRETTY_NAME {}} {PRETTY_PLURAL {}} {SUPERTYPE relationship} {TABLE_NAME {}} {ID_COLUMN {}} {PACKAGE_NAME {}} {OBJECT_TYPE_ONE {}} {ROLE_ONE null} {MIN_N_RELS_ONE {}} {MAX_N_RELS_ONE {}} {OBJECT_TYPE_TWO {}} {ROLE_TWO null} {MIN_N_RELS_TWO {}} {MAX_N_RELS_TWO {}}
        foreach var [list REL_TYPE PRETTY_NAME PRETTY_PLURAL SUPERTYPE TABLE_NAME ID_COLUMN PACKAGE_NAME OBJECT_TYPE_ONE ROLE_ONE MIN_N_RELS_ONE MAX_N_RELS_ONE OBJECT_TYPE_TWO ROLE_TWO MIN_N_RELS_TWO MAX_N_RELS_TWO]  {
          set varname [string tolower $var]
          if {[info exists $varname]} {
            set $var [set $varname]
            set _$var :$var
          } else {
            set _$var null
          }
        }
        set sql "
        select acs_rel_type__create_type($_REL_TYPE, $_PRETTY_NAME, $_PRETTY_PLURAL, $_SUPERTYPE, $_TABLE_NAME, $_ID_COLUMN, $_PACKAGE_NAME, $_OBJECT_TYPE_ONE, $_ROLE_ONE, $_MIN_N_RELS_ONE, $_MAX_N_RELS_ONE, $_OBJECT_TYPE_TWO, $_ROLE_TWO, $_MIN_N_RELS_TWO, $_MAX_N_RELS_TWO)
      "
        db_with_handle -dbn $dbn db {
          #ns_log notice "--sql=$sql"
          return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
        }
      }

proc drop_role (public)

::xo::db::sql::acs_rel_type drop_role [ -dbn dbn ] -role role

Automatically generated method

Switches:

-dbn (optional)
-role (required)

::329656 proc drop_role {{-dbn {}} -role:required} {
        #function_args: {ROLE {}}
        foreach var [list ROLE]  {
          set varname [string tolower $var]
          if {[info exists $varname]} {
            set $var [set $varname]
            set _$var :$var
          } else {
            set _$var null
          }
        }
        set sql "
        select acs_rel_type__drop_role($_ROLE)
      "
        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_rel_type drop_type [ -dbn dbn ] -rel_type rel_type  \
    [ -cascade_p cascade_p ]

Automatically generated method

Switches:

-dbn (optional)
-rel_type (required)
-cascade_p (defaults to "f") (optional)

::329656 proc drop_type {{-dbn {}} -rel_type:required {-cascade_p f}} {
        #function_args: {REL_TYPE {}} {CASCADE_P f}
        foreach var [list REL_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_rel_type__drop_type($_REL_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 role_pretty_name (public)

::xo::db::sql::acs_rel_type role_pretty_name [ -dbn dbn ] -role role

Automatically generated method

Switches:

-dbn (optional)
-role (required)

::329656 proc role_pretty_name {{-dbn {}} -role:required} {
        #function_args: {ROLE {}}
        foreach var [list ROLE]  {
          set varname [string tolower $var]
          if {[info exists $varname]} {
            set $var [set $varname]
            set _$var :$var
          } else {
            set _$var null
          }
        }
        set sql "
        select acs_rel_type__role_pretty_name($_ROLE)
      "
        db_with_handle -dbn $dbn db {
          #ns_log notice "--sql=$sql"
          return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
        }
      }

proc role_pretty_plural (public)

::xo::db::sql::acs_rel_type role_pretty_plural [ -dbn dbn ] \
    -role role

Automatically generated method

Switches:

-dbn (optional)
-role (required)

::329656 proc role_pretty_plural {{-dbn {}} -role:required} {
        #function_args: {ROLE {}}
        foreach var [list ROLE]  {
          set varname [string tolower $var]
          if {[info exists $varname]} {
            set $var [set $varname]
            set _$var :$var
          } else {
            set _$var null
          }
        }
        set sql "
        select acs_rel_type__role_pretty_plural($_ROLE)
      "
        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]