Class ::xo::db::sql::util (public)

 ::xo::db::Class ::xo::db::sql::util

Defined in

Testcases:

No testcase defined.

Source code:

namespace eval ::xo::db::sql {}
::nsf::object::alloc ::xo::db::Class ::xo::db::sql::util {set :__default_metaclass ::xotcl::Class
   set :__default_superclass ::xotcl::Object
   set :abstract_p f
   set :auto_save false
   set :name_method {}
   set :object_type ::xo::db::sql::util
   set :security_inherit_p t
   set :sql_package_name util
   set :supertype acs_object
   set :with_table true}
::xo::db::sql::util proc computehash {{-dbn {}} -value:required} {
      #function_args: {VALUE {}}
      foreach var [list VALUE]  {
        set varname [string tolower $var]
        if {[info exists $varname]} {
          set $var [set $varname]
          set _$var :$var
        } else {
          set _$var null
        }
      }
      set sql "
      select util__computehash($_VALUE) 
    "
      db_with_handle -dbn $dbn db {
        #ns_log notice "--sql=$sql"
        return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
      }
    }
::xo::db::sql::util proc not_null_exists {{-dbn {}} -table_name:required -column:required} {
      #function_args: {TABLE_NAME {}} {COLUMN {}}
      foreach var [list TABLE_NAME COLUMN]  {
        set varname [string tolower $var]
        if {[info exists $varname]} {
          set $var [set $varname]
          set _$var :$var
        } else {
          set _$var null
        }
      }
      set sql "
      select util__not_null_exists($_TABLE_NAME, $_COLUMN) 
    "
      db_with_handle -dbn $dbn db {
        #ns_log notice "--sql=$sql"
        return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
      }
    }
::xo::db::sql::util proc primary_key_exists {{-dbn {}} -table_name:required -column:required {-single_p true}} {
      #function_args: {TABLE_NAME {}} {COLUMN {}} {SINGLE_P true}
      foreach var [list TABLE_NAME COLUMN SINGLE_P]  {
        set varname [string tolower $var]
        if {[info exists $varname]} {
          set $var [set $varname]
          set _$var :$var
        } else {
          set _$var null
        }
      }
      set sql "
      select util__primary_key_exists($_TABLE_NAME, $_COLUMN, $_SINGLE_P) 
    "
      db_with_handle -dbn $dbn db {
        #ns_log notice "--sql=$sql"
        return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
      }
    }
::xo::db::sql::util proc table_column_exists {{-dbn {}} -table_name:required -column:required} {
      #function_args: {TABLE_NAME {}} {COLUMN {}}
      foreach var [list TABLE_NAME COLUMN]  {
        set varname [string tolower $var]
        if {[info exists $varname]} {
          set $var [set $varname]
          set _$var :$var
        } else {
          set _$var null
        }
      }
      set sql "
      select util__table_column_exists($_TABLE_NAME, $_COLUMN) 
    "
      db_with_handle -dbn $dbn db {
        #ns_log notice "--sql=$sql"
        return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
      }
    }
::xo::db::sql::util proc get_default {{-dbn {}} -table_name:required -column:required} {
      #function_args: {TABLE_NAME {}} {COLUMN {}}
      foreach var [list TABLE_NAME COLUMN]  {
        set varname [string tolower $var]
        if {[info exists $varname]} {
          set $var [set $varname]
          set _$var :$var
        } else {
          set _$var null
        }
      }
      set sql "
      select util__get_default($_TABLE_NAME, $_COLUMN) 
    "
      db_with_handle -dbn $dbn db {
        #ns_log notice "--sql=$sql"
        return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
      }
    }
::xo::db::sql::util proc multiple_nextval {{-dbn {}} -v_sequence_name:required -v_count:required} {
      #function_args: {V_SEQUENCE_NAME {}} {V_COUNT {}}
      foreach var [list V_SEQUENCE_NAME V_COUNT]  {
        set varname [string tolower $var]
        if {[info exists $varname]} {
          set $var [set $varname]
          set _$var :$var
        } else {
          set _$var null
        }
      }
      set sql "
      select util__multiple_nextval($_V_SEQUENCE_NAME, $_V_COUNT) 
    "
      db_with_handle -dbn $dbn db {
        #ns_log notice "--sql=$sql"
        return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
      }
    }
::xo::db::sql::util proc unique_exists {{-dbn {}} -table:required -column:required {-single_p true}} {
      #function_args: {TABLE {}} {COLUMN {}} {SINGLE_P true}
      foreach var [list TABLE COLUMN SINGLE_P]  {
        set varname [string tolower $var]
        if {[info exists $varname]} {
          set $var [set $varname]
          set _$var :$var
        } else {
          set _$var null
        }
      }
      set sql "
      select util__unique_exists($_TABLE, $_COLUMN, $_SINGLE_P) 
    "
      db_with_handle -dbn $dbn db {
        #ns_log notice "--sql=$sql"
        return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
      }
    }
::xo::db::sql::util proc foreign_key_exists {{-dbn {}} -table_name:required -column:required -reftable:required -refcolumn:required} {
      #function_args: {TABLE_NAME {}} {COLUMN {}} {REFTABLE {}} {REFCOLUMN {}}
      foreach var [list TABLE_NAME COLUMN REFTABLE REFCOLUMN]  {
        set varname [string tolower $var]
        if {[info exists $varname]} {
          set $var [set $varname]
          set _$var :$var
        } else {
          set _$var null
        }
      }
      set sql "
      select util__foreign_key_exists($_TABLE_NAME, $_COLUMN, $_REFTABLE, $_REFCOLUMN) 
    "
      db_with_handle -dbn $dbn db {
        #ns_log notice "--sql=$sql"
        return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
      }
    }
::xo::db::sql::util proc view_exists {{-dbn {}} -name:required} {
      #function_args: {NAME {}}
      foreach var [list NAME]  {
        set varname [string tolower $var]
        if {[info exists $varname]} {
          set $var [set $varname]
          set _$var :$var
        } else {
          set _$var null
        }
      }
      set sql "
      select util__view_exists($_NAME) 
    "
      db_with_handle -dbn $dbn db {
        #ns_log notice "--sql=$sql"
        return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
      }
    }
::xo::db::sql::util proc computehash_raw {{-dbn {}} -arg:required} {
      #function_args: {ARG {}}
      foreach var [list ARG]  {
        set varname [string tolower $var]
        if {[info exists $varname]} {
          set $var [set $varname]
          set _$var :$var
        } else {
          set _$var null
        }
      }
      set sql "
      select util__computehash_raw($_ARG) 
    "
      db_with_handle -dbn $dbn db {
        #ns_log notice "--sql=$sql"
        return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
      }
    }
::xo::db::sql::util proc get_primary_keys {{-dbn {}} -table_name:required} {
      #function_args: {TABLE_NAME {}}
      foreach var [list TABLE_NAME]  {
        set varname [string tolower $var]
        if {[info exists $varname]} {
          set $var [set $varname]
          set _$var :$var
        } else {
          set _$var null
        }
      }
      set sql "
      select util__get_primary_keys($_TABLE_NAME) 
    "
      db_with_handle -dbn $dbn db {
        #ns_log notice "--sql=$sql"
        return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
      }
    }
::xo::db::sql::util proc table_exists {{-dbn {}} -name:required} {
      #function_args: {NAME {}}
      foreach var [list NAME]  {
        set varname [string tolower $var]
        if {[info exists $varname]} {
          set $var [set $varname]
          set _$var :$var
        } else {
          set _$var null
        }
      }
      set sql "
      select util__table_exists($_NAME) 
    "
      db_with_handle -dbn $dbn db {
        #ns_log notice "--sql=$sql"
        return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
      }
    }
::xo::db::sql::util proc logical_negation {{-dbn {}} -true_or_false:required} {
      #function_args: {TRUE_OR_FALSE {}}
      foreach var [list TRUE_OR_FALSE]  {
        set varname [string tolower $var]
        if {[info exists $varname]} {
          set $var [set $varname]
          set _$var :$var
        } else {
          set _$var null
        }
      }
      set sql "
      select util__logical_negation($_TRUE_OR_FALSE) 
    "
      db_with_handle -dbn $dbn db {
        #ns_log notice "--sql=$sql"
        return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
      }
    }
::xo::db::sql::util proc index_exists {{-dbn {}} -name:required} {
      #function_args: {NAME {}}
      foreach var [list NAME]  {
        set varname [string tolower $var]
        if {[info exists $varname]} {
          set $var [set $varname]
          set _$var :$var
        } else {
          set _$var null
        }
      }
      set sql "
      select util__index_exists($_NAME) 
    "
      db_with_handle -dbn $dbn db {
        #ns_log notice "--sql=$sql"
        return [ ns_set value [ns_pg_bind 0or1row $db $sql] 0 ]
      }
    }

XQL Not present:

Generic, PostgreSQL, Oracle