Lines Matching refs:ch
17 proc ::page::util::quote::unquote {ch} {
22 switch -exact -- $ch {
33 if {[regexp {^\\([0-2][0-7][0-7])$} $ch -> ocode]} {
35 } elseif {[regexp {^\\([0-7][0-7]?)$} $ch -> ocode]} {
37 } elseif {[regexp {^\\u([0-9a-fA-F][0-9a-fA-F]?[0-9a-fA-F]?[0-9a-fA-F]?)$} $ch -> hcode]} {
41 return $ch
44 proc ::page::util::quote::quote'tcl {ch} {
55 switch -exact -- $ch {
67 scan $ch %c chcode
72 scan $ch %c chcode
75 if {[string is control -strict $ch]} {
87 return $ch
90 proc ::page::util::quote::quote'tclstr {ch} {
102 switch -exact -- $ch {
111 return \\$ch
115 scan $ch %c chcode
118 if {[string is control -strict $ch]} {
130 return $ch
133 proc ::page::util::quote::quote'tclcom {ch} {
140 switch -exact -- $ch {
148 return \\$ch
152 scan $ch %c chcode
155 if {[string is control -strict $ch]} {
167 return $ch