fyi, refined mixp in ttn-do

[Thien-Thi Nguyen]

greetings earthlings,

just a quick note to mention that ttn-do 306 embeds mixp
(mixp wraps expat for guile).  this mixp is highly modified
(bugfixes and incompatible interface changes) from the one
released by the original Author, Thierry Bézecourt, so please
don't bother him w/ bugs/complaints (send them to me).

ttn-do 306 also includes xml2sexp, a small program that
makes use of the embedded mixp.  for example, below is
/usr/local/share/xcb/res.xml recast with nice parens.
much better, no?

for more info, see <http://www.gnuvola.org/software/ttn-do/>.

most likely the ttn-do mixp will evolve a bit as i play and
learn, then settle down more than a bit as i age and die.

thi


________________________________________________________
((comment
   "\nCopyright (C) 2006 Jeremy Kolb\n(((snip --ttn)))\n")
 xcb
 ((header . "res")
  (extension-xname . "X-Resource")
  (extension-name . "Res")
  (major-version . "1")
  (minor-version . "0"))
 (struct
   ((name . "Client"))
   (field ((type . "CARD32") (name . "resource_base")))
   (field ((type . "CARD32") (name . "resource_mask"))))
 (struct
   ((name . "Type"))
   (field ((type . "CARD32") (name . "resource_type")))
   (field ((type . "CARD32") (name . "count"))))
 (request
   ((name . "QueryVersion") (opcode . "0"))
   (field ((type . "CARD8") (name . "client_major")))
   (field ((type . "CARD8") (name . "client_minor")))
   (reply ()
          (pad ((bytes . "1")))
          (field ((type . "CARD16") (name . "server_major")))
          (field ((type . "CARD16") (name . "server_minor")))))
 (request
   ((name . "QueryClients") (opcode . "1"))
   (reply ()
          (pad ((bytes . "1")))
          (field ((type . "CARD32") (name . "num_clients")))
          (pad ((bytes . "20")))
          (list ((type . "Client") (name . "clients"))
                (fieldref () "num_clients"))))
 (request
   ((name . "QueryClientResources") (opcode . "2"))
   (field ((type . "CARD32") (name . "xid")))
   (reply ()
          (pad ((bytes . "1")))
          (field ((type . "CARD32") (name . "num_types")))
          (pad ((bytes . "20")))
          (list ((type . "Type") (name . "types"))
                (fieldref () "num_types"))))
 (request
   ((name . "QueryClientPixmapBytes")
    (opcode . "3"))
   (field ((type . "CARD32") (name . "xid")))
   (reply ()
          (pad ((bytes . "1")))
          (field ((type . "CARD32") (name . "bytes")))
          (field ((type . "CARD32") (name . "bytes_overflow"))))))