util::string_length_compare (public)

 util::string_length_compare s1 s2

Defined in packages/acs-tcl/tcl/utilities-procs.tcl

String length comparison function for use with lsort's -command switch.

Parameters:

s1
s2

Partial Call Graph (max 5 caller/called nodes):

Testcases:

string_length_compare

Source code:

    set l1 [string length $s1]
    set l2 [string length $s2]
    if { $l1 < $l2 } {
        return -1
    } elseif { $l1 > $l2 } {
        return 1
    } else {
        return 0
    }

XQL Not present:

PostgreSQL, Oracle

Generic XQL file:

packages/acs-tcl/tcl/utilities-procs.xql