Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

First commit

  • Loading branch information...
commit d9f381e980779d6d1699ec3fd4cc742a6cb82186 0 parents
Mark Witmer authored
674 LICENSE
... ... @@ -0,0 +1,674 @@
  1 + GNU GENERAL PUBLIC LICENSE
  2 + Version 3, 29 June 2007
  3 +
  4 + Copyright (C) 2007 Free Software Foundation, Inc. <http://fsf.org/>
  5 + Everyone is permitted to copy and distribute verbatim copies
  6 + of this license document, but changing it is not allowed.
  7 +
  8 + Preamble
  9 +
  10 + The GNU General Public License is a free, copyleft license for
  11 +software and other kinds of works.
  12 +
  13 + The licenses for most software and other practical works are designed
  14 +to take away your freedom to share and change the works. By contrast,
  15 +the GNU General Public License is intended to guarantee your freedom to
  16 +share and change all versions of a program--to make sure it remains free
  17 +software for all its users. We, the Free Software Foundation, use the
  18 +GNU General Public License for most of our software; it applies also to
  19 +any other work released this way by its authors. You can apply it to
  20 +your programs, too.
  21 +
  22 + When we speak of free software, we are referring to freedom, not
  23 +price. Our General Public Licenses are designed to make sure that you
  24 +have the freedom to distribute copies of free software (and charge for
  25 +them if you wish), that you receive source code or can get it if you
  26 +want it, that you can change the software or use pieces of it in new
  27 +free programs, and that you know you can do these things.
  28 +
  29 + To protect your rights, we need to prevent others from denying you
  30 +these rights or asking you to surrender the rights. Therefore, you have
  31 +certain responsibilities if you distribute copies of the software, or if
  32 +you modify it: responsibilities to respect the freedom of others.
  33 +
  34 + For example, if you distribute copies of such a program, whether
  35 +gratis or for a fee, you must pass on to the recipients the same
  36 +freedoms that you received. You must make sure that they, too, receive
  37 +or can get the source code. And you must show them these terms so they
  38 +know their rights.
  39 +
  40 + Developers that use the GNU GPL protect your rights with two steps:
  41 +(1) assert copyright on the software, and (2) offer you this License
  42 +giving you legal permission to copy, distribute and/or modify it.
  43 +
  44 + For the developers' and authors' protection, the GPL clearly explains
  45 +that there is no warranty for this free software. For both users' and
  46 +authors' sake, the GPL requires that modified versions be marked as
  47 +changed, so that their problems will not be attributed erroneously to
  48 +authors of previous versions.
  49 +
  50 + Some devices are designed to deny users access to install or run
  51 +modified versions of the software inside them, although the manufacturer
  52 +can do so. This is fundamentally incompatible with the aim of
  53 +protecting users' freedom to change the software. The systematic
  54 +pattern of such abuse occurs in the area of products for individuals to
  55 +use, which is precisely where it is most unacceptable. Therefore, we
  56 +have designed this version of the GPL to prohibit the practice for those
  57 +products. If such problems arise substantially in other domains, we
  58 +stand ready to extend this provision to those domains in future versions
  59 +of the GPL, as needed to protect the freedom of users.
  60 +
  61 + Finally, every program is threatened constantly by software patents.
  62 +States should not allow patents to restrict development and use of
  63 +software on general-purpose computers, but in those that do, we wish to
  64 +avoid the special danger that patents applied to a free program could
  65 +make it effectively proprietary. To prevent this, the GPL assures that
  66 +patents cannot be used to render the program non-free.
  67 +
  68 + The precise terms and conditions for copying, distribution and
  69 +modification follow.
  70 +
  71 + TERMS AND CONDITIONS
  72 +
  73 + 0. Definitions.
  74 +
  75 + "This License" refers to version 3 of the GNU General Public License.
  76 +
  77 + "Copyright" also means copyright-like laws that apply to other kinds of
  78 +works, such as semiconductor masks.
  79 +
  80 + "The Program" refers to any copyrightable work licensed under this
  81 +License. Each licensee is addressed as "you". "Licensees" and
  82 +"recipients" may be individuals or organizations.
  83 +
  84 + To "modify" a work means to copy from or adapt all or part of the work
  85 +in a fashion requiring copyright permission, other than the making of an
  86 +exact copy. The resulting work is called a "modified version" of the
  87 +earlier work or a work "based on" the earlier work.
  88 +
  89 + A "covered work" means either the unmodified Program or a work based
  90 +on the Program.
  91 +
  92 + To "propagate" a work means to do anything with it that, without
  93 +permission, would make you directly or secondarily liable for
  94 +infringement under applicable copyright law, except executing it on a
  95 +computer or modifying a private copy. Propagation includes copying,
  96 +distribution (with or without modification), making available to the
  97 +public, and in some countries other activities as well.
  98 +
  99 + To "convey" a work means any kind of propagation that enables other
  100 +parties to make or receive copies. Mere interaction with a user through
  101 +a computer network, with no transfer of a copy, is not conveying.
  102 +
  103 + An interactive user interface displays "Appropriate Legal Notices"
  104 +to the extent that it includes a convenient and prominently visible
  105 +feature that (1) displays an appropriate copyright notice, and (2)
  106 +tells the user that there is no warranty for the work (except to the
  107 +extent that warranties are provided), that licensees may convey the
  108 +work under this License, and how to view a copy of this License. If
  109 +the interface presents a list of user commands or options, such as a
  110 +menu, a prominent item in the list meets this criterion.
  111 +
  112 + 1. Source Code.
  113 +
  114 + The "source code" for a work means the preferred form of the work
  115 +for making modifications to it. "Object code" means any non-source
  116 +form of a work.
  117 +
  118 + A "Standard Interface" means an interface that either is an official
  119 +standard defined by a recognized standards body, or, in the case of
  120 +interfaces specified for a particular programming language, one that
  121 +is widely used among developers working in that language.
  122 +
  123 + The "System Libraries" of an executable work include anything, other
  124 +than the work as a whole, that (a) is included in the normal form of
  125 +packaging a Major Component, but which is not part of that Major
  126 +Component, and (b) serves only to enable use of the work with that
  127 +Major Component, or to implement a Standard Interface for which an
  128 +implementation is available to the public in source code form. A
  129 +"Major Component", in this context, means a major essential component
  130 +(kernel, window system, and so on) of the specific operating system
  131 +(if any) on which the executable work runs, or a compiler used to
  132 +produce the work, or an object code interpreter used to run it.
  133 +
  134 + The "Corresponding Source" for a work in object code form means all
  135 +the source code needed to generate, install, and (for an executable
  136 +work) run the object code and to modify the work, including scripts to
  137 +control those activities. However, it does not include the work's
  138 +System Libraries, or general-purpose tools or generally available free
  139 +programs which are used unmodified in performing those activities but
  140 +which are not part of the work. For example, Corresponding Source
  141 +includes interface definition files associated with source files for
  142 +the work, and the source code for shared libraries and dynamically
  143 +linked subprograms that the work is specifically designed to require,
  144 +such as by intimate data communication or control flow between those
  145 +subprograms and other parts of the work.
  146 +
  147 + The Corresponding Source need not include anything that users
  148 +can regenerate automatically from other parts of the Corresponding
  149 +Source.
  150 +
  151 + The Corresponding Source for a work in source code form is that
  152 +same work.
  153 +
  154 + 2. Basic Permissions.
  155 +
  156 + All rights granted under this License are granted for the term of
  157 +copyright on the Program, and are irrevocable provided the stated
  158 +conditions are met. This License explicitly affirms your unlimited
  159 +permission to run the unmodified Program. The output from running a
  160 +covered work is covered by this License only if the output, given its
  161 +content, constitutes a covered work. This License acknowledges your
  162 +rights of fair use or other equivalent, as provided by copyright law.
  163 +
  164 + You may make, run and propagate covered works that you do not
  165 +convey, without conditions so long as your license otherwise remains
  166 +in force. You may convey covered works to others for the sole purpose
  167 +of having them make modifications exclusively for you, or provide you
  168 +with facilities for running those works, provided that you comply with
  169 +the terms of this License in conveying all material for which you do
  170 +not control copyright. Those thus making or running the covered works
  171 +for you must do so exclusively on your behalf, under your direction
  172 +and control, on terms that prohibit them from making any copies of
  173 +your copyrighted material outside their relationship with you.
  174 +
  175 + Conveying under any other circumstances is permitted solely under
  176 +the conditions stated below. Sublicensing is not allowed; section 10
  177 +makes it unnecessary.
  178 +
  179 + 3. Protecting Users' Legal Rights From Anti-Circumvention Law.
  180 +
  181 + No covered work shall be deemed part of an effective technological
  182 +measure under any applicable law fulfilling obligations under article
  183 +11 of the WIPO copyright treaty adopted on 20 December 1996, or
  184 +similar laws prohibiting or restricting circumvention of such
  185 +measures.
  186 +
  187 + When you convey a covered work, you waive any legal power to forbid
  188 +circumvention of technological measures to the extent such circumvention
  189 +is effected by exercising rights under this License with respect to
  190 +the covered work, and you disclaim any intention to limit operation or
  191 +modification of the work as a means of enforcing, against the work's
  192 +users, your or third parties' legal rights to forbid circumvention of
  193 +technological measures.
  194 +
  195 + 4. Conveying Verbatim Copies.
  196 +
  197 + You may convey verbatim copies of the Program's source code as you
  198 +receive it, in any medium, provided that you conspicuously and
  199 +appropriately publish on each copy an appropriate copyright notice;
  200 +keep intact all notices stating that this License and any
  201 +non-permissive terms added in accord with section 7 apply to the code;
  202 +keep intact all notices of the absence of any warranty; and give all
  203 +recipients a copy of this License along with the Program.
  204 +
  205 + You may charge any price or no price for each copy that you convey,
  206 +and you may offer support or warranty protection for a fee.
  207 +
  208 + 5. Conveying Modified Source Versions.
  209 +
  210 + You may convey a work based on the Program, or the modifications to
  211 +produce it from the Program, in the form of source code under the
  212 +terms of section 4, provided that you also meet all of these conditions:
  213 +
  214 + a) The work must carry prominent notices stating that you modified
  215 + it, and giving a relevant date.
  216 +
  217 + b) The work must carry prominent notices stating that it is
  218 + released under this License and any conditions added under section
  219 + 7. This requirement modifies the requirement in section 4 to
  220 + "keep intact all notices".
  221 +
  222 + c) You must license the entire work, as a whole, under this
  223 + License to anyone who comes into possession of a copy. This
  224 + License will therefore apply, along with any applicable section 7
  225 + additional terms, to the whole of the work, and all its parts,
  226 + regardless of how they are packaged. This License gives no
  227 + permission to license the work in any other way, but it does not
  228 + invalidate such permission if you have separately received it.
  229 +
  230 + d) If the work has interactive user interfaces, each must display
  231 + Appropriate Legal Notices; however, if the Program has interactive
  232 + interfaces that do not display Appropriate Legal Notices, your
  233 + work need not make them do so.
  234 +
  235 + A compilation of a covered work with other separate and independent
  236 +works, which are not by their nature extensions of the covered work,
  237 +and which are not combined with it such as to form a larger program,
  238 +in or on a volume of a storage or distribution medium, is called an
  239 +"aggregate" if the compilation and its resulting copyright are not
  240 +used to limit the access or legal rights of the compilation's users
  241 +beyond what the individual works permit. Inclusion of a covered work
  242 +in an aggregate does not cause this License to apply to the other
  243 +parts of the aggregate.
  244 +
  245 + 6. Conveying Non-Source Forms.
  246 +
  247 + You may convey a covered work in object code form under the terms
  248 +of sections 4 and 5, provided that you also convey the
  249 +machine-readable Corresponding Source under the terms of this License,
  250 +in one of these ways:
  251 +
  252 + a) Convey the object code in, or embodied in, a physical product
  253 + (including a physical distribution medium), accompanied by the
  254 + Corresponding Source fixed on a durable physical medium
  255 + customarily used for software interchange.
  256 +
  257 + b) Convey the object code in, or embodied in, a physical product
  258 + (including a physical distribution medium), accompanied by a
  259 + written offer, valid for at least three years and valid for as
  260 + long as you offer spare parts or customer support for that product
  261 + model, to give anyone who possesses the object code either (1) a
  262 + copy of the Corresponding Source for all the software in the
  263 + product that is covered by this License, on a durable physical
  264 + medium customarily used for software interchange, for a price no
  265 + more than your reasonable cost of physically performing this
  266 + conveying of source, or (2) access to copy the
  267 + Corresponding Source from a network server at no charge.
  268 +
  269 + c) Convey individual copies of the object code with a copy of the
  270 + written offer to provide the Corresponding Source. This
  271 + alternative is allowed only occasionally and noncommercially, and
  272 + only if you received the object code with such an offer, in accord
  273 + with subsection 6b.
  274 +
  275 + d) Convey the object code by offering access from a designated
  276 + place (gratis or for a charge), and offer equivalent access to the
  277 + Corresponding Source in the same way through the same place at no
  278 + further charge. You need not require recipients to copy the
  279 + Corresponding Source along with the object code. If the place to
  280 + copy the object code is a network server, the Corresponding Source
  281 + may be on a different server (operated by you or a third party)
  282 + that supports equivalent copying facilities, provided you maintain
  283 + clear directions next to the object code saying where to find the
  284 + Corresponding Source. Regardless of what server hosts the
  285 + Corresponding Source, you remain obligated to ensure that it is
  286 + available for as long as needed to satisfy these requirements.
  287 +
  288 + e) Convey the object code using peer-to-peer transmission, provided
  289 + you inform other peers where the object code and Corresponding
  290 + Source of the work are being offered to the general public at no
  291 + charge under subsection 6d.
  292 +
  293 + A separable portion of the object code, whose source code is excluded
  294 +from the Corresponding Source as a System Library, need not be
  295 +included in conveying the object code work.
  296 +
  297 + A "User Product" is either (1) a "consumer product", which means any
  298 +tangible personal property which is normally used for personal, family,
  299 +or household purposes, or (2) anything designed or sold for incorporation
  300 +into a dwelling. In determining whether a product is a consumer product,
  301 +doubtful cases shall be resolved in favor of coverage. For a particular
  302 +product received by a particular user, "normally used" refers to a
  303 +typical or common use of that class of product, regardless of the status
  304 +of the particular user or of the way in which the particular user
  305 +actually uses, or expects or is expected to use, the product. A product
  306 +is a consumer product regardless of whether the product has substantial
  307 +commercial, industrial or non-consumer uses, unless such uses represent
  308 +the only significant mode of use of the product.
  309 +
  310 + "Installation Information" for a User Product means any methods,
  311 +procedures, authorization keys, or other information required to install
  312 +and execute modified versions of a covered work in that User Product from
  313 +a modified version of its Corresponding Source. The information must
  314 +suffice to ensure that the continued functioning of the modified object
  315 +code is in no case prevented or interfered with solely because
  316 +modification has been made.
  317 +
  318 + If you convey an object code work under this section in, or with, or
  319 +specifically for use in, a User Product, and the conveying occurs as
  320 +part of a transaction in which the right of possession and use of the
  321 +User Product is transferred to the recipient in perpetuity or for a
  322 +fixed term (regardless of how the transaction is characterized), the
  323 +Corresponding Source conveyed under this section must be accompanied
  324 +by the Installation Information. But this requirement does not apply
  325 +if neither you nor any third party retains the ability to install
  326 +modified object code on the User Product (for example, the work has
  327 +been installed in ROM).
  328 +
  329 + The requirement to provide Installation Information does not include a
  330 +requirement to continue to provide support service, warranty, or updates
  331 +for a work that has been modified or installed by the recipient, or for
  332 +the User Product in which it has been modified or installed. Access to a
  333 +network may be denied when the modification itself materially and
  334 +adversely affects the operation of the network or violates the rules and
  335 +protocols for communication across the network.
  336 +
  337 + Corresponding Source conveyed, and Installation Information provided,
  338 +in accord with this section must be in a format that is publicly
  339 +documented (and with an implementation available to the public in
  340 +source code form), and must require no special password or key for
  341 +unpacking, reading or copying.
  342 +
  343 + 7. Additional Terms.
  344 +
  345 + "Additional permissions" are terms that supplement the terms of this
  346 +License by making exceptions from one or more of its conditions.
  347 +Additional permissions that are applicable to the entire Program shall
  348 +be treated as though they were included in this License, to the extent
  349 +that they are valid under applicable law. If additional permissions
  350 +apply only to part of the Program, that part may be used separately
  351 +under those permissions, but the entire Program remains governed by
  352 +this License without regard to the additional permissions.
  353 +
  354 + When you convey a copy of a covered work, you may at your option
  355 +remove any additional permissions from that copy, or from any part of
  356 +it. (Additional permissions may be written to require their own
  357 +removal in certain cases when you modify the work.) You may place
  358 +additional permissions on material, added by you to a covered work,
  359 +for which you have or can give appropriate copyright permission.
  360 +
  361 + Notwithstanding any other provision of this License, for material you
  362 +add to a covered work, you may (if authorized by the copyright holders of
  363 +that material) supplement the terms of this License with terms:
  364 +
  365 + a) Disclaiming warranty or limiting liability differently from the
  366 + terms of sections 15 and 16 of this License; or
  367 +
  368 + b) Requiring preservation of specified reasonable legal notices or
  369 + author attributions in that material or in the Appropriate Legal
  370 + Notices displayed by works containing it; or
  371 +
  372 + c) Prohibiting misrepresentation of the origin of that material, or
  373 + requiring that modified versions of such material be marked in
  374 + reasonable ways as different from the original version; or
  375 +
  376 + d) Limiting the use for publicity purposes of names of licensors or
  377 + authors of the material; or
  378 +
  379 + e) Declining to grant rights under trademark law for use of some
  380 + trade names, trademarks, or service marks; or
  381 +
  382 + f) Requiring indemnification of licensors and authors of that
  383 + material by anyone who conveys the material (or modified versions of
  384 + it) with contractual assumptions of liability to the recipient, for
  385 + any liability that these contractual assumptions directly impose on
  386 + those licensors and authors.
  387 +
  388 + All other non-permissive additional terms are considered "further
  389 +restrictions" within the meaning of section 10. If the Program as you
  390 +received it, or any part of it, contains a notice stating that it is
  391 +governed by this License along with a term that is a further
  392 +restriction, you may remove that term. If a license document contains
  393 +a further restriction but permits relicensing or conveying under this
  394 +License, you may add to a covered work material governed by the terms
  395 +of that license document, provided that the further restriction does
  396 +not survive such relicensing or conveying.
  397 +
  398 + If you add terms to a covered work in accord with this section, you
  399 +must place, in the relevant source files, a statement of the
  400 +additional terms that apply to those files, or a notice indicating
  401 +where to find the applicable terms.
  402 +
  403 + Additional terms, permissive or non-permissive, may be stated in the
  404 +form of a separately written license, or stated as exceptions;
  405 +the above requirements apply either way.
  406 +
  407 + 8. Termination.
  408 +
  409 + You may not propagate or modify a covered work except as expressly
  410 +provided under this License. Any attempt otherwise to propagate or
  411 +modify it is void, and will automatically terminate your rights under
  412 +this License (including any patent licenses granted under the third
  413 +paragraph of section 11).
  414 +
  415 + However, if you cease all violation of this License, then your
  416 +license from a particular copyright holder is reinstated (a)
  417 +provisionally, unless and until the copyright holder explicitly and
  418 +finally terminates your license, and (b) permanently, if the copyright
  419 +holder fails to notify you of the violation by some reasonable means
  420 +prior to 60 days after the cessation.
  421 +
  422 + Moreover, your license from a particular copyright holder is
  423 +reinstated permanently if the copyright holder notifies you of the
  424 +violation by some reasonable means, this is the first time you have
  425 +received notice of violation of this License (for any work) from that
  426 +copyright holder, and you cure the violation prior to 30 days after
  427 +your receipt of the notice.
  428 +
  429 + Termination of your rights under this section does not terminate the
  430 +licenses of parties who have received copies or rights from you under
  431 +this License. If your rights have been terminated and not permanently
  432 +reinstated, you do not qualify to receive new licenses for the same
  433 +material under section 10.
  434 +
  435 + 9. Acceptance Not Required for Having Copies.
  436 +
  437 + You are not required to accept this License in order to receive or
  438 +run a copy of the Program. Ancillary propagation of a covered work
  439 +occurring solely as a consequence of using peer-to-peer transmission
  440 +to receive a copy likewise does not require acceptance. However,
  441 +nothing other than this License grants you permission to propagate or
  442 +modify any covered work. These actions infringe copyright if you do
  443 +not accept this License. Therefore, by modifying or propagating a
  444 +covered work, you indicate your acceptance of this License to do so.
  445 +
  446 + 10. Automatic Licensing of Downstream Recipients.
  447 +
  448 + Each time you convey a covered work, the recipient automatically
  449 +receives a license from the original licensors, to run, modify and
  450 +propagate that work, subject to this License. You are not responsible
  451 +for enforcing compliance by third parties with this License.
  452 +
  453 + An "entity transaction" is a transaction transferring control of an
  454 +organization, or substantially all assets of one, or subdividing an
  455 +organization, or merging organizations. If propagation of a covered
  456 +work results from an entity transaction, each party to that
  457 +transaction who receives a copy of the work also receives whatever
  458 +licenses to the work the party's predecessor in interest had or could
  459 +give under the previous paragraph, plus a right to possession of the
  460 +Corresponding Source of the work from the predecessor in interest, if
  461 +the predecessor has it or can get it with reasonable efforts.
  462 +
  463 + You may not impose any further restrictions on the exercise of the
  464 +rights granted or affirmed under this License. For example, you may
  465 +not impose a license fee, royalty, or other charge for exercise of
  466 +rights granted under this License, and you may not initiate litigation
  467 +(including a cross-claim or counterclaim in a lawsuit) alleging that
  468 +any patent claim is infringed by making, using, selling, offering for
  469 +sale, or importing the Program or any portion of it.
  470 +
  471 + 11. Patents.
  472 +
  473 + A "contributor" is a copyright holder who authorizes use under this
  474 +License of the Program or a work on which the Program is based. The
  475 +work thus licensed is called the contributor's "contributor version".
  476 +
  477 + A contributor's "essential patent claims" are all patent claims
  478 +owned or controlled by the contributor, whether already acquired or
  479 +hereafter acquired, that would be infringed by some manner, permitted
  480 +by this License, of making, using, or selling its contributor version,
  481 +but do not include claims that would be infringed only as a
  482 +consequence of further modification of the contributor version. For
  483 +purposes of this definition, "control" includes the right to grant
  484 +patent sublicenses in a manner consistent with the requirements of
  485 +this License.
  486 +
  487 + Each contributor grants you a non-exclusive, worldwide, royalty-free
  488 +patent license under the contributor's essential patent claims, to
  489 +make, use, sell, offer for sale, import and otherwise run, modify and
  490 +propagate the contents of its contributor version.
  491 +
  492 + In the following three paragraphs, a "patent license" is any express
  493 +agreement or commitment, however denominated, not to enforce a patent
  494 +(such as an express permission to practice a patent or covenant not to
  495 +sue for patent infringement). To "grant" such a patent license to a
  496 +party means to make such an agreement or commitment not to enforce a
  497 +patent against the party.
  498 +
  499 + If you convey a covered work, knowingly relying on a patent license,
  500 +and the Corresponding Source of the work is not available for anyone
  501 +to copy, free of charge and under the terms of this License, through a
  502 +publicly available network server or other readily accessible means,
  503 +then you must either (1) cause the Corresponding Source to be so
  504 +available, or (2) arrange to deprive yourself of the benefit of the
  505 +patent license for this particular work, or (3) arrange, in a manner
  506 +consistent with the requirements of this License, to extend the patent
  507 +license to downstream recipients. "Knowingly relying" means you have
  508 +actual knowledge that, but for the patent license, your conveying the
  509 +covered work in a country, or your recipient's use of the covered work
  510 +in a country, would infringe one or more identifiable patents in that
  511 +country that you have reason to believe are valid.
  512 +
  513 + If, pursuant to or in connection with a single transaction or
  514 +arrangement, you convey, or propagate by procuring conveyance of, a
  515 +covered work, and grant a patent license to some of the parties
  516 +receiving the covered work authorizing them to use, propagate, modify
  517 +or convey a specific copy of the covered work, then the patent license
  518 +you grant is automatically extended to all recipients of the covered
  519 +work and works based on it.
  520 +
  521 + A patent license is "discriminatory" if it does not include within
  522 +the scope of its coverage, prohibits the exercise of, or is
  523 +conditioned on the non-exercise of one or more of the rights that are
  524 +specifically granted under this License. You may not convey a covered
  525 +work if you are a party to an arrangement with a third party that is
  526 +in the business of distributing software, under which you make payment
  527 +to the third party based on the extent of your activity of conveying
  528 +the work, and under which the third party grants, to any of the
  529 +parties who would receive the covered work from you, a discriminatory
  530 +patent license (a) in connection with copies of the covered work
  531 +conveyed by you (or copies made from those copies), or (b) primarily
  532 +for and in connection with specific products or compilations that
  533 +contain the covered work, unless you entered into that arrangement,
  534 +or that patent license was granted, prior to 28 March 2007.
  535 +
  536 + Nothing in this License shall be construed as excluding or limiting
  537 +any implied license or other defenses to infringement that may
  538 +otherwise be available to you under applicable patent law.
  539 +
  540 + 12. No Surrender of Others' Freedom.
  541 +
  542 + If conditions are imposed on you (whether by court order, agreement or
  543 +otherwise) that contradict the conditions of this License, they do not
  544 +excuse you from the conditions of this License. If you cannot convey a
  545 +covered work so as to satisfy simultaneously your obligations under this
  546 +License and any other pertinent obligations, then as a consequence you may
  547 +not convey it at all. For example, if you agree to terms that obligate you
  548 +to collect a royalty for further conveying from those to whom you convey
  549 +the Program, the only way you could satisfy both those terms and this
  550 +License would be to refrain entirely from conveying the Program.
  551 +
  552 + 13. Use with the GNU Affero General Public License.
  553 +
  554 + Notwithstanding any other provision of this License, you have
  555 +permission to link or combine any covered work with a work licensed
  556 +under version 3 of the GNU Affero General Public License into a single
  557 +combined work, and to convey the resulting work. The terms of this
  558 +License will continue to apply to the part which is the covered work,
  559 +but the special requirements of the GNU Affero General Public License,
  560 +section 13, concerning interaction through a network will apply to the
  561 +combination as such.
  562 +
  563 + 14. Revised Versions of this License.
  564 +
  565 + The Free Software Foundation may publish revised and/or new versions of
  566 +the GNU General Public License from time to time. Such new versions will
  567 +be similar in spirit to the present version, but may differ in detail to
  568 +address new problems or concerns.
  569 +
  570 + Each version is given a distinguishing version number. If the
  571 +Program specifies that a certain numbered version of the GNU General
  572 +Public License "or any later version" applies to it, you have the
  573 +option of following the terms and conditions either of that numbered
  574 +version or of any later version published by the Free Software
  575 +Foundation. If the Program does not specify a version number of the
  576 +GNU General Public License, you may choose any version ever published
  577 +by the Free Software Foundation.
  578 +
  579 + If the Program specifies that a proxy can decide which future
  580 +versions of the GNU General Public License can be used, that proxy's
  581 +public statement of acceptance of a version permanently authorizes you
  582 +to choose that version for the Program.
  583 +
  584 + Later license versions may give you additional or different
  585 +permissions. However, no additional obligations are imposed on any
  586 +author or copyright holder as a result of your choosing to follow a
  587 +later version.
  588 +
  589 + 15. Disclaimer of Warranty.
  590 +
  591 + THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY
  592 +APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT
  593 +HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY
  594 +OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO,
  595 +THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
  596 +PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM
  597 +IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF
  598 +ALL NECESSARY SERVICING, REPAIR OR CORRECTION.
  599 +
  600 + 16. Limitation of Liability.
  601 +
  602 + IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
  603 +WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MODIFIES AND/OR CONVEYS
  604 +THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY
  605 +GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE
  606 +USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF
  607 +DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD
  608 +PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS),
  609 +EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF
  610 +SUCH DAMAGES.
  611 +
  612 + 17. Interpretation of Sections 15 and 16.
  613 +
  614 + If the disclaimer of warranty and limitation of liability provided
  615 +above cannot be given local legal effect according to their terms,
  616 +reviewing courts shall apply local law that most closely approximates
  617 +an absolute waiver of all civil liability in connection with the
  618 +Program, unless a warranty or assumption of liability accompanies a
  619 +copy of the Program in return for a fee.
  620 +
  621 + END OF TERMS AND CONDITIONS
  622 +
  623 + How to Apply These Terms to Your New Programs
  624 +
  625 + If you develop a new program, and you want it to be of the greatest
  626 +possible use to the public, the best way to achieve this is to make it
  627 +free software which everyone can redistribute and change under these terms.
  628 +
  629 + To do so, attach the following notices to the program. It is safest
  630 +to attach them to the start of each source file to most effectively
  631 +state the exclusion of warranty; and each file should have at least
  632 +the "copyright" line and a pointer to where the full notice is found.
  633 +
  634 + <one line to give the program's name and a brief idea of what it does.>
  635 + Copyright (C) <year> <name of author>
  636 +
  637 + This program is free software: you can redistribute it and/or modify
  638 + it under the terms of the GNU General Public License as published by
  639 + the Free Software Foundation, either version 3 of the License, or
  640 + (at your option) any later version.
  641 +
  642 + This program is distributed in the hope that it will be useful,
  643 + but WITHOUT ANY WARRANTY; without even the implied warranty of
  644 + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  645 + GNU General Public License for more details.
  646 +
  647 + You should have received a copy of the GNU General Public License
  648 + along with this program. If not, see <http://www.gnu.org/licenses/>.
  649 +
  650 +Also add information on how to contact you by electronic and paper mail.
  651 +
  652 + If the program does terminal interaction, make it output a short
  653 +notice like this when it starts in an interactive mode:
  654 +
  655 + <program> Copyright (C) <year> <name of author>
  656 + This program comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
  657 + This is free software, and you are welcome to redistribute it
  658 + under certain conditions; type `show c' for details.
  659 +
  660 +The hypothetical commands `show w' and `show c' should show the appropriate
  661 +parts of the General Public License. Of course, your program's commands
  662 +might be different; for a GUI interface, you would use an "about box".
  663 +
  664 + You should also get your employer (if you work as a programmer) or school,
  665 +if any, to sign a "copyright disclaimer" for the program, if necessary.
  666 +For more information on this, and how to apply and follow the GNU GPL, see
  667 +<http://www.gnu.org/licenses/>.
  668 +
  669 + The GNU General Public License does not permit incorporating your program
  670 +into proprietary programs. If your program is a subroutine library, you
  671 +may consider it more useful to permit linking proprietary applications with
  672 +the library. If this is what you want to do, use the GNU Lesser General
  673 +Public License instead of this License. But first, please read
  674 +<http://www.gnu.org/philosophy/why-not-lgpl.html>.
78 README.org
Source Rendered
... ... @@ -0,0 +1,78 @@
  1 +#+TITLE: guile-xcb
  2 +#+AUTHOR: Mark Witmer
  3 +#+DESCRIPTION: A Guile implementation of the X protocol using xml/xcb
  4 +#+TODO: TODO(t) IN_PROGRESS(p) | DONE(d)
  5 +
  6 +* Overview
  7 +
  8 +guile-xcb is a client-side implementation of the X protocol written
  9 +(almost) entirely in Guile. It makes use of the Guile compilation
  10 +infrastructure and virtual machine to parse and compile the xml
  11 +descriptions of the X protocol provided by the xcb project into Guile
  12 +object code files, which can be loaded as modules into a running guile
  13 +process.
  14 +
  15 +The only component of this library not written in Guile so far is the
  16 +code for evaluating expressions; the operators specified in the xml
  17 +files (+, -, /, &, <<, etc.) expect C-like behavior, and the safest
  18 +way to achieve that is to provide a simple wrapper around C arithmetic
  19 +expressions. I would love to replace this with something in pure Guile
  20 +at a future date.
  21 +
  22 +* Documentation
  23 +
  24 +I will provide documentation for this package as development
  25 +progresses and it becomes usable. The basic API will be similar to the
  26 +C xcb api, but with syntactic adaptations making it more suitable for
  27 +use in scheme programming (vectors or lists instead of iterators,
  28 +callbacks to handle responses rather than cookies, etc.)
  29 +
  30 +* Simple Definitions
  31 +
  32 +I always wish projects like this would explain their acronyms and
  33 +jargon, so here are a few definitions:
  34 +
  35 +- *Guile*: "GNU Ubiquitous Intelligent Language for Extensions": a
  36 + programming system that includes an implementation of the scheme
  37 + programming language, a compiler for other languages, and a virtual
  38 + machine
  39 +- *Lisp*: Any one of a number of programming languages, primarily
  40 + identified by their use of s-expressions
  41 +- *Scheme*: A variant of lisp that focuses on minimal language design
  42 + and expressive syntax
  43 +- *s-expression*: Syntax where a list of elements are enclosed in
  44 + parentheses and separated by spaces. eg. /(list 1 2 3)/. The first
  45 + element in the list is often interpreted as an operator, with the
  46 + subsequent elements treated as arguments to the first.
  47 +- *X*: A windowing system originally implemented for Unix-based
  48 + systems. It has a client-server architecture where the server does
  49 + all the behind-the-scenes calculations for managing windows on a
  50 + graphical display, but leaves the actual rendering up to clients
  51 +- *X protocol*: A standardized set of requests, replies, and events
  52 + that an X server uses to communicate with its clients
  53 +- *xcb*: This stands for "X C Bindings", a C library that implements
  54 + the client side of the X protocol.
  55 +- *xml/xcb*: The underlying specification of the X protocol and
  56 + several common extensions that xcb uses, written in xml. The C code
  57 + is generated by running an xslt transformation on the xml files.
  58 +- *xslt*: "Extensible Stylesheet Language Transformations," a
  59 + programming language using xml syntax frequently used to transfer
  60 + one file (usually xml) into another file of a different format
  61 +
  62 +* Author
  63 +
  64 +Mark Witmer is the author of this library. You can contact him at
  65 +[[mark@markwitmer.com]].
  66 +
  67 +* Status
  68 +
  69 +Here is a brief outline of steps required to get this working, and
  70 +their current status:
  71 +
  72 +** DONE Parse xml files using sxml-match
  73 +** DONE Extract documentation and make it interactively browseable
  74 +** DONE Add typechecking for fields sent to and from the X server
  75 +** IN_PROGRESS Define structures with fields, lists, and padding
  76 +** TODO Implement packing/unpacking structures to binary representation
  77 +** TODO Connect to/disconnect from X server
  78 +** TODO Send/receive requests, replies, and events
77 expression.c
... ... @@ -0,0 +1,77 @@
  1 +// Make sure xcb expression arithmetic behaves EXACTLY like it would
  2 +// in C... by implementing it in C!
  3 +
  4 +#include <libguile.h>
  5 +
  6 +
  7 +SCM
  8 +plus_wrapper (SCM val1, SCM val2)
  9 +{
  10 + return scm_from_int(scm_to_int(val1) + scm_to_int(val2));
  11 +}
  12 +
  13 +SCM
  14 +minus_wrapper (SCM val1, SCM val2)
  15 +{
  16 + return scm_from_int(scm_to_int(val1) - scm_to_int(val2));
  17 +}
  18 +
  19 +SCM
  20 +multiply_wrapper (SCM val1, SCM val2)
  21 +{
  22 + return scm_from_int(scm_to_int(val1) * scm_to_int(val2));
  23 +}
  24 +
  25 +SCM
  26 +divide_wrapper (SCM val1, SCM val2)
  27 +{
  28 + return scm_from_int(scm_to_int(val1) / scm_to_int(val2));
  29 +}
  30 +
  31 +SCM
  32 +logand_wrapper (SCM val1, SCM val2)
  33 +{
  34 + return scm_from_int(scm_to_int(val1) & scm_to_int(val2));
  35 +}
  36 +
  37 +SCM
  38 +lshift_wrapper (SCM val1, SCM val2)
  39 +{
  40 + return scm_from_int(scm_to_int(val1) << scm_to_int(val2));
  41 +}
  42 +
  43 +SCM
  44 +lognot_wrapper (SCM val)
  45 +{
  46 + return scm_from_int(~scm_to_int(val));
  47 +}
  48 +
  49 +
  50 +SCM
  51 +popcount_wrapper (SCM val)
  52 +{
  53 + scm_t_int32 int_val;
  54 + int popcount, bit;
  55 +
  56 + int_val = scm_to_int(val);
  57 + popcount = int_val & 0x1;
  58 +
  59 + while(int_val = int_val >> 1) {
  60 + popcount += int_val & 0x1;
  61 + }
  62 +
  63 + return scm_from_int(popcount);
  64 +}
  65 +
  66 +void
  67 +init_xcb_expressions ()
  68 +{
  69 + scm_c_define_gsubr ("xcb-add", 2, 0, 0, plus_wrapper);
  70 + scm_c_define_gsubr ("xcb-subtract", 2, 0, 0, minus_wrapper);
  71 + scm_c_define_gsubr ("xcb-multiply", 2, 0, 0, multiply_wrapper);
  72 + scm_c_define_gsubr ("xcb-divide", 2, 0, 0, divide_wrapper);
  73 + scm_c_define_gsubr ("xcb-lsh", 2, 0, 0, lshift_wrapper);
  74 + scm_c_define_gsubr ("xcb-not", 1, 0, 0, lognot_wrapper);
  75 + scm_c_define_gsubr ("xcb-and", 2, 0, 0, logand_wrapper);
  76 + scm_c_define_gsubr ("xcb-popcount", 1, 0, 0, popcount_wrapper);
  77 +}
600 language/xml-xcb/compile-scheme.scm
... ... @@ -0,0 +1,600 @@
  1 +(define-module (language xml-xcb compile-scheme)
  2 + #:use-module (ice-9 regex)
  3 + #:use-module (ice-9 receive)
  4 + #:use-module (srfi srfi-1)
  5 + #:use-module (sxml simple)
  6 + #:use-module (sxml match))
  7 +
  8 +(load-extension "libguile_xcb_expression" "init_xcb_expressions")
  9 +
  10 +(define-public (parse-file file)
  11 + (with-input-from-file file
  12 + (lambda ()
  13 + (let ((exp (xml->sxml #:trim-whitespace? #t)))
  14 + (compile-body (if (eq? (caadr exp) '*PI*)
  15 + (caddr exp)
  16 + (cadr exp))
  17 + #f)))))
  18 +
  19 +(define-public (parse-string string)
  20 + (let ((exp (xml->sxml string #:trim-whitespace? #t)))
  21 + (compile-body (if (eq? (caadr exp) '*PI*)
  22 + (caddr exp)
  23 + (cadr exp))
  24 + #f)))
  25 +
  26 +(define-public (compile-scheme exp env opts)
  27 + (values
  28 + (compile-body
  29 + (if (eq? (caadr exp) '*PI*)
  30 + (caddr exp)
  31 + (cadr exp))
  32 + env)
  33 + env
  34 + env))
  35 +
  36 +(define (false-or pred?) (lambda (exp) (or (not exp) (pred? exp))))
  37 +
  38 +(define (xml-boolean? value)
  39 + (and
  40 + (string? value)
  41 + (or (equal? (string-downcase value) "true")
  42 + (equal? (string-downcase value) "false"))))
  43 +
  44 +(define hex-integer-regexp "^0x[0-9a-fA-F]+$")
  45 +(define xml-integer-regexp "^[-+]?[0-9]+$")
  46 +
  47 +(define (xml-integer? value)
  48 + (if (string-match xml-integer-regexp value) #t #f))
  49 +
  50 +(define (dec-or-hex-integer? value)
  51 + (or
  52 + (xml-integer? value)
  53 + (and
  54 + (string? value)
  55 + (if (string-match hex-integer-regexp value) #t #f))))
  56 +
  57 +(define element-syntax
  58 + (make-record-type
  59 + 'element-syntax
  60 + '(tag syntax documentation)
  61 + (lambda (el port)
  62 + (display
  63 + (format #f "<element-syntax [~a]>"
  64 + (element-syntax-tag el))
  65 + port))))
  66 +
  67 +(define element-syntax? (record-predicate element-syntax))
  68 +(define element-syntax-tag (record-accessor element-syntax 'tag))
  69 +(define element-syntax-syntax (record-accessor element-syntax 'syntax))
  70 +(define element-syntax-documentation-syntax
  71 + (record-accessor element-syntax 'documentation))
  72 +(define make-element-syntax (record-constructor element-syntax))
  73 +
  74 +(define combine-matchers
  75 + (lambda matchers
  76 + (lambda (exp)
  77 + (let perform-match ((matcher (car matchers)) (rest (cdr matchers)))
  78 + (or (matcher exp #t)
  79 + (if (null? rest)
  80 + (xml-xcb-parse-error exp #f)
  81 + (perform-match (car rest) (cdr rest))))))))
  82 +
  83 +(define (xml-xcb-parse-error exp ignore-error?)
  84 + (if ignore-error?
  85 + #f
  86 + (error "xml-xcb: invalid expression"
  87 + (with-output-to-string (lambda () (sxml->xml exp))))))
  88 +
  89 +(define (partition-elements elements . groups)
  90 + (let ((result-list
  91 + (let partition-element ((inner-elements elements) (inner-groups groups))
  92 + (if (null? inner-groups)
  93 + (if (> (length inner-elements) 0)
  94 + (error (format #f "xml-xcb: Unmatched tags ~a element list ~a"
  95 + inner-elements
  96 + elements))
  97 + '())
  98 + (receive (matches rest)
  99 + (partition
  100 + (lambda (element)
  101 + (eq? (element-syntax-tag element) (caar inner-groups)))
  102 + inner-elements)
  103 + (if (and (cadar inner-groups)
  104 + (< (length matches) (cadar inner-groups)))
  105 + (error (format #f "Too few instances of ~a in element list ~a"
  106 + (caar inner-groups) elements)))
  107 + (if (and (caddar inner-groups)
  108 + (> (length matches) (caddar inner-groups)))
  109 + (error (format #f "Too many instances of ~a in element list ~a"
  110 + (caar inner-groups) elements)))
  111 + (cons matches (partition-element rest (cdr inner-groups))))))))
  112 + (apply values result-list)))
  113 +
  114 +
  115 +(define (proc-for-op op)
  116 + (case (string->symbol op)
  117 + ((+) 'xcb-add)
  118 + ((-) 'xcb-subtract)
  119 + ((*) 'xcb-multiply)
  120 + ((~) 'xcb-not)
  121 + ((/) 'xcb-divide)
  122 + ((&) 'xcb-and)
  123 + ((<<) 'xcb-lsh)))
  124 +
  125 +(define* (exprfield-match exp #:optional ignore-error?)
  126 + (sxml-match exp
  127 + ((exprfield (@ (name ,name)
  128 + (type ,type)
  129 + (enum (,enum #f))
  130 + (altenum (,altenum #f))
  131 + (mask (,mask #f)))
  132 + ,[expression-match -> expression])
  133 + (guard
  134 + (string? name)
  135 + (string? type)
  136 + ((false-or string?) enum)
  137 + ((false-or string?) altenum)
  138 + ((false-or string?) mask))
  139 + (make-element-syntax 'exprfield expression #f))
  140 + (,otherwise (xml-xcb-parse-error exp ignore-error?))))
  141 +
  142 +(define* (reply-match exp request-name #:optional ignore-error?)
  143 + (sxml-match exp
  144 + ((reply ,[(combine-matchers
  145 + valueparam-match
  146 + fields-match
  147 + switch-match
  148 + doc-match) -> reply-fields] ...)
  149 + (receive (pads fields lists valueparams switch doc)
  150 + (partition-elements reply-fields
  151 + '(field 0 #f)
  152 + '(pad 0 #f)
  153 + '(list 0 #f)
  154 + '(valueparam 0 #f)
  155 + '(switch 0 1)
  156 + '(doc 0 1))
  157 + (if (= (length (append fields pads lists valueparams)) 0)
  158 + (error "xml-xcb: Need at least one fields or valueparam element in reply."))
  159 + (make-element-syntax
  160 + 'reply
  161 + #f
  162 + (if (= (length doc) 1)
  163 + (element-syntax-documentation-syntax (car doc))
  164 + #f))))
  165 + (,otherwise (xml-xcb-parse-error exp ignore-error?))))
  166 +
  167 +(define* (valueparam-match exp #:optional ignore-error?)
  168 + (sxml-match exp
  169 + ((valueparam (@ (value-mask-type ,value-mask-type)
  170 + (value-mask-name ,value-mask-name)
  171 + (value-list-name ,value-list-name)))
  172 + (guard
  173 + (string? value-mask-type)
  174 + (string? value-mask-name)
  175 + (string? value-list-name))
  176 + (make-element-syntax 'valueparam #f #f))
  177 + (,otherwise (xml-xcb-parse-error exp ignore-error?))))
  178 +
  179 +(define* (field-match exp #:optional ignore-error?)
  180 + (sxml-match exp
  181 + ((field (@ (name ,name)
  182 + (type ,type)
  183 + (enum (,enum #f))
  184 + (altenum (,altenum #f))
  185 + (mask (,mask #f))))
  186 + (guard
  187 + (string? name)
  188 + (string? type)
  189 + ((false-or string?) enum)
  190 + ((false-or string?) altenum)
  191 + ((false-or string?) mask))
  192 + (make-element-syntax 'field #f #f))
  193 + (,otherwise (xml-xcb-parse-error exp ignore-error?))))
  194 +
  195 +(define* (pad-match exp #:optional ignore-error?)
  196 + (sxml-match exp
  197 + ((pad (@ (bytes ,bytes)))
  198 + (guard
  199 + (xml-integer? bytes))
  200 + (make-element-syntax 'pad #f #f))
  201 + (,otherwise (xml-xcb-parse-error exp ignore-error?))))
  202 +
  203 +(define* (list-match exp #:optional ignore-error?)
  204 + (sxml-match exp
  205 + ((non-scheme-list (@ (name ,name)
  206 + (type ,type)
  207 + (enum (,enum #f))
  208 + (altenum (,altenum #f))
  209 + (mask (,mask #f)))
  210 + ,[expression-match -> expression] ...)
  211 + (guard
  212 + (string? name)
  213 + (string? type)
  214 + ((false-or string?) enum)
  215 + ((false-or string?) altenum)
  216 + ((false-or string?) mask))
  217 + (make-element-syntax 'list #f #f))
  218 + (,otherwise (xml-xcb-parse-error exp ignore-error?))))
  219 +
  220 +(define* (fields-match exp #:optional ignore-errors?)
  221 + (or (pad-match exp #t)
  222 + (field-match exp #t)
  223 + (if (eq? (car exp) 'list)
  224 + (list-match (cons 'non-scheme-list (cdr exp))) #f)
  225 + (xml-xcb-parse-error exp ignore-errors?)))
  226 +
  227 +(define* (switch-match exp #:optional ignore-errors?)
  228 + (sxml-match exp
  229 + ((switch (@ (name ,name))
  230 + ,[(combine-matchers
  231 + bitcase-match
  232 + expression-match
  233 + fields-match) -> switch-fields] ...)
  234 + (guard
  235 + (string? name))
  236 + (receive (bitcases expressions pads lists fields)
  237 + (partition-elements switch-fields
  238 + '(bitcase 1 #f)
  239 + '(expression 1 1)
  240 + '(pads 0 1)
  241 + '(lists 0 1)
  242 + '(fields 0 1))
  243 + (if (> (length (append pads lists fields)) 1)
  244 + (error "xml-xcb: Too many fields in switch expression"))
  245 + (make-element-syntax 'switch #f #f)))
  246 + (,otherwise (xml-xcb-parse-error exp ignore-errors?))))
  247 +
  248 +(define* (item-match exp #:optional ignore-errors?)
  249 + (sxml-match exp
  250 + ((item (@ (name (,name #f)))
  251 + ,[(combine-matchers
  252 + doc-match
  253 + expression-match) -> expressions-or-docs] ...)
  254 + (guard
  255 + ((false-or string?) name))
  256 + (receive (expression doc)
  257 + (partition-elements expressions-or-docs
  258 + '(expression 0 1)
  259 + '(doc 0 1))
  260 + (make-element-syntax
  261 + 'item
  262 + `(,(string->symbol name)
  263 + ((value
  264 + ,(if (= (length expression) 1)
  265 + `(,'unquote ,(element-syntax-syntax (car expression)))
  266 + (string->symbol name)))))
  267 + `(,name ,doc))))
  268 + (,otherwise (xml-xcb-parse-error exp ignore-errors?))))
  269 +
  270 +(define* (bitcase-match exp #:optional ignore-errors?)
  271 + (sxml-match exp
  272 + ((bitcase (@ (name (,name #f)))
  273 + ,[expression-match -> expression]
  274 + ,[(combine-matchers
  275 + fields-match
  276 + switch-match) -> fields] ...)
  277 + (guard
  278 + ((false-or string?) name))
  279 + (make-element-syntax 'bitcase #f #f))
  280 + (,otherwise (xml-xcb-parse-error exp ignore-errors?))))
  281 +
  282 +(define (macro-match exp)
  283 + (sxml-match exp
  284 + ((request (@ (name ,name)
  285 + (opcode ,opcode)
  286 + (combine-adjacent (,combine-adjacent #f)))
  287 + ,[(combine-matchers
  288 + exprfield-match
  289 + valueparam-match
  290 + fields-match
  291 + switch-match
  292 + (lambda* (el #:optional ignore-error?)
  293 + (reply-match el name ignore-error?))
  294 + doc-match) -> request-fields] ...)
  295 + (guard
  296 + (string? name)
  297 + (xml-integer? opcode)
  298 + ((false-or xml-boolean?) combine-adjacent))
  299 + (receive (exprfields valueparams fields pads lists switches replies doc)
  300 + (partition-elements request-fields
  301 + '(exprfield 0 #f)
  302 + '(field 0 #f)
  303 + '(pad 0 #f)
  304 + '(list 0 #f)
  305 + '(valueparam 0 #f)
  306 + '(switch 0 1)
  307 + '(reply 0 1)
  308 + '(doc 0 1))
  309 +
  310 + (make-element-syntax
  311 + 'request #f
  312 + (if (= (length doc) 1)
  313 + `(begin
  314 + (register-documentation xcbdoc
  315 + 'request ,name
  316 + ,(element-syntax-documentation-syntax (car doc)))
  317 + ,(if (and
  318 + (= (length replies) 1)
  319 + (element-syntax-documentation-syntax (car replies)))
  320 + `(register-documentation xcbdoc
  321 + 'reply ,name
  322 + ,(element-syntax-documentation-syntax (car replies)))
  323 + #f))
  324 + #f))))
  325 + ((event (@ (name ,name)
  326 + (number ,number)
  327 + (no-sequence-number (,no-sequence-number? #f)))
  328 + ,[(combine-matchers
  329 + doc-match
  330 + fields-match) -> fields] ...)
  331 + (guard
  332 + (string? name)
  333 + (xml-integer? number)
  334 + ((false-or xml-boolean?) no-sequence-number?))
  335 + (receive (doc pad field list)
  336 + (partition-elements fields
  337 + '(doc 0 1)
  338 + '(pad 0 #f)
  339 + '(field 0 #f)
  340 + '(list 0 #f))
  341 + (make-element-syntax
  342 + 'event
  343 + #f
  344 + (if (= (length doc) 1)
  345 + `(register-documentation xcbdoc
  346 + 'event ,name
  347 + ,(element-syntax-documentation-syntax (car doc)))
  348 + #f))))
  349 + ((eventcopy (@ (name ,name)
  350 + (number ,number)
  351 + (ref ,ref)))
  352 + (guard
  353 + (string? name)
  354 + (xml-integer? number)
  355 + (string? ref))
  356 + (make-element-syntax 'eventcopy #f #f))
  357 + ((errorcopy (@ (name ,name)
  358 + (number ,number)
  359 + (ref ,ref)))
  360 + (guard
  361 + (string? name)
  362 + (xml-integer? number)
  363 + (string? ref))
  364 + (make-element-syntax 'errorcopy #f #f))
  365 + ((error (@ (name ,name)
  366 + (number ,number))
  367 + ,[fields-match -> fields] ...)
  368 + (guard
  369 + (string? name)
  370 + (xml-integer? number))
  371 + (receive (fields pads lists)
  372 + (partition-elements fields
  373 + '(field 0 #f)
  374 + '(pad 0 #f)
  375 + '(list 0 #f))
  376 + (make-element-syntax 'error #f #f)))
  377 + ((import ,import) (guard (string? import))
  378 + (make-element-syntax 'import #f #f))
  379 + ((xidtype (@ (name ,name))) (guard (string? name))
  380 + (make-element-syntax 'xidtype #f #f))
  381 + ((xidunion (@ (name ,name))
  382 + (type ,types) ...)
  383 + (guard
  384 + (string? name)
  385 + (>= (length types) 1)
  386 + (every string? types))
  387 + (make-element-syntax 'xidunion #f #f))
  388 + ((enum (@ (name ,name))
  389 + ,[(combine-matchers