[codecs for all derived integral types
clinton@unknownlamer.org**20090501230332
 Ignore-this: 78e8227e433a738562689bd5556c65f4
] hunk ./src/codec.lisp 57
+(define-simple-xml-type (XMLISP2.TYPES:|nonPositiveInteger| xmlisp2.types:integer)
+    (integer * 0)
+  (parse-integer) (princ-to-string integer))
+
+(define-simple-xml-type (XMLISP2.TYPES:|negativeInteger|
+				       XMLISP2.TYPES:|nonPositiveInteger|)
+    (integer * -1)
+  (parse-integer) (princ-to-string integer))
+
+(define-simple-xml-type (xmlisp2.types:long xmlisp2.types:integer)
+    (integer -9223372036854775808 9223372036854775807)
+  (parse-integer) (princ-to-string integer))
+
+(define-simple-xml-type (xmlisp2.types:int xmlisp2.types:long)
+    (integer -2147483648 2147483647)
+  (parse-integer) (princ-to-string integer))
+
+(define-simple-xml-type (xmlisp2.types:short xmlisp2.types:int)
+    (integer -32768 32767)
+  (parse-integer) (princ-to-string integer))
+
+(define-simple-xml-type (xmlisp2.types:byte xmlisp2.types:short)
+    (integer -128 127)
+  (parse-integer) (princ-to-string integer))
+
+(define-simple-xml-type (XMLISP2.TYPES:|nonNegativeInteger|
+				       xmlisp2.types:integer)
+    (integer 0 *)
+  (parse-integer) (princ-to-string integer))
+
+(define-simple-xml-type (XMLISP2.TYPES:|unsignedLong|
+				       XMLISP2.TYPES:|nonNegativeInteger|)
+    
+    (integer 0 18446744073709551615)
+  (parse-integer) (princ-to-string integer))
+
+(define-simple-xml-type (xmlisp2.types:|unsignedInt| xmlisp2.types:|unsignedLong|)
+    (integer 0 2147483647)
+  (parse-integer) (princ-to-string integer))
+
+(define-simple-xml-type (xmlisp2.types:|unsignedShort| xmlisp2.types:|unsignedInt|)
+    (integer 0 32767)
+  (parse-integer) (princ-to-string integer))
+
+(define-simple-xml-type (xmlisp2.types:|unsignedByte| xmlisp2.types:|unsignedShort|)
+    (integer 0 127)
+  (parse-integer) (princ-to-string integer))
+
+(define-simple-xml-type (XMLISP2.TYPES:|positiveInteger|
+				       XMLISP2.TYPES:|nonNegativeInteger|)
+    
+    (integer 1 *)
+  (parse-integer) (princ-to-string integer))
+