#! /usr/local/bin/ruby

require 'xmlparser'

p = XML::Parser.new(nil, " ")
p.setReturnNSTriplet(true);

def p.startDoctypeDecl(name, sysid, pubid, has_internal)
  p ["startDoctypeDecl", sysid, pubid, has_internal]
end

def p.endDoctypeDecl
  p ["endDoctypeDecl"]
end

def p.elementDecl(name, model)
  p ["elementDecl", name, model]
end

def p.attlistDecl(elname, attname, att_type, dflt, isreq)
  p ["attlistDecl", elname, attname, att_type, dflt, isreq]
end

def p.xmlDecl(version, enc, standalone)
  p ["xmlDecl", version, enc, standalone]
end

def p.entityDecl(name, param, value, base, sysid, pubid, notation)
  p ["entityDecl", name, param, value, base, sysid, pubid, notation]
end

def p.startElement(name, attrs)
  p ["startElement", name, attrs]
end

def p.endElement(name)
  p ["endElement", name]
end

p.parse($<.read)