add TAG_COUNTER 1

eval interesting_tag TAG_ID=xsd_element
  or interesting_tag TAG_ID=xsd_complexType
  or interesting_tag TAG_ID=xsd_simpleType
  or interesting_tag TAG_ID=xsd_simpleContent
  or interesting_tag TAG_ID=xsd_sequence
  or interesting_tag TAG_ID=xsd_attribute
  or interesting_tag TAG_ID=xsd_restriction
  or interesting_tag TAG_ID=xsd_enumeration

if interesting_tag=0
   quit
endif

add INTERESTING_TAG_PATH_DEPTH 1

if tp_name=
   set tp_name=<~replace(TAG_ID,xsd_,)>
endif

dash %
globset INTERESTING_TAG_PATH%INTERESTING_TAG_PATH_DEPTH=tp_name
set information_path=
loop info_depth=1,INTERESTING_TAG_PATH_DEPTH
   set information_path=information_path/~value(INTERESTING_TAG_PATH%info_depth)
endloop
dash

eval unnamed_type tp_name~^<

eval print_info_path TAG_ID#xsd_enumeration
 and print_info_path TAG_ID#xsd_restriction
 and print_info_path TAG_ID#xsd_sequence
 and print_info_path unnamed_type=0

if print_info_path
   echo ------------------------------------------------------------------------
   echo Path: information_path
endif

set info_counter=0
for tag_param=type,value,ref,default,base,use

   dash %
   set tag_param_value=~value(tp_%tag_param)

   if tag_param_value~^tp_
   else
      add info_counter 1
      argdelim ^
      echo   ~to_Upper(~replace(TAG_ID^xsd_)): ~to_Upper(tag_param): ~replace(tag_param_value^xsd:)
      argdelim
   endif
   dash

endfor