+++ /dev/null
-(use-modules (ice-9 match))
-(use-modules (ice-9 ftw))
-(define *scheme-sources-root* (format #f "~a/src/" (getcwd)))
-(define *scheme-binary-dir* (format #f "~a/bin/" (getcwd)))
-(define-syntax push
- (syntax-rules ()
- ((_ val list) (set! list (cons val list)))))
-
-(define-syntax pop
- (syntax-rules ()
- ((_ list) (let ((val (car list)))
- (begin
- (set! list (cdr list))
- val)))))
-
-(define (list-modules root)
- (define current-prefix '())
- (define modules '())
- (file-system-fold
- (and #:enter? (const #t))
- (and #:leaf (lambda (file . <>)
- (match (string-split (basename file) #\.)
- ((name "scm")
- (push modules (cons (string->symbol name)
- current-prefix)))
- (_ #f))))
- (and #:down (lambda (path . <>)
- (unless (equal? path root)
- (push current-prefix
- (string->symbol (basename path))))))
- (and #:up (lambda (path . <>)
- (unless (equal? path root)
- (pop current-prefix))))
- (and #:skip (const #t))
-
- (and #:error list)
- (and #:init #f)
- (and #:file-name root))
- (map reverse modules))
-
-(define (module-interface->list interface)
-
- #f
-)
+++ /dev/null
- GNU GENERAL PUBLIC LICENSE
- Version 3, 29 June 2007
-
- Copyright (C) 2007 Free Software Foundation, Inc. <http://fsf.org/>
- Everyone is permitted to copy and distribute verbatim copies
- of this license document, but changing it is not allowed.
-
- Preamble
-
- The GNU General Public License is a free, copyleft license for
-software and other kinds of works.
-
- The licenses for most software and other practical works are designed
-to take away your freedom to share and change the works. By contrast,
-the GNU General Public License is intended to guarantee your freedom to
-share and change all versions of a program--to make sure it remains free
-software for all its users. We, the Free Software Foundation, use the
-GNU General Public License for most of our software; it applies also to
-any other work released this way by its authors. You can apply it to
-your programs, too.
-
- When we speak of free software, we are referring to freedom, not
-price. Our General Public Licenses are designed to make sure that you
-have the freedom to distribute copies of free software (and charge for
-them if you wish), that you receive source code or can get it if you
-want it, that you can change the software or use pieces of it in new
-free programs, and that you know you can do these things.
-
- To protect your rights, we need to prevent others from denying you
-these rights or asking you to surrender the rights. Therefore, you have
-certain responsibilities if you distribute copies of the software, or if
-you modify it: responsibilities to respect the freedom of others.
-
- For example, if you distribute copies of such a program, whether
-gratis or for a fee, you must pass on to the recipients the same
-freedoms that you received. You must make sure that they, too, receive
-or can get the source code. And you must show them these terms so they
-know their rights.
-
- Developers that use the GNU GPL protect your rights with two steps:
-(1) assert copyright on the software, and (2) offer you this License
-giving you legal permission to copy, distribute and/or modify it.
-
- For the developers' and authors' protection, the GPL clearly explains
-that there is no warranty for this free software. For both users' and
-authors' sake, the GPL requires that modified versions be marked as
-changed, so that their problems will not be attributed erroneously to
-authors of previous versions.
-
- Some devices are designed to deny users access to install or run
-modified versions of the software inside them, although the manufacturer
-can do so. This is fundamentally incompatible with the aim of
-protecting users' freedom to change the software. The systematic
-pattern of such abuse occurs in the area of products for individuals to
-use, which is precisely where it is most unacceptable. Therefore, we
-have designed this version of the GPL to prohibit the practice for those
-products. If such problems arise substantially in other domains, we
-stand ready to extend this provision to those domains in future versions
-of the GPL, as needed to protect the freedom of users.
-
- Finally, every program is threatened constantly by software patents.
-States should not allow patents to restrict development and use of
-software on general-purpose computers, but in those that do, we wish to
-avoid the special danger that patents applied to a free program could
-make it effectively proprietary. To prevent this, the GPL assures that
-patents cannot be used to render the program non-free.
-
- The precise terms and conditions for copying, distribution and
-modification follow.
-
- TERMS AND CONDITIONS
-
- 0. Definitions.
-
- "This License" refers to version 3 of the GNU General Public License.
-
- "Copyright" also means copyright-like laws that apply to other kinds of
-works, such as semiconductor masks.
-
- "The Program" refers to any copyrightable work licensed under this
-License. Each licensee is addressed as "you". "Licensees" and
-"recipients" may be individuals or organizations.
-
- To "modify" a work means to copy from or adapt all or part of the work
-in a fashion requiring copyright permission, other than the making of an
-exact copy. The resulting work is called a "modified version" of the
-earlier work or a work "based on" the earlier work.
-
- A "covered work" means either the unmodified Program or a work based
-on the Program.
-
- To "propagate" a work means to do anything with it that, without
-permission, would make you directly or secondarily liable for
-infringement under applicable copyright law, except executing it on a
-computer or modifying a private copy. Propagation includes copying,
-distribution (with or without modification), making available to the
-public, and in some countries other activities as well.
-
- To "convey" a work means any kind of propagation that enables other
-parties to make or receive copies. Mere interaction with a user through
-a computer network, with no transfer of a copy, is not conveying.
-
- An interactive user interface displays "Appropriate Legal Notices"
-to the extent that it includes a convenient and prominently visible
-feature that (1) displays an appropriate copyright notice, and (2)
-tells the user that there is no warranty for the work (except to the
-extent that warranties are provided), that licensees may convey the
-work under this License, and how to view a copy of this License. If
-the interface presents a list of user commands or options, such as a
-menu, a prominent item in the list meets this criterion.
-
- 1. Source Code.
-
- The "source code" for a work means the preferred form of the work
-for making modifications to it. "Object code" means any non-source
-form of a work.
-
- A "Standard Interface" means an interface that either is an official
-standard defined by a recognized standards body, or, in the case of
-interfaces specified for a particular programming language, one that
-is widely used among developers working in that language.
-
- The "System Libraries" of an executable work include anything, other
-than the work as a whole, that (a) is included in the normal form of
-packaging a Major Component, but which is not part of that Major
-Component, and (b) serves only to enable use of the work with that
-Major Component, or to implement a Standard Interface for which an
-implementation is available to the public in source code form. A
-"Major Component", in this context, means a major essential component
-(kernel, window system, and so on) of the specific operating system
-(if any) on which the executable work runs, or a compiler used to
-produce the work, or an object code interpreter used to run it.
-
- The "Corresponding Source" for a work in object code form means all
-the source code needed to generate, install, and (for an executable
-work) run the object code and to modify the work, including scripts to
-control those activities. However, it does not include the work's
-System Libraries, or general-purpose tools or generally available free
-programs which are used unmodified in performing those activities but
-which are not part of the work. For example, Corresponding Source
-includes interface definition files associated with source files for
-the work, and the source code for shared libraries and dynamically
-linked subprograms that the work is specifically designed to require,
-such as by intimate data communication or control flow between those
-subprograms and other parts of the work.
-
- The Corresponding Source need not include anything that users
-can regenerate automatically from other parts of the Corresponding
-Source.
-
- The Corresponding Source for a work in source code form is that
-same work.
-
- 2. Basic Permissions.
-
- All rights granted under this License are granted for the term of
-copyright on the Program, and are irrevocable provided the stated
-conditions are met. This License explicitly affirms your unlimited
-permission to run the unmodified Program. The output from running a
-covered work is covered by this License only if the output, given its
-content, constitutes a covered work. This License acknowledges your
-rights of fair use or other equivalent, as provided by copyright law.
-
- You may make, run and propagate covered works that you do not
-convey, without conditions so long as your license otherwise remains
-in force. You may convey covered works to others for the sole purpose
-of having them make modifications exclusively for you, or provide you
-with facilities for running those works, provided that you comply with
-the terms of this License in conveying all material for which you do
-not control copyright. Those thus making or running the covered works
-for you must do so exclusively on your behalf, under your direction
-and control, on terms that prohibit them from making any copies of
-your copyrighted material outside their relationship with you.
-
- Conveying under any other circumstances is permitted solely under
-the conditions stated below. Sublicensing is not allowed; section 10
-makes it unnecessary.
-
- 3. Protecting Users' Legal Rights From Anti-Circumvention Law.
-
- No covered work shall be deemed part of an effective technological
-measure under any applicable law fulfilling obligations under article
-11 of the WIPO copyright treaty adopted on 20 December 1996, or
-similar laws prohibiting or restricting circumvention of such
-measures.
-
- When you convey a covered work, you waive any legal power to forbid
-circumvention of technological measures to the extent such circumvention
-is effected by exercising rights under this License with respect to
-the covered work, and you disclaim any intention to limit operation or
-modification of the work as a means of enforcing, against the work's
-users, your or third parties' legal rights to forbid circumvention of
-technological measures.
-
- 4. Conveying Verbatim Copies.
-
- You may convey verbatim copies of the Program's source code as you
-receive it, in any medium, provided that you conspicuously and
-appropriately publish on each copy an appropriate copyright notice;
-keep intact all notices stating that this License and any
-non-permissive terms added in accord with section 7 apply to the code;
-keep intact all notices of the absence of any warranty; and give all
-recipients a copy of this License along with the Program.
-
- You may charge any price or no price for each copy that you convey,
-and you may offer support or warranty protection for a fee.
-
- 5. Conveying Modified Source Versions.
-
- You may convey a work based on the Program, or the modifications to
-produce it from the Program, in the form of source code under the
-terms of section 4, provided that you also meet all of these conditions:
-
- a) The work must carry prominent notices stating that you modified
- it, and giving a relevant date.
-
- b) The work must carry prominent notices stating that it is
- released under this License and any conditions added under section
- 7. This requirement modifies the requirement in section 4 to
- "keep intact all notices".
-
- c) You must license the entire work, as a whole, under this
- License to anyone who comes into possession of a copy. This
- License will therefore apply, along with any applicable section 7
- additional terms, to the whole of the work, and all its parts,
- regardless of how they are packaged. This License gives no
- permission to license the work in any other way, but it does not
- invalidate such permission if you have separately received it.
-
- d) If the work has interactive user interfaces, each must display
- Appropriate Legal Notices; however, if the Program has interactive
- interfaces that do not display Appropriate Legal Notices, your
- work need not make them do so.
-
- A compilation of a covered work with other separate and independent
-works, which are not by their nature extensions of the covered work,
-and which are not combined with it such as to form a larger program,
-in or on a volume of a storage or distribution medium, is called an
-"aggregate" if the compilation and its resulting copyright are not
-used to limit the access or legal rights of the compilation's users
-beyond what the individual works permit. Inclusion of a covered work
-in an aggregate does not cause this License to apply to the other
-parts of the aggregate.
-
- 6. Conveying Non-Source Forms.
-
- You may convey a covered work in object code form under the terms
-of sections 4 and 5, provided that you also convey the
-machine-readable Corresponding Source under the terms of this License,
-in one of these ways:
-
- a) Convey the object code in, or embodied in, a physical product
- (including a physical distribution medium), accompanied by the
- Corresponding Source fixed on a durable physical medium
- customarily used for software interchange.
-
- b) Convey the object code in, or embodied in, a physical product
- (including a physical distribution medium), accompanied by a
- written offer, valid for at least three years and valid for as
- long as you offer spare parts or customer support for that product
- model, to give anyone who possesses the object code either (1) a
- copy of the Corresponding Source for all the software in the
- product that is covered by this License, on a durable physical
- medium customarily used for software interchange, for a price no
- more than your reasonable cost of physically performing this
- conveying of source, or (2) access to copy the
- Corresponding Source from a network server at no charge.
-
- c) Convey individual copies of the object code with a copy of the
- written offer to provide the Corresponding Source. This
- alternative is allowed only occasionally and noncommercially, and
- only if you received the object code with such an offer, in accord
- with subsection 6b.
-
- d) Convey the object code by offering access from a designated
- place (gratis or for a charge), and offer equivalent access to the
- Corresponding Source in the same way through the same place at no
- further charge. You need not require recipients to copy the
- Corresponding Source along with the object code. If the place to
- copy the object code is a network server, the Corresponding Source
- may be on a different server (operated by you or a third party)
- that supports equivalent copying facilities, provided you maintain
- clear directions next to the object code saying where to find the
- Corresponding Source. Regardless of what server hosts the
- Corresponding Source, you remain obligated to ensure that it is
- available for as long as needed to satisfy these requirements.
-
- e) Convey the object code using peer-to-peer transmission, provided
- you inform other peers where the object code and Corresponding
- Source of the work are being offered to the general public at no
- charge under subsection 6d.
-
- A separable portion of the object code, whose source code is excluded
-from the Corresponding Source as a System Library, need not be
-included in conveying the object code work.
-
- A "User Product" is either (1) a "consumer product", which means any
-tangible personal property which is normally used for personal, family,
-or household purposes, or (2) anything designed or sold for incorporation
-into a dwelling. In determining whether a product is a consumer product,
-doubtful cases shall be resolved in favor of coverage. For a particular
-product received by a particular user, "normally used" refers to a
-typical or common use of that class of product, regardless of the status
-of the particular user or of the way in which the particular user
-actually uses, or expects or is expected to use, the product. A product
-is a consumer product regardless of whether the product has substantial
-commercial, industrial or non-consumer uses, unless such uses represent
-the only significant mode of use of the product.
-
- "Installation Information" for a User Product means any methods,
-procedures, authorization keys, or other information required to install
-and execute modified versions of a covered work in that User Product from
-a modified version of its Corresponding Source. The information must
-suffice to ensure that the continued functioning of the modified object
-code is in no case prevented or interfered with solely because
-modification has been made.
-
- If you convey an object code work under this section in, or with, or
-specifically for use in, a User Product, and the conveying occurs as
-part of a transaction in which the right of possession and use of the
-User Product is transferred to the recipient in perpetuity or for a
-fixed term (regardless of how the transaction is characterized), the
-Corresponding Source conveyed under this section must be accompanied
-by the Installation Information. But this requirement does not apply
-if neither you nor any third party retains the ability to install
-modified object code on the User Product (for example, the work has
-been installed in ROM).
-
- The requirement to provide Installation Information does not include a
-requirement to continue to provide support service, warranty, or updates
-for a work that has been modified or installed by the recipient, or for
-the User Product in which it has been modified or installed. Access to a
-network may be denied when the modification itself materially and
-adversely affects the operation of the network or violates the rules and
-protocols for communication across the network.
-
- Corresponding Source conveyed, and Installation Information provided,
-in accord with this section must be in a format that is publicly
-documented (and with an implementation available to the public in
-source code form), and must require no special password or key for
-unpacking, reading or copying.
-
- 7. Additional Terms.
-
- "Additional permissions" are terms that supplement the terms of this
-License by making exceptions from one or more of its conditions.
-Additional permissions that are applicable to the entire Program shall
-be treated as though they were included in this License, to the extent
-that they are valid under applicable law. If additional permissions
-apply only to part of the Program, that part may be used separately
-under those permissions, but the entire Program remains governed by
-this License without regard to the additional permissions.
-
- When you convey a copy of a covered work, you may at your option
-remove any additional permissions from that copy, or from any part of
-it. (Additional permissions may be written to require their own
-removal in certain cases when you modify the work.) You may place
-additional permissions on material, added by you to a covered work,
-for which you have or can give appropriate copyright permission.
-
- Notwithstanding any other provision of this License, for material you
-add to a covered work, you may (if authorized by the copyright holders of
-that material) supplement the terms of this License with terms:
-
- a) Disclaiming warranty or limiting liability differently from the
- terms of sections 15 and 16 of this License; or
-
- b) Requiring preservation of specified reasonable legal notices or
- author attributions in that material or in the Appropriate Legal
- Notices displayed by works containing it; or
-
- c) Prohibiting misrepresentation of the origin of that material, or
- requiring that modified versions of such material be marked in
- reasonable ways as different from the original version; or
-
- d) Limiting the use for publicity purposes of names of licensors or
- authors of the material; or
-
- e) Declining to grant rights under trademark law for use of some
- trade names, trademarks, or service marks; or
-
- f) Requiring indemnification of licensors and authors of that
- material by anyone who conveys the material (or modified versions of
- it) with contractual assumptions of liability to the recipient, for
- any liability that these contractual assumptions directly impose on
- those licensors and authors.
-
- All other non-permissive additional terms are considered "further
-restrictions" within the meaning of section 10. If the Program as you
-received it, or any part of it, contains a notice stating that it is
-governed by this License along with a term that is a further
-restriction, you may remove that term. If a license document contains
-a further restriction but permits relicensing or conveying under this
-License, you may add to a covered work material governed by the terms
-of that license document, provided that the further restriction does
-not survive such relicensing or conveying.
-
- If you add terms to a covered work in accord with this section, you
-must place, in the relevant source files, a statement of the
-additional terms that apply to those files, or a notice indicating
-where to find the applicable terms.
-
- Additional terms, permissive or non-permissive, may be stated in the
-form of a separately written license, or stated as exceptions;
-the above requirements apply either way.
-
- 8. Termination.
-
- You may not propagate or modify a covered work except as expressly
-provided under this License. Any attempt otherwise to propagate or
-modify it is void, and will automatically terminate your rights under
-this License (including any patent licenses granted under the third
-paragraph of section 11).
-
- However, if you cease all violation of this License, then your
-license from a particular copyright holder is reinstated (a)
-provisionally, unless and until the copyright holder explicitly and
-finally terminates your license, and (b) permanently, if the copyright
-holder fails to notify you of the violation by some reasonable means
-prior to 60 days after the cessation.
-
- Moreover, your license from a particular copyright holder is
-reinstated permanently if the copyright holder notifies you of the
-violation by some reasonable means, this is the first time you have
-received notice of violation of this License (for any work) from that
-copyright holder, and you cure the violation prior to 30 days after
-your receipt of the notice.
-
- Termination of your rights under this section does not terminate the
-licenses of parties who have received copies or rights from you under
-this License. If your rights have been terminated and not permanently
-reinstated, you do not qualify to receive new licenses for the same
-material under section 10.
-
- 9. Acceptance Not Required for Having Copies.
-
- You are not required to accept this License in order to receive or
-run a copy of the Program. Ancillary propagation of a covered work
-occurring solely as a consequence of using peer-to-peer transmission
-to receive a copy likewise does not require acceptance. However,
-nothing other than this License grants you permission to propagate or
-modify any covered work. These actions infringe copyright if you do
-not accept this License. Therefore, by modifying or propagating a
-covered work, you indicate your acceptance of this License to do so.
-
- 10. Automatic Licensing of Downstream Recipients.
-
- Each time you convey a covered work, the recipient automatically
-receives a license from the original licensors, to run, modify and
-propagate that work, subject to this License. You are not responsible
-for enforcing compliance by third parties with this License.
-
- An "entity transaction" is a transaction transferring control of an
-organization, or substantially all assets of one, or subdividing an
-organization, or merging organizations. If propagation of a covered
-work results from an entity transaction, each party to that
-transaction who receives a copy of the work also receives whatever
-licenses to the work the party's predecessor in interest had or could
-give under the previous paragraph, plus a right to possession of the
-Corresponding Source of the work from the predecessor in interest, if
-the predecessor has it or can get it with reasonable efforts.
-
- You may not impose any further restrictions on the exercise of the
-rights granted or affirmed under this License. For example, you may
-not impose a license fee, royalty, or other charge for exercise of
-rights granted under this License, and you may not initiate litigation
-(including a cross-claim or counterclaim in a lawsuit) alleging that
-any patent claim is infringed by making, using, selling, offering for
-sale, or importing the Program or any portion of it.
-
- 11. Patents.
-
- A "contributor" is a copyright holder who authorizes use under this
-License of the Program or a work on which the Program is based. The
-work thus licensed is called the contributor's "contributor version".
-
- A contributor's "essential patent claims" are all patent claims
-owned or controlled by the contributor, whether already acquired or
-hereafter acquired, that would be infringed by some manner, permitted
-by this License, of making, using, or selling its contributor version,
-but do not include claims that would be infringed only as a
-consequence of further modification of the contributor version. For
-purposes of this definition, "control" includes the right to grant
-patent sublicenses in a manner consistent with the requirements of
-this License.
-
- Each contributor grants you a non-exclusive, worldwide, royalty-free
-patent license under the contributor's essential patent claims, to
-make, use, sell, offer for sale, import and otherwise run, modify and
-propagate the contents of its contributor version.
-
- In the following three paragraphs, a "patent license" is any express
-agreement or commitment, however denominated, not to enforce a patent
-(such as an express permission to practice a patent or covenant not to
-sue for patent infringement). To "grant" such a patent license to a
-party means to make such an agreement or commitment not to enforce a
-patent against the party.
-
- If you convey a covered work, knowingly relying on a patent license,
-and the Corresponding Source of the work is not available for anyone
-to copy, free of charge and under the terms of this License, through a
-publicly available network server or other readily accessible means,
-then you must either (1) cause the Corresponding Source to be so
-available, or (2) arrange to deprive yourself of the benefit of the
-patent license for this particular work, or (3) arrange, in a manner
-consistent with the requirements of this License, to extend the patent
-license to downstream recipients. "Knowingly relying" means you have
-actual knowledge that, but for the patent license, your conveying the
-covered work in a country, or your recipient's use of the covered work
-in a country, would infringe one or more identifiable patents in that
-country that you have reason to believe are valid.
-
- If, pursuant to or in connection with a single transaction or
-arrangement, you convey, or propagate by procuring conveyance of, a
-covered work, and grant a patent license to some of the parties
-receiving the covered work authorizing them to use, propagate, modify
-or convey a specific copy of the covered work, then the patent license
-you grant is automatically extended to all recipients of the covered
-work and works based on it.
-
- A patent license is "discriminatory" if it does not include within
-the scope of its coverage, prohibits the exercise of, or is
-conditioned on the non-exercise of one or more of the rights that are
-specifically granted under this License. You may not convey a covered
-work if you are a party to an arrangement with a third party that is
-in the business of distributing software, under which you make payment
-to the third party based on the extent of your activity of conveying
-the work, and under which the third party grants, to any of the
-parties who would receive the covered work from you, a discriminatory
-patent license (a) in connection with copies of the covered work
-conveyed by you (or copies made from those copies), or (b) primarily
-for and in connection with specific products or compilations that
-contain the covered work, unless you entered into that arrangement,
-or that patent license was granted, prior to 28 March 2007.
-
- Nothing in this License shall be construed as excluding or limiting
-any implied license or other defenses to infringement that may
-otherwise be available to you under applicable patent law.
-
- 12. No Surrender of Others' Freedom.
-
- If conditions are imposed on you (whether by court order, agreement or
-otherwise) that contradict the conditions of this License, they do not
-excuse you from the conditions of this License. If you cannot convey a
-covered work so as to satisfy simultaneously your obligations under this
-License and any other pertinent obligations, then as a consequence you may
-not convey it at all. For example, if you agree to terms that obligate you
-to collect a royalty for further conveying from those to whom you convey
-the Program, the only way you could satisfy both those terms and this
-License would be to refrain entirely from conveying the Program.
-
- 13. Use with the GNU Affero General Public License.
-
- Notwithstanding any other provision of this License, you have
-permission to link or combine any covered work with a work licensed
-under version 3 of the GNU Affero General Public License into a single
-combined work, and to convey the resulting work. The terms of this
-License will continue to apply to the part which is the covered work,
-but the special requirements of the GNU Affero General Public License,
-section 13, concerning interaction through a network will apply to the
-combination as such.
-
- 14. Revised Versions of this License.
-
- The Free Software Foundation may publish revised and/or new versions of
-the GNU General Public License from time to time. Such new versions will
-be similar in spirit to the present version, but may differ in detail to
-address new problems or concerns.
-
- Each version is given a distinguishing version number. If the
-Program specifies that a certain numbered version of the GNU General
-Public License "or any later version" applies to it, you have the
-option of following the terms and conditions either of that numbered
-version or of any later version published by the Free Software
-Foundation. If the Program does not specify a version number of the
-GNU General Public License, you may choose any version ever published
-by the Free Software Foundation.
-
- If the Program specifies that a proxy can decide which future
-versions of the GNU General Public License can be used, that proxy's
-public statement of acceptance of a version permanently authorizes you
-to choose that version for the Program.
-
- Later license versions may give you additional or different
-permissions. However, no additional obligations are imposed on any
-author or copyright holder as a result of your choosing to follow a
-later version.
-
- 15. Disclaimer of Warranty.
-
- THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY
-APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT
-HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY
-OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO,
-THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
-PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM
-IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF
-ALL NECESSARY SERVICING, REPAIR OR CORRECTION.
-
- 16. Limitation of Liability.
-
- IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
-WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MODIFIES AND/OR CONVEYS
-THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY
-GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE
-USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF
-DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD
-PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS),
-EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF
-SUCH DAMAGES.
-
- 17. Interpretation of Sections 15 and 16.
-
- If the disclaimer of warranty and limitation of liability provided
-above cannot be given local legal effect according to their terms,
-reviewing courts shall apply local law that most closely approximates
-an absolute waiver of all civil liability in connection with the
-Program, unless a warranty or assumption of liability accompanies a
-copy of the Program in return for a fee.
-
- END OF TERMS AND CONDITIONS
-
- How to Apply These Terms to Your New Programs
-
- If you develop a new program, and you want it to be of the greatest
-possible use to the public, the best way to achieve this is to make it
-free software which everyone can redistribute and change under these terms.
-
- To do so, attach the following notices to the program. It is safest
-to attach them to the start of each source file to most effectively
-state the exclusion of warranty; and each file should have at least
-the "copyright" line and a pointer to where the full notice is found.
-
- <one line to give the program's name and a brief idea of what it does.>
- Copyright (C) <year> <name of author>
-
- This program is free software: you can redistribute it and/or modify
- it under the terms of the GNU General Public License as published by
- the Free Software Foundation, either version 3 of the License, or
- (at your option) any later version.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- GNU General Public License for more details.
-
- You should have received a copy of the GNU General Public License
- along with this program. If not, see <http://www.gnu.org/licenses/>.
-
-Also add information on how to contact you by electronic and paper mail.
-
- If the program does terminal interaction, make it output a short
-notice like this when it starts in an interactive mode:
-
- <program> Copyright (C) <year> <name of author>
- This program comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
- This is free software, and you are welcome to redistribute it
- under certain conditions; type `show c' for details.
-
-The hypothetical commands `show w' and `show c' should show the appropriate
-parts of the General Public License. Of course, your program's commands
-might be different; for a GUI interface, you would use an "about box".
-
- You should also get your employer (if you work as a programmer) or school,
-if any, to sign a "copyright disclaimer" for the program, if necessary.
-For more information on this, and how to apply and follow the GNU GPL, see
-<http://www.gnu.org/licenses/>.
-
- The GNU General Public License does not permit incorporating your program
-into proprietary programs. If your program is a subroutine library, you
-may consider it more useful to permit linking proprietary applications with
-the library. If this is what you want to do, use the GNU Lesser General
-Public License instead of this License. But first, please read
-<http://www.gnu.org/philosophy/why-not-lgpl.html>.
+++ /dev/null
-Installation Instructions
-*************************
-
-Copyright (C) 1994-1996, 1999-2002, 2004-2013 Free Software Foundation,
-Inc.
-
- Copying and distribution of this file, with or without modification,
-are permitted in any medium without royalty provided the copyright
-notice and this notice are preserved. This file is offered as-is,
-without warranty of any kind.
-
-Basic Installation
-==================
-
- Briefly, the shell commands `./configure; make; make install' should
-configure, build, and install this package. The following
-more-detailed instructions are generic; see the `README' file for
-instructions specific to this package. Some packages provide this
-`INSTALL' file but do not implement all of the features documented
-below. The lack of an optional feature in a given package is not
-necessarily a bug. More recommendations for GNU packages can be found
-in *note Makefile Conventions: (standards)Makefile Conventions.
-
- The `configure' shell script attempts to guess correct values for
-various system-dependent variables used during compilation. It uses
-those values to create a `Makefile' in each directory of the package.
-It may also create one or more `.h' files containing system-dependent
-definitions. Finally, it creates a shell script `config.status' that
-you can run in the future to recreate the current configuration, and a
-file `config.log' containing compiler output (useful mainly for
-debugging `configure').
-
- It can also use an optional file (typically called `config.cache'
-and enabled with `--cache-file=config.cache' or simply `-C') that saves
-the results of its tests to speed up reconfiguring. Caching is
-disabled by default to prevent problems with accidental use of stale
-cache files.
-
- If you need to do unusual things to compile the package, please try
-to figure out how `configure' could check whether to do them, and mail
-diffs or instructions to the address given in the `README' so they can
-be considered for the next release. If you are using the cache, and at
-some point `config.cache' contains results you don't want to keep, you
-may remove or edit it.
-
- The file `configure.ac' (or `configure.in') is used to create
-`configure' by a program called `autoconf'. You need `configure.ac' if
-you want to change it or regenerate `configure' using a newer version
-of `autoconf'.
-
- The simplest way to compile this package is:
-
- 1. `cd' to the directory containing the package's source code and type
- `./configure' to configure the package for your system.
-
- Running `configure' might take a while. While running, it prints
- some messages telling which features it is checking for.
-
- 2. Type `make' to compile the package.
-
- 3. Optionally, type `make check' to run any self-tests that come with
- the package, generally using the just-built uninstalled binaries.
-
- 4. Type `make install' to install the programs and any data files and
- documentation. When installing into a prefix owned by root, it is
- recommended that the package be configured and built as a regular
- user, and only the `make install' phase executed with root
- privileges.
-
- 5. Optionally, type `make installcheck' to repeat any self-tests, but
- this time using the binaries in their final installed location.
- This target does not install anything. Running this target as a
- regular user, particularly if the prior `make install' required
- root privileges, verifies that the installation completed
- correctly.
-
- 6. You can remove the program binaries and object files from the
- source code directory by typing `make clean'. To also remove the
- files that `configure' created (so you can compile the package for
- a different kind of computer), type `make distclean'. There is
- also a `make maintainer-clean' target, but that is intended mainly
- for the package's developers. If you use it, you may have to get
- all sorts of other programs in order to regenerate files that came
- with the distribution.
-
- 7. Often, you can also type `make uninstall' to remove the installed
- files again. In practice, not all packages have tested that
- uninstallation works correctly, even though it is required by the
- GNU Coding Standards.
-
- 8. Some packages, particularly those that use Automake, provide `make
- distcheck', which can by used by developers to test that all other
- targets like `make install' and `make uninstall' work correctly.
- This target is generally not run by end users.
-
-Compilers and Options
-=====================
-
- Some systems require unusual options for compilation or linking that
-the `configure' script does not know about. Run `./configure --help'
-for details on some of the pertinent environment variables.
-
- You can give `configure' initial values for configuration parameters
-by setting variables in the command line or in the environment. Here
-is an example:
-
- ./configure CC=c99 CFLAGS=-g LIBS=-lposix
-
- *Note Defining Variables::, for more details.
-
-Compiling For Multiple Architectures
-====================================
-
- You can compile the package for more than one kind of computer at the
-same time, by placing the object files for each architecture in their
-own directory. To do this, you can use GNU `make'. `cd' to the
-directory where you want the object files and executables to go and run
-the `configure' script. `configure' automatically checks for the
-source code in the directory that `configure' is in and in `..'. This
-is known as a "VPATH" build.
-
- With a non-GNU `make', it is safer to compile the package for one
-architecture at a time in the source code directory. After you have
-installed the package for one architecture, use `make distclean' before
-reconfiguring for another architecture.
-
- On MacOS X 10.5 and later systems, you can create libraries and
-executables that work on multiple system types--known as "fat" or
-"universal" binaries--by specifying multiple `-arch' options to the
-compiler but only a single `-arch' option to the preprocessor. Like
-this:
-
- ./configure CC="gcc -arch i386 -arch x86_64 -arch ppc -arch ppc64" \
- CXX="g++ -arch i386 -arch x86_64 -arch ppc -arch ppc64" \
- CPP="gcc -E" CXXCPP="g++ -E"
-
- This is not guaranteed to produce working output in all cases, you
-may have to build one architecture at a time and combine the results
-using the `lipo' tool if you have problems.
-
-Installation Names
-==================
-
- By default, `make install' installs the package's commands under
-`/usr/local/bin', include files under `/usr/local/include', etc. You
-can specify an installation prefix other than `/usr/local' by giving
-`configure' the option `--prefix=PREFIX', where PREFIX must be an
-absolute file name.
-
- You can specify separate installation prefixes for
-architecture-specific files and architecture-independent files. If you
-pass the option `--exec-prefix=PREFIX' to `configure', the package uses
-PREFIX as the prefix for installing programs and libraries.
-Documentation and other data files still use the regular prefix.
-
- In addition, if you use an unusual directory layout you can give
-options like `--bindir=DIR' to specify different values for particular
-kinds of files. Run `configure --help' for a list of the directories
-you can set and what kinds of files go in them. In general, the
-default for these options is expressed in terms of `${prefix}', so that
-specifying just `--prefix' will affect all of the other directory
-specifications that were not explicitly provided.
-
- The most portable way to affect installation locations is to pass the
-correct locations to `configure'; however, many packages provide one or
-both of the following shortcuts of passing variable assignments to the
-`make install' command line to change installation locations without
-having to reconfigure or recompile.
-
- The first method involves providing an override variable for each
-affected directory. For example, `make install
-prefix=/alternate/directory' will choose an alternate location for all
-directory configuration variables that were expressed in terms of
-`${prefix}'. Any directories that were specified during `configure',
-but not in terms of `${prefix}', must each be overridden at install
-time for the entire installation to be relocated. The approach of
-makefile variable overrides for each directory variable is required by
-the GNU Coding Standards, and ideally causes no recompilation.
-However, some platforms have known limitations with the semantics of
-shared libraries that end up requiring recompilation when using this
-method, particularly noticeable in packages that use GNU Libtool.
-
- The second method involves providing the `DESTDIR' variable. For
-example, `make install DESTDIR=/alternate/directory' will prepend
-`/alternate/directory' before all installation names. The approach of
-`DESTDIR' overrides is not required by the GNU Coding Standards, and
-does not work on platforms that have drive letters. On the other hand,
-it does better at avoiding recompilation issues, and works well even
-when some directory options were not specified in terms of `${prefix}'
-at `configure' time.
-
-Optional Features
-=================
-
- If the package supports it, you can cause programs to be installed
-with an extra prefix or suffix on their names by giving `configure' the
-option `--program-prefix=PREFIX' or `--program-suffix=SUFFIX'.
-
- Some packages pay attention to `--enable-FEATURE' options to
-`configure', where FEATURE indicates an optional part of the package.
-They may also pay attention to `--with-PACKAGE' options, where PACKAGE
-is something like `gnu-as' or `x' (for the X Window System). The
-`README' should mention any `--enable-' and `--with-' options that the
-package recognizes.
-
- For packages that use the X Window System, `configure' can usually
-find the X include and library files automatically, but if it doesn't,
-you can use the `configure' options `--x-includes=DIR' and
-`--x-libraries=DIR' to specify their locations.
-
- Some packages offer the ability to configure how verbose the
-execution of `make' will be. For these packages, running `./configure
---enable-silent-rules' sets the default to minimal output, which can be
-overridden with `make V=1'; while running `./configure
---disable-silent-rules' sets the default to verbose, which can be
-overridden with `make V=0'.
-
-Particular systems
-==================
-
- On HP-UX, the default C compiler is not ANSI C compatible. If GNU
-CC is not installed, it is recommended to use the following options in
-order to use an ANSI C compiler:
-
- ./configure CC="cc -Ae -D_XOPEN_SOURCE=500"
-
-and if that doesn't work, install pre-built binaries of GCC for HP-UX.
-
- HP-UX `make' updates targets which have the same time stamps as
-their prerequisites, which makes it generally unusable when shipped
-generated files such as `configure' are involved. Use GNU `make'
-instead.
-
- On OSF/1 a.k.a. Tru64, some versions of the default C compiler cannot
-parse its `<wchar.h>' header file. The option `-nodtk' can be used as
-a workaround. If GNU CC is not installed, it is therefore recommended
-to try
-
- ./configure CC="cc"
-
-and if that doesn't work, try
-
- ./configure CC="cc -nodtk"
-
- On Solaris, don't put `/usr/ucb' early in your `PATH'. This
-directory contains several dysfunctional programs; working variants of
-these programs are available in `/usr/bin'. So, if you need `/usr/ucb'
-in your `PATH', put it _after_ `/usr/bin'.
-
- On Haiku, software installed for all users goes in `/boot/common',
-not `/usr/local'. It is recommended to use the following options:
-
- ./configure --prefix=/boot/common
-
-Specifying the System Type
-==========================
-
- There may be some features `configure' cannot figure out
-automatically, but needs to determine by the type of machine the package
-will run on. Usually, assuming the package is built to be run on the
-_same_ architectures, `configure' can figure that out, but if it prints
-a message saying it cannot guess the machine type, give it the
-`--build=TYPE' option. TYPE can either be a short name for the system
-type, such as `sun4', or a canonical name which has the form:
-
- CPU-COMPANY-SYSTEM
-
-where SYSTEM can have one of these forms:
-
- OS
- KERNEL-OS
-
- See the file `config.sub' for the possible values of each field. If
-`config.sub' isn't included in this package, then this package doesn't
-need to know the machine type.
-
- If you are _building_ compiler tools for cross-compiling, you should
-use the option `--target=TYPE' to select the type of system they will
-produce code for.
-
- If you want to _use_ a cross compiler, that generates code for a
-platform different from the build platform, you should specify the
-"host" platform (i.e., that on which the generated programs will
-eventually be run) with `--host=TYPE'.
-
-Sharing Defaults
-================
-
- If you want to set default values for `configure' scripts to share,
-you can create a site shell script called `config.site' that gives
-default values for variables like `CC', `cache_file', and `prefix'.
-`configure' looks for `PREFIX/share/config.site' if it exists, then
-`PREFIX/etc/config.site' if it exists. Or, you can set the
-`CONFIG_SITE' environment variable to the location of the site script.
-A warning: not all `configure' scripts look for a site script.
-
-Defining Variables
-==================
-
- Variables not defined in a site shell script can be set in the
-environment passed to `configure'. However, some packages may run
-configure again during the build, and the customized values of these
-variables may be lost. In order to avoid this problem, you should set
-them in the `configure' command line, using `VAR=value'. For example:
-
- ./configure CC=/usr/local2/bin/gcc
-
-causes the specified `gcc' to be used as the C compiler (unless it is
-overridden in the site shell script).
-
-Unfortunately, this technique does not work for `CONFIG_SHELL' due to
-an Autoconf limitation. Until the limitation is lifted, you can use
-this workaround:
-
- CONFIG_SHELL=/bin/bash ./configure CONFIG_SHELL=/bin/bash
-
-`configure' Invocation
-======================
-
- `configure' recognizes the following options to control how it
-operates.
-
-`--help'
-`-h'
- Print a summary of all of the options to `configure', and exit.
-
-`--help=short'
-`--help=recursive'
- Print a summary of the options unique to this package's
- `configure', and exit. The `short' variant lists options used
- only in the top level, while the `recursive' variant lists options
- also present in any nested packages.
-
-`--version'
-`-V'
- Print the version of Autoconf used to generate the `configure'
- script, and exit.
-
-`--cache-file=FILE'
- Enable the cache: use and save the results of the tests in FILE,
- traditionally `config.cache'. FILE defaults to `/dev/null' to
- disable caching.
-
-`--config-cache'
-`-C'
- Alias for `--cache-file=config.cache'.
-
-`--quiet'
-`--silent'
-`-q'
- Do not print messages saying which checks are being made. To
- suppress all normal output, redirect it to `/dev/null' (any error
- messages will still be shown).
-
-`--srcdir=DIR'
- Look for the package's source code in directory DIR. Usually
- `configure' can determine that directory automatically.
-
-`--prefix=DIR'
- Use DIR as the installation prefix. *note Installation Names::
- for more details, including other options available for fine-tuning
- the installation locations.
-
-`--no-create'
-`-n'
- Run the configure checks, but stop before creating any output
- files.
-
-`configure' also accepts some other, not widely useful, options. Run
-`configure --help' for more details.
+++ /dev/null
-SUBDIRS = src doc
+++ /dev/null
-This is attempt to totally rewrite GNU Thales.
-If you are intrested in source of previous version, feel free to
-use cvs repository.
\ No newline at end of file
+++ /dev/null
-Coding style
-========
-- GNU Standard, single statement block allowed.
-- Please use bool from <stdbool.h> over int
- unless you take address of variable.
\ No newline at end of file
+++ /dev/null
-AC_PREREQ([2.69])
-AC_INIT([GNU Thales], [1.91], [thales-misc@gnu.org])
-AC_CONFIG_HEADERS([config.h])
-AM_INIT_AUTOMAKE
-# Checks for programs.
-AC_PROG_CC_C99
-AC_GNU_SOURCE
-LT_INIT
-AC_CHECK_HEADER([libircclient/libircclient.h],[],
- [AC_MSG_ERROR([libircclient header not found])])
-AC_CHECK_LIB([ircclient],[irc_create_session],[],
- [AC_MSG_ERROR([libircclient library not found])])
-
-GUILE_PKG([2.0])
-GUILE_FLAGS
-GUILE_SITE_DIR
-GUILE_PROGS
-# Checks for typedefs, structures, and compiler characteristics.
-
-# Checks for library functions.
-AC_CONFIG_FILES([Makefile
- src/Makefile
- src/ffi/Makefile
- src/lisp/Makefile
- src/ffi/doc/Makefile
- doc/Makefile])
-AC_OUTPUT
+++ /dev/null
-info_TEXINFOS = thales.texi
-thales_TEXINFOS = fdl.texi
+++ /dev/null
-@c The GNU Free Documentation License.
-@center Version 1.3, 3 November 2008
-
-@c This file is intended to be included within another document,
-@c hence no sectioning command or @node.
-
-@display
-Copyright @copyright{} 2000, 2001, 2002, 2007, 2008, 2009, 2010, 2011
-Free Software Foundation, Inc.
-@uref{http://fsf.org/}
-
-Everyone is permitted to copy and distribute verbatim copies
-of this license document, but changing it is not allowed.
-@end display
-
-@enumerate 0
-@item
-PREAMBLE
-
-The purpose of this License is to make a manual, textbook, or other
-functional and useful document @dfn{free} in the sense of freedom: to
-assure everyone the effective freedom to copy and redistribute it,
-with or without modifying it, either commercially or noncommercially.
-Secondarily, this License preserves for the author and publisher a way
-to get credit for their work, while not being considered responsible
-for modifications made by others.
-
-This License is a kind of ``copyleft'', which means that derivative
-works of the document must themselves be free in the same sense. It
-complements the GNU General Public License, which is a copyleft
-license designed for free software.
-
-We have designed this License in order to use it for manuals for free
-software, because free software needs free documentation: a free
-program should come with manuals providing the same freedoms that the
-software does. But this License is not limited to software manuals;
-it can be used for any textual work, regardless of subject matter or
-whether it is published as a printed book. We recommend this License
-principally for works whose purpose is instruction or reference.
-
-@item
-APPLICABILITY AND DEFINITIONS
-
-This License applies to any manual or other work, in any medium, that
-contains a notice placed by the copyright holder saying it can be
-distributed under the terms of this License. Such a notice grants a
-world-wide, royalty-free license, unlimited in duration, to use that
-work under the conditions stated herein. The ``Document'', below,
-refers to any such manual or work. Any member of the public is a
-licensee, and is addressed as ``you''. You accept the license if you
-copy, modify or distribute the work in a way requiring permission
-under copyright law.
-
-A ``Modified Version'' of the Document means any work containing the
-Document or a portion of it, either copied verbatim, or with
-modifications and/or translated into another language.
-
-A ``Secondary Section'' is a named appendix or a front-matter section
-of the Document that deals exclusively with the relationship of the
-publishers or authors of the Document to the Document's overall
-subject (or to related matters) and contains nothing that could fall
-directly within that overall subject. (Thus, if the Document is in
-part a textbook of mathematics, a Secondary Section may not explain
-any mathematics.) The relationship could be a matter of historical
-connection with the subject or with related matters, or of legal,
-commercial, philosophical, ethical or political position regarding
-them.
-
-The ``Invariant Sections'' are certain Secondary Sections whose titles
-are designated, as being those of Invariant Sections, in the notice
-that says that the Document is released under this License. If a
-section does not fit the above definition of Secondary then it is not
-allowed to be designated as Invariant. The Document may contain zero
-Invariant Sections. If the Document does not identify any Invariant
-Sections then there are none.
-
-The ``Cover Texts'' are certain short passages of text that are listed,
-as Front-Cover Texts or Back-Cover Texts, in the notice that says that
-the Document is released under this License. A Front-Cover Text may
-be at most 5 words, and a Back-Cover Text may be at most 25 words.
-
-A ``Transparent'' copy of the Document means a machine-readable copy,
-represented in a format whose specification is available to the
-general public, that is suitable for revising the document
-straightforwardly with generic text editors or (for images composed of
-pixels) generic paint programs or (for drawings) some widely available
-drawing editor, and that is suitable for input to text formatters or
-for automatic translation to a variety of formats suitable for input
-to text formatters. A copy made in an otherwise Transparent file
-format whose markup, or absence of markup, has been arranged to thwart
-or discourage subsequent modification by readers is not Transparent.
-An image format is not Transparent if used for any substantial amount
-of text. A copy that is not ``Transparent'' is called ``Opaque''.
-
-Examples of suitable formats for Transparent copies include plain
-@sc{ascii} without markup, Texinfo input format, La@TeX{} input
-format, @acronym{SGML} or @acronym{XML} using a publicly available
-@acronym{DTD}, and standard-conforming simple @acronym{HTML},
-PostScript or @acronym{PDF} designed for human modification. Examples
-of transparent image formats include @acronym{PNG}, @acronym{XCF} and
-@acronym{JPG}. Opaque formats include proprietary formats that can be
-read and edited only by proprietary word processors, @acronym{SGML} or
-@acronym{XML} for which the @acronym{DTD} and/or processing tools are
-not generally available, and the machine-generated @acronym{HTML},
-PostScript or @acronym{PDF} produced by some word processors for
-output purposes only.
-
-The ``Title Page'' means, for a printed book, the title page itself,
-plus such following pages as are needed to hold, legibly, the material
-this License requires to appear in the title page. For works in
-formats which do not have any title page as such, ``Title Page'' means
-the text near the most prominent appearance of the work's title,
-preceding the beginning of the body of the text.
-
-The ``publisher'' means any person or entity that distributes copies
-of the Document to the public.
-
-A section ``Entitled XYZ'' means a named subunit of the Document whose
-title either is precisely XYZ or contains XYZ in parentheses following
-text that translates XYZ in another language. (Here XYZ stands for a
-specific section name mentioned below, such as ``Acknowledgements'',
-``Dedications'', ``Endorsements'', or ``History''.) To ``Preserve the Title''
-of such a section when you modify the Document means that it remains a
-section ``Entitled XYZ'' according to this definition.
-
-The Document may include Warranty Disclaimers next to the notice which
-states that this License applies to the Document. These Warranty
-Disclaimers are considered to be included by reference in this
-License, but only as regards disclaiming warranties: any other
-implication that these Warranty Disclaimers may have is void and has
-no effect on the meaning of this License.
-
-@item
-VERBATIM COPYING
-
-You may copy and distribute the Document in any medium, either
-commercially or noncommercially, provided that this License, the
-copyright notices, and the license notice saying this License applies
-to the Document are reproduced in all copies, and that you add no other
-conditions whatsoever to those of this License. You may not use
-technical measures to obstruct or control the reading or further
-copying of the copies you make or distribute. However, you may accept
-compensation in exchange for copies. If you distribute a large enough
-number of copies you must also follow the conditions in section 3.
-
-You may also lend copies, under the same conditions stated above, and
-you may publicly display copies.
-
-@item
-COPYING IN QUANTITY
-
-If you publish printed copies (or copies in media that commonly have
-printed covers) of the Document, numbering more than 100, and the
-Document's license notice requires Cover Texts, you must enclose the
-copies in covers that carry, clearly and legibly, all these Cover
-Texts: Front-Cover Texts on the front cover, and Back-Cover Texts on
-the back cover. Both covers must also clearly and legibly identify
-you as the publisher of these copies. The front cover must present
-the full title with all words of the title equally prominent and
-visible. You may add other material on the covers in addition.
-Copying with changes limited to the covers, as long as they preserve
-the title of the Document and satisfy these conditions, can be treated
-as verbatim copying in other respects.
-
-If the required texts for either cover are too voluminous to fit
-legibly, you should put the first ones listed (as many as fit
-reasonably) on the actual cover, and continue the rest onto adjacent
-pages.
-
-If you publish or distribute Opaque copies of the Document numbering
-more than 100, you must either include a machine-readable Transparent
-copy along with each Opaque copy, or state in or with each Opaque copy
-a computer-network location from which the general network-using
-public has access to download using public-standard network protocols
-a complete Transparent copy of the Document, free of added material.
-If you use the latter option, you must take reasonably prudent steps,
-when you begin distribution of Opaque copies in quantity, to ensure
-that this Transparent copy will remain thus accessible at the stated
-location until at least one year after the last time you distribute an
-Opaque copy (directly or through your agents or retailers) of that
-edition to the public.
-
-It is requested, but not required, that you contact the authors of the
-Document well before redistributing any large number of copies, to give
-them a chance to provide you with an updated version of the Document.
-
-@item
-MODIFICATIONS
-
-You may copy and distribute a Modified Version of the Document under
-the conditions of sections 2 and 3 above, provided that you release
-the Modified Version under precisely this License, with the Modified
-Version filling the role of the Document, thus licensing distribution
-and modification of the Modified Version to whoever possesses a copy
-of it. In addition, you must do these things in the Modified Version:
-
-@enumerate A
-@item
-Use in the Title Page (and on the covers, if any) a title distinct
-from that of the Document, and from those of previous versions
-(which should, if there were any, be listed in the History section
-of the Document). You may use the same title as a previous version
-if the original publisher of that version gives permission.
-
-@item
-List on the Title Page, as authors, one or more persons or entities
-responsible for authorship of the modifications in the Modified
-Version, together with at least five of the principal authors of the
-Document (all of its principal authors, if it has fewer than five),
-unless they release you from this requirement.
-
-@item
-State on the Title page the name of the publisher of the
-Modified Version, as the publisher.
-
-@item
-Preserve all the copyright notices of the Document.
-
-@item
-Add an appropriate copyright notice for your modifications
-adjacent to the other copyright notices.
-
-@item
-Include, immediately after the copyright notices, a license notice
-giving the public permission to use the Modified Version under the
-terms of this License, in the form shown in the Addendum below.
-
-@item
-Preserve in that license notice the full lists of Invariant Sections
-and required Cover Texts given in the Document's license notice.
-
-@item
-Include an unaltered copy of this License.
-
-@item
-Preserve the section Entitled ``History'', Preserve its Title, and add
-to it an item stating at least the title, year, new authors, and
-publisher of the Modified Version as given on the Title Page. If
-there is no section Entitled ``History'' in the Document, create one
-stating the title, year, authors, and publisher of the Document as
-given on its Title Page, then add an item describing the Modified
-Version as stated in the previous sentence.
-
-@item
-Preserve the network location, if any, given in the Document for
-public access to a Transparent copy of the Document, and likewise
-the network locations given in the Document for previous versions
-it was based on. These may be placed in the ``History'' section.
-You may omit a network location for a work that was published at
-least four years before the Document itself, or if the original
-publisher of the version it refers to gives permission.
-
-@item
-For any section Entitled ``Acknowledgements'' or ``Dedications'', Preserve
-the Title of the section, and preserve in the section all the
-substance and tone of each of the contributor acknowledgements and/or
-dedications given therein.
-
-@item
-Preserve all the Invariant Sections of the Document,
-unaltered in their text and in their titles. Section numbers
-or the equivalent are not considered part of the section titles.
-
-@item
-Delete any section Entitled ``Endorsements''. Such a section
-may not be included in the Modified Version.
-
-@item
-Do not retitle any existing section to be Entitled ``Endorsements'' or
-to conflict in title with any Invariant Section.
-
-@item
-Preserve any Warranty Disclaimers.
-@end enumerate
-
-If the Modified Version includes new front-matter sections or
-appendices that qualify as Secondary Sections and contain no material
-copied from the Document, you may at your option designate some or all
-of these sections as invariant. To do this, add their titles to the
-list of Invariant Sections in the Modified Version's license notice.
-These titles must be distinct from any other section titles.
-
-You may add a section Entitled ``Endorsements'', provided it contains
-nothing but endorsements of your Modified Version by various
-parties---for example, statements of peer review or that the text has
-been approved by an organization as the authoritative definition of a
-standard.
-
-You may add a passage of up to five words as a Front-Cover Text, and a
-passage of up to 25 words as a Back-Cover Text, to the end of the list
-of Cover Texts in the Modified Version. Only one passage of
-Front-Cover Text and one of Back-Cover Text may be added by (or
-through arrangements made by) any one entity. If the Document already
-includes a cover text for the same cover, previously added by you or
-by arrangement made by the same entity you are acting on behalf of,
-you may not add another; but you may replace the old one, on explicit
-permission from the previous publisher that added the old one.
-
-The author(s) and publisher(s) of the Document do not by this License
-give permission to use their names for publicity for or to assert or
-imply endorsement of any Modified Version.
-
-@item
-COMBINING DOCUMENTS
-
-You may combine the Document with other documents released under this
-License, under the terms defined in section 4 above for modified
-versions, provided that you include in the combination all of the
-Invariant Sections of all of the original documents, unmodified, and
-list them all as Invariant Sections of your combined work in its
-license notice, and that you preserve all their Warranty Disclaimers.
-
-The combined work need only contain one copy of this License, and
-multiple identical Invariant Sections may be replaced with a single
-copy. If there are multiple Invariant Sections with the same name but
-different contents, make the title of each such section unique by
-adding at the end of it, in parentheses, the name of the original
-author or publisher of that section if known, or else a unique number.
-Make the same adjustment to the section titles in the list of
-Invariant Sections in the license notice of the combined work.
-
-In the combination, you must combine any sections Entitled ``History''
-in the various original documents, forming one section Entitled
-``History''; likewise combine any sections Entitled ``Acknowledgements'',
-and any sections Entitled ``Dedications''. You must delete all
-sections Entitled ``Endorsements.''
-
-@item
-COLLECTIONS OF DOCUMENTS
-
-You may make a collection consisting of the Document and other documents
-released under this License, and replace the individual copies of this
-License in the various documents with a single copy that is included in
-the collection, provided that you follow the rules of this License for
-verbatim copying of each of the documents in all other respects.
-
-You may extract a single document from such a collection, and distribute
-it individually under this License, provided you insert a copy of this
-License into the extracted document, and follow this License in all
-other respects regarding verbatim copying of that document.
-
-@item
-AGGREGATION WITH INDEPENDENT WORKS
-
-A compilation of the Document or its derivatives with other separate
-and independent documents or works, in or on a volume of a storage or
-distribution medium, is called an ``aggregate'' if the copyright
-resulting from the compilation is not used to limit the legal rights
-of the compilation's users beyond what the individual works permit.
-When the Document is included in an aggregate, this License does not
-apply to the other works in the aggregate which are not themselves
-derivative works of the Document.
-
-If the Cover Text requirement of section 3 is applicable to these
-copies of the Document, then if the Document is less than one half of
-the entire aggregate, the Document's Cover Texts may be placed on
-covers that bracket the Document within the aggregate, or the
-electronic equivalent of covers if the Document is in electronic form.
-Otherwise they must appear on printed covers that bracket the whole
-aggregate.
-
-@item
-TRANSLATION
-
-Translation is considered a kind of modification, so you may
-distribute translations of the Document under the terms of section 4.
-Replacing Invariant Sections with translations requires special
-permission from their copyright holders, but you may include
-translations of some or all Invariant Sections in addition to the
-original versions of these Invariant Sections. You may include a
-translation of this License, and all the license notices in the
-Document, and any Warranty Disclaimers, provided that you also include
-the original English version of this License and the original versions
-of those notices and disclaimers. In case of a disagreement between
-the translation and the original version of this License or a notice
-or disclaimer, the original version will prevail.
-
-If a section in the Document is Entitled ``Acknowledgements'',
-``Dedications'', or ``History'', the requirement (section 4) to Preserve
-its Title (section 1) will typically require changing the actual
-title.
-
-@item
-TERMINATION
-
-You may not copy, modify, sublicense, or distribute the Document
-except as expressly provided under this License. Any attempt
-otherwise to copy, modify, sublicense, or distribute it is void, and
-will automatically terminate your rights under this License.
-
-However, if you cease all violation of this License, then your license
-from a particular copyright holder is reinstated (a) provisionally,
-unless and until the copyright holder explicitly and finally
-terminates your license, and (b) permanently, if the copyright holder
-fails to notify you of the violation by some reasonable means prior to
-60 days after the cessation.
-
-Moreover, your license from a particular copyright holder is
-reinstated permanently if the copyright holder notifies you of the
-violation by some reasonable means, this is the first time you have
-received notice of violation of this License (for any work) from that
-copyright holder, and you cure the violation prior to 30 days after
-your receipt of the notice.
-
-Termination of your rights under this section does not terminate the
-licenses of parties who have received copies or rights from you under
-this License. If your rights have been terminated and not permanently
-reinstated, receipt of a copy of some or all of the same material does
-not give you any rights to use it.
-
-@item
-FUTURE REVISIONS OF THIS LICENSE
-
-The Free Software Foundation may publish new, revised versions
-of the GNU Free Documentation License from time to time. Such new
-versions will be similar in spirit to the present version, but may
-differ in detail to address new problems or concerns. See
-@uref{http://www.gnu.org/copyleft/}.
-
-Each version of the License is given a distinguishing version number.
-If the Document specifies that a particular numbered version of this
-License ``or any later version'' applies to it, you have the option of
-following the terms and conditions either of that specified version or
-of any later version that has been published (not as a draft) by the
-Free Software Foundation. If the Document does not specify a version
-number of this License, you may choose any version ever published (not
-as a draft) by the Free Software Foundation. If the Document
-specifies that a proxy can decide which future versions of this
-License can be used, that proxy's public statement of acceptance of a
-version permanently authorizes you to choose that version for the
-Document.
-
-@item
-RELICENSING
-
-``Massive Multiauthor Collaboration Site'' (or ``MMC Site'') means any
-World Wide Web server that publishes copyrightable works and also
-provides prominent facilities for anybody to edit those works. A
-public wiki that anybody can edit is an example of such a server. A
-``Massive Multiauthor Collaboration'' (or ``MMC'') contained in the
-site means any set of copyrightable works thus published on the MMC
-site.
-
-``CC-BY-SA'' means the Creative Commons Attribution-Share Alike 3.0
-license published by Creative Commons Corporation, a not-for-profit
-corporation with a principal place of business in San Francisco,
-California, as well as future copyleft versions of that license
-published by that same organization.
-
-``Incorporate'' means to publish or republish a Document, in whole or
-in part, as part of another Document.
-
-An MMC is ``eligible for relicensing'' if it is licensed under this
-License, and if all works that were first published under this License
-somewhere other than this MMC, and subsequently incorporated in whole
-or in part into the MMC, (1) had no cover texts or invariant sections,
-and (2) were thus incorporated prior to November 1, 2008.
-
-The operator of an MMC Site may republish an MMC contained in the site
-under CC-BY-SA on the same site at any time before August 1, 2009,
-provided the MMC is eligible for relicensing.
-
-@end enumerate
-
-@page
-@heading ADDENDUM: How to use this License for your documents
-
-To use this License in a document you have written, include a copy of
-the License in the document and put the following copyright and
-license notices just after the title page:
-
-@smallexample
-@group
- Copyright (C) @var{year} @var{your name}.
- Permission is granted to copy, distribute and/or modify this document
- under the terms of the GNU Free Documentation License, Version 1.3
- or any later version published by the Free Software Foundation;
- with no Invariant Sections, no Front-Cover Texts, and no Back-Cover
- Texts. A copy of the license is included in the section entitled ``GNU
- Free Documentation License''.
-@end group
-@end smallexample
-
-If you have Invariant Sections, Front-Cover Texts and Back-Cover Texts,
-replace the ``with@dots{}Texts.'' line with this:
-
-@smallexample
-@group
- with the Invariant Sections being @var{list their titles}, with
- the Front-Cover Texts being @var{list}, and with the Back-Cover Texts
- being @var{list}.
-@end group
-@end smallexample
-
-If you have Invariant Sections without Cover Texts, or some other
-combination of the three, merge those two alternatives to suit the
-situation.
-
-If your document contains nontrivial examples of program code, we
-recommend releasing these examples in parallel under your choice of
-free software license, such as the GNU General Public License,
-to permit their use in free software.
-
-@c Local Variables:
-@c ispell-local-pdict: "ispell-dict"
-@c End:
-
+++ /dev/null
-\input texinfo @c -*- mode: texinfo -*-
-
-@c %**start of header
-@setfilename thales.info
-@documentencoding UTF-8
-@settitle GNU Thales Manual
-@setchapternewpage on
-@c %**end of header
-
-@copying
-This file documents the GNU Thales IRC gateway.
-
-Copyright @copyright{} 2012 Free Software Foundation,
-Inc.
-
-@iftex
-Permission is granted to make and distribute verbatim copies of
-this manual provided the copyright notice and this permission notice
-are preserved on all copies.
-@end iftex
-
-Permission is granted to copy, distribute and/or modify this document
-under the terms of the GNU Free Documentation License, Version 1.2 or
-any later version published by the Free Software Foundation; with no
-Invariant Sections, no Front-Cover Texts, and no Back-Cover Texts. A
-copy of the license is included in the section entitled ``GNU Free
-Documentation License''.
-@end copying
-
-@titlepage
-@title GNU Thales
-@subtitle IRC statistic collector and any-gateway.
-@author by Dmitry Bogatov
-
-@page
-@vskip 0pt plus 1filll
-@insertcopying
-@end titlepage
-
-@contents
-
-@ifnottex
-@node Top, History, (dir), (dir)
-@top Thales
-
-@insertcopying
-@end ifnottex
-
-@menu
-* History::
-* Invoking GNU Thales::
-* GNU Free Documentation License::
-@end menu
-
-@node History, Invoking GNU Thales, Top, Top
-@chapter How it all began
-
-GNU Thales originally was written by Lucas Nussbaum in 2002 - 2004
-years. It provided ability to collect statistics about IRC activity to
-MySQL database. However, it directly dealed with IRC server
-differencies and did not used GNUlib, so it's code was not too elegant
-and it was possible to choose only one target server, and only on
-compilation stage, that created problems for distribution. Also, it
-provided close to no documentation. It was not maintained since 2004.
-This version is still accessible on CVS project repository.
-
-This manual describes rewrite from scratch of GNU Thales. Development
-occurs in git repository on Savannah. New version intends to cover
-previous functionality in clean code via use on GNUlib and libircclient,
-and also provide direct access to database via specially structured irc messages.
-If you think you found bug in program or in this manual, please inform about
-it via mailing list @code{thales-misc@@gnu.org}
-
-@node Invoking GNU Thales, GNU Free Documentation License, History, Top
-@chapter Invoking GNU Thales
-
-@node GNU Free Documentation License, , Invoking GNU Thales, Top
-@chapter GNU Free Documentation License
-@include fdl.texi
-@bye
+++ /dev/null
-AM_CPPFLAGS=@GUILE_CFLAGS@
-snarfcppopts = $(DEFS) $(INCLUDES) $(CPPFLAGS) $(CFLAGS) $(AM_CPPFLAGS)
-lib_LTLIBRARIES=libguile-ircclient.la
-# Guile-snarf complains if I split init.c and cmd.c
-# So now init.c include cmd.c
-libguile_ircclient_la_SOURCES=init.x init.c
-SUFFIXES=.x
-.c.x:
- guile-snarf -o $@ $< $(snarfcppopts)
-SUBDIRS=doc
+++ /dev/null
-/* Copyright (C) 2012, 2013 Free Software Foundation, Inc.
- *
- * This file is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public License
- * as published by the Free Software Foundation; either version 3 of
- * the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful, but
- * WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
- * 02110-1301 USA
- */
-
-#include "definitions.h"
-
-SCM_DEFINE(scm_irc_cmd_join, "irc-cmd-join", 3, 0, 0,
- (SCM scm_session, SCM scm_channel, SCM scm_reason),
- "Join channel")
-{
- scm_dynwind_begin(0);
- irc_session_t *session = scm_to_irc_session(scm_session);
- char *channel = guarded_scm_to_ascii_string(scm_channel);
- char *reason = guarded_scm_to_ascii_string(scm_reason);
-
- irc_cmd_join(session, channel, reason);
- scm_dynwind_end();
- return SCM_UNSPECIFIED;
-}
-
-
-SCM_DEFINE(scm_irc_cmd_quit, "irc-cmd-quit", 2, 0, 0,
- (SCM s, SCM scm_reason),
- "Polite disconnect")
-{
- irc_session_t *session = scm_to_irc_session(s);
- char *reason = guarded_scm_to_ascii_string(scm_reason);
- int error = irc_cmd_quit(session, reason);
- if (error)
- scm_throw_from_irc_session(session);
- return SCM_UNSPECIFIED;
-}
-
-SCM_DEFINE (scm_irc_cmd_part, "irc-cmd-part", 2, 0, 0,
- (SCM s, SCM scm_channel),
- "Leaves the IRC channel. This function is used to leave the IRC channel"
- "you’ve already joined to. An attempt to leave the channel you aren’t"
- "in results a LIBIRC_RFC_ERR_NOTONCHANNEL server error.")
-{
- irc_session_t *session = scm_to_irc_session(s);
- char *channel = guarded_scm_to_ascii_string (scm_channel);
- int error = irc_cmd_part (session, channel);
- if (error)
- scm_throw_from_irc_session(session);
- return SCM_UNSPECIFIED;
-}
-
-SCM_DEFINE(scm_irc_cmd_names, "irc-cmd-names", 2, 0, 0,
- (SCM s, SCM scm_channel),
- "List users on specified channel")
-{
- irc_session_t *session = scm_to_irc_session(s);
- char *channel = guarded_scm_to_ascii_string(scm_channel);
- int error = irc_cmd_names(session, channel);
- if (error)
- scm_throw_from_irc_session(session);
- return SCM_UNSPECIFIED;
-}
-
-SCM_DEFINE(scm_irc_cmd_whois, "irc-cmd-whois", 2, 0, 0,
- (SCM s, SCM scm_nick),
- "Query about nick.")
-{
- irc_session_t *session = scm_to_irc_session(s);
- char *nick = guarded_scm_to_ascii_string(scm_nick);
- int error = irc_cmd_whois(session, nick);
- if (error)
- scm_throw_from_irc_session(session);
- return SCM_UNSPECIFIED;
-}
-
-SCM_DEFINE(scm_irc_send_raw, "irc-send-raw", 2, 0, 0,
- (SCM s, SCM scm_cmd),
- "Raw command to pass to server.")
-{
- irc_session_t *session = scm_to_irc_session(s);
- char *cmd = guarded_scm_to_ascii_string(scm_cmd);
- irc_send_raw(session, "%s", cmd);
- return SCM_UNSPECIFIED;
-}
-
-SCM_DEFINE(scm_irc_cmd_msg, "irc-cmd-msg", 3, 0, 0,
- (SCM s, SCM scm_to, SCM scm_what),
- "Send message to channel or user")
-{
- irc_session_t *session = scm_to_irc_session(s);
- char *to = guarded_scm_to_ascii_string(scm_to);
- char *what = guarded_scm_to_ascii_string(scm_what);
- irc_cmd_msg(session, to, what);
- return SCM_UNSPECIFIED;
-}
-
-SCM_DEFINE(scm_irc_cmd_invite, "irc-cmd-invite", 3, 0, 0,
- (SCM s, SCM scm_nick, SCM scm_channel),
- "Invite someone to invite-only channel."
+++ /dev/null
-/* Copyright (C) 2012 Free Software Foundation, Inc.
- *
- * This file is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public License
- * as published by the Free Software Foundation; either version 3 of
- * the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful, but
- * WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
- * 02110-1301 USA
- */
-#ifndef DEFINITIONS_H
-#define DEFINITIONS_H
-#include <guile/2.0/libguile.h>
-#include <libguile.h>
-#include <libircclient/libircclient.h>
-struct scm_t_irc_session
-{
- irc_session_t *session;
- SCM event_dispatcher;
- SCM numeric_dispatcher;
- SCM closure; /* third level of indirection */
-};
-
-void scm_throw_from_irc_session (irc_session_t * session);
-char* guarded_scm_to_ascii_string (SCM string_or_false);
-irc_session_t* scm_to_irc_session(SCM scm_session);
-
-#endif
+++ /dev/null
-info_TEXINFOS = guile-libircclient.texi
+++ /dev/null
-\input texinfo @c -*- texinfo -*-
-@c %**start of header
-@setfilename Guile-libircclient.info
-@settitle Guile-libircclient
-@c %**end of header
-@copying
-This is a documentation of a GNU Guile bindings to libircclient,
-version 1.6.
-
-Copyright @copyright{} 2013 Dmitry Bogatov.
-@end copying
-
-
-@titlepage
-@title Guile libircclient
-@page
-@vskip 0pt plus 1filll
-@insertcopying
-@end titlepage
-
-@contents
-
-@ifnottex
-@node Top, Introduction, (dir), (dir)
-@top Guile libircclient
-
-This is a documentation of a GNU Guile bindings to libircclient,
-version 1.6.
-@end ifnottex
-@menu
-* Introduction:: Description of IRC.
-* Reference::
-* Index:: Complete index.
-@end menu
-
-@node Introduction, Reference, Top, Top
-@chapter Introduction
-Two words what is IRC and why it it so problematic to deal with.
-
-@node Reference, Index, Introduction, Top
-@chapter Reference
-
-@menu
-* Manging connection::
-* Initiating commands::
-* Dealing with events::
-@end menu
-
-@node Manging connection, Initiating commands, Reference, Reference
-@section Manging connection
-
-@defun create-connection @var{#:server} @var{#:nickname} . keywords-args
-@findex create-connection
- Return opaque object of type @var{<irc-session>}, representing connection to irc server.
- All arguments require keyword syntax.
- @itemize
- @item @var{#:server} Mandatory. Address of server to connect.
- @item @var{#:nickname} Mandatory. Nickname to use. If already in use
- you will get error via numeric event.
- @item @var{#:port} TCP port of irc server. Defaults to 6667.
- @item @var{#:server-password} Password to connect to server. Rarely used.
- @item @var{#:username} Username, returned by whois query.
- @item @var{#:realname} Real name, returned by whois query.
- @item @var{#:ipv6} Boolean flag, whether server address belongs
- to ipv6 namespace. May be unavaliable.
- @end itemize
-@end defun
-
-@defun disconnect! @var{<irc-session>}
-@findex disconnect!
-This function closes the IRC connection. After that connection is
-closed, libircclient automatically leaves @code{run!} loop.
-
-@strong{Warning:} Due bug in underlying library, using this function under some
-circumstances results in buffer overflow. Prefer using @code{quit!}.
-@end defun
-
-@defun run! @var{<irc-session>}
-@findex run!
- Go into the loop, processing the IRC events, and calling appropriate
- callbacks. This function will not return until the server connection
- is terminated – either by server, or by calling @code{quit!}.
-@end defun
-
-@node Initiating commands, Dealing with events, Manging connection, Reference
-@section Initiating commands
-
-@defun join! @var{<irc-session>} @var{channel} @var{#:password}
-@findex join!
- Joins the new IRC channel. If the channel does not exist, it will be
- automatically created by the IRC server. Note that to JOIN the
- password-protected channel, you must know the password, and specify it
- in the key argument. If join is successful, the event_join will be
- called (with origin set to your nickname), then you are sent the
- channel’s topic (using event_topic) and the list of users who are on
- the channel (using LIBIRC_RFC_RPL_NAMREPLY), which will include the
- user joining – namely you.
-@end defun
-
-@defun quit! @var{<irc-session>} @var{#:reason}
-@findex quit!
-This function sends the QUIT command to the IRC
-server. Usually upon receiving this command the IRC server closes the
-connection.
-@end defun
-
-@defun part! @var{<irc-session>} @var{channel}
-@findex part!
-Leaves the IRC channel. This function is used to leave the IRC channel
-you’ve already joined to. An attempt to leave the channel you aren’t
-in results a LIBIRC_RFC_ERR_NOTONCHANNEL server error.
-@end defun
-@defun names! @var{<irc-session>} @var{channel}
-List users on @var{channel}.
-@end defun
-
-@defun raw! @var{<irc-session>} @var{command}
-Raw command to pass to server.
-@end defun
-
-@defun whois! @var{<irc-session>} @var{nickname}
-Query about nick.
-@end defun
-
-@node Dealing with events, , Initiating commands, Reference
-@section Dealing with events
-
-
-@defun hook-ref! @var{<irc-session>} @var{#:keyword}
-This function return hook will be runned in case of event,
-corresponding @var{#:keyword}. Here is list of all possible
-keywords. Note, that different hooks have different signatures.
-@defun #:connect @var{<irc-session>}
- Hook, runned on connection to server.
-@end defun
-
-@defun #:nick @var{<irc-session>} @var{old-nick} @var{new-nick}
- Hook, runned when someone change her nick from @var{old-nick} to @var{new-nick}
-@end defun
-
-@defun #:quit @var{<irc-session>} @var{nick} @var{reason}
- Hook, runned when @var{nick} quit from server with
- @var{reason}, that can be empty string.
-@end defun
-
-@defun #:join @var{<irc-session>} @var{channel} @var{nick}
- Hook, runned when @var{nick}, probably you, joined @var{channel}
-@end defun
-
-@defun #:part @var{<irc-session>} @var{channel} @var{nick} @var{reason}
- Hook, runned when @var{nick} parts from @var{channel} with @var{reason}, that
- can be empty string.
-@end defun
-
-@defun #:channel @var{<irc-session>} @var{channel} @var{nick} @var{text}
- Hook, runned when @var{nick} says aloud @var{text}(may be empty) at @var{channel}
-@end defun
-
-@end defun @c end of hook-ref!
-@node Index, , Reference, Top
-@unnumbered Index
-
-@printindex cp
-
-@bye
+++ /dev/null
-#include "definitions.h"
-#include <assert.h>
-#include <ctype.h>
-static irc_callbacks_t irc_callbacks;
-static SCM irc_error_symbol;
-static scm_t_bits scm_t_irc_session_tag;
-
-void
-scm_throw_from_irc_session (irc_session_t * session)
-{
- int errno = irc_errno (session);
- const char *errmsg = irc_strerror (errno);
- SCM scm_errmsg = scm_from_locale_string (errmsg);
- scm_throw (irc_error_symbol, scm_list_1 (scm_errmsg));
-}
-
-irc_session_t*
-scm_to_irc_session(SCM scm_session)
-{
- scm_assert_smob_type (scm_t_irc_session_tag, scm_session);
- struct scm_t_irc_session *scm_t_session = SCM_SMOB_DATA(scm_session);
- assert(scm_t_session);
- return scm_t_session->session;
-}
-
-char*
-guarded_scm_to_ascii_string (SCM string_or_false)
-{
- if (scm_is_false (string_or_false))
- return NULL;
-
- char *str = scm_to_locale_string (string_or_false);
- scm_dynwind_free (str);
- return str;
-}
-
-static inline SCM
-scm_from_string_array (const char **args, unsigned int count)
-{
- SCM result = SCM_EOL;
- for (unsigned int index = 0; index != count; ++index)
- {
- SCM current_parameter = scm_from_locale_string (args[index]);
- SCM current_parameter_list = scm_list_1 (current_parameter);
-
- result = scm_append (scm_list_2 (current_parameter_list, result));
- }
- return scm_reverse(result);
-}
-
-static void
-generic_event_handler (irc_session_t * sesion, const char *event,
- const char *origin, const char **params,
- unsigned int count)
-{
- struct scm_t_irc_session *scm_irc_session = irc_get_ctx (sesion);
- SCM scm_params = scm_from_string_array (params, count);
-
- scm_call_4 (scm_irc_session->event_dispatcher, scm_irc_session->closure,
- scm_from_locale_string (event), scm_from_locale_string (origin),
- scm_params);
-}
-
-SCM_DEFINE (scm_create_irc_session,
- "irc-create-session", 3, 0, 0,
- (SCM closure, SCM event_dispatcher, SCM numeric_dispatcher),
- "Create irc session with callback functions specified by alist. This is"
- "low-level api you should not use directly in user-level scheme code.")
-{
- struct scm_t_irc_session *scm_irc_session;
- irc_session_t *irc_session = irc_create_session (&irc_callbacks);
- scm_irc_session =
- scm_gc_malloc (sizeof (struct scm_t_irc_session), "irc-session");
- irc_set_ctx (irc_session, scm_irc_session);
-
- scm_irc_session->closure = closure;
- scm_irc_session->event_dispatcher = event_dispatcher;
- scm_irc_session->numeric_dispatcher = numeric_dispatcher;
- scm_irc_session->session = irc_session;
-
- return scm_new_smob (scm_t_irc_session_tag, (scm_t_bits) scm_irc_session);
-}
-
-SCM_DEFINE (scm_irc_connect, "irc-connect", 8, 0, 0,
- (SCM scm_session, SCM scm_server, SCM scm_port,
- SCM scm_nick, SCM scm_server_pass, SCM scm_username,
- SCM scm_realname, SCM scm_use_ipv6_p),
- "This function prepares and initiates a connection to the IRC"
- "server. The connection is done asynchronously (see"
- "event_connect), so the success return value means that"
- "connection was initiated successfully.")
-{
- irc_session_t *session = scm_to_irc_session(scm_session);
- scm_dynwind_begin (0);
- char *server = guarded_scm_to_ascii_string (scm_server);
- char *nick = guarded_scm_to_ascii_string (scm_nick);
- char *server_pass = guarded_scm_to_ascii_string (scm_server_pass);
- char *username = guarded_scm_to_ascii_string (scm_username);
- char *realname = guarded_scm_to_ascii_string (scm_realname);
- unsigned short int port = scm_to_uint16 (scm_port);
- int (*connect_fn) (irc_session_t *, const char *, unsigned short,
- const char *, const char *, const char *, const char *)
- = scm_to_bool (scm_use_ipv6_p) ? irc_connect6 : irc_connect;
- int error =
- (*connect_fn) (session, server, port, server_pass,
- nick, username, realname);
- if (error)
- scm_throw_from_irc_session (session);
-
- scm_dynwind_end ();
- scm_remember_upto_here_1 (scm_session);
- return SCM_UNSPECIFIED;
-}
-
-SCM_DEFINE (scm_irc_run, "irc-run", 1, 0, 0,
- (SCM scm_session),
- "This function goes into the loop, processing the IRC events, and"
- "calling appropriate callbacks. This function will not return until"
- "the server connection is terminated – either by server, or by calling"
- "irc_cmd_quit. This function should be used, if you don’t need"
- "asynchronous request processing (i.e. your bot just reacts on the"
- "events, and doesn’t generate it asynchronously). Even in last case,"
- "you still can call irc_run, and start the asynchronous thread in"
- "event_connect handler.")
-{
- scm_assert_smob_type (scm_t_irc_session_tag, scm_session);
- struct scm_t_irc_session *c_scm_session = SCM_SMOB_DATA (scm_session);
- irc_run (c_scm_session->session);
- /*
- * Error is not checked due bug in underlying library.
- */
- scm_remember_upto_here_1 (scm_session);
- return SCM_UNSPECIFIED;
-}
-
-static SCM
-scm_mark_irc_session (SCM s)
-{
- struct scm_t_irc_session *scm_session = SCM_SMOB_DATA(s);
-
- scm_gc_mark (scm_session->event_dispatcher);
- scm_gc_mark (scm_session->numeric_dispatcher);
- return scm_session->closure;
-}
-
-static size_t
-scm_free_irc_session (SCM s)
-{
- struct scm_t_irc_session *scm_session = SCM_SMOB_DATA(s);
- if (scm_session->session)
- {
- irc_disconnect(scm_session->session);
- irc_destroy_session (scm_session->session);
- }
- scm_session->session = NULL;
- return 0;
-}
-
-SCM_DEFINE (scm_irc_disconnect, "irc-disconnect", 1, 0, 0,
- (SCM s), "Rude disconnect.")
-{
- irc_session_t *session = scm_to_irc_session(s);
- irc_disconnect(session);
- return SCM_UNSPECIFIED;
-}
-
-
-static inline void
-setup_generic_event_handler (irc_callbacks_t * cb)
-{
- cb->event_connect
- = cb->event_nick
- = cb->event_quit
- = cb->event_join
- = cb->event_part
- = cb->event_mode
- = cb->event_umode
- = cb->event_topic
- = cb->event_kick
- = cb->event_channel
- = cb->event_privmsg
- = cb->event_notice
- = cb->event_channel_notice
- = cb->event_invite = generic_event_handler;
-}
-
-#include "cmd.c"
-#include "misc.c"
-void
-scm_init_im_irc ()
-{
- irc_error_symbol = scm_from_locale_symbol ("irc-error");
- setup_generic_event_handler (&irc_callbacks);
- scm_t_irc_session_tag =
- scm_make_smob_type ("irc-session", sizeof (struct scm_t_irc_session));
- scm_set_smob_mark (scm_t_irc_session_tag, scm_mark_irc_session);
- scm_set_smob_free (scm_t_irc_session_tag, scm_free_irc_session);
-
-#ifndef SCM_MAGIC_SNARFER
-#include "init.x"
-#endif
-}
+++ /dev/null
-/* Copyright (C) 2012, 2013 Free Software Foundation, Inc.
- *
- * This file is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public License
- * as published by the Free Software Foundation; either version 3 of
- * the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful, but
- * WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
- * 02110-1301 USA
- */
-
-#include "definitions.h"
-
-SCM_DEFINE(scm_irc_get_version, "irc-get-version", 0, 0, 0,
- (), "Get libircclient version")
-{
- unsigned int low;
- unsigned int high;
- irc_get_version(&high, &low);
- return scm_cons(scm_from_unsigned_integer(high),
- scm_from_unsigned_integer(low));
-}
-
-SCM_DEFINE(scm_irc_target_get_nick, "irc-target-get-nick", 1, 0, 0,
- (SCM scm_target), "Gets nick part of target.")
-{
- char buf[1024];
- char *target = guarded_scm_to_ascii_string(scm_target);
- irc_target_get_nick(target, buf, sizeof(buf));
- return scm_from_locale_string(buf);
-}
+++ /dev/null
-ircdir= @GUILE_SITE@/im
-irc_DATA= im/irc.scm
-
-preludedir= @GUILE_SITE@/functional
-prelude_DATA=functional/prelude.scm
-
-thalesdir= @GUILE_SITE@/thales
-thales_DATA=thales/init-database.scm
+++ /dev/null
-(define-module (functional prelude))
-
-(define-public (partial-apply fn . args)
- "Return function `fn` with first arguments bound with args."
- (lambda (. rest) (apply fn (append args rest))))
-
-(define-public (uncurry fn)
- "Make function `fn` accept first, dooted pair argument as two arguments.."
- (lambda (x y . rest) (apply fn (cons x y) rest)))
-
-(define-public (curry fn)
- "Make function fn to accept first two arguments as dotted pair."
- (lambda (pair . rest) (apply fn (car pair) (cons pair) rest)))
-
-(define-public (flip fn)
- "Return function `fn` with first two arguments flipped."
- (lambda (x y . rest) (apply fn y x rest)))
-
-(define-public (left-fold fn init val-list)
- "Left fold :: (a -> b -> a) -> a -> [b] -> a"
- (define (left-fold-iter acc vlist)
- (if (null? vlist) acc
- (left-fold-iter (fn acc (car vlist)) (cdr vlist))))
- (left-fold-iter init val-list))
-
-(define-public (right-fold fn init val-list)
- "Right fold :: (a -> b -> b) -> b -> [a] -> b "
- (define (right-fold-iter acc vlist)
- (if (null? vlist) acc
- (right-fold-iter (fn (car vlist) acc) (cdr vlist))))
- (right-fold-iter init val-list))
-
-(define-public (iterate fn init length)
- "Iterate function `fn` over value `init` `length` times to produce list."
- (define (iterate-iter prev vlist count)
- (let ((next (delay (fn prev))))
- (if (zero? count) vlist
- (iterate-iter (force next) (cons (force next) vlist) (1- count)))))
- (reverse (iterate-iter init '() length)))
-
-(define-public (iterate& fn init)
- (let ((value init))
- (lambda () (set! value (fn value)) value)))
+++ /dev/null
-#!/usr/bin/guile -s
-!#
-(use-modules (im irc))
-(use-modules (dbi dbi))
-(use-modules (ice-9 format))
-(use-modules (functional prelude))
-(use-modules (thales init-database))
-(use-modules)
-(define *user* "kaction")
-(define *pass* "fetchmail")
-(define *dbname* "KAction_db")
-(define *host* "kaction.name")
-(define *port* 3306)
-
-
-(define db-obj (dbi-open "mysql" (format #f "~a:~a:~a:tcp:~a:~d"
- *user* *pass* *dbname* *host* *port*)))
-(display db-obj) (newline)
-(initialize-database-tables db-obj)
-(dbi-close db-obj)
+++ /dev/null
-(define-module (im irc)
- #:version (1 6 0)
- #:use-module (functional prelude)
- #:use-module (oop goops)
- #:use-module (ice-9 optargs)
- #:use-module (ice-9 receive)
- #:export (create-connection raw! run! join! quit! disconnect! hook-ref!))
-(load-extension "libguile-ircclient" "scm_init_im_irc")
-
-(define-class <irc-session> ()
- (server #:getter &server)
- (nickname #:getter &nickname)
- event-hook-alist ;; (#:event . (hook arity))
- (ffi-session #:getter &ffi-session))
-
-(define-method (initialize (obj <irc-session>) args)
- "Documenation to be written."
- (let-keywords
- args #f ((server (error "<irc-session>:: server must be specified"))
- (nickname (error "<irc-session>:: nickname must be specified"))
- (port 6667)
- server-password username realname ipv6)
- (slot-set! obj 'server server)
- (slot-set! obj 'nickname nickname)
- (initialize-event-hook-alist obj)
- (let ((ffi-session (irc-create-session obj event-dispatcher numeric-dispatcher)))
- (slot-set! obj 'ffi-session ffi-session)
- (irc-connect ffi-session server port nickname
- server-password username realname ipv6))))
-
-
-(define-public (create-connection . args)
- (apply make <irc-session> args))
-
-
-(define-method (run! (obj <irc-session>))
- (irc-run (slot-ref obj 'ffi-session)))
-
-
-(define-method (join! (obj <irc-session>) (channel <string>) . args)
- (let-keywords args #f
- ((password #f))
- (irc-cmd-join (slot-ref obj 'ffi-session) channel password)))
-
-(define-method (quit! (obj <irc-session>) . args)
- (let-keywords args #f
- ((reason #f))
- (irc-cmd-quit (slot-ref obj 'ffi-session) reason)))
-(define-method (raw! (obj <irc-session>) command)
- (irc-send-raw (slot-ref obj 'ffi-session) command))
-
-(define-method (hook-ref! (obj <irc-session>) (event-keyword <keyword>))
- "Get hook for event "
- (car (or (assq-ref (slot-ref obj 'event-hook-alist) event-keyword)
- (error "Unsupported event" event-keyword))))
-
-(define-method (disconnect! (obj <irc-session>))
- "Rude disconnect from server. Due bug in underlying library,
- do not use it."
- (irc-disconnect (slot-ref obj 'ffi-session)))
-
-(define +event::symbol-arity-alist+
- '((#:connect . ()) ; <closure>
- (#:nick . (#f 0)) ; <closure> <old-nick> <new-nick>
- (#:quit . (#f 0)) ; <closure> <nick> <?reason>
- (#:join . (0 #f)) ; <closure> <channel> <nick>
- (#:part . (0 #f 1)) ; <closure> <channel> <nick> <?reason>
- (#:mode . (0 #f 1 2)) ; <closure> <channel> <nick> <mode> <?mode-args>
- (#:umode . (#f 0)) ; <closure> <nick> <mode>
- (#:topic . (0 #f 1)) ; <closure> <channel> <nick> <?new-topic>
- (#:kick . (0 #f 1 2)) ; <closure> <channel> <nick> <?victim> <?reason>
- (#:channel . (0 #f 1)) ; <closure> <channel> <nick> <?text>
- (#:privmsg . (#f 1)) ; <closure> <visavi> <?text>
- (#:notice . (#f 1)) ; <closure> <source> <?text>
- (#:invite . (1 #f)))) ;<closure> <channel> <origin>
-
-(define (get-arg origin params index)
- "Return argument, corresponding to `index`.
-If `index` equal -1, return origin, else params[index]."
- (if index
- (if (>= index (length params)) "" (list-ref params index))
- (irc-target-get-nick origin)))
-
-(define (get-args origin params template)
- "Return list of arguments to pass to `run-hook`."
- (map (partial-apply get-arg origin params) template))
-
-(define (event-dispatcher obj event-string origin params)
- "Dispatch C-API event handler to specific events hooks."
- (let* ((event-keyword (symbol->keyword (string->symbol (string-downcase event-string))))
- (hook&template (or (assq-ref (slot-ref obj 'event-hook-alist) event-keyword)
- (error "Unhandled event." event-keyword)))
- (hook (car hook&template))
- (template (cdr hook&template)))
- (apply run-hook hook obj (get-args origin params template))))
-
-(define (initialize-event-hook-alist obj)
- "Initialize event-hook-alist field of <irc-session> obj
-to list in format (#:event-keyword . (hook . hook-args-template))"
- (slot-set! obj 'event-hook-alist
- (map
- (lambda (pair)
- (let* ((keyword (car pair))
- (args-template (cdr pair))
- (arity (1+ (length args-template))))
- (cons
- keyword
- (cons (make-hook arity) args-template))))
- +event::symbol-arity-alist+)))
-
-(define (numeric-dispatcher obj event-code origin params)
- (display (format "~d\n" event-code)))
+++ /dev/null
-(define-module (thales init-database)
- #:version (0 1 0)
- #:use-module (dbi dbi)
- #:export (initialize-database-tables))
-
-(define +channel-init-query+ "CREATE TABLE IF NOT EXISTS chan (
- chanid int unsigned NOT NULL auto_increment,
- channel varchar(33) binary NOT NULL default '',
- topic text,
- topicauthor varchar(31) default NULL,
- topictime datetime default NULL,
- mode_lc enum('Y','N') NOT NULL default 'N',
- mode_lf enum('Y','N') NOT NULL default 'N',
- mode_li enum('Y','N') NOT NULL default 'N',
- mode_lj enum('Y','N') NOT NULL default 'N',
- mode_lk enum('Y','N') NOT NULL default 'N',
- mode_ll enum('Y','N') NOT NULL default 'N',
- mode_lm enum('Y','N') NOT NULL default 'N',
- mode_ln enum('Y','N') NOT NULL default 'N',
- mode_lp enum('Y','N') NOT NULL default 'N',
- mode_lr enum('Y','N') NOT NULL default 'N',
- mode_ls enum('Y','N') NOT NULL default 'N',
- mode_lt enum('Y','N') NOT NULL default 'N',
- mode_lu enum('Y','N') NOT NULL default 'N',
- mode_ly enum('Y','N') NOT NULL default 'N',
- mode_lz enum('Y','N') NOT NULL default 'N',
- mode_ua enum('Y','N') NOT NULL default 'N',
- mode_uc enum('Y','N') NOT NULL default 'N',
- mode_ud enum('Y','N') NOT NULL default 'N',
- mode_ug enum('Y','N') NOT NULL default 'N',
- mode_uh enum('Y','N') NOT NULL default 'N',
- mode_uk enum('Y','N') NOT NULL default 'N',
- mode_ul enum('Y','N') NOT NULL default 'N',
- mode_um enum('Y','N') NOT NULL default 'N',
- mode_un enum('Y','N') NOT NULL default 'N',
- mode_uo enum('Y','N') NOT NULL default 'N',
- mode_uq enum('Y','N') NOT NULL default 'N',
- mode_ur enum('Y','N') NOT NULL default 'N',
- mode_us enum('Y','N') NOT NULL default 'N',
- mode_ut enum('Y','N') NOT NULL default 'N',
- mode_uv enum('Y','N') NOT NULL default 'N',
- mode_ux enum('Y','N') NOT NULL default 'N',
- mode_uu enum('Y','N') NOT NULL default 'N',
- mode_lf_data varchar(20) NOT NULL default '',
- mode_lj_data varchar(5) NOT NULL default '',
- mode_lk_data varchar(23) NOT NULL default '',
- mode_ll_data int(10) NOT NULL default '0',
- mode_ul_data varchar(33) NOT NULL default '',
- PRIMARY KEY (chanid),
- UNIQUE KEY channel (channel));")
-
-(define +ison-init-query+ "CREATE TABLE IF NOT EXISTS ison (
- nickid int unsigned NOT NULL default '0',
- chanid int unsigned NOT NULL default '0',
- mode_la enum('Y','N') NOT NULL default 'N',
- mode_lh enum('Y','N') NOT NULL default 'N',
- mode_lo enum('Y','N') NOT NULL default 'N',
- mode_lq enum('Y','N') NOT NULL default 'N',
- mode_lv enum('Y','N') NOT NULL default 'N',
- PRIMARY KEY (nickid,chanid),
- KEY nickid (nickid),
- KEY chanid (chanid));")
-
-(define +server-init-query+ "CREATE TABLE IF NOT EXISTS server (
- servid int unsigned NOT NULL auto_increment,
- server varchar(64) NOT NULL default '',
- comment varchar(255) NOT NULL default '',
- linkedto int unsigned default NULL,
- connecttime datetime default NULL,
- online enum('Y','N') NOT NULL DEFAULT 'Y',
- lastsplit datetime default NULL,
- PRIMARY KEY (servid),
- UNIQUE KEY server (server),
- KEY linkedto (linkedto));")
-
-(define +user-init-query+ "CREATE TABLE IF NOT EXISTS user (
- nickid int unsigned NOT NULL auto_increment,
- nick varchar(31) NOT NULL default '',
- realname varchar(51) NOT NULL default '',
- hostname varchar(64) NOT NULL default '',
- hiddenhostname varchar(64) NOT NULL default '',
- username varchar(11) NOT NULL default '',
- swhois varchar(32) NOT NULL default '',
- connecttime datetime NOT NULL default '0000-00-00 00:00:00',
- servid int unsigned NOT NULL default '0',
- away enum('Y','N') NOT NULL default 'N',
- awaymsg text,
- online enum('Y','N') NOT NULL DEFAULT 'Y',
- lastquit datetime default NULL,
- mode_la enum('Y','N') NOT NULL default 'N',
- mode_lc enum('Y','N') NOT NULL default 'N',
- mode_ld enum('Y','N') NOT NULL default 'N',
- mode_lg enum('Y','N') NOT NULL default 'N',
- mode_lh enum('Y','N') NOT NULL default 'N',
- mode_li enum('Y','N') NOT NULL default 'N',
- mode_lo enum('Y','N') NOT NULL default 'N',
- mode_lp enum('Y','N') NOT NULL default 'N',
- mode_lq enum('Y','N') NOT NULL default 'N',
- mode_lr enum('Y','N') NOT NULL default 'N',
- mode_lt enum('Y','N') NOT NULL default 'N',
- mode_lv enum('Y','N') NOT NULL default 'N',
- mode_lw enum('Y','N') NOT NULL default 'N',
- mode_lx enum('Y','N') NOT NULL default 'N',
- mode_lz enum('Y','N') NOT NULL default 'N',
- mode_ua enum('Y','N') NOT NULL default 'N',
- mode_ub enum('Y','N') NOT NULL default 'N',
- mode_uc enum('Y','N') NOT NULL default 'N',
- mode_ud enum('Y','N') NOT NULL default 'N',
- mode_ug enum('Y','N') NOT NULL default 'N',
- mode_uh enum('Y','N') NOT NULL default 'N',
- mode_un enum('Y','N') NOT NULL default 'N',
- mode_ur enum('Y','N') NOT NULL default 'N',
- mode_us enum('Y','N') NOT NULL default 'N',
- mode_ut enum('Y','N') NOT NULL default 'N',
- mode_uv enum('Y','N') NOT NULL default 'N',
- mode_uu enum('Y','N') NOT NULL default 'N',
- mode_uw enum('Y','N') NOT NULL default 'N',
- PRIMARY KEY (nickid),
- UNIQUE KEY nick (nick),
- KEY servid (servid));")
-
-(define (initialize-database-tables db-obj)
- (map (lambda (query) (dbi-query db-obj (eval query (resolve-module '(thales init-database))))
- (let* ((status (dbi-get_status db-obj))
- (err-code (car status)) (err-message (cdr status)))
- (unless (zero? err-code)
- (error (format #f
- "Error while evaluating ~a database query.\nError message: ~a."
- query err-message)))))
- '(+channel-init-query+ +ison-init-query+ +server-init-query+ +user-init-query+)))
+++ /dev/null
-(define-module (thales compile)
- #:use-module (thales seal)
- #:use-module (thales syntax)
- #:use-module (system base compile)
- #:use-module (thales prepare)
- #:export (perform-compile mkdir-p with-current-working-directory
- touch-p))
-(define (path-absolute? path)
- (string-starts-with path "/"))
-
-(define-syntax with-current-working-directory
- (syntax-rules ()
- ((_ expr ...)
- (let ((saved-cwd (getcwd)))
- (catch #t
- (lambda () expr ... (chdir saved-cwd))
- (lambda args (chdir saved-cwd) (apply throw args)))))))
-
-(define-syntax with-ignored-exceptions
- (syntax-rules ()
- ((_ expr ...)
- (catch #t (lambda () expr ...)
- (const #f)))))
-
-(define (mkdir-p path)
- (define (make-and-step dir)
- (unless (file-exists? dir)
- (mkdir dir))
- (chdir dir))
- (with-current-working-directory
- (when (path-absolute? path)
- (chdir "/"))
- (for-each make-and-step
- (string-split path #\/))))
-
-;; FIXME: Need more accurate errors handling
-(define (touch-p path)
- (with-ignored-exceptions
- (mkdir-p path)
- (rmdir path))
- path)
-
-(sealed modname->relative-filename
- ('(foo bar) *** "foo/bar.scm")
- ('(baz baf) #:extension ".go" *** "baz/baf.go"))
-
-(define* (modname->relative-filename module #:key (extension ".scm"))
- (string-append (string-join (map symbol->string module) "/")
- extension))
-
-(sealed relative-to
- ("/home/kaction" "thales" *** "/home/kaction/thales"))
-(define (relative-to basename fname)
- (format #f "~a/~a" basename fname))
-
-(define* (perform-compile modules #:key (srcdir ".") (outdir "."))
- (define (source-filename modname)
- (relative-to srcdir (modname->relative-filename modname)))
- (define (output-filename modname)
- (relative-to outdir (modname->relative-filename modname
- #:extension ".go")))
- (define (toplevel-eval form) (eval form (resolve-module '(guile))))
- (for (modname in modules)
- (define source-fname (source-filename modname))
- (define output-fname (output-filename modname))
- (toplevel-eval `(define *thales-current-filename* ,source-fname))
- (compile-file source-fname
- #:output-file (touch-p output-fname)
- #:env (current-module))))
+++ /dev/null
-(define-module (thales prepare)
- #:export (relpath->module-name
- string-starts-with
- string-strip-prefix
- flatten-file-system-tree
- list-modules
- check-resolution
- perform-configure)
- #:use-module (thales syntax)
- #:use-module (ice-9 match)
- #:use-module (ice-9 ftw)
- #:use-module (srfi srfi-1))
-(use-modules (thales seal))
-
-(sealed string-starts-with
- ([& "foo" "fo"] => #t)
- ([& "fo" "foo"] => #f)
- ([& "f" #\c] !-->))
-
-(define (string-starts-with str prefix)
- (define prefix-length (string-length prefix))
- (and (>= (string-length str) prefix-length)
- (equal? prefix (substring str 0 prefix-length))))
-
-(sealed string-strip-prefix
- ([& "foo" "f"] => "oo")
- ([& "bar" "f"] => "bar"))
-
-(define (string-strip-prefix str prefix)
- (if (string-starts-with str prefix)
- (substring str (string-length prefix))
- str))
-
-(sealed string-empty?
- ([& "fo"] => #f)
- ([& ""] => #t))
-(define (string-empty? str) (equal? str ""))
-
-(sealed relpath->module-name
- ([& "/foo/bar/baz.scm"] => '(foo bar baz))
- ([& "foo/bar/baz"] => '(foo bar baz)))
-(define* (relpath->module-name path)
- (map (compose string->symbol #[basename <> ".scm"])
- (filter (negate string-empty?) (string-split path #\/))))
-
-(define (stat-directory? st)
- (eq? (stat:type st) 'directory))
-(define (stat-regular? st)
- (eq? (stat:type st) 'regular))
-
-(sealed have-extension?
- ([& "foo.foo" ".foo"] => #t)
- ([& "barfoo" ".foo"] => #f))
-
-(define (have-extension? str ext)
- (not (equal? str (basename str ext))))
-
-(define (flatten-file-system-tree tree)
- (define (flatten1 l) (apply append l))
- (map reverse
- (let recursive ((prefix '()) (branch tree))
- (match branch
- ((name st childs ...)
- (cond
- ((stat-directory? st)
- (flatten1
- (map #[recursive (cons (string->symbol name) prefix) <>]
- childs)))
- ((stat-regular? st)
- (if (have-extension? name ".scm")
- (list (cons (string->symbol (basename name ".scm"))
- prefix))
- '()))
- (else '())))
- (_ '())))))
-(define (list-modules dir)
- (map cdr
- (flatten-file-system-tree (file-system-tree dir))))
-
-
-(define (module-resolvable? mod)
- (resolve-module mod #:ensure #f))
-
-(define (find-provider modname)
- (guile-provides? modname))
-
-
-(define (check-dependency dep)
- (unless (module-resolvable? dep)
- (throw 'unresolved-dependency dep))
- (find-provider dep))
-
-
-(define (module-deps modname)
- (map module-name (module-uses
- (resolve-module modname
- #:ensure #f))))
-
-(define* (perform-configure modules #:key (unknown-sourced (const #t)))
- (delete-duplicates
- (filter symbol?
- (apply append
- (for* (mod in modules)
- (format #t "Module ~a.\n" mod)
- (unless (module-resolvable? mod)
- (throw 'unresolved-module mod))
- (for* (dep in (module-deps mod))
- (format #t " Checking for ~a... " dep)
- (if (member dep modules)
- (format #t "self\n")
- (let ((provider (check-dependency dep)))
- (if provider (format #t "~a\n" provider)
- (begin
- (unknown-sourced dep)
- (format #t "unknown\n")))
- provider))))))))
+++ /dev/null
-(define-module (thales syntax)
- #:use-module (srfi srfi-1)
- #:use-module (srfi srfi-26)
- #:use-module (ice-9 match)
- #:re-export (cute)
- #:export (lambda-match for for* define-match push))
-
-(define-syntax push
- (syntax-rules ()
- ((_ val list)
- (set! list (cons val list)))))
-
-(define (cute-reader ch stream)
- (define (append-<...> list)
- (if (eq? (last list) '<...>)
- list
- (append list '(<...>))))
- (unread-char ch stream)
- (cons '(@ (srfi srfi-26) cute)
- (append-<...> (read stream))))
-
-(eval-when (eval load compile)
- (read-hash-extend #\[
- (lambda (ch stream)
- ((@@ (thales syntax) cute-reader) ch stream))))
-
-(eval-when (load compile eval)
- (read-hash-extend #\~
- (lambda (ch stream)
- (let ((next-char (read-char stream)))
- (unread-char next-char stream)
- (let ((next-sexp (read stream)))
- (case next-char
- [(#\() `(let () ,@next-sexp)]
- [(#\[) `(lambda () ,@next-sexp)]))))))
-
-(define-syntax nested-match
- (syntax-rules ()
- (( _ (var) (pat) exp exps ...)
- (match var (pat #~(exp exps ...))))
- (( _ (var vars ...) (pat pats ...) exp exps ...)
- (match var (pat (nested-match (vars ...) (pats ...) exp exps ...))))))
-
-(define-syntax lambda-match
- (lambda (x)
- (syntax-case x ()
- ((_ (pat ...) exp exps ...)
- (with-syntax
- (((t ...) (generate-temporaries #'(pat ...))))
- #'(lambda (t ...)
- (nested-match (t ...) (pat ...) exp exps ... )))))))
-
-(define-syntax define-match
- (syntax-rules ()
- ((_ (name args ...) expr ...)
- (define name (lambda-match (args ...) expr ...)))))
-
-(define-syntax for
- (syntax-rules (=>)
- ((_ (key => val) in hash exp exps ...)
- (hash-for-each (lambda-match (key val) exp exps ...) hash))
- ((_ (pat in list) exp exps ...)
- (for-each (lambda-match (pat) exp exps ...) list))))
-
-(define-syntax for*
- (syntax-rules (=>)
- ((_ ((key => val) in hash) exp exps ...)
- (hash-map->list (lambda-match (key val) exp exps ...) hash))
- ((_ (pat in list) exp exps ...)
- (map (lambda-match (pat) exp exps ...) list))))