namespace eval ::wsdb::types::aca::IntegerNNType { variable base xsd::nonNegativeInteger variable validate ::wsdb::types::aca::IntegerNNType::validate }
proc ::wsdb::types::aca::IntegerNNType::validate { value } { variable base if {[::wsdb::types::${base}::validate $value]} { return 1 } else { return 0 }}