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")))))) _______________________________________________ Guile-user mailing list [email protected] http://lists.gnu.org/mailman/listinfo/guile-user
