namespace eval ::wsdb::types::datetime::minusOptional { variable base xsd::string variable pattern {\A(-)?\Z} variable validate ::wsdb::types::datetime::minusOptional::validate }
proc ::wsdb::types::datetime::minusOptional::validate { value } { variable base variable pattern if {[::wsdb::types::${base}::validate $value] && [regexp $pattern $value]} { return 1 } else { return 0 }}