sql-statement-procs.tcl

Procs for manipulating SQL statements

Location:

packages/acs-tcl/tcl/sql-statement-procs.tcl

Author:

lars@pinds.com, May 2000

CVS Identification:

$Id: sql-statement-procs.tcl,v 1.5.2.4 2022/07/13 09:44:04 antoniop Exp $ How to use this: You simply call ad_sql_append any number of times, then ad_sql_get to feed to the database. What you gain from using these two procs is that the parts of the SQL statement will always be output in the right sequence. How this works: We represent a SQL statement as a Tcl array of the form stmt(select) { t1.column1 t2.column2 t2.column3 ... } join by , stmt(from) { { table1 t1} {table2 t2} } join by , stmt(where) { condition1 condition2 } join by and stmt(groupby) { groupcol1 groupcol2 } join by , stmt(orderby) { {ordercol1 asc} {ordercol2 desc}} join by , This is unused and untested code.

Procedures in this file

Detailed information

[ hide source ] | [ make this the default ]

Content File Source

ad_library { 
    Procs for manipulating SQL statements

    @author lars@pinds.com, May 2000
    @cvs-id $Id: sql-statement-procs.tcl,v 1.5.2.4 2022/07/13 09:44:04 antoniop Exp $

    How to use this:

    You simply call ad_sql_append any number of times, then ad_sql_get to feed to the database.
    What you gain from using these two procs is that the parts of the SQL statement will
    always be output in the right sequence.


    How this works:

    We represent a SQL statement as a Tcl array of the form

    stmt(select) { t1.column1 t2.column2 t2.column3 ... } join by ,
    stmt(from) { { table1 t1} {table2 t2} } join by ,
    stmt(where) { condition1 condition2 } join by and
    stmt(groupby) { groupcol1 groupcol2 } join by ,
    stmt(orderby) { {ordercol1 asc} {ordercol2 desc}} join by ,

    This is unused and untested code.
}

if {![ad_with_deprecated_code_p]} {
    ns_log notice "deprecated-procs: skip deprecated code"
    return
}

d_proc -deprecated -public ad_sql_get { 
    sqlarrayname
} {
    @param sqlarrayname array reference

    @return a SQL statement constructed from the pieces provided via ad_sql_append
    This is unused and untested code.

    @see ad_sql_append
} {
    upvar $sqlarrayname sql

    if { ![info exists sql(select)] } {
    error "SQL statement doesn't have any SELECT clause"
    }
    if { ![info exists sql(from)] } {
    error "SQL statement doesn't have any FROM clause"
    }

    set sql_string "select [join $sql(select) ", "]\nfrom [join $sql(from) ", "]\n"

    if { [info exists sql(where)] && [llength $sql(where)] > 0 } {
    append sql_string "where [join $sql(where) "\nand "]\n"
    }

    if { [info exists sql(groupby)] && [llength $sql(groupby)] > 0 } {
    append sql_string "group by [join $sql(groupby) ", "]\n"
    }

    if { [info exists sql(orderby)] && [llength $sql(orderby)] > 0 } {
    append sql_string "order by [join $sql(orderby) ", "]\n"
    }

    return $sql_string
}

d_proc -deprecated -public ad_sql_append { 
    {-select {}}
    {-from {}}
    {-where {}}
    {-groupby {}}
    {-orderby {}}
    sqlarrayname
} { 
    Adds to the SQL statement.

    This is unused and untested code.

    @see plain SQL statements + trivial Tcl idioms
} {
    upvar $sqlarrayname sql
    if { $select ne "" } {
    lappend sql(select) $select
    }
    if { $from ne "" } {
    lappend sql(from) $from
    }
    if { $where ne "" } {
    lappend sql(where) $where
    }
    if { $groupby ne "" } {
    lappend sql(groupby) $groupby
    }
    if { $orderby ne "" } {
    lappend sql(orderby) $orderby
    }
}


# Local variables:
#    mode: tcl
#    tcl-indent-level: 4
#    indent-tabs-mode: nil
# End: