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 (required)
s2 (required)

Partial Call Graph (max 5 caller/called nodes):
%3 test_string_length_compare string_length_compare (test acs-tcl) util::string_length_compare util::string_length_compare test_string_length_compare->util::string_length_compare

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

[ hide source ] | [ make this the default ]
Show another procedure: