Table of Contents

clock_to_oracle_time
gen_oracle_insert_from_array
quote_oracle


[next] [TOC]

Command

clock_to_oracle_time

Synopsis

clock_to_oracle_time clock

Description

#
# convert a clock value (integer seconds since 1970) to an oracle date.
#
#        dd-mmm-yy
#



    return [fmtclock $clock "%d-%b-%y"]

[next] [prev] [TOC]

Command

gen_oracle_insert_from_array

Synopsis

gen_oracle_insert_from_array tableName arrayName

Description

#
# generate an oracle insert command based on contents of an array
#



    upvar $arrayName array

    set nameList [array names array]

    set result "insert into $tableName ([join $nameList ","]) values ("

    foreach name $nameList {
	append result "[quote_oracle $array($name)],"
    }
    return "[crange $result 0 end-1]);"

[prev] [TOC]

Command

quote_oracle

Synopsis

quote_oracle string

Description

#@package: oracle-basic quote_oracle clock_to_oracle_time gen_oracle_insert_from_array
#
# Copyright (C) 1996 NeoSoft.
#
# Permission to use, copy, modify, and distribute this software and its
# documentation for any purpose and without fee is hereby granted, provided
# that the above copyright notice appear in all copies.  NeoSoft makes no 
# representations about the suitability of this software for any purpose.
# It is provided "as is" without express or implied warranty.
#
# oracle interface stuff
#
# $Id: oracle.html,v 1.1.1.1 1999/03/31 20:34:36 damon Exp $
#
#
# make string mostly legally quoted for oracle 
#



    set string [join [split $string "\n"] "\\n"]
    regsub -all "(')" $string "\''" string
    regsub -all {(\\)} $string "\\\\" string
    return '$string'