@ tefigel

###
#   Return a Java type for the given XML type.
#   Check for unknown XML types.
###

interface(xml_type)

case xml_type

   when=boolean
      set jtype=boolean

   when=date
      set jtype=Date

   when=double
      set jtype=double

   when=integer
      set jtype=int

   when=string
      set jtype=String

   otherwise
      msg Unexpected XML type "xml_type"
      set jtype=unknown
endcase

retvalue=jtype