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