plsql_utility::generate_constraint_name (public)

 plsql_utility::generate_constraint_name [ -max_length max_length ] \
    table column stem

Defined in packages/acs-subsite/tcl/plsql-utility-procs.tcl

Generates a constraint name adhering to the arsdigita standard for naming constraints. Note that this function does not yet ensure that the returned constraint name is not already in use, though the probability for a collision is pretty low. The ideal name is table_column_stem. We trim first table, then column to make it fit.

Switches:
-max_length
(defaults to "30") (optional)
Parameters:
table
column
stem
Author:
Michael Bryzek <mbryzek@arsdigita.com>
Created:
11/2000

Partial Call Graph (max 5 caller/called nodes):
%3 attribute::datatype_to_sql_type attribute::datatype_to_sql_type (private) plsql_utility::generate_constraint_name plsql_utility::generate_constraint_name attribute::datatype_to_sql_type->plsql_utility::generate_constraint_name group_type::new group_type::new (public) group_type::new->plsql_utility::generate_constraint_name rel_types::new rel_types::new (public) rel_types::new->plsql_utility::generate_constraint_name

Testcases:
No testcase defined.
Source code:
        set max_length_without_stem [expr {$max_length - [expr {[string length $stem] + 1}]}]

        set text "${table}_$column"
        if { [string length $text] > $max_length_without_stem } {
            set text ""
            # Pull out the initials of the table name
            foreach piece [split $table "_"] {
                append text [lindex [split $piece ""] 0]
            }
            append text "_$column"
        }
        return [string toupper "[string range $text 0 $max_length_without_stem-1]_$stem"]
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: