git-svn-id: http://igraph.rubyforge.org/svn/trunk@2 71f48855-0bbf-4aa5-930d-4df415e86613
This commit is contained in:
commit
9c9db3e842
|
|
@ -0,0 +1,3 @@
|
|||
= 0.1 2007-06-29
|
||||
|
||||
* First version
|
||||
|
|
@ -0,0 +1,504 @@
|
|||
GNU LESSER GENERAL PUBLIC LICENSE
|
||||
Version 2.1, February 1999
|
||||
|
||||
Copyright (C) 1991, 1999 Free Software Foundation, Inc.
|
||||
51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 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!
|
||||
|
||||
|
||||
|
|
@ -0,0 +1,19 @@
|
|||
History.txt
|
||||
License.txt
|
||||
Manifest.txt
|
||||
README.txt
|
||||
ext/cIGraph.c
|
||||
ext/cIGraph.h
|
||||
ext/cIGraph_add_delete.c
|
||||
ext/cIGraph_basic_properties.c
|
||||
ext/cIGraph_basic_query.c
|
||||
ext/cIGraph_error_handlers.c
|
||||
ext/cIGraph_shortest_paths.c
|
||||
ext/cIGraph_utility.c
|
||||
test/tc_add_delete.rb
|
||||
test/tc_basic_properties.rb
|
||||
test/tc_basic_query.rb
|
||||
test/tc_create.rb
|
||||
test/tc_error_handling.rb
|
||||
test/tc_shortest_paths.rb
|
||||
test/test_all.rb
|
||||
|
|
@ -0,0 +1,47 @@
|
|||
== Introduction
|
||||
|
||||
IGraph
|
||||
|
||||
IGraph
|
||||
|
||||
IGraph
|
||||
|
||||
== Installation
|
||||
|
||||
A working igraph library installation is required.
|
||||
|
||||
An IGraph gem is available as well as a package using setup.rb. In each case the installation requires the location of your igraph library to compile the extension. If you download the setup.rb package use these incantations:
|
||||
|
||||
ruby setup.rb config -- --with-igraph-dir=$R_HOME
|
||||
ruby setup.rb setup
|
||||
ruby setup.rb install
|
||||
|
||||
Using gems it is almost the same:
|
||||
|
||||
gem install igraph -- --with-igraph-dir=$R_HOME
|
||||
|
||||
== Documentation
|
||||
|
||||
Here is a very quick and simple example:
|
||||
|
||||
require 'igraph'
|
||||
|
||||
graph = IGraph.new([],true)
|
||||
|
||||
== License
|
||||
|
||||
Copyright (C) 2006 Alex Gutteridge
|
||||
|
||||
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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
|
||||
|
|
@ -0,0 +1,67 @@
|
|||
require 'hoe'
|
||||
|
||||
$LOAD_PATH.unshift("./lib")
|
||||
$LOAD_PATH.unshift("./ext")
|
||||
|
||||
hoe = Hoe.new("igraph",'0.1') do |p|
|
||||
|
||||
p.author = "Alex Gutteridge"
|
||||
p.email = "alexg@kuicr.kyoto-u.ac.jp"
|
||||
p.url = "http://web.kuicr.kyoto-u.ac.jp/~alexg/igraph/"
|
||||
|
||||
p.description = p.paragraphs_of("README.txt",1..3)[0]
|
||||
p.summary = p.paragraphs_of("README.txt",1)[0]
|
||||
p.changes = p.paragraphs_of("History.txt",0..1).join("\n\n")
|
||||
|
||||
p.clean_globs = ["ext/*.o","ext/*.so","ext/Makefile","ext/mkmf.log","**/*~","email.txt","manual.{aux,log,out,toc,pdf}"]
|
||||
|
||||
p.rdoc_pattern = /(^ext\/.*\.c$|^README|^History|^License)/
|
||||
|
||||
p.spec_extras = {
|
||||
:extensions => ['ext/extconf.rb'],
|
||||
:require_paths => ['test'],
|
||||
:has_rdoc => true,
|
||||
:extra_rdoc_files => ["README.txt","History.txt","License.txt"],
|
||||
:rdoc_options => ["--exclude", "test/*", "--main", "README.txt", "--inline-source"]
|
||||
}
|
||||
|
||||
task :setup_rb_package => [:clean, :package, :build_manual] do
|
||||
|
||||
package_dir = "#{p.name}-#{p.version}"
|
||||
cp("setup.rb","pkg/#{package_dir}")
|
||||
cp("manual.pdf","pkg/#{package_dir}")
|
||||
|
||||
Dir.chdir("pkg")
|
||||
system("tar -czf #{p.name}-#{p.version}.tgz #{package_dir}")
|
||||
Dir.chdir("..")
|
||||
|
||||
end
|
||||
|
||||
end
|
||||
|
||||
hoe.spec.dependencies.delete_if{|dep| dep.name == "hoe"}
|
||||
|
||||
desc "Uses extconf.rb and make to build the extension"
|
||||
task :build_extension => ['ext/igraph.so']
|
||||
SRC = FileList['ext/*.c'] + FileList['ext/*.h']
|
||||
file 'ext/igraph.so' => SRC do
|
||||
Dir.chdir('ext')
|
||||
system("ruby extconf.rb --with-igraph-dir=$IGRAPH_HOME")
|
||||
system("make")
|
||||
Dir.chdir('..')
|
||||
end
|
||||
|
||||
task :test => [:build_extension]
|
||||
|
||||
desc "Build PDF manual"
|
||||
task :build_manual => ["manual.pdf"]
|
||||
file "manual.pdf" => ["manual.tex"] do
|
||||
out = 'Rerun'
|
||||
while out.match(/Rerun/)
|
||||
out = `pdflatex manual.tex`
|
||||
end
|
||||
end
|
||||
|
||||
task :build_manual_clean => [:build_manual] do
|
||||
system("rm manual.{aux,log,out,toc}")
|
||||
end
|
||||
|
|
@ -0,0 +1,126 @@
|
|||
#include "igraph.h"
|
||||
#include "ruby.h"
|
||||
#include "cIGraph.h"
|
||||
|
||||
void cIGraph_free(void *p){
|
||||
igraph_destroy(p);
|
||||
}
|
||||
|
||||
VALUE cIGraph_alloc(VALUE klass){
|
||||
|
||||
igraph_t *graph = malloc(sizeof(igraph_t));
|
||||
VALUE obj;
|
||||
|
||||
igraph_empty(graph, 0, 1);
|
||||
obj = Data_Wrap_Struct(klass, 0, cIGraph_free, graph);
|
||||
|
||||
return obj;
|
||||
|
||||
}
|
||||
|
||||
/* call-seq:
|
||||
* IGraph.new(edges,directed) -> graph
|
||||
*
|
||||
* Creates a new IGraph graph with the edges specified in the edge Array.
|
||||
* The first two elements define the first edge (the order is from,to for
|
||||
* directed graphs). The next two define the second edge and so on. The
|
||||
* Array should contain an even number of elements.
|
||||
* The boolean value directed specifies whether a directed or undirected
|
||||
* graph is created.
|
||||
*/
|
||||
|
||||
VALUE cIGraph_initialize(VALUE self, VALUE edges, VALUE directed){
|
||||
|
||||
igraph_t *graph;
|
||||
igraph_vector_t edge_v;
|
||||
VALUE vertex;
|
||||
VALUE object_h;
|
||||
VALUE id_h;
|
||||
int vertex_n = 0;
|
||||
int current_vertex_id;
|
||||
|
||||
igraph_set_error_handler(cIGraph_error_handler);
|
||||
igraph_set_warning_handler(cIGraph_warning_handler);
|
||||
|
||||
//New hash for mapping vertex objects to floats used by iGraph
|
||||
object_h = rb_iv_set(self,"@object_ids",rb_hash_new());
|
||||
id_h = rb_iv_set(self,"@id_objects",rb_hash_new());
|
||||
|
||||
//Initialize edge vector
|
||||
igraph_vector_init_int(&edge_v,0);
|
||||
|
||||
Data_Get_Struct(self, igraph_t, graph);
|
||||
if(!directed)
|
||||
igraph_to_undirected(graph,IGRAPH_TO_UNDIRECTED_COLLAPSE);
|
||||
|
||||
//Loop through objects in edge Array
|
||||
vertex = rb_ary_shift(edges);
|
||||
while(vertex != Qnil){
|
||||
if(rb_funcall(object_h,rb_intern("has_key?"),1,vertex)){
|
||||
//If @vertices includes this vertex then look up the vertex number
|
||||
current_vertex_id = NUM2INT(rb_hash_aref(object_h,vertex));
|
||||
} else {
|
||||
//otherwise add a new entry to Hash
|
||||
rb_hash_aset(object_h,vertex,INT2NUM(vertex_n));
|
||||
rb_hash_aset(id_h, INT2NUM(vertex_n),vertex);
|
||||
current_vertex_id = vertex_n;
|
||||
vertex_n++;
|
||||
}
|
||||
igraph_vector_push_back(&edge_v,current_vertex_id);
|
||||
vertex = rb_ary_shift(edges);
|
||||
}
|
||||
|
||||
if(igraph_vector_size(&edge_v) > 0){
|
||||
igraph_add_vertices(graph,vertex_n,0);
|
||||
igraph_add_edges(graph,&edge_v,0);
|
||||
}
|
||||
|
||||
igraph_vector_destroy(&edge_v);
|
||||
|
||||
return self;
|
||||
|
||||
}
|
||||
|
||||
/* Interface to the iGraph[http://cneurocvs.rmki.kfki.hu/igraph/] library
|
||||
* for graph computation
|
||||
*/
|
||||
|
||||
void Init_igraph(){
|
||||
cIGraph = rb_define_class("IGraph", rb_cObject);
|
||||
cIGraphError = rb_define_class("IGraphError", rb_eRuntimeError);
|
||||
|
||||
rb_define_alloc_func(cIGraph, cIGraph_alloc);
|
||||
rb_define_method(cIGraph, "initialize", cIGraph_initialize, 2);
|
||||
|
||||
rb_define_method(cIGraph, "include?", cIGraph_include, 1);
|
||||
|
||||
rb_define_method(cIGraph, "vcount", cIGraph_vcount, 0);
|
||||
rb_define_method(cIGraph, "ecount", cIGraph_ecount, 0);
|
||||
|
||||
rb_define_method(cIGraph, "edge", cIGraph_edge, 1);
|
||||
rb_define_method(cIGraph, "get_eid", cIGraph_get_eid, 2);
|
||||
|
||||
rb_define_method(cIGraph, "neighbors", cIGraph_neighbors,2);
|
||||
rb_define_method(cIGraph, "neighbours", cIGraph_neighbors,2);
|
||||
rb_define_method(cIGraph, "adjacent", cIGraph_adjacent,2);
|
||||
|
||||
rb_define_const(cIGraph, "IGRAPH_OUT", INT2NUM(1));
|
||||
rb_define_const(cIGraph, "IGRAPH_IN", INT2NUM(2));
|
||||
rb_define_const(cIGraph, "IGRAPH_ALL", INT2NUM(3));
|
||||
rb_define_const(cIGraph, "IGRAPH_TOTAL", INT2NUM(4));
|
||||
|
||||
rb_define_method(cIGraph, "is_directed", cIGraph_is_directed,0);
|
||||
rb_define_method(cIGraph, "is_directed?", cIGraph_is_directed,0);
|
||||
|
||||
rb_define_method(cIGraph, "degree", cIGraph_degree,3);
|
||||
|
||||
rb_define_method(cIGraph, "add_edges", cIGraph_add_edges,1);
|
||||
rb_define_method(cIGraph, "add_vertices", cIGraph_add_vertices,1);
|
||||
|
||||
rb_define_method(cIGraph, "are_connected", cIGraph_are_connected,2);
|
||||
rb_define_method(cIGraph, "are_connected?", cIGraph_are_connected,2);
|
||||
|
||||
rb_define_method(cIGraph, "shortest_paths", cIGraph_shortest_paths,2);
|
||||
rb_define_method(cIGraph, "get_shortest_paths", cIGraph_get_shortest_paths,3);
|
||||
|
||||
}
|
||||
|
|
@ -0,0 +1,44 @@
|
|||
//Classes
|
||||
VALUE cIGraph;
|
||||
VALUE cIGraphError;
|
||||
|
||||
//Error and warning handling functions
|
||||
void cIGraph_error_handler(const char *reason, const char *file,
|
||||
int line, int igraph_errno);
|
||||
void cIGraph_warning_handler(const char *reason, const char *file,
|
||||
int line, int igraph_errno);
|
||||
|
||||
//IGraph specific utility functions
|
||||
igraph_integer_t cIGraph_get_vertex_id(VALUE graph, VALUE v);
|
||||
VALUE cIGraph_get_vertex_object(VALUE graph, igraph_integer_t n);
|
||||
int cIGraph_vertex_arr_to_id_vec(VALUE graph, VALUE va, igraph_vector_t *nv);
|
||||
VALUE cIGraph_include(VALUE self, VALUE v);
|
||||
|
||||
//IGraph allocation, destruction and intialization
|
||||
void Init_igraph(void);
|
||||
void cIGraph_free(void *p);
|
||||
VALUE cIGraph_alloc(VALUE klass);
|
||||
VALUE cIGraph_initialize(VALUE self, VALUE edges, VALUE directed);
|
||||
|
||||
//Basic query operations
|
||||
VALUE cIGraph_vcount (VALUE self);
|
||||
VALUE cIGraph_ecount (VALUE self);
|
||||
VALUE cIGraph_edge (VALUE self, VALUE eid);
|
||||
VALUE cIGraph_get_eid (VALUE self, VALUE from, VALUE to, VALUE directed);
|
||||
VALUE cIGraph_neighbors (VALUE self, VALUE v, VALUE mode);
|
||||
VALUE cIGraph_adjacent (VALUE self, VALUE v, VALUE mode);
|
||||
VALUE cIGraph_is_directed(VALUE self);
|
||||
VALUE cIGraph_degree (VALUE self, VALUE v, VALUE mode, VALUE loops);
|
||||
|
||||
//Adding and eleting vertices and edges
|
||||
VALUE cIGraph_add_edges (VALUE self, VALUE edges);
|
||||
VALUE cIGraph_add_vertices (VALUE self, VALUE vs);
|
||||
VALUE cIGraph_delete_edges (VALUE self, VALUE edges);
|
||||
VALUE cIGraph_delete_vertices(VALUE self, VALUE vs);
|
||||
|
||||
//Basic properties
|
||||
VALUE cIGraph_are_connected(VALUE self, VALUE from, VALUE to);
|
||||
|
||||
//Shortest Path Related Functions
|
||||
VALUE cIGraph_shortest_paths (VALUE self, VALUE from, VALUE mode);
|
||||
VALUE cIGraph_get_shortest_paths(VALUE self, VALUE from, VALUE to, VALUE mode);
|
||||
|
|
@ -0,0 +1,78 @@
|
|||
#include "igraph.h"
|
||||
#include "ruby.h"
|
||||
#include "cIGraph.h"
|
||||
|
||||
VALUE cIGraph_add_edges(VALUE self, VALUE edges){
|
||||
|
||||
igraph_t *graph;
|
||||
igraph_vector_t edge_v;
|
||||
VALUE vertex;
|
||||
VALUE object_h;
|
||||
int vid;
|
||||
int code = 0;
|
||||
|
||||
//Initialize edge vector
|
||||
igraph_vector_init_int(&edge_v,0);
|
||||
object_h = rb_iv_get(self,"@object_ids");
|
||||
|
||||
Data_Get_Struct(self, igraph_t, graph);
|
||||
|
||||
//Loop through objects in edge Array
|
||||
vertex = rb_ary_shift(edges);
|
||||
while(vertex != Qnil){
|
||||
if(rb_funcall(object_h,rb_intern("has_key?"),1,vertex)){
|
||||
//If @vertices includes this vertex then look up the vertex number
|
||||
vid = NUM2INT(rb_hash_aref(object_h,vertex));
|
||||
} else {
|
||||
rb_raise(cIGraphError, "Unknown vertex in edge array. Use add_vertices first");
|
||||
}
|
||||
igraph_vector_push_back(&edge_v,vid);
|
||||
vertex = rb_ary_shift(edges);
|
||||
}
|
||||
|
||||
if(igraph_vector_size(&edge_v) > 0){
|
||||
code = igraph_add_edges(graph,&edge_v,0);
|
||||
}
|
||||
|
||||
igraph_vector_destroy(&edge_v);
|
||||
|
||||
return INT2NUM(code);
|
||||
|
||||
}
|
||||
|
||||
VALUE cIGraph_add_vertices(VALUE self, VALUE vs){
|
||||
|
||||
igraph_t *graph;
|
||||
VALUE vertex;
|
||||
VALUE object_h;
|
||||
VALUE id_h;
|
||||
int vertex_n;
|
||||
int code = 0;
|
||||
int length;
|
||||
|
||||
object_h = rb_iv_get(self,"@object_ids");
|
||||
id_h = rb_iv_get(self,"@id_objects");
|
||||
length = NUM2INT(rb_funcall(vs, rb_intern("length"),0));
|
||||
vertex_n = NUM2INT(rb_funcall(object_h,rb_intern("length"),0));
|
||||
|
||||
Data_Get_Struct(self, igraph_t, graph);
|
||||
|
||||
//Loop through objects in vertex array
|
||||
vertex = rb_ary_shift(vs);
|
||||
while(vertex != Qnil){
|
||||
if(rb_funcall(object_h,rb_intern("has_key?"),1,vertex)){
|
||||
//If @vertices includes this vertex then raise an error
|
||||
rb_raise(cIGraphError, "Vertex already added to graph");
|
||||
} else {
|
||||
//otherwise add a new entry to Hash
|
||||
rb_hash_aset(object_h,vertex,INT2NUM(vertex_n));
|
||||
rb_hash_aset(id_h, INT2NUM(vertex_n),vertex);
|
||||
vertex_n++;
|
||||
}
|
||||
vertex = rb_ary_shift(vs);
|
||||
}
|
||||
code = igraph_add_vertices(graph,length,0);
|
||||
|
||||
return INT2NUM(code);
|
||||
|
||||
}
|
||||
|
|
@ -0,0 +1,21 @@
|
|||
#include "igraph.h"
|
||||
#include "ruby.h"
|
||||
#include "cIGraph.h"
|
||||
|
||||
VALUE cIGraph_are_connected(VALUE self, VALUE from, VALUE to){
|
||||
|
||||
igraph_t *graph;
|
||||
igraph_integer_t from_i;
|
||||
igraph_integer_t to_i;
|
||||
igraph_bool_t res;
|
||||
|
||||
Data_Get_Struct(self, igraph_t, graph);
|
||||
|
||||
from_i = cIGraph_get_vertex_id(self,from);
|
||||
to_i = cIGraph_get_vertex_id(self,to);
|
||||
|
||||
igraph_are_connected(graph,from_i,to_i,&res);
|
||||
|
||||
return res ? Qtrue : Qfalse;
|
||||
|
||||
}
|
||||
|
|
@ -0,0 +1,153 @@
|
|||
#include "igraph.h"
|
||||
#include "ruby.h"
|
||||
#include "cIGraph.h"
|
||||
|
||||
VALUE cIGraph_vcount(VALUE self){
|
||||
igraph_t *graph;
|
||||
|
||||
Data_Get_Struct(self, igraph_t, graph);
|
||||
return INT2NUM(igraph_vcount(graph));
|
||||
}
|
||||
|
||||
VALUE cIGraph_ecount(VALUE self){
|
||||
igraph_t *graph;
|
||||
|
||||
Data_Get_Struct(self, igraph_t, graph);
|
||||
return INT2NUM(igraph_ecount(graph));
|
||||
}
|
||||
|
||||
VALUE cIGraph_edge(VALUE self, VALUE eid){
|
||||
igraph_t *graph;
|
||||
igraph_integer_t from = 0;
|
||||
igraph_integer_t to = 0;
|
||||
VALUE from_r;
|
||||
VALUE to_r;
|
||||
|
||||
Data_Get_Struct(self, igraph_t, graph);
|
||||
|
||||
igraph_edge(graph,NUM2INT(eid),&from,&to);
|
||||
|
||||
from_r = cIGraph_get_vertex_object(self,from);
|
||||
to_r = cIGraph_get_vertex_object(self,to);
|
||||
|
||||
return rb_ary_new3(2, from_r, to_r);
|
||||
|
||||
}
|
||||
|
||||
VALUE cIGraph_get_eid(VALUE self, VALUE from, VALUE to, VALUE directed){
|
||||
igraph_t *graph;
|
||||
igraph_integer_t eid = 0;
|
||||
int from_i;
|
||||
int to_i;
|
||||
igraph_bool_t directed_b = 0;
|
||||
|
||||
Data_Get_Struct(self, igraph_t, graph);
|
||||
|
||||
from_i = cIGraph_get_vertex_id(self,from);
|
||||
to_i = cIGraph_get_vertex_id(self,to);
|
||||
|
||||
if(directed)
|
||||
directed_b = 1;
|
||||
|
||||
igraph_get_eid(graph,&eid,from_i,to_i,directed_b);
|
||||
|
||||
return INT2NUM(eid);
|
||||
|
||||
}
|
||||
|
||||
VALUE cIGraph_neighbors(VALUE self, VALUE v, VALUE mode){
|
||||
|
||||
igraph_t *graph;
|
||||
igraph_integer_t pnode;
|
||||
igraph_neimode_t pmode = NUM2INT(mode);
|
||||
igraph_vector_t neis;
|
||||
int i;
|
||||
VALUE neighbors = rb_ary_new();
|
||||
|
||||
igraph_vector_init_int(&neis,0);
|
||||
|
||||
Data_Get_Struct(self, igraph_t, graph);
|
||||
|
||||
pnode = cIGraph_get_vertex_id(self,v);
|
||||
|
||||
igraph_neighbors(graph,&neis,pnode,pmode);
|
||||
|
||||
for(i=0;i<igraph_vector_size(&neis);i++){
|
||||
rb_ary_push(neighbors,cIGraph_get_vertex_object(self,VECTOR(neis)[i]));
|
||||
}
|
||||
|
||||
igraph_vector_destroy(&neis);
|
||||
|
||||
return neighbors;
|
||||
|
||||
}
|
||||
|
||||
VALUE cIGraph_adjacent(VALUE self, VALUE v, VALUE mode){
|
||||
|
||||
igraph_t *graph;
|
||||
igraph_integer_t pnode;
|
||||
igraph_neimode_t pmode = NUM2INT(mode);
|
||||
igraph_vector_t eids;
|
||||
int i;
|
||||
VALUE eids_r = rb_ary_new();
|
||||
|
||||
igraph_vector_init_int(&eids,0);
|
||||
|
||||
Data_Get_Struct(self, igraph_t, graph);
|
||||
|
||||
pnode = cIGraph_get_vertex_id(self,v);
|
||||
|
||||
igraph_adjacent(graph,&eids,pnode,pmode);
|
||||
|
||||
for(i=0;i<igraph_vector_size(&eids);i++){
|
||||
rb_ary_push(eids_r,INT2NUM(VECTOR(eids)[i]));
|
||||
}
|
||||
|
||||
igraph_vector_destroy(&eids);
|
||||
|
||||
return eids_r;
|
||||
|
||||
}
|
||||
|
||||
VALUE cIGraph_is_directed(VALUE self){
|
||||
igraph_t *graph;
|
||||
|
||||
Data_Get_Struct(self, igraph_t, graph);
|
||||
|
||||
return igraph_is_directed(graph) ? Qtrue : Qfalse;
|
||||
|
||||
}
|
||||
|
||||
VALUE cIGraph_degree(VALUE self, VALUE v, VALUE mode, VALUE loops){
|
||||
igraph_t *graph;
|
||||
igraph_vs_t vids;
|
||||
igraph_vector_t vidv;
|
||||
igraph_neimode_t pmode = NUM2INT(mode);
|
||||
igraph_bool_t loop_mode = loops ? 1 : 0;
|
||||
igraph_vector_t res;
|
||||
int i;
|
||||
VALUE degree_r = rb_ary_new();
|
||||
|
||||
//vector to hold the results of the degree calculations
|
||||
igraph_vector_init_int(&res,0);
|
||||
|
||||
Data_Get_Struct(self, igraph_t, graph);
|
||||
|
||||
//Convert an array of vertices to a vector of vertex ids
|
||||
cIGraph_vertex_arr_to_id_vec(self,v,&vidv);
|
||||
//create vertex selector from the vecotr of ids
|
||||
igraph_vs_vector(&vids,&vidv);
|
||||
|
||||
igraph_degree(graph,&res,vids,pmode,loop_mode);
|
||||
|
||||
for(i=0;i<igraph_vector_size(&res);i++){
|
||||
rb_ary_push(degree_r,INT2NUM(VECTOR(res)[i]));
|
||||
}
|
||||
|
||||
igraph_vector_destroy(&vidv);
|
||||
igraph_vector_destroy(&res);
|
||||
igraph_vs_destroy(&vids);
|
||||
|
||||
return degree_r;
|
||||
|
||||
}
|
||||
|
|
@ -0,0 +1,13 @@
|
|||
#include "igraph.h"
|
||||
#include "ruby.h"
|
||||
#include "cIGraph.h"
|
||||
|
||||
void cIGraph_error_handler(const char *reason, const char *file,
|
||||
int line, int igraph_errno) {
|
||||
rb_raise(cIGraphError, reason);
|
||||
}
|
||||
|
||||
void cIGraph_warning_handler(const char *reason, const char *file,
|
||||
int line, int igraph_errno) {
|
||||
rb_warning(reason);
|
||||
}
|
||||
|
|
@ -0,0 +1,110 @@
|
|||
#include "igraph.h"
|
||||
#include "ruby.h"
|
||||
#include "cIGraph.h"
|
||||
|
||||
VALUE cIGraph_shortest_paths(VALUE self, VALUE from, VALUE mode){
|
||||
|
||||
igraph_t *graph;
|
||||
igraph_vs_t vids;
|
||||
igraph_vector_t vidv;
|
||||
igraph_neimode_t pmode = NUM2INT(mode);
|
||||
igraph_matrix_t res;
|
||||
int i;
|
||||
int j;
|
||||
VALUE row;
|
||||
VALUE matrix = rb_ary_new();
|
||||
int n_row;
|
||||
int n_col;
|
||||
|
||||
Data_Get_Struct(self, igraph_t, graph);
|
||||
|
||||
n_row = NUM2INT(rb_funcall(from,rb_intern("length"),0));
|
||||
n_col = igraph_vcount(graph);
|
||||
|
||||
//matrix to hold the results of the calculations
|
||||
igraph_matrix_init(&res,n_row,n_col);
|
||||
|
||||
//Convert an array of vertices to a vector of vertex ids
|
||||
cIGraph_vertex_arr_to_id_vec(self,from,&vidv);
|
||||
//create vertex selector from the vecotr of ids
|
||||
igraph_vs_vector(&vids,&vidv);
|
||||
|
||||
igraph_shortest_paths(graph,&res,vids,pmode);
|
||||
|
||||
for(i=0; i<igraph_matrix_nrow(&res); i++){
|
||||
row = rb_ary_new();
|
||||
rb_ary_push(matrix,row);
|
||||
for(j=0; j<igraph_matrix_ncol(&res); j++){
|
||||
rb_ary_push(row,INT2NUM(MATRIX(res,i,j)));
|
||||
}
|
||||
}
|
||||
|
||||
igraph_vector_destroy(&vidv);
|
||||
igraph_matrix_destroy(&res);
|
||||
igraph_vs_destroy(&vids);
|
||||
|
||||
return matrix;
|
||||
|
||||
}
|
||||
|
||||
VALUE cIGraph_get_shortest_paths(VALUE self, VALUE from, VALUE to, VALUE mode){
|
||||
|
||||
igraph_t *graph;
|
||||
|
||||
igraph_integer_t from_vid;
|
||||
igraph_vs_t to_vids;
|
||||
igraph_vector_t to_vidv;
|
||||
|
||||
igraph_neimode_t pmode = NUM2INT(mode);
|
||||
|
||||
igraph_vector_ptr_t res;
|
||||
igraph_vector_t *path_v;
|
||||
|
||||
int i;
|
||||
int j;
|
||||
VALUE path;
|
||||
VALUE matrix = rb_ary_new();
|
||||
int n_paths;
|
||||
|
||||
Data_Get_Struct(self, igraph_t, graph);
|
||||
|
||||
n_paths = NUM2INT(rb_funcall(to,rb_intern("length"),0));
|
||||
|
||||
//vector to hold the results of the calculations
|
||||
igraph_vector_ptr_init(&res,0);
|
||||
for(i=0;i<n_paths;i++){
|
||||
path_v = malloc(sizeof(igraph_vector_t));
|
||||
igraph_vector_init(path_v,0);
|
||||
igraph_vector_ptr_push_back(&res,path_v);
|
||||
}
|
||||
|
||||
//Convert an array of vertices to a vector of vertex ids
|
||||
cIGraph_vertex_arr_to_id_vec(self,to,&to_vidv);
|
||||
//create vertex selector from the vecotr of ids
|
||||
igraph_vs_vector(&to_vids,&to_vidv);
|
||||
|
||||
//The id of the vertex from where we are counting
|
||||
from_vid = cIGraph_get_vertex_id(self, from);
|
||||
|
||||
igraph_get_shortest_paths(graph,&res,from_vid,to_vids,pmode);
|
||||
|
||||
for(i=0; i<n_paths; i++){
|
||||
path = rb_ary_new();
|
||||
rb_ary_push(matrix,path);
|
||||
for(j=0; j<igraph_vector_size(VECTOR(res)[i]); j++){
|
||||
path_v = VECTOR(res)[i];
|
||||
rb_ary_push(path,cIGraph_get_vertex_object(self,VECTOR(*path_v)[j]));
|
||||
}
|
||||
}
|
||||
|
||||
for(i=0;i<n_paths;i++){
|
||||
igraph_vector_destroy(VECTOR(res)[i]);
|
||||
}
|
||||
|
||||
igraph_vector_destroy(&to_vidv);
|
||||
igraph_vector_ptr_destroy(&res);
|
||||
igraph_vs_destroy(&to_vids);
|
||||
|
||||
return matrix;
|
||||
|
||||
}
|
||||
|
|
@ -0,0 +1,50 @@
|
|||
#include "igraph.h"
|
||||
#include "ruby.h"
|
||||
#include "cIGraph.h"
|
||||
|
||||
igraph_integer_t cIGraph_get_vertex_id(VALUE graph, VALUE v){
|
||||
|
||||
VALUE vertex_h;
|
||||
|
||||
vertex_h = rb_iv_get(graph,"@object_ids");
|
||||
|
||||
if(rb_funcall(vertex_h,rb_intern("has_key?"),1,v))
|
||||
return NUM2INT(rb_hash_aref(vertex_h,v));
|
||||
|
||||
return -1;
|
||||
|
||||
}
|
||||
|
||||
VALUE cIGraph_get_vertex_object(VALUE graph, igraph_integer_t n){
|
||||
|
||||
VALUE vertex_h;
|
||||
|
||||
vertex_h = rb_iv_get(graph,"@id_objects");
|
||||
|
||||
if(rb_funcall(vertex_h,rb_intern("has_key?"),1,INT2NUM(n)))
|
||||
return rb_hash_aref(vertex_h,INT2NUM(n));
|
||||
|
||||
return Qnil;
|
||||
|
||||
}
|
||||
|
||||
int cIGraph_vertex_arr_to_id_vec(VALUE graph, VALUE va, igraph_vector_t *nv){
|
||||
|
||||
VALUE vertex;
|
||||
|
||||
//Initialize edge vector
|
||||
igraph_vector_init_int(nv,0);
|
||||
vertex = rb_ary_shift(va);
|
||||
while(vertex != Qnil){
|
||||
igraph_vector_push_back(nv,cIGraph_get_vertex_id(graph, vertex));
|
||||
vertex = rb_ary_shift(va);
|
||||
}
|
||||
|
||||
return 0;
|
||||
|
||||
}
|
||||
|
||||
VALUE cIGraph_include(VALUE self, VALUE v){
|
||||
VALUE vertex_h = rb_iv_get(self,"@object_ids");
|
||||
return rb_funcall(vertex_h,rb_intern("has_key?"),1,v);
|
||||
}
|
||||
|
|
@ -0,0 +1,12 @@
|
|||
require 'mkmf'
|
||||
dir_config('igraph')
|
||||
unless have_library("igraph")
|
||||
$stderr.puts "\nERROR: Cannot find the iGraph library, aborting."
|
||||
exit 1
|
||||
end
|
||||
unless have_header("igraph.h")
|
||||
$stderr.puts "\nERROR: Cannot find the iGraph header, aborting."
|
||||
exit 1
|
||||
end
|
||||
|
||||
create_makefile("igraph")
|
||||
File diff suppressed because it is too large
Load Diff
|
|
@ -0,0 +1,62 @@
|
|||
require 'igraph'
|
||||
require 'kgml'
|
||||
require 'benchmark'
|
||||
|
||||
xmlfiles = Dir.glob(ARGV[0])
|
||||
pathway =
|
||||
DirectedBipartiteMetabolicPathway.new(File.open(xmlfiles.shift).read)
|
||||
pathway = xmlfiles.inject(pathway){|p,file|
|
||||
p + DirectedBipartiteMetabolicPathway.new(File.open(file).read)
|
||||
}
|
||||
|
||||
igraph = IGraph.new([],0,true);
|
||||
|
||||
pathway.reactions.each do |reaction|
|
||||
reaction_name = reaction.name.gsub(/rn:/,'')
|
||||
unless igraph.include?(reaction_name)
|
||||
igraph.add_vertices([reaction_name])
|
||||
end
|
||||
reaction.substrates.each do |s_name|
|
||||
s_name.gsub!(/cpd:/,'')
|
||||
unless igraph.include?(s_name)
|
||||
igraph.add_vertices([s_name])
|
||||
end
|
||||
igraph.add_edges([s_name,reaction_name])
|
||||
if reaction.type == 'reversible'
|
||||
igraph.add_edges([reaction_name,s_name])
|
||||
end
|
||||
end
|
||||
reaction.products.each do |p_name|
|
||||
p_name.gsub!(/cpd:/,'')
|
||||
unless igraph.include?(p_name)
|
||||
igraph.add_vertices([p_name])
|
||||
end
|
||||
igraph.add_edges([reaction_name,p_name])
|
||||
if reaction.type == 'reversible'
|
||||
igraph.add_edges([p_name,reaction_name])
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
include Benchmark
|
||||
|
||||
graph = pathway.graph
|
||||
|
||||
bm(6) do |x|
|
||||
x.report("igraph"){
|
||||
100.times{
|
||||
igraph.get_shortest_paths("R02740",["C00074"])
|
||||
}
|
||||
}
|
||||
x.report("hashgraph"){
|
||||
100.times{
|
||||
h = {}
|
||||
graph.dijkstra_shortest_paths({
|
||||
:root => "R02740",
|
||||
:target => "C00074",
|
||||
:predecessor => h
|
||||
})
|
||||
graph.route("C00074",h)
|
||||
}
|
||||
}
|
||||
end
|
||||
|
|
@ -0,0 +1,27 @@
|
|||
require 'test/unit'
|
||||
require 'igraph'
|
||||
|
||||
class TestGraph < Test::Unit::TestCase
|
||||
def test_add_edges
|
||||
graph = IGraph.new(['A','B','C','D'],true)
|
||||
graph.add_edges(['A','C'])
|
||||
assert_equal [2], graph.degree(['A'],IGraph::IGRAPH_ALL,true)
|
||||
end
|
||||
|
||||
def test_add_vertices
|
||||
graph = IGraph.new(['A','B','C','D'],true)
|
||||
assert_equal 4, graph.vcount
|
||||
graph.add_vertices(['E','F','G','H'])
|
||||
assert_equal 8, graph.vcount
|
||||
assert_equal [0], graph.degree(['E'],IGraph::IGRAPH_ALL,true)
|
||||
end
|
||||
|
||||
def test_add_to_empty_graph
|
||||
graph = IGraph.new([],true)
|
||||
assert_equal 0, graph.vcount
|
||||
graph.add_vertices(['A','B'])
|
||||
assert_equal 2, graph.vcount
|
||||
graph.add_edges(['A','B'])
|
||||
assert_equal 1, graph.ecount
|
||||
end
|
||||
end
|
||||
|
|
@ -0,0 +1,10 @@
|
|||
require 'test/unit'
|
||||
require 'igraph'
|
||||
|
||||
class TestGraph < Test::Unit::TestCase
|
||||
def test_are_connected
|
||||
graph = IGraph.new(['A','B','C','D'],true)
|
||||
assert graph.are_connected('A','B')
|
||||
assert !(graph.are_connected('A','C'))
|
||||
end
|
||||
end
|
||||
|
|
@ -0,0 +1,51 @@
|
|||
require 'test/unit'
|
||||
require 'igraph'
|
||||
|
||||
class TestGraph < Test::Unit::TestCase
|
||||
def test_graph_size
|
||||
assert_equal 4, IGraph.new([1,2,3,4],true).vcount
|
||||
assert_equal 2, IGraph.new([1,2,3,4],true).ecount
|
||||
end
|
||||
|
||||
def test_eid_get_edge
|
||||
assert_nothing_raised do
|
||||
IGraph.new(['A','B','C','D'],true).get_eid('A','B')
|
||||
end
|
||||
graph = IGraph.new(['A','B','C','D'],true)
|
||||
eid1 = graph.get_eid('A','B')
|
||||
eid2 = graph.get_eid('C','D')
|
||||
assert_equal ['A','B'], graph.edge(eid1)
|
||||
assert_equal ['C','D'], graph.edge(eid2);
|
||||
assert_not_equal eid1,eid2
|
||||
end
|
||||
|
||||
def test_neighbours
|
||||
assert_nothing_raised do
|
||||
IGraph.new(['A','B','C','D'],true).neighbors('A',IGraph::IGRAPH_ALL)
|
||||
end
|
||||
graph = IGraph.new(['A','B','C','D'],true)
|
||||
assert_equal ['B'], graph.neighbors('A',IGraph::IGRAPH_ALL)
|
||||
assert_equal ['D'], graph.neighbors('C',IGraph::IGRAPH_ALL)
|
||||
end
|
||||
|
||||
def test_adjacent
|
||||
assert_nothing_raised do
|
||||
IGraph.new(['A','B','C','D'],true).adjacent('A',IGraph::IGRAPH_ALL)
|
||||
end
|
||||
graph = IGraph.new(['A','B','C','D'],true)
|
||||
eid1 = graph.get_eid('A','B')
|
||||
eid2 = graph.adjacent('A',IGraph::IGRAPH_ALL)[0]
|
||||
assert_equal eid1, eid2
|
||||
end
|
||||
|
||||
def test_directed
|
||||
assert IGraph.new(['A','B','C','D'],true).is_directed?
|
||||
assert !(IGraph.new(['A','B','C','D'],false).is_directed?)
|
||||
end
|
||||
|
||||
def test_degree
|
||||
graph = IGraph.new(['A','B','C','D'],true)
|
||||
assert_equal [1], graph.degree(['A'], IGraph::IGRAPH_ALL,true)
|
||||
assert_equal [1,1],graph.degree(['A','B'],IGraph::IGRAPH_ALL,true)
|
||||
end
|
||||
end
|
||||
|
|
@ -0,0 +1,11 @@
|
|||
require 'test/unit'
|
||||
require 'igraph'
|
||||
|
||||
class TestGraph < Test::Unit::TestCase
|
||||
|
||||
def test_graph
|
||||
assert_nothing_raised{IGraph.new([],true)}
|
||||
assert_nothing_raised{IGraph.new(['A','B','C','D'],true)}
|
||||
end
|
||||
|
||||
end
|
||||
|
|
@ -0,0 +1,10 @@
|
|||
require 'test/unit'
|
||||
require 'igraph'
|
||||
|
||||
class TestGraph < Test::Unit::TestCase
|
||||
def test_edge_fail
|
||||
assert_raise IGraphError do
|
||||
IGraph.new([1,2,3],true)
|
||||
end
|
||||
end
|
||||
end
|
||||
|
|
@ -0,0 +1,21 @@
|
|||
require 'test/unit'
|
||||
require 'igraph'
|
||||
|
||||
class TestGraph < Test::Unit::TestCase
|
||||
def test_shortest_paths
|
||||
graph = IGraph.new(['A','B','C','D'],true)
|
||||
m = graph.shortest_paths(['A'],IGraph::IGRAPH_ALL)
|
||||
assert_equal 1, m[0][1]
|
||||
assert_equal 0, m[0][0]
|
||||
assert_equal graph.vcount, m[0].size
|
||||
assert_equal graph.vcount, m[0][2]
|
||||
end
|
||||
|
||||
def test_get_shortest_paths
|
||||
graph = IGraph.new(['A','B','C','D'],true)
|
||||
m = graph.get_shortest_paths('A',['B','C'],IGraph::IGRAPH_ALL)
|
||||
assert_equal ['A','B'], m[0]
|
||||
assert_equal [], m[1]
|
||||
end
|
||||
|
||||
end
|
||||
|
|
@ -0,0 +1,10 @@
|
|||
#Tests all test cases for rsruby
|
||||
|
||||
require 'test/unit'
|
||||
|
||||
require 'tc_create'
|
||||
require 'tc_add_delete'
|
||||
require 'tc_basic_query'
|
||||
require 'tc_basic_properties'
|
||||
require 'tc_error_handling'
|
||||
require 'tc_shortest_paths'
|
||||
Loading…
Reference in New Issue