Import hs-plugins cvs
This commit is contained in:
Don Stewart
commit
887fa59389
5
AUTHORS
Normal file
5
AUTHORS
Normal file
@ -0,0 +1,5 @@
|
||||
|
||||
Don Stewart <http://www.cse.unsw.edu.au/~dons>
|
||||
Sean Seefried <http://www.cse.unsw.edu.au/~sseefried>
|
||||
Andre Pang <http://www.algorithm.com.au>
|
||||
|
||||
25
BUILDING.CVS
Normal file
25
BUILDING.CVS
Normal file
@ -0,0 +1,25 @@
|
||||
CVS BUILDING INSTRUCTIONS
|
||||
=========================
|
||||
|
||||
These are build instructions if you've checked out hs-plugins
|
||||
from CVS (instead of downloading a source distribution tarball).
|
||||
|
||||
1. Execute autogen.sh to generate the GNU ./configure script:
|
||||
|
||||
./autogen.sh
|
||||
|
||||
2. Build hs-plugins as usual with ./configure && make
|
||||
|
||||
|
||||
cvsps
|
||||
=====
|
||||
|
||||
For people who are used to more modern revision control systems
|
||||
(such as Darcs, Subversion and Arch) and miss working with
|
||||
'patchsets' instead of the disjoint per-file patches that CVS
|
||||
uses, take a look at cvsps <http://www.cobite.com/cvsps/>,
|
||||
a patchset manager for CVS. While it doesn't, by any means, give
|
||||
you the many advantages that more modern source control systems
|
||||
offer you, it certainly makes using CVS and managing patches far
|
||||
easier!
|
||||
|
||||
504
LICENSE
Normal file
504
LICENSE
Normal file
@ -0,0 +1,504 @@
|
||||
GNU LESSER GENERAL PUBLIC LICENSE
|
||||
Version 2.1, February 1999
|
||||
|
||||
Copyright (C) 1991, 1999 Free Software Foundation, Inc.
|
||||
59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
||||
Everyone is permitted to copy and distribute verbatim copies
|
||||
of this license document, but changing it is not allowed.
|
||||
|
||||
[This is the first released version of the Lesser GPL. It also counts
|
||||
as the successor of the GNU Library Public License, version 2, hence
|
||||
the version number 2.1.]
|
||||
|
||||
Preamble
|
||||
|
||||
The licenses for most software are designed to take away your
|
||||
freedom to share and change it. By contrast, the GNU General Public
|
||||
Licenses are intended to guarantee your freedom to share and change
|
||||
free software--to make sure the software is free for all its users.
|
||||
|
||||
This license, the Lesser General Public License, applies to some
|
||||
specially designated software packages--typically libraries--of the
|
||||
Free Software Foundation and other authors who decide to use it. You
|
||||
can use it too, but we suggest you first think carefully about whether
|
||||
this license or the ordinary General Public License is the better
|
||||
strategy to use in any particular case, based on the explanations below.
|
||||
|
||||
When we speak of free software, we are referring to freedom of use,
|
||||
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 this service if you wish); that you receive source code or can get
|
||||
it if you want it; that you can change the software and use pieces of
|
||||
it in new free programs; and that you are informed that you can do
|
||||
these things.
|
||||
|
||||
To protect your rights, we need to make restrictions that forbid
|
||||
distributors to deny you these rights or to ask you to surrender these
|
||||
rights. These restrictions translate to certain responsibilities for
|
||||
you if you distribute copies of the library or if you modify it.
|
||||
|
||||
For example, if you distribute copies of the library, whether gratis
|
||||
or for a fee, you must give the recipients all the rights that we gave
|
||||
you. You must make sure that they, too, receive or can get the source
|
||||
code. If you link other code with the library, you must provide
|
||||
complete object files to the recipients, so that they can relink them
|
||||
with the library after making changes to the library and recompiling
|
||||
it. And you must show them these terms so they know their rights.
|
||||
|
||||
We protect your rights with a two-step method: (1) we copyright the
|
||||
library, and (2) we offer you this license, which gives you legal
|
||||
permission to copy, distribute and/or modify the library.
|
||||
|
||||
To protect each distributor, we want to make it very clear that
|
||||
there is no warranty for the free library. Also, if the library is
|
||||
modified by someone else and passed on, the recipients should know
|
||||
that what they have is not the original version, so that the original
|
||||
author's reputation will not be affected by problems that might be
|
||||
introduced by others.
|
||||
|
||||
Finally, software patents pose a constant threat to the existence of
|
||||
any free program. We wish to make sure that a company cannot
|
||||
effectively restrict the users of a free program by obtaining a
|
||||
restrictive license from a patent holder. Therefore, we insist that
|
||||
any patent license obtained for a version of the library must be
|
||||
consistent with the full freedom of use specified in this license.
|
||||
|
||||
Most GNU software, including some libraries, is covered by the
|
||||
ordinary GNU General Public License. This license, the GNU Lesser
|
||||
General Public License, applies to certain designated libraries, and
|
||||
is quite different from the ordinary General Public License. We use
|
||||
this license for certain libraries in order to permit linking those
|
||||
libraries into non-free programs.
|
||||
|
||||
When a program is linked with a library, whether statically or using
|
||||
a shared library, the combination of the two is legally speaking a
|
||||
combined work, a derivative of the original library. The ordinary
|
||||
General Public License therefore permits such linking only if the
|
||||
entire combination fits its criteria of freedom. The Lesser General
|
||||
Public License permits more lax criteria for linking other code with
|
||||
the library.
|
||||
|
||||
We call this license the "Lesser" General Public License because it
|
||||
does Less to protect the user's freedom than the ordinary General
|
||||
Public License. It also provides other free software developers Less
|
||||
of an advantage over competing non-free programs. These disadvantages
|
||||
are the reason we use the ordinary General Public License for many
|
||||
libraries. However, the Lesser license provides advantages in certain
|
||||
special circumstances.
|
||||
|
||||
For example, on rare occasions, there may be a special need to
|
||||
encourage the widest possible use of a certain library, so that it becomes
|
||||
a de-facto standard. To achieve this, non-free programs must be
|
||||
allowed to use the library. A more frequent case is that a free
|
||||
library does the same job as widely used non-free libraries. In this
|
||||
case, there is little to gain by limiting the free library to free
|
||||
software only, so we use the Lesser General Public License.
|
||||
|
||||
In other cases, permission to use a particular library in non-free
|
||||
programs enables a greater number of people to use a large body of
|
||||
free software. For example, permission to use the GNU C Library in
|
||||
non-free programs enables many more people to use the whole GNU
|
||||
operating system, as well as its variant, the GNU/Linux operating
|
||||
system.
|
||||
|
||||
Although the Lesser General Public License is Less protective of the
|
||||
users' freedom, it does ensure that the user of a program that is
|
||||
linked with the Library has the freedom and the wherewithal to run
|
||||
that program using a modified version of the Library.
|
||||
|
||||
The precise terms and conditions for copying, distribution and
|
||||
modification follow. Pay close attention to the difference between a
|
||||
"work based on the library" and a "work that uses the library". The
|
||||
former contains code derived from the library, whereas the latter must
|
||||
be combined with the library in order to run.
|
||||
|
||||
GNU LESSER GENERAL PUBLIC LICENSE
|
||||
TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
|
||||
|
||||
0. This License Agreement applies to any software library or other
|
||||
program which contains a notice placed by the copyright holder or
|
||||
other authorized party saying it may be distributed under the terms of
|
||||
this Lesser General Public License (also called "this License").
|
||||
Each licensee is addressed as "you".
|
||||
|
||||
A "library" means a collection of software functions and/or data
|
||||
prepared so as to be conveniently linked with application programs
|
||||
(which use some of those functions and data) to form executables.
|
||||
|
||||
The "Library", below, refers to any such software library or work
|
||||
which has been distributed under these terms. A "work based on the
|
||||
Library" means either the Library or any derivative work under
|
||||
copyright law: that is to say, a work containing the Library or a
|
||||
portion of it, either verbatim or with modifications and/or translated
|
||||
straightforwardly into another language. (Hereinafter, translation is
|
||||
included without limitation in the term "modification".)
|
||||
|
||||
"Source code" for a work means the preferred form of the work for
|
||||
making modifications to it. For a library, complete source code means
|
||||
all the source code for all modules it contains, plus any associated
|
||||
interface definition files, plus the scripts used to control compilation
|
||||
and installation of the library.
|
||||
|
||||
Activities other than copying, distribution and modification are not
|
||||
covered by this License; they are outside its scope. The act of
|
||||
running a program using the Library is not restricted, and output from
|
||||
such a program is covered only if its contents constitute a work based
|
||||
on the Library (independent of the use of the Library in a tool for
|
||||
writing it). Whether that is true depends on what the Library does
|
||||
and what the program that uses the Library does.
|
||||
|
||||
1. You may copy and distribute verbatim copies of the Library's
|
||||
complete source code as you receive it, in any medium, provided that
|
||||
you conspicuously and appropriately publish on each copy an
|
||||
appropriate copyright notice and disclaimer of warranty; keep intact
|
||||
all the notices that refer to this License and to the absence of any
|
||||
warranty; and distribute a copy of this License along with the
|
||||
Library.
|
||||
|
||||
You may charge a fee for the physical act of transferring a copy,
|
||||
and you may at your option offer warranty protection in exchange for a
|
||||
fee.
|
||||
|
||||
2. You may modify your copy or copies of the Library or any portion
|
||||
of it, thus forming a work based on the Library, and copy and
|
||||
distribute such modifications or work under the terms of Section 1
|
||||
above, provided that you also meet all of these conditions:
|
||||
|
||||
a) The modified work must itself be a software library.
|
||||
|
||||
b) You must cause the files modified to carry prominent notices
|
||||
stating that you changed the files and the date of any change.
|
||||
|
||||
c) You must cause the whole of the work to be licensed at no
|
||||
charge to all third parties under the terms of this License.
|
||||
|
||||
d) If a facility in the modified Library refers to a function or a
|
||||
table of data to be supplied by an application program that uses
|
||||
the facility, other than as an argument passed when the facility
|
||||
is invoked, then you must make a good faith effort to ensure that,
|
||||
in the event an application does not supply such function or
|
||||
table, the facility still operates, and performs whatever part of
|
||||
its purpose remains meaningful.
|
||||
|
||||
(For example, a function in a library to compute square roots has
|
||||
a purpose that is entirely well-defined independent of the
|
||||
application. Therefore, Subsection 2d requires that any
|
||||
application-supplied function or table used by this function must
|
||||
be optional: if the application does not supply it, the square
|
||||
root function must still compute square roots.)
|
||||
|
||||
These requirements apply to the modified work as a whole. If
|
||||
identifiable sections of that work are not derived from the Library,
|
||||
and can be reasonably considered independent and separate works in
|
||||
themselves, then this License, and its terms, do not apply to those
|
||||
sections when you distribute them as separate works. But when you
|
||||
distribute the same sections as part of a whole which is a work based
|
||||
on the Library, the distribution of the whole must be on the terms of
|
||||
this License, whose permissions for other licensees extend to the
|
||||
entire whole, and thus to each and every part regardless of who wrote
|
||||
it.
|
||||
|
||||
Thus, it is not the intent of this section to claim rights or contest
|
||||
your rights to work written entirely by you; rather, the intent is to
|
||||
exercise the right to control the distribution of derivative or
|
||||
collective works based on the Library.
|
||||
|
||||
In addition, mere aggregation of another work not based on the Library
|
||||
with the Library (or with a work based on the Library) on a volume of
|
||||
a storage or distribution medium does not bring the other work under
|
||||
the scope of this License.
|
||||
|
||||
3. You may opt to apply the terms of the ordinary GNU General Public
|
||||
License instead of this License to a given copy of the Library. To do
|
||||
this, you must alter all the notices that refer to this License, so
|
||||
that they refer to the ordinary GNU General Public License, version 2,
|
||||
instead of to this License. (If a newer version than version 2 of the
|
||||
ordinary GNU General Public License has appeared, then you can specify
|
||||
that version instead if you wish.) Do not make any other change in
|
||||
these notices.
|
||||
|
||||
Once this change is made in a given copy, it is irreversible for
|
||||
that copy, so the ordinary GNU General Public License applies to all
|
||||
subsequent copies and derivative works made from that copy.
|
||||
|
||||
This option is useful when you wish to copy part of the code of
|
||||
the Library into a program that is not a library.
|
||||
|
||||
4. You may copy and distribute the Library (or a portion or
|
||||
derivative of it, under Section 2) in object code or executable form
|
||||
under the terms of Sections 1 and 2 above provided that you accompany
|
||||
it with the complete corresponding machine-readable source code, which
|
||||
must be distributed under the terms of Sections 1 and 2 above on a
|
||||
medium customarily used for software interchange.
|
||||
|
||||
If distribution of object code is made by offering access to copy
|
||||
from a designated place, then offering equivalent access to copy the
|
||||
source code from the same place satisfies the requirement to
|
||||
distribute the source code, even though third parties are not
|
||||
compelled to copy the source along with the object code.
|
||||
|
||||
5. A program that contains no derivative of any portion of the
|
||||
Library, but is designed to work with the Library by being compiled or
|
||||
linked with it, is called a "work that uses the Library". Such a
|
||||
work, in isolation, is not a derivative work of the Library, and
|
||||
therefore falls outside the scope of this License.
|
||||
|
||||
However, linking a "work that uses the Library" with the Library
|
||||
creates an executable that is a derivative of the Library (because it
|
||||
contains portions of the Library), rather than a "work that uses the
|
||||
library". The executable is therefore covered by this License.
|
||||
Section 6 states terms for distribution of such executables.
|
||||
|
||||
When a "work that uses the Library" uses material from a header file
|
||||
that is part of the Library, the object code for the work may be a
|
||||
derivative work of the Library even though the source code is not.
|
||||
Whether this is true is especially significant if the work can be
|
||||
linked without the Library, or if the work is itself a library. The
|
||||
threshold for this to be true is not precisely defined by law.
|
||||
|
||||
If such an object file uses only numerical parameters, data
|
||||
structure layouts and accessors, and small macros and small inline
|
||||
functions (ten lines or less in length), then the use of the object
|
||||
file is unrestricted, regardless of whether it is legally a derivative
|
||||
work. (Executables containing this object code plus portions of the
|
||||
Library will still fall under Section 6.)
|
||||
|
||||
Otherwise, if the work is a derivative of the Library, you may
|
||||
distribute the object code for the work under the terms of Section 6.
|
||||
Any executables containing that work also fall under Section 6,
|
||||
whether or not they are linked directly with the Library itself.
|
||||
|
||||
6. As an exception to the Sections above, you may also combine or
|
||||
link a "work that uses the Library" with the Library to produce a
|
||||
work containing portions of the Library, and distribute that work
|
||||
under terms of your choice, provided that the terms permit
|
||||
modification of the work for the customer's own use and reverse
|
||||
engineering for debugging such modifications.
|
||||
|
||||
You must give prominent notice with each copy of the work that the
|
||||
Library is used in it and that the Library and its use are covered by
|
||||
this License. You must supply a copy of this License. If the work
|
||||
during execution displays copyright notices, you must include the
|
||||
copyright notice for the Library among them, as well as a reference
|
||||
directing the user to the copy of this License. Also, you must do one
|
||||
of these things:
|
||||
|
||||
a) Accompany the work with the complete corresponding
|
||||
machine-readable source code for the Library including whatever
|
||||
changes were used in the work (which must be distributed under
|
||||
Sections 1 and 2 above); and, if the work is an executable linked
|
||||
with the Library, with the complete machine-readable "work that
|
||||
uses the Library", as object code and/or source code, so that the
|
||||
user can modify the Library and then relink to produce a modified
|
||||
executable containing the modified Library. (It is understood
|
||||
that the user who changes the contents of definitions files in the
|
||||
Library will not necessarily be able to recompile the application
|
||||
to use the modified definitions.)
|
||||
|
||||
b) Use a suitable shared library mechanism for linking with the
|
||||
Library. A suitable mechanism is one that (1) uses at run time a
|
||||
copy of the library already present on the user's computer system,
|
||||
rather than copying library functions into the executable, and (2)
|
||||
will operate properly with a modified version of the library, if
|
||||
the user installs one, as long as the modified version is
|
||||
interface-compatible with the version that the work was made with.
|
||||
|
||||
c) Accompany the work with a written offer, valid for at
|
||||
least three years, to give the same user the materials
|
||||
specified in Subsection 6a, above, for a charge no more
|
||||
than the cost of performing this distribution.
|
||||
|
||||
d) If distribution of the work is made by offering access to copy
|
||||
from a designated place, offer equivalent access to copy the above
|
||||
specified materials from the same place.
|
||||
|
||||
e) Verify that the user has already received a copy of these
|
||||
materials or that you have already sent this user a copy.
|
||||
|
||||
For an executable, the required form of the "work that uses the
|
||||
Library" must include any data and utility programs needed for
|
||||
reproducing the executable from it. However, as a special exception,
|
||||
the materials to be distributed need not include anything that is
|
||||
normally distributed (in either source or binary form) with the major
|
||||
components (compiler, kernel, and so on) of the operating system on
|
||||
which the executable runs, unless that component itself accompanies
|
||||
the executable.
|
||||
|
||||
It may happen that this requirement contradicts the license
|
||||
restrictions of other proprietary libraries that do not normally
|
||||
accompany the operating system. Such a contradiction means you cannot
|
||||
use both them and the Library together in an executable that you
|
||||
distribute.
|
||||
|
||||
7. You may place library facilities that are a work based on the
|
||||
Library side-by-side in a single library together with other library
|
||||
facilities not covered by this License, and distribute such a combined
|
||||
library, provided that the separate distribution of the work based on
|
||||
the Library and of the other library facilities is otherwise
|
||||
permitted, and provided that you do these two things:
|
||||
|
||||
a) Accompany the combined library with a copy of the same work
|
||||
based on the Library, uncombined with any other library
|
||||
facilities. This must be distributed under the terms of the
|
||||
Sections above.
|
||||
|
||||
b) Give prominent notice with the combined library of the fact
|
||||
that part of it is a work based on the Library, and explaining
|
||||
where to find the accompanying uncombined form of the same work.
|
||||
|
||||
8. You may not copy, modify, sublicense, link with, or distribute
|
||||
the Library except as expressly provided under this License. Any
|
||||
attempt otherwise to copy, modify, sublicense, link with, or
|
||||
distribute the Library is void, and will automatically terminate your
|
||||
rights under this License. However, parties who have received copies,
|
||||
or rights, from you under this License will not have their licenses
|
||||
terminated so long as such parties remain in full compliance.
|
||||
|
||||
9. You are not required to accept this License, since you have not
|
||||
signed it. However, nothing else grants you permission to modify or
|
||||
distribute the Library or its derivative works. These actions are
|
||||
prohibited by law if you do not accept this License. Therefore, by
|
||||
modifying or distributing the Library (or any work based on the
|
||||
Library), you indicate your acceptance of this License to do so, and
|
||||
all its terms and conditions for copying, distributing or modifying
|
||||
the Library or works based on it.
|
||||
|
||||
10. Each time you redistribute the Library (or any work based on the
|
||||
Library), the recipient automatically receives a license from the
|
||||
original licensor to copy, distribute, link with or modify the Library
|
||||
subject to these terms and conditions. You may not impose any further
|
||||
restrictions on the recipients' exercise of the rights granted herein.
|
||||
You are not responsible for enforcing compliance by third parties with
|
||||
this License.
|
||||
|
||||
11. If, as a consequence of a court judgment or allegation of patent
|
||||
infringement or for any other reason (not limited to patent issues),
|
||||
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
|
||||
distribute so as to satisfy simultaneously your obligations under this
|
||||
License and any other pertinent obligations, then as a consequence you
|
||||
may not distribute the Library at all. For example, if a patent
|
||||
license would not permit royalty-free redistribution of the Library by
|
||||
all those who receive copies directly or indirectly through you, then
|
||||
the only way you could satisfy both it and this License would be to
|
||||
refrain entirely from distribution of the Library.
|
||||
|
||||
If any portion of this section is held invalid or unenforceable under any
|
||||
particular circumstance, the balance of the section is intended to apply,
|
||||
and the section as a whole is intended to apply in other circumstances.
|
||||
|
||||
It is not the purpose of this section to induce you to infringe any
|
||||
patents or other property right claims or to contest validity of any
|
||||
such claims; this section has the sole purpose of protecting the
|
||||
integrity of the free software distribution system which is
|
||||
implemented by public license practices. Many people have made
|
||||
generous contributions to the wide range of software distributed
|
||||
through that system in reliance on consistent application of that
|
||||
system; it is up to the author/donor to decide if he or she is willing
|
||||
to distribute software through any other system and a licensee cannot
|
||||
impose that choice.
|
||||
|
||||
This section is intended to make thoroughly clear what is believed to
|
||||
be a consequence of the rest of this License.
|
||||
|
||||
12. If the distribution and/or use of the Library is restricted in
|
||||
certain countries either by patents or by copyrighted interfaces, the
|
||||
original copyright holder who places the Library under this License may add
|
||||
an explicit geographical distribution limitation excluding those countries,
|
||||
so that distribution is permitted only in or among countries not thus
|
||||
excluded. In such case, this License incorporates the limitation as if
|
||||
written in the body of this License.
|
||||
|
||||
13. The Free Software Foundation may publish revised and/or new
|
||||
versions of the Lesser 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 Library
|
||||
specifies a version number of this License which applies to it and
|
||||
"any later version", you have the option of following the terms and
|
||||
conditions either of that version or of any later version published by
|
||||
the Free Software Foundation. If the Library does not specify a
|
||||
license version number, you may choose any version ever published by
|
||||
the Free Software Foundation.
|
||||
|
||||
14. If you wish to incorporate parts of the Library into other free
|
||||
programs whose distribution conditions are incompatible with these,
|
||||
write to the author to ask for permission. For software which is
|
||||
copyrighted by the Free Software Foundation, write to the Free
|
||||
Software Foundation; we sometimes make exceptions for this. Our
|
||||
decision will be guided by the two goals of preserving the free status
|
||||
of all derivatives of our free software and of promoting the sharing
|
||||
and reuse of software generally.
|
||||
|
||||
NO WARRANTY
|
||||
|
||||
15. BECAUSE THE LIBRARY IS LICENSED FREE OF CHARGE, THERE IS NO
|
||||
WARRANTY FOR THE LIBRARY, TO THE EXTENT PERMITTED BY APPLICABLE LAW.
|
||||
EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR
|
||||
OTHER PARTIES PROVIDE THE LIBRARY "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
|
||||
LIBRARY IS WITH YOU. SHOULD THE LIBRARY PROVE DEFECTIVE, YOU ASSUME
|
||||
THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION.
|
||||
|
||||
16. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN
|
||||
WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY
|
||||
AND/OR REDISTRIBUTE THE LIBRARY 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
|
||||
LIBRARY (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 LIBRARY TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF
|
||||
SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH
|
||||
DAMAGES.
|
||||
|
||||
END OF TERMS AND CONDITIONS
|
||||
|
||||
How to Apply These Terms to Your New Libraries
|
||||
|
||||
If you develop a new library, and you want it to be of the greatest
|
||||
possible use to the public, we recommend making it free software that
|
||||
everyone can redistribute and change. You can do so by permitting
|
||||
redistribution under these terms (or, alternatively, under the terms of the
|
||||
ordinary General Public License).
|
||||
|
||||
To apply these terms, attach the following notices to the library. It is
|
||||
safest to attach them to the start of each source file to most effectively
|
||||
convey the exclusion of warranty; and each file should have at least the
|
||||
"copyright" line and a pointer to where the full notice is found.
|
||||
|
||||
<one line to give the library's name and a brief idea of what it does.>
|
||||
Copyright (C) <year> <name of author>
|
||||
|
||||
This library 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 2.1 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., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
||||
|
||||
Also add information on how to contact you by electronic and paper mail.
|
||||
|
||||
You should also get your employer (if you work as a programmer) or your
|
||||
school, if any, to sign a "copyright disclaimer" for the library, if
|
||||
necessary. Here is a sample; alter the names:
|
||||
|
||||
Yoyodyne, Inc., hereby disclaims all copyright interest in the
|
||||
library `Frob' (a library for tweaking knobs) written by James Random Hacker.
|
||||
|
||||
<signature of Ty Coon>, 1 April 1990
|
||||
Ty Coon, President of Vice
|
||||
|
||||
That's all there is to it!
|
||||
|
||||
|
||||
104
Makefile
Normal file
104
Makefile
Normal file
@ -0,0 +1,104 @@
|
||||
# Copyright (c) 2004 Don Stewart - http://www.cse.unsw.edu.au/~dons
|
||||
# LGPL version 2.1 or later (see http://www.gnu.org/copyleft/lesser.html)
|
||||
|
||||
# cut down reimplementation of $fptools/mk directory
|
||||
|
||||
.PHONY: build all
|
||||
|
||||
all: headers runplugs plugs
|
||||
|
||||
build:
|
||||
cd src && $(MAKE)
|
||||
|
||||
plugs: build
|
||||
( cd examples/hmake/lib-plugs ; $(MAKE) build )
|
||||
cp examples/hmake/lib-plugs/plugs ./
|
||||
|
||||
runplugs: build
|
||||
( cd examples/hmake/one-shot ; $(MAKE) build )
|
||||
cp examples/hmake/one-shot/runplugs ./
|
||||
|
||||
headers: build
|
||||
cp src/eval/Eval/Haskell_stub.h EvalHaskell.h
|
||||
|
||||
#
|
||||
# installing
|
||||
#
|
||||
|
||||
# TODO put these in subdirs
|
||||
install:
|
||||
$(INSTALL_DATA_DIR) $(LIBDIR)/include
|
||||
$(INSTALL_DATA) EvalHaskell.h $(LIBDIR)/include
|
||||
@(cd src && $(MAKE) install)
|
||||
$(INSTALL_DATA_DIR) $(PREFIX)/bin
|
||||
$(INSTALL_PROGRAM) plugs $(PREFIX)/bin/
|
||||
$(INSTALL_PROGRAM) runplugs $(PREFIX)/bin/
|
||||
|
||||
#
|
||||
# and register the library with ghc package system
|
||||
# Use this target if installing by hand. May need to be performed as root
|
||||
#
|
||||
register:
|
||||
env LIBDIR=${LIBDIR} $(GHC_PKG) -u < src/altdata/altdata.conf.in
|
||||
env LIBDIR=${LIBDIR} $(GHC_PKG) -u < src/hi/hi.conf.in
|
||||
env LIBDIR=${LIBDIR} $(GHC_PKG) -u < src/plugins/plugins.conf.in
|
||||
env LIBDIR=${LIBDIR} $(GHC_PKG) -u < src/eval/eval.conf.in
|
||||
env LIBDIR=${LIBDIR} $(GHC_PKG) -u < src/printf/printf.conf.in
|
||||
|
||||
# and unregister the packages
|
||||
unregister:
|
||||
$(GHC_PKG) -r printf
|
||||
$(GHC_PKG) -r eval
|
||||
$(GHC_PKG) -r plugins
|
||||
$(GHC_PKG) -r hi
|
||||
$(GHC_PKG) -r altdata
|
||||
|
||||
#
|
||||
# regress check. TODO check expected output
|
||||
#
|
||||
check:
|
||||
@if [ ! -f EvalHaskell.h ] ; then \
|
||||
echo "run 'make' first" ; \
|
||||
exit 1 ;\
|
||||
fi
|
||||
@( d=/tmp/plugins.tmp.$$$$ ; mkdir $$d ; export TMPDIR=$$d ;\
|
||||
for i in `find examples ! -name CVS -type d -maxdepth 2 -mindepth 2` ; do \
|
||||
printf "=== testing %-50s ... " "$$i" ; \
|
||||
( cd $$i ; if [ -f dont_test ] ; then \
|
||||
echo "ignored." ;\
|
||||
else ${MAKE} -sk && ${MAKE} -ksi check |\
|
||||
sed '/^Compil/d;/^Load/d;/Read/d;/Expan/d;/Savi/d;/Writ/d' ;\
|
||||
${MAKE} -sk clean ;\
|
||||
fi ) 2> /dev/null ;\
|
||||
done ; rm -rf $$d )
|
||||
|
||||
|
||||
#
|
||||
# making clean
|
||||
#
|
||||
|
||||
CLEAN_FILES += *.conf.*.old *~
|
||||
EXTRA_CLEANS+=*.conf.inplace* *.conf.in *.h autom4te.cache \
|
||||
config.h config.mk config.log config.status configure
|
||||
|
||||
clean:
|
||||
cd docs && $(MAKE) clean
|
||||
cd src && $(MAKE) clean
|
||||
rm -rf $(CLEAN_FILES)
|
||||
find examples -name '*.a' -exec rm {} \;
|
||||
find examples -name '*~' -exec rm {} \;
|
||||
find examples -name 'a.out' -exec rm {} \;
|
||||
find examples -name '*.hi' -exec rm {} \;
|
||||
find examples -name '*.o' -exec rm {} \;
|
||||
find examples -name '*.core' -exec rm {} \;
|
||||
find examples -name 'package.conf' -exec rm {} \;
|
||||
rm -rf plugs
|
||||
rm -rf runplugs
|
||||
rm -rf examples/hmake/lib-plugs/plugs
|
||||
rm -rf examples/hmake/one-shot/runplugs
|
||||
rm -f EvalHaskell.h
|
||||
|
||||
distclean: clean
|
||||
rm -rf $(EXTRA_CLEANS)
|
||||
|
||||
include config.mk
|
||||
97
README
Normal file
97
README
Normal file
@ -0,0 +1,97 @@
|
||||
|
||||
------------------------------------------------------------------------
|
||||
hs-plugins
|
||||
------------------------------------------------------------------------
|
||||
|
||||
Compiler and tool support for compiling and loading, and evaluating
|
||||
Haskell at runtime.
|
||||
|
||||
The library provides a convenient interface to GHC's runtime loader
|
||||
and linker, letting you load compiled Haskell code.
|
||||
|
||||
It also provides a `make' system for compiling plugin source
|
||||
automagically and for combining the user's .hs file with a stub of
|
||||
standard declarations and syntax, saving the user from having to write
|
||||
standard code themselves.
|
||||
|
||||
It provides an eval() function, for generating new, well-typed,
|
||||
compiled code from a Haskell source string.
|
||||
|
||||
It also provides a new variation of printf for Haskell-- a runtime
|
||||
generated, dynamically-typed printf.
|
||||
|
||||
Read the documentation in doc/ for more.
|
||||
|
||||
------------------------------------------------------------------------
|
||||
DEPENDENCIES:
|
||||
|
||||
* Requires GNU make or BSD make to build
|
||||
* Requires GHC > 6.2 (for Typeable.h)
|
||||
* 'plugs' requires a working readline library.
|
||||
|
||||
* If you wish to use TH in plugins, or to run load()-programs in GHCi,
|
||||
you require a patch to GHC's linker, that was committed into ghc
|
||||
6.3, and ghc 6.2 -stable branch, and is available from 6.2.2 onwards.
|
||||
|
||||
* If you need to regenerate ./configure you need >= autoconf-2.53
|
||||
|
||||
------------------------------------------------------------------------
|
||||
BUILDING:
|
||||
$ ./configure --prefix=/usr/local
|
||||
$ make
|
||||
$ make install
|
||||
|
||||
If you wish to register the libraries as official ghc pkg (probably as
|
||||
root):
|
||||
$ make register
|
||||
|
||||
And to unregister (maybe as root). Note that the unistall order
|
||||
matters:
|
||||
|
||||
$ ghc-pkg -r printf
|
||||
$ ghc-pkg -r eval
|
||||
$ ghc-pkg -r plugins
|
||||
$ ghc-pkg -r hi
|
||||
$ ghc-pkg -r altdata
|
||||
|
||||
Once it is registered, you can link against the library by just adding
|
||||
-package plugins or, e.g. -package eval, to your command line.
|
||||
|
||||
The documentation relies on latex, dvips, tex2page:
|
||||
|
||||
$ cd doc && make
|
||||
|
||||
EXAMPLES:
|
||||
|
||||
Have a look in the examples/ directory for many examples of how to
|
||||
arrange your code.
|
||||
|
||||
LICENSE:
|
||||
|
||||
This library is distributed under the terms of the LGPL. The runtime
|
||||
loader code is based on code written by André Pang, and others, and is
|
||||
distributed under the BSD-style Glasgow University license.
|
||||
|
||||
PORTABILITY:
|
||||
|
||||
Requires GHC 6.2 or greater, though most testing has be done on 6.3.
|
||||
They dynamic loader requires a functional GHCi implementation.
|
||||
|
||||
---------------------+--------------------------------------------------
|
||||
Platform | Works Should work* Unknown Won't work
|
||||
---------------------+--------------------------------------------------
|
||||
i386-*-linux | X
|
||||
i386-*-freebsd | X
|
||||
i386-*-openbsd | X
|
||||
powerpc-apple-darwin | X
|
||||
sparc-*-solaris2 | X
|
||||
ia64-*-linux | #
|
||||
i386-*-solaris2 | X
|
||||
sparc-*-linux | X
|
||||
sparc-*-openbsd | X
|
||||
i386-*-netbsd | X
|
||||
amd64-*-openbsd | X
|
||||
mips64-sgi-irix | X
|
||||
---------------------+--------------------------------------------------
|
||||
|
||||
# .hi file parsing is currently broken
|
||||
30
TODO
Normal file
30
TODO
Normal file
@ -0,0 +1,30 @@
|
||||
For 0.1
|
||||
----------
|
||||
|
||||
+ have eval, printf return errors as arguments, not to stdout
|
||||
|
||||
+ nice functions for cleaning up /tmp files, given a module name
|
||||
|
||||
+ PORTABILITY -- pretty much all of this is in main/SysTools.lhs in GHC
|
||||
-- where to /tmp files go? Use SysTools code from GHC
|
||||
-- need to dosify file names on in and out
|
||||
-- try to confirm the implementation of forkProcess
|
||||
|
||||
+ write a script to strip down the release code.
|
||||
|
||||
+ .hi file parser is broken on Itanium, again.
|
||||
|
||||
+ Implement hs_eval by marshalling Dynamics across to the C side for
|
||||
checking.
|
||||
|
||||
+ Make data structures used by the library Storable, for C programs
|
||||
|
||||
+ insert iface info into the state, building up a dependency graph like
|
||||
hram's. use this to allow cascading unloading. Does anyone want this?
|
||||
|
||||
+ enable more .hi interface code to provide full GHC-like :t options
|
||||
to plugs.
|
||||
|
||||
+ replace the String interface to eval with an ExpQ interface.
|
||||
|
||||
+ build way=p and way=''
|
||||
6
autogen.sh
Normal file
6
autogen.sh
Normal file
@ -0,0 +1,6 @@
|
||||
#!/bin/sh -x
|
||||
|
||||
# this is the world's most complicated autogen.sh script :)
|
||||
|
||||
exec autoconf
|
||||
|
||||
1354
config.guess
vendored
Normal file
1354
config.guess
vendored
Normal file
File diff suppressed because it is too large
Load Diff
21
config.h.in
Normal file
21
config.h.in
Normal file
@ -0,0 +1,21 @@
|
||||
/*
|
||||
* Copyright (c) 2004 Don Stewart - http://www.cse.unsw.edu.au/~dons
|
||||
* LGPL version 2.1 or later (see http://www.gnu.org/copyleft/lesser.html)
|
||||
*/
|
||||
|
||||
/* symbols that must be assigned to variables in Haskell code */
|
||||
|
||||
/* NOTE: this is not the same as symbols needed for cpp of .hs code */
|
||||
|
||||
/* path to ghc */
|
||||
#define GHC "@GHC@"
|
||||
|
||||
/* path to GHC libraries */
|
||||
#define GHC_LIB_PATH "@GHC_LIB_PATH@"
|
||||
|
||||
#define TOP "@TOP@"
|
||||
|
||||
#define LEADING_UNDERSCORE @LEADING_UNDERSCORE@
|
||||
|
||||
#define CABAL @CABAL@
|
||||
|
||||
57
config.mk.in
Normal file
57
config.mk.in
Normal file
@ -0,0 +1,57 @@
|
||||
#
|
||||
# Copyright (c) 2004 Don Stewart - http://www.cse.unsw.edu.au/~dons
|
||||
# LGPL version 2.1 or later (see http://www.gnu.org/copyleft/lesser.html)
|
||||
#
|
||||
|
||||
#
|
||||
# config.mk.in :
|
||||
# variables that need to be visible in Makefiles
|
||||
#
|
||||
|
||||
# all is the default rule for everyone
|
||||
default: all
|
||||
|
||||
PACKAGE = plugins
|
||||
UPACKAGE = Plugins
|
||||
|
||||
TOP = @TOP@
|
||||
|
||||
PREFIX = @PREFIX@
|
||||
LIBDIR = $(PREFIX)/lib/hs-$(PACKAGE)
|
||||
BINDIR = $(PREFIX)/bin
|
||||
|
||||
WHOLE_ARCHIVE_FLAG = @WHOLE_ARCHIVE_FLAG@
|
||||
|
||||
# Are we using the new Cabal packages?
|
||||
CABAL = @CABAL@
|
||||
|
||||
|
||||
GHC = @GHC@
|
||||
GHC_LIB_PATH = @GHC_LIB_PATH@
|
||||
GHC_VERSION = @GHC_VERSION@
|
||||
GLASGOW_HASKELL = @GLASGOW_HASKELL@
|
||||
GHC_EXTRA_OPTS = @SYMS@ @DEBUG_OPTS@
|
||||
GHC_LD_OPTS =
|
||||
|
||||
GHC_PKG = @GHCPKG@-@GHC_VERSION@
|
||||
|
||||
LD = @LD@
|
||||
LD_X = -x
|
||||
|
||||
HAPPY = @HAPPY@
|
||||
HAPPY_OPTS = -a -g -c
|
||||
ALEX = @ALEX@
|
||||
ALEX_OPTS = --ghc
|
||||
HADDOCK = @HADDOCK@
|
||||
|
||||
AR = @AR@
|
||||
RANLIB = @RANLIB@
|
||||
|
||||
RM = @RM@
|
||||
|
||||
INSTALL = @INSTALL@
|
||||
|
||||
# A few aliases
|
||||
INSTALL_PROGRAM = ${INSTALL} -s -m 755
|
||||
INSTALL_DATA = ${INSTALL} -m 644
|
||||
INSTALL_DATA_DIR= ${INSTALL} -d -m 755
|
||||
1460
config.sub
vendored
Normal file
1460
config.sub
vendored
Normal file
File diff suppressed because it is too large
Load Diff
198
configure.ac
Normal file
198
configure.ac
Normal file
@ -0,0 +1,198 @@
|
||||
#
|
||||
# Copyright (c) 2004 Don Stewart - http://www.cse.unsw.edu.au/~dons
|
||||
# LGPL version 2.1 or later (see http://www.gnu.org/copyleft/lesser.html)
|
||||
#
|
||||
|
||||
# sanity test
|
||||
AC_INIT(src/plugins/Plugins.hs)
|
||||
|
||||
# untested on earlier than 2.52, but it won't work anyway
|
||||
AC_PREREQ(2.53)
|
||||
|
||||
# Find out what type of system we're running on
|
||||
AC_CANONICAL_BUILD
|
||||
|
||||
PREFIX="$prefix"
|
||||
if test "$prefix" = "NONE"
|
||||
then
|
||||
PREFIX="$ac_default_prefix"
|
||||
fi
|
||||
AC_SUBST(PREFIX)
|
||||
|
||||
Platform="$build_cpu-$build_vendor-$build_os"
|
||||
|
||||
case $Platform in
|
||||
powerpc-apple-darwin*)
|
||||
MACOSX=yes
|
||||
;;
|
||||
*)
|
||||
MACOSX=no
|
||||
;;
|
||||
esac
|
||||
if test "$MACOSX" = "yes"
|
||||
then
|
||||
WHOLE_ARCHIVE_FLAG=-all_load
|
||||
LEADING_UNDERSCORE=1
|
||||
else
|
||||
WHOLE_ARCHIVE_FLAG=--whole-archive
|
||||
LEADING_UNDERSCORE=0
|
||||
fi
|
||||
|
||||
AC_SUBST(WHOLE_ARCHIVE_FLAG)
|
||||
AC_SUBST(LEADING_UNDERSCORE)
|
||||
|
||||
|
||||
TOP=`pwd`
|
||||
AC_SUBST(TOP)
|
||||
|
||||
# necessary tools
|
||||
|
||||
# allow user supplied haskell compiler
|
||||
AC_ARG_WITH(ghc,
|
||||
AC_HELP_STRING([--with-ghc=<ghc>],[use a specific Haskell compiler]),
|
||||
[ GHC="$withval"
|
||||
if test ! -f "$GHC" ; then
|
||||
AC_MSG_ERROR([$GHC not found. You need GHC to build this project])
|
||||
fi
|
||||
],
|
||||
[ AC_CHECK_PROG(GHC,ghc,ghc)
|
||||
if test -z "$GHC" ; then
|
||||
AC_MSG_ERROR([You need GHC to build this project])
|
||||
fi
|
||||
]
|
||||
)
|
||||
AC_SUBST(GHC)
|
||||
|
||||
# find path to GHC libs, for runtime_loader
|
||||
if test -n "$GHC" ; then
|
||||
AC_MSG_CHECKING([for ghc library directory])
|
||||
GHC_LIB_PATH=`$GHC --print-libdir`
|
||||
AC_MSG_RESULT([$GHC_LIB_PATH])
|
||||
fi
|
||||
AC_SUBST(GHC_LIB_PATH)
|
||||
|
||||
# check ghc version here
|
||||
if test -n "$GHC" ; then
|
||||
AC_MSG_CHECKING([for ghc version])
|
||||
GHC_VERSION=`$GHC --numeric-version`
|
||||
AC_MSG_RESULT([$GHC_VERSION])
|
||||
fi
|
||||
AC_SUBST(GHC_VERSION)
|
||||
|
||||
# Work out value of __GLASGOW_HASKELL__
|
||||
if test -n "$GHC" ; then
|
||||
AC_MSG_CHECKING([for value of __GLASGOW_HASKELL__])
|
||||
echo "main = print __GLASGOW_HASKELL__" > t.hs
|
||||
GLASGOW_HASKELL=`echo 'main' | "$GHC" --interactive -v0 -cpp t.hs`
|
||||
rm t.hs
|
||||
AC_MSG_RESULT([$GLASGOW_HASKELL])
|
||||
fi
|
||||
AC_SUBST(GLASGOW_HASKELL)
|
||||
|
||||
dnl ** quote char breaks sed
|
||||
changequote(, )dnl
|
||||
MAJOR=`echo "$GHC_VERSION" | sed 's/^\([^\.]*\)\.\([^\.]*\).*/\1/'`
|
||||
MINOR=`echo "$GHC_VERSION" | sed 's/^\([^\.]*\)\.\([^\.]*\).*/\2/'`
|
||||
changequote([, ])dnl
|
||||
|
||||
if test "$MAJOR" -lt "6"; then
|
||||
AC_MSG_ERROR(Found major $MAJOR. You need a ghc version >= 6.2) ;
|
||||
fi
|
||||
if test "$MINOR" -lt "2"; then
|
||||
AC_MSG_ERROR(You need a ghc version >= 6.2) ;
|
||||
fi
|
||||
|
||||
#Allow plugins to be built with Cabal libraries
|
||||
AC_ARG_ENABLE(cabal,
|
||||
[ --enable-cabal Enable use of Cabal packages in pluggable-1-branch
|
||||
of GHC],
|
||||
[ CABAL=1 ],
|
||||
[ CABAL=0 ])
|
||||
|
||||
# used by the Makefile`s to alter dependencies.
|
||||
if test "$MAJOR" -ge "6" -a "$MINOR" -ge "4"; then
|
||||
CABAL=1
|
||||
fi
|
||||
|
||||
AC_SUBST(CABAL)
|
||||
|
||||
# Allow a debugging version of hs-plugins to be built
|
||||
AC_ARG_ENABLE(debug,
|
||||
[ --enable-debug Enable a debug version of hs-plugins to be built],
|
||||
[ DEBUG_OPTS=-DDEBUG ],
|
||||
[ DEBUG_OPTS= ])
|
||||
|
||||
AC_SUBST(DEBUG_OPTS)
|
||||
|
||||
# allow user supplied haskell package manager
|
||||
AC_ARG_WITH(ghc-pkg,
|
||||
AC_HELP_STRING([--with-ghc-pkg=<ghc-pkg>],[use a specific ghc-pkg]),
|
||||
[ GHCPKG="$withval"
|
||||
if test ! -f "$GHCPKG" ; then
|
||||
AC_MSG_ERROR([$GHCPKG not found. You need ghc-pkg])
|
||||
fi
|
||||
],
|
||||
[ AC_CHECK_PROG(GHCPKG,ghc-pkg,ghc-pkg)
|
||||
if test -z "$GHCPKG" ; then
|
||||
AC_MSG_ERROR([You need ghc-pkg])
|
||||
fi
|
||||
]
|
||||
)
|
||||
|
||||
AC_SUBST(GHCPKG)
|
||||
|
||||
AC_CHECK_PROG(HADDOCK,haddock,haddock)
|
||||
if test -z "$HADDOCK" ; then
|
||||
AC_MSG_WARN(You need Haddock if you want developer documentation)
|
||||
fi
|
||||
|
||||
AC_CHECK_PROG(HAPPY,happy,happy)
|
||||
if test -z "$HAPPY" ; then
|
||||
AC_MSG_WARN(If you change or remove the parser you'll need Happy)
|
||||
fi
|
||||
|
||||
AC_CHECK_PROG(ALEX,alex,alex)
|
||||
if test -z "$ALEX" ; then
|
||||
AC_MSG_WARN(If you change or remove the lexer files you'll need alex)
|
||||
fi
|
||||
|
||||
AC_CHECK_PROG(LD,ld,ld)
|
||||
if test -z "$LD" ; then
|
||||
AC_MSG_WARN(You need ld -export-dynamic)
|
||||
fi
|
||||
|
||||
AC_CHECK_PROG(AR,ar,ar)
|
||||
if test -z "$AR" ; then
|
||||
AC_MSG_WARN(You need ar to build the library)
|
||||
fi
|
||||
|
||||
AC_CHECK_PROG(RANLIB,ranlib,ranlib)
|
||||
if test -z "$RANLIB" ; then
|
||||
AC_MSG_WARN(You need randlib to build the library)
|
||||
fi
|
||||
|
||||
AC_CHECK_PROG(RM,rm,rm)
|
||||
if test -z "$RM" ; then
|
||||
AC_MSG_WARN(You need rm!)
|
||||
fi
|
||||
|
||||
AC_CHECK_PROG(TEX,tex,tex)
|
||||
if test -z "$TEX" ; then
|
||||
AC_MSG_WARN(You'll need tex if you wish to build the documentation)
|
||||
fi
|
||||
AC_CHECK_PROG(TEX2PAGE,tex2page,tex2page)
|
||||
if test -z "$TEX2PAGE" ; then
|
||||
AC_MSG_WARN(You'll need tex2page if you wish to build the
|
||||
documentation: http://www.ccs.neu.edu/home/dorai/tex2page/tex2page-doc.html)
|
||||
fi
|
||||
|
||||
AC_CHECK_FUNC(arc4random, [SYMS="$SYMS -DHAVE_ARC4RANDOM"])
|
||||
|
||||
AC_SUBST(SYMS)
|
||||
|
||||
AC_PROG_INSTALL
|
||||
|
||||
AC_CONFIG_FILES(config.mk config.h)
|
||||
|
||||
AC_OUTPUT
|
||||
|
||||
31
docs/Makefile
Normal file
31
docs/Makefile
Normal file
@ -0,0 +1,31 @@
|
||||
# Copyright (c) 2004 Don Stewart - http://www.cse.unsw.edu.au/~dons
|
||||
# LGPL version 2.1 or later (see http://www.gnu.org/copyleft/lesser.html)
|
||||
|
||||
.PHONY: build clean html
|
||||
|
||||
SRC = hs-plugins
|
||||
|
||||
build: $(SRC).ps html
|
||||
|
||||
$(SRC).ps: $(SRC).dvi
|
||||
dvips -f $(SRC).dvi > $@
|
||||
|
||||
html: $(SRC).tex
|
||||
tex2page $(SRC)
|
||||
tex2page $(SRC)
|
||||
./munge.sed < $(SRC)/$(SRC).html > tmp.out
|
||||
mv tmp.out $(SRC)/$(SRC).html
|
||||
cp $(SRC)/$(SRC).html $(SRC)/index.html
|
||||
tar czf $(SRC).html.tar.gz $(SRC)
|
||||
mv $(SRC).html.tar.gz $(SRC)/
|
||||
|
||||
$(SRC).dvi: $(SRC).tex
|
||||
latex $(SRC).tex && latex $(SRC).tex
|
||||
|
||||
CLEANS= *.{ps,dvi,aux,log} *~ hs-plugins *-Z-* *.toc
|
||||
|
||||
clean:
|
||||
rm -rf $(CLEANS)
|
||||
|
||||
all: doc
|
||||
|
||||
452
docs/haskell.sty
Normal file
452
docs/haskell.sty
Normal file
@ -0,0 +1,452 @@
|
||||
%%% This is a LaTeX2e style file.
|
||||
%%%
|
||||
%%% It supports setting functional languages like Haskell.
|
||||
%%%
|
||||
%%% Manuel M. T. Chakravarty <chak@cse.unsw.edu.au> [1998..2000]
|
||||
%%%
|
||||
%%% $Id: haskell.sty,v 1.2 2004/05/16 08:20:09 dons Exp $
|
||||
%%%
|
||||
%%% This file 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 2 of the License, or
|
||||
%%% (at your option) any later version.
|
||||
%%%
|
||||
%%% This file 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.
|
||||
%%%
|
||||
%%% Acknowledegments ==========================================================
|
||||
%%%
|
||||
%%% Thanks to Gabriele Keller <keller@cs.tu-berlin.de> for beta testing and
|
||||
%%% code contributions. Thanks to the LaTeX3 project for improving the LaTeX
|
||||
%%% sources (which helped me writing this code). Furthermore, I am grateful
|
||||
%%% to Martin Erwig <Martin.Erwig@FernUni-Hagen.de> for feedback and
|
||||
%%% suggestions, and to Conal Elliott <conal@MICROSOFT.com> for pointing out
|
||||
%%% a tricky bug.
|
||||
%%%
|
||||
%%% TODO ======================================================================
|
||||
%%%
|
||||
%%% B ~ bug; F ~ feature
|
||||
%%%
|
||||
%%% * F: Along the lines of the discussion with Martin Erwig add support for
|
||||
%%% keywords etc (see the emails)
|
||||
%%%
|
||||
%%% * B: If we have as input
|
||||
%%%
|
||||
%%% \<map
|
||||
%%% g\>
|
||||
%%%
|
||||
%%% there won't be a `\hsap' inserted!! (Can this be solved by using
|
||||
%%% \obeylines in \<...\>?)
|
||||
%%%
|
||||
%%% * B: A \relax is needed after a & if it immediately followed by a \hsbody{}
|
||||
%%% (See TeXbook, S.240)
|
||||
%%%
|
||||
%%% * F: Implement a \hstext{...} as \(\text{...}\).
|
||||
%%%
|
||||
%%% * We would like hswhere* etc that are like haskell* (\hsalign already
|
||||
%%% supports this, ie, there is a \hsalign*).
|
||||
%%%
|
||||
%%% * Star-Versions of if, let etc that use a single line layout (maybe not
|
||||
%%% with star, because of the above).
|
||||
%%%
|
||||
%%% * Support for enforcing and prohibiting breaks in `haskell' displays.
|
||||
%%%
|
||||
%%% * Comments in a let-in should be aligned in the same way for the bindings
|
||||
%%% and the body.
|
||||
%%%
|
||||
%%% * It would be nice to have different styles (indentation after in of
|
||||
%%% let-in or not) etc; either to be set with a package option or in the
|
||||
%%% preamble (the latter probably makes more sense).
|
||||
%%%
|
||||
%%% * Literate programming facility: Variant of the `haskell' env (maybe
|
||||
%%% `hschunk', which is named and can be used in other chunks). But maybe
|
||||
%%% it is not necessary to provide a chunk-based reordering mechanism,
|
||||
%%% because most of the Haskell stuff can be in any order anyway...
|
||||
%%% Important is to provide a way to define visually pleasing layout
|
||||
%%% together with the raw Haskell form for program output. (Maybe `haskell*'
|
||||
%%% as Haskell env that outputs its contents?)
|
||||
%%%
|
||||
|
||||
%% Initialization
|
||||
%% ==============
|
||||
|
||||
\NeedsTeXFormat{LaTeX2e}
|
||||
\ProvidesPackage{haskell}[2000/10/05 v1.0e Chilli's Haskell Style]
|
||||
|
||||
|
||||
%% Parameters
|
||||
%% ==========
|
||||
|
||||
\newskip\hsmargin
|
||||
\hsmargin\leftmargini
|
||||
|
||||
|
||||
%% Main macros and environments
|
||||
%% ============================
|
||||
|
||||
% applications
|
||||
%
|
||||
\newcommand{\hsap}{% % application by juxtaposition
|
||||
\unskip\mskip 4mu plus 1mu} % only the last \hsap counts
|
||||
|
||||
% commands to start and stop setting spaces as \hsap
|
||||
%
|
||||
{\obeyspaces\gdef\@hsSpaceToApp{\obeyspaces\let =\hsap}} % spaces matter!!!
|
||||
{\obeyspaces\gdef\@hsNormalSpace{\let =\space}}
|
||||
|
||||
% commands to start and stop treating numbers specially, ie, we don't want
|
||||
% them to be affected by font changing commands in Haskell contexts as this
|
||||
% would give italic numerals; the trick is to redefine their math code such
|
||||
% that they go into math class 0 and thus don't change families (cf. `The
|
||||
% TeXbook', Chapter 17, pp152)
|
||||
%
|
||||
\newcommand{\@hsRmNumbers}{%
|
||||
\mathcode`0="0030
|
||||
\mathcode`1="0031
|
||||
\mathcode`2="0032
|
||||
\mathcode`3="0033
|
||||
\mathcode`4="0034
|
||||
\mathcode`5="0035
|
||||
\mathcode`6="0036
|
||||
\mathcode`7="0037
|
||||
\mathcode`8="0038
|
||||
\mathcode`9="0039
|
||||
}
|
||||
\newcommand{\@hsNormalNumbers}{%
|
||||
\mathcode`0="7030
|
||||
\mathcode`1="7031
|
||||
\mathcode`2="7032
|
||||
\mathcode`3="7033
|
||||
\mathcode`4="7034
|
||||
\mathcode`5="7035
|
||||
\mathcode`6="7036
|
||||
\mathcode`7="7037
|
||||
\mathcode`8="7038
|
||||
\mathcode`9="7039
|
||||
}
|
||||
|
||||
% Save the bindings of the standard math commands
|
||||
%
|
||||
% This is somewhat subtle as we want to able to enter the original math mode
|
||||
% within Haskell mode and we have to ensure that the different opening
|
||||
% commands are matched by the correct versions of the closing commands.
|
||||
%
|
||||
\let\@hsmathorg=\(
|
||||
\let\@hsmathendorg=\)
|
||||
\let\hs@crorg=\\
|
||||
\newcommand{\@hsmath}{%
|
||||
\relax\hbox\bgroup
|
||||
\@hsNormalSpace
|
||||
\@hsNormalNumbers
|
||||
\let\(=\@hsmathorgx
|
||||
\let\)=\@hsmathend
|
||||
\def\\{\hs@crorg}%
|
||||
\@hsmathorg
|
||||
}
|
||||
\newcommand{\@hsmathend}{%
|
||||
\@hsmathendorg
|
||||
\egroup
|
||||
}
|
||||
\newcommand{\@hsmathorgx}{%
|
||||
\relax\@hsmathorg
|
||||
\let\)=\@hsmathendorg
|
||||
}
|
||||
|
||||
%% Typesetting of Haskell
|
||||
%% ======================
|
||||
|
||||
% Inline Haskell phrases are delimited by `\<' and `\>'.
|
||||
%
|
||||
% Note: `\>' is only locally redefined.
|
||||
%
|
||||
\newcommand{\<}{%
|
||||
\@hsmathorg
|
||||
\mathit\bgroup
|
||||
\@hsSpaceToApp
|
||||
\@hsRmNumbers
|
||||
\let\>=\@endhs
|
||||
\let\(=\@hsmath
|
||||
\def\\{\cr} % for Haskell alignments
|
||||
}
|
||||
\newcommand{\@endhs}{%
|
||||
\egroup
|
||||
\@hsmathendorg
|
||||
}
|
||||
|
||||
% Displayed Haskell (environment `haskell' and `haskell*')
|
||||
%
|
||||
% There are two kind of preambles for \halign: \hs@preambleNorm is for
|
||||
% `amsmath' style alignments and \hs@preambleStar for `equation' style
|
||||
% alignments (but with an unbound number of columns to its right)
|
||||
%
|
||||
% We need #### to get a ## in the \edef building the \halign command.
|
||||
%
|
||||
% first the preambles (also used in \hs@align below):
|
||||
%
|
||||
\def\hs@preambleNorm{%
|
||||
\noexpand\<####\unskip\noexpand\>\hfil&&\noexpand%
|
||||
\<{}####\unskip\noexpand\>\hfil}
|
||||
\def\hs@preambleStar{%
|
||||
\noexpand\<####\unskip\noexpand\>\hfil&\hfil\noexpand%
|
||||
\<{}####\unskip{}\noexpand\>\hfil&&\noexpand\<{}####\noexpand\>\hfil}
|
||||
%
|
||||
% the environments:
|
||||
%
|
||||
\newenvironment{haskell}{%
|
||||
\@haskell\hs@preambleNorm}{%
|
||||
\@endhaskell
|
||||
}
|
||||
\newenvironment{haskell*}{%
|
||||
\@haskell\hs@preambleStar}{%
|
||||
\@endhaskell
|
||||
}
|
||||
%
|
||||
% auxiliary definition getting the preamble as its first argument and starting
|
||||
% the environment:
|
||||
%
|
||||
\def\@haskell#1{%
|
||||
\bgroup
|
||||
\vspace\abovedisplayskip
|
||||
\let\(=\@hsmath % Important when `\(' occurs after `&'!
|
||||
\edef\@preamble{%
|
||||
\halign\bgroup\hskip\hsmargin#1\cr}
|
||||
\@preamble
|
||||
}
|
||||
%
|
||||
% Auxiliary definition ending environment:
|
||||
%
|
||||
\def\@endhaskell{%
|
||||
\crcr\egroup
|
||||
\vspace\belowdisplayskip
|
||||
\egroup\noindent\ignorespaces\global\@ignoretrue%
|
||||
}
|
||||
|
||||
% single line comment and keyword style
|
||||
%
|
||||
\newcommand{\hscom}[1]{%
|
||||
\relax\(\quad\textnormal{--- #1}\)}
|
||||
\newcommand{\hskwd}[1]{%
|
||||
\mathbf{#1}}
|
||||
|
||||
% informal description
|
||||
%
|
||||
\newcommand{\hsinf}[1]{%
|
||||
\(\langle\textnormal{#1}\rangle\)}
|
||||
|
||||
% literals and some special symbols
|
||||
%
|
||||
\newcommand{\hschar}[1]{\textrm'\mathrm{#1}\textrm'} % character literals
|
||||
\newcommand{\hsstr}[1]{"\mathrm{#1}"} % strings literals
|
||||
\newcommand{\hsfrom}{\leftarrow} % <-
|
||||
|
||||
% aligned subphrases
|
||||
%
|
||||
% check for an optional star and combine prefix (in #1) with one of the two
|
||||
% preambles (with star means to center the material between the first and
|
||||
% second &)
|
||||
%
|
||||
\def\hs@align#1{%
|
||||
\@ifstar
|
||||
{\hs@align@pre{#1\hs@preambleStar}}%
|
||||
{\hs@align@pre{#1\hs@preambleNorm}}%
|
||||
}
|
||||
%
|
||||
% test for optional argument; #1: preamble
|
||||
%
|
||||
\def\hs@align@pre#1{%
|
||||
\@testopt{\hs@align@prealign#1}t}
|
||||
%
|
||||
% got all arguments, now for the real code; #1: preamble; #2: alignment;
|
||||
% #3: body (the material set by the \halign)
|
||||
%
|
||||
\def\hs@align@prealign#1[#2]#3{%
|
||||
\relax\(
|
||||
\edef\@preamble{%
|
||||
\halign\bgroup#1\cr}
|
||||
\if #2t\vtop \else \if#2b\vbox \else \vcenter \fi\fi
|
||||
\bgroup%
|
||||
\@preamble
|
||||
#3%
|
||||
\crcr\egroup%
|
||||
\egroup\)
|
||||
}
|
||||
%
|
||||
% user-level command: alignment without a prefix
|
||||
%
|
||||
\newcommand{\hsalign}{%
|
||||
\relax
|
||||
\hs@align\relax%
|
||||
}
|
||||
|
||||
% subphrase breaking the surrounding alignment being flushed left
|
||||
%
|
||||
\newcommand{\hsnoalign}[1]{%
|
||||
\noalign{%
|
||||
\hs@align{\hskip\hsmargin}{#1}%
|
||||
}%
|
||||
}
|
||||
|
||||
% body expression breaking the surrounding alignment
|
||||
%
|
||||
% * setting \hsmargin to 0pt within the preamble (and _after_ it is used in
|
||||
% the preamble) is crucial, as we want \hsmargin only to be applied in
|
||||
% _outermost_ alignments
|
||||
%
|
||||
\newcommand{\hsbody}[1]{%
|
||||
{}\\
|
||||
\noalign{%
|
||||
\hs@align{\hskip\hsmargin\quad\hsmargin0pt}{#1}%
|
||||
}%
|
||||
}
|
||||
|
||||
|
||||
%% Defining commands for use in the Haskell mode
|
||||
%% =============================================
|
||||
%%
|
||||
%% We use some of the low-level machinery defined in LaTeX's source file
|
||||
%% `ltdefns.dtx'.
|
||||
%%
|
||||
%% \hscommand is similar to \newcommand, but there is no *-version.
|
||||
%%
|
||||
%% We use our own definitions here to insert a strategic `\relax' (see below)
|
||||
%% and to obey spaces within the bodies of Haskell definitions.
|
||||
|
||||
\newcommand{\hscommand}[1]{\@testopt{\hs@newcommand#1}0}
|
||||
\def\hs@newcommand#1[#2]{%
|
||||
\obeyspaces % spaces count in Haskell macros
|
||||
\@ifnextchar [{\hs@xargdef#1[#2]}%
|
||||
{\hs@argdef#1[#2]}}
|
||||
|
||||
% All this trouble only to be able to add the `\relax' into the expansion
|
||||
% process. If we don't that, commands without optional arguments when
|
||||
% invoked after an alignment character & don't work properly (actually, the
|
||||
% \obeyspaces doesn't work). I am sure that has to do with the scanning for
|
||||
% \omit etc in \halign (TeXbook, p240), but I don't understand yet why it
|
||||
% is problematic in this case.
|
||||
%
|
||||
% Furthermore, we switch off \obeyspaces in the end.
|
||||
%
|
||||
\long\def\hs@argdef#1[#2]#3{%
|
||||
\@ifdefinable#1{%
|
||||
\expandafter\def\expandafter#1\expandafter{%
|
||||
\relax % in order to stop token expansion after &
|
||||
\csname\string#1\expandafter\endcsname}%
|
||||
\expandafter\@yargdef
|
||||
\csname\string#1\endcsname
|
||||
\@ne
|
||||
{#2}%
|
||||
{#3}}%
|
||||
\catcode`\ =10% % stop obeying spaces now
|
||||
}
|
||||
|
||||
% Switch off \obeyspaces in the end.
|
||||
%
|
||||
\long\def\hs@xargdef#1[#2][#3]#4{%
|
||||
\@ifdefinable#1{%
|
||||
\expandafter\def\expandafter#1\expandafter{%
|
||||
\expandafter
|
||||
\@protected@testopt
|
||||
\expandafter
|
||||
#1%
|
||||
\csname\string#1\expandafter\endcsname
|
||||
{#3}}%
|
||||
\expandafter\@yargdef
|
||||
\csname\string#1\endcsname
|
||||
\tw@
|
||||
{#2}%
|
||||
{#4}}%
|
||||
\catcode`\ =10% % stop obeying spaces now
|
||||
}
|
||||
|
||||
|
||||
%% Abbreviations
|
||||
%% =============
|
||||
|
||||
% infix operators
|
||||
%
|
||||
\newcommand{\hsapp}{\mathbin{+\mkern-7mu+}}
|
||||
\newcommand{\hsifix}[1]{\mathbin{\string`#1\string`}}
|
||||
|
||||
% let expression
|
||||
%
|
||||
\hscommand{\hslet}[3][t]{%
|
||||
\hsalign[#1]{%
|
||||
\hskwd{let}\\
|
||||
\quad\hsalign{#2}\\
|
||||
\hskwd{in}\\
|
||||
#3
|
||||
}%
|
||||
}
|
||||
|
||||
% if expression
|
||||
%
|
||||
\hscommand{\hsif}[4][t]{%
|
||||
\hsalign[#1]{%
|
||||
\hskwd{if} #2 \hskwd{then}\\
|
||||
\quad\hsalign{#3}\\
|
||||
\hskwd{else}\\
|
||||
\quad\hsalign{#4}%
|
||||
}%
|
||||
}
|
||||
|
||||
% case expression
|
||||
%
|
||||
\hscommand{\hscase}[3][t]{%
|
||||
\hsalign[#1]{%
|
||||
\hskwd{case} #2 \hskwd{of}\\
|
||||
\quad\hsalign{#3}%
|
||||
}%
|
||||
}
|
||||
|
||||
% where clause
|
||||
%
|
||||
% * it is important to take the \quad into the preamble, so that nested
|
||||
% \noaligns can break it
|
||||
%
|
||||
\hscommand{\hswhere}[1]{%
|
||||
\hsbody{%
|
||||
\hskwd{where}\\
|
||||
\hs@align{\quad}{#1}%
|
||||
}%
|
||||
}
|
||||
|
||||
% do expression
|
||||
%
|
||||
\hscommand{\hsdo}[2][t]{%
|
||||
\hsalign[#1]{%
|
||||
\hskwd{do}\\
|
||||
\quad\hsalign{#2}\\
|
||||
}%
|
||||
}
|
||||
|
||||
|
||||
%% Extensions for Distributed Haskell (Goffin)
|
||||
%% ===========================================
|
||||
%%
|
||||
%% These definitions may change in the future.
|
||||
|
||||
\hscommand{\hsunif}{\mathbin{:=:}}
|
||||
\hscommand{\hsalias}{\mathrel{\sim}}
|
||||
\hscommand{\hsoutof}{\twoheadleftarrow}
|
||||
\hscommand{\hsinto}{\twoheadrightarrow}
|
||||
\hscommand{\hsparc}{\binampersand}
|
||||
\hscommand{\hsseq}{\Longrightarrow}
|
||||
\hscommand{\hsex}[2]{{\hskwd{ex} #1 \hskwd{in} #2}}
|
||||
|
||||
\hscommand{\hsexin}[3][t]{%
|
||||
\hsalign[#1]{%
|
||||
\hskwd{ex} #2 \hskwd{in}\\
|
||||
\quad\hsalign{#3}\\
|
||||
}%
|
||||
}
|
||||
|
||||
\hscommand{\hschoice}[2][t]{%
|
||||
\hsalign[#1]{%
|
||||
\hskwd{choice}\\
|
||||
\quad\hsalign{#2}\\
|
||||
}%
|
||||
}
|
||||
|
||||
|
||||
36
docs/hs-plugins.1
Normal file
36
docs/hs-plugins.1
Normal file
@ -0,0 +1,36 @@
|
||||
.TH HS-PLUGINS 1 2005-03-26 "hs-plugins version 0.9.8" "User Manual"
|
||||
|
||||
.SH NAME
|
||||
hs-plugins \- dynamic linker library for Haskell
|
||||
|
||||
.SH DESCRIPTION
|
||||
.ds c \fIhs-plugins\fP
|
||||
\*c is a library for loading plugins written in Haskell into an
|
||||
application at runtime. It also provides a mechanism for (re)compiling
|
||||
Haskell source at runtime. Thirdly, a combination of runtime compilation
|
||||
and dynamic loading provides a suite of eval functions. Values exported
|
||||
by plugins are transparently available to Haskell host applications, and
|
||||
bindings exist to use Haskell plugins from at least C and Objective C
|
||||
programs. hs-plugins requires ghc-6.2.2 or greater.
|
||||
|
||||
.SH DOCUMENTATION
|
||||
The hs-plugins user manual is distributed in html format, and may be
|
||||
found at <http://www.cse.unsw.edu.au/~dons/hs-plugins/>
|
||||
|
||||
.SH BUGS
|
||||
Bug reports, and any other feedback, should be sent to
|
||||
Don Stewart <dons@cse.unsw.edu.au>
|
||||
.SH COPYRIGHT
|
||||
Copyright \(co 2004-2005 Don Stewart
|
||||
.PP
|
||||
The hs-plugins library modules are distributed under the terms of the
|
||||
LGPL.
|
||||
.SH "SEE ALSO"
|
||||
.BR dlopen (3)
|
||||
|
||||
.SH AUTHOR
|
||||
|
||||
This manual page was written by Don Stewart, based on the man page for
|
||||
cpphs (written by Ian Lynagh).
|
||||
|
||||
|
||||
1
docs/hs-plugins.hdir
Normal file
1
docs/hs-plugins.hdir
Normal file
@ -0,0 +1 @@
|
||||
hs-plugins
|
||||
1808
docs/hs-plugins.tex
Normal file
1808
docs/hs-plugins.tex
Normal file
File diff suppressed because it is too large
Load Diff
17
docs/munge.sed
Normal file
17
docs/munge.sed
Normal file
@ -0,0 +1,17 @@
|
||||
#!/usr/bin/sed -f
|
||||
|
||||
# de-boldify and <p>-ify the Contents.
|
||||
|
||||
/Contents/ {
|
||||
:loop
|
||||
/Go to/ {
|
||||
b end
|
||||
}
|
||||
s,<p>,,
|
||||
s,<b>,,
|
||||
s,</b>,,
|
||||
s,</p>,,
|
||||
n
|
||||
b loop
|
||||
}
|
||||
:end
|
||||
9
docs/tex2page.sty
Normal file
9
docs/tex2page.sty
Normal file
@ -0,0 +1,9 @@
|
||||
% tex2page.sty
|
||||
% Dorai Sitaram
|
||||
|
||||
% Loading this file in a LaTeX document
|
||||
% gives it all the macros of tex2page.tex,
|
||||
% but via a more LaTeX-convenient filename.
|
||||
|
||||
\input{tex2page}
|
||||
|
||||
1381
docs/tex2page.tex
Normal file
1381
docs/tex2page.tex
Normal file
File diff suppressed because it is too large
Load Diff
17
examples/README
Normal file
17
examples/README
Normal file
@ -0,0 +1,17 @@
|
||||
These examples illustrate the various uses of hs-plugins.
|
||||
|
||||
conf a configuration file edsl using plugins
|
||||
dynload dynamically typed load
|
||||
eval runtime evaluation of haskell strings, from Haskell and C
|
||||
hmake the 'plugs' haskell interpreter
|
||||
iface test the interface file parser
|
||||
load load a plugin
|
||||
make build a Haskell file
|
||||
makewith merge and build a Haskell file
|
||||
multi load multiple plugins at once
|
||||
objc load Haskell plugins into object C programs
|
||||
pkgconf test package.conf parsing
|
||||
popen test popen
|
||||
reload reload a plugin when it changes
|
||||
shell a simple string filter
|
||||
unload test unloading of plugins
|
||||
45
examples/TIMINGS
Normal file
45
examples/TIMINGS
Normal file
@ -0,0 +1,45 @@
|
||||
Method:
|
||||
* "pdynload"
|
||||
comes from pdynload/small
|
||||
* "load + ghc"
|
||||
comes from pdynload/null, with lines 13-14
|
||||
uncommented from prog/Main.hs
|
||||
* "dynload"
|
||||
from dynload/simple
|
||||
* "load, no check"
|
||||
from pdynload/null, with lines 13-14 of prog/Main.hs
|
||||
commented out
|
||||
|
||||
For example, to run the "pdynload" test:
|
||||
$ cd pdynload/small
|
||||
$ make
|
||||
$ make check # to prime caches, etc.
|
||||
$ time make check
|
||||
$ time make check
|
||||
$ time make check # run 'time make check' until value converges
|
||||
|
||||
The converged value is entered into the "Raw" timings, and then the
|
||||
scaled timing is calculated for each machine. These scaled values were
|
||||
then averaged over the number of machines, yielding the final
|
||||
"Average" scores -- the average over a number of machines and os.
|
||||
|
||||
Raw timing:
|
||||
pdynload load+ghc dynload load, no check
|
||||
|
||||
0.33 0.25 0.22 0.21 -- P4 2.6 , OpenBSD
|
||||
0.38 0.31 0.29 0.27 -- P4 2.66, Linux
|
||||
0.84 0.77 0.64 0.55 -- Quad P4 2.4, Linux
|
||||
0.76 0.60 0.52 0.50 -- AMD 1.1G, Linux
|
||||
0.95 0.83 0.75 0.72 -- G5 2.0G, Mac OS X
|
||||
-- Quad Itanium 1,Linux
|
||||
|
||||
Scaled:
|
||||
1.57 1.19 1.05 1
|
||||
1.40 1.15 1.07
|
||||
1.52 1.4 1.16
|
||||
1.52 1.2 1.04
|
||||
1.32 1.15 1.04
|
||||
|
||||
Average:
|
||||
=1.46 = 1.218 = 1.07
|
||||
|
||||
41
examples/build.mk
Normal file
41
examples/build.mk
Normal file
@ -0,0 +1,41 @@
|
||||
# how to build the default projects
|
||||
|
||||
include $(TOP)/config.mk
|
||||
include $(TOP)/examples/check.mk
|
||||
|
||||
BIN= prog/a.out
|
||||
OBJ= prog/Main.o
|
||||
SRC= prog/Main.hs
|
||||
|
||||
BINDIR= prog
|
||||
REALBIN= ./a.out
|
||||
|
||||
API_OBJ= api/API.o
|
||||
|
||||
INCLUDES= -i$(TOP)/examples/$(TEST)/api
|
||||
PKGFLAGS= -package-conf $(TOP)/plugins.conf.inplace -package plugins
|
||||
GHCFLAGS= -Onot -cpp -fglasgow-exts
|
||||
|
||||
.SUFFIXES : .o .hs .hi .lhs .hc .s
|
||||
|
||||
all: $(BIN)
|
||||
|
||||
$(BIN) : $(PRIOR_OBJS) $(API_OBJ) $(SRC) $(EXTRA_OBJS)
|
||||
@rm -f $@
|
||||
@$(GHC) --make -o $@ $(INCLUDES) $(PKGFLAGS) $(GHCFLAGS) $(EXTRAFLAGS) $(API) $(SRC)
|
||||
|
||||
# Standard suffix rules
|
||||
.o.hi:
|
||||
@:
|
||||
.hs.o:
|
||||
@$(GHC) $(INCLUDES) $(PKGFLAGS) $(GHCFLAGS) $(EXTRAFLAGS) -c $<
|
||||
|
||||
clean:
|
||||
find . -name '*~' -exec rm {} \;
|
||||
rm -rf *.{o,hi,dep}
|
||||
rm -rf */*.{hi,o,old} */a.out
|
||||
rm -rf */*core
|
||||
rm -rf */*.a
|
||||
rm -rf */package.conf
|
||||
rm -rf *.a
|
||||
|
||||
24
examples/check.mk
Normal file
24
examples/check.mk
Normal file
@ -0,0 +1,24 @@
|
||||
include $(TOP)/config.mk
|
||||
|
||||
check: $(BIN)
|
||||
@(cd $(BINDIR) ;\
|
||||
expected="expected" ;\
|
||||
if [ -f "expected" -o -f "expected.$(GLASGOW_HASKELL)" ] ;\
|
||||
then \
|
||||
actual_out="/tmp/hs-plugins-actual.out.$$$$" ;\
|
||||
diff_out="/tmp/hs-plugins.diff.$$$$" ;\
|
||||
$(REALBIN) > $$actual_out 2>&1 || true ;\
|
||||
if [ -f "expected.$(GLASGOW_HASKELL)" ] ; then \
|
||||
expected="expected.$(GLASGOW_HASKELL)" ;\
|
||||
fi ;\
|
||||
diff -u $$expected $$actual_out > $$diff_out || true ;\
|
||||
if [ -s "$$diff_out" ] ; then \
|
||||
echo "failed with:" ;\
|
||||
cat "$$diff_out" | sed '1,3d' ;\
|
||||
else \
|
||||
echo "ok." ;\
|
||||
fi ;\
|
||||
rm $$actual_out $$diff_out ;\
|
||||
else \
|
||||
$(REALBIN) 2>&1 || true ;\
|
||||
fi)
|
||||
11
examples/conf/simple/Mailrc.conf
Normal file
11
examples/conf/simple/Mailrc.conf
Normal file
@ -0,0 +1,11 @@
|
||||
import System.Directory
|
||||
|
||||
resource = mail {
|
||||
-- editor = do b <- doesFileExist "/usr/bin/emacs"
|
||||
-- return $ if b then "emacs" else "vi" ,
|
||||
editor = do b <- doesFileExist "/bin/sh"
|
||||
return "sh",
|
||||
|
||||
attribution = \name -> "Today, "++name++" wrote :"
|
||||
}
|
||||
|
||||
28
examples/conf/simple/Mailrc.stub
Normal file
28
examples/conf/simple/Mailrc.stub
Normal file
@ -0,0 +1,28 @@
|
||||
module Mailrc ( resource ) where
|
||||
|
||||
import API
|
||||
|
||||
resource :: Interface
|
||||
resource = mail
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
4
examples/conf/simple/Makefile
Normal file
4
examples/conf/simple/Makefile
Normal file
@ -0,0 +1,4 @@
|
||||
TEST= conf/simple
|
||||
|
||||
TOP=../../..
|
||||
include ../../build.mk
|
||||
27
examples/conf/simple/api/API.hs
Normal file
27
examples/conf/simple/api/API.hs
Normal file
@ -0,0 +1,27 @@
|
||||
--
|
||||
-- the configuration file interface.
|
||||
--
|
||||
|
||||
module API where
|
||||
|
||||
data Color = Black | Grey | Green | Cyan | Yellow | Magenta | Red
|
||||
|
||||
data Interface = Interface {
|
||||
editor :: IO String,
|
||||
attribution :: String -> String,
|
||||
header_color :: Color,
|
||||
colorize :: [String],
|
||||
include :: Bool
|
||||
}
|
||||
|
||||
-- Default settings
|
||||
mail :: Interface
|
||||
mail = Interface {
|
||||
editor = return "vi",
|
||||
|
||||
attribution = (\user -> user ++ " wrote:"),
|
||||
header_color = Grey,
|
||||
colorize = [],
|
||||
include = True
|
||||
}
|
||||
|
||||
22
examples/conf/simple/prog/Main.hs
Normal file
22
examples/conf/simple/prog/Main.hs
Normal file
@ -0,0 +1,22 @@
|
||||
|
||||
import Plugins
|
||||
import API
|
||||
|
||||
conf = "../Mailrc.conf"
|
||||
stub = "../Mailrc.stub"
|
||||
apipath = "../api"
|
||||
|
||||
main = do
|
||||
status <- makeWith conf stub ["-i"++apipath]
|
||||
o <- case status of
|
||||
MakeFailure e -> mapM_ putStrLn e >> error "failed"
|
||||
MakeSuccess _ o -> return o
|
||||
status <- load o [apipath] [] "resource"
|
||||
v <- case status of
|
||||
LoadFailure err -> mapM_ putStrLn err >> error "no"
|
||||
LoadSuccess _ v -> return v
|
||||
|
||||
user_editor <- editor v
|
||||
putStrLn user_editor
|
||||
makeCleaner o
|
||||
|
||||
1
examples/conf/simple/prog/expected
Normal file
1
examples/conf/simple/prog/expected
Normal file
@ -0,0 +1 @@
|
||||
sh
|
||||
6
examples/dynload/io/Makefile
Normal file
6
examples/dynload/io/Makefile
Normal file
@ -0,0 +1,6 @@
|
||||
TEST=dynload/io
|
||||
|
||||
EXTRA_OBJS=TestIO.o
|
||||
|
||||
TOP=../../..
|
||||
include ../../build.mk
|
||||
86
examples/dynload/io/TestIO.hs
Normal file
86
examples/dynload/io/TestIO.hs
Normal file
@ -0,0 +1,86 @@
|
||||
{-# OPTIONS -fglasgow-exts -cpp #-}
|
||||
--
|
||||
-- Copyright (c) 2004 Don Stewart - http://www.cse.unsw.edu.au/~dons
|
||||
-- LGPL version 2.1 or later (see http://www.gnu.org/copyleft/lesser.html)
|
||||
--
|
||||
|
||||
module TestIO ( resource_dyn ) where
|
||||
|
||||
import API
|
||||
import AltData
|
||||
|
||||
import System.IO
|
||||
import System.Posix.Types ( ProcessID, Fd )
|
||||
import System.Posix.Process ( forkProcess, executeFile, getProcessID )
|
||||
import System.Posix.IO ( createPipe, stdInput,
|
||||
stdOutput, fdToHandle, closeFd, dupTo )
|
||||
|
||||
resource_dyn :: Dynamic
|
||||
resource_dyn = toDyn resource
|
||||
|
||||
resource :: TestIO
|
||||
resource = testio { field = date }
|
||||
|
||||
|
||||
--
|
||||
-- call a shell command , returning it's output
|
||||
--
|
||||
date :: IO String
|
||||
date = do (hdl,_,_) <- catch (popen "/bin/date") (\_->error "popen failed")
|
||||
hGetLine hdl
|
||||
|
||||
------------------------------------------------------------------------
|
||||
--
|
||||
-- my implementation of $val = `cmd`; (if this was perl)
|
||||
--
|
||||
-- provide similar functionality to popen(3),
|
||||
-- along with bidirectional ipc via pipes
|
||||
-- return's the pid of the child process
|
||||
--
|
||||
-- there are two different forkProcess functions. the pre-620 was a
|
||||
-- unix-fork style function, and the modern function has semantics more
|
||||
-- like the Awkward-Squad paper. We provide implementations of popen
|
||||
-- using both versions, depending on which GHC the user wants to try.
|
||||
--
|
||||
|
||||
popen :: FilePath -> IO (Handle, Handle, ProcessID)
|
||||
popen cmd = do
|
||||
(pr, pw) <- createPipe
|
||||
(cr, cw) <- createPipe
|
||||
|
||||
-- parent --
|
||||
let parent = do closeFd cw
|
||||
closeFd pr
|
||||
-- child --
|
||||
let child = do closeFd pw
|
||||
closeFd cr
|
||||
exec cmd (pr,cw)
|
||||
error "exec cmd failed!" -- typing only
|
||||
|
||||
-- if the parser front end understood cpp, this would work
|
||||
-- #if __GLASGOW_HASKELL__ >= 601
|
||||
pid <- forkProcess child -- fork child
|
||||
parent -- and run parent code
|
||||
-- #else
|
||||
-- p <- forkProcess
|
||||
-- pid <- case p of
|
||||
-- Just pid -> parent >> return pid
|
||||
-- Nothing -> child
|
||||
-- #endif
|
||||
|
||||
hcr <- fdToHandle cr
|
||||
hpw <- fdToHandle pw
|
||||
|
||||
return (hcr,hpw,pid)
|
||||
|
||||
--
|
||||
-- execve cmd in the child process, dup'ing the file descriptors passed
|
||||
-- as arguments to become the child's stdin and stdout.
|
||||
--
|
||||
exec :: FilePath -> (Fd,Fd) -> IO ()
|
||||
exec cmd (pr,cw) = do
|
||||
dupTo pr stdInput
|
||||
dupTo cw stdOutput
|
||||
executeFile cmd False [] Nothing
|
||||
|
||||
------------------------------------------------------------------------
|
||||
19
examples/dynload/io/api/API.hs
Normal file
19
examples/dynload/io/api/API.hs
Normal file
@ -0,0 +1,19 @@
|
||||
{-# OPTIONS -fglasgow-exts #-}
|
||||
|
||||
module API where
|
||||
|
||||
import AltData
|
||||
|
||||
data TestIO = TestIO {
|
||||
field :: IO String
|
||||
}
|
||||
|
||||
instance Typeable TestIO where
|
||||
#if __GLASGOW_HASKELL__ >= 603
|
||||
typeOf i = mkTyConApp (mkTyCon "API.TestIO") []
|
||||
#else
|
||||
typeOf i = mkAppTy (mkTyCon "API.TestIO") []
|
||||
#endif
|
||||
|
||||
testio :: TestIO
|
||||
testio = TestIO { field = return "default value" }
|
||||
12
examples/dynload/io/prog/Main.hs
Normal file
12
examples/dynload/io/prog/Main.hs
Normal file
@ -0,0 +1,12 @@
|
||||
|
||||
import Plugins
|
||||
import API
|
||||
|
||||
main = do
|
||||
m_v <- dynload "../TestIO.o" ["../api"]
|
||||
["../../../../plugins.conf.inplace"] "resource_dyn"
|
||||
case m_v of
|
||||
LoadFailure _ -> error "couldn't compile"
|
||||
LoadSuccess _ v -> do
|
||||
s <- field v
|
||||
if s /= [] then print True else print False
|
||||
1
examples/dynload/io/prog/expected
Normal file
1
examples/dynload/io/prog/expected
Normal file
@ -0,0 +1 @@
|
||||
True
|
||||
4
examples/dynload/poly/Makefile
Normal file
4
examples/dynload/poly/Makefile
Normal file
@ -0,0 +1,4 @@
|
||||
TEST=dynload/poly
|
||||
EXTRA_OBJS=Plugin.o
|
||||
TOP=../../..
|
||||
include ../../build.mk
|
||||
12
examples/dynload/poly/Plugin.hs
Normal file
12
examples/dynload/poly/Plugin.hs
Normal file
@ -0,0 +1,12 @@
|
||||
module Plugin where
|
||||
|
||||
import API
|
||||
import AltData
|
||||
|
||||
my_fun = plugin {
|
||||
equals = \x y -> (x /= y) -- a strange equals function :)
|
||||
}
|
||||
|
||||
resource_dyn :: Dynamic
|
||||
resource_dyn = toDyn my_fun
|
||||
|
||||
24
examples/dynload/poly/api/API.hs
Normal file
24
examples/dynload/poly/api/API.hs
Normal file
@ -0,0 +1,24 @@
|
||||
{-# OPTIONS -cpp #-}
|
||||
|
||||
module API where
|
||||
|
||||
import AltData
|
||||
|
||||
data Interface = Interface {
|
||||
equals :: forall t. Eq t => t -> t -> Bool
|
||||
}
|
||||
|
||||
--
|
||||
-- see how it hides the internal type.. but to compile GHC still checks
|
||||
-- the type.
|
||||
--
|
||||
instance Typeable Interface where
|
||||
#if __GLASGOW_HASKELL__ >= 603
|
||||
typeOf i = mkTyConApp (mkTyCon "API.Interface") []
|
||||
#else
|
||||
typeOf i = mkAppTy (mkTyCon "API.Interface") []
|
||||
#endif
|
||||
|
||||
plugin :: Interface
|
||||
plugin = Interface { equals = (==) }
|
||||
|
||||
17
examples/dynload/poly/prog/Main.hs
Normal file
17
examples/dynload/poly/prog/Main.hs
Normal file
@ -0,0 +1,17 @@
|
||||
{-# OPTIONS -cpp #-}
|
||||
|
||||
#include "../../../../config.h"
|
||||
|
||||
import Plugins
|
||||
import API
|
||||
|
||||
main = do
|
||||
m_v <- dynload "../Plugin.o" ["../api"]
|
||||
["../../../../plugins.conf.inplace"]
|
||||
"resource_dyn"
|
||||
case m_v of
|
||||
LoadFailure _ -> error "didn't compile"
|
||||
LoadSuccess _ (Interface eq) -> do
|
||||
putStrLn $ show $ 1 `eq` 2
|
||||
putStrLn $ show $ 'a' `eq` 'b'
|
||||
|
||||
2
examples/dynload/poly/prog/expected
Normal file
2
examples/dynload/poly/prog/expected
Normal file
@ -0,0 +1,2 @@
|
||||
True
|
||||
True
|
||||
4
examples/dynload/should_fail/Makefile
Normal file
4
examples/dynload/should_fail/Makefile
Normal file
@ -0,0 +1,4 @@
|
||||
TEST= dynload/should_fail
|
||||
EXTRA_OBJS=Plugin.o
|
||||
TOP=../../..
|
||||
include ../../build.mk
|
||||
12
examples/dynload/should_fail/Plugin.hs
Normal file
12
examples/dynload/should_fail/Plugin.hs
Normal file
@ -0,0 +1,12 @@
|
||||
{-# OPTIONS -fglasgow-exts #-}
|
||||
module Plugin where
|
||||
|
||||
import API
|
||||
import AltData
|
||||
|
||||
v :: Int
|
||||
v = 0xdeadbeef
|
||||
|
||||
resource_dyn :: Dynamic
|
||||
resource_dyn = toDyn v
|
||||
|
||||
20
examples/dynload/should_fail/api/API.hs
Normal file
20
examples/dynload/should_fail/api/API.hs
Normal file
@ -0,0 +1,20 @@
|
||||
{-# OPTIONS -fglasgow-exts #-}
|
||||
|
||||
module API where
|
||||
|
||||
import AltData
|
||||
|
||||
data Interface = Interface {
|
||||
function :: String
|
||||
}
|
||||
|
||||
instance Typeable Interface where
|
||||
#if __GLASGOW_HASKELL__ >= 603
|
||||
typeOf i = mkTyConApp (mkTyCon "API.Interface") []
|
||||
#else
|
||||
typeOf i = mkAppTy (mkTyCon "API.Interface") []
|
||||
#endif
|
||||
|
||||
plugin :: Interface
|
||||
plugin = Interface { function = "goodbye" }
|
||||
|
||||
14
examples/dynload/should_fail/prog/Main.hs
Normal file
14
examples/dynload/should_fail/prog/Main.hs
Normal file
@ -0,0 +1,14 @@
|
||||
|
||||
import Plugins
|
||||
import API
|
||||
|
||||
main = do
|
||||
m_v <- dynload "../Plugin.o"
|
||||
["../api"]
|
||||
["../../../../plugins.conf.inplace"]
|
||||
"resource_dyn"
|
||||
|
||||
case m_v of
|
||||
LoadFailure _ -> putStrLn "didn't compile"
|
||||
LoadSuccess _ v -> putStrLn $ function v
|
||||
|
||||
4
examples/dynload/should_fail/prog/expected
Normal file
4
examples/dynload/should_fail/prog/expected
Normal file
@ -0,0 +1,4 @@
|
||||
Couldn't match `API.Interface' against `Int'
|
||||
Expected type: API.Interface
|
||||
Inferred type: Int
|
||||
didn't compile
|
||||
4
examples/dynload/should_fail_1/Makefile
Normal file
4
examples/dynload/should_fail_1/Makefile
Normal file
@ -0,0 +1,4 @@
|
||||
TEST= dynload/should_fail_1
|
||||
EXTRA_OBJS=Plugin.o
|
||||
TOP=../../..
|
||||
include ../../build.mk
|
||||
15
examples/dynload/should_fail_1/Plugin.hs
Normal file
15
examples/dynload/should_fail_1/Plugin.hs
Normal file
@ -0,0 +1,15 @@
|
||||
--
|
||||
-- trying to be really mean.
|
||||
--
|
||||
|
||||
module Plugin where
|
||||
|
||||
import API
|
||||
import AltData
|
||||
|
||||
v :: Int -> Int
|
||||
v = \x -> 0xdeadbeef
|
||||
|
||||
resource_dyn :: Dynamic
|
||||
resource_dyn = toDyn v
|
||||
|
||||
20
examples/dynload/should_fail_1/api/API.hs
Normal file
20
examples/dynload/should_fail_1/api/API.hs
Normal file
@ -0,0 +1,20 @@
|
||||
{-# OPTIONS -fglasgow-exts #-}
|
||||
|
||||
module API where
|
||||
|
||||
import AltData
|
||||
|
||||
data Interface = Interface {
|
||||
function :: String
|
||||
}
|
||||
|
||||
instance Typeable Interface where
|
||||
#if __GLASGOW_HASKELL__ >= 603
|
||||
typeOf i = mkTyConApp (mkTyCon "API.Interface") []
|
||||
#else
|
||||
typeOf i = mkAppTy (mkTyCon "API.Interface") []
|
||||
#endif
|
||||
|
||||
plugin :: Interface
|
||||
plugin = Interface { function = "goodbye" }
|
||||
|
||||
11
examples/dynload/should_fail_1/prog/Main.hs
Normal file
11
examples/dynload/should_fail_1/prog/Main.hs
Normal file
@ -0,0 +1,11 @@
|
||||
|
||||
import Plugins
|
||||
import API
|
||||
|
||||
main = do
|
||||
m_v <- dynload "../Plugin.o" ["../api"]
|
||||
["../../../../plugins.conf.inplace"] "resource_dyn"
|
||||
case m_v of
|
||||
LoadFailure _ -> putStrLn "didn't compile"
|
||||
LoadSuccess _ v -> putStrLn $ (function v)
|
||||
|
||||
4
examples/dynload/should_fail_1/prog/expected
Normal file
4
examples/dynload/should_fail_1/prog/expected
Normal file
@ -0,0 +1,4 @@
|
||||
Couldn't match `API.Interface' against `Int -> Int'
|
||||
Expected type: API.Interface
|
||||
Inferred type: Int -> Int
|
||||
didn't compile
|
||||
4
examples/dynload/should_fail_2/Makefile
Normal file
4
examples/dynload/should_fail_2/Makefile
Normal file
@ -0,0 +1,4 @@
|
||||
TEST= dynload/should_fail_2
|
||||
|
||||
TOP=../../..
|
||||
include ../../build.mk
|
||||
19
examples/dynload/should_fail_2/Plugin.in
Normal file
19
examples/dynload/should_fail_2/Plugin.in
Normal file
@ -0,0 +1,19 @@
|
||||
--
|
||||
-- the plugin doesn't even make the resource_dyn a Dynamic.
|
||||
--
|
||||
-- let's hope that makeWith strips out the invalid declarations
|
||||
--
|
||||
|
||||
{-# OPTIONS -fglasgow-exts #-}
|
||||
|
||||
module Plugin where
|
||||
|
||||
import API
|
||||
import AltData
|
||||
import GHC.Base
|
||||
|
||||
v :: Int
|
||||
v = 0xdeadbeef
|
||||
|
||||
resource_dyn = (typeOf v, unsafeCoerce v)
|
||||
|
||||
12
examples/dynload/should_fail_2/Plugin.stub
Normal file
12
examples/dynload/should_fail_2/Plugin.stub
Normal file
@ -0,0 +1,12 @@
|
||||
{-# OPTIONS -fglasgow-exts #-}
|
||||
|
||||
module Plugin ( resource_dyn ) where
|
||||
|
||||
import API
|
||||
import AltData
|
||||
|
||||
resource = plugin
|
||||
|
||||
resource_dyn :: Dynamic
|
||||
resource_dyn = toDyn resource
|
||||
|
||||
22
examples/dynload/should_fail_2/api/API.hs
Normal file
22
examples/dynload/should_fail_2/api/API.hs
Normal file
@ -0,0 +1,22 @@
|
||||
{-# OPTIONS -fglasgow-exts #-}
|
||||
|
||||
module API where
|
||||
|
||||
import AltData
|
||||
import GHC.Base
|
||||
|
||||
data Interface = Interface {
|
||||
function :: String
|
||||
}
|
||||
|
||||
instance Typeable Interface where
|
||||
#if __GLASGOW_HASKELL__ >= 603
|
||||
typeOf i = mkTyConApp (mkTyCon "API.Interface") []
|
||||
#else
|
||||
typeOf i = mkAppTy (mkTyCon "API.Interface") []
|
||||
#endif
|
||||
|
||||
plugin :: Interface
|
||||
plugin = Interface { function = "goodbye" }
|
||||
|
||||
unsafeCoerce = unsafeCoerce#
|
||||
19
examples/dynload/should_fail_2/prog/Main.hs
Normal file
19
examples/dynload/should_fail_2/prog/Main.hs
Normal file
@ -0,0 +1,19 @@
|
||||
|
||||
import Plugins
|
||||
import API
|
||||
|
||||
conf = "../Plugin.in"
|
||||
stub = "../Plugin.stub"
|
||||
|
||||
main = do
|
||||
status <- makeWith conf stub ["-i../api", "-i../../../../src/altdata/"]
|
||||
case status of
|
||||
MakeFailure e -> mapM_ putStrLn e >> putStrLn "failed"
|
||||
MakeSuccess _ o -> do {
|
||||
; m_v <- dynload o ["../api"] [] "resource_dyn"
|
||||
; makeCleaner o
|
||||
; case m_v of
|
||||
LoadFailure _ -> putStrLn "didn't load"
|
||||
LoadSuccess _ v -> putStrLn $ (function v)
|
||||
}
|
||||
|
||||
8
examples/dynload/should_fail_2/prog/expected
Normal file
8
examples/dynload/should_fail_2/prog/expected
Normal file
@ -0,0 +1,8 @@
|
||||
|
||||
../Plugin.in:18:
|
||||
Couldn't match `Dynamic' against `(t, t1)'
|
||||
Expected type: Dynamic
|
||||
Inferred type: (t, t1)
|
||||
In the definition of `resource_dyn':
|
||||
resource_dyn = (typeOf v, unsafeCoerce v)
|
||||
failed
|
||||
7
examples/dynload/should_fail_2/prog/expected.604
Normal file
7
examples/dynload/should_fail_2/prog/expected.604
Normal file
@ -0,0 +1,7 @@
|
||||
|
||||
../Plugin.in:18:15:
|
||||
Couldn't match `Dynamic' against `(a, b)'
|
||||
Expected type: Dynamic
|
||||
Inferred type: (a, b)
|
||||
In the definition of `resource_dyn': resource_dyn = (typeOf v, unsafeCoerce v)
|
||||
failed
|
||||
4
examples/dynload/should_fail_3/Makefile
Normal file
4
examples/dynload/should_fail_3/Makefile
Normal file
@ -0,0 +1,4 @@
|
||||
TEST= dynload/should_fail_3
|
||||
|
||||
TOP=../../..
|
||||
include ../../build.mk
|
||||
19
examples/dynload/should_fail_3/Plugin.in
Normal file
19
examples/dynload/should_fail_3/Plugin.in
Normal file
@ -0,0 +1,19 @@
|
||||
--
|
||||
-- the plugin doesn't even make the resource_dyn a Dynamic.
|
||||
-- let's hope that makeWith strips out the invalid declarations
|
||||
--
|
||||
|
||||
{-# OPTIONS -fglasgow-exts #-}
|
||||
|
||||
module Plugin where
|
||||
|
||||
import API
|
||||
|
||||
import AltData
|
||||
import GHC.Base
|
||||
|
||||
v :: Int
|
||||
v = 0xdeadbeef
|
||||
|
||||
resource_dyn = (typeOf plugin, unsafeCoerce v)
|
||||
|
||||
12
examples/dynload/should_fail_3/Plugin.stub
Normal file
12
examples/dynload/should_fail_3/Plugin.stub
Normal file
@ -0,0 +1,12 @@
|
||||
{-# OPTIONS -fglasgow-exts #-}
|
||||
|
||||
module Plugin ( resource_dyn ) where
|
||||
|
||||
import API
|
||||
import AltData.Dynamic
|
||||
|
||||
resource = plugin
|
||||
|
||||
resource_dyn :: Dynamic
|
||||
resource_dyn = toDyn resource
|
||||
|
||||
22
examples/dynload/should_fail_3/api/API.hs
Normal file
22
examples/dynload/should_fail_3/api/API.hs
Normal file
@ -0,0 +1,22 @@
|
||||
{-# OPTIONS -cpp -fglasgow-exts #-}
|
||||
|
||||
module API where
|
||||
|
||||
import AltData
|
||||
import GHC.Base
|
||||
|
||||
data Interface = Interface {
|
||||
function :: String
|
||||
}
|
||||
|
||||
instance Typeable Interface where
|
||||
#if __GLASGOW_HASKELL__ >= 603
|
||||
typeOf _ = mkTyConApp (mkTyCon "API.Interface") []
|
||||
#else
|
||||
typeOf _ = mkAppTy (mkTyCon "API.Interface") []
|
||||
#endif
|
||||
|
||||
plugin :: Interface
|
||||
plugin = Interface { function = "goodbye" }
|
||||
|
||||
unsafeCoerce = unsafeCoerce#
|
||||
18
examples/dynload/should_fail_3/prog/Main.hs
Normal file
18
examples/dynload/should_fail_3/prog/Main.hs
Normal file
@ -0,0 +1,18 @@
|
||||
|
||||
import Plugins
|
||||
import API
|
||||
|
||||
conf = "../Plugin.in"
|
||||
stub = "../Plugin.stub"
|
||||
|
||||
main = do
|
||||
status <- makeWith conf stub ["-i../api", "-i../../../../src/altdata"]
|
||||
o <- case status of
|
||||
MakeFailure e -> mapM_ putStrLn e >> error "failed"
|
||||
MakeSuccess _ o -> return o
|
||||
m_v <- dynload o ["../api"] [] "resource_dyn"
|
||||
case m_v of
|
||||
LoadFailure _ -> error "didn't compile"
|
||||
LoadSuccess _ v -> do putStrLn $ (function v)
|
||||
makeCleaner o
|
||||
|
||||
9
examples/dynload/should_fail_3/prog/expected
Normal file
9
examples/dynload/should_fail_3/prog/expected
Normal file
@ -0,0 +1,9 @@
|
||||
|
||||
../Plugin.in:18:
|
||||
Couldn't match `Dynamic' against `(t, t1)'
|
||||
Expected type: Dynamic
|
||||
Inferred type: (t, t1)
|
||||
In the definition of `resource_dyn':
|
||||
resource_dyn = (typeOf plugin, unsafeCoerce v)
|
||||
|
||||
Fail: failed
|
||||
8
examples/dynload/should_fail_3/prog/expected.604
Normal file
8
examples/dynload/should_fail_3/prog/expected.604
Normal file
@ -0,0 +1,8 @@
|
||||
|
||||
../Plugin.in:18:15:
|
||||
Couldn't match `Dynamic' against `(a, b)'
|
||||
Expected type: Dynamic
|
||||
Inferred type: (a, b)
|
||||
In the definition of `resource_dyn':
|
||||
resource_dyn = (typeOf plugin, unsafeCoerce v)
|
||||
a.out: failed
|
||||
4
examples/dynload/simple/Makefile
Normal file
4
examples/dynload/simple/Makefile
Normal file
@ -0,0 +1,4 @@
|
||||
TEST=dynload/simple
|
||||
EXTRA_OBJS=Plugin.o
|
||||
TOP=../../..
|
||||
include ../../build.mk
|
||||
11
examples/dynload/simple/Plugin.hs
Normal file
11
examples/dynload/simple/Plugin.hs
Normal file
@ -0,0 +1,11 @@
|
||||
{-# OPTIONS -fglasgow-exts #-}
|
||||
module Plugin where
|
||||
|
||||
import API
|
||||
import AltData
|
||||
|
||||
my_fun = plugin { function = "plugin says \"hello\"" }
|
||||
|
||||
resource_dyn :: Dynamic
|
||||
resource_dyn = toDyn my_fun
|
||||
|
||||
20
examples/dynload/simple/api/API.hs
Normal file
20
examples/dynload/simple/api/API.hs
Normal file
@ -0,0 +1,20 @@
|
||||
{-# OPTIONS -cpp #-}
|
||||
|
||||
module API where
|
||||
|
||||
import AltData
|
||||
|
||||
data Interface = Interface {
|
||||
function :: String
|
||||
}
|
||||
|
||||
instance Typeable Interface where
|
||||
#if __GLASGOW_HASKELL__ >= 603
|
||||
typeOf i = mkTyConApp (mkTyCon "API.Interface") []
|
||||
#else
|
||||
typeOf i = mkAppTy (mkTyCon "API.Interface") []
|
||||
#endif
|
||||
|
||||
plugin :: Interface
|
||||
plugin = Interface { function = "goodbye" }
|
||||
|
||||
15
examples/dynload/simple/prog/Main.hs
Normal file
15
examples/dynload/simple/prog/Main.hs
Normal file
@ -0,0 +1,15 @@
|
||||
{-# OPTIONS -cpp #-}
|
||||
|
||||
#include "../../../../config.h"
|
||||
|
||||
import Plugins
|
||||
import API
|
||||
|
||||
main = do
|
||||
m_v <- dynload "../Plugin.o" ["../api"]
|
||||
["../../../../plugins.conf.inplace"]
|
||||
"resource_dyn"
|
||||
case m_v of
|
||||
LoadFailure _ -> error "didn't compile"
|
||||
LoadSuccess _ v -> putStrLn $ (function v)
|
||||
|
||||
1
examples/dynload/simple/prog/expected
Normal file
1
examples/dynload/simple/prog/expected
Normal file
@ -0,0 +1 @@
|
||||
plugin says "hello"
|
||||
27
examples/eval.mk
Normal file
27
examples/eval.mk
Normal file
@ -0,0 +1,27 @@
|
||||
include $(TOP)/config.mk
|
||||
include $(TOP)/examples/check.mk
|
||||
|
||||
PKGFLAGS= -package-conf $(TOP)/plugins.conf.inplace -package eval -package plugins -package printf
|
||||
|
||||
BIN=a.out
|
||||
SRC=Main.hs
|
||||
|
||||
BINDIR= "."
|
||||
REALBIN= ./$(BIN)
|
||||
|
||||
.SUFFIXES : .o .hs .hi .lhs .hc .s
|
||||
|
||||
all: $(BIN)
|
||||
|
||||
$(BIN): $(SRC) $(OBJS)
|
||||
@rm -f $@
|
||||
@$(GHC) --make -fglasgow-exts $(GHCFLAGS) $(PKGFLAGS) $(EXTRAFLAGS) $(SRC)
|
||||
|
||||
# Standard suffix rules
|
||||
.o.hi:
|
||||
@:
|
||||
.hs.o:
|
||||
@$(GHC) $(INCLUDES) $(PKGFLAGS) $(GHCFLAGS) $(EXTRAFLAGS) -c $<
|
||||
|
||||
clean:
|
||||
rm -rf *.hi *.o *~ $(BIN)
|
||||
5
examples/eval/eval1/Main.hs
Normal file
5
examples/eval/eval1/Main.hs
Normal file
@ -0,0 +1,5 @@
|
||||
|
||||
import Eval.Haskell
|
||||
|
||||
main = do i <- eval "1 + 6 :: Int" [] :: IO (Maybe Int)
|
||||
if isJust i then putStrLn $ show (fromJust i) else return ()
|
||||
2
examples/eval/eval1/Makefile
Normal file
2
examples/eval/eval1/Makefile
Normal file
@ -0,0 +1,2 @@
|
||||
TOP=../../..
|
||||
include ../../eval.mk
|
||||
1
examples/eval/eval1/expected
Normal file
1
examples/eval/eval1/expected
Normal file
@ -0,0 +1 @@
|
||||
7
|
||||
6
examples/eval/eval2/Main.hs
Normal file
6
examples/eval/eval2/Main.hs
Normal file
@ -0,0 +1,6 @@
|
||||
import Eval.Haskell
|
||||
|
||||
main = do m_s <- eval "map toUpper \"haskell\"" ["Data.Char"]
|
||||
case m_s of
|
||||
Nothing -> putStrLn "typechecking failed"
|
||||
Just s -> putStrLn s
|
||||
2
examples/eval/eval2/Makefile
Normal file
2
examples/eval/eval2/Makefile
Normal file
@ -0,0 +1,2 @@
|
||||
TOP=../../..
|
||||
include ../../eval.mk
|
||||
1
examples/eval/eval2/expected
Normal file
1
examples/eval/eval2/expected
Normal file
@ -0,0 +1 @@
|
||||
HASKELL
|
||||
42
examples/eval/eval3/Main.hs
Normal file
42
examples/eval/eval3/Main.hs
Normal file
@ -0,0 +1,42 @@
|
||||
{-# OPTIONS -cpp #-}
|
||||
--
|
||||
-- Should evaluate to '3', unless something goes wrong.
|
||||
--
|
||||
-- Not so bad to use AltData, as it is already derived for all the basic
|
||||
-- types. Then, just replace deriving Typeable, with hand-derived
|
||||
-- instance of Typeable (see hs-plugins/examples/eval/eval_fn1/Poly.hs
|
||||
--
|
||||
--
|
||||
|
||||
#include "../../../config.h"
|
||||
|
||||
import Eval.Haskell
|
||||
import AltData.Dynamic
|
||||
|
||||
-- import Data.Dynamic
|
||||
|
||||
pkgconf = TOP ++ "/plugins.conf.inplace"
|
||||
|
||||
main = do
|
||||
a <- return $ toDyn (3::Int)
|
||||
|
||||
m_b <- unsafeEval_ "\\dyn -> fromMaybe (7 :: Int) (fromDyn dyn)"
|
||||
["AltData.Dynamic","Data.Maybe"] -- imports
|
||||
|
||||
[ "-package-conf "++pkgconf , "-package altdata" ]
|
||||
|
||||
[ pkgconf ]
|
||||
[]
|
||||
|
||||
|
||||
{-
|
||||
-- should work, but doesn't. type check fails
|
||||
-- (due to static vs dynamic typing issue)
|
||||
|
||||
m_b <- unsafeEval_ "\\dyn -> fromMaybe (7 :: Int) (fromDynamic dyn)"
|
||||
["Data.Dynamic","Data.Maybe"] [] []
|
||||
-}
|
||||
|
||||
case m_b of
|
||||
Left s -> mapM_ putStrLn s
|
||||
Right b -> putStrLn $ show (b a :: Int)
|
||||
2
examples/eval/eval3/Makefile
Normal file
2
examples/eval/eval3/Makefile
Normal file
@ -0,0 +1,2 @@
|
||||
TOP=../../..
|
||||
include ../../eval.mk
|
||||
1
examples/eval/eval3/expected
Normal file
1
examples/eval/eval3/expected
Normal file
@ -0,0 +1 @@
|
||||
3
|
||||
9
examples/eval/eval_/Main.hs
Normal file
9
examples/eval/eval_/Main.hs
Normal file
@ -0,0 +1,9 @@
|
||||
|
||||
import Eval.Haskell
|
||||
|
||||
main = do i <- eval_ "Just (7 :: Int)"
|
||||
["Maybe"]
|
||||
["-fglasgow-exts"]
|
||||
[]
|
||||
[] :: IO (Either [String] (Maybe (Maybe Int)))
|
||||
print i
|
||||
2
examples/eval/eval_/Makefile
Normal file
2
examples/eval/eval_/Makefile
Normal file
@ -0,0 +1,2 @@
|
||||
TOP=../../..
|
||||
include ../../eval.mk
|
||||
1
examples/eval/eval_/expected
Normal file
1
examples/eval/eval_/expected
Normal file
@ -0,0 +1 @@
|
||||
Right (Just (Just 7))
|
||||
10
examples/eval/eval_fn/Main.hs
Normal file
10
examples/eval/eval_fn/Main.hs
Normal file
@ -0,0 +1,10 @@
|
||||
--
|
||||
-- lambda abstraction!
|
||||
--
|
||||
--
|
||||
-- needs unsafeEval because eval has a broken Dynamic check
|
||||
--
|
||||
import Eval.Haskell
|
||||
|
||||
main = do fn <- unsafeEval "(\\(x::Int) -> (x,x))" [] :: IO (Maybe (Int -> (Int,Int)))
|
||||
when (isJust fn) $ putStrLn $ show $ (fromJust fn) 7
|
||||
2
examples/eval/eval_fn/Makefile
Normal file
2
examples/eval/eval_fn/Makefile
Normal file
@ -0,0 +1,2 @@
|
||||
TOP=../../..
|
||||
include ../../eval.mk
|
||||
1
examples/eval/eval_fn/expected
Normal file
1
examples/eval/eval_fn/expected
Normal file
@ -0,0 +1 @@
|
||||
(7,7)
|
||||
15
examples/eval/eval_fn1/Main.hs
Normal file
15
examples/eval/eval_fn1/Main.hs
Normal file
@ -0,0 +1,15 @@
|
||||
{-# OPTIONS -fglasgow-exts #-}
|
||||
--
|
||||
-- polymorphic eval!
|
||||
--
|
||||
|
||||
module Main where
|
||||
|
||||
import Poly
|
||||
import Eval.Haskell
|
||||
|
||||
main = do m_f <- eval "Fn (\\x y -> x == y)" ["Poly"]
|
||||
when (isJust m_f) $ do
|
||||
let (Fn f) = fromJust m_f
|
||||
putStrLn $ show (f True True)
|
||||
putStrLn $ show (f 1 2)
|
||||
2
examples/eval/eval_fn1/Makefile
Normal file
2
examples/eval/eval_fn1/Makefile
Normal file
@ -0,0 +1,2 @@
|
||||
TOP=../../..
|
||||
include ../../eval.mk
|
||||
16
examples/eval/eval_fn1/Poly.hs
Normal file
16
examples/eval/eval_fn1/Poly.hs
Normal file
@ -0,0 +1,16 @@
|
||||
{-# OPTIONS -cpp -fglasgow-exts #-}
|
||||
module Poly where
|
||||
|
||||
import AltData.Typeable
|
||||
|
||||
data Fn = Fn {fn :: forall t. Eq t => t -> t -> Bool}
|
||||
|
||||
--
|
||||
-- ignore type inside the Fn... is this correct?
|
||||
--
|
||||
instance Typeable Fn where
|
||||
#if __GLASGOW_HASKELL__ >= 603
|
||||
typeOf _ = mkTyConApp (mkTyCon "Poly.Fn") []
|
||||
#else
|
||||
typeOf _ = mkAppTy (mkTyCon "Poly.Fn") []
|
||||
#endif
|
||||
2
examples/eval/eval_fn1/expected
Normal file
2
examples/eval/eval_fn1/expected
Normal file
@ -0,0 +1,2 @@
|
||||
True
|
||||
False
|
||||
2
examples/eval/foreign_eval/Makefile
Normal file
2
examples/eval/foreign_eval/Makefile
Normal file
@ -0,0 +1,2 @@
|
||||
TOP=../../..
|
||||
include ../../foreign.mk
|
||||
1
examples/eval/foreign_eval/README
Normal file
1
examples/eval/foreign_eval/README
Normal file
@ -0,0 +1 @@
|
||||
run a string of Haskell code from a C program.
|
||||
1
examples/eval/foreign_eval/expected
Normal file
1
examples/eval/foreign_eval/expected
Normal file
@ -0,0 +1 @@
|
||||
10946
|
||||
16
examples/eval/foreign_eval/main.c
Normal file
16
examples/eval/foreign_eval/main.c
Normal file
@ -0,0 +1,16 @@
|
||||
#include <stdio.h>
|
||||
|
||||
#include "EvalHaskell.h"
|
||||
|
||||
int main(int argc, char *argv[])
|
||||
{
|
||||
int *p;
|
||||
hs_init(&argc, &argv);
|
||||
p = hs_eval_i("let fibs = 1:1:zipWith (+) fibs (tail fibs) in fibs !! 20 :: Int");
|
||||
if (p == NULL)
|
||||
printf("failed!\n");
|
||||
else
|
||||
printf("%d\n",*p);
|
||||
hs_exit();
|
||||
return 0;
|
||||
}
|
||||
2
examples/eval/foreign_eval1/Makefile
Normal file
2
examples/eval/foreign_eval1/Makefile
Normal file
@ -0,0 +1,2 @@
|
||||
TOP=../../..
|
||||
include ../../foreign.mk
|
||||
1
examples/eval/foreign_eval1/expected
Normal file
1
examples/eval/foreign_eval1/expected
Normal file
@ -0,0 +1 @@
|
||||
10946
|
||||
16
examples/eval/foreign_eval1/main.c
Normal file
16
examples/eval/foreign_eval1/main.c
Normal file
@ -0,0 +1,16 @@
|
||||
#include <stdio.h>
|
||||
|
||||
#include "EvalHaskell.h"
|
||||
|
||||
int main(int argc, char *argv[])
|
||||
{
|
||||
char *p;
|
||||
hs_init(&argc, &argv);
|
||||
p = hs_eval_s("show $ let fibs = 1:1:zipWith (+) fibs (tail fibs) in fibs !! 20");
|
||||
if (p == NULL)
|
||||
printf("failed!\n");
|
||||
else
|
||||
printf("%s\n",p);
|
||||
hs_exit();
|
||||
return 0;
|
||||
}
|
||||
2
examples/eval/foreign_should_fail/Makefile
Normal file
2
examples/eval/foreign_should_fail/Makefile
Normal file
@ -0,0 +1,2 @@
|
||||
TOP=../../..
|
||||
include ../../foreign.mk
|
||||
2
examples/eval/foreign_should_fail/expected
Normal file
2
examples/eval/foreign_should_fail/expected
Normal file
@ -0,0 +1,2 @@
|
||||
<eval>:1: parse error on input `in'
|
||||
failed!
|
||||
1
examples/eval/foreign_should_fail/expected.604
Normal file
1
examples/eval/foreign_should_fail/expected.604
Normal file
@ -0,0 +1 @@
|
||||
failed!
|
||||
Some files were not shown because too many files have changed in this diff Show More
Loading…
x
Reference in New Issue
Block a user