#	------------------------------------------------------------
#   Copyright (c) 2021-2021
#	Q.W.Page Associates Inc.
#	www.qwpage.com
#	All rights reserved.
#	------------------------------------------------------------
::namespace eval ::qw::numutil {}

::proc ::qw::numutil::filter_special_characters {String} {
	/* {
	Move the filter from inline c++ in qw_num.cpp because it was causing too many
    compiler warnings.
	Code borrowed from http://wiki.tcl.tk/989;
    */ }
//2.34.11	STR Value=::_Tcl->eval("::string map [::list {[} {\\\[} {]} {\\\]} {$} {\\\$} \"\{\" \"\\\{\" \"\}\" \"\\\}\"] "+Src.brace());
    ::set Result [::string map [::list {[} {\[} {]} {\]} {$} {\$} "\{" "\{" "\}" "\}"] $String];
	::return $Result;
}