From: Dmitry Bogatov Date: Tue, 28 Jan 2014 12:13:44 +0000 (+0400) Subject: Remove unused files X-Git-Url: https://jfr.im/git/irc/thales.git/commitdiff_plain/5580aa3aba45299b071ff7d6daa46c9e8e24ef90?ds=sidebyside Remove unused files --- diff --git a/bin/thales b/bin/thales deleted file mode 100644 index 65cf273..0000000 --- a/bin/thales +++ /dev/null @@ -1,44 +0,0 @@ -(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 -) diff --git a/config.rpath b/config.rpath deleted file mode 100644 index e69de29..0000000 diff --git a/guile-libircclient/AUTHORS b/guile-libircclient/AUTHORS deleted file mode 100644 index e69de29..0000000 diff --git a/guile-libircclient/COPYING b/guile-libircclient/COPYING deleted file mode 100644 index 94a9ed0..0000000 --- a/guile-libircclient/COPYING +++ /dev/null @@ -1,674 +0,0 @@ - GNU GENERAL PUBLIC LICENSE - Version 3, 29 June 2007 - - Copyright (C) 2007 Free Software Foundation, Inc. - 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. - - - Copyright (C) - - 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 . - -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: - - Copyright (C) - 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 -. - - 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 -. diff --git a/guile-libircclient/ChangeLog b/guile-libircclient/ChangeLog deleted file mode 100644 index e69de29..0000000 diff --git a/guile-libircclient/INSTALL b/guile-libircclient/INSTALL deleted file mode 100644 index 007e939..0000000 --- a/guile-libircclient/INSTALL +++ /dev/null @@ -1,370 +0,0 @@ -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 `' 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. diff --git a/guile-libircclient/Makefile.am b/guile-libircclient/Makefile.am deleted file mode 100644 index 3920780..0000000 --- a/guile-libircclient/Makefile.am +++ /dev/null @@ -1 +0,0 @@ -SUBDIRS = src doc diff --git a/guile-libircclient/NEWS b/guile-libircclient/NEWS deleted file mode 100644 index e69de29..0000000 diff --git a/guile-libircclient/README b/guile-libircclient/README deleted file mode 100644 index 737c4ea..0000000 --- a/guile-libircclient/README +++ /dev/null @@ -1,3 +0,0 @@ -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 diff --git a/guile-libircclient/README-hacking b/guile-libircclient/README-hacking deleted file mode 100644 index 9d2701c..0000000 --- a/guile-libircclient/README-hacking +++ /dev/null @@ -1,5 +0,0 @@ -Coding style -======== -- GNU Standard, single statement block allowed. -- Please use bool from over int - unless you take address of variable. \ No newline at end of file diff --git a/guile-libircclient/TODO b/guile-libircclient/TODO deleted file mode 100644 index e69de29..0000000 diff --git a/guile-libircclient/configure.ac b/guile-libircclient/configure.ac deleted file mode 100644 index f3c0e27..0000000 --- a/guile-libircclient/configure.ac +++ /dev/null @@ -1,27 +0,0 @@ -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 diff --git a/guile-libircclient/doc/Makefile.am b/guile-libircclient/doc/Makefile.am deleted file mode 100644 index fd30664..0000000 --- a/guile-libircclient/doc/Makefile.am +++ /dev/null @@ -1,2 +0,0 @@ -info_TEXINFOS = thales.texi -thales_TEXINFOS = fdl.texi diff --git a/guile-libircclient/doc/fdl.texi b/guile-libircclient/doc/fdl.texi deleted file mode 100644 index 1c83c00..0000000 --- a/guile-libircclient/doc/fdl.texi +++ /dev/null @@ -1,507 +0,0 @@ -@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: - diff --git a/guile-libircclient/doc/thales.texi b/guile-libircclient/doc/thales.texi deleted file mode 100644 index 9f470cb..0000000 --- a/guile-libircclient/doc/thales.texi +++ /dev/null @@ -1,80 +0,0 @@ -\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 diff --git a/guile-libircclient/src/Makefile.am b/guile-libircclient/src/Makefile.am deleted file mode 100644 index abf7937..0000000 --- a/guile-libircclient/src/Makefile.am +++ /dev/null @@ -1,10 +0,0 @@ -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 diff --git a/guile-libircclient/src/cmd.c b/guile-libircclient/src/cmd.c deleted file mode 100644 index 5b43fa4..0000000 --- a/guile-libircclient/src/cmd.c +++ /dev/null @@ -1,109 +0,0 @@ -/* 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." diff --git a/guile-libircclient/src/definitions.h b/guile-libircclient/src/definitions.h deleted file mode 100644 index 4ac69f5..0000000 --- a/guile-libircclient/src/definitions.h +++ /dev/null @@ -1,35 +0,0 @@ -/* 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 -#include -#include -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 diff --git a/guile-libircclient/src/doc/Makefile.am b/guile-libircclient/src/doc/Makefile.am deleted file mode 100644 index 03d52a8..0000000 --- a/guile-libircclient/src/doc/Makefile.am +++ /dev/null @@ -1 +0,0 @@ -info_TEXINFOS = guile-libircclient.texi diff --git a/guile-libircclient/src/doc/guile-libircclient.texi b/guile-libircclient/src/doc/guile-libircclient.texi deleted file mode 100644 index f13b67b..0000000 --- a/guile-libircclient/src/doc/guile-libircclient.texi +++ /dev/null @@ -1,165 +0,0 @@ -\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{}, 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{} -@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{} -@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{} @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{} @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{} @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{} @var{channel} -List users on @var{channel}. -@end defun - -@defun raw! @var{} @var{command} -Raw command to pass to server. -@end defun - -@defun whois! @var{} @var{nickname} -Query about nick. -@end defun - -@node Dealing with events, , Initiating commands, Reference -@section Dealing with events - - -@defun hook-ref! @var{} @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{} - Hook, runned on connection to server. -@end defun - -@defun #:nick @var{} @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{} @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{} @var{channel} @var{nick} - Hook, runned when @var{nick}, probably you, joined @var{channel} -@end defun - -@defun #:part @var{} @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{} @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 diff --git a/guile-libircclient/src/init.c b/guile-libircclient/src/init.c deleted file mode 100644 index 60fed89..0000000 --- a/guile-libircclient/src/init.c +++ /dev/null @@ -1,202 +0,0 @@ -#include "definitions.h" -#include -#include -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 -} diff --git a/guile-libircclient/src/misc.c b/guile-libircclient/src/misc.c deleted file mode 100644 index d5d14e4..0000000 --- a/guile-libircclient/src/misc.c +++ /dev/null @@ -1,38 +0,0 @@ -/* 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); -} diff --git a/guile-libircclient/tests/Makefile.am b/guile-libircclient/tests/Makefile.am deleted file mode 100644 index 04155ed..0000000 --- a/guile-libircclient/tests/Makefile.am +++ /dev/null @@ -1,8 +0,0 @@ -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 diff --git a/guile-libircclient/tests/functional/prelude.scm b/guile-libircclient/tests/functional/prelude.scm deleted file mode 100644 index c8237ea..0000000 --- a/guile-libircclient/tests/functional/prelude.scm +++ /dev/null @@ -1,43 +0,0 @@ -(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))) diff --git a/guile-libircclient/tests/gnu-thales b/guile-libircclient/tests/gnu-thales deleted file mode 100755 index 8290381..0000000 --- a/guile-libircclient/tests/gnu-thales +++ /dev/null @@ -1,20 +0,0 @@ -#!/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) diff --git a/guile-libircclient/tests/im/irc.scm b/guile-libircclient/tests/im/irc.scm deleted file mode 100644 index d0e55c6..0000000 --- a/guile-libircclient/tests/im/irc.scm +++ /dev/null @@ -1,112 +0,0 @@ -(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 () - (server #:getter &server) - (nickname #:getter &nickname) - event-hook-alist ;; (#:event . (hook arity)) - (ffi-session #:getter &ffi-session)) - -(define-method (initialize (obj ) args) - "Documenation to be written." - (let-keywords - args #f ((server (error ":: server must be specified")) - (nickname (error ":: 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 args)) - - -(define-method (run! (obj )) - (irc-run (slot-ref obj 'ffi-session))) - - -(define-method (join! (obj ) (channel ) . args) - (let-keywords args #f - ((password #f)) - (irc-cmd-join (slot-ref obj 'ffi-session) channel password))) - -(define-method (quit! (obj ) . args) - (let-keywords args #f - ((reason #f)) - (irc-cmd-quit (slot-ref obj 'ffi-session) reason))) -(define-method (raw! (obj ) command) - (irc-send-raw (slot-ref obj 'ffi-session) command)) - -(define-method (hook-ref! (obj ) (event-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 )) - "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 . ()) ; - (#:nick . (#f 0)) ; - (#:quit . (#f 0)) ; - (#:join . (0 #f)) ; - (#:part . (0 #f 1)) ; - (#:mode . (0 #f 1 2)) ; - (#:umode . (#f 0)) ; - (#:topic . (0 #f 1)) ; - (#:kick . (0 #f 1 2)) ; - (#:channel . (0 #f 1)) ; - (#:privmsg . (#f 1)) ; - (#:notice . (#f 1)) ; - (#:invite . (1 #f)))) ; - -(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 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))) diff --git a/guile-libircclient/tests/thales/init-database.scm b/guile-libircclient/tests/thales/init-database.scm deleted file mode 100644 index cf37386..0000000 --- a/guile-libircclient/tests/thales/init-database.scm +++ /dev/null @@ -1,130 +0,0 @@ -(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+))) diff --git a/src/thales/compile.scm b/src/thales/compile.scm deleted file mode 100644 index 3184a83..0000000 --- a/src/thales/compile.scm +++ /dev/null @@ -1,69 +0,0 @@ -(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)))) diff --git a/src/thales/prepare.scm b/src/thales/prepare.scm deleted file mode 100644 index 701d7b8..0000000 --- a/src/thales/prepare.scm +++ /dev/null @@ -1,116 +0,0 @@ -(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)))))))) diff --git a/src/thales/syntax.scm b/src/thales/syntax.scm deleted file mode 100644 index 2bef128..0000000 --- a/src/thales/syntax.scm +++ /dev/null @@ -1,70 +0,0 @@ -(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))))