ad_page_contract_filter_proc_printable (public)

 ad_page_contract_filter_proc_printable name value_varname

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

Checks whether the value contains only characters with a printable representation. This represents character class of the Tcl character class "print", which consists of the characters with a visible representation and space. This filter is useful for e.g. avoiding invalid byte sequences for the database.

Parameters:
name
value_varname
Author:
Gustaf Neumann
Created:
22 April 2021

Partial Call Graph (max 5 caller/called nodes):
%3 test_ad_page_contract_filters ad_page_contract_filters (test acs-tcl) ad_page_contract_filter_proc_printable ad_page_contract_filter_proc_printable test_ad_page_contract_filters->ad_page_contract_filter_proc_printable _ _ (public) ad_page_contract_filter_proc_printable->_ ad_complain ad_complain (public) ad_page_contract_filter_proc_printable->ad_complain

Testcases:
ad_page_contract_filters
Source code:
upvar $value_varname value


    if {![regexp {[^[:print:]]} $value]} {
        return 1
    }
    ad_complain [_ acs-tcl.lt_name_contains_invalid]
    return 0
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: