::xo::db::Class ::xo::db::sql::timezone

Class Hierarchy of ::xo::db::sql::timezone

• ::xotcl::Object

  Meta-class:

  ::xotcl::Class

  Methods for instances:

  __api_make_doc, __api_make_forward_doc, __next^C, __timediff, abstract, ad_doc, ad_forward, ad_proc, append^C, array^C, asHTML, autoname^C, check^C, class^C, cleanup^C, configure^C, contains, copy, db_1row^C, debug, defaultmethod, destroy^C, destroy_on_cleanup, dot_append_method, dotclass, dotcode, dotquote, dotquotel, eval^C, exists^C, extractConfigureArg, filter^C, filterguard^C, filtersearch^C, forward^C, hasclass, incr^C, info^C, init, instvar^C, invar^C, isclass^C, ismetaclass^C, ismixin^C, isobject^C, istype^C, lappend^C, log, method, mixin^C, mixinguard^C, move, msg, noinit^C, parametercmd^C, proc^C, procsearch^C, qn, requireNamespace^C, self, serialize, set^C, subst^C, trace^C, unset^C, uplevel^C, upvar^C, volatile^C, vwait^C

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

  __exitHandler, getExitHandler, setExitHandler, unsetExitHandler

• ::xo::db::sql::timezone

  Meta-class:

  ::xo::db::Class

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

  add_rule, del, get_abbrev, get_date, get_id, get_offset, get_rawoffset, get_zone_offset, isdst_p, local_to_utc, new, utc_to_local

Class Relations

• superclass: ::xotcl::Object

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

Methods

• proc add_rule (public)

  ::xo::db::sql::timezone add_rule [ -dbn dbn ] [ -tz tz ] \
      [ -abbrev abbrev ] [ -isdst isdst ] [ -gmt_offset gmt_offset ] \
      [ -utc_start utc_start ] [ -utc_end utc_end ] \
      [ -local_start local_start ] [ -local_end local_end ]

  Automatically generated method

  Switches:

  -dbn (optional)

  -tz (optional)

  -abbrev (optional)

  -isdst (optional)

  -gmt_offset (optional)

  -utc_start (optional)

  -utc_end (optional)

  -local_start (optional)

  -local_end (optional)

  ::xo::db::sql::timezone proc add_rule {{-dbn {}} -tz -abbrev -isdst -gmt_offset -utc_start -utc_end -local_start -local_end} {
          #function_args: {TZ NULL} {ABBREV NULL} {ISDST NULL} {GMT_OFFSET NULL} {UTC_START NULL} {UTC_END NULL} {LOCAL_START NULL} {LOCAL_END NULL}
          set sql_args [list]
          foreach var [list TZ ABBREV ISDST GMT_OFFSET UTC_START UTC_END LOCAL_START LOCAL_END]  {
            set varname [string tolower $var]
            if {[info exists $varname]} {
              lappend sql_args "$varname => :$varname"
            } 
          }
          set sql_args [join $sql_args ,]
          set sql "BEGIN timezone.add_rule($sql_args); END;"
          db_with_handle -dbn $dbn db {
            #my log "sql=$sql, sql_command=ns_ora dml $db $sql"
            return [ ns_ora dml $db $sql ]
          }
        }

• proc del (public)

  ::xo::db::sql::timezone del [ -dbn dbn ] [ -tz_id tz_id ]

  Automatically generated method

  Switches:

  -dbn (optional)

  -tz_id (optional)

  ::xo::db::sql::timezone proc del {{-dbn {}} -tz_id} {
          #function_args: {TZ_ID NULL}
          set sql_args [list]
          foreach var [list TZ_ID]  {
            set varname [string tolower $var]
            if {[info exists $varname]} {
              lappend sql_args "$varname => :$varname"
            } 
          }
          set sql_args [join $sql_args ,]
          set sql "BEGIN timezone.del($sql_args); END;"
          db_with_handle -dbn $dbn db {
            #my log "sql=$sql, sql_command=ns_ora dml $db $sql"
            return [ ns_ora dml $db $sql ]
          }
        }

• proc get_abbrev (public)

  ::xo::db::sql::timezone get_abbrev [ -dbn dbn ] [ -tz_id tz_id ] \
      [ -local_time local_time ]

  Automatically generated method

  Switches:

  -dbn (optional)

  -tz_id (optional)

  -local_time (optional)

  ::xo::db::sql::timezone proc get_abbrev {{-dbn {}} -tz_id -local_time} {
          #function_args: {TZ_ID NULL} {LOCAL_TIME NULL}
          set sql_args [list]
          foreach var [list TZ_ID LOCAL_TIME]  {
            set varname [string tolower $var]
            if {[info exists $varname]} {
              lappend sql_args "$varname => :$varname"
            } 
          }
          set sql_args [join $sql_args ,]
          set sql "BEGIN :1 := timezone.get_abbrev($sql_args); END;"
          db_with_handle -dbn $dbn db {
            #my log "sql=$sql, sql_command=ns_ora exec_plsql_bind $db $sql 1 """
            return [ ns_ora exec_plsql_bind $db $sql 1 "" ]
          }
        }

• proc get_date (public)

  ::xo::db::sql::timezone get_date [ -dbn dbn ] [ -tz_id tz_id ] \
      [ -local_time local_time ] [ -format format ] \
      [ -append_timezone_p append_timezone_p ]

  Automatically generated method

  Switches:

  -dbn (optional)

  -tz_id (optional)

  -local_time (optional)

  -format (optional)

  -append_timezone_p (optional)

  ::xo::db::sql::timezone proc get_date {{-dbn {}} -tz_id -local_time -format -append_timezone_p} {
          #function_args: {TZ_ID NULL} {LOCAL_TIME NULL} {FORMAT NULL} {APPEND_TIMEZONE_P NULL}
          set sql_args [list]
          foreach var [list TZ_ID LOCAL_TIME FORMAT APPEND_TIMEZONE_P]  {
            set varname [string tolower $var]
            if {[info exists $varname]} {
              lappend sql_args "$varname => :$varname"
            } 
          }
          set sql_args [join $sql_args ,]
          set sql "BEGIN :1 := timezone.get_date($sql_args); END;"
          db_with_handle -dbn $dbn db {
            #my log "sql=$sql, sql_command=ns_ora exec_plsql_bind $db $sql 1 """
            return [ ns_ora exec_plsql_bind $db $sql 1 "" ]
          }
        }

• proc get_id (public)

  ::xo::db::sql::timezone get_id [ -dbn dbn ] [ -tz tz ]

  Automatically generated method

  Switches:

  -dbn (optional)

  -tz (optional)

  ::xo::db::sql::timezone proc get_id {{-dbn {}} -tz} {
          #function_args: {TZ NULL}
          set sql_args [list]
          foreach var [list TZ]  {
            set varname [string tolower $var]
            if {[info exists $varname]} {
              lappend sql_args "$varname => :$varname"
            } 
          }
          set sql_args [join $sql_args ,]
          set sql "BEGIN :1 := timezone.get_id($sql_args); END;"
          db_with_handle -dbn $dbn db {
            #my log "sql=$sql, sql_command=ns_ora exec_plsql_bind $db $sql 1 """
            return [ ns_ora exec_plsql_bind $db $sql 1 "" ]
          }
        }

• proc get_offset (public)

  ::xo::db::sql::timezone get_offset [ -dbn dbn ] [ -tz_id tz_id ] \
      [ -local_time local_time ]

  Automatically generated method

  Switches:

  -dbn (optional)

  -tz_id (optional)

  -local_time (optional)

  ::xo::db::sql::timezone proc get_offset {{-dbn {}} -tz_id -local_time} {
          #function_args: {TZ_ID NULL} {LOCAL_TIME NULL}
          set sql_args [list]
          foreach var [list TZ_ID LOCAL_TIME]  {
            set varname [string tolower $var]
            if {[info exists $varname]} {
              lappend sql_args "$varname => :$varname"
            } 
          }
          set sql_args [join $sql_args ,]
          set sql "BEGIN :1 := timezone.get_offset($sql_args); END;"
          db_with_handle -dbn $dbn db {
            #my log "sql=$sql, sql_command=ns_ora exec_plsql_bind $db $sql 1 """
            return [ ns_ora exec_plsql_bind $db $sql 1 "" ]
          }
        }

• proc get_rawoffset (public)

  ::xo::db::sql::timezone get_rawoffset [ -dbn dbn ] [ -tz_id tz_id ] \
      [ -local_time local_time ]

  Automatically generated method

  Switches:

  -dbn (optional)

  -tz_id (optional)

  -local_time (optional)

  ::xo::db::sql::timezone proc get_rawoffset {{-dbn {}} -tz_id -local_time} {
          #function_args: {TZ_ID NULL} {LOCAL_TIME NULL}
          set sql_args [list]
          foreach var [list TZ_ID LOCAL_TIME]  {
            set varname [string tolower $var]
            if {[info exists $varname]} {
              lappend sql_args "$varname => :$varname"
            } 
          }
          set sql_args [join $sql_args ,]
          set sql "BEGIN :1 := timezone.get_rawoffset($sql_args); END;"
          db_with_handle -dbn $dbn db {
            #my log "sql=$sql, sql_command=ns_ora exec_plsql_bind $db $sql 1 """
            return [ ns_ora exec_plsql_bind $db $sql 1 "" ]
          }
        }

• proc get_zone_offset (public)

  ::xo::db::sql::timezone get_zone_offset [ -dbn dbn ] \
      [ -tz_this tz_this ] [ -tz_other tz_other ] [ -utc_time utc_time ]

  Automatically generated method

  Switches:

  -dbn (optional)

  -tz_this (optional)

  -tz_other (optional)

  -utc_time (optional)

  ::xo::db::sql::timezone proc get_zone_offset {{-dbn {}} -tz_this -tz_other -utc_time} {
          #function_args: {TZ_THIS NULL} {TZ_OTHER NULL} {UTC_TIME NULL}
          set sql_args [list]
          foreach var [list TZ_THIS TZ_OTHER UTC_TIME]  {
            set varname [string tolower $var]
            if {[info exists $varname]} {
              lappend sql_args "$varname => :$varname"
            } 
          }
          set sql_args [join $sql_args ,]
          set sql "BEGIN :1 := timezone.get_zone_offset($sql_args); END;"
          db_with_handle -dbn $dbn db {
            #my log "sql=$sql, sql_command=ns_ora exec_plsql_bind $db $sql 1 """
            return [ ns_ora exec_plsql_bind $db $sql 1 "" ]
          }
        }

• proc isdst_p (public)

  ::xo::db::sql::timezone isdst_p [ -dbn dbn ] [ -tz_id tz_id ] \
      [ -local_time local_time ]

  Automatically generated method

  Switches:

  -dbn (optional)

  -tz_id (optional)

  -local_time (optional)

  ::xo::db::sql::timezone proc isdst_p {{-dbn {}} -tz_id -local_time} {
          #function_args: {TZ_ID NULL} {LOCAL_TIME NULL}
          set sql_args [list]
          foreach var [list TZ_ID LOCAL_TIME]  {
            set varname [string tolower $var]
            if {[info exists $varname]} {
              lappend sql_args "$varname => :$varname"
            } 
          }
          set sql_args [join $sql_args ,]
          set sql "BEGIN :1 := timezone.isdst_p($sql_args); END;"
          db_with_handle -dbn $dbn db {
            #my log "sql=$sql, sql_command=ns_ora exec_plsql_bind $db $sql 1 """
            return [ ns_ora exec_plsql_bind $db $sql 1 "" ]
          }
        }

• proc local_to_utc (public)

  ::xo::db::sql::timezone local_to_utc [ -dbn dbn ] [ -tz_id tz_id ] \
      [ -local_time local_time ]

  Automatically generated method

  Switches:

  -dbn (optional)

  -tz_id (optional)

  -local_time (optional)

  ::xo::db::sql::timezone proc local_to_utc {{-dbn {}} -tz_id -local_time} {
          #function_args: {TZ_ID NULL} {LOCAL_TIME NULL}
          set sql_args [list]
          foreach var [list TZ_ID LOCAL_TIME]  {
            set varname [string tolower $var]
            if {[info exists $varname]} {
              lappend sql_args "$varname => :$varname"
            } 
          }
          set sql_args [join $sql_args ,]
          set sql "BEGIN :1 := timezone.local_to_utc($sql_args); END;"
          db_with_handle -dbn $dbn db {
            #my log "sql=$sql, sql_command=ns_ora exec_plsql_bind $db $sql 1 """
            return [ ns_ora exec_plsql_bind $db $sql 1 "" ]
          }
        }

• proc new (public)

  ::xo::db::sql::timezone new [ -dbn dbn ] [ -tz tz ] \
      [ -gmt_offset gmt_offset ]

  Automatically generated method

  Switches:

  -dbn (optional)

  -tz (optional)

  -gmt_offset (optional)

  ::xo::db::sql::timezone proc new {{-dbn {}} -tz -gmt_offset} {
          #function_args: {TZ NULL} {GMT_OFFSET NULL}
          set sql_args [list]
          foreach var [list TZ GMT_OFFSET]  {
            set varname [string tolower $var]
            if {[info exists $varname]} {
              lappend sql_args "$varname => :$varname"
            } 
          }
          set sql_args [join $sql_args ,]
          set sql "BEGIN timezone.new($sql_args); END;"
          db_with_handle -dbn $dbn db {
            #my log "sql=$sql, sql_command=ns_ora dml $db $sql"
            return [ ns_ora dml $db $sql ]
          }
        }

• proc utc_to_local (public)

  ::xo::db::sql::timezone utc_to_local [ -dbn dbn ] [ -tz_id tz_id ] \
      [ -utc_time utc_time ]

  Automatically generated method

  Switches:

  -dbn (optional)

  -tz_id (optional)

  -utc_time (optional)

  ::xo::db::sql::timezone proc utc_to_local {{-dbn {}} -tz_id -utc_time} {
          #function_args: {TZ_ID NULL} {UTC_TIME NULL}
          set sql_args [list]
          foreach var [list TZ_ID UTC_TIME]  {
            set varname [string tolower $var]
            if {[info exists $varname]} {
              lappend sql_args "$varname => :$varname"
            } 
          }
          set sql_args [join $sql_args ,]
          set sql "BEGIN :1 := timezone.utc_to_local($sql_args); END;"
          db_with_handle -dbn $dbn db {
            #my log "sql=$sql, sql_command=ns_ora exec_plsql_bind $db $sql 1 """
            return [ ns_ora exec_plsql_bind $db $sql 1 "" ]
          }
        }