diff options
Diffstat (limited to 'beagle/debian-rfs/usr/share')
755 files changed, 57148 insertions, 0 deletions
diff --git a/beagle/debian-rfs/usr/share/base-files/dot.bashrc b/beagle/debian-rfs/usr/share/base-files/dot.bashrc new file mode 100644 index 0000000..5d3a56e --- /dev/null +++ b/beagle/debian-rfs/usr/share/base-files/dot.bashrc @@ -0,0 +1,18 @@ +# ~/.bashrc: executed by bash(1) for non-login shells. + +# Note: PS1 and umask are already set in /etc/profile. You should not +# need this unless you want different defaults for root. +# PS1='${debian_chroot:+($debian_chroot)}\h:\w\$ ' +# umask 022 + +# You may uncomment the following lines if you want `ls' to be colorized: +# export LS_OPTIONS='--color=auto' +# eval "`dircolors`" +# alias ls='ls $LS_OPTIONS' +# alias ll='ls $LS_OPTIONS -l' +# alias l='ls $LS_OPTIONS -lA' +# +# Some more alias to avoid making mistakes: +# alias rm='rm -i' +# alias cp='cp -i' +# alias mv='mv -i' diff --git a/beagle/debian-rfs/usr/share/base-files/dot.profile b/beagle/debian-rfs/usr/share/base-files/dot.profile new file mode 100644 index 0000000..517e612 --- /dev/null +++ b/beagle/debian-rfs/usr/share/base-files/dot.profile @@ -0,0 +1,9 @@ +# ~/.profile: executed by Bourne-compatible login shells. + +if [ "$BASH" ]; then + if [ -f ~/.bashrc ]; then + . ~/.bashrc + fi +fi + +mesg n diff --git a/beagle/debian-rfs/usr/share/base-files/info.dir b/beagle/debian-rfs/usr/share/base-files/info.dir new file mode 100644 index 0000000..add3941 --- /dev/null +++ b/beagle/debian-rfs/usr/share/base-files/info.dir @@ -0,0 +1,20 @@ +-*- Text -*- +This is the file .../info/dir, which contains the topmost node of +the Info hierarchy. The first time you invoke Info you start off +looking at that node, which is (dir)Top. + +File: dir Node: Top This is the top of the INFO tree + This (the Directory node) gives a menu of major topics. + Typing "q" exits, "?" lists all Info commands, "d" returns here, + "mCoreutils<Return>" visits Coreutils topic, etc. + Or click mouse button 2 on a menu item or cross reference to select + it. + --- PLEASE ADD DOCUMENTATION TO THIS TREE. (See INFO topic first.) --- + +In Debian GNU/Linux, Info `dir' entries are added with the command +`install-info'. Please refer to install-info(8) for usage details. + +* Menu: The list of major topics begins on the next line. + +General Commands + diff --git a/beagle/debian-rfs/usr/share/base-files/motd b/beagle/debian-rfs/usr/share/base-files/motd new file mode 100644 index 0000000..18d7043 --- /dev/null +++ b/beagle/debian-rfs/usr/share/base-files/motd @@ -0,0 +1,8 @@ + + +The programs included with the Debian GNU/Linux system are free software; +the exact distribution terms for each program are described in the +individual files in /usr/share/doc/*/copyright. + +Debian GNU/Linux comes with ABSOLUTELY NO WARRANTY, to the extent +permitted by applicable law. diff --git a/beagle/debian-rfs/usr/share/base-files/motd.md5sums b/beagle/debian-rfs/usr/share/base-files/motd.md5sums new file mode 100644 index 0000000..d8d82a0 --- /dev/null +++ b/beagle/debian-rfs/usr/share/base-files/motd.md5sums @@ -0,0 +1,7 @@ +5ea8649523a3d0af00805898bb5c9e5f 2.0 hamm Linux +f26743854be92750cccc7021606dedf2 2.1.0 slink Linux +991aee7a8562697c32fb54aed5c2d458 2.2.0 potato Linux +8ed2c2f147d25dbddafa84b400f5010d 3.0.2 woody Linux +2bc53664e2502f75c339c652fcb86fd0 3.0.2 woody Hurd +efd9f20ea448edfcf103a460f5cfad34 3.1.1 sarge Linux +b66cc7941b4d76c335e435dff8e19336 3.1.1 sarge Hurd diff --git a/beagle/debian-rfs/usr/share/base-files/nsswitch.conf b/beagle/debian-rfs/usr/share/base-files/nsswitch.conf new file mode 100644 index 0000000..d2f03b0 --- /dev/null +++ b/beagle/debian-rfs/usr/share/base-files/nsswitch.conf @@ -0,0 +1,19 @@ +# /etc/nsswitch.conf +# +# Example configuration of GNU Name Service Switch functionality. +# If you have the `glibc-doc-reference' and `info' packages installed, try: +# `info libc "Name Service Switch"' for information about this file. + +passwd: compat +group: compat +shadow: compat + +hosts: files dns +networks: files + +protocols: db files +services: db files +ethers: db files +rpc: db files + +netgroup: nis diff --git a/beagle/debian-rfs/usr/share/base-files/profile b/beagle/debian-rfs/usr/share/base-files/profile new file mode 100644 index 0000000..5a89ea5 --- /dev/null +++ b/beagle/debian-rfs/usr/share/base-files/profile @@ -0,0 +1,37 @@ +# /etc/profile: system-wide .profile file for the Bourne shell (sh(1)) +# and Bourne compatible shells (bash(1), ksh(1), ash(1), ...). + +if [ "`id -u`" -eq 0 ]; then + PATH="/usr/local/sbin:/usr/local/bin:/usr/sbin:/usr/bin:/sbin:/bin" +else + PATH="/usr/local/bin:/usr/bin:/bin:/usr/local/games:/usr/games" +fi +export PATH + +if [ "$PS1" ]; then + if [ "$BASH" ]; then + # The file bash.bashrc already sets the default PS1. + # PS1='\h:\w\$ ' + if [ -f /etc/bash.bashrc ]; then + . /etc/bash.bashrc + fi + else + if [ "`id -u`" -eq 0 ]; then + PS1='# ' + else + PS1='$ ' + fi + fi +fi + +# The default umask is now handled by pam_umask. +# See pam_umask(8) and /etc/login.defs. + +if [ -d /etc/profile.d ]; then + for i in /etc/profile.d/*.sh; do + if [ -r $i ]; then + . $i + fi + done + unset i +fi diff --git a/beagle/debian-rfs/usr/share/base-passwd/group.master b/beagle/debian-rfs/usr/share/base-passwd/group.master new file mode 100644 index 0000000..ad1dd2d --- /dev/null +++ b/beagle/debian-rfs/usr/share/base-passwd/group.master @@ -0,0 +1,39 @@ +root:*:0: +daemon:*:1: +bin:*:2: +sys:*:3: +adm:*:4: +tty:*:5: +disk:*:6: +lp:*:7: +mail:*:8: +news:*:9: +uucp:*:10: +man:*:12: +proxy:*:13: +kmem:*:15: +dialout:*:20: +fax:*:21: +voice:*:22: +cdrom:*:24: +floppy:*:25: +tape:*:26: +sudo:*:27: +audio:*:29: +dip:*:30: +www-data:*:33: +backup:*:34: +operator:*:37: +list:*:38: +irc:*:39: +src:*:40: +gnats:*:41: +shadow:*:42: +utmp:*:43: +video:*:44: +sasl:*:45: +plugdev:*:46: +staff:*:50: +games:*:60: +users:*:100: +nogroup:*:65534: diff --git a/beagle/debian-rfs/usr/share/base-passwd/passwd.master b/beagle/debian-rfs/usr/share/base-passwd/passwd.master new file mode 100644 index 0000000..a01a6aa --- /dev/null +++ b/beagle/debian-rfs/usr/share/base-passwd/passwd.master @@ -0,0 +1,18 @@ +root:*:0:0:root:/root:/bin/bash +daemon:*:1:1:daemon:/usr/sbin:/bin/sh +bin:*:2:2:bin:/bin:/bin/sh +sys:*:3:3:sys:/dev:/bin/sh +sync:*:4:65534:sync:/bin:/bin/sync +games:*:5:60:games:/usr/games:/bin/sh +man:*:6:12:man:/var/cache/man:/bin/sh +lp:*:7:7:lp:/var/spool/lpd:/bin/sh +mail:*:8:8:mail:/var/mail:/bin/sh +news:*:9:9:news:/var/spool/news:/bin/sh +uucp:*:10:10:uucp:/var/spool/uucp:/bin/sh +proxy:*:13:13:proxy:/bin:/bin/sh +www-data:*:33:33:www-data:/var/www:/bin/sh +backup:*:34:34:backup:/var/backups:/bin/sh +list:*:38:38:Mailing List Manager:/var/list:/bin/sh +irc:*:39:39:ircd:/var/run/ircd:/bin/sh +gnats:*:41:41:Gnats Bug-Reporting System (admin):/var/lib/gnats:/bin/sh +nobody:*:65534:65534:nobody:/nonexistent:/bin/sh diff --git a/beagle/debian-rfs/usr/share/common-licenses/Apache-2.0 b/beagle/debian-rfs/usr/share/common-licenses/Apache-2.0 new file mode 100644 index 0000000..d645695 --- /dev/null +++ b/beagle/debian-rfs/usr/share/common-licenses/Apache-2.0 @@ -0,0 +1,202 @@ + + Apache License + Version 2.0, January 2004 + http://www.apache.org/licenses/ + + TERMS AND CONDITIONS FOR USE, REPRODUCTION, AND DISTRIBUTION + + 1. Definitions. + + "License" shall mean the terms and conditions for use, reproduction, + and distribution as defined by Sections 1 through 9 of this document. + + "Licensor" shall mean the copyright owner or entity authorized by + the copyright owner that is granting the License. + + "Legal Entity" shall mean the union of the acting entity and all + other entities that control, are controlled by, or are under common + control with that entity. For the purposes of this definition, + "control" means (i) the power, direct or indirect, to cause the + direction or management of such entity, whether by contract or + otherwise, or (ii) ownership of fifty percent (50%) or more of the + outstanding shares, or (iii) beneficial ownership of such entity. + + "You" (or "Your") shall mean an individual or Legal Entity + exercising permissions granted by this License. + + "Source" form shall mean the preferred form for making modifications, + including but not limited to software source code, documentation + source, and configuration files. + + "Object" form shall mean any form resulting from mechanical + transformation or translation of a Source form, including but + not limited to compiled object code, generated documentation, + and conversions to other media types. + + "Work" shall mean the work of authorship, whether in Source or + Object form, made available under the License, as indicated by a + copyright notice that is included in or attached to the work + (an example is provided in the Appendix below). + + "Derivative Works" shall mean any work, whether in Source or Object + form, that is based on (or derived from) the Work and for which the + editorial revisions, annotations, elaborations, or other modifications + represent, as a whole, an original work of authorship. For the purposes + of this License, Derivative Works shall not include works that remain + separable from, or merely link (or bind by name) to the interfaces of, + the Work and Derivative Works thereof. + + "Contribution" shall mean any work of authorship, including + the original version of the Work and any modifications or additions + to that Work or Derivative Works thereof, that is intentionally + submitted to Licensor for inclusion in the Work by the copyright owner + or by an individual or Legal Entity authorized to submit on behalf of + the copyright owner. For the purposes of this definition, "submitted" + means any form of electronic, verbal, or written communication sent + to the Licensor or its representatives, including but not limited to + communication on electronic mailing lists, source code control systems, + and issue tracking systems that are managed by, or on behalf of, the + Licensor for the purpose of discussing and improving the Work, but + excluding communication that is conspicuously marked or otherwise + designated in writing by the copyright owner as "Not a Contribution." + + "Contributor" shall mean Licensor and any individual or Legal Entity + on behalf of whom a Contribution has been received by Licensor and + subsequently incorporated within the Work. + + 2. Grant of Copyright License. Subject to the terms and conditions of + this License, each Contributor hereby grants to You a perpetual, + worldwide, non-exclusive, no-charge, royalty-free, irrevocable + copyright license to reproduce, prepare Derivative Works of, + publicly display, publicly perform, sublicense, and distribute the + Work and such Derivative Works in Source or Object form. + + 3. Grant of Patent License. Subject to the terms and conditions of + this License, each Contributor hereby grants to You a perpetual, + worldwide, non-exclusive, no-charge, royalty-free, irrevocable + (except as stated in this section) patent license to make, have made, + use, offer to sell, sell, import, and otherwise transfer the Work, + where such license applies only to those patent claims licensable + by such Contributor that are necessarily infringed by their + Contribution(s) alone or by combination of their Contribution(s) + with the Work to which such Contribution(s) was submitted. If You + institute patent litigation against any entity (including a + cross-claim or counterclaim in a lawsuit) alleging that the Work + or a Contribution incorporated within the Work constitutes direct + or contributory patent infringement, then any patent licenses + granted to You under this License for that Work shall terminate + as of the date such litigation is filed. + + 4. Redistribution. You may reproduce and distribute copies of the + Work or Derivative Works thereof in any medium, with or without + modifications, and in Source or Object form, provided that You + meet the following conditions: + + (a) You must give any other recipients of the Work or + Derivative Works a copy of this License; and + + (b) You must cause any modified files to carry prominent notices + stating that You changed the files; and + + (c) You must retain, in the Source form of any Derivative Works + that You distribute, all copyright, patent, trademark, and + attribution notices from the Source form of the Work, + excluding those notices that do not pertain to any part of + the Derivative Works; and + + (d) If the Work includes a "NOTICE" text file as part of its + distribution, then any Derivative Works that You distribute must + include a readable copy of the attribution notices contained + within such NOTICE file, excluding those notices that do not + pertain to any part of the Derivative Works, in at least one + of the following places: within a NOTICE text file distributed + as part of the Derivative Works; within the Source form or + documentation, if provided along with the Derivative Works; or, + within a display generated by the Derivative Works, if and + wherever such third-party notices normally appear. The contents + of the NOTICE file are for informational purposes only and + do not modify the License. You may add Your own attribution + notices within Derivative Works that You distribute, alongside + or as an addendum to the NOTICE text from the Work, provided + that such additional attribution notices cannot be construed + as modifying the License. + + You may add Your own copyright statement to Your modifications and + may provide additional or different license terms and conditions + for use, reproduction, or distribution of Your modifications, or + for any such Derivative Works as a whole, provided Your use, + reproduction, and distribution of the Work otherwise complies with + the conditions stated in this License. + + 5. Submission of Contributions. Unless You explicitly state otherwise, + any Contribution intentionally submitted for inclusion in the Work + by You to the Licensor shall be under the terms and conditions of + this License, without any additional terms or conditions. + Notwithstanding the above, nothing herein shall supersede or modify + the terms of any separate license agreement you may have executed + with Licensor regarding such Contributions. + + 6. Trademarks. This License does not grant permission to use the trade + names, trademarks, service marks, or product names of the Licensor, + except as required for reasonable and customary use in describing the + origin of the Work and reproducing the content of the NOTICE file. + + 7. Disclaimer of Warranty. Unless required by applicable law or + agreed to in writing, Licensor provides the Work (and each + Contributor provides its Contributions) on an "AS IS" BASIS, + WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or + implied, including, without limitation, any warranties or conditions + of TITLE, NON-INFRINGEMENT, MERCHANTABILITY, or FITNESS FOR A + PARTICULAR PURPOSE. You are solely responsible for determining the + appropriateness of using or redistributing the Work and assume any + risks associated with Your exercise of permissions under this License. + + 8. Limitation of Liability. In no event and under no legal theory, + whether in tort (including negligence), contract, or otherwise, + unless required by applicable law (such as deliberate and grossly + negligent acts) or agreed to in writing, shall any Contributor be + liable to You for damages, including any direct, indirect, special, + incidental, or consequential damages of any character arising as a + result of this License or out of the use or inability to use the + Work (including but not limited to damages for loss of goodwill, + work stoppage, computer failure or malfunction, or any and all + other commercial damages or losses), even if such Contributor + has been advised of the possibility of such damages. + + 9. Accepting Warranty or Additional Liability. While redistributing + the Work or Derivative Works thereof, You may choose to offer, + and charge a fee for, acceptance of support, warranty, indemnity, + or other liability obligations and/or rights consistent with this + License. However, in accepting such obligations, You may act only + on Your own behalf and on Your sole responsibility, not on behalf + of any other Contributor, and only if You agree to indemnify, + defend, and hold each Contributor harmless for any liability + incurred by, or claims asserted against, such Contributor by reason + of your accepting any such warranty or additional liability. + + END OF TERMS AND CONDITIONS + + APPENDIX: How to apply the Apache License to your work. + + To apply the Apache License to your work, attach the following + boilerplate notice, with the fields enclosed by brackets "[]" + replaced with your own identifying information. (Don't include + the brackets!) The text should be enclosed in the appropriate + comment syntax for the file format. We also recommend that a + file or class name and description of purpose be included on the + same "printed page" as the copyright notice for easier + identification within third-party archives. + + Copyright [yyyy] [name of copyright owner] + + Licensed under the Apache License, Version 2.0 (the "License"); + you may not use this file except in compliance with the License. + You may obtain a copy of the License at + + http://www.apache.org/licenses/LICENSE-2.0 + + Unless required by applicable law or agreed to in writing, software + distributed under the License is distributed on an "AS IS" BASIS, + WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + See the License for the specific language governing permissions and + limitations under the License. diff --git a/beagle/debian-rfs/usr/share/common-licenses/Artistic b/beagle/debian-rfs/usr/share/common-licenses/Artistic new file mode 100644 index 0000000..5f22124 --- /dev/null +++ b/beagle/debian-rfs/usr/share/common-licenses/Artistic @@ -0,0 +1,131 @@ + + + + + The "Artistic License" + + Preamble + +The intent of this document is to state the conditions under which a +Package may be copied, such that the Copyright Holder maintains some +semblance of artistic control over the development of the package, +while giving the users of the package the right to use and distribute +the Package in a more-or-less customary fashion, plus the right to make +reasonable modifications. + +Definitions: + + "Package" refers to the collection of files distributed by the + Copyright Holder, and derivatives of that collection of files + created through textual modification. + + "Standard Version" refers to such a Package if it has not been + modified, or has been modified in accordance with the wishes + of the Copyright Holder as specified below. + + "Copyright Holder" is whoever is named in the copyright or + copyrights for the package. + + "You" is you, if you're thinking about copying or distributing + this Package. + + "Reasonable copying fee" is whatever you can justify on the + basis of media cost, duplication charges, time of people involved, + and so on. (You will not be required to justify it to the + Copyright Holder, but only to the computing community at large + as a market that must bear the fee.) + + "Freely Available" means that no fee is charged for the item + itself, though there may be fees involved in handling the item. + It also means that recipients of the item may redistribute it + under the same conditions they received it. + +1. You may make and give away verbatim copies of the source form of the +Standard Version of this Package without restriction, provided that you +duplicate all of the original copyright notices and associated disclaimers. + +2. You may apply bug fixes, portability fixes and other modifications +derived from the Public Domain or from the Copyright Holder. A Package +modified in such a way shall still be considered the Standard Version. + +3. You may otherwise modify your copy of this Package in any way, provided +that you insert a prominent notice in each changed file stating how and +when you changed that file, and provided that you do at least ONE of the +following: + + a) place your modifications in the Public Domain or otherwise make them + Freely Available, such as by posting said modifications to Usenet or + an equivalent medium, or placing the modifications on a major archive + site such as uunet.uu.net, or by allowing the Copyright Holder to include + your modifications in the Standard Version of the Package. + + b) use the modified Package only within your corporation or organization. + + c) rename any non-standard executables so the names do not conflict + with standard executables, which must also be provided, and provide + a separate manual page for each non-standard executable that clearly + documents how it differs from the Standard Version. + + d) make other distribution arrangements with the Copyright Holder. + +4. You may distribute the programs of this Package in object code or +executable form, provided that you do at least ONE of the following: + + a) distribute a Standard Version of the executables and library files, + together with instructions (in the manual page or equivalent) on where + to get the Standard Version. + + b) accompany the distribution with the machine-readable source of + the Package with your modifications. + + c) give non-standard executables non-standard names, and clearly + document the differences in manual pages (or equivalent), together + with instructions on where to get the Standard Version. + + d) make other distribution arrangements with the Copyright Holder. + +5. You may charge a reasonable copying fee for any distribution of this +Package. You may charge any fee you choose for support of this +Package. You may not charge a fee for this Package itself. However, +you may distribute this Package in aggregate with other (possibly +commercial) programs as part of a larger (possibly commercial) software +distribution provided that you do not advertise this Package as a +product of your own. You may embed this Package's interpreter within +an executable of yours (by linking); this shall be construed as a mere +form of aggregation, provided that the complete Standard Version of the +interpreter is so embedded. + +6. The scripts and library files supplied as input to or produced as +output from the programs of this Package do not automatically fall +under the copyright of this Package, but belong to whoever generated +them, and may be sold commercially, and may be aggregated with this +Package. If such scripts or library files are aggregated with this +Package via the so-called "undump" or "unexec" methods of producing a +binary executable image, then distribution of such an image shall +neither be construed as a distribution of this Package nor shall it +fall under the restrictions of Paragraphs 3 and 4, provided that you do +not represent such an executable image as a Standard Version of this +Package. + +7. C subroutines (or comparably compiled subroutines in other +languages) supplied by you and linked into this Package in order to +emulate subroutines and variables of the language defined by this +Package shall not be considered part of this Package, but are the +equivalent of input as in Paragraph 6, provided these subroutines do +not change the language in any way that would cause it to fail the +regression tests for the language. + +8. Aggregation of this Package with a commercial distribution is always +permitted provided that the use of this Package is embedded; that is, +when no overt attempt is made to make this Package's interfaces visible +to the end user of the commercial distribution. Such use shall not be +construed as a distribution of this Package. + +9. The name of the Copyright Holder may not be used to endorse or promote +products derived from this software without specific prior written permission. + +10. THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR +IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED +WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE. + + The End diff --git a/beagle/debian-rfs/usr/share/common-licenses/BSD b/beagle/debian-rfs/usr/share/common-licenses/BSD new file mode 100644 index 0000000..c7a0aa4 --- /dev/null +++ b/beagle/debian-rfs/usr/share/common-licenses/BSD @@ -0,0 +1,26 @@ +Copyright (c) The Regents of the University of California. +All rights reserved. + +Redistribution and use in source and binary forms, with or without +modification, are permitted provided that the following conditions +are met: +1. Redistributions of source code must retain the above copyright + notice, this list of conditions and the following disclaimer. +2. Redistributions in binary form must reproduce the above copyright + notice, this list of conditions and the following disclaimer in the + documentation and/or other materials provided with the distribution. +3. Neither the name of the University nor the names of its contributors + may be used to endorse or promote products derived from this software + without specific prior written permission. + +THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND +ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE +IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE +ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE +FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL +DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS +OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) +HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT +LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY +OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF +SUCH DAMAGE. diff --git a/beagle/debian-rfs/usr/share/common-licenses/GFDL b/beagle/debian-rfs/usr/share/common-licenses/GFDL new file mode 120000 index 0000000..006f00f --- /dev/null +++ b/beagle/debian-rfs/usr/share/common-licenses/GFDL @@ -0,0 +1 @@ +GFDL-1.3
\ No newline at end of file diff --git a/beagle/debian-rfs/usr/share/common-licenses/GFDL-1.2 b/beagle/debian-rfs/usr/share/common-licenses/GFDL-1.2 new file mode 100644 index 0000000..a988da5 --- /dev/null +++ b/beagle/debian-rfs/usr/share/common-licenses/GFDL-1.2 @@ -0,0 +1,397 @@ + GNU Free Documentation License + Version 1.2, November 2002 + + + Copyright (C) 2000,2001,2002 Free Software Foundation, Inc. + 51 Franklin St, 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. + + +0. PREAMBLE + +The purpose of this License is to make a manual, textbook, or other +functional and useful document "free" in the sense of freedom: to +assure everyone the effective freedom to copy and redistribute it, +with or without modifying it, either commercially or noncommercially. +Secondarily, this License preserves for the author and publisher a way +to get credit for their work, while not being considered responsible +for modifications made by others. + +This License is a kind of "copyleft", which means that derivative +works of the document must themselves be free in the same sense. It +complements the GNU General Public License, which is a copyleft +license designed for free software. + +We have designed this License in order to use it for manuals for free +software, because free software needs free documentation: a free +program should come with manuals providing the same freedoms that the +software does. But this License is not limited to software manuals; +it can be used for any textual work, regardless of subject matter or +whether it is published as a printed book. We recommend this License +principally for works whose purpose is instruction or reference. + + +1. APPLICABILITY AND DEFINITIONS + +This License applies to any manual or other work, in any medium, that +contains a notice placed by the copyright holder saying it can be +distributed under the terms of this License. Such a notice grants a +world-wide, royalty-free license, unlimited in duration, to use that +work under the conditions stated herein. The "Document", below, +refers to any such manual or work. Any member of the public is a +licensee, and is addressed as "you". You accept the license if you +copy, modify or distribute the work in a way requiring permission +under copyright law. + +A "Modified Version" of the Document means any work containing the +Document or a portion of it, either copied verbatim, or with +modifications and/or translated into another language. + +A "Secondary Section" is a named appendix or a front-matter section of +the Document that deals exclusively with the relationship of the +publishers or authors of the Document to the Document's overall subject +(or to related matters) and contains nothing that could fall directly +within that overall subject. (Thus, if the Document is in part a +textbook of mathematics, a Secondary Section may not explain any +mathematics.) The relationship could be a matter of historical +connection with the subject or with related matters, or of legal, +commercial, philosophical, ethical or political position regarding +them. + +The "Invariant Sections" are certain Secondary Sections whose titles +are designated, as being those of Invariant Sections, in the notice +that says that the Document is released under this License. If a +section does not fit the above definition of Secondary then it is not +allowed to be designated as Invariant. The Document may contain zero +Invariant Sections. If the Document does not identify any Invariant +Sections then there are none. + +The "Cover Texts" are certain short passages of text that are listed, +as Front-Cover Texts or Back-Cover Texts, in the notice that says that +the Document is released under this License. A Front-Cover Text may +be at most 5 words, and a Back-Cover Text may be at most 25 words. + +A "Transparent" copy of the Document means a machine-readable copy, +represented in a format whose specification is available to the +general public, that is suitable for revising the document +straightforwardly with generic text editors or (for images composed of +pixels) generic paint programs or (for drawings) some widely available +drawing editor, and that is suitable for input to text formatters or +for automatic translation to a variety of formats suitable for input +to text formatters. A copy made in an otherwise Transparent file +format whose markup, or absence of markup, has been arranged to thwart +or discourage subsequent modification by readers is not Transparent. +An image format is not Transparent if used for any substantial amount +of text. A copy that is not "Transparent" is called "Opaque". + +Examples of suitable formats for Transparent copies include plain +ASCII without markup, Texinfo input format, LaTeX input format, SGML +or XML using a publicly available DTD, and standard-conforming simple +HTML, PostScript or PDF designed for human modification. Examples of +transparent image formats include PNG, XCF and JPG. Opaque formats +include proprietary formats that can be read and edited only by +proprietary word processors, SGML or XML for which the DTD and/or +processing tools are not generally available, and the +machine-generated HTML, PostScript or PDF produced by some word +processors for output purposes only. + +The "Title Page" means, for a printed book, the title page itself, +plus such following pages as are needed to hold, legibly, the material +this License requires to appear in the title page. For works in +formats which do not have any title page as such, "Title Page" means +the text near the most prominent appearance of the work's title, +preceding the beginning of the body of the text. + +A section "Entitled XYZ" means a named subunit of the Document whose +title either is precisely XYZ or contains XYZ in parentheses following +text that translates XYZ in another language. (Here XYZ stands for a +specific section name mentioned below, such as "Acknowledgements", +"Dedications", "Endorsements", or "History".) To "Preserve the Title" +of such a section when you modify the Document means that it remains a +section "Entitled XYZ" according to this definition. + +The Document may include Warranty Disclaimers next to the notice which +states that this License applies to the Document. These Warranty +Disclaimers are considered to be included by reference in this +License, but only as regards disclaiming warranties: any other +implication that these Warranty Disclaimers may have is void and has +no effect on the meaning of this License. + + +2. VERBATIM COPYING + +You may copy and distribute the Document in any medium, either +commercially or noncommercially, provided that this License, the +copyright notices, and the license notice saying this License applies +to the Document are reproduced in all copies, and that you add no other +conditions whatsoever to those of this License. You may not use +technical measures to obstruct or control the reading or further +copying of the copies you make or distribute. However, you may accept +compensation in exchange for copies. If you distribute a large enough +number of copies you must also follow the conditions in section 3. + +You may also lend copies, under the same conditions stated above, and +you may publicly display copies. + + +3. COPYING IN QUANTITY + +If you publish printed copies (or copies in media that commonly have +printed covers) of the Document, numbering more than 100, and the +Document's license notice requires Cover Texts, you must enclose the +copies in covers that carry, clearly and legibly, all these Cover +Texts: Front-Cover Texts on the front cover, and Back-Cover Texts on +the back cover. Both covers must also clearly and legibly identify +you as the publisher of these copies. The front cover must present +the full title with all words of the title equally prominent and +visible. You may add other material on the covers in addition. +Copying with changes limited to the covers, as long as they preserve +the title of the Document and satisfy these conditions, can be treated +as verbatim copying in other respects. + +If the required texts for either cover are too voluminous to fit +legibly, you should put the first ones listed (as many as fit +reasonably) on the actual cover, and continue the rest onto adjacent +pages. + +If you publish or distribute Opaque copies of the Document numbering +more than 100, you must either include a machine-readable Transparent +copy along with each Opaque copy, or state in or with each Opaque copy +a computer-network location from which the general network-using +public has access to download using public-standard network protocols +a complete Transparent copy of the Document, free of added material. +If you use the latter option, you must take reasonably prudent steps, +when you begin distribution of Opaque copies in quantity, to ensure +that this Transparent copy will remain thus accessible at the stated +location until at least one year after the last time you distribute an +Opaque copy (directly or through your agents or retailers) of that +edition to the public. + +It is requested, but not required, that you contact the authors of the +Document well before redistributing any large number of copies, to give +them a chance to provide you with an updated version of the Document. + + +4. MODIFICATIONS + +You may copy and distribute a Modified Version of the Document under +the conditions of sections 2 and 3 above, provided that you release +the Modified Version under precisely this License, with the Modified +Version filling the role of the Document, thus licensing distribution +and modification of the Modified Version to whoever possesses a copy +of it. In addition, you must do these things in the Modified Version: + +A. Use in the Title Page (and on the covers, if any) a title distinct + from that of the Document, and from those of previous versions + (which should, if there were any, be listed in the History section + of the Document). You may use the same title as a previous version + if the original publisher of that version gives permission. +B. List on the Title Page, as authors, one or more persons or entities + responsible for authorship of the modifications in the Modified + Version, together with at least five of the principal authors of the + Document (all of its principal authors, if it has fewer than five), + unless they release you from this requirement. +C. State on the Title page the name of the publisher of the + Modified Version, as the publisher. +D. Preserve all the copyright notices of the Document. +E. Add an appropriate copyright notice for your modifications + adjacent to the other copyright notices. +F. Include, immediately after the copyright notices, a license notice + giving the public permission to use the Modified Version under the + terms of this License, in the form shown in the Addendum below. +G. Preserve in that license notice the full lists of Invariant Sections + and required Cover Texts given in the Document's license notice. +H. Include an unaltered copy of this License. +I. Preserve the section Entitled "History", Preserve its Title, and add + to it an item stating at least the title, year, new authors, and + publisher of the Modified Version as given on the Title Page. If + there is no section Entitled "History" in the Document, create one + stating the title, year, authors, and publisher of the Document as + given on its Title Page, then add an item describing the Modified + Version as stated in the previous sentence. +J. Preserve the network location, if any, given in the Document for + public access to a Transparent copy of the Document, and likewise + the network locations given in the Document for previous versions + it was based on. These may be placed in the "History" section. + You may omit a network location for a work that was published at + least four years before the Document itself, or if the original + publisher of the version it refers to gives permission. +K. For any section Entitled "Acknowledgements" or "Dedications", + Preserve the Title of the section, and preserve in the section all + the substance and tone of each of the contributor acknowledgements + and/or dedications given therein. +L. Preserve all the Invariant Sections of the Document, + unaltered in their text and in their titles. Section numbers + or the equivalent are not considered part of the section titles. +M. Delete any section Entitled "Endorsements". Such a section + may not be included in the Modified Version. +N. Do not retitle any existing section to be Entitled "Endorsements" + or to conflict in title with any Invariant Section. +O. Preserve any Warranty Disclaimers. + +If the Modified Version includes new front-matter sections or +appendices that qualify as Secondary Sections and contain no material +copied from the Document, you may at your option designate some or all +of these sections as invariant. To do this, add their titles to the +list of Invariant Sections in the Modified Version's license notice. +These titles must be distinct from any other section titles. + +You may add a section Entitled "Endorsements", provided it contains +nothing but endorsements of your Modified Version by various +parties--for example, statements of peer review or that the text has +been approved by an organization as the authoritative definition of a +standard. + +You may add a passage of up to five words as a Front-Cover Text, and a +passage of up to 25 words as a Back-Cover Text, to the end of the list +of Cover Texts in the Modified Version. Only one passage of +Front-Cover Text and one of Back-Cover Text may be added by (or +through arrangements made by) any one entity. If the Document already +includes a cover text for the same cover, previously added by you or +by arrangement made by the same entity you are acting on behalf of, +you may not add another; but you may replace the old one, on explicit +permission from the previous publisher that added the old one. + +The author(s) and publisher(s) of the Document do not by this License +give permission to use their names for publicity for or to assert or +imply endorsement of any Modified Version. + + +5. COMBINING DOCUMENTS + +You may combine the Document with other documents released under this +License, under the terms defined in section 4 above for modified +versions, provided that you include in the combination all of the +Invariant Sections of all of the original documents, unmodified, and +list them all as Invariant Sections of your combined work in its +license notice, and that you preserve all their Warranty Disclaimers. + +The combined work need only contain one copy of this License, and +multiple identical Invariant Sections may be replaced with a single +copy. If there are multiple Invariant Sections with the same name but +different contents, make the title of each such section unique by +adding at the end of it, in parentheses, the name of the original +author or publisher of that section if known, or else a unique number. +Make the same adjustment to the section titles in the list of +Invariant Sections in the license notice of the combined work. + +In the combination, you must combine any sections Entitled "History" +in the various original documents, forming one section Entitled +"History"; likewise combine any sections Entitled "Acknowledgements", +and any sections Entitled "Dedications". You must delete all sections +Entitled "Endorsements". + + +6. COLLECTIONS OF DOCUMENTS + +You may make a collection consisting of the Document and other documents +released under this License, and replace the individual copies of this +License in the various documents with a single copy that is included in +the collection, provided that you follow the rules of this License for +verbatim copying of each of the documents in all other respects. + +You may extract a single document from such a collection, and distribute +it individually under this License, provided you insert a copy of this +License into the extracted document, and follow this License in all +other respects regarding verbatim copying of that document. + + +7. AGGREGATION WITH INDEPENDENT WORKS + +A compilation of the Document or its derivatives with other separate +and independent documents or works, in or on a volume of a storage or +distribution medium, is called an "aggregate" if the copyright +resulting from the compilation is not used to limit the legal rights +of the compilation's users beyond what the individual works permit. +When the Document is included in an aggregate, this License does not +apply to the other works in the aggregate which are not themselves +derivative works of the Document. + +If the Cover Text requirement of section 3 is applicable to these +copies of the Document, then if the Document is less than one half of +the entire aggregate, the Document's Cover Texts may be placed on +covers that bracket the Document within the aggregate, or the +electronic equivalent of covers if the Document is in electronic form. +Otherwise they must appear on printed covers that bracket the whole +aggregate. + + +8. TRANSLATION + +Translation is considered a kind of modification, so you may +distribute translations of the Document under the terms of section 4. +Replacing Invariant Sections with translations requires special +permission from their copyright holders, but you may include +translations of some or all Invariant Sections in addition to the +original versions of these Invariant Sections. You may include a +translation of this License, and all the license notices in the +Document, and any Warranty Disclaimers, provided that you also include +the original English version of this License and the original versions +of those notices and disclaimers. In case of a disagreement between +the translation and the original version of this License or a notice +or disclaimer, the original version will prevail. + +If a section in the Document is Entitled "Acknowledgements", +"Dedications", or "History", the requirement (section 4) to Preserve +its Title (section 1) will typically require changing the actual +title. + + +9. TERMINATION + +You may not copy, modify, sublicense, or distribute the Document except +as expressly provided for under this License. Any other attempt to +copy, modify, sublicense or distribute the Document 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. + + +10. FUTURE REVISIONS OF THIS LICENSE + +The Free Software Foundation may publish new, revised versions +of the GNU Free Documentation License from time to time. Such new +versions will be similar in spirit to the present version, but may +differ in detail to address new problems or concerns. See +http://www.gnu.org/copyleft/. + +Each version of the License is given a distinguishing version number. +If the Document specifies that a particular numbered version of this +License "or any later version" applies to it, you have the option of +following the terms and conditions either of that specified version or +of any later version that has been published (not as a draft) by the +Free Software Foundation. If the Document does not specify a version +number of this License, you may choose any version ever published (not +as a draft) by the Free Software Foundation. + + +ADDENDUM: How to use this License for your documents + +To use this License in a document you have written, include a copy of +the License in the document and put the following copyright and +license notices just after the title page: + + Copyright (c) YEAR YOUR NAME. + Permission is granted to copy, distribute and/or modify this document + under the terms of the GNU Free Documentation License, Version 1.2 + or any later version published by the Free Software Foundation; + with no Invariant Sections, no Front-Cover Texts, and no Back-Cover Texts. + A copy of the license is included in the section entitled "GNU + Free Documentation License". + +If you have Invariant Sections, Front-Cover Texts and Back-Cover Texts, +replace the "with...Texts." line with this: + + with the Invariant Sections being LIST THEIR TITLES, with the + Front-Cover Texts being LIST, and with the Back-Cover Texts being LIST. + +If you have Invariant Sections without Cover Texts, or some other +combination of the three, merge those two alternatives to suit the +situation. + +If your document contains nontrivial examples of program code, we +recommend releasing these examples in parallel under your choice of +free software license, such as the GNU General Public License, +to permit their use in free software. diff --git a/beagle/debian-rfs/usr/share/common-licenses/GFDL-1.3 b/beagle/debian-rfs/usr/share/common-licenses/GFDL-1.3 new file mode 100644 index 0000000..2f7e03c --- /dev/null +++ b/beagle/debian-rfs/usr/share/common-licenses/GFDL-1.3 @@ -0,0 +1,451 @@ + + GNU Free Documentation License + Version 1.3, 3 November 2008 + + + Copyright (C) 2000, 2001, 2002, 2007, 2008 Free Software Foundation, Inc. + <http://fsf.org/> + Everyone is permitted to copy and distribute verbatim copies + of this license document, but changing it is not allowed. + +0. PREAMBLE + +The purpose of this License is to make a manual, textbook, or other +functional and useful document "free" in the sense of freedom: to +assure everyone the effective freedom to copy and redistribute it, +with or without modifying it, either commercially or noncommercially. +Secondarily, this License preserves for the author and publisher a way +to get credit for their work, while not being considered responsible +for modifications made by others. + +This License is a kind of "copyleft", which means that derivative +works of the document must themselves be free in the same sense. It +complements the GNU General Public License, which is a copyleft +license designed for free software. + +We have designed this License in order to use it for manuals for free +software, because free software needs free documentation: a free +program should come with manuals providing the same freedoms that the +software does. But this License is not limited to software manuals; +it can be used for any textual work, regardless of subject matter or +whether it is published as a printed book. We recommend this License +principally for works whose purpose is instruction or reference. + + +1. APPLICABILITY AND DEFINITIONS + +This License applies to any manual or other work, in any medium, that +contains a notice placed by the copyright holder saying it can be +distributed under the terms of this License. Such a notice grants a +world-wide, royalty-free license, unlimited in duration, to use that +work under the conditions stated herein. The "Document", below, +refers to any such manual or work. Any member of the public is a +licensee, and is addressed as "you". You accept the license if you +copy, modify or distribute the work in a way requiring permission +under copyright law. + +A "Modified Version" of the Document means any work containing the +Document or a portion of it, either copied verbatim, or with +modifications and/or translated into another language. + +A "Secondary Section" is a named appendix or a front-matter section of +the Document that deals exclusively with the relationship of the +publishers or authors of the Document to the Document's overall +subject (or to related matters) and contains nothing that could fall +directly within that overall subject. (Thus, if the Document is in +part a textbook of mathematics, a Secondary Section may not explain +any mathematics.) The relationship could be a matter of historical +connection with the subject or with related matters, or of legal, +commercial, philosophical, ethical or political position regarding +them. + +The "Invariant Sections" are certain Secondary Sections whose titles +are designated, as being those of Invariant Sections, in the notice +that says that the Document is released under this License. If a +section does not fit the above definition of Secondary then it is not +allowed to be designated as Invariant. The Document may contain zero +Invariant Sections. If the Document does not identify any Invariant +Sections then there are none. + +The "Cover Texts" are certain short passages of text that are listed, +as Front-Cover Texts or Back-Cover Texts, in the notice that says that +the Document is released under this License. A Front-Cover Text may +be at most 5 words, and a Back-Cover Text may be at most 25 words. + +A "Transparent" copy of the Document means a machine-readable copy, +represented in a format whose specification is available to the +general public, that is suitable for revising the document +straightforwardly with generic text editors or (for images composed of +pixels) generic paint programs or (for drawings) some widely available +drawing editor, and that is suitable for input to text formatters or +for automatic translation to a variety of formats suitable for input +to text formatters. A copy made in an otherwise Transparent file +format whose markup, or absence of markup, has been arranged to thwart +or discourage subsequent modification by readers is not Transparent. +An image format is not Transparent if used for any substantial amount +of text. A copy that is not "Transparent" is called "Opaque". + +Examples of suitable formats for Transparent copies include plain +ASCII without markup, Texinfo input format, LaTeX input format, SGML +or XML using a publicly available DTD, and standard-conforming simple +HTML, PostScript or PDF designed for human modification. Examples of +transparent image formats include PNG, XCF and JPG. Opaque formats +include proprietary formats that can be read and edited only by +proprietary word processors, SGML or XML for which the DTD and/or +processing tools are not generally available, and the +machine-generated HTML, PostScript or PDF produced by some word +processors for output purposes only. + +The "Title Page" means, for a printed book, the title page itself, +plus such following pages as are needed to hold, legibly, the material +this License requires to appear in the title page. For works in +formats which do not have any title page as such, "Title Page" means +the text near the most prominent appearance of the work's title, +preceding the beginning of the body of the text. + +The "publisher" means any person or entity that distributes copies of +the Document to the public. + +A section "Entitled XYZ" means a named subunit of the Document whose +title either is precisely XYZ or contains XYZ in parentheses following +text that translates XYZ in another language. (Here XYZ stands for a +specific section name mentioned below, such as "Acknowledgements", +"Dedications", "Endorsements", or "History".) To "Preserve the Title" +of such a section when you modify the Document means that it remains a +section "Entitled XYZ" according to this definition. + +The Document may include Warranty Disclaimers next to the notice which +states that this License applies to the Document. These Warranty +Disclaimers are considered to be included by reference in this +License, but only as regards disclaiming warranties: any other +implication that these Warranty Disclaimers may have is void and has +no effect on the meaning of this License. + +2. VERBATIM COPYING + +You may copy and distribute the Document in any medium, either +commercially or noncommercially, provided that this License, the +copyright notices, and the license notice saying this License applies +to the Document are reproduced in all copies, and that you add no +other conditions whatsoever to those of this License. You may not use +technical measures to obstruct or control the reading or further +copying of the copies you make or distribute. However, you may accept +compensation in exchange for copies. If you distribute a large enough +number of copies you must also follow the conditions in section 3. + +You may also lend copies, under the same conditions stated above, and +you may publicly display copies. + + +3. COPYING IN QUANTITY + +If you publish printed copies (or copies in media that commonly have +printed covers) of the Document, numbering more than 100, and the +Document's license notice requires Cover Texts, you must enclose the +copies in covers that carry, clearly and legibly, all these Cover +Texts: Front-Cover Texts on the front cover, and Back-Cover Texts on +the back cover. Both covers must also clearly and legibly identify +you as the publisher of these copies. The front cover must present +the full title with all words of the title equally prominent and +visible. You may add other material on the covers in addition. +Copying with changes limited to the covers, as long as they preserve +the title of the Document and satisfy these conditions, can be treated +as verbatim copying in other respects. + +If the required texts for either cover are too voluminous to fit +legibly, you should put the first ones listed (as many as fit +reasonably) on the actual cover, and continue the rest onto adjacent +pages. + +If you publish or distribute Opaque copies of the Document numbering +more than 100, you must either include a machine-readable Transparent +copy along with each Opaque copy, or state in or with each Opaque copy +a computer-network location from which the general network-using +public has access to download using public-standard network protocols +a complete Transparent copy of the Document, free of added material. +If you use the latter option, you must take reasonably prudent steps, +when you begin distribution of Opaque copies in quantity, to ensure +that this Transparent copy will remain thus accessible at the stated +location until at least one year after the last time you distribute an +Opaque copy (directly or through your agents or retailers) of that +edition to the public. + +It is requested, but not required, that you contact the authors of the +Document well before redistributing any large number of copies, to +give them a chance to provide you with an updated version of the +Document. + + +4. MODIFICATIONS + +You may copy and distribute a Modified Version of the Document under +the conditions of sections 2 and 3 above, provided that you release +the Modified Version under precisely this License, with the Modified +Version filling the role of the Document, thus licensing distribution +and modification of the Modified Version to whoever possesses a copy +of it. In addition, you must do these things in the Modified Version: + +A. Use in the Title Page (and on the covers, if any) a title distinct + from that of the Document, and from those of previous versions + (which should, if there were any, be listed in the History section + of the Document). You may use the same title as a previous version + if the original publisher of that version gives permission. +B. List on the Title Page, as authors, one or more persons or entities + responsible for authorship of the modifications in the Modified + Version, together with at least five of the principal authors of the + Document (all of its principal authors, if it has fewer than five), + unless they release you from this requirement. +C. State on the Title page the name of the publisher of the + Modified Version, as the publisher. +D. Preserve all the copyright notices of the Document. +E. Add an appropriate copyright notice for your modifications + adjacent to the other copyright notices. +F. Include, immediately after the copyright notices, a license notice + giving the public permission to use the Modified Version under the + terms of this License, in the form shown in the Addendum below. +G. Preserve in that license notice the full lists of Invariant Sections + and required Cover Texts given in the Document's license notice. +H. Include an unaltered copy of this License. +I. Preserve the section Entitled "History", Preserve its Title, and add + to it an item stating at least the title, year, new authors, and + publisher of the Modified Version as given on the Title Page. If + there is no section Entitled "History" in the Document, create one + stating the title, year, authors, and publisher of the Document as + given on its Title Page, then add an item describing the Modified + Version as stated in the previous sentence. +J. Preserve the network location, if any, given in the Document for + public access to a Transparent copy of the Document, and likewise + the network locations given in the Document for previous versions + it was based on. These may be placed in the "History" section. + You may omit a network location for a work that was published at + least four years before the Document itself, or if the original + publisher of the version it refers to gives permission. +K. For any section Entitled "Acknowledgements" or "Dedications", + Preserve the Title of the section, and preserve in the section all + the substance and tone of each of the contributor acknowledgements + and/or dedications given therein. +L. Preserve all the Invariant Sections of the Document, + unaltered in their text and in their titles. Section numbers + or the equivalent are not considered part of the section titles. +M. Delete any section Entitled "Endorsements". Such a section + may not be included in the Modified Version. +N. Do not retitle any existing section to be Entitled "Endorsements" + or to conflict in title with any Invariant Section. +O. Preserve any Warranty Disclaimers. + +If the Modified Version includes new front-matter sections or +appendices that qualify as Secondary Sections and contain no material +copied from the Document, you may at your option designate some or all +of these sections as invariant. To do this, add their titles to the +list of Invariant Sections in the Modified Version's license notice. +These titles must be distinct from any other section titles. + +You may add a section Entitled "Endorsements", provided it contains +nothing but endorsements of your Modified Version by various +parties--for example, statements of peer review or that the text has +been approved by an organization as the authoritative definition of a +standard. + +You may add a passage of up to five words as a Front-Cover Text, and a +passage of up to 25 words as a Back-Cover Text, to the end of the list +of Cover Texts in the Modified Version. Only one passage of +Front-Cover Text and one of Back-Cover Text may be added by (or +through arrangements made by) any one entity. If the Document already +includes a cover text for the same cover, previously added by you or +by arrangement made by the same entity you are acting on behalf of, +you may not add another; but you may replace the old one, on explicit +permission from the previous publisher that added the old one. + +The author(s) and publisher(s) of the Document do not by this License +give permission to use their names for publicity for or to assert or +imply endorsement of any Modified Version. + + +5. COMBINING DOCUMENTS + +You may combine the Document with other documents released under this +License, under the terms defined in section 4 above for modified +versions, provided that you include in the combination all of the +Invariant Sections of all of the original documents, unmodified, and +list them all as Invariant Sections of your combined work in its +license notice, and that you preserve all their Warranty Disclaimers. + +The combined work need only contain one copy of this License, and +multiple identical Invariant Sections may be replaced with a single +copy. If there are multiple Invariant Sections with the same name but +different contents, make the title of each such section unique by +adding at the end of it, in parentheses, the name of the original +author or publisher of that section if known, or else a unique number. +Make the same adjustment to the section titles in the list of +Invariant Sections in the license notice of the combined work. + +In the combination, you must combine any sections Entitled "History" +in the various original documents, forming one section Entitled +"History"; likewise combine any sections Entitled "Acknowledgements", +and any sections Entitled "Dedications". You must delete all sections +Entitled "Endorsements". + + +6. COLLECTIONS OF DOCUMENTS + +You may make a collection consisting of the Document and other +documents released under this License, and replace the individual +copies of this License in the various documents with a single copy +that is included in the collection, provided that you follow the rules +of this License for verbatim copying of each of the documents in all +other respects. + +You may extract a single document from such a collection, and +distribute it individually under this License, provided you insert a +copy of this License into the extracted document, and follow this +License in all other respects regarding verbatim copying of that +document. + + +7. AGGREGATION WITH INDEPENDENT WORKS + +A compilation of the Document or its derivatives with other separate +and independent documents or works, in or on a volume of a storage or +distribution medium, is called an "aggregate" if the copyright +resulting from the compilation is not used to limit the legal rights +of the compilation's users beyond what the individual works permit. +When the Document is included in an aggregate, this License does not +apply to the other works in the aggregate which are not themselves +derivative works of the Document. + +If the Cover Text requirement of section 3 is applicable to these +copies of the Document, then if the Document is less than one half of +the entire aggregate, the Document's Cover Texts may be placed on +covers that bracket the Document within the aggregate, or the +electronic equivalent of covers if the Document is in electronic form. +Otherwise they must appear on printed covers that bracket the whole +aggregate. + + +8. TRANSLATION + +Translation is considered a kind of modification, so you may +distribute translations of the Document under the terms of section 4. +Replacing Invariant Sections with translations requires special +permission from their copyright holders, but you may include +translations of some or all Invariant Sections in addition to the +original versions of these Invariant Sections. You may include a +translation of this License, and all the license notices in the +Document, and any Warranty Disclaimers, provided that you also include +the original English version of this License and the original versions +of those notices and disclaimers. In case of a disagreement between +the translation and the original version of this License or a notice +or disclaimer, the original version will prevail. + +If a section in the Document is Entitled "Acknowledgements", +"Dedications", or "History", the requirement (section 4) to Preserve +its Title (section 1) will typically require changing the actual +title. + + +9. TERMINATION + +You may not copy, modify, sublicense, or distribute the Document +except as expressly provided under this License. Any attempt +otherwise to copy, modify, sublicense, or distribute it is void, and +will automatically terminate your rights under this License. + +However, if you cease all violation of this License, then your license +from a particular copyright holder is reinstated (a) provisionally, +unless and until the copyright holder explicitly and finally +terminates your license, and (b) permanently, if the copyright holder +fails to notify you of the violation by some reasonable means prior to +60 days after the cessation. + +Moreover, your license from a particular copyright holder is +reinstated permanently if the copyright holder notifies you of the +violation by some reasonable means, this is the first time you have +received notice of violation of this License (for any work) from that +copyright holder, and you cure the violation prior to 30 days after +your receipt of the notice. + +Termination of your rights under this section does not terminate the +licenses of parties who have received copies or rights from you under +this License. If your rights have been terminated and not permanently +reinstated, receipt of a copy of some or all of the same material does +not give you any rights to use it. + + +10. FUTURE REVISIONS OF THIS LICENSE + +The Free Software Foundation may publish new, revised versions of the +GNU Free Documentation License from time to time. Such new versions +will be similar in spirit to the present version, but may differ in +detail to address new problems or concerns. See +http://www.gnu.org/copyleft/. + +Each version of the License is given a distinguishing version number. +If the Document specifies that a particular numbered version of this +License "or any later version" applies to it, you have the option of +following the terms and conditions either of that specified version or +of any later version that has been published (not as a draft) by the +Free Software Foundation. If the Document does not specify a version +number of this License, you may choose any version ever published (not +as a draft) by the Free Software Foundation. If the Document +specifies that a proxy can decide which future versions of this +License can be used, that proxy's public statement of acceptance of a +version permanently authorizes you to choose that version for the +Document. + +11. RELICENSING + +"Massive Multiauthor Collaboration Site" (or "MMC Site") means any +World Wide Web server that publishes copyrightable works and also +provides prominent facilities for anybody to edit those works. A +public wiki that anybody can edit is an example of such a server. A +"Massive Multiauthor Collaboration" (or "MMC") contained in the site +means any set of copyrightable works thus published on the MMC site. + +"CC-BY-SA" means the Creative Commons Attribution-Share Alike 3.0 +license published by Creative Commons Corporation, a not-for-profit +corporation with a principal place of business in San Francisco, +California, as well as future copyleft versions of that license +published by that same organization. + +"Incorporate" means to publish or republish a Document, in whole or in +part, as part of another Document. + +An MMC is "eligible for relicensing" if it is licensed under this +License, and if all works that were first published under this License +somewhere other than this MMC, and subsequently incorporated in whole or +in part into the MMC, (1) had no cover texts or invariant sections, and +(2) were thus incorporated prior to November 1, 2008. + +The operator of an MMC Site may republish an MMC contained in the site +under CC-BY-SA on the same site at any time before August 1, 2009, +provided the MMC is eligible for relicensing. + + +ADDENDUM: How to use this License for your documents + +To use this License in a document you have written, include a copy of +the License in the document and put the following copyright and +license notices just after the title page: + + Copyright (c) YEAR YOUR NAME. + Permission is granted to copy, distribute and/or modify this document + under the terms of the GNU Free Documentation License, Version 1.3 + or any later version published by the Free Software Foundation; + with no Invariant Sections, no Front-Cover Texts, and no Back-Cover Texts. + A copy of the license is included in the section entitled "GNU + Free Documentation License". + +If you have Invariant Sections, Front-Cover Texts and Back-Cover Texts, +replace the "with...Texts." line with this: + + with the Invariant Sections being LIST THEIR TITLES, with the + Front-Cover Texts being LIST, and with the Back-Cover Texts being LIST. + +If you have Invariant Sections without Cover Texts, or some other +combination of the three, merge those two alternatives to suit the +situation. + +If your document contains nontrivial examples of program code, we +recommend releasing these examples in parallel under your choice of +free software license, such as the GNU General Public License, +to permit their use in free software. diff --git a/beagle/debian-rfs/usr/share/common-licenses/GPL b/beagle/debian-rfs/usr/share/common-licenses/GPL new file mode 120000 index 0000000..4730a7c --- /dev/null +++ b/beagle/debian-rfs/usr/share/common-licenses/GPL @@ -0,0 +1 @@ +GPL-3
\ No newline at end of file diff --git a/beagle/debian-rfs/usr/share/common-licenses/GPL-1 b/beagle/debian-rfs/usr/share/common-licenses/GPL-1 new file mode 100644 index 0000000..8de98af --- /dev/null +++ b/beagle/debian-rfs/usr/share/common-licenses/GPL-1 @@ -0,0 +1,251 @@ + + GNU GENERAL PUBLIC LICENSE + Version 1, February 1989 + + Copyright (C) 1989 Free Software Foundation, Inc. + 51 Franklin St, 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. + + Preamble + + The license agreements of most software companies try to keep users +at the mercy of those companies. By contrast, our General Public +License is intended to guarantee your freedom to share and change free +software--to make sure the software is free for all its users. The +General Public License applies to the Free Software Foundation's +software and to any other program whose authors commit to using it. +You can use it for your programs, too. + + When we speak of free software, we are referring to freedom, not +price. Specifically, the General Public License is designed to make +sure that you have the freedom to give away or sell copies of free +software, that you receive source code or can get it if you want it, +that you can change the software or use pieces of it in new free +programs; and that you know you can do these things. + + To protect your rights, we need to make restrictions that forbid +anyone to deny you these rights or to ask you to surrender the rights. +These restrictions translate to certain responsibilities for you if you +distribute copies of the software, or if you modify it. + + For example, if you distribute copies of a such a program, whether +gratis or for a fee, you must give the recipients all the rights that +you have. You must make sure that they, too, receive or can get the +source code. And you must tell them their rights. + + We protect your rights with two steps: (1) copyright the software, and +(2) offer you this license which gives you legal permission to copy, +distribute and/or modify the software. + + Also, for each author's protection and ours, we want to make certain +that everyone understands that there is no warranty for this free +software. If the software is modified by someone else and passed on, we +want its recipients to know that what they have is not the original, so +that any problems introduced by others will not reflect on the original +authors' reputations. + + The precise terms and conditions for copying, distribution and +modification follow. + + GNU GENERAL PUBLIC LICENSE + TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION + + 0. This License Agreement applies to any program or other work which +contains a notice placed by the copyright holder saying it may be +distributed under the terms of this General Public License. The +"Program", below, refers to any such program or work, and a "work based +on the Program" means either the Program or any work containing the +Program or a portion of it, either verbatim or with modifications. Each +licensee is addressed as "you". + + 1. You may copy and distribute verbatim copies of the Program's source +code as you receive it, in any medium, provided that you conspicuously and +appropriately publish on each copy an appropriate copyright notice and +disclaimer of warranty; keep intact all the notices that refer to this +General Public License and to the absence of any warranty; and give any +other recipients of the Program a copy of this General Public License +along with the Program. You may charge a fee for the physical act of +transferring a copy. + + 2. You may modify your copy or copies of the Program or any portion of +it, and copy and distribute such modifications under the terms of Paragraph +1 above, provided that you also do the following: + + a) cause the modified files to carry prominent notices stating that + you changed the files and the date of any change; and + + b) cause the whole of any work that you distribute or publish, that + in whole or in part contains the Program or any part thereof, either + with or without modifications, to be licensed at no charge to all + third parties under the terms of this General Public License (except + that you may choose to grant warranty protection to some or all + third parties, at your option). + + c) If the modified program normally reads commands interactively when + run, you must cause it, when started running for such interactive use + in the simplest and most usual way, to print or display an + announcement including an appropriate copyright notice and a notice + that there is no warranty (or else, saying that you provide a + warranty) and that users may redistribute the program under these + conditions, and telling the user how to view a copy of this General + Public License. + + d) 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. + +Mere aggregation of another independent work with the Program (or its +derivative) on a volume of a storage or distribution medium does not bring +the other work under the scope of these terms. + + 3. You may copy and distribute the Program (or a portion or derivative of +it, under Paragraph 2) in object code or executable form under the terms of +Paragraphs 1 and 2 above provided that you also do one of the following: + + a) accompany it with the complete corresponding machine-readable + source code, which must be distributed under the terms of + Paragraphs 1 and 2 above; or, + + b) accompany it with a written offer, valid for at least three + years, to give any third party free (except for a nominal charge + for the cost of distribution) a complete machine-readable copy of the + corresponding source code, to be distributed under the terms of + Paragraphs 1 and 2 above; or, + + c) accompany it with the information you received as to where the + corresponding source code may be obtained. (This alternative is + allowed only for noncommercial distribution and only if you + received the program in object code or executable form alone.) + +Source code for a work means the preferred form of the work for making +modifications to it. For an executable file, complete source code means +all the source code for all modules it contains; but, as a special +exception, it need not include source code for modules which are standard +libraries that accompany the operating system on which the executable +file runs, or for standard header files or definitions files that +accompany that operating system. + + 4. You may not copy, modify, sublicense, distribute or transfer the +Program except as expressly provided under this General Public License. +Any attempt otherwise to copy, modify, sublicense, distribute or transfer +the Program is void, and will automatically terminate your rights to use +the Program under this License. However, parties who have received +copies, or rights to use copies, from you under this General Public +License will not have their licenses terminated so long as such parties +remain in full compliance. + + 5. By copying, distributing or modifying the Program (or any work based +on the Program) you indicate your acceptance of this license to do so, +and all its terms and conditions. + + 6. Each time you redistribute the Program (or any work based on the +Program), the recipient automatically receives a license from the original +licensor to copy, distribute or modify the Program subject to these +terms and conditions. You may not impose any further restrictions on the +recipients' exercise of the rights granted herein. + + 7. The Free Software Foundation may publish revised and/or new versions +of the General Public License from time to time. Such new versions will +be similar in spirit to the present version, but may differ in detail to +address new problems or concerns. + +Each version is given a distinguishing version number. If the Program +specifies a version number of the 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 Program does not specify a version number of +the license, you may choose any version ever published by the Free Software +Foundation. + + 8. If you wish to incorporate parts of the Program into other free +programs whose distribution conditions are different, 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 + + 9. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY +FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN +OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES +PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED +OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF +MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS +TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE +PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, +REPAIR OR CORRECTION. + + 10. 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 PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, +INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING +OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED +TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY +YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER +PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE +POSSIBILITY OF SUCH DAMAGES. + + END OF TERMS AND CONDITIONS + + Appendix: How to Apply These Terms to Your New Programs + + If you develop a new program, and you want it to be of the greatest +possible use to humanity, the best way to achieve this is to make it +free software which everyone can redistribute and change under these +terms. + + To do so, attach the following notices to the program. It is safest to +attach them to the start of each source file to most effectively 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 program's name and a brief idea of what it does.> + Copyright (C) 19yy <name of author> + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 1, or (at your option) + any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, 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. + +If the program is interactive, make it output a short notice like this +when it starts in an interactive mode: + + Gnomovision version 69, Copyright (C) 19xx name of author + Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'. + This is free software, and you are welcome to redistribute it + under certain conditions; type `show c' for details. + +The hypothetical commands `show w' and `show c' should show the +appropriate parts of the General Public License. Of course, the +commands you use may be called something other than `show w' and `show +c'; they could even be mouse-clicks or menu items--whatever suits your +program. + +You should also get your employer (if you work as a programmer) or your +school, if any, to sign a "copyright disclaimer" for the program, if +necessary. Here a sample; alter the names: + + Yoyodyne, Inc., hereby disclaims all copyright interest in the + program `Gnomovision' (a program to direct compilers to make passes + at assemblers) written by James Hacker. + + <signature of Ty Coon>, 1 April 1989 + Ty Coon, President of Vice + +That's all there is to it! diff --git a/beagle/debian-rfs/usr/share/common-licenses/GPL-2 b/beagle/debian-rfs/usr/share/common-licenses/GPL-2 new file mode 100644 index 0000000..d159169 --- /dev/null +++ b/beagle/debian-rfs/usr/share/common-licenses/GPL-2 @@ -0,0 +1,339 @@ + GNU GENERAL PUBLIC LICENSE + Version 2, June 1991 + + Copyright (C) 1989, 1991 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. + + Preamble + + The licenses for most software are designed to take away your +freedom to share and change it. By contrast, the GNU General Public +License is intended to guarantee your freedom to share and change free +software--to make sure the software is free for all its users. This +General Public License applies to most of the Free Software +Foundation's software and to any other program whose authors commit to +using it. (Some other Free Software Foundation software is covered by +the GNU Lesser General Public License instead.) You can apply it to +your programs, too. + + When we speak of free software, we are referring to freedom, not +price. Our General Public Licenses are designed to make sure that you +have the freedom to distribute copies of free software (and charge for +this service if you wish), that you receive source code or can get it +if you want it, that you can change the software or use pieces of it +in new free programs; and that you know you can do these things. + + To protect your rights, we need to make restrictions that forbid +anyone to deny you these rights or to ask you to surrender the rights. +These restrictions translate to certain responsibilities for you if you +distribute copies of the software, or if you modify it. + + For example, if you distribute copies of such a program, whether +gratis or for a fee, you must give the recipients all the rights that +you have. You must make sure that they, too, receive or can get the +source code. And you must show them these terms so they know their +rights. + + We protect your rights with two steps: (1) copyright the software, and +(2) offer you this license which gives you legal permission to copy, +distribute and/or modify the software. + + Also, for each author's protection and ours, we want to make certain +that everyone understands that there is no warranty for this free +software. If the software is modified by someone else and passed on, we +want its recipients to know that what they have is not the original, so +that any problems introduced by others will not reflect on the original +authors' reputations. + + Finally, any free program is threatened constantly by software +patents. We wish to avoid the danger that redistributors of a free +program will individually obtain patent licenses, in effect making the +program proprietary. To prevent this, we have made it clear that any +patent must be licensed for everyone's free use or not licensed at all. + + The precise terms and conditions for copying, distribution and +modification follow. + + GNU GENERAL PUBLIC LICENSE + TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION + + 0. This License applies to any program or other work which contains +a notice placed by the copyright holder saying it may be distributed +under the terms of this General Public License. The "Program", below, +refers to any such program or work, and a "work based on the Program" +means either the Program or any derivative work under copyright law: +that is to say, a work containing the Program or a portion of it, +either verbatim or with modifications and/or translated into another +language. (Hereinafter, translation is included without limitation in +the term "modification".) Each licensee is addressed as "you". + +Activities other than copying, distribution and modification are not +covered by this License; they are outside its scope. The act of +running the Program is not restricted, and the output from the Program +is covered only if its contents constitute a work based on the +Program (independent of having been made by running the Program). +Whether that is true depends on what the Program does. + + 1. You may copy and distribute verbatim copies of the Program's +source code as you receive it, in any medium, provided that you +conspicuously and appropriately publish on each copy an appropriate +copyright notice and disclaimer of warranty; keep intact all the +notices that refer to this License and to the absence of any warranty; +and give any other recipients of the Program a copy of this License +along with the Program. + +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 Program or any portion +of it, thus forming a work based on the Program, 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) You must cause the modified files to carry prominent notices + stating that you changed the files and the date of any change. + + b) You must cause any work that you distribute or publish, that in + whole or in part contains or is derived from the Program or any + part thereof, to be licensed as a whole at no charge to all third + parties under the terms of this License. + + c) If the modified program normally reads commands interactively + when run, you must cause it, when started running for such + interactive use in the most ordinary way, to print or display an + announcement including an appropriate copyright notice and a + notice that there is no warranty (or else, saying that you provide + a warranty) and that users may redistribute the program under + these conditions, and telling the user how to view a copy of this + License. (Exception: if the Program itself is interactive but + does not normally print such an announcement, your work based on + the Program is not required to print an announcement.) + +These requirements apply to the modified work as a whole. If +identifiable sections of that work are not derived from the Program, +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 Program, 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 Program. + +In addition, mere aggregation of another work not based on the Program +with the Program (or with a work based on the Program) on a volume of +a storage or distribution medium does not bring the other work under +the scope of this License. + + 3. You may copy and distribute the Program (or a work based on it, +under Section 2) in object code or executable form under the terms of +Sections 1 and 2 above provided that you also do one of the following: + + a) 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; or, + + b) Accompany it with a written offer, valid for at least three + years, to give any third party, for a charge no more than your + cost of physically performing source distribution, a complete + machine-readable copy of the corresponding source code, to be + distributed under the terms of Sections 1 and 2 above on a medium + customarily used for software interchange; or, + + c) Accompany it with the information you received as to the offer + to distribute corresponding source code. (This alternative is + allowed only for noncommercial distribution and only if you + received the program in object code or executable form with such + an offer, in accord with Subsection b above.) + +The source code for a work means the preferred form of the work for +making modifications to it. For an executable work, 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 executable. However, as a +special exception, the source code 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. + +If distribution of executable or 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 counts as +distribution of the source code, even though third parties are not +compelled to copy the source along with the object code. + + 4. You may not copy, modify, sublicense, or distribute the Program +except as expressly provided under this License. Any attempt +otherwise to copy, modify, sublicense or distribute the Program 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. + + 5. 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 Program or its derivative works. These actions are +prohibited by law if you do not accept this License. Therefore, by +modifying or distributing the Program (or any work based on the +Program), you indicate your acceptance of this License to do so, and +all its terms and conditions for copying, distributing or modifying +the Program or works based on it. + + 6. Each time you redistribute the Program (or any work based on the +Program), the recipient automatically receives a license from the +original licensor to copy, distribute or modify the Program 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 to +this License. + + 7. 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 Program at all. For example, if a patent +license would not permit royalty-free redistribution of the Program 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 Program. + +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. + + 8. If the distribution and/or use of the Program is restricted in +certain countries either by patents or by copyrighted interfaces, the +original copyright holder who places the Program 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. + + 9. The Free Software Foundation may publish revised and/or new versions +of the General Public License from time to time. Such new versions will +be similar in spirit to the present version, but may differ in detail to +address new problems or concerns. + +Each version is given a distinguishing version number. If the Program +specifies 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 Program does not specify a version number of +this License, you may choose any version ever published by the Free Software +Foundation. + + 10. If you wish to incorporate parts of the Program into other free +programs whose distribution conditions are different, 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 + + 11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY +FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN +OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES +PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED +OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF +MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS +TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE +PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, +REPAIR OR CORRECTION. + + 12. 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 PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, +INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING +OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED +TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY +YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER +PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE +POSSIBILITY OF SUCH DAMAGES. + + END OF TERMS AND CONDITIONS + + How to Apply These Terms to Your New Programs + + If you develop a new program, and you want it to be of the greatest +possible use to the public, the best way to achieve this is to make it +free software which everyone can redistribute and change under these terms. + + To do so, attach the following notices to the program. It is safest +to attach them to the start of each source file to most effectively +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 program's name and a brief idea of what it does.> + Copyright (C) <year> <name of author> + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License along + with this program; if not, 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. + +If the program is interactive, make it output a short notice like this +when it starts in an interactive mode: + + Gnomovision version 69, Copyright (C) year name of author + Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'. + This is free software, and you are welcome to redistribute it + under certain conditions; type `show c' for details. + +The hypothetical commands `show w' and `show c' should show the appropriate +parts of the General Public License. Of course, the commands you use may +be called something other than `show w' and `show c'; they could even be +mouse-clicks or menu items--whatever suits your program. + +You should also get your employer (if you work as a programmer) or your +school, if any, to sign a "copyright disclaimer" for the program, if +necessary. Here is a sample; alter the names: + + Yoyodyne, Inc., hereby disclaims all copyright interest in the program + `Gnomovision' (which makes passes at compilers) written by James Hacker. + + <signature of Ty Coon>, 1 April 1989 + Ty Coon, President of Vice + +This General Public License does not permit incorporating your program into +proprietary programs. If your program is a subroutine library, you may +consider it more useful to permit linking proprietary applications with the +library. If this is what you want to do, use the GNU Lesser General +Public License instead of this License. diff --git a/beagle/debian-rfs/usr/share/common-licenses/GPL-3 b/beagle/debian-rfs/usr/share/common-licenses/GPL-3 new file mode 100644 index 0000000..94a9ed0 --- /dev/null +++ b/beagle/debian-rfs/usr/share/common-licenses/GPL-3 @@ -0,0 +1,674 @@ + GNU GENERAL PUBLIC LICENSE + Version 3, 29 June 2007 + + Copyright (C) 2007 Free Software Foundation, Inc. <http://fsf.org/> + Everyone is permitted to copy and distribute verbatim copies + of this license document, but changing it is not allowed. + + Preamble + + The GNU General Public License is a free, copyleft license for +software and other kinds of works. + + The licenses for most software and other practical works are designed +to take away your freedom to share and change the works. By contrast, +the GNU General Public License is intended to guarantee your freedom to +share and change all versions of a program--to make sure it remains free +software for all its users. We, the Free Software Foundation, use the +GNU General Public License for most of our software; it applies also to +any other work released this way by its authors. You can apply it to +your programs, too. + + When we speak of free software, we are referring to freedom, not +price. Our General Public Licenses are designed to make sure that you +have the freedom to distribute copies of free software (and charge for +them if you wish), that you receive source code or can get it if you +want it, that you can change the software or use pieces of it in new +free programs, and that you know you can do these things. + + To protect your rights, we need to prevent others from denying you +these rights or asking you to surrender the rights. Therefore, you have +certain responsibilities if you distribute copies of the software, or if +you modify it: responsibilities to respect the freedom of others. + + For example, if you distribute copies of such a program, whether +gratis or for a fee, you must pass on to the recipients the same +freedoms that you received. You must make sure that they, too, receive +or can get the source code. And you must show them these terms so they +know their rights. + + Developers that use the GNU GPL protect your rights with two steps: +(1) assert copyright on the software, and (2) offer you this License +giving you legal permission to copy, distribute and/or modify it. + + For the developers' and authors' protection, the GPL clearly explains +that there is no warranty for this free software. For both users' and +authors' sake, the GPL requires that modified versions be marked as +changed, so that their problems will not be attributed erroneously to +authors of previous versions. + + Some devices are designed to deny users access to install or run +modified versions of the software inside them, although the manufacturer +can do so. This is fundamentally incompatible with the aim of +protecting users' freedom to change the software. The systematic +pattern of such abuse occurs in the area of products for individuals to +use, which is precisely where it is most unacceptable. Therefore, we +have designed this version of the GPL to prohibit the practice for those +products. If such problems arise substantially in other domains, we +stand ready to extend this provision to those domains in future versions +of the GPL, as needed to protect the freedom of users. + + Finally, every program is threatened constantly by software patents. +States should not allow patents to restrict development and use of +software on general-purpose computers, but in those that do, we wish to +avoid the special danger that patents applied to a free program could +make it effectively proprietary. To prevent this, the GPL assures that +patents cannot be used to render the program non-free. + + The precise terms and conditions for copying, distribution and +modification follow. + + TERMS AND CONDITIONS + + 0. Definitions. + + "This License" refers to version 3 of the GNU General Public License. + + "Copyright" also means copyright-like laws that apply to other kinds of +works, such as semiconductor masks. + + "The Program" refers to any copyrightable work licensed under this +License. Each licensee is addressed as "you". "Licensees" and +"recipients" may be individuals or organizations. + + To "modify" a work means to copy from or adapt all or part of the work +in a fashion requiring copyright permission, other than the making of an +exact copy. The resulting work is called a "modified version" of the +earlier work or a work "based on" the earlier work. + + A "covered work" means either the unmodified Program or a work based +on the Program. + + To "propagate" a work means to do anything with it that, without +permission, would make you directly or secondarily liable for +infringement under applicable copyright law, except executing it on a +computer or modifying a private copy. Propagation includes copying, +distribution (with or without modification), making available to the +public, and in some countries other activities as well. + + To "convey" a work means any kind of propagation that enables other +parties to make or receive copies. Mere interaction with a user through +a computer network, with no transfer of a copy, is not conveying. + + An interactive user interface displays "Appropriate Legal Notices" +to the extent that it includes a convenient and prominently visible +feature that (1) displays an appropriate copyright notice, and (2) +tells the user that there is no warranty for the work (except to the +extent that warranties are provided), that licensees may convey the +work under this License, and how to view a copy of this License. If +the interface presents a list of user commands or options, such as a +menu, a prominent item in the list meets this criterion. + + 1. Source Code. + + The "source code" for a work means the preferred form of the work +for making modifications to it. "Object code" means any non-source +form of a work. + + A "Standard Interface" means an interface that either is an official +standard defined by a recognized standards body, or, in the case of +interfaces specified for a particular programming language, one that +is widely used among developers working in that language. + + The "System Libraries" of an executable work include anything, other +than the work as a whole, that (a) is included in the normal form of +packaging a Major Component, but which is not part of that Major +Component, and (b) serves only to enable use of the work with that +Major Component, or to implement a Standard Interface for which an +implementation is available to the public in source code form. A +"Major Component", in this context, means a major essential component +(kernel, window system, and so on) of the specific operating system +(if any) on which the executable work runs, or a compiler used to +produce the work, or an object code interpreter used to run it. + + The "Corresponding Source" for a work in object code form means all +the source code needed to generate, install, and (for an executable +work) run the object code and to modify the work, including scripts to +control those activities. However, it does not include the work's +System Libraries, or general-purpose tools or generally available free +programs which are used unmodified in performing those activities but +which are not part of the work. For example, Corresponding Source +includes interface definition files associated with source files for +the work, and the source code for shared libraries and dynamically +linked subprograms that the work is specifically designed to require, +such as by intimate data communication or control flow between those +subprograms and other parts of the work. + + The Corresponding Source need not include anything that users +can regenerate automatically from other parts of the Corresponding +Source. + + The Corresponding Source for a work in source code form is that +same work. + + 2. Basic Permissions. + + All rights granted under this License are granted for the term of +copyright on the Program, and are irrevocable provided the stated +conditions are met. This License explicitly affirms your unlimited +permission to run the unmodified Program. The output from running a +covered work is covered by this License only if the output, given its +content, constitutes a covered work. This License acknowledges your +rights of fair use or other equivalent, as provided by copyright law. + + You may make, run and propagate covered works that you do not +convey, without conditions so long as your license otherwise remains +in force. You may convey covered works to others for the sole purpose +of having them make modifications exclusively for you, or provide you +with facilities for running those works, provided that you comply with +the terms of this License in conveying all material for which you do +not control copyright. Those thus making or running the covered works +for you must do so exclusively on your behalf, under your direction +and control, on terms that prohibit them from making any copies of +your copyrighted material outside their relationship with you. + + Conveying under any other circumstances is permitted solely under +the conditions stated below. Sublicensing is not allowed; section 10 +makes it unnecessary. + + 3. Protecting Users' Legal Rights From Anti-Circumvention Law. + + No covered work shall be deemed part of an effective technological +measure under any applicable law fulfilling obligations under article +11 of the WIPO copyright treaty adopted on 20 December 1996, or +similar laws prohibiting or restricting circumvention of such +measures. + + When you convey a covered work, you waive any legal power to forbid +circumvention of technological measures to the extent such circumvention +is effected by exercising rights under this License with respect to +the covered work, and you disclaim any intention to limit operation or +modification of the work as a means of enforcing, against the work's +users, your or third parties' legal rights to forbid circumvention of +technological measures. + + 4. Conveying Verbatim Copies. + + You may convey verbatim copies of the Program's source code as you +receive it, in any medium, provided that you conspicuously and +appropriately publish on each copy an appropriate copyright notice; +keep intact all notices stating that this License and any +non-permissive terms added in accord with section 7 apply to the code; +keep intact all notices of the absence of any warranty; and give all +recipients a copy of this License along with the Program. + + You may charge any price or no price for each copy that you convey, +and you may offer support or warranty protection for a fee. + + 5. Conveying Modified Source Versions. + + You may convey a work based on the Program, or the modifications to +produce it from the Program, in the form of source code under the +terms of section 4, provided that you also meet all of these conditions: + + a) The work must carry prominent notices stating that you modified + it, and giving a relevant date. + + b) The work must carry prominent notices stating that it is + released under this License and any conditions added under section + 7. This requirement modifies the requirement in section 4 to + "keep intact all notices". + + c) You must license the entire work, as a whole, under this + License to anyone who comes into possession of a copy. This + License will therefore apply, along with any applicable section 7 + additional terms, to the whole of the work, and all its parts, + regardless of how they are packaged. This License gives no + permission to license the work in any other way, but it does not + invalidate such permission if you have separately received it. + + d) If the work has interactive user interfaces, each must display + Appropriate Legal Notices; however, if the Program has interactive + interfaces that do not display Appropriate Legal Notices, your + work need not make them do so. + + A compilation of a covered work with other separate and independent +works, which are not by their nature extensions of the covered work, +and which are not combined with it such as to form a larger program, +in or on a volume of a storage or distribution medium, is called an +"aggregate" if the compilation and its resulting copyright are not +used to limit the access or legal rights of the compilation's users +beyond what the individual works permit. Inclusion of a covered work +in an aggregate does not cause this License to apply to the other +parts of the aggregate. + + 6. Conveying Non-Source Forms. + + You may convey a covered work in object code form under the terms +of sections 4 and 5, provided that you also convey the +machine-readable Corresponding Source under the terms of this License, +in one of these ways: + + a) Convey the object code in, or embodied in, a physical product + (including a physical distribution medium), accompanied by the + Corresponding Source fixed on a durable physical medium + customarily used for software interchange. + + b) Convey the object code in, or embodied in, a physical product + (including a physical distribution medium), accompanied by a + written offer, valid for at least three years and valid for as + long as you offer spare parts or customer support for that product + model, to give anyone who possesses the object code either (1) a + copy of the Corresponding Source for all the software in the + product that is covered by this License, on a durable physical + medium customarily used for software interchange, for a price no + more than your reasonable cost of physically performing this + conveying of source, or (2) access to copy the + Corresponding Source from a network server at no charge. + + c) Convey individual copies of the object code with a copy of the + written offer to provide the Corresponding Source. This + alternative is allowed only occasionally and noncommercially, and + only if you received the object code with such an offer, in accord + with subsection 6b. + + d) Convey the object code by offering access from a designated + place (gratis or for a charge), and offer equivalent access to the + Corresponding Source in the same way through the same place at no + further charge. You need not require recipients to copy the + Corresponding Source along with the object code. If the place to + copy the object code is a network server, the Corresponding Source + may be on a different server (operated by you or a third party) + that supports equivalent copying facilities, provided you maintain + clear directions next to the object code saying where to find the + Corresponding Source. Regardless of what server hosts the + Corresponding Source, you remain obligated to ensure that it is + available for as long as needed to satisfy these requirements. + + e) Convey the object code using peer-to-peer transmission, provided + you inform other peers where the object code and Corresponding + Source of the work are being offered to the general public at no + charge under subsection 6d. + + A separable portion of the object code, whose source code is excluded +from the Corresponding Source as a System Library, need not be +included in conveying the object code work. + + A "User Product" is either (1) a "consumer product", which means any +tangible personal property which is normally used for personal, family, +or household purposes, or (2) anything designed or sold for incorporation +into a dwelling. In determining whether a product is a consumer product, +doubtful cases shall be resolved in favor of coverage. For a particular +product received by a particular user, "normally used" refers to a +typical or common use of that class of product, regardless of the status +of the particular user or of the way in which the particular user +actually uses, or expects or is expected to use, the product. A product +is a consumer product regardless of whether the product has substantial +commercial, industrial or non-consumer uses, unless such uses represent +the only significant mode of use of the product. + + "Installation Information" for a User Product means any methods, +procedures, authorization keys, or other information required to install +and execute modified versions of a covered work in that User Product from +a modified version of its Corresponding Source. The information must +suffice to ensure that the continued functioning of the modified object +code is in no case prevented or interfered with solely because +modification has been made. + + If you convey an object code work under this section in, or with, or +specifically for use in, a User Product, and the conveying occurs as +part of a transaction in which the right of possession and use of the +User Product is transferred to the recipient in perpetuity or for a +fixed term (regardless of how the transaction is characterized), the +Corresponding Source conveyed under this section must be accompanied +by the Installation Information. But this requirement does not apply +if neither you nor any third party retains the ability to install +modified object code on the User Product (for example, the work has +been installed in ROM). + + The requirement to provide Installation Information does not include a +requirement to continue to provide support service, warranty, or updates +for a work that has been modified or installed by the recipient, or for +the User Product in which it has been modified or installed. Access to a +network may be denied when the modification itself materially and +adversely affects the operation of the network or violates the rules and +protocols for communication across the network. + + Corresponding Source conveyed, and Installation Information provided, +in accord with this section must be in a format that is publicly +documented (and with an implementation available to the public in +source code form), and must require no special password or key for +unpacking, reading or copying. + + 7. Additional Terms. + + "Additional permissions" are terms that supplement the terms of this +License by making exceptions from one or more of its conditions. +Additional permissions that are applicable to the entire Program shall +be treated as though they were included in this License, to the extent +that they are valid under applicable law. If additional permissions +apply only to part of the Program, that part may be used separately +under those permissions, but the entire Program remains governed by +this License without regard to the additional permissions. + + When you convey a copy of a covered work, you may at your option +remove any additional permissions from that copy, or from any part of +it. (Additional permissions may be written to require their own +removal in certain cases when you modify the work.) You may place +additional permissions on material, added by you to a covered work, +for which you have or can give appropriate copyright permission. + + Notwithstanding any other provision of this License, for material you +add to a covered work, you may (if authorized by the copyright holders of +that material) supplement the terms of this License with terms: + + a) Disclaiming warranty or limiting liability differently from the + terms of sections 15 and 16 of this License; or + + b) Requiring preservation of specified reasonable legal notices or + author attributions in that material or in the Appropriate Legal + Notices displayed by works containing it; or + + c) Prohibiting misrepresentation of the origin of that material, or + requiring that modified versions of such material be marked in + reasonable ways as different from the original version; or + + d) Limiting the use for publicity purposes of names of licensors or + authors of the material; or + + e) Declining to grant rights under trademark law for use of some + trade names, trademarks, or service marks; or + + f) Requiring indemnification of licensors and authors of that + material by anyone who conveys the material (or modified versions of + it) with contractual assumptions of liability to the recipient, for + any liability that these contractual assumptions directly impose on + those licensors and authors. + + All other non-permissive additional terms are considered "further +restrictions" within the meaning of section 10. If the Program as you +received it, or any part of it, contains a notice stating that it is +governed by this License along with a term that is a further +restriction, you may remove that term. If a license document contains +a further restriction but permits relicensing or conveying under this +License, you may add to a covered work material governed by the terms +of that license document, provided that the further restriction does +not survive such relicensing or conveying. + + If you add terms to a covered work in accord with this section, you +must place, in the relevant source files, a statement of the +additional terms that apply to those files, or a notice indicating +where to find the applicable terms. + + Additional terms, permissive or non-permissive, may be stated in the +form of a separately written license, or stated as exceptions; +the above requirements apply either way. + + 8. Termination. + + You may not propagate or modify a covered work except as expressly +provided under this License. Any attempt otherwise to propagate or +modify it is void, and will automatically terminate your rights under +this License (including any patent licenses granted under the third +paragraph of section 11). + + However, if you cease all violation of this License, then your +license from a particular copyright holder is reinstated (a) +provisionally, unless and until the copyright holder explicitly and +finally terminates your license, and (b) permanently, if the copyright +holder fails to notify you of the violation by some reasonable means +prior to 60 days after the cessation. + + Moreover, your license from a particular copyright holder is +reinstated permanently if the copyright holder notifies you of the +violation by some reasonable means, this is the first time you have +received notice of violation of this License (for any work) from that +copyright holder, and you cure the violation prior to 30 days after +your receipt of the notice. + + Termination of your rights under this section does not terminate the +licenses of parties who have received copies or rights from you under +this License. If your rights have been terminated and not permanently +reinstated, you do not qualify to receive new licenses for the same +material under section 10. + + 9. Acceptance Not Required for Having Copies. + + You are not required to accept this License in order to receive or +run a copy of the Program. Ancillary propagation of a covered work +occurring solely as a consequence of using peer-to-peer transmission +to receive a copy likewise does not require acceptance. However, +nothing other than this License grants you permission to propagate or +modify any covered work. These actions infringe copyright if you do +not accept this License. Therefore, by modifying or propagating a +covered work, you indicate your acceptance of this License to do so. + + 10. Automatic Licensing of Downstream Recipients. + + Each time you convey a covered work, the recipient automatically +receives a license from the original licensors, to run, modify and +propagate that work, subject to this License. You are not responsible +for enforcing compliance by third parties with this License. + + An "entity transaction" is a transaction transferring control of an +organization, or substantially all assets of one, or subdividing an +organization, or merging organizations. If propagation of a covered +work results from an entity transaction, each party to that +transaction who receives a copy of the work also receives whatever +licenses to the work the party's predecessor in interest had or could +give under the previous paragraph, plus a right to possession of the +Corresponding Source of the work from the predecessor in interest, if +the predecessor has it or can get it with reasonable efforts. + + You may not impose any further restrictions on the exercise of the +rights granted or affirmed under this License. For example, you may +not impose a license fee, royalty, or other charge for exercise of +rights granted under this License, and you may not initiate litigation +(including a cross-claim or counterclaim in a lawsuit) alleging that +any patent claim is infringed by making, using, selling, offering for +sale, or importing the Program or any portion of it. + + 11. Patents. + + A "contributor" is a copyright holder who authorizes use under this +License of the Program or a work on which the Program is based. The +work thus licensed is called the contributor's "contributor version". + + A contributor's "essential patent claims" are all patent claims +owned or controlled by the contributor, whether already acquired or +hereafter acquired, that would be infringed by some manner, permitted +by this License, of making, using, or selling its contributor version, +but do not include claims that would be infringed only as a +consequence of further modification of the contributor version. For +purposes of this definition, "control" includes the right to grant +patent sublicenses in a manner consistent with the requirements of +this License. + + Each contributor grants you a non-exclusive, worldwide, royalty-free +patent license under the contributor's essential patent claims, to +make, use, sell, offer for sale, import and otherwise run, modify and +propagate the contents of its contributor version. + + In the following three paragraphs, a "patent license" is any express +agreement or commitment, however denominated, not to enforce a patent +(such as an express permission to practice a patent or covenant not to +sue for patent infringement). To "grant" such a patent license to a +party means to make such an agreement or commitment not to enforce a +patent against the party. + + If you convey a covered work, knowingly relying on a patent license, +and the Corresponding Source of the work is not available for anyone +to copy, free of charge and under the terms of this License, through a +publicly available network server or other readily accessible means, +then you must either (1) cause the Corresponding Source to be so +available, or (2) arrange to deprive yourself of the benefit of the +patent license for this particular work, or (3) arrange, in a manner +consistent with the requirements of this License, to extend the patent +license to downstream recipients. "Knowingly relying" means you have +actual knowledge that, but for the patent license, your conveying the +covered work in a country, or your recipient's use of the covered work +in a country, would infringe one or more identifiable patents in that +country that you have reason to believe are valid. + + If, pursuant to or in connection with a single transaction or +arrangement, you convey, or propagate by procuring conveyance of, a +covered work, and grant a patent license to some of the parties +receiving the covered work authorizing them to use, propagate, modify +or convey a specific copy of the covered work, then the patent license +you grant is automatically extended to all recipients of the covered +work and works based on it. + + A patent license is "discriminatory" if it does not include within +the scope of its coverage, prohibits the exercise of, or is +conditioned on the non-exercise of one or more of the rights that are +specifically granted under this License. You may not convey a covered +work if you are a party to an arrangement with a third party that is +in the business of distributing software, under which you make payment +to the third party based on the extent of your activity of conveying +the work, and under which the third party grants, to any of the +parties who would receive the covered work from you, a discriminatory +patent license (a) in connection with copies of the covered work +conveyed by you (or copies made from those copies), or (b) primarily +for and in connection with specific products or compilations that +contain the covered work, unless you entered into that arrangement, +or that patent license was granted, prior to 28 March 2007. + + Nothing in this License shall be construed as excluding or limiting +any implied license or other defenses to infringement that may +otherwise be available to you under applicable patent law. + + 12. No Surrender of Others' Freedom. + + If conditions are imposed on you (whether by court order, agreement or +otherwise) that contradict the conditions of this License, they do not +excuse you from the conditions of this License. If you cannot convey a +covered work so as to satisfy simultaneously your obligations under this +License and any other pertinent obligations, then as a consequence you may +not convey it at all. For example, if you agree to terms that obligate you +to collect a royalty for further conveying from those to whom you convey +the Program, the only way you could satisfy both those terms and this +License would be to refrain entirely from conveying the Program. + + 13. Use with the GNU Affero General Public License. + + Notwithstanding any other provision of this License, you have +permission to link or combine any covered work with a work licensed +under version 3 of the GNU Affero General Public License into a single +combined work, and to convey the resulting work. The terms of this +License will continue to apply to the part which is the covered work, +but the special requirements of the GNU Affero General Public License, +section 13, concerning interaction through a network will apply to the +combination as such. + + 14. Revised Versions of this License. + + The Free Software Foundation may publish revised and/or new versions of +the GNU General Public License from time to time. Such new versions will +be similar in spirit to the present version, but may differ in detail to +address new problems or concerns. + + Each version is given a distinguishing version number. If the +Program specifies that a certain numbered version of the GNU General +Public License "or any later version" applies to it, you have the +option of following the terms and conditions either of that numbered +version or of any later version published by the Free Software +Foundation. If the Program does not specify a version number of the +GNU General Public License, you may choose any version ever published +by the Free Software Foundation. + + If the Program specifies that a proxy can decide which future +versions of the GNU General Public License can be used, that proxy's +public statement of acceptance of a version permanently authorizes you +to choose that version for the Program. + + Later license versions may give you additional or different +permissions. However, no additional obligations are imposed on any +author or copyright holder as a result of your choosing to follow a +later version. + + 15. Disclaimer of Warranty. + + THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY +APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT +HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY +OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, +THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR +PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM +IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF +ALL NECESSARY SERVICING, REPAIR OR CORRECTION. + + 16. Limitation of Liability. + + IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING +WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MODIFIES AND/OR CONVEYS +THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY +GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE +USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF +DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD +PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS), +EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF +SUCH DAMAGES. + + 17. Interpretation of Sections 15 and 16. + + If the disclaimer of warranty and limitation of liability provided +above cannot be given local legal effect according to their terms, +reviewing courts shall apply local law that most closely approximates +an absolute waiver of all civil liability in connection with the +Program, unless a warranty or assumption of liability accompanies a +copy of the Program in return for a fee. + + END OF TERMS AND CONDITIONS + + How to Apply These Terms to Your New Programs + + If you develop a new program, and you want it to be of the greatest +possible use to the public, the best way to achieve this is to make it +free software which everyone can redistribute and change under these terms. + + To do so, attach the following notices to the program. It is safest +to attach them to the start of each source file to most effectively +state the exclusion of warranty; and each file should have at least +the "copyright" line and a pointer to where the full notice is found. + + <one line to give the program's name and a brief idea of what it does.> + Copyright (C) <year> <name of author> + + This program is free software: you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation, either version 3 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program. If not, see <http://www.gnu.org/licenses/>. + +Also add information on how to contact you by electronic and paper mail. + + If the program does terminal interaction, make it output a short +notice like this when it starts in an interactive mode: + + <program> Copyright (C) <year> <name of author> + This program comes with ABSOLUTELY NO WARRANTY; for details type `show w'. + This is free software, and you are welcome to redistribute it + under certain conditions; type `show c' for details. + +The hypothetical commands `show w' and `show c' should show the appropriate +parts of the General Public License. Of course, your program's commands +might be different; for a GUI interface, you would use an "about box". + + You should also get your employer (if you work as a programmer) or school, +if any, to sign a "copyright disclaimer" for the program, if necessary. +For more information on this, and how to apply and follow the GNU GPL, see +<http://www.gnu.org/licenses/>. + + The GNU General Public License does not permit incorporating your program +into proprietary programs. If your program is a subroutine library, you +may consider it more useful to permit linking proprietary applications with +the library. If this is what you want to do, use the GNU Lesser General +Public License instead of this License. But first, please read +<http://www.gnu.org/philosophy/why-not-lgpl.html>. diff --git a/beagle/debian-rfs/usr/share/common-licenses/LGPL b/beagle/debian-rfs/usr/share/common-licenses/LGPL new file mode 120000 index 0000000..430a28d --- /dev/null +++ b/beagle/debian-rfs/usr/share/common-licenses/LGPL @@ -0,0 +1 @@ +LGPL-3
\ No newline at end of file diff --git a/beagle/debian-rfs/usr/share/common-licenses/LGPL-2 b/beagle/debian-rfs/usr/share/common-licenses/LGPL-2 new file mode 100644 index 0000000..5bc8fb2 --- /dev/null +++ b/beagle/debian-rfs/usr/share/common-licenses/LGPL-2 @@ -0,0 +1,481 @@ + GNU LIBRARY GENERAL PUBLIC LICENSE + Version 2, June 1991 + + Copyright (C) 1991 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 library GPL. It is + numbered 2 because it goes with version 2 of the ordinary GPL.] + + 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 Library General Public License, applies to some +specially designated Free Software Foundation software, and to any +other libraries whose authors decide to use it. You can use it for +your libraries, too. + + When we speak of free software, we are referring to freedom, not +price. Our General Public Licenses are designed to make sure that you +have the freedom to distribute copies of free software (and charge for +this service if you wish), that you receive source code or can get it +if you want it, that you can change the software or use pieces of it +in new free programs; and that you know you can do these things. + + To protect your rights, we need to make restrictions that forbid +anyone to deny you these rights or to ask you to surrender the 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 a program 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. + + Our method of protecting your rights has two steps: (1) copyright +the library, and (2) offer you this license which gives you legal +permission to copy, distribute and/or modify the library. + + Also, for each distributor's protection, we want to make certain +that everyone understands that there is no warranty for this free +library. If the library is modified by someone else and passed on, we +want its recipients to know that what they have is not the original +version, so that any problems introduced by others will not reflect on +the original authors' reputations. + + Finally, any free program is threatened constantly by software +patents. We wish to avoid the danger that companies distributing free +software will individually obtain patent licenses, thus in effect +transforming the program into proprietary software. To prevent this, +we have made it clear that any patent must be licensed for everyone's +free use or not licensed at all. + + Most GNU software, including some libraries, is covered by the ordinary +GNU General Public License, which was designed for utility programs. This +license, the GNU Library General Public License, applies to certain +designated libraries. This license is quite different from the ordinary +one; be sure to read it in full, and don't assume that anything in it is +the same as in the ordinary license. + + The reason we have a separate public license for some libraries is that +they blur the distinction we usually make between modifying or adding to a +program and simply using it. Linking a program with a library, without +changing the library, is in some sense simply using the library, and is +analogous to running a utility program or application program. However, in +a textual and legal sense, the linked executable is a combined work, a +derivative of the original library, and the ordinary General Public License +treats it as such. + + Because of this blurred distinction, using the ordinary General +Public License for libraries did not effectively promote software +sharing, because most developers did not use the libraries. We +concluded that weaker conditions might promote sharing better. + + However, unrestricted linking of non-free programs would deprive the +users of those programs of all benefit from the free status of the +libraries themselves. This Library General Public License is intended to +permit developers of non-free programs to use free libraries, while +preserving your freedom as a user of such programs to change the free +libraries that are incorporated in them. (We have not seen how to achieve +this as regards changes in header files, but we have achieved it as regards +changes in the actual functions of the Library.) The hope is that this +will lead to faster development of free libraries. + + 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, while the latter only +works together with the library. + + Note that it is possible for a library to be covered by the ordinary +General Public License rather than by this special one. + + GNU LIBRARY GENERAL PUBLIC LICENSE + TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION + + 0. This License Agreement applies to any software library which +contains a notice placed by the copyright holder or other authorized +party saying it may be distributed under the terms of this Library +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 compile 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) 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. + + c) 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. + + d) 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 source code 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 to +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 Library 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 Library General Public + License as published by the Free Software Foundation; either + version 2 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 + Library General Public License for more details. + + You should have received a copy of the GNU Library 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! diff --git a/beagle/debian-rfs/usr/share/common-licenses/LGPL-2.1 b/beagle/debian-rfs/usr/share/common-licenses/LGPL-2.1 new file mode 100644 index 0000000..4362b49 --- /dev/null +++ b/beagle/debian-rfs/usr/share/common-licenses/LGPL-2.1 @@ -0,0 +1,502 @@ + 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! diff --git a/beagle/debian-rfs/usr/share/common-licenses/LGPL-3 b/beagle/debian-rfs/usr/share/common-licenses/LGPL-3 new file mode 100644 index 0000000..65c5ca8 --- /dev/null +++ b/beagle/debian-rfs/usr/share/common-licenses/LGPL-3 @@ -0,0 +1,165 @@ + GNU LESSER GENERAL PUBLIC LICENSE + Version 3, 29 June 2007 + + Copyright (C) 2007 Free Software Foundation, Inc. <http://fsf.org/> + Everyone is permitted to copy and distribute verbatim copies + of this license document, but changing it is not allowed. + + + This version of the GNU Lesser General Public License incorporates +the terms and conditions of version 3 of the GNU General Public +License, supplemented by the additional permissions listed below. + + 0. Additional Definitions. + + As used herein, "this License" refers to version 3 of the GNU Lesser +General Public License, and the "GNU GPL" refers to version 3 of the GNU +General Public License. + + "The Library" refers to a covered work governed by this License, +other than an Application or a Combined Work as defined below. + + An "Application" is any work that makes use of an interface provided +by the Library, but which is not otherwise based on the Library. +Defining a subclass of a class defined by the Library is deemed a mode +of using an interface provided by the Library. + + A "Combined Work" is a work produced by combining or linking an +Application with the Library. The particular version of the Library +with which the Combined Work was made is also called the "Linked +Version". + + The "Minimal Corresponding Source" for a Combined Work means the +Corresponding Source for the Combined Work, excluding any source code +for portions of the Combined Work that, considered in isolation, are +based on the Application, and not on the Linked Version. + + The "Corresponding Application Code" for a Combined Work means the +object code and/or source code for the Application, including any data +and utility programs needed for reproducing the Combined Work from the +Application, but excluding the System Libraries of the Combined Work. + + 1. Exception to Section 3 of the GNU GPL. + + You may convey a covered work under sections 3 and 4 of this License +without being bound by section 3 of the GNU GPL. + + 2. Conveying Modified Versions. + + If you modify a copy of the Library, and, in your modifications, a +facility refers to a function or data to be supplied by an Application +that uses the facility (other than as an argument passed when the +facility is invoked), then you may convey a copy of the modified +version: + + a) under this License, provided that you make a good faith effort to + ensure that, in the event an Application does not supply the + function or data, the facility still operates, and performs + whatever part of its purpose remains meaningful, or + + b) under the GNU GPL, with none of the additional permissions of + this License applicable to that copy. + + 3. Object Code Incorporating Material from Library Header Files. + + The object code form of an Application may incorporate material from +a header file that is part of the Library. You may convey such object +code under terms of your choice, provided that, if the incorporated +material is not limited to numerical parameters, data structure +layouts and accessors, or small macros, inline functions and templates +(ten or fewer lines in length), you do both of the following: + + a) Give prominent notice with each copy of the object code that the + Library is used in it and that the Library and its use are + covered by this License. + + b) Accompany the object code with a copy of the GNU GPL and this license + document. + + 4. Combined Works. + + You may convey a Combined Work under terms of your choice that, +taken together, effectively do not restrict modification of the +portions of the Library contained in the Combined Work and reverse +engineering for debugging such modifications, if you also do each of +the following: + + a) Give prominent notice with each copy of the Combined Work that + the Library is used in it and that the Library and its use are + covered by this License. + + b) Accompany the Combined Work with a copy of the GNU GPL and this license + document. + + c) For a Combined Work that displays copyright notices during + execution, include the copyright notice for the Library among + these notices, as well as a reference directing the user to the + copies of the GNU GPL and this license document. + + d) Do one of the following: + + 0) Convey the Minimal Corresponding Source under the terms of this + License, and the Corresponding Application Code in a form + suitable for, and under terms that permit, the user to + recombine or relink the Application with a modified version of + the Linked Version to produce a modified Combined Work, in the + manner specified by section 6 of the GNU GPL for conveying + Corresponding Source. + + 1) Use a suitable shared library mechanism for linking with the + Library. A suitable mechanism is one that (a) uses at run time + a copy of the Library already present on the user's computer + system, and (b) will operate properly with a modified version + of the Library that is interface-compatible with the Linked + Version. + + e) Provide Installation Information, but only if you would otherwise + be required to provide such information under section 6 of the + GNU GPL, and only to the extent that such information is + necessary to install and execute a modified version of the + Combined Work produced by recombining or relinking the + Application with a modified version of the Linked Version. (If + you use option 4d0, the Installation Information must accompany + the Minimal Corresponding Source and Corresponding Application + Code. If you use option 4d1, you must provide the Installation + Information in the manner specified by section 6 of the GNU GPL + for conveying Corresponding Source.) + + 5. Combined Libraries. + + 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 that are not Applications and are not covered by this +License, and convey such a combined library under terms of your +choice, if you do both of the following: + + a) Accompany the combined library with a copy of the same work based + on the Library, uncombined with any other library facilities, + conveyed under the terms of this License. + + b) Give prominent notice with the combined library that part of it + is a work based on the Library, and explaining where to find the + accompanying uncombined form of the same work. + + 6. Revised Versions of the GNU Lesser General Public License. + + The Free Software Foundation may publish revised and/or new versions +of the GNU 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 as you received it specifies that a certain numbered version +of the GNU Lesser General Public License "or any later version" +applies to it, you have the option of following the terms and +conditions either of that published version or of any later version +published by the Free Software Foundation. If the Library as you +received it does not specify a version number of the GNU Lesser +General Public License, you may choose any version of the GNU Lesser +General Public License ever published by the Free Software Foundation. + + If the Library as you received it specifies that a proxy can decide +whether future versions of the GNU Lesser General Public License shall +apply, that proxy's public statement of acceptance of any version is +permanent authorization for you to choose that version for the +Library. diff --git a/beagle/debian-rfs/usr/share/debconf/confmodule b/beagle/debian-rfs/usr/share/debconf/confmodule new file mode 100644 index 0000000..a82cbdb --- /dev/null +++ b/beagle/debian-rfs/usr/share/debconf/confmodule @@ -0,0 +1,91 @@ +#!/bin/sh +# This is a shell library to interface to the Debian configuration management +# system. + +############################################################################### +# Initialization. + +# Check to see if a FrontEnd is running. +if [ ! "$DEBIAN_HAS_FRONTEND" ]; then + PERL_DL_NONLAZY=1 + export PERL_DL_NONLAZY + # Since there is no FrontEnd, this program execs a FrontEnd. + # It will then run a new copy of $0 that can talk to it. + if [ "$DEBCONF_USE_CDEBCONF" ]; then + exec /usr/lib/cdebconf/debconf $0 "$@" + else + exec /usr/share/debconf/frontend $0 "$@" + fi +fi + +# Only do this once. +if [ -z "$DEBCONF_REDIR" ]; then + # Redirect standard output to standard error. This prevents common + # mistakes by making all the output of the postinst or whatever + # script is using this library not be parsed as confmodule commands. + # + # To actually send something to standard output, send it to fd 3. + exec 3>&1 + if [ "$DEBCONF_USE_CDEBCONF" ]; then + exec 1>&5 + else + exec 1>&2 + fi + DEBCONF_REDIR=1 + export DEBCONF_REDIR +fi + +############################################################################### +# Commands. + +_db_cmd () { + IFS=' ' printf '%s\n' "$*" >&3 + # Set to newline to get whole line. + IFS=' +' read -r _db_internal_line + # Disgusting, but it's the only good way to split the line, + # preserving all other whitespace. + RET="${_db_internal_line#[! ][ ]}" + case ${_db_internal_line%%[ ]*} in + 1) # escaped data + RET="$(printf '%s' "$RET" | debconf-escape -u)" + return 0 + ;; + esac + return ${_db_internal_line%%[ ]*} +} + +db_capb () { _db_cmd "CAPB $@"; } +db_set () { _db_cmd "SET $@"; } +db_reset () { _db_cmd "RESET $@"; } +db_title () { _db_cmd "TITLE $@"; } +db_input () { _db_cmd "INPUT $@"; } +db_beginblock () { _db_cmd "BEGINBLOCK $@"; } +db_endblock () { _db_cmd "ENDBLOCK $@"; } +db_go () { _db_cmd "GO $@"; } +db_get () { _db_cmd "GET $@"; } +db_register () { _db_cmd "REGISTER $@"; } +db_unregister () { _db_cmd "UNREGISTER $@"; } +db_subst () { _db_cmd "SUBST $@"; } +db_fset () { _db_cmd "FSET $@"; } +db_fget () { _db_cmd "FGET $@"; } +db_purge () { _db_cmd "PURGE $@"; } +db_metaget () { _db_cmd "METAGET $@"; } +db_version () { _db_cmd "VERSION $@"; } +db_clear () { _db_cmd "CLEAR $@"; } +db_settitle () { _db_cmd "SETTITLE $@"; } +db_previous_module () { _db_cmd "PREVIOUS_MODULE $@"; } +db_info () { _db_cmd "INFO $@"; } +db_progress () { _db_cmd "PROGRESS $@"; } +db_data () { _db_cmd "DATA $@"; } +db_x_loadtemplatefile () { _db_cmd "X_LOADTEMPLATEFILE $@"; } + +# An old alias for input. +db_text () { + db_input $@ +} + +# Cannot read a return code, since there is none and it would block. +db_stop () { + echo STOP >&3 +} diff --git a/beagle/debian-rfs/usr/share/debconf/confmodule.sh b/beagle/debian-rfs/usr/share/debconf/confmodule.sh new file mode 100644 index 0000000..415b361 --- /dev/null +++ b/beagle/debian-rfs/usr/share/debconf/confmodule.sh @@ -0,0 +1,100 @@ +#!/bin/sh +# This is a shell library to interface to the Debian configration management +# system. +# +# This library is obsolete. Do not use. + +############################################################################### +# Initialization. + +# Check to see if a FrontEnd is running. +if [ ! "$DEBIAN_HAS_FRONTEND" ]; then + PERL_DL_NONLAZY=1 + export PERL_DL_NONLAZY + # Ok, this is pretty crazy. Since there is no FrontEnd, this + # program execs a FrontEnd. It will then run a new copy of $0 that + # can talk to it. + exec /usr/share/debconf/frontend $0 $* +fi + +# Only do this once. +if [ -z "$DEBCONF_REDIR" ]; then + # Redirect standard output to standard error. This prevents common + # mistakes by making all the output of the postinst or whatever + # script is using this library not be parsed as confmodule commands. + # + # To actually send something to standard output, send it to fd 3. + exec 3>&1 1>&2 + DEBCONF_REDIR=1 + export DEBCONF_REDIR +fi + +# For internal use, send text to the frontend. +_command () { + echo $* >&3 +} + +echo "WARNING: Using deprecated debconf compatibility library." + +############################################################################### +# Commands. + +# Generate subroutines for all commands that don't have special handlers. +# Each command must be listed twice, once in lower case, once in upper. +# Doing that saves us a lot of calls to tr at load time. I just wish shell had +# an upper-case function. +old_opts="$@" +for i in "capb CAPB" "set SET" "reset RESET" "title TITLE" \ + "input INPUT" "beginblock BEGINBLOCK" "endblock ENDBLOCK" "go GO" \ + "get GET" "register REGISTER" "unregister UNREGISTER" "subst SUBST" \ + "fset FSET" "fget FGET" "visible VISIBLE" "purge PURGE" \ + "metaget METAGET" "exist EXIST" \ + "x_loadtemplatefile X_LOADTEMPLATEFILE"; do + # Break string up into words. + set -- $i + eval "db_$1 () { + _command \"$2 \$@\" + read _RET + old_opts="\$@" + set -- \$_RET + shift + RET="\$*" + set -- \$old_opts + unset old_opts + }" +done +# $@ was clobbered above, unclobber. +set -- $old_opts +unset old_opts + +# By default, 1.0 protocol version is sent to the frontend. You can +# pass in a different version to override this. +db_version () { + if [ "$1" ]; then + _command "VERSION $1" + else + _command "VERSION 1.0" + fi + # Not quite correct, but not worth fixing in obsolete code. + read -r RET +} + +# Here for backwards compatibility. +db_go () { + _command "GO" + read -r RET + if [ "$RET" = 30 ]; then + RET='back' + fi +} + +# Just an alias for input. It tends to make more sense to use this to display +# text, since displaying text isn't really asking for input. +db_text () { + db_input $@ +} + +# Cannot read a return code, since there is none and we would block. +db_stop () { + echo STOP >&3 +} diff --git a/beagle/debian-rfs/usr/share/debconf/debconf.conf b/beagle/debian-rfs/usr/share/debconf/debconf.conf new file mode 100644 index 0000000..16a9c57 --- /dev/null +++ b/beagle/debian-rfs/usr/share/debconf/debconf.conf @@ -0,0 +1,27 @@ + +Config: configdb +Templates: templatedb + +Name: config +Driver: File +Mode: 644 +Reject-Type: password +Filename: /var/cache/debconf/config.dat + +Name: passwords +Driver: File +Mode: 600 +Backup: false +Required: false +Accept-Type: password +Filename: /var/cache/debconf/passwords.dat + +Name: configdb +Driver: Stack +Stack: config, passwords + +Name: templatedb +Driver: File +Mode: 644 +Filename: /var/cache/debconf/templates.dat + diff --git a/beagle/debian-rfs/usr/share/debconf/fix_db.pl b/beagle/debian-rfs/usr/share/debconf/fix_db.pl new file mode 100755 index 0000000..abe80a3 --- /dev/null +++ b/beagle/debian-rfs/usr/share/debconf/fix_db.pl @@ -0,0 +1,79 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! +use strict; +use Debconf::Db; +use Debconf::Log q{warn}; + +Debconf::Db->load; + +if (! @ARGV || $ARGV[0] ne 'end') { + my $fix=0; + my $ok; + my $counter=0; + do { + $ok=1; + + my %templates=(); + my $ti=$Debconf::Db::templates->iterator; + while (my $t=$ti->iterate) { + $templates{$t}=Debconf::Template->get($t); + } + + my %questions=(); + my $qi=Debconf::Question->iterator; + while (my $q=$qi->iterate) { + if (! defined $q->template) { + warn "question \"".$q->name."\" has no template field; removing it."; + $q->addowner("killme",""); # make sure it has one owner at least, so removal is triggered + foreach my $owner (split(/, /, $q->owners)) { + $q->removeowner($owner); + } + $ok=0; + $fix=1; + } + elsif (! exists $templates{$q->template->template}) { + warn "question \"".$q->name."\" uses nonexistant template ".$q->template->template."; removing it."; + foreach my $owner (split(/, /, $q->owners)) { + $q->removeowner($owner); + } + $ok=0; + $fix=1; + } + else { + $questions{$q->name}=$q; + } + } + + foreach my $t (keys %templates) { + my @owners=$Debconf::Db::templates->owners($t); + if (! @owners) { + warn "template \"$t\" has no owners; removing it."; + $Debconf::Db::templates->addowner($t, "killme",""); + $Debconf::Db::templates->removeowner($t, "killme"); + $fix=1; + } + foreach my $q (@owners) { + if (! exists $questions{$q}) { + warn "template \"$t\" claims to be used by nonexistant question \"$q\"; removing that."; + $Debconf::Db::templates->removeowner($t, $q); + $ok=0; + $fix=1; + } + } + } + $counter++; + } until ($ok || $counter > 20); + + if ($fix) { + Debconf::Db->save; + exec($0, "end"); + die "exec of self failed"; + } +} + +foreach my $templatefile (glob("/var/lib/dpkg/info/*.templates")) { + my ($package) = $templatefile =~ m:/var/lib/dpkg/info/(.*?).templates:; + Debconf::Template->load($templatefile, $package); +} + +Debconf::Db->save; diff --git a/beagle/debian-rfs/usr/share/debconf/frontend b/beagle/debian-rfs/usr/share/debconf/frontend new file mode 100755 index 0000000..4fb0299 --- /dev/null +++ b/beagle/debian-rfs/usr/share/debconf/frontend @@ -0,0 +1,104 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +use strict; +use Debconf::Db; +use Debconf::Template; +use Debconf::AutoSelect qw(:all); +use Debconf::Log qw(:all); + +Debconf::Db->load; + +debug developer => "frontend started"; + +my $frontend=make_frontend(); + +shift @ARGV if $ARGV[0] eq '--'; + +my $package; +if ($ENV{DEBCONF_PACKAGE}) { + $package=$ENV{DEBCONF_PACKAGE}; +} +elsif ($ARGV[0]=~m!^.*/(.*?)\.(?:postinst|postrm|prerm)$!) { + $package=$1; +} +elsif (-e "/var/lib/dpkg/tmp.ci/control") { + open (CONTROL, "< /var/lib/dpkg/tmp.ci/control") + || die "Debconf: unable to open control file: $!"; + while (<CONTROL>) { + if (/^Package: (.*)/) { + $package=$1; + last; + } + } + close CONTROL; + if (! exists $ENV{PERL_DL_NONLAZY} || ! $ENV{PERL_DL_NONLAZY}) { + warn "PERL_DL_NONLAZY is not set, if debconf is running from a preinst script, this is not safe"; + } +} +else { + $package=''; + + debug developer => 'Trying to find a templates file..'; + sub trytemplate { + my $fn=shift; + debug developer => "Trying $fn"; + if (-e $fn) { + debug developer => "I guess it is $fn"; + Debconf::Template->load($fn, $package); + return 1; + } + else { + return; + } + } + + unless (trytemplate("$ARGV[0].templates")) { + unless ($ARGV[0]=~m/(.*)config$/ && trytemplate("${1}templates")) { + unless ($ARGV[0]=~m!^(?:.*/)?(.*)! && trytemplate("/usr/share/debconf/templates/${1}.templates")) { + debug developer => "Couldn't find a templates file." + } + } + } +} +debug developer => "frontend running, package name is $package"; +$frontend->default_title($package) if length $package; +$frontend->info(undef); + +if ($ARGV[0] =~/^(.*[.\/])(?:postinst|preinst)$/) { + my $base=$1; + + my $templates=$base."templates"; + Debconf::Template->load($templates, $package) + if -e $templates; + + my $config=$base."config"; + if (-e $config) { + my $version=$ARGV[2]; + if (! defined($version)) { + $version=''; + } + my $confmodule=make_confmodule($config, + "configure", $version); + + $confmodule->owner($package); + + 1 while ($confmodule->communicate); + + exit $confmodule->exitcode if $confmodule->exitcode > 0; + } +} + +my $confmodule=make_confmodule(@ARGV); + +$confmodule->owner($package); + +1 while ($confmodule->communicate); + +$frontend->shutdown; + +Debconf::Db->save; + +exit $confmodule->exitcode; + diff --git a/beagle/debian-rfs/usr/share/debconf/transition_db.pl b/beagle/debian-rfs/usr/share/debconf/transition_db.pl new file mode 100755 index 0000000..bb4daa5 --- /dev/null +++ b/beagle/debian-rfs/usr/share/debconf/transition_db.pl @@ -0,0 +1,90 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! +use strict; +use Debconf::Db; +use Debconf::Question; +use Debconf::Template; + +my $dir = shift || '/var/lib/debconf'; + +Debconf::Db->load; + +our %questions; +our %templates; + +foreach my $thing (qw(templates debconf)) { + if (-e "$dir/$thing.db") { + eval qq{require "$dir/$thing.db"}; + print STDERR $@ if $@; + } + else { + print STDERR "Skipping $dir/$thing.db: DNE\n"; + } +} + +foreach my $t (keys %templates) { + $templates{$t}->{_name}=$t; +} + +my $skipped=0; + +foreach my $item (keys %questions) { + my @owners=grep { $_ ne '' } keys %{$questions{$item}->{owners}}; + delete $questions{$item}, next unless @owners; + + next unless defined $questions{$item}->{template}->{_name}; + + my $tname=$questions{$item}->{template}->{_name}; + $skipped++, next unless defined $tname; + my $type=$templates{$tname}->{type}; + my $question=Debconf::Question->new($item, pop(@owners), $type); + $question->addowner($_, '') foreach @owners; +} + +my %seen_templates; +foreach my $item (keys %questions) { + my $question=Debconf::Question->get($item); + my $tname=$questions{$item}->{template}->{_name}; + $skipped++, next unless defined $tname; + my $template=Debconf::Template->get($tname); + unless (defined $template) { + $template=Debconf::Template->new($tname, $item, $templates{$tname}->{type}); + } + unless ($seen_templates{$template}) { + $template->clearall; + foreach my $field (keys %{$templates{$tname}}) { + next if $field=~/^_name/; # except this one we added above. + $template->$field($templates{$tname}->{$field}); + } + } + + + if (exists $questions{$item}->{flag_isdefault}) { + if ($questions{$item}->{flag_isdefault} eq 'false') { + $question->flag('seen', 'true'); + } + delete $questions{$item}->{flag_isdefault}; + } + foreach my $flag (grep /^flag_/, keys %{$questions{$item}}) { + if ($questions{$item}->{$flag} eq 'true') { + $flag=~s/^flag_//; + $question->flag($flag, 'true'); + } + } + foreach my $var (keys %{$questions{$item}->{variables}}) { + $question->variable($var, + $questions{$item}->{variables}->{$var}); + } + if (exists $questions{$item}->{value} + and defined $questions{$item}->{value}) { + $question->value($questions{$item}->{value}); + } + + $question->template($questions{$item}->{template}->{_name}); +} + +Debconf::Db->save; + +if ($skipped) { + print STDERR "While upgrading the debconf database, $skipped corrupt items were skipped.\n"; +} diff --git a/beagle/debian-rfs/usr/share/debianutils/shells b/beagle/debian-rfs/usr/share/debianutils/shells new file mode 100644 index 0000000..db6380a --- /dev/null +++ b/beagle/debian-rfs/usr/share/debianutils/shells @@ -0,0 +1,10 @@ +# /etc/shells: valid login shells +/bin/csh +/bin/sh +/usr/bin/es +/usr/bin/ksh +/bin/ksh +/usr/bin/rc +/usr/bin/tcsh +/bin/tcsh +/usr/bin/esh diff --git a/beagle/debian-rfs/usr/share/doc-base/findutils b/beagle/debian-rfs/usr/share/doc-base/findutils new file mode 100644 index 0000000..f04b080 --- /dev/null +++ b/beagle/debian-rfs/usr/share/doc-base/findutils @@ -0,0 +1,10 @@ +Document: findutils +Title: findutils +Abstract: utilities for finding files--find, xargs, and locate + These utilities find files meeting specified criteria and perform + various actions on the files which are found. +Section: File Management + +Format: info +Index: /usr/share/info/find.info.gz +Files: /usr/share/info/find.info* diff --git a/beagle/debian-rfs/usr/share/doc-base/users-and-groups b/beagle/debian-rfs/usr/share/doc-base/users-and-groups new file mode 100644 index 0000000..b1bad50 --- /dev/null +++ b/beagle/debian-rfs/usr/share/doc-base/users-and-groups @@ -0,0 +1,13 @@ +Document: users-and-groups +Title: Users and Groups in the Debian System +Author: Joey Hess, Colin Watson, David Mandelberg +Abstract: Descriptions of important system users and groups in Debian. +Section: System/Administration + +Format: text +Files: /usr/share/doc/base-passwd/users-and-groups.txt.gz + +Format: HTML +Index: /usr/share/doc/base-passwd/users-and-groups.html +Files: /usr/share/doc/base-passwd/users-and-groups.html + diff --git a/beagle/debian-rfs/usr/share/dpkg/archtable b/beagle/debian-rfs/usr/share/dpkg/archtable new file mode 100644 index 0000000..a50328b --- /dev/null +++ b/beagle/debian-rfs/usr/share/dpkg/archtable @@ -0,0 +1,29 @@ +# This file contains the list of architecture names in Debian's ‘sid’ +# distribution. +# +# Architecture names are formed as a combination of the system name +# (from ostable) and CPU name (from cputable) after mapping from +# the Debian triplet (from triplettable). Support for new +# architectures in dpkg is added in those files, architecture names +# are only added to this file when added to the distribution. +# +# Column 1 is present for historical reasons only, and should be ignored. +# Column 2 contains the Debian name for the architecture, which is returned +# by ‘dpkg --print-architecture’. +# +# <ignore> <Debian name> +i486-linux-gnu i386 +ia64-linux-gnu ia64 +alpha-linux-gnu alpha +x86_64-linux-gnu amd64 +arm-linux-gnu arm +arm-linux-gnueabi armel +hppa-linux-gnu hppa +mips-linux-gnu mips +mipsel-linux-gnu mipsel +powerpc-linux-gnu powerpc +s390-linux-gnu s390 +sparc-linux-gnu sparc +i486-gnu hurd-i386 +i486-kfreebsd-gnu kfreebsd-i386 +x86_64-kfreebsd-gnu kfreebsd-amd64 diff --git a/beagle/debian-rfs/usr/share/dpkg/cputable b/beagle/debian-rfs/usr/share/dpkg/cputable new file mode 100644 index 0000000..8b6280b --- /dev/null +++ b/beagle/debian-rfs/usr/share/dpkg/cputable @@ -0,0 +1,40 @@ +# This file contains the table of known CPU names. +# +# Architecture names are formed as a combination of the system name +# (from ostable) and CPU name (from this table) after mapping from +# the Debian triplet (from triplettable). A list of architecture +# names in the Debian ‘sid’ distribution can be found in the archtable +# file. +# +# Column 1 is the Debian name for the CPU, used to form the cpu part in +# the Debian triplet. +# Column 2 is the GNU name for the CPU, used to output build and host +# targets in ‘dpkg-architecture’. +# Column 3 is an extended regular expression used to match against the +# CPU part of the output of the GNU config.guess script. +# Column 4 is the size (in bits) of the integers/pointers +# Column 5 is the endianness (byte ordering in numbers) +# +# <Debian name> <GNU name> <config.guess regex> <Bits> <Endianness> +i386 i486 (i[3456]86|pentium) 32 little +ia64 ia64 ia64 64 little +alpha alpha alpha.* 64 little +amd64 x86_64 x86_64 64 little +armeb armeb arm.*b 32 big +arm arm arm.* 32 little +avr32 avr32 avr32 32 big +hppa hppa hppa.* 32 big +m32r m32r m32r 32 big +m68k m68k m68k 32 big +mips mips mips(eb)? 32 big +mipsel mipsel mipsel 32 little +powerpc powerpc (powerpc|ppc) 32 big +ppc64 powerpc64 (powerpc|ppc)64 64 big +s390 s390 s390 32 big +s390x s390x s390x 64 big +sh3 sh3 sh3 32 little +sh3eb sh3eb sh3eb 32 big +sh4 sh4 sh4 32 little +sh4eb sh4eb sh4eb 32 big +sparc sparc sparc 32 big +sparc64 sparc64 sparc64 64 big diff --git a/beagle/debian-rfs/usr/share/dpkg/ostable b/beagle/debian-rfs/usr/share/dpkg/ostable new file mode 100644 index 0000000..17b7581 --- /dev/null +++ b/beagle/debian-rfs/usr/share/dpkg/ostable @@ -0,0 +1,33 @@ +# This file contains the table of known operating system names. +# +# Architecture names are formed as a combination of the system name +# (from this table) and CPU name (from cputable) after mapping from +# the Debian triplet (from triplettable). A list of architecture +# names in the Debian ‘sid’ distribution can be found in the archtable +# file. +# +# Column 1 is the Debian name for the system, used to form the system part +# in the Debian triplet. +# Column 2 is the GNU name for the system, used to output build and host +# targets in ‘dpkg-architecture’. +# Column 3 is an extended regular expression used to match against the +# system part of the output of the GNU config.guess script. +# +# <Debian name> <GNU name> <config.guess regex> +uclibceabi-linux linux-uclibceabi linux[^-]*-uclibceabi +uclibc-linux linux-uclibc linux[^-]*-uclibc +gnueabi-linux linux-gnueabi linux[^-]*-gnueabi +gnuspe-linux linux-gnuspe linux[^-]*-gnuspe +gnulp-linux linux-gnulp linux[^-]*-gnulp +gnu-linux linux-gnu linux[^-]*(-gnu.*)? +gnu-kfreebsd kfreebsd-gnu kfreebsd[^-]*(-gnu.*)? +gnu-knetbsd knetbsd-gnu knetbsd[^-]*(-gnu.*)? +gnu-kopensolaris kopensolaris-gnu kopensolaris[^-]*(-gnu.*)? +gnu-hurd gnu gnu[^-]* +bsd-darwin darwin darwin[^-]* +bsd-freebsd freebsd freebsd[^-]* +bsd-netbsd netbsd netbsd[^-]* +bsd-openbsd openbsd openbsd[^-]* +sysv-solaris solaris solaris[^-]* +uclibceabi-uclinux uclinux-uclibceabi uclinux[^-]*-uclibceabi +uclibc-uclinux uclinux-uclibc uclinux[^-]*(-uclibc.*)? diff --git a/beagle/debian-rfs/usr/share/dpkg/triplettable b/beagle/debian-rfs/usr/share/dpkg/triplettable new file mode 100644 index 0000000..3e076e2 --- /dev/null +++ b/beagle/debian-rfs/usr/share/dpkg/triplettable @@ -0,0 +1,22 @@ +# Bidirectional mapping between a Debian triplet and a Debian arch. +# +# Supported variables: <cpu> +# +# <Debian triplet> <Debian arch> +uclibceabi-linux-arm uclibc-linux-armel +uclibc-linux-<cpu> uclibc-linux-<cpu> +gnueabi-linux-arm armel +gnuspe-linux-powerpc powerpcspe +gnulp-linux-i386 lpia +gnu-linux-<cpu> <cpu> +gnu-kfreebsd-<cpu> kfreebsd-<cpu> +gnu-knetbsd-<cpu> knetbsd-<cpu> +gnu-kopensolaris-<cpu> kopensolaris-<cpu> +gnu-hurd-<cpu> hurd-<cpu> +bsd-freebsd-<cpu> freebsd-<cpu> +bsd-openbsd-<cpu> openbsd-<cpu> +bsd-netbsd-<cpu> netbsd-<cpu> +bsd-darwin-<cpu> darwin-<cpu> +sysv-solaris-<cpu> solaris-<cpu> +uclibceabi-uclinux-arm uclinux-armel +uclibc-uclinux-<cpu> uclinux-<cpu> diff --git a/beagle/debian-rfs/usr/share/e2fsprogs/initrd.ext3-add-journal b/beagle/debian-rfs/usr/share/e2fsprogs/initrd.ext3-add-journal new file mode 100755 index 0000000..4def7b1 --- /dev/null +++ b/beagle/debian-rfs/usr/share/e2fsprogs/initrd.ext3-add-journal @@ -0,0 +1,27 @@ +#!/bin/sh +# +# /usr/share/e2fsprogs/initrd.ext3-add-journal +# +cd / +mount -nt proc proc proc +rootdev=$(cat proc/sys/kernel/real-root-dev) +cmdline=$(cat /proc/cmdline) +umount -n proc +if [ $rootdev != 256 -a $rootdev != 255 ]; then + mount -nt tmpfs tmpfs /dev2 + get_device + roottype=`/bin/e2initrd_helper -r /dev2/root2` + if test -n "$roottype" ; then + mount -nt tmpfs tmpfs /etc + echo >> /etc/fstab + echo >> /etc/mtab + if test "$roottype" = "ext3" ; then + /sbin/tune2fs -O has_journal /dev2/root2 > /dev/null 2>&1 + else + /sbin/tune2fs -O ^has_journal /dev2/root2 > /dev/null 2>&1 + fi + umount -n /etc + fi + umount -n /dev2 + umount -n /proc > /dev/null 2>&1 +fi diff --git a/beagle/debian-rfs/usr/share/info/coreutils.info.gz b/beagle/debian-rfs/usr/share/info/coreutils.info.gz Binary files differnew file mode 100644 index 0000000..2793cc6 --- /dev/null +++ b/beagle/debian-rfs/usr/share/info/coreutils.info.gz diff --git a/beagle/debian-rfs/usr/share/info/find.info.gz b/beagle/debian-rfs/usr/share/info/find.info.gz Binary files differnew file mode 100644 index 0000000..9595658 --- /dev/null +++ b/beagle/debian-rfs/usr/share/info/find.info.gz diff --git a/beagle/debian-rfs/usr/share/info/grep.info.gz b/beagle/debian-rfs/usr/share/info/grep.info.gz Binary files differnew file mode 100644 index 0000000..e9e8ce1 --- /dev/null +++ b/beagle/debian-rfs/usr/share/info/grep.info.gz diff --git a/beagle/debian-rfs/usr/share/info/gzip.info.gz b/beagle/debian-rfs/usr/share/info/gzip.info.gz Binary files differnew file mode 100644 index 0000000..70972df --- /dev/null +++ b/beagle/debian-rfs/usr/share/info/gzip.info.gz diff --git a/beagle/debian-rfs/usr/share/info/ipc.info.gz b/beagle/debian-rfs/usr/share/info/ipc.info.gz Binary files differnew file mode 100644 index 0000000..9ae0ac3 --- /dev/null +++ b/beagle/debian-rfs/usr/share/info/ipc.info.gz diff --git a/beagle/debian-rfs/usr/share/info/sed.info.gz b/beagle/debian-rfs/usr/share/info/sed.info.gz Binary files differnew file mode 100644 index 0000000..cadffad --- /dev/null +++ b/beagle/debian-rfs/usr/share/info/sed.info.gz diff --git a/beagle/debian-rfs/usr/share/initrd-tools/scripts/e2fsprogs b/beagle/debian-rfs/usr/share/initrd-tools/scripts/e2fsprogs new file mode 100755 index 0000000..ed49db4 --- /dev/null +++ b/beagle/debian-rfs/usr/share/initrd-tools/scripts/e2fsprogs @@ -0,0 +1,31 @@ +#!/bin/sh +# +# /usr/share/initrd-tools/scripts/e2fsprogs +# +cp /usr/share/e2fsprogs/initrd.ext3-add-journal \ + $INITRDDIR/scripts/ext3-add-journal.sh +cp /sbin/tune2fs $INITRDDIR/sbin +cp /usr/lib/e2initrd_helper $INITRDDIR/bin/e2initrd_helper + +case "$VERSION" in + 2.4.*) + case "uname -r" in + 2.4.*) : ;; + *) LD_ASSUME_KERNEL=2.4.1 + export LD_ASSUME_KERNEL + ;; + esac + ;; +esac + +PROGS="/sbin/tune2fs /usr/lib/e2initrd_helper" +LIBS=`unset LD_LIBRARY_PATH LD_PRELOAD; ldd $PROGS | \ + grep -vE 'linux-gate.so|linux-vdso.so' | sort -u | awk '{print $3}'` +for i in $LIBS +do + if test -f /etc/ld.so.preload && grep -s ^$i\$ /etc/ld.so.preload; then + continue + fi + mkdir -p `dirname $INITRDDIR/$i` + cp $i $INITRDDIR/$i +done diff --git a/beagle/debian-rfs/usr/share/initscripts/default.rcS b/beagle/debian-rfs/usr/share/initscripts/default.rcS new file mode 100644 index 0000000..2fee9cd --- /dev/null +++ b/beagle/debian-rfs/usr/share/initscripts/default.rcS @@ -0,0 +1,17 @@ +# +# /etc/default/rcS +# +# Default settings for the scripts in /etc/rcS.d/ +# +# For information about these variables see the rcS(5) manual page. +# +# This file belongs to the "initscripts" package. + +TMPTIME=0 +SULOGIN=no +DELAYLOGIN=no +UTC=yes +VERBOSE=no +FSCKFIX=no +RAMRUN=no +RAMLOCK=no diff --git a/beagle/debian-rfs/usr/share/insserv/check-archive-initd-scripts b/beagle/debian-rfs/usr/share/insserv/check-archive-initd-scripts new file mode 100755 index 0000000..e2948da --- /dev/null +++ b/beagle/debian-rfs/usr/share/insserv/check-archive-initd-scripts @@ -0,0 +1,275 @@ +#!/usr/bin/perl +# +# Check the consistency of all init.d scripts in the archive. Run +# this on bellini.debian.org. + +use warnings; +use strict; +use File::Basename; + +my $warn = 1; + +my $basedir = "/org/lintian.debian.org/laboratory/binary"; + +my @scripts = @ARGV; +@scripts = <$basedir/*/init.d/*> unless (@scripts); + +my %scriptinfo; +my %provides; + +my @virts = qw($local_fs $remote_fs $syslog $time $named + $portmap $network $all + $mail-transport-agent $x-font-server + $null $x-display-manager + ); +my @harddepheaders = qw(required-start required-stop); +my @softdepheaders = qw(should-start + should-stop x-start-before x-stop-after); +my $lsbheaders = "Provides|Required-Start|Required-Stop|Default-Start|Default-Stop"; +my $optheaders = "x-start-before|x-stop-after|should-start|should-stop"; + +for my $virt (@virts) { + $provides{$virt} = ['insserv/etc/insserv.conf']; +} + +# Ignore obsolete scripts, as these are unlikely to cause problems. +for my $old (qw(glibc evms raid2 ldm sdm)) { + $provides{$old} = ['obsolete']; +} + +# First pass to load the database +for my $initdscript (@scripts) { + next if $initdscript =~ m%/rc|/rcS|/README%; + my %lsbinfo = parse_lsb_header($initdscript); + $scriptinfo{$initdscript} = \%lsbinfo; + next unless ($lsbinfo{'found'}); + + my %checked; + for my $provide (split(/[ ,\t]+/, $lsbinfo{provides})) { + if (exists $provides{$provide}) { + push(@{$provides{$provide}}, $initdscript) + } else { + $provides{$provide} = [$initdscript]; + } + $checked{$provide} = 1; + } +} + +for my $provide (sort keys %provides) { + if (1 < scalar @{$provides{$provide}}) { + my %script; + map { $script{basename($_)} = 1; } @{$provides{$provide}}; + if (1 < scalar keys %script) { + error(sprintf("scripts %s provide duplicate '%s'", + join(",", short_name(@{$provides{$provide}})), + $provide)); + } + } +} + +# Second pass, to see which dependencies are missing +for my $initdscript (@scripts) { + next unless ($scriptinfo{$initdscript}->{'found'}); + my $short = short_name($initdscript); + my %checked; + my @hardmissing = (); + for my $header (@harddepheaders) { + my $list = $scriptinfo{$initdscript}->{$header}; + next unless defined $list; + for my $facility (split(/[ ,\t]+/, $list)) { + next if exists $checked{$facility}; + $checked{$facility} = 1; + push(@hardmissing, $facility) + unless exists $provides{$facility}; + } + } + error("script $short depend on non-existing provides: " + . join(" ", @hardmissing)) if (@hardmissing); + my @softmissing = (); + for my $header (@softdepheaders) { + my $list = $scriptinfo{$initdscript}->{$header}; + next unless defined $list; + for my $facility (split(/[ ,\t]+/, $list)) { + next if exists $checked{$facility}; + $checked{$facility} = 1; + push(@softmissing, $facility) + unless exists $provides{$facility}; + } + } + warning("script $short relate to non-existing provides: " + . join(" ", @softmissing)) if (@softmissing); + + if (exists $checked{'$syslog'} + && $scriptinfo{$initdscript}->{'default-start'} =~ m/s/i) { + error("script $short depend on \$syslog and start from rcS.d/"); + } + if (!exists $checked{'$remote_fs'} + && !exists $checked{'$syslog'} + && $scriptinfo{$initdscript}->{'need_remote_fs'} + && $scriptinfo{$initdscript}->{'default-start'} =~ m/s/i) { + warning("script $short possibly missing dependency on \$remote_fs"); + } elsif (!exists $checked{'$local_fs'} + && !exists $checked{'$remote_fs'} + && !exists $checked{'$syslog'} + && $scriptinfo{$initdscript}->{'need_local_fs'} + && $scriptinfo{$initdscript}->{'default-start'} =~ m/s/i) { + warning("script $short possibly missing dependency on \$local_fs"); + } + + if (!exists $checked{'$local_fs'} + && $scriptinfo{$initdscript}->{'need_syslog'}) { + warning("script $short possibly missing dependency on \$syslog"); + } + + my %provided; + for my $provide (split(/[ ,\t]+/, + $scriptinfo{$initdscript}->{provides})) { + $provided{$provide} = 1; + if ($provide =~ m/\$/) { + error("script $short provide virtual facility $provide"); + } + } + + my $basename = basename($initdscript, ".sh"); + info("script $short does not provide its own name") + unless exists $provided{$basename}; + + # Detect common problems with runlevel settings. + my @startrl = sort split(/\s+/, lc($scriptinfo{$initdscript}->{'default-start'})); + my @stoprl = sort split(/\s+/, lc($scriptinfo{$initdscript}->{'default-stop'})); + + unless ( @startrl || @stoprl) { + error("script $short do not start or stop in any runlevels"); + } + # Scripts starting in rcS.d/ normally do not stop or only stop + # during hald and shutdown. + elsif ((array_equal(['s'], \@startrl) && array_equal([], \@stoprl)) + || ( array_equal(['s'], \@startrl) + && array_equal(['0','6'], \@stoprl))) { + # OK + } else { + # Most scripts either start in rcS.d, or in runlevels 2-5 + if (!array_equal(['2', '3', '4', '5'], \@startrl) && + !array_equal(['s'], \@startrl) && + (!array_equal([], \@startrl) && @stoprl)) { + # Some obvious errors (runlevels 2-5 are equivalent in Debian) + if (array_equal(['3', '5'], \@startrl) + || array_equal(['3', '4', '5'], \@startrl)) { + error("script $short have inconsistent start runlevels: ", + join(" ", @startrl)); + } else { + warning("script $short does not start in the usual runlevels: ", + join(" ", @startrl)); + } + } + + # And most scripts stop in runlevel (1) runlevels (0, 1, 6), + # only starts or only stops in (0) or (6). + if (!array_equal(['0', '1', '6'], \@stoprl) && + !array_equal(['1'], \@stoprl) && + !array_equal(['0', '6'], \@stoprl) && + !(array_equal(['0'], \@stoprl) && !@startrl) && + !(array_equal(['6'], \@stoprl) && !@startrl) && + !(array_equal([], \@stoprl) && @startrl)) { + warning("script $short does not stop in the usual runlevels: ", + join(" ", @stoprl)); + } + } +} + +exit 0; + +sub parse_lsb_header { + my $initdscript = shift; + my $short = short_name($initdscript); + my %lsbinfo; + unless (open(INIT, "<", $initdscript)) { + error("script $short is unreadable"); + return (); + } + my $inheader = 0; + while (<INIT>) { +# print; + chomp; + if (m/^\#\#\# BEGIN INIT INFO\s*$/) { + $lsbinfo{'found'} = 1; + $inheader = 1; + } + $inheader = 0 if (m/\#\#\# END INIT INFO$/); + if ($inheader + && m/^\# ($lsbheaders|$optheaders):\s*(\S?.*)$/i) { +# print "$1\n"; + $lsbinfo{lc($1)} = $2; + } + s/\#.*$//; # Remove comments + $lsbinfo{'need_remote_fs'} = 1 if m%/usr/s?bin/%; + $lsbinfo{'need_local_fs'} = 1 if m%/var/%; + + # Detect the use of tools resting in /usr/ + $lsbinfo{'need_remote_fs'} = 1 if m%awk%; + $lsbinfo{'need_remote_fs'} = 1 if m%which%; + } + close(INIT); + + # When running on bellini.debian.org, check if $syslog is needed + my $objdumpinfo = dirname($initdscript) . "/../objdump-info"; + if ( -f $objdumpinfo) { + print "Checking for syslog symbol\n"; + if (open(OBJDUMP, "<", $objdumpinfo)) { + while (<OBJDUMP>) { + $lsbinfo{'need_syslog'} = 1 if /GLIBC.* syslog/; + } + close OBJDUMP; + } + } + + # Check that all the required headers are present + if (!$lsbinfo{'found'}) { + error("script $short is missing LSB header"); + } else { + for my $key (split(/\|/, lc($lsbheaders))) { + if (!exists $lsbinfo{$key}) { + error("script $short missing LSB keyword '$key'"); + } + } + } + return %lsbinfo +} + +sub short_name { + my @scripts; + for my $script ( @_ ) { + my $copy = $script; + $copy =~ s%$basedir/%%g; + push @scripts, $copy; + } + if (wantarray) { + return @scripts; + } else { + return $scripts[0]; + } +} + +sub array_equal { + my ($a1, $a2) = @_; + return 0 if (scalar @{$a1} != scalar @{$a2}); + + my $i = 0; + while ($i < scalar @{$a1}) { + return 0 if $a1->[$i] ne $a2->[$i]; + $i++; + } + return 1; +} + +sub info { + print "info: @_\n"; +} + +sub warning { + print "warning: @_\n" if $warn; +} + +sub error { + print "error: @_\n"; +} diff --git a/beagle/debian-rfs/usr/share/insserv/check-initd-order b/beagle/debian-rfs/usr/share/insserv/check-initd-order new file mode 100755 index 0000000..e7d0ef6 --- /dev/null +++ b/beagle/debian-rfs/usr/share/insserv/check-initd-order @@ -0,0 +1,425 @@ +#!/usr/bin/perl +# +# Author: Petter Reinholdtsen +# Date: 2005-08-21 +# +# Read LSM init.d headers in SysV init.d scripts, and verify correct +# start order for all runlevels. It can also provide a graph. +# +# To generate a graph, run it like this +# +# check-initd-order -g > initorder.dotty && dotty initorder.dotty + +use strict; +use warnings; + +my $rcbase = "/etc"; + +my $overridepath = "/usr/share/insserv/overrides"; +my $hostoverridepath = "/etc/insserv/overrides"; + +my $debug = 0; +my $errors = 0; + +my %rcmap = + ( + 'B' => 'rc.boot', + 'S' => 'rcS.d', + '1' => 'rc1.d', + '2' => 'rc2.d', + '3' => 'rc3.d', + '4' => 'rc4.d', + '5' => 'rc5.d', + '6' => 'rc6.d', + ); + +my %sysmap; + +my %provideslist; +my %scriptorder; +my %opts; + +# Used to draw graphs +my %gotrevdeps; +my %allprovides; + +while($#ARGV >= 0 && ($_ = $ARGV[0]) =~ /^-/) { + shift @ARGV; + if (/^-([cdgko])$/) { $opts{$1}++; next } + if (/^-b$/) { $rcbase = shift; next } + if (/^-h|--help$/) { &usage; } + &usage("unknown option"); +} + +load_sysmap("$rcbase/insserv.conf"); + +$debug = $opts{'d'}; +my $useoverrides = $opts{'o'} ? 0 : 1; + +if ($opts{'g'}) { + graph_generate(); + exit 0; +} + +check_bootorder(); +exit $errors > 0 ? 1 : 0; + +sub usage { + print STDERR "check-initd-order: error: @_\n" if ($#_ >= 0); + print STDERR <<EOF; +usage: check-initd-order [-cdgko] [-b basedir] + -b basedir (default /etc) + -d enable debug output + -o do not load override files + -k use shutdown (reboot) sequence instead of boot sequence + -g generate graph + -c use combined boot and shutdown sequence (only for graphs) +EOF + exit 1; +} + +# Simple basename implementatin to avoid dependin on File::Basename +# from perl-modules +sub basename { + my $path = shift; + $path =~ s%^.*/([^/]+)$%$1%; + return $path; +} + +sub error { + print STDERR "error: ", @_; + $errors++; +} + +# Map packages to system metapackages. These dependencies should +# probably be more complex +sub load_sysmap { + my $filename = shift; + unless (open(CONF, "<", "$filename")) { + print STDERR "error: unable to load $filename"; + return; + } + while (<CONF>) { + chomp; + s/\#.*$//; + next if m/^\s*$/; + if (m/^(\$\S+)\s+(\S.*\S*)\S*$/) { + my $virt = $1; + for my $dep (split(/\s+/, $2)) { + $dep =~ s/^\+//g; + $sysmap{$dep} = $virt; + } + } + } + close(CONF); +} + +sub graph_addnode { + my ($isstopseq, $lsbinforef) = @_; + my %lsbinfo = %{$lsbinforef}; + + unless ($lsbinfo{'provides'}) { + error "File ". $lsbinfo{'file'} . " is missing the provides header\n"; + $lsbinfo{'provides'} = $lsbinfo{'file'}; + $lsbinfo{'provides'} =~ s/^[SK]\d{2}//; + } + + my $key = $opts{'k'} ? 'stop' : 'start'; + my $revkey = $opts{'k'} ? 'stop-after' : 'start-before'; + my @provides = split(/\s+/, $lsbinfo{'provides'}); + for my $name (@provides) { + if (exists $sysmap{$name}) { + graph_addnode($isstopseq, + {'provides' => $sysmap{$name}, + "required-$key" => $name}); + } + } + + if (1 < @provides) { + my @providescopy = @provides; + my $lastprovide = shift @providescopy; + for my $provide (@providescopy) { + graph_addnode($isstopseq, + {'provides' => $lastprovide, + "required-$key" => $provide}); + graph_addnode($isstopseq, + {'provides' => $provide, + "required-$key" => $lastprovide}); + } + } + + for my $provide (@provides) { + my $provideesc = $provide; $provideesc =~ s/"/\\"/g; + my %deps = + ( + "required-$key" => 'blue', + "should-$key" => 'springgreen', + "$revkey" => 'yellow' + ); + + for $key (keys %deps) { + if (exists $lsbinfo{$key} && $lsbinfo{$key}) { + my @depends = split(/\s+/, $lsbinfo{$key}); + + my $dependonall = 0; + for my $pkg (@depends) { + $dependonall = 1 if ($pkg eq '$all'); + } + + for my $pkg (@depends) { + my $pkgesc = $pkg; $pkgesc =~ s/"/\\"/g; + my $color = $deps{$key}; + if ($revkey eq $key) { + print "\"$provideesc\" -> \"$pkgesc\"[color=$color] ;\n"; + $gotrevdeps{$pkg} = 1 unless $dependonall; + } else { + print "\"$pkgesc\" -> \"$provideesc\"[color=$color] ;\n"; + $gotrevdeps{$provide} = 1 unless $dependonall; + } + } + } + } + + print "\"$provideesc\" [shape=box];\n" unless $allprovides{$provide}; + $allprovides{$provide} = 1; + } +} + +sub graph_generate_mode { + my ($isstopseq) = @_; + my @dirs = $isstopseq ? $rcmap{6} : ($rcmap{S}, $rcmap{2}); + for my $rcdir (@dirs) { + chdir "$rcbase/$rcdir/."; + my @scripts = $isstopseq ? <K*> : <S*>; + for my $script (@scripts) { + my $lsbinforef = load_lsb_tags("$rcbase/$rcdir/$script", + $useoverrides); + + unless (defined $lsbinforef) { + error "LSB header missing in $rcbase/$rcdir/$script\n"; + $script =~ s/^[SK]\d{2}//; + $lsbinforef = {'provides' => $script, + 'required-start' => '$remote_fs $syslog', + 'required-stop' => '$remote_fs $syslog'}; + } + graph_addnode($isstopseq, $lsbinforef); + } + } + # Mark all packages without any reverse dependencies as depending + # on $all + for my $provide (keys %allprovides) { + next unless (exists $gotrevdeps{$provide}); + my $lsbinforef = {'provides' => '$all', + 'required-start' => "$provide", + 'required-stop' => "$provide"}; + graph_addnode($isstopseq, $lsbinforef); + } +} + +sub graph_generate { + print "# Generating graph\n"; + print <<EOF; +digraph packages { +rankdir=LR; +concentrate=true; +EOF + if ($opts{'c'}) { + graph_generate_mode(); + graph_generate_mode(1); + } else { + graph_generate_mode($opts{'k'}); + } + print <<EOF; +} +EOF +} + +sub check_deps { + my ($lsbinforef, $tag, $order, $bootorder, $headername, $required) = @_; + my %lsbinfo = %{$lsbinforef}; + my $name = $lsbinfo{'file'}; + if ($lsbinfo{$headername}) { + my @depends = split(/\s+/, $lsbinfo{$headername}); + for my $dep (@depends) { + if (! $required && exists $provideslist{$dep}) { + unless (exists $scriptorder{$tag}{$dep} + and ("S" eq $tag + ? $scriptorder{$tag}{$dep} < $bootorder + : $scriptorder{$tag}{$dep} > $bootorder)) { + my $deporder; + if (exists $scriptorder{$tag}{$dep}) { + $deporder = $scriptorder{$tag}{$dep} + } else { + $deporder = exists $provideslist{$dep} ? $provideslist{$dep} : "?"; + } + error(sprintf("Incorrect order %s@%s %s %s%s\n", + $dep, $deporder, 'S' eq $tag ? '>' : '<', + $name, $order)); + } + } + } + } +} + +sub check_bootorder { + my $bootorder = 0; + my @dirs = $opts{'k'} ? $rcmap{6} : ($rcmap{S}, $rcmap{2}); + my @scripts; + for my $rcdir (@dirs) { + push(@scripts, $opts{'k'} ? <$rcbase/$rcdir/K*> : <$rcbase/$rcdir/S*>); + } + + if ($opts{'k'}) { + $scriptorder{'K'}{'$all'} = 1; + } else { + # Calculate script order for the script before the scripts + # with the last boot sequence number. + my $tmpbootorder = 0; + my $allorder = 0; + my $maxorder = 0; + my $maxbootorder = 0; + for my $scriptpath (@scripts) { + my $script = $scriptpath; + $script =~ s%^.*/([^/]+)$%$1%; + $tmpbootorder++; + my ($tag, $order, $name) = $script =~ m/^(.)(\d{2})(.+)$/; + if ($order > $maxorder) { + $allorder = $maxbootorder; + $maxbootorder = $tmpbootorder; + $maxorder = $order; + } + + my $lsbinforef = load_lsb_tags($scriptpath, + $useoverrides); + + if (exists $lsbinforef->{'provides'} + && $lsbinforef->{'provides'}) { + for my $provide (split(/\s+/, $lsbinforef->{'provides'})) { + $provideslist{$provide} = $order; + } + } else { + $provideslist{$script} = $order; + } + } + $scriptorder{'S'}{'$all'} = $allorder; + } + for my $scriptpath (@scripts) { + my $script = $scriptpath; + $script =~ s%^.*/([^/]+)$%$1%; + $bootorder++; + my ($tag, $order, $name) = $script =~ m/^(.)(\d{2})(.+)$/; + + $scriptorder{$tag}{$name} = $bootorder; + $scriptorder{$tag}{$sysmap{$name}} = $bootorder + if (exists $sysmap{$name}); + +# print "$script\n"; +# print "T: $tag O: $order N: $name\n"; + my $lsbinforef = load_lsb_tags($scriptpath, + $useoverrides); + + unless (defined $lsbinforef) { + error "LSB header missing in $scriptpath\n"; + next; + } + my %lsbinfo = %{$lsbinforef}; + + if (exists $lsbinfo{'provides'} && $lsbinfo{'provides'}) { + for my $provide (split(/\s+/, $lsbinfo{'provides'})) { + $scriptorder{$tag}{$provide} = $bootorder; + $scriptorder{$tag}{$sysmap{$provide}} = $bootorder + if (exists $sysmap{$provide}); + } + } else { + error "no LSB header provides value in script $scriptpath\n"; + } + + if ('S' eq $tag) { + check_deps($lsbinforef, $tag, $order, $bootorder, 'required-start', 1); + check_deps($lsbinforef, $tag, $order, $bootorder, 'should-start', 0); +# check_deps($lsbinforef, 'K', $order, $bootorder, 'start-before', 0); + } + if ('K' eq $tag) { + check_deps($lsbinforef, $tag, $order, $bootorder, 'required-stop', 1); + check_deps($lsbinforef, $tag, $order, $bootorder, 'should-stop', 0); +# check_deps($lsbinforef, 'S', $order, $bootorder, 'stop-after', 0); + } + } +} + +sub load_lsb_tags { + my ($initfile, $useoverrides) = @_; + my $lsbinforef = load_lsb_tags_from_file($initfile); + + if ($useoverrides) { + # Try override file + $initfile = readlink($initfile) if (-l $initfile); + my $basename = basename($initfile); + + # Only read shipped override file when initscript does not + # contain LSB tags. + if (! defined($lsbinforef) && -f "$overridepath/$basename") { + print STDERR "Override $overridepath/$basename\n" if $debug; + $lsbinforef = load_lsb_tags_from_file("$overridepath/$basename"); + } + + # Always read the host override in $hostoverridepath. + if (-f "$hostoverridepath/$basename") { + print STDERR "Override $hostoverridepath/$basename\n" if $debug; + $lsbinforef = load_lsb_tags_from_file("$hostoverridepath/$basename"); + } + + } + return $lsbinforef; +} + +sub load_lsb_tags_from_file { + my ($file) = @_; + print STDERR "Loading $file\n" if $debug; + ### BEGIN INIT INFO + # Provides: xdebconfigurator + # Required-Start: $syslog + # Required-Stop: $syslog + # Default-Start: 2 3 4 5 + # Default-Stop: 1 6 + # Short-Description: Genererate xfree86 configuration at boot time + # Description: Preseed X configuration and use dexconf to + # genereate a new configuration file. + ### END INIT INFO + unless (open(FILE, "<$file")) { + warn "error: Unable to read $file"; + return; + } + my $found = 0; + my ($provides, $requiredstart, $requiredstop, $shouldstart, $shouldstop); + my ($startbefore, $stopafter); + while (<FILE>) { + chomp; + $found = 1 if (m/\#\#\# BEGIN INIT INFO/); + next unless $found; + last if (m/\#\#\# END INIT INFO/); + + $provides = $1 if (m/^\# provides:\s+(\S*.*\S+)\s*$/i); + $requiredstart = $1 if (m/^\# required-start:\s+(\S*.*\S+)\s*$/i); + $requiredstop = $1 if (m/^\# required-stop:\s+(\S*.*\S+)\s*$/i); + $shouldstart = $1 if (m/^\# should-start:\s+(\S*.*\S+)\s*$/i); + $shouldstop = $1 if (m/^\# should-stop:\s+(\S*.*\S+)\s*$/i); + $startbefore = $1 if (m/^\# X-Start-Before:\s+(\S*.*\S+)\s*$/i); + $stopafter = $1 if (m/^\# X-Stop-After:\s+(\S*.*\S+)\s*$/i); + } + close(FILE); + + return undef unless ($found); + +# print "Provides: $provides\n" if $provides; + return { + 'provides' => $provides, + 'required-start' => $requiredstart, + 'required-stop' => $requiredstop, + 'should-start' => $shouldstart, + 'should-stop' => $shouldstop, + 'start-before' => $startbefore, + 'stop-after' => $stopafter, + 'file' => $file, + }; +} diff --git a/beagle/debian-rfs/usr/share/insserv/make-testsuite b/beagle/debian-rfs/usr/share/insserv/make-testsuite new file mode 100755 index 0000000..262b37d --- /dev/null +++ b/beagle/debian-rfs/usr/share/insserv/make-testsuite @@ -0,0 +1,41 @@ +#!/bin/sh +# +# Extract key information from the current to try to generate a test +# suite script to demonstrate detected bugs. + +echo 'set +C' +echo "cat <<'EOF' > \$insconf" +grep -v '#' /etc/insserv.conf |grep -v '^$' +echo "EOF" +echo 'set -C' +echo + +for f in /etc/init.d/*; do + name=$(basename $f) + case $name in + README|rc|rcS|skeleton) + ;; + *) + echo "addscript $name <<'EOF'" + sed -n -r '/^### BEGIN INIT INFO/, /END INIT INFO/p' < $f + echo "EOF" + echo + ;; + esac +done + +echo 'cd $tmpdir/etc' +echo 'mkdir rc0.d rc1.d rc2.d rc3.d rc4.d rc5.d rc6.d rcS.d' +cd /etc +for f in rc?.d/*; do + case $f in + */README) + ;; + *) + echo ln -s $(readlink $f) $f + ;; + esac +done + +echo +echo list_rclinks diff --git a/beagle/debian-rfs/usr/share/insserv/overrides/devfsd b/beagle/debian-rfs/usr/share/insserv/overrides/devfsd new file mode 100644 index 0000000..ed36858 --- /dev/null +++ b/beagle/debian-rfs/usr/share/insserv/overrides/devfsd @@ -0,0 +1,8 @@ +### BEGIN INIT INFO +# Provides: devfsd +# Required-Start: mountdevsubfs +# Required-Stop: reboot +# Default-Start: S 1 2 3 4 5 +# Default-Stop: 0 6 +### END INIT INFO +# Reported to BTS as bug #324671 diff --git a/beagle/debian-rfs/usr/share/insserv/overrides/hotplug b/beagle/debian-rfs/usr/share/insserv/overrides/hotplug new file mode 100644 index 0000000..9e7b8d1 --- /dev/null +++ b/beagle/debian-rfs/usr/share/insserv/overrides/hotplug @@ -0,0 +1,7 @@ +### BEGIN INIT INFO +# Provides: hotplug +# Required-Start: mountdevsubfs checkroot $local_fs +# Required-Stop: $local_fs +# Default-Start: S +# Default-Stop: 0 6 +### END INIT INFO diff --git a/beagle/debian-rfs/usr/share/insserv/overrides/hotplug-net b/beagle/debian-rfs/usr/share/insserv/overrides/hotplug-net new file mode 100644 index 0000000..6f612d3 --- /dev/null +++ b/beagle/debian-rfs/usr/share/insserv/overrides/hotplug-net @@ -0,0 +1,7 @@ +### BEGIN INIT INFO +# Provides: hotplug-net +# Required-Start: $local_fs ifupdown +# Required-Stop: $local_fs +# Default-Start: S +# Default-Stop: 0 6 +### END INIT INFO diff --git a/beagle/debian-rfs/usr/share/insserv/overrides/initrd-tools.sh b/beagle/debian-rfs/usr/share/insserv/overrides/initrd-tools.sh new file mode 100644 index 0000000..2f4a800 --- /dev/null +++ b/beagle/debian-rfs/usr/share/insserv/overrides/initrd-tools.sh @@ -0,0 +1,7 @@ +### BEGIN INIT INFO +# Provides: initrd-tools +# Required-Start: mountdevsubfs +# Required-Stop: +# Default-Start: S +# Default-Stop: +### END INIT INFO diff --git a/beagle/debian-rfs/usr/share/insserv/overrides/modutils b/beagle/debian-rfs/usr/share/insserv/overrides/modutils new file mode 100644 index 0000000..dacdc4f --- /dev/null +++ b/beagle/debian-rfs/usr/share/insserv/overrides/modutils @@ -0,0 +1,8 @@ +### BEGIN INIT INFO +# Provides: modutils +# Required-Start: checkroot +# Required-Stop: +# Default-Start: S +# Default-Stop: +### END INIT INFO +# Reported to BTS as #335311 diff --git a/beagle/debian-rfs/usr/share/insserv/seq-changes b/beagle/debian-rfs/usr/share/insserv/seq-changes new file mode 100755 index 0000000..4610bec --- /dev/null +++ b/beagle/debian-rfs/usr/share/insserv/seq-changes @@ -0,0 +1,54 @@ +#! /bin/bash +# Script from Frans Pop + +set -e + +if [ -z "$1" ]; then + echo "Usage: insserv-seq-changes /var/lib/insserv/<old bootscripts tarball>" + exit 1 +fi + +oldtar="$(tar tzf $1)" +for i in S $(seq 0 6); do + echo "Runlevel $i" + new="$(cd /etc/rc$i.d; ls -1 [KS]* | sort | nl)" + old="$(echo "$oldtar" | grep "^rc$i.d/[KS]" | cut -d/ -f2 | sort | nl)" + case $i in + S|0|6) + old="$(echo "$old" | sed -r "s/[KS][0-9]+//")" + new="$(echo "$new" | sed -r "s/[KS][0-9]+//")" + ;; + *) + old="$(echo "$old" | sed -r "s/([KS])[0-9]+/\1_/")" + new="$(echo "$new" | sed -r "s/([KS])[0-9]+/\1_/")" + ;; + esac + echo "$new" | while read num cmd; do + oldnum=$(echo "$old" | grep "[[:space:]]$cmd$" | awk '{print $1}') + if [ "$oldnum" ]; then + diff=$(($num - $oldnum)) + else + oldnum="---" + diff="" + fi + if [ ${#cmd} -ge 16 ]; then + echo -e "$cmd\t$num\t$oldnum\t$diff" + elif [ ${#cmd} -ge 8 ]; then + echo -e "$cmd\t\t$num\t$oldnum\t$diff" + else + echo -e "$cmd\t\t\t$num\t$oldnum\t$diff" + fi + done + echo "$old" | while read num cmd; do + if ! echo "$new" | grep -q "[[:space:]]$cmd$"; then + if [ ${#cmd} -ge 16 ]; then + echo -e "$cmd\t---\t$oldnum" + elif [ ${#cmd} -ge 8 ]; then + echo -e "$cmd\t\t---\t$oldnum" + else + echo -e "$cmd\t\t\t---\t$oldnum" + fi + fi + done + echo +done diff --git a/beagle/debian-rfs/usr/share/lintian/overrides/base-passwd b/beagle/debian-rfs/usr/share/lintian/overrides/base-passwd new file mode 100644 index 0000000..721142c --- /dev/null +++ b/beagle/debian-rfs/usr/share/lintian/overrides/base-passwd @@ -0,0 +1,2 @@ +base-passwd: maintainer-script-does-not-check-for-existence-of-installdocs postinst +base-passwd: maintainer-script-does-not-check-for-existence-of-installdocs prerm diff --git a/beagle/debian-rfs/usr/share/lintian/overrides/bsdutils b/beagle/debian-rfs/usr/share/lintian/overrides/bsdutils new file mode 100644 index 0000000..e57e60b --- /dev/null +++ b/beagle/debian-rfs/usr/share/lintian/overrides/bsdutils @@ -0,0 +1 @@ +bsdutils: setgid-binary usr/bin/wall 2755 root/tty diff --git a/beagle/debian-rfs/usr/share/lintian/overrides/debconf b/beagle/debian-rfs/usr/share/lintian/overrides/debconf new file mode 100644 index 0000000..7a22910 --- /dev/null +++ b/beagle/debian-rfs/usr/share/lintian/overrides/debconf @@ -0,0 +1 @@ +debconf: postrm-does-not-purge-debconf diff --git a/beagle/debian-rfs/usr/share/lintian/overrides/dpkg b/beagle/debian-rfs/usr/share/lintian/overrides/dpkg new file mode 100644 index 0000000..6b75f54 --- /dev/null +++ b/beagle/debian-rfs/usr/share/lintian/overrides/dpkg @@ -0,0 +1,10 @@ +dpkg: redundant-origin-field +dpkg: redundant-bugs-field +dpkg: arch-dep-package-has-big-usr-share +# False positives, we read from a file not from a tty +dpkg: read-in-maintainer-script preinst:39 +dpkg: read-in-maintainer-script preinst:40 +dpkg: read-in-maintainer-script preinst:42 +dpkg: read-in-maintainer-script preinst:50 +# On purpose, install-info is only a wrapper that will be removed soon +dpkg: binary-without-manpage usr/sbin/install-info diff --git a/beagle/debian-rfs/usr/share/lintian/overrides/gzip b/beagle/debian-rfs/usr/share/lintian/overrides/gzip new file mode 100644 index 0000000..61fcf9e --- /dev/null +++ b/beagle/debian-rfs/usr/share/lintian/overrides/gzip @@ -0,0 +1,6 @@ +gzip: package-contains-hardlink bin/gunzip +gzip: package-contains-hardlink bin/zcat +gzip: package-contains-hardlink bin/zcmp +gzip: package-contains-hardlink bin/zegrep +gzip: package-contains-hardlink bin/zfgrep +gzip: package-contains-hardlink bin/uncompress diff --git a/beagle/debian-rfs/usr/share/lintian/overrides/initscripts b/beagle/debian-rfs/usr/share/lintian/overrides/initscripts new file mode 100644 index 0000000..6e0471e --- /dev/null +++ b/beagle/debian-rfs/usr/share/lintian/overrides/initscripts @@ -0,0 +1,12 @@ +initscripts: file-in-etc-not-marked-as-conffile /etc/init.d/skeleton +initscripts: non-standard-toplevel-dir sys/ +initscripts: package-contains-empty-directory lib/init/rw/ +initscripts: package-contains-empty-directory sys/ +initscripts: script-not-executable ./etc/init.d/skeleton +initscripts: script-not-executable ./lib/init/bootclean.sh +initscripts: maintainer-script-calls-init-script-directly postrm:14 +initscripts: script-calls-init-script-directly ./etc/init.d/stop-bootlogd:19 +initscripts: script-calls-init-script-directly ./etc/init.d/stop-bootlogd-single:36 +initscripts: script-calls-init-script-directly ./etc/network/if-up.d/mountnfs:102 +initscripts: depends-on-essential-package-without-using-version recommends: e2fsprogs +initscripts: no-upstream-changelog diff --git a/beagle/debian-rfs/usr/share/lintian/overrides/insserv b/beagle/debian-rfs/usr/share/lintian/overrides/insserv new file mode 100644 index 0000000..d31810e --- /dev/null +++ b/beagle/debian-rfs/usr/share/lintian/overrides/insserv @@ -0,0 +1 @@ +insserv: binary-without-manpage usr/sbin/update-bootsystem-insserv diff --git a/beagle/debian-rfs/usr/share/lintian/overrides/libc-bin b/beagle/debian-rfs/usr/share/lintian/overrides/libc-bin new file mode 100644 index 0000000..679184c --- /dev/null +++ b/beagle/debian-rfs/usr/share/lintian/overrides/libc-bin @@ -0,0 +1,10 @@ +# ldconfig must be executable even when the libc is not configured, and +# thus must be linked statically +libc-bin: statically-linked-binary ./sbin/ldconfig + +# pt_chown must be setuid root, otherwise non-root users won't be able +# to login +libc-bin: setuid-binary usr/lib/pt_chown 4755 root/root + +# libc-bin depending on libc6 make apt crazy... +libc-bin: missing-depends-line diff --git a/beagle/debian-rfs/usr/share/lintian/overrides/libc6 b/beagle/debian-rfs/usr/share/lintian/overrides/libc6 new file mode 100644 index 0000000..cfe33b5 --- /dev/null +++ b/beagle/debian-rfs/usr/share/lintian/overrides/libc6 @@ -0,0 +1,13 @@ +# libpthread must be stripped specially; GDB needs the non-dynamic +# symbol table in order to load the thread debugging library. +libc6: unstripped-binary-or-object ./lib/libpthread-2.11.1.so + +# ld.so must be executable, otherwise the system will not work +libc6: shlib-with-executable-bit /lib/ld-2.11.1.so 0755 + +# It is normal that the ELF dynamic linker does not need any other +# library +libc6: shared-lib-without-dependency-information ./lib/ld-2.11.1.so + +# dependency on debconf is not needed, as glibc has a fallback to tty +libc6: missing-debconf-dependency-for-preinst diff --git a/beagle/debian-rfs/usr/share/lintian/overrides/libgcc1 b/beagle/debian-rfs/usr/share/lintian/overrides/libgcc1 new file mode 100644 index 0000000..95ea58b --- /dev/null +++ b/beagle/debian-rfs/usr/share/lintian/overrides/libgcc1 @@ -0,0 +1 @@ +libgcc1: package-name-doesnt-match-sonames diff --git a/beagle/debian-rfs/usr/share/lintian/overrides/libpam-modules b/beagle/debian-rfs/usr/share/lintian/overrides/libpam-modules new file mode 100644 index 0000000..e323f6f --- /dev/null +++ b/beagle/debian-rfs/usr/share/lintian/overrides/libpam-modules @@ -0,0 +1,3 @@ +# yes, we know it's sgid, that's the whole point... +libpam-modules: setgid-binary sbin/unix_chkpwd 2755 root/shadow + diff --git a/beagle/debian-rfs/usr/share/lintian/overrides/libpam-runtime b/beagle/debian-rfs/usr/share/lintian/overrides/libpam-runtime new file mode 100644 index 0000000..ad868c2 --- /dev/null +++ b/beagle/debian-rfs/usr/share/lintian/overrides/libpam-runtime @@ -0,0 +1,9 @@ +# deliberate. +libpam-runtime: no-debconf-config +# this warning is just plain crack, there's no reason that using debconf +# outside of a maintainer script implies an error. +libpam-runtime: debconf-is-not-a-registry usr/sbin/pam-auth-update +# this warning is wrong for debconf error templates +libpam-runtime: postinst-uses-db-input +# meh. +libpam-runtime: using-first-person-in-templates libpam-runtime/you-had-no-auth diff --git a/beagle/debian-rfs/usr/share/lintian/overrides/libpam0g b/beagle/debian-rfs/usr/share/lintian/overrides/libpam0g new file mode 100644 index 0000000..f66356a --- /dev/null +++ b/beagle/debian-rfs/usr/share/lintian/overrides/libpam0g @@ -0,0 +1,8 @@ +# obvious multilib package false-positive; also the package name hasn't +# changed since the glibc transition, go us! +libpam0g: package-name-doesnt-match-sonames libpam0 libpam-misc0 libpamc0 +# yes, these are deliberately asked in the postinst because the checking +# for daemons to be restarted needs to be done in the postinst and not +# before +libpam0g: no-debconf-config +libpam0g: postinst-uses-db-input diff --git a/beagle/debian-rfs/usr/share/lintian/overrides/libselinux1 b/beagle/debian-rfs/usr/share/lintian/overrides/libselinux1 new file mode 100644 index 0000000..4d5d4d6 --- /dev/null +++ b/beagle/debian-rfs/usr/share/lintian/overrides/libselinux1 @@ -0,0 +1,2 @@ +libselinux1: non-standard-toplevel-dir selinux/ +libselinux1: package-contains-empty-directory selinux/ diff --git a/beagle/debian-rfs/usr/share/lintian/overrides/libslang2 b/beagle/debian-rfs/usr/share/lintian/overrides/libslang2 new file mode 100644 index 0000000..df37a61 --- /dev/null +++ b/beagle/debian-rfs/usr/share/lintian/overrides/libslang2 @@ -0,0 +1,3 @@ +libslang2: syntax-error-in-debian-changelog line 315 "badly formatted trailer line" +libslang2: syntax-error-in-debian-changelog line 317 "found start of entry where expected more change data or trailer" + diff --git a/beagle/debian-rfs/usr/share/lintian/overrides/login b/beagle/debian-rfs/usr/share/lintian/overrides/login new file mode 100644 index 0000000..489928d --- /dev/null +++ b/beagle/debian-rfs/usr/share/lintian/overrides/login @@ -0,0 +1,3 @@ +login: setuid-binary usr/bin/newgrp 4755 root/root +login: setuid-binary bin/su 4755 root/root +login: possible-missing-colon-in-closes l667:closes bug 336321 diff --git a/beagle/debian-rfs/usr/share/lintian/overrides/mount b/beagle/debian-rfs/usr/share/lintian/overrides/mount new file mode 100644 index 0000000..1a9f42d --- /dev/null +++ b/beagle/debian-rfs/usr/share/lintian/overrides/mount @@ -0,0 +1,2 @@ +mount: setuid-binary bin/mount 4755 root/root +mount: setuid-binary bin/umount 4755 root/root diff --git a/beagle/debian-rfs/usr/share/lintian/overrides/ncurses-base b/beagle/debian-rfs/usr/share/lintian/overrides/ncurses-base new file mode 100644 index 0000000..afc295d --- /dev/null +++ b/beagle/debian-rfs/usr/share/lintian/overrides/ncurses-base @@ -0,0 +1 @@ +ncurses-base: capitalization-error-in-description linux Linux diff --git a/beagle/debian-rfs/usr/share/lintian/overrides/passwd b/beagle/debian-rfs/usr/share/lintian/overrides/passwd new file mode 100644 index 0000000..9f05b12 --- /dev/null +++ b/beagle/debian-rfs/usr/share/lintian/overrides/passwd @@ -0,0 +1,6 @@ +passwd: setgid-binary usr/bin/chage 2755 root/shadow +passwd: setuid-binary usr/bin/chfn 4755 root/root +passwd: setuid-binary usr/bin/chsh 4755 root/root +passwd: setgid-binary usr/bin/expiry 2755 root/shadow +passwd: setuid-binary usr/bin/gpasswd 4755 root/root +passwd: setuid-binary usr/bin/passwd 4755 root/root diff --git a/beagle/debian-rfs/usr/share/lintian/overrides/perl-base b/beagle/debian-rfs/usr/share/lintian/overrides/perl-base new file mode 100644 index 0000000..cca4872 --- /dev/null +++ b/beagle/debian-rfs/usr/share/lintian/overrides/perl-base @@ -0,0 +1,2 @@ +# see #522827 +usr-share-doc-symlink-without-dependency perl diff --git a/beagle/debian-rfs/usr/share/lintian/overrides/sysv-rc b/beagle/debian-rfs/usr/share/lintian/overrides/sysv-rc new file mode 100644 index 0000000..b84ce22 --- /dev/null +++ b/beagle/debian-rfs/usr/share/lintian/overrides/sysv-rc @@ -0,0 +1,41 @@ +sysv-rc: package-installs-into-etc-rc.d etc/rcS.d/README +sysv-rc: package-installs-into-etc-rc.d etc/rc0.d/README +sysv-rc: package-installs-into-etc-rc.d etc/rc1.d/README +sysv-rc: package-installs-into-etc-rc.d etc/rc2.d/README +sysv-rc: package-installs-into-etc-rc.d etc/rc3.d/README +sysv-rc: package-installs-into-etc-rc.d etc/rc4.d/README +sysv-rc: package-installs-into-etc-rc.d etc/rc5.d/README +sysv-rc: package-installs-into-etc-rc.d etc/rc6.d/README +sysv-rc: file-in-etc-not-marked-as-conffile /etc/rcS.d/README +sysv-rc: file-in-etc-not-marked-as-conffile /etc/rc0.d/README +sysv-rc: file-in-etc-not-marked-as-conffile /etc/rc1.d/README +sysv-rc: file-in-etc-not-marked-as-conffile /etc/rc2.d/README +sysv-rc: file-in-etc-not-marked-as-conffile /etc/rc3.d/README +sysv-rc: file-in-etc-not-marked-as-conffile /etc/rc4.d/README +sysv-rc: file-in-etc-not-marked-as-conffile /etc/rc5.d/README +sysv-rc: file-in-etc-not-marked-as-conffile /etc/rc6.d/README +sysv-rc: file-in-etc-not-marked-as-conffile /etc/init.d/README +sysv-rc: script-in-etc-init.d-not-registered-via-update-rc.d /etc/init.d/README +sysv-rc: script-in-etc-init.d-not-registered-via-update-rc.d /etc/init.d/rc +sysv-rc: script-in-etc-init.d-not-registered-via-update-rc.d /etc/init.d/rcS +sysv-rc: non-standard-file-permissions-for-etc-init.d-script etc/init.d/README 0644 != 0755 +sysv-rc: postrm-contains-additional-updaterc.d-calls /etc/init.d//usr/sbin/update-rc.d +sysv-rc: postrm-contains-additional-updaterc.d-calls /etc/init.d//usr/sbin/invoke-rc.d +sysv-rc: file-in-etc-not-marked-as-conffile /etc/init.d/rc +sysv-rc: init.d-script-missing-lsb-section /etc/init.d/rc +sysv-rc: init.d-script-does-not-implement-required-option /etc/init.d/rc start +sysv-rc: init.d-script-does-not-implement-required-option /etc/init.d/rc stop +sysv-rc: init.d-script-does-not-implement-required-option /etc/init.d/rc restart +sysv-rc: init.d-script-does-not-implement-required-option /etc/init.d/rc force-reload +sysv-rc: file-in-etc-not-marked-as-conffile /etc/init.d/rcS +sysv-rc: init.d-script-missing-lsb-section /etc/init.d/rcS +sysv-rc: init.d-script-does-not-implement-required-option /etc/init.d/rcS start +sysv-rc: init.d-script-does-not-implement-required-option /etc/init.d/rcS stop +sysv-rc: init.d-script-does-not-implement-required-option /etc/init.d/rcS restart +sysv-rc: init.d-script-does-not-implement-required-option /etc/init.d/rcS force-reload +sysv-rc: no-upstream-changelog +sysv-rc: no-debconf-config +sysv-rc: postinst-uses-db-input +sysv-rc: prerm-calls-updaterc.d information +sysv-rc: prerm-calls-updaterc.d call +sysv-rc: prerm-calls-updaterc.d call. diff --git a/beagle/debian-rfs/usr/share/lintian/overrides/sysvinit b/beagle/debian-rfs/usr/share/lintian/overrides/sysvinit new file mode 100644 index 0000000..4c2bd87 --- /dev/null +++ b/beagle/debian-rfs/usr/share/lintian/overrides/sysvinit @@ -0,0 +1 @@ +sysvinit: depends-on-essential-package-without-using-version pre-depends: sysvinit-utils diff --git a/beagle/debian-rfs/usr/share/lintian/overrides/util-linux b/beagle/debian-rfs/usr/share/lintian/overrides/util-linux new file mode 100644 index 0000000..7952d97 --- /dev/null +++ b/beagle/debian-rfs/usr/share/lintian/overrides/util-linux @@ -0,0 +1,3 @@ +util-linux: init.d-script-possible-missing-stop /etc/init.d/hwclock.sh 1 +util-linux: no-debconf-config +util-linux: postinst-uses-db-input diff --git a/beagle/debian-rfs/usr/share/menu/bash b/beagle/debian-rfs/usr/share/menu/bash new file mode 100644 index 0000000..eb84b2d --- /dev/null +++ b/beagle/debian-rfs/usr/share/menu/bash @@ -0,0 +1,2 @@ +?package(bash):needs="text" section="Applications/Shells" title="Bash" command="/bin/bash --login" +?package(bash):needs="text" section="Applications/Shells" title="Sh" command="/bin/sh --login" diff --git a/beagle/debian-rfs/usr/share/menu/dash b/beagle/debian-rfs/usr/share/menu/dash new file mode 100644 index 0000000..381be17 --- /dev/null +++ b/beagle/debian-rfs/usr/share/menu/dash @@ -0,0 +1,5 @@ +?package(dash): \ + title="Dash"\ + needs="text"\ + section="Applications/Shells"\ + command="/bin/dash -i" diff --git a/beagle/debian-rfs/usr/share/pam-configs/unix b/beagle/debian-rfs/usr/share/pam-configs/unix new file mode 100644 index 0000000..23a04f1 --- /dev/null +++ b/beagle/debian-rfs/usr/share/pam-configs/unix @@ -0,0 +1,23 @@ +Name: Unix authentication +Default: yes +Priority: 256 +Auth-Type: Primary +Auth: + [success=end default=ignore] pam_unix.so nullok_secure try_first_pass +Auth-Initial: + [success=end default=ignore] pam_unix.so nullok_secure +Account-Type: Primary +Account: + [success=end new_authtok_reqd=done default=ignore] pam_unix.so +Account-Initial: + [success=end new_authtok_reqd=done default=ignore] pam_unix.so +Session-Type: Additional +Session: + required pam_unix.so +Session-Initial: + required pam_unix.so +Password-Type: Primary +Password: + [success=end default=ignore] pam_unix.so obscure use_authtok try_first_pass sha512 +Password-Initial: + [success=end default=ignore] pam_unix.so obscure sha512 diff --git a/beagle/debian-rfs/usr/share/pam/common-account b/beagle/debian-rfs/usr/share/pam/common-account new file mode 100644 index 0000000..84aa98d --- /dev/null +++ b/beagle/debian-rfs/usr/share/pam/common-account @@ -0,0 +1,26 @@ +# +# /etc/pam.d/common-account - authorization settings common to all services +# +# This file is included from other service-specific PAM config files, +# and should contain a list of the authorization modules that define +# the central access policy for use on the system. The default is to +# only deny service to users whose accounts are expired in /etc/shadow. +# +# As of pam 1.0.1-6, this file is managed by pam-auth-update by default. +# To take advantage of this, it is recommended that you configure any +# local modules either before or after the default block, and use +# pam-auth-update to manage selection of other modules. See +# pam-auth-update(8) for details. +# + +# here are the per-package modules (the "Primary" block) +$account_primary +# here's the fallback if no module succeeds +account requisite pam_deny.so +# prime the stack with a positive return value if there isn't one already; +# this avoids us returning an error just because nothing sets a success code +# since the modules above will each just jump around +account required pam_permit.so +# and here are more per-package modules (the "Additional" block) +$account_additional +# end of pam-auth-update config diff --git a/beagle/debian-rfs/usr/share/pam/common-account.md5sums b/beagle/debian-rfs/usr/share/pam/common-account.md5sums new file mode 100644 index 0000000..047c30e --- /dev/null +++ b/beagle/debian-rfs/usr/share/pam/common-account.md5sums @@ -0,0 +1,2 @@ +9f04221fe44762047894adeb96ffd069 debian/local/common-account +3c0c362eaf3421848b679d63fd48c3fa # 1.0.1-6 - diff --git a/beagle/debian-rfs/usr/share/pam/common-auth b/beagle/debian-rfs/usr/share/pam/common-auth new file mode 100644 index 0000000..ac9d2dd --- /dev/null +++ b/beagle/debian-rfs/usr/share/pam/common-auth @@ -0,0 +1,26 @@ +# +# /etc/pam.d/common-auth - authentication settings common to all services +# +# This file is included from other service-specific PAM config files, +# and should contain a list of the authentication modules that define +# the central authentication scheme for use on the system +# (e.g., /etc/shadow, LDAP, Kerberos, etc.). The default is to use the +# traditional Unix authentication mechanisms. +# +# As of pam 1.0.1-6, this file is managed by pam-auth-update by default. +# To take advantage of this, it is recommended that you configure any +# local modules either before or after the default block, and use +# pam-auth-update to manage selection of other modules. See +# pam-auth-update(8) for details. + +# here are the per-package modules (the "Primary" block) +$auth_primary +# here's the fallback if no module succeeds +auth requisite pam_deny.so +# prime the stack with a positive return value if there isn't one already; +# this avoids us returning an error just because nothing sets a success code +# since the modules above will each just jump around +auth required pam_permit.so +# and here are more per-package modules (the "Additional" block) +$auth_additional +# end of pam-auth-update config diff --git a/beagle/debian-rfs/usr/share/pam/common-auth.md5sums b/beagle/debian-rfs/usr/share/pam/common-auth.md5sums new file mode 100644 index 0000000..48bd359 --- /dev/null +++ b/beagle/debian-rfs/usr/share/pam/common-auth.md5sums @@ -0,0 +1,3 @@ +933d757dcd5974b00619f68955743be7 /etc/pam.d/common-auth +b58d8e0a6cadbf879df94869cca6be98 /etc/pam.d/common-auth +8d4fe17e66ba25de16a117035d1396aa # 1.0.1-6 - diff --git a/beagle/debian-rfs/usr/share/pam/common-password b/beagle/debian-rfs/usr/share/pam/common-password new file mode 100644 index 0000000..963f1eb --- /dev/null +++ b/beagle/debian-rfs/usr/share/pam/common-password @@ -0,0 +1,34 @@ +# +# /etc/pam.d/common-password - password-related modules common to all services +# +# This file is included from other service-specific PAM config files, +# and should contain a list of modules that define the services to be +# used to change user passwords. The default is pam_unix. + +# Explanation of pam_unix options: +# +# The "sha512" option enables salted SHA512 passwords. Without this option, +# the default is Unix crypt. Prior releases used the option "md5". +# +# The "obscure" option replaces the old `OBSCURE_CHECKS_ENAB' option in +# login.defs. +# +# See the pam_unix manpage for other options. + +# As of pam 1.0.1-6, this file is managed by pam-auth-update by default. +# To take advantage of this, it is recommended that you configure any +# local modules either before or after the default block, and use +# pam-auth-update to manage selection of other modules. See +# pam-auth-update(8) for details. + +# here are the per-package modules (the "Primary" block) +$password_primary +# here's the fallback if no module succeeds +password requisite pam_deny.so +# prime the stack with a positive return value if there isn't one already; +# this avoids us returning an error just because nothing sets a success code +# since the modules above will each just jump around +password required pam_permit.so +# and here are more per-package modules (the "Additional" block) +$password_additional +# end of pam-auth-update config diff --git a/beagle/debian-rfs/usr/share/pam/common-password.md5sums b/beagle/debian-rfs/usr/share/pam/common-password.md5sums new file mode 100644 index 0000000..3c33255 --- /dev/null +++ b/beagle/debian-rfs/usr/share/pam/common-password.md5sums @@ -0,0 +1,6 @@ +601ecfbc99fd359877552cb5298087ad /etc/pam.d/common-password +e5ae8ba8d00083c922d9d82a0432ef78 /etc/pam.d/common-password +5d518818f1c6c369040b782f7852f53e /etc/pam.d/common-password +9ba753d0824276b44bcadfee1f87b6bc # 1.0.1-4ubuntu5 - 1.0.1-4ubuntu5.5 +4bd7610f2e85f8ddaef79c7db7cb49eb # 1.0.1-6 - 1.1.0-1 +50fce2113dfda83ac8bdd5a6e706caec # 1.0.1-6ubuntu1 - diff --git a/beagle/debian-rfs/usr/share/pam/common-session b/beagle/debian-rfs/usr/share/pam/common-session new file mode 100644 index 0000000..2e94d6c --- /dev/null +++ b/beagle/debian-rfs/usr/share/pam/common-session @@ -0,0 +1,25 @@ +# +# /etc/pam.d/common-session - session-related modules common to all services +# +# This file is included from other service-specific PAM config files, +# and should contain a list of modules that define tasks to be performed +# at the start and end of sessions of *any* kind (both interactive and +# non-interactive). +# +# As of pam 1.0.1-6, this file is managed by pam-auth-update by default. +# To take advantage of this, it is recommended that you configure any +# local modules either before or after the default block, and use +# pam-auth-update to manage selection of other modules. See +# pam-auth-update(8) for details. + +# here are the per-package modules (the "Primary" block) +$session_primary +# here's the fallback if no module succeeds +session requisite pam_deny.so +# prime the stack with a positive return value if there isn't one already; +# this avoids us returning an error just because nothing sets a success code +# since the modules above will each just jump around +session required pam_permit.so +# and here are more per-package modules (the "Additional" block) +$session_additional +# end of pam-auth-update config diff --git a/beagle/debian-rfs/usr/share/pam/common-session-noninteractive b/beagle/debian-rfs/usr/share/pam/common-session-noninteractive new file mode 100644 index 0000000..1dd1a17 --- /dev/null +++ b/beagle/debian-rfs/usr/share/pam/common-session-noninteractive @@ -0,0 +1,25 @@ +# +# /etc/pam.d/common-session-noninteractive - session-related modules +# common to all non-interactive services +# +# This file is included from other service-specific PAM config files, +# and should contain a list of modules that define tasks to be performed +# at the start and end of all non-interactive sessions. +# +# As of pam 1.0.1-6, this file is managed by pam-auth-update by default. +# To take advantage of this, it is recommended that you configure any +# local modules either before or after the default block, and use +# pam-auth-update to manage selection of other modules. See +# pam-auth-update(8) for details. + +# here are the per-package modules (the "Primary" block) +$session_nonint_primary +# here's the fallback if no module succeeds +session requisite pam_deny.so +# prime the stack with a positive return value if there isn't one already; +# this avoids us returning an error just because nothing sets a success code +# since the modules above will each just jump around +session required pam_permit.so +# and here are more per-package modules (the "Additional" block) +$session_nonint_additional +# end of pam-auth-update config diff --git a/beagle/debian-rfs/usr/share/pam/common-session-noninteractive.md5sums b/beagle/debian-rfs/usr/share/pam/common-session-noninteractive.md5sums new file mode 100644 index 0000000..020c2e4 --- /dev/null +++ b/beagle/debian-rfs/usr/share/pam/common-session-noninteractive.md5sums @@ -0,0 +1 @@ +ad2b78ce1498dd637ef36469430b6ac6 # 1.0.1-11 - diff --git a/beagle/debian-rfs/usr/share/pam/common-session.md5sums b/beagle/debian-rfs/usr/share/pam/common-session.md5sums new file mode 100644 index 0000000..9f06fa1 --- /dev/null +++ b/beagle/debian-rfs/usr/share/pam/common-session.md5sums @@ -0,0 +1,3 @@ +4845c1632b3561a9debe8d59be1b238e /etc/pam.d/common-session +4a25673e8b36f1805219027d3be02cd2 # 1.0.1-4ubuntu5 - 1.0.1-4ubuntu5.5 +240fb92986c885b327cdb21dd641da8c # 1.0.1-6 - diff --git a/beagle/debian-rfs/usr/share/perl/5.10 b/beagle/debian-rfs/usr/share/perl/5.10 new file mode 120000 index 0000000..a620310 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10 @@ -0,0 +1 @@ +5.10.1
\ No newline at end of file diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/AutoLoader.pm b/beagle/debian-rfs/usr/share/perl/5.10.1/AutoLoader.pm new file mode 100644 index 0000000..89ac88d --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/AutoLoader.pm @@ -0,0 +1,198 @@ +package AutoLoader; + +use strict; +use 5.006_001; + +our($VERSION, $AUTOLOAD); + +my $is_dosish; +my $is_epoc; +my $is_vms; +my $is_macos; + +BEGIN { + $is_dosish = $^O eq 'dos' || $^O eq 'os2' || $^O eq 'MSWin32' || $^O eq 'NetWare'; + $is_epoc = $^O eq 'epoc'; + $is_vms = $^O eq 'VMS'; + $is_macos = $^O eq 'MacOS'; + $VERSION = '5.68'; +} + +AUTOLOAD { + my $sub = $AUTOLOAD; + my $filename = AutoLoader::find_filename( $sub ); + + my $save = $@; + local $!; # Do not munge the value. + eval { local $SIG{__DIE__}; require $filename }; + if ($@) { + if (substr($sub,-9) eq '::DESTROY') { + no strict 'refs'; + *$sub = sub {}; + $@ = undef; + } elsif ($@ =~ /^Can't locate/) { + # The load might just have failed because the filename was too + # long for some old SVR3 systems which treat long names as errors. + # If we can successfully truncate a long name then it's worth a go. + # There is a slight risk that we could pick up the wrong file here + # but autosplit should have warned about that when splitting. + if ($filename =~ s/(\w{12,})\.al$/substr($1,0,11).".al"/e){ + eval { local $SIG{__DIE__}; require $filename }; + } + } + if ($@){ + $@ =~ s/ at .*\n//; + my $error = $@; + require Carp; + Carp::croak($error); + } + } + $@ = $save; + goto &$sub; +} + +sub find_filename { + my $sub = shift; + my $filename; + # Braces used to preserve $1 et al. + { + # Try to find the autoloaded file from the package-qualified + # name of the sub. e.g., if the sub needed is + # Getopt::Long::GetOptions(), then $INC{Getopt/Long.pm} is + # something like '/usr/lib/perl5/Getopt/Long.pm', and the + # autoload file is '/usr/lib/perl5/auto/Getopt/Long/GetOptions.al'. + # + # However, if @INC is a relative path, this might not work. If, + # for example, @INC = ('lib'), then $INC{Getopt/Long.pm} is + # 'lib/Getopt/Long.pm', and we want to require + # 'auto/Getopt/Long/GetOptions.al' (without the leading 'lib'). + # In this case, we simple prepend the 'auto/' and let the + # C<require> take care of the searching for us. + + my ($pkg,$func) = ($sub =~ /(.*)::([^:]+)$/); + $pkg =~ s#::#/#g; + if (defined($filename = $INC{"$pkg.pm"})) { + if ($is_macos) { + $pkg =~ tr#/#:#; + $filename = undef + unless $filename =~ s#^(.*)$pkg\.pm\z#$1auto:$pkg:$func.al#s; + } else { + $filename = undef + unless $filename =~ s#^(.*)$pkg\.pm\z#$1auto/$pkg/$func.al#s; + } + + # if the file exists, then make sure that it is a + # a fully anchored path (i.e either '/usr/lib/auto/foo/bar.al', + # or './lib/auto/foo/bar.al'. This avoids C<require> searching + # (and failing) to find the 'lib/auto/foo/bar.al' because it + # looked for 'lib/lib/auto/foo/bar.al', given @INC = ('lib'). + + if (defined $filename and -r $filename) { + unless ($filename =~ m|^/|s) { + if ($is_dosish) { + unless ($filename =~ m{^([a-z]:)?[\\/]}is) { + if ($^O ne 'NetWare') { + $filename = "./$filename"; + } else { + $filename = "$filename"; + } + } + } + elsif ($is_epoc) { + unless ($filename =~ m{^([a-z?]:)?[\\/]}is) { + $filename = "./$filename"; + } + } + elsif ($is_vms) { + # XXX todo by VMSmiths + $filename = "./$filename"; + } + elsif (!$is_macos) { + $filename = "./$filename"; + } + } + } + else { + $filename = undef; + } + } + unless (defined $filename) { + # let C<require> do the searching + $filename = "auto/$sub.al"; + $filename =~ s#::#/#g; + } + } + return $filename; +} + +sub import { + my $pkg = shift; + my $callpkg = caller; + + # + # Export symbols, but not by accident of inheritance. + # + + if ($pkg eq 'AutoLoader') { + if ( @_ and $_[0] =~ /^&?AUTOLOAD$/ ) { + no strict 'refs'; + *{ $callpkg . '::AUTOLOAD' } = \&AUTOLOAD; + } + } + + # + # Try to find the autosplit index file. Eg., if the call package + # is POSIX, then $INC{POSIX.pm} is something like + # '/usr/local/lib/perl5/POSIX.pm', and the autosplit index file is in + # '/usr/local/lib/perl5/auto/POSIX/autosplit.ix', so we require that. + # + # However, if @INC is a relative path, this might not work. If, + # for example, @INC = ('lib'), then + # $INC{POSIX.pm} is 'lib/POSIX.pm', and we want to require + # 'auto/POSIX/autosplit.ix' (without the leading 'lib'). + # + + (my $calldir = $callpkg) =~ s#::#/#g; + my $path = $INC{$calldir . '.pm'}; + if (defined($path)) { + # Try absolute path name, but only eval it if the + # transformation from module path to autosplit.ix path + # succeeded! + my $replaced_okay; + if ($is_macos) { + (my $malldir = $calldir) =~ tr#/#:#; + $replaced_okay = ($path =~ s#^(.*)$malldir\.pm\z#$1auto:$malldir:autosplit.ix#s); + } else { + $replaced_okay = ($path =~ s#^(.*)$calldir\.pm\z#$1auto/$calldir/autosplit.ix#); + } + + eval { require $path; } if $replaced_okay; + # If that failed, try relative path with normal @INC searching. + if (!$replaced_okay or $@) { + $path ="auto/$calldir/autosplit.ix"; + eval { require $path; }; + } + if ($@) { + my $error = $@; + require Carp; + Carp::carp($error); + } + } +} + +sub unimport { + my $callpkg = caller; + + no strict 'refs'; + + for my $exported (qw( AUTOLOAD )) { + my $symname = $callpkg . '::' . $exported; + undef *{ $symname } if \&{ $symname } == \&{ $exported }; + *{ $symname } = \&{ $symname }; + } +} + +1; + +__END__ + diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/Carp.pm b/beagle/debian-rfs/usr/share/perl/5.10.1/Carp.pm new file mode 100644 index 0000000..cd97564 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/Carp.pm @@ -0,0 +1,51 @@ +package Carp; + +our $VERSION = '1.11'; +# this file is an utra-lightweight stub. The first time a function is +# called, Carp::Heavy is loaded, and the real short/longmessmess_jmp +# subs are installed + +our $MaxEvalLen = 0; +our $Verbose = 0; +our $CarpLevel = 0; +our $MaxArgLen = 64; # How much of each argument to print. 0 = all. +our $MaxArgNums = 8; # How many arguments to print. 0 = all. + +require Exporter; +our @ISA = ('Exporter'); +our @EXPORT = qw(confess croak carp); +our @EXPORT_OK = qw(cluck verbose longmess shortmess); +our @EXPORT_FAIL = qw(verbose); # hook to enable verbose mode + +# if the caller specifies verbose usage ("perl -MCarp=verbose script.pl") +# then the following method will be called by the Exporter which knows +# to do this thanks to @EXPORT_FAIL, above. $_[1] will contain the word +# 'verbose'. + +sub export_fail { shift; $Verbose = shift if $_[0] eq 'verbose'; @_ } + +# fixed hooks for stashes to point to +sub longmess { goto &longmess_jmp } +sub shortmess { goto &shortmess_jmp } +# these two are replaced when Carp::Heavy is loaded +sub longmess_jmp { + local($@, $!); + eval { require Carp::Heavy }; + return $@ if $@; + goto &longmess_real; +} +sub shortmess_jmp { + local($@, $!); + eval { require Carp::Heavy }; + return $@ if $@; + goto &shortmess_real; +} + +sub croak { die shortmess @_ } +sub confess { die longmess @_ } +sub carp { warn shortmess @_ } +sub cluck { warn longmess @_ } + +1; +__END__ + diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/Carp/Heavy.pm b/beagle/debian-rfs/usr/share/perl/5.10.1/Carp/Heavy.pm new file mode 100644 index 0000000..04ec106 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/Carp/Heavy.pm @@ -0,0 +1,297 @@ +# Carp::Heavy uses some variables in common with Carp. +package Carp; + +# On one line so MakeMaker will see it. +use Carp; our $VERSION = $Carp::VERSION; +# use strict; # not yet + +# 'use Carp' just installs some very lightweight stubs; the first time +# these are called, they require Carp::Heavy which installs the real +# routines. + +# The members of %Internal are packages that are internal to perl. +# Carp will not report errors from within these packages if it +# can. The members of %CarpInternal are internal to Perl's warning +# system. Carp will not report errors from within these packages +# either, and will not report calls *to* these packages for carp and +# croak. They replace $CarpLevel, which is deprecated. The +# $Max(EvalLen|(Arg(Len|Nums)) variables are used to specify how the eval +# text and function arguments should be formatted when printed. + +# disable these by default, so they can live w/o require Carp +$CarpInternal{Carp}++; +$CarpInternal{warnings}++; +$Internal{Exporter}++; +$Internal{'Exporter::Heavy'}++; + +our ($CarpLevel, $MaxArgNums, $MaxEvalLen, $MaxArgLen, $Verbose); + +# XXX longmess_real and shortmess_real should really be merged into +# XXX {long|sort}mess_heavy at some point + +sub longmess_real { + # Icky backwards compatibility wrapper. :-( + # + # The story is that the original implementation hard-coded the + # number of call levels to go back, so calls to longmess were off + # by one. Other code began calling longmess and expecting this + # behaviour, so the replacement has to emulate that behaviour. + my $call_pack = caller(); + if ($Internal{$call_pack} or $CarpInternal{$call_pack}) { + return longmess_heavy(@_); + } + else { + local $CarpLevel = $CarpLevel + 1; + return longmess_heavy(@_); + } +}; + +sub shortmess_real { + # Icky backwards compatibility wrapper. :-( + local @CARP_NOT = caller(); + shortmess_heavy(@_); +}; + +# replace the two hooks added by Carp + +# aliasing the whole glob rather than just the CV slot avoids 'redefined' +# warnings, even in the presence of perl -W (as used by lib/warnings.t !) +# However it has the potential to create infinite loops, if somehow Carp +# is forcibly reloaded, but $INC{"Carp/Heavy.pm"} remains true. +# Hence the extra hack of deleting the previous typeglob first. + +delete $Carp::{shortmess_jmp}; +delete $Carp::{longmess_jmp}; +*longmess_jmp = *longmess_real; +*shortmess_jmp = *shortmess_real; + +sub caller_info { + my $i = shift(@_) + 1; + package DB; + my %call_info; + @call_info{ + qw(pack file line sub has_args wantarray evaltext is_require) + } = caller($i); + + unless (defined $call_info{pack}) { + return (); + } + + my $sub_name = Carp::get_subname(\%call_info); + if ($call_info{has_args}) { + my @args = map {Carp::format_arg($_)} @DB::args; + if ($MaxArgNums and @args > $MaxArgNums) { # More than we want to show? + $#args = $MaxArgNums; + push @args, '...'; + } + # Push the args onto the subroutine + $sub_name .= '(' . join (', ', @args) . ')'; + } + $call_info{sub_name} = $sub_name; + return wantarray() ? %call_info : \%call_info; +} + +# Transform an argument to a function into a string. +sub format_arg { + my $arg = shift; + if (ref($arg)) { + $arg = defined($overload::VERSION) ? overload::StrVal($arg) : "$arg"; + } + if (defined($arg)) { + $arg =~ s/'/\\'/g; + $arg = str_len_trim($arg, $MaxArgLen); + + # Quote it? + $arg = "'$arg'" unless $arg =~ /^-?[\d.]+\z/; + } else { + $arg = 'undef'; + } + + # The following handling of "control chars" is direct from + # the original code - it is broken on Unicode though. + # Suggestions? + utf8::is_utf8($arg) + or $arg =~ s/([[:cntrl:]]|[[:^ascii:]])/sprintf("\\x{%x}",ord($1))/eg; + return $arg; +} + +# Takes an inheritance cache and a package and returns +# an anon hash of known inheritances and anon array of +# inheritances which consequences have not been figured +# for. +sub get_status { + my $cache = shift; + my $pkg = shift; + $cache->{$pkg} ||= [{$pkg => $pkg}, [trusts_directly($pkg)]]; + return @{$cache->{$pkg}}; +} + +# Takes the info from caller() and figures out the name of +# the sub/require/eval +sub get_subname { + my $info = shift; + if (defined($info->{evaltext})) { + my $eval = $info->{evaltext}; + if ($info->{is_require}) { + return "require $eval"; + } + else { + $eval =~ s/([\\\'])/\\$1/g; + return "eval '" . str_len_trim($eval, $MaxEvalLen) . "'"; + } + } + + return ($info->{sub} eq '(eval)') ? 'eval {...}' : $info->{sub}; +} + +# Figures out what call (from the point of view of the caller) +# the long error backtrace should start at. +sub long_error_loc { + my $i; + my $lvl = $CarpLevel; + { + my $pkg = caller(++$i); + unless(defined($pkg)) { + # This *shouldn't* happen. + if (%Internal) { + local %Internal; + $i = long_error_loc(); + last; + } + else { + # OK, now I am irritated. + return 2; + } + } + redo if $CarpInternal{$pkg}; + redo unless 0 > --$lvl; + redo if $Internal{$pkg}; + } + return $i - 1; +} + +sub longmess_heavy { + return @_ if ref($_[0]); # don't break references as exceptions + my $i = long_error_loc(); + return ret_backtrace($i, @_); +} + +# Returns a full stack backtrace starting from where it is +# told. +sub ret_backtrace { + my ($i, @error) = @_; + my $mess; + my $err = join '', @error; + $i++; + + my $tid_msg = ''; + if (defined &threads::tid) { + my $tid = threads->tid; + $tid_msg = " thread $tid" if $tid; + } + + my %i = caller_info($i); + $mess = "$err at $i{file} line $i{line}$tid_msg\n"; + + while (my %i = caller_info(++$i)) { + $mess .= "\t$i{sub_name} called at $i{file} line $i{line}$tid_msg\n"; + } + + return $mess; +} + +sub ret_summary { + my ($i, @error) = @_; + my $err = join '', @error; + $i++; + + my $tid_msg = ''; + if (defined &threads::tid) { + my $tid = threads->tid; + $tid_msg = " thread $tid" if $tid; + } + + my %i = caller_info($i); + return "$err at $i{file} line $i{line}$tid_msg\n"; +} + +sub short_error_loc { + # You have to create your (hash)ref out here, rather than defaulting it + # inside trusts *on a lexical*, as you want it to persist across calls. + # (You can default it on $_[2], but that gets messy) + my $cache = {}; + my $i = 1; + my $lvl = $CarpLevel; + { + my $called = caller($i++); + my $caller = caller($i); + + return 0 unless defined($caller); # What happened? + redo if $Internal{$caller}; + redo if $CarpInternal{$caller}; + redo if $CarpInternal{$called}; + redo if trusts($called, $caller, $cache); + redo if trusts($caller, $called, $cache); + redo unless 0 > --$lvl; + } + return $i - 1; +} + +sub shortmess_heavy { + return longmess_heavy(@_) if $Verbose; + return @_ if ref($_[0]); # don't break references as exceptions + my $i = short_error_loc(); + if ($i) { + ret_summary($i, @_); + } + else { + longmess_heavy(@_); + } +} + +# If a string is too long, trims it with ... +sub str_len_trim { + my $str = shift; + my $max = shift || 0; + if (2 < $max and $max < length($str)) { + substr($str, $max - 3) = '...'; + } + return $str; +} + +# Takes two packages and an optional cache. Says whether the +# first inherits from the second. +# +# Recursive versions of this have to work to avoid certain +# possible endless loops, and when following long chains of +# inheritance are less efficient. +sub trusts { + my $child = shift; + my $parent = shift; + my $cache = shift; + my ($known, $partial) = get_status($cache, $child); + # Figure out consequences until we have an answer + while (@$partial and not exists $known->{$parent}) { + my $anc = shift @$partial; + next if exists $known->{$anc}; + $known->{$anc}++; + my ($anc_knows, $anc_partial) = get_status($cache, $anc); + my @found = keys %$anc_knows; + @$known{@found} = (); + push @$partial, @$anc_partial; + } + return exists $known->{$parent}; +} + +# Takes a package and gives a list of those trusted directly +sub trusts_directly { + my $class = shift; + no strict 'refs'; + no warnings 'once'; + return @{"$class\::CARP_NOT"} + ? @{"$class\::CARP_NOT"} + : @{"$class\::ISA"}; +} + +1; + diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/Exporter.pm b/beagle/debian-rfs/usr/share/perl/5.10.1/Exporter.pm new file mode 100644 index 0000000..9c751cf --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/Exporter.pm @@ -0,0 +1,99 @@ +package Exporter; + +require 5.006; + +# Be lean. +#use strict; +#no strict 'refs'; + +our $Debug = 0; +our $ExportLevel = 0; +our $Verbose ||= 0; +our $VERSION = '5.63'; +our (%Cache); + +# Carp 1.05+ does this now for us, but we may be running with an old Carp +$Carp::Internal{Exporter}++; + +sub as_heavy { + require Exporter::Heavy; + # Unfortunately, this does not work if the caller is aliased as *name = \&foo + # Thus the need to create a lot of identical subroutines + my $c = (caller(1))[3]; + $c =~ s/.*:://; + \&{"Exporter::Heavy::heavy_$c"}; +} + +sub export { + goto &{as_heavy()}; +} + +sub import { + my $pkg = shift; + my $callpkg = caller($ExportLevel); + + if ($pkg eq "Exporter" and @_ and $_[0] eq "import") { + *{$callpkg."::import"} = \&import; + return; + } + + # We *need* to treat @{"$pkg\::EXPORT_FAIL"} since Carp uses it :-( + my($exports, $fail) = (\@{"$pkg\::EXPORT"}, \@{"$pkg\::EXPORT_FAIL"}); + return export $pkg, $callpkg, @_ + if $Verbose or $Debug or @$fail > 1; + my $export_cache = ($Cache{$pkg} ||= {}); + my $args = @_ or @_ = @$exports; + + local $_; + if ($args and not %$export_cache) { + s/^&//, $export_cache->{$_} = 1 + foreach (@$exports, @{"$pkg\::EXPORT_OK"}); + } + my $heavy; + # Try very hard not to use {} and hence have to enter scope on the foreach + # We bomb out of the loop with last as soon as heavy is set. + if ($args or $fail) { + ($heavy = (/\W/ or $args and not exists $export_cache->{$_} + or @$fail and $_ eq $fail->[0])) and last + foreach (@_); + } else { + ($heavy = /\W/) and last + foreach (@_); + } + return export $pkg, $callpkg, ($args ? @_ : ()) if $heavy; + local $SIG{__WARN__} = + sub {require Carp; &Carp::carp}; + # shortcut for the common case of no type character + *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_; +} + +# Default methods + +sub export_fail { + my $self = shift; + @_; +} + +# Unfortunately, caller(1)[3] "does not work" if the caller is aliased as +# *name = \&foo. Thus the need to create a lot of identical subroutines +# Otherwise we could have aliased them to export(). + +sub export_to_level { + goto &{as_heavy()}; +} + +sub export_tags { + goto &{as_heavy()}; +} + +sub export_ok_tags { + goto &{as_heavy()}; +} + +sub require_version { + goto &{as_heavy()}; +} + +1; +__END__ + diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/Exporter/Heavy.pm b/beagle/debian-rfs/usr/share/perl/5.10.1/Exporter/Heavy.pm new file mode 100644 index 0000000..78dba39 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/Exporter/Heavy.pm @@ -0,0 +1,237 @@ +package Exporter::Heavy; + +use strict; +no strict 'refs'; + +# On one line so MakeMaker will see it. +require Exporter; our $VERSION = $Exporter::VERSION; + +# Carp 1.05+ does this now for us, but we may be running with an old Carp +$Carp::Internal{'Exporter::Heavy'}++; + +# +# We go to a lot of trouble not to 'require Carp' at file scope, +# because Carp requires Exporter, and something has to give. +# + +sub _rebuild_cache { + my ($pkg, $exports, $cache) = @_; + s/^&// foreach @$exports; + @{$cache}{@$exports} = (1) x @$exports; + my $ok = \@{"${pkg}::EXPORT_OK"}; + if (@$ok) { + s/^&// foreach @$ok; + @{$cache}{@$ok} = (1) x @$ok; + } +} + +sub heavy_export { + + # First make import warnings look like they're coming from the "use". + local $SIG{__WARN__} = sub { + my $text = shift; + if ($text =~ s/ at \S*Exporter\S*.pm line \d+.*\n//) { + require Carp; + local $Carp::CarpLevel = 1; # ignore package calling us too. + Carp::carp($text); + } + else { + warn $text; + } + }; + local $SIG{__DIE__} = sub { + require Carp; + local $Carp::CarpLevel = 1; # ignore package calling us too. + Carp::croak("$_[0]Illegal null symbol in \@${1}::EXPORT") + if $_[0] =~ /^Unable to create sub named "(.*?)::"/; + }; + + my($pkg, $callpkg, @imports) = @_; + my($type, $sym, $cache_is_current, $oops); + my($exports, $export_cache) = (\@{"${pkg}::EXPORT"}, + $Exporter::Cache{$pkg} ||= {}); + + if (@imports) { + if (!%$export_cache) { + _rebuild_cache ($pkg, $exports, $export_cache); + $cache_is_current = 1; + } + + if (grep m{^[/!:]}, @imports) { + my $tagsref = \%{"${pkg}::EXPORT_TAGS"}; + my $tagdata; + my %imports; + my($remove, $spec, @names, @allexports); + # negated first item implies starting with default set: + unshift @imports, ':DEFAULT' if $imports[0] =~ m/^!/; + foreach $spec (@imports){ + $remove = $spec =~ s/^!//; + + if ($spec =~ s/^://){ + if ($spec eq 'DEFAULT'){ + @names = @$exports; + } + elsif ($tagdata = $tagsref->{$spec}) { + @names = @$tagdata; + } + else { + warn qq["$spec" is not defined in %${pkg}::EXPORT_TAGS]; + ++$oops; + next; + } + } + elsif ($spec =~ m:^/(.*)/$:){ + my $patn = $1; + @allexports = keys %$export_cache unless @allexports; # only do keys once + @names = grep(/$patn/, @allexports); # not anchored by default + } + else { + @names = ($spec); # is a normal symbol name + } + + warn "Import ".($remove ? "del":"add").": @names " + if $Exporter::Verbose; + + if ($remove) { + foreach $sym (@names) { delete $imports{$sym} } + } + else { + @imports{@names} = (1) x @names; + } + } + @imports = keys %imports; + } + + my @carp; + foreach $sym (@imports) { + if (!$export_cache->{$sym}) { + if ($sym =~ m/^\d/) { + $pkg->VERSION($sym); # inherit from UNIVERSAL + # If the version number was the only thing specified + # then we should act as if nothing was specified: + if (@imports == 1) { + @imports = @$exports; + last; + } + # We need a way to emulate 'use Foo ()' but still + # allow an easy version check: "use Foo 1.23, ''"; + if (@imports == 2 and !$imports[1]) { + @imports = (); + last; + } + } elsif ($sym !~ s/^&// || !$export_cache->{$sym}) { + # Last chance - see if they've updated EXPORT_OK since we + # cached it. + + unless ($cache_is_current) { + %$export_cache = (); + _rebuild_cache ($pkg, $exports, $export_cache); + $cache_is_current = 1; + } + + if (!$export_cache->{$sym}) { + # accumulate the non-exports + push @carp, + qq["$sym" is not exported by the $pkg module\n]; + $oops++; + } + } + } + } + if ($oops) { + require Carp; + Carp::croak("@{carp}Can't continue after import errors"); + } + } + else { + @imports = @$exports; + } + + my($fail, $fail_cache) = (\@{"${pkg}::EXPORT_FAIL"}, + $Exporter::FailCache{$pkg} ||= {}); + + if (@$fail) { + if (!%$fail_cache) { + # Build cache of symbols. Optimise the lookup by adding + # barewords twice... both with and without a leading &. + # (Technique could be applied to $export_cache at cost of memory) + my @expanded = map { /^\w/ ? ($_, '&'.$_) : $_ } @$fail; + warn "${pkg}::EXPORT_FAIL cached: @expanded" if $Exporter::Verbose; + @{$fail_cache}{@expanded} = (1) x @expanded; + } + my @failed; + foreach $sym (@imports) { push(@failed, $sym) if $fail_cache->{$sym} } + if (@failed) { + @failed = $pkg->export_fail(@failed); + foreach $sym (@failed) { + require Carp; + Carp::carp(qq["$sym" is not implemented by the $pkg module ], + "on this architecture"); + } + if (@failed) { + require Carp; + Carp::croak("Can't continue after import errors"); + } + } + } + + warn "Importing into $callpkg from $pkg: ", + join(", ",sort @imports) if $Exporter::Verbose; + + foreach $sym (@imports) { + # shortcut for the common case of no type character + (*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next) + unless $sym =~ s/^(\W)//; + $type = $1; + no warnings 'once'; + *{"${callpkg}::$sym"} = + $type eq '&' ? \&{"${pkg}::$sym"} : + $type eq '$' ? \${"${pkg}::$sym"} : + $type eq '@' ? \@{"${pkg}::$sym"} : + $type eq '%' ? \%{"${pkg}::$sym"} : + $type eq '*' ? *{"${pkg}::$sym"} : + do { require Carp; Carp::croak("Can't export symbol: $type$sym") }; + } +} + +sub heavy_export_to_level +{ + my $pkg = shift; + my $level = shift; + (undef) = shift; # XXX redundant arg + my $callpkg = caller($level); + $pkg->export($callpkg, @_); +} + +# Utility functions + +sub _push_tags { + my($pkg, $var, $syms) = @_; + my @nontag = (); + my $export_tags = \%{"${pkg}::EXPORT_TAGS"}; + push(@{"${pkg}::$var"}, + map { $export_tags->{$_} ? @{$export_tags->{$_}} + : scalar(push(@nontag,$_),$_) } + (@$syms) ? @$syms : keys %$export_tags); + if (@nontag and $^W) { + # This may change to a die one day + require Carp; + Carp::carp(join(", ", @nontag)." are not tags of $pkg"); + } +} + +sub heavy_require_version { + my($self, $wanted) = @_; + my $pkg = ref $self || $self; + return ${pkg}->VERSION($wanted); +} + +sub heavy_export_tags { + _push_tags((caller)[0], "EXPORT", \@_); +} + +sub heavy_export_ok_tags { + _push_tags((caller)[0], "EXPORT_OK", \@_); +} + +1; diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/File/Spec.pm b/beagle/debian-rfs/usr/share/perl/5.10.1/File/Spec.pm new file mode 100644 index 0000000..a417d27 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/File/Spec.pm @@ -0,0 +1,27 @@ +package File::Spec; + +use strict; +use vars qw(@ISA $VERSION); + +$VERSION = '3.30'; +$VERSION = eval $VERSION; + +my %module = (MacOS => 'Mac', + MSWin32 => 'Win32', + os2 => 'OS2', + VMS => 'VMS', + epoc => 'Epoc', + NetWare => 'Win32', # Yes, File::Spec::Win32 works on NetWare. + symbian => 'Win32', # Yes, File::Spec::Win32 works on symbian. + dos => 'OS2', # Yes, File::Spec::OS2 works on DJGPP. + cygwin => 'Cygwin'); + +my $module = $module{$^O} || 'Unix'; + +require "File/Spec/$module.pm"; +@ISA = ("File::Spec::$module"); + +1; + +__END__ + diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/File/Spec/Unix.pm b/beagle/debian-rfs/usr/share/perl/5.10.1/File/Spec/Unix.pm new file mode 100644 index 0000000..7beae08 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/File/Spec/Unix.pm @@ -0,0 +1,269 @@ +package File::Spec::Unix; + +use strict; +use vars qw($VERSION); + +$VERSION = '3.30'; +$VERSION = eval $VERSION; + +sub canonpath { + my ($self,$path) = @_; + return unless defined $path; + + # Handle POSIX-style node names beginning with double slash (qnx, nto) + # (POSIX says: "a pathname that begins with two successive slashes + # may be interpreted in an implementation-defined manner, although + # more than two leading slashes shall be treated as a single slash.") + my $node = ''; + my $double_slashes_special = $^O eq 'qnx' || $^O eq 'nto'; + + if ( $double_slashes_special + && ( $path =~ s{^(//[^/]+)/?\z}{}s || $path =~ s{^(//[^/]+)/}{/}s ) ) { + $node = $1; + } + # This used to be + # $path =~ s|/+|/|g unless ($^O eq 'cygwin'); + # but that made tests 29, 30, 35, 46, and 213 (as of #13272) to fail + # (Mainly because trailing "" directories didn't get stripped). + # Why would cygwin avoid collapsing multiple slashes into one? --jhi + $path =~ s|/{2,}|/|g; # xx////xx -> xx/xx + $path =~ s{(?:/\.)+(?:/|\z)}{/}g; # xx/././xx -> xx/xx + $path =~ s|^(?:\./)+||s unless $path eq "./"; # ./xx -> xx + $path =~ s|^/(?:\.\./)+|/|; # /../../xx -> xx + $path =~ s|^/\.\.$|/|; # /.. -> / + $path =~ s|/\z|| unless $path eq "/"; # xx/ -> xx + return "$node$path"; +} + +sub catdir { + my $self = shift; + + $self->canonpath(join('/', @_, '')); # '' because need a trailing '/' +} + +sub catfile { + my $self = shift; + my $file = $self->canonpath(pop @_); + return $file unless @_; + my $dir = $self->catdir(@_); + $dir .= "/" unless substr($dir,-1) eq "/"; + return $dir.$file; +} + +sub curdir { '.' } + +sub devnull { '/dev/null' } + +sub rootdir { '/' } + +my $tmpdir; +sub _tmpdir { + return $tmpdir if defined $tmpdir; + my $self = shift; + my @dirlist = @_; + { + no strict 'refs'; + if (${"\cTAINT"}) { # Check for taint mode on perl >= 5.8.0 + require Scalar::Util; + @dirlist = grep { ! Scalar::Util::tainted($_) } @dirlist; + } + } + foreach (@dirlist) { + next unless defined && -d && -w _; + $tmpdir = $_; + last; + } + $tmpdir = $self->curdir unless defined $tmpdir; + $tmpdir = defined $tmpdir && $self->canonpath($tmpdir); + return $tmpdir; +} + +sub tmpdir { + return $tmpdir if defined $tmpdir; + $tmpdir = $_[0]->_tmpdir( $ENV{TMPDIR}, "/tmp" ); +} + +sub updir { '..' } + +sub no_upwards { + my $self = shift; + return grep(!/^\.{1,2}\z/s, @_); +} + +sub case_tolerant { 0 } + +sub file_name_is_absolute { + my ($self,$file) = @_; + return scalar($file =~ m:^/:s); +} + +sub path { + return () unless exists $ENV{PATH}; + my @path = split(':', $ENV{PATH}); + foreach (@path) { $_ = '.' if $_ eq '' } + return @path; +} + +sub join { + my $self = shift; + return $self->catfile(@_); +} + +sub splitpath { + my ($self,$path, $nofile) = @_; + + my ($volume,$directory,$file) = ('','',''); + + if ( $nofile ) { + $directory = $path; + } + else { + $path =~ m|^ ( (?: .* / (?: \.\.?\z )? )? ) ([^/]*) |xs; + $directory = $1; + $file = $2; + } + + return ($volume,$directory,$file); +} + +sub splitdir { + return split m|/|, $_[1], -1; # Preserve trailing fields +} + +sub catpath { + my ($self,$volume,$directory,$file) = @_; + + if ( $directory ne '' && + $file ne '' && + substr( $directory, -1 ) ne '/' && + substr( $file, 0, 1 ) ne '/' + ) { + $directory .= "/$file" ; + } + else { + $directory .= $file ; + } + + return $directory ; +} + +sub abs2rel { + my($self,$path,$base) = @_; + $base = $self->_cwd() unless defined $base and length $base; + + ($path, $base) = map $self->canonpath($_), $path, $base; + + if (grep $self->file_name_is_absolute($_), $path, $base) { + ($path, $base) = map $self->rel2abs($_), $path, $base; + } + else { + # save a couple of cwd()s if both paths are relative + ($path, $base) = map $self->catdir('/', $_), $path, $base; + } + + my ($path_volume) = $self->splitpath($path, 1); + my ($base_volume) = $self->splitpath($base, 1); + + # Can't relativize across volumes + return $path unless $path_volume eq $base_volume; + + my $path_directories = ($self->splitpath($path, 1))[1]; + my $base_directories = ($self->splitpath($base, 1))[1]; + + # For UNC paths, the user might give a volume like //foo/bar that + # strictly speaking has no directory portion. Treat it as if it + # had the root directory for that volume. + if (!length($base_directories) and $self->file_name_is_absolute($base)) { + $base_directories = $self->rootdir; + } + + # Now, remove all leading components that are the same + my @pathchunks = $self->splitdir( $path_directories ); + my @basechunks = $self->splitdir( $base_directories ); + + if ($base_directories eq $self->rootdir) { + shift @pathchunks; + return $self->canonpath( $self->catpath('', $self->catdir( @pathchunks ), '') ); + } + + while (@pathchunks && @basechunks && $self->_same($pathchunks[0], $basechunks[0])) { + shift @pathchunks ; + shift @basechunks ; + } + return $self->curdir unless @pathchunks || @basechunks; + + # $base now contains the directories the resulting relative path + # must ascend out of before it can descend to $path_directory. + my $result_dirs = $self->catdir( ($self->updir) x @basechunks, @pathchunks ); + return $self->canonpath( $self->catpath('', $result_dirs, '') ); +} + +sub _same { + $_[1] eq $_[2]; +} + +sub rel2abs { + my ($self,$path,$base ) = @_; + + # Clean up $path + if ( ! $self->file_name_is_absolute( $path ) ) { + # Figure out the effective $base and clean it up. + if ( !defined( $base ) || $base eq '' ) { + $base = $self->_cwd(); + } + elsif ( ! $self->file_name_is_absolute( $base ) ) { + $base = $self->rel2abs( $base ) ; + } + else { + $base = $self->canonpath( $base ) ; + } + + # Glom them together + $path = $self->catdir( $base, $path ) ; + } + + return $self->canonpath( $path ) ; +} + +# Internal routine to File::Spec, no point in making this public since +# it is the standard Cwd interface. Most of the platform-specific +# File::Spec subclasses use this. +sub _cwd { + require Cwd; + Cwd::getcwd(); +} + +# Internal method to reduce xx\..\yy -> yy +sub _collapse { + my($fs, $path) = @_; + + my $updir = $fs->updir; + my $curdir = $fs->curdir; + + my($vol, $dirs, $file) = $fs->splitpath($path); + my @dirs = $fs->splitdir($dirs); + pop @dirs if @dirs && $dirs[-1] eq ''; + + my @collapsed; + foreach my $dir (@dirs) { + if( $dir eq $updir and # if we have an updir + @collapsed and # and something to collapse + length $collapsed[-1] and # and its not the rootdir + $collapsed[-1] ne $updir and # nor another updir + $collapsed[-1] ne $curdir # nor the curdir + ) + { # then + pop @collapsed; # collapse + } + else { # else + push @collapsed, $dir; # just hang onto it + } + } + + return $fs->catpath($vol, + $fs->catdir(@collapsed), + $file + ); +} + +1; diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/FileHandle.pm b/beagle/debian-rfs/usr/share/perl/5.10.1/FileHandle.pm new file mode 100644 index 0000000..6761340 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/FileHandle.pm @@ -0,0 +1,105 @@ +package FileHandle; + +use 5.006; +use strict; +our($VERSION, @ISA, @EXPORT, @EXPORT_OK); + +$VERSION = "2.02"; + +require IO::File; +@ISA = qw(IO::File); + +@EXPORT = qw(_IOFBF _IOLBF _IONBF); + +@EXPORT_OK = qw( + pipe + + autoflush + output_field_separator + output_record_separator + input_record_separator + input_line_number + format_page_number + format_lines_per_page + format_lines_left + format_name + format_top_name + format_line_break_characters + format_formfeed + + print + printf + getline + getlines +); + +# +# Everything we're willing to export, we must first import. +# +import IO::Handle grep { !defined(&$_) } @EXPORT, @EXPORT_OK; + +# +# Some people call "FileHandle::function", so all the functions +# that were in the old FileHandle class must be imported, too. +# +{ + no strict 'refs'; + + my %import = ( + 'IO::Handle' => + [qw(DESTROY new_from_fd fdopen close fileno getc ungetc gets + eof flush error clearerr setbuf setvbuf _open_mode_string)], + 'IO::Seekable' => + [qw(seek tell getpos setpos)], + 'IO::File' => + [qw(new new_tmpfile open)] + ); + for my $pkg (keys %import) { + for my $func (@{$import{$pkg}}) { + my $c = *{"${pkg}::$func"}{CODE} + or die "${pkg}::$func missing"; + *$func = $c; + } + } +} + +# +# Specialized importer for Fcntl magic. +# +sub import { + my $pkg = shift; + my $callpkg = caller; + require Exporter; + Exporter::export($pkg, $callpkg, @_); + + # + # If the Fcntl extension is available, + # export its constants. + # + eval { + require Fcntl; + Exporter::export('Fcntl', $callpkg); + }; +} + +################################################ +# This is the only exported function we define; +# the rest come from other classes. +# + +sub pipe { + my $r = new IO::Handle; + my $w = new IO::Handle; + CORE::pipe($r, $w) or return undef; + ($r, $w); +} + +# Rebless standard file handles +bless *STDIN{IO}, "FileHandle" if ref *STDIN{IO} eq "IO::Handle"; +bless *STDOUT{IO}, "FileHandle" if ref *STDOUT{IO} eq "IO::Handle"; +bless *STDERR{IO}, "FileHandle" if ref *STDERR{IO} eq "IO::Handle"; + +1; + +__END__ + diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/Getopt/Long.pm b/beagle/debian-rfs/usr/share/perl/5.10.1/Getopt/Long.pm new file mode 100644 index 0000000..4574d46 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/Getopt/Long.pm @@ -0,0 +1,1495 @@ +# Getopt::Long.pm -- Universal options parsing + +package Getopt::Long; + +# RCS Status : $Id: Long.pm,v 2.76 2009/03/30 20:54:30 jv Exp $ +# Author : Johan Vromans +# Created On : Tue Sep 11 15:00:12 1990 +# Last Modified By: Johan Vromans +# Last Modified On: Mon Mar 30 22:51:17 2009 +# Update Count : 1601 +# Status : Released + +################ Module Preamble ################ + +use 5.004; + +use strict; + +use vars qw($VERSION); +$VERSION = 2.38; +# For testing versions only. +#use vars qw($VERSION_STRING); +#$VERSION_STRING = "2.38"; + +use Exporter; +use vars qw(@ISA @EXPORT @EXPORT_OK); +@ISA = qw(Exporter); + +# Exported subroutines. +sub GetOptions(@); # always +sub GetOptionsFromArray(@); # on demand +sub GetOptionsFromString(@); # on demand +sub Configure(@); # on demand +sub HelpMessage(@); # on demand +sub VersionMessage(@); # in demand + +BEGIN { + # Init immediately so their contents can be used in the 'use vars' below. + @EXPORT = qw(&GetOptions $REQUIRE_ORDER $PERMUTE $RETURN_IN_ORDER); + @EXPORT_OK = qw(&HelpMessage &VersionMessage &Configure + &GetOptionsFromArray &GetOptionsFromString); +} + +# User visible variables. +use vars @EXPORT, @EXPORT_OK; +use vars qw($error $debug $major_version $minor_version); +# Deprecated visible variables. +use vars qw($autoabbrev $getopt_compat $ignorecase $bundling $order + $passthrough); +# Official invisible variables. +use vars qw($genprefix $caller $gnu_compat $auto_help $auto_version $longprefix); + +# Public subroutines. +sub config(@); # deprecated name + +# Private subroutines. +sub ConfigDefaults(); +sub ParseOptionSpec($$); +sub OptCtl($); +sub FindOption($$$$$); +sub ValidValue ($$$$$); + +################ Local Variables ################ + +# $requested_version holds the version that was mentioned in the 'use' +# or 'require', if any. It can be used to enable or disable specific +# features. +my $requested_version = 0; + +################ Resident subroutines ################ + +sub ConfigDefaults() { + # Handle POSIX compliancy. + if ( defined $ENV{"POSIXLY_CORRECT"} ) { + $genprefix = "(--|-)"; + $autoabbrev = 0; # no automatic abbrev of options + $bundling = 0; # no bundling of single letter switches + $getopt_compat = 0; # disallow '+' to start options + $order = $REQUIRE_ORDER; + } + else { + $genprefix = "(--|-|\\+)"; + $autoabbrev = 1; # automatic abbrev of options + $bundling = 0; # bundling off by default + $getopt_compat = 1; # allow '+' to start options + $order = $PERMUTE; + } + # Other configurable settings. + $debug = 0; # for debugging + $error = 0; # error tally + $ignorecase = 1; # ignore case when matching options + $passthrough = 0; # leave unrecognized options alone + $gnu_compat = 0; # require --opt=val if value is optional + $longprefix = "(--)"; # what does a long prefix look like +} + +# Override import. +sub import { + my $pkg = shift; # package + my @syms = (); # symbols to import + my @config = (); # configuration + my $dest = \@syms; # symbols first + for ( @_ ) { + if ( $_ eq ':config' ) { + $dest = \@config; # config next + next; + } + push(@$dest, $_); # push + } + # Hide one level and call super. + local $Exporter::ExportLevel = 1; + push(@syms, qw(&GetOptions)) if @syms; # always export GetOptions + $pkg->SUPER::import(@syms); + # And configure. + Configure(@config) if @config; +} + +################ Initialization ################ + +# Values for $order. See GNU getopt.c for details. +($REQUIRE_ORDER, $PERMUTE, $RETURN_IN_ORDER) = (0..2); +# Version major/minor numbers. +($major_version, $minor_version) = $VERSION =~ /^(\d+)\.(\d+)/; + +ConfigDefaults(); + +################ OO Interface ################ + +package Getopt::Long::Parser; + +# Store a copy of the default configuration. Since ConfigDefaults has +# just been called, what we get from Configure is the default. +my $default_config = do { + Getopt::Long::Configure () +}; + +sub new { + my $that = shift; + my $class = ref($that) || $that; + my %atts = @_; + + # Register the callers package. + my $self = { caller_pkg => (caller)[0] }; + + bless ($self, $class); + + # Process config attributes. + if ( defined $atts{config} ) { + my $save = Getopt::Long::Configure ($default_config, @{$atts{config}}); + $self->{settings} = Getopt::Long::Configure ($save); + delete ($atts{config}); + } + # Else use default config. + else { + $self->{settings} = $default_config; + } + + if ( %atts ) { # Oops + die(__PACKAGE__.": unhandled attributes: ". + join(" ", sort(keys(%atts)))."\n"); + } + + $self; +} + +sub configure { + my ($self) = shift; + + # Restore settings, merge new settings in. + my $save = Getopt::Long::Configure ($self->{settings}, @_); + + # Restore orig config and save the new config. + $self->{settings} = Getopt::Long::Configure ($save); +} + +sub getoptions { + my ($self) = shift; + + # Restore config settings. + my $save = Getopt::Long::Configure ($self->{settings}); + + # Call main routine. + my $ret = 0; + $Getopt::Long::caller = $self->{caller_pkg}; + + eval { + # Locally set exception handler to default, otherwise it will + # be called implicitly here, and again explicitly when we try + # to deliver the messages. + local ($SIG{__DIE__}) = 'DEFAULT'; + $ret = Getopt::Long::GetOptions (@_); + }; + + # Restore saved settings. + Getopt::Long::Configure ($save); + + # Handle errors and return value. + die ($@) if $@; + return $ret; +} + +package Getopt::Long; + +################ Back to Normal ################ + +# Indices in option control info. +# Note that ParseOptions uses the fields directly. Search for 'hard-wired'. +use constant CTL_TYPE => 0; +#use constant CTL_TYPE_FLAG => ''; +#use constant CTL_TYPE_NEG => '!'; +#use constant CTL_TYPE_INCR => '+'; +#use constant CTL_TYPE_INT => 'i'; +#use constant CTL_TYPE_INTINC => 'I'; +#use constant CTL_TYPE_XINT => 'o'; +#use constant CTL_TYPE_FLOAT => 'f'; +#use constant CTL_TYPE_STRING => 's'; + +use constant CTL_CNAME => 1; + +use constant CTL_DEFAULT => 2; + +use constant CTL_DEST => 3; + use constant CTL_DEST_SCALAR => 0; + use constant CTL_DEST_ARRAY => 1; + use constant CTL_DEST_HASH => 2; + use constant CTL_DEST_CODE => 3; + +use constant CTL_AMIN => 4; +use constant CTL_AMAX => 5; + +# FFU. +#use constant CTL_RANGE => ; +#use constant CTL_REPEAT => ; + +# Rather liberal patterns to match numbers. +use constant PAT_INT => "[-+]?_*[0-9][0-9_]*"; +use constant PAT_XINT => + "(?:". + "[-+]?_*[1-9][0-9_]*". + "|". + "0x_*[0-9a-f][0-9a-f_]*". + "|". + "0b_*[01][01_]*". + "|". + "0[0-7_]*". + ")"; +use constant PAT_FLOAT => "[-+]?[0-9._]+(\.[0-9_]+)?([eE][-+]?[0-9_]+)?"; + +sub GetOptions(@) { + # Shift in default array. + unshift(@_, \@ARGV); + # Try to keep caller() and Carp consitent. + goto &GetOptionsFromArray; +} + +sub GetOptionsFromString(@) { + my ($string) = shift; + require Text::ParseWords; + my $args = [ Text::ParseWords::shellwords($string) ]; + $caller ||= (caller)[0]; # current context + my $ret = GetOptionsFromArray($args, @_); + return ( $ret, $args ) if wantarray; + if ( @$args ) { + $ret = 0; + warn("GetOptionsFromString: Excess data \"@$args\" in string \"$string\"\n"); + } + $ret; +} + +sub GetOptionsFromArray(@) { + + my ($argv, @optionlist) = @_; # local copy of the option descriptions + my $argend = '--'; # option list terminator + my %opctl = (); # table of option specs + my $pkg = $caller || (caller)[0]; # current context + # Needed if linkage is omitted. + my @ret = (); # accum for non-options + my %linkage; # linkage + my $userlinkage; # user supplied HASH + my $opt; # current option + my $prefix = $genprefix; # current prefix + + $error = ''; + + if ( $debug ) { + # Avoid some warnings if debugging. + local ($^W) = 0; + print STDERR + ("Getopt::Long $Getopt::Long::VERSION (", + '$Revision: 2.76 $', ") ", + "called from package \"$pkg\".", + "\n ", + "argv: (@$argv)", + "\n ", + "autoabbrev=$autoabbrev,". + "bundling=$bundling,", + "getopt_compat=$getopt_compat,", + "gnu_compat=$gnu_compat,", + "order=$order,", + "\n ", + "ignorecase=$ignorecase,", + "requested_version=$requested_version,", + "passthrough=$passthrough,", + "genprefix=\"$genprefix\",", + "longprefix=\"$longprefix\".", + "\n"); + } + + # Check for ref HASH as first argument. + # First argument may be an object. It's OK to use this as long + # as it is really a hash underneath. + $userlinkage = undef; + if ( @optionlist && ref($optionlist[0]) and + UNIVERSAL::isa($optionlist[0],'HASH') ) { + $userlinkage = shift (@optionlist); + print STDERR ("=> user linkage: $userlinkage\n") if $debug; + } + + # See if the first element of the optionlist contains option + # starter characters. + # Be careful not to interpret '<>' as option starters. + if ( @optionlist && $optionlist[0] =~ /^\W+$/ + && !($optionlist[0] eq '<>' + && @optionlist > 0 + && ref($optionlist[1])) ) { + $prefix = shift (@optionlist); + # Turn into regexp. Needs to be parenthesized! + $prefix =~ s/(\W)/\\$1/g; + $prefix = "([" . $prefix . "])"; + print STDERR ("=> prefix=\"$prefix\"\n") if $debug; + } + + # Verify correctness of optionlist. + %opctl = (); + while ( @optionlist ) { + my $opt = shift (@optionlist); + + unless ( defined($opt) ) { + $error .= "Undefined argument in option spec\n"; + next; + } + + # Strip leading prefix so people can specify "--foo=i" if they like. + $opt = $+ if $opt =~ /^$prefix+(.*)$/s; + + if ( $opt eq '<>' ) { + if ( (defined $userlinkage) + && !(@optionlist > 0 && ref($optionlist[0])) + && (exists $userlinkage->{$opt}) + && ref($userlinkage->{$opt}) ) { + unshift (@optionlist, $userlinkage->{$opt}); + } + unless ( @optionlist > 0 + && ref($optionlist[0]) && ref($optionlist[0]) eq 'CODE' ) { + $error .= "Option spec <> requires a reference to a subroutine\n"; + # Kill the linkage (to avoid another error). + shift (@optionlist) + if @optionlist && ref($optionlist[0]); + next; + } + $linkage{'<>'} = shift (@optionlist); + next; + } + + # Parse option spec. + my ($name, $orig) = ParseOptionSpec ($opt, \%opctl); + unless ( defined $name ) { + # Failed. $orig contains the error message. Sorry for the abuse. + $error .= $orig; + # Kill the linkage (to avoid another error). + shift (@optionlist) + if @optionlist && ref($optionlist[0]); + next; + } + + # If no linkage is supplied in the @optionlist, copy it from + # the userlinkage if available. + if ( defined $userlinkage ) { + unless ( @optionlist > 0 && ref($optionlist[0]) ) { + if ( exists $userlinkage->{$orig} && + ref($userlinkage->{$orig}) ) { + print STDERR ("=> found userlinkage for \"$orig\": ", + "$userlinkage->{$orig}\n") + if $debug; + unshift (@optionlist, $userlinkage->{$orig}); + } + else { + # Do nothing. Being undefined will be handled later. + next; + } + } + } + + # Copy the linkage. If omitted, link to global variable. + if ( @optionlist > 0 && ref($optionlist[0]) ) { + print STDERR ("=> link \"$orig\" to $optionlist[0]\n") + if $debug; + my $rl = ref($linkage{$orig} = shift (@optionlist)); + + if ( $rl eq "ARRAY" ) { + $opctl{$name}[CTL_DEST] = CTL_DEST_ARRAY; + } + elsif ( $rl eq "HASH" ) { + $opctl{$name}[CTL_DEST] = CTL_DEST_HASH; + } + elsif ( $rl eq "SCALAR" || $rl eq "REF" ) { +# if ( $opctl{$name}[CTL_DEST] == CTL_DEST_ARRAY ) { +# my $t = $linkage{$orig}; +# $$t = $linkage{$orig} = []; +# } +# elsif ( $opctl{$name}[CTL_DEST] == CTL_DEST_HASH ) { +# } +# else { + # Ok. +# } + } + elsif ( $rl eq "CODE" ) { + # Ok. + } + else { + $error .= "Invalid option linkage for \"$opt\"\n"; + } + } + else { + # Link to global $opt_XXX variable. + # Make sure a valid perl identifier results. + my $ov = $orig; + $ov =~ s/\W/_/g; + if ( $opctl{$name}[CTL_DEST] == CTL_DEST_ARRAY ) { + print STDERR ("=> link \"$orig\" to \@$pkg","::opt_$ov\n") + if $debug; + eval ("\$linkage{\$orig} = \\\@".$pkg."::opt_$ov;"); + } + elsif ( $opctl{$name}[CTL_DEST] == CTL_DEST_HASH ) { + print STDERR ("=> link \"$orig\" to \%$pkg","::opt_$ov\n") + if $debug; + eval ("\$linkage{\$orig} = \\\%".$pkg."::opt_$ov;"); + } + else { + print STDERR ("=> link \"$orig\" to \$$pkg","::opt_$ov\n") + if $debug; + eval ("\$linkage{\$orig} = \\\$".$pkg."::opt_$ov;"); + } + } + + if ( $opctl{$name}[CTL_TYPE] eq 'I' + && ( $opctl{$name}[CTL_DEST] == CTL_DEST_ARRAY + || $opctl{$name}[CTL_DEST] == CTL_DEST_HASH ) + ) { + $error .= "Invalid option linkage for \"$opt\"\n"; + } + + } + + # Bail out if errors found. + die ($error) if $error; + $error = 0; + + # Supply --version and --help support, if needed and allowed. + if ( defined($auto_version) ? $auto_version : ($requested_version >= 2.3203) ) { + if ( !defined($opctl{version}) ) { + $opctl{version} = ['','version',0,CTL_DEST_CODE,undef]; + $linkage{version} = \&VersionMessage; + } + $auto_version = 1; + } + if ( defined($auto_help) ? $auto_help : ($requested_version >= 2.3203) ) { + if ( !defined($opctl{help}) && !defined($opctl{'?'}) ) { + $opctl{help} = $opctl{'?'} = ['','help',0,CTL_DEST_CODE,undef]; + $linkage{help} = \&HelpMessage; + } + $auto_help = 1; + } + + # Show the options tables if debugging. + if ( $debug ) { + my ($arrow, $k, $v); + $arrow = "=> "; + while ( ($k,$v) = each(%opctl) ) { + print STDERR ($arrow, "\$opctl{$k} = $v ", OptCtl($v), "\n"); + $arrow = " "; + } + } + + # Process argument list + my $goon = 1; + while ( $goon && @$argv > 0 ) { + + # Get next argument. + $opt = shift (@$argv); + print STDERR ("=> arg \"", $opt, "\"\n") if $debug; + + # Double dash is option list terminator. + if ( $opt eq $argend ) { + push (@ret, $argend) if $passthrough; + last; + } + + # Look it up. + my $tryopt = $opt; + my $found; # success status + my $key; # key (if hash type) + my $arg; # option argument + my $ctl; # the opctl entry + + ($found, $opt, $ctl, $arg, $key) = + FindOption ($argv, $prefix, $argend, $opt, \%opctl); + + if ( $found ) { + + # FindOption undefines $opt in case of errors. + next unless defined $opt; + + my $argcnt = 0; + while ( defined $arg ) { + + # Get the canonical name. + print STDERR ("=> cname for \"$opt\" is ") if $debug; + $opt = $ctl->[CTL_CNAME]; + print STDERR ("\"$ctl->[CTL_CNAME]\"\n") if $debug; + + if ( defined $linkage{$opt} ) { + print STDERR ("=> ref(\$L{$opt}) -> ", + ref($linkage{$opt}), "\n") if $debug; + + if ( ref($linkage{$opt}) eq 'SCALAR' + || ref($linkage{$opt}) eq 'REF' ) { + if ( $ctl->[CTL_TYPE] eq '+' ) { + print STDERR ("=> \$\$L{$opt} += \"$arg\"\n") + if $debug; + if ( defined ${$linkage{$opt}} ) { + ${$linkage{$opt}} += $arg; + } + else { + ${$linkage{$opt}} = $arg; + } + } + elsif ( $ctl->[CTL_DEST] == CTL_DEST_ARRAY ) { + print STDERR ("=> ref(\$L{$opt}) auto-vivified", + " to ARRAY\n") + if $debug; + my $t = $linkage{$opt}; + $$t = $linkage{$opt} = []; + print STDERR ("=> push(\@{\$L{$opt}, \"$arg\")\n") + if $debug; + push (@{$linkage{$opt}}, $arg); + } + elsif ( $ctl->[CTL_DEST] == CTL_DEST_HASH ) { + print STDERR ("=> ref(\$L{$opt}) auto-vivified", + " to HASH\n") + if $debug; + my $t = $linkage{$opt}; + $$t = $linkage{$opt} = {}; + print STDERR ("=> \$\$L{$opt}->{$key} = \"$arg\"\n") + if $debug; + $linkage{$opt}->{$key} = $arg; + } + else { + print STDERR ("=> \$\$L{$opt} = \"$arg\"\n") + if $debug; + ${$linkage{$opt}} = $arg; + } + } + elsif ( ref($linkage{$opt}) eq 'ARRAY' ) { + print STDERR ("=> push(\@{\$L{$opt}, \"$arg\")\n") + if $debug; + push (@{$linkage{$opt}}, $arg); + } + elsif ( ref($linkage{$opt}) eq 'HASH' ) { + print STDERR ("=> \$\$L{$opt}->{$key} = \"$arg\"\n") + if $debug; + $linkage{$opt}->{$key} = $arg; + } + elsif ( ref($linkage{$opt}) eq 'CODE' ) { + print STDERR ("=> &L{$opt}(\"$opt\"", + $ctl->[CTL_DEST] == CTL_DEST_HASH ? ", \"$key\"" : "", + ", \"$arg\")\n") + if $debug; + my $eval_error = do { + local $@; + local $SIG{__DIE__} = 'DEFAULT'; + eval { + &{$linkage{$opt}} + (Getopt::Long::CallBack->new + (name => $opt, + ctl => $ctl, + opctl => \%opctl, + linkage => \%linkage, + prefix => $prefix, + ), + $ctl->[CTL_DEST] == CTL_DEST_HASH ? ($key) : (), + $arg); + }; + $@; + }; + print STDERR ("=> die($eval_error)\n") + if $debug && $eval_error ne ''; + if ( $eval_error =~ /^!/ ) { + if ( $eval_error =~ /^!FINISH\b/ ) { + $goon = 0; + } + } + elsif ( $eval_error ne '' ) { + warn ($eval_error); + $error++; + } + } + else { + print STDERR ("Invalid REF type \"", ref($linkage{$opt}), + "\" in linkage\n"); + die("Getopt::Long -- internal error!\n"); + } + } + # No entry in linkage means entry in userlinkage. + elsif ( $ctl->[CTL_DEST] == CTL_DEST_ARRAY ) { + if ( defined $userlinkage->{$opt} ) { + print STDERR ("=> push(\@{\$L{$opt}}, \"$arg\")\n") + if $debug; + push (@{$userlinkage->{$opt}}, $arg); + } + else { + print STDERR ("=>\$L{$opt} = [\"$arg\"]\n") + if $debug; + $userlinkage->{$opt} = [$arg]; + } + } + elsif ( $ctl->[CTL_DEST] == CTL_DEST_HASH ) { + if ( defined $userlinkage->{$opt} ) { + print STDERR ("=> \$L{$opt}->{$key} = \"$arg\"\n") + if $debug; + $userlinkage->{$opt}->{$key} = $arg; + } + else { + print STDERR ("=>\$L{$opt} = {$key => \"$arg\"}\n") + if $debug; + $userlinkage->{$opt} = {$key => $arg}; + } + } + else { + if ( $ctl->[CTL_TYPE] eq '+' ) { + print STDERR ("=> \$L{$opt} += \"$arg\"\n") + if $debug; + if ( defined $userlinkage->{$opt} ) { + $userlinkage->{$opt} += $arg; + } + else { + $userlinkage->{$opt} = $arg; + } + } + else { + print STDERR ("=>\$L{$opt} = \"$arg\"\n") if $debug; + $userlinkage->{$opt} = $arg; + } + } + + $argcnt++; + last if $argcnt >= $ctl->[CTL_AMAX] && $ctl->[CTL_AMAX] != -1; + undef($arg); + + # Need more args? + if ( $argcnt < $ctl->[CTL_AMIN] ) { + if ( @$argv ) { + if ( ValidValue($ctl, $argv->[0], 1, $argend, $prefix) ) { + $arg = shift(@$argv); + $arg =~ tr/_//d if $ctl->[CTL_TYPE] =~ /^[iIo]$/; + ($key,$arg) = $arg =~ /^([^=]+)=(.*)/ + if $ctl->[CTL_DEST] == CTL_DEST_HASH; + next; + } + warn("Value \"$$argv[0]\" invalid for option $opt\n"); + $error++; + } + else { + warn("Insufficient arguments for option $opt\n"); + $error++; + } + } + + # Any more args? + if ( @$argv && ValidValue($ctl, $argv->[0], 0, $argend, $prefix) ) { + $arg = shift(@$argv); + $arg =~ tr/_//d if $ctl->[CTL_TYPE] =~ /^[iIo]$/; + ($key,$arg) = $arg =~ /^([^=]+)=(.*)/ + if $ctl->[CTL_DEST] == CTL_DEST_HASH; + next; + } + } + } + + # Not an option. Save it if we $PERMUTE and don't have a <>. + elsif ( $order == $PERMUTE ) { + # Try non-options call-back. + my $cb; + if ( (defined ($cb = $linkage{'<>'})) ) { + print STDERR ("=> &L{$tryopt}(\"$tryopt\")\n") + if $debug; + my $eval_error = do { + local $@; + local $SIG{__DIE__} = 'DEFAULT'; + eval { + &$cb + (Getopt::Long::CallBack->new + (name => $tryopt, + ctl => $ctl, + opctl => \%opctl, + linkage => \%linkage, + prefix => $prefix, + )); + }; + $@; + }; + print STDERR ("=> die($eval_error)\n") + if $debug && $eval_error ne ''; + if ( $eval_error =~ /^!/ ) { + if ( $eval_error =~ /^!FINISH\b/ ) { + $goon = 0; + } + } + elsif ( $eval_error ne '' ) { + warn ($eval_error); + $error++; + } + } + else { + print STDERR ("=> saving \"$tryopt\" ", + "(not an option, may permute)\n") if $debug; + push (@ret, $tryopt); + } + next; + } + + # ...otherwise, terminate. + else { + # Push this one back and exit. + unshift (@$argv, $tryopt); + return ($error == 0); + } + + } + + # Finish. + if ( @ret && $order == $PERMUTE ) { + # Push back accumulated arguments + print STDERR ("=> restoring \"", join('" "', @ret), "\"\n") + if $debug; + unshift (@$argv, @ret); + } + + return ($error == 0); +} + +# A readable representation of what's in an optbl. +sub OptCtl ($) { + my ($v) = @_; + my @v = map { defined($_) ? ($_) : ("<undef>") } @$v; + "[". + join(",", + "\"$v[CTL_TYPE]\"", + "\"$v[CTL_CNAME]\"", + "\"$v[CTL_DEFAULT]\"", + ("\$","\@","\%","\&")[$v[CTL_DEST] || 0], + $v[CTL_AMIN] || '', + $v[CTL_AMAX] || '', +# $v[CTL_RANGE] || '', +# $v[CTL_REPEAT] || '', + ). "]"; +} + +# Parse an option specification and fill the tables. +sub ParseOptionSpec ($$) { + my ($opt, $opctl) = @_; + + # Match option spec. + if ( $opt !~ m;^ + ( + # Option name + (?: \w+[-\w]* ) + # Alias names, or "?" + (?: \| (?: \? | \w[-\w]* ) )* + )? + ( + # Either modifiers ... + [!+] + | + # ... or a value/dest/repeat specification + [=:] [ionfs] [@%]? (?: \{\d*,?\d*\} )? + | + # ... or an optional-with-default spec + : (?: -?\d+ | \+ ) [@%]? + )? + $;x ) { + return (undef, "Error in option spec: \"$opt\"\n"); + } + + my ($names, $spec) = ($1, $2); + $spec = '' unless defined $spec; + + # $orig keeps track of the primary name the user specified. + # This name will be used for the internal or external linkage. + # In other words, if the user specifies "FoO|BaR", it will + # match any case combinations of 'foo' and 'bar', but if a global + # variable needs to be set, it will be $opt_FoO in the exact case + # as specified. + my $orig; + + my @names; + if ( defined $names ) { + @names = split (/\|/, $names); + $orig = $names[0]; + } + else { + @names = (''); + $orig = ''; + } + + # Construct the opctl entries. + my $entry; + if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) { + # Fields are hard-wired here. + $entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0]; + } + elsif ( $spec =~ /^:(-?\d+|\+)([@%])?$/ ) { + my $def = $1; + my $dest = $2; + my $type = $def eq '+' ? 'I' : 'i'; + $dest ||= '$'; + $dest = $dest eq '@' ? CTL_DEST_ARRAY + : $dest eq '%' ? CTL_DEST_HASH : CTL_DEST_SCALAR; + # Fields are hard-wired here. + $entry = [$type,$orig,$def eq '+' ? undef : $def, + $dest,0,1]; + } + else { + my ($mand, $type, $dest) = + $spec =~ /^([=:])([ionfs])([@%])?(\{(\d+)?(,)?(\d+)?\})?$/; + return (undef, "Cannot repeat while bundling: \"$opt\"\n") + if $bundling && defined($4); + my ($mi, $cm, $ma) = ($5, $6, $7); + return (undef, "{0} is useless in option spec: \"$opt\"\n") + if defined($mi) && !$mi && !defined($ma) && !defined($cm); + + $type = 'i' if $type eq 'n'; + $dest ||= '$'; + $dest = $dest eq '@' ? CTL_DEST_ARRAY + : $dest eq '%' ? CTL_DEST_HASH : CTL_DEST_SCALAR; + # Default minargs to 1/0 depending on mand status. + $mi = $mand eq '=' ? 1 : 0 unless defined $mi; + # Adjust mand status according to minargs. + $mand = $mi ? '=' : ':'; + # Adjust maxargs. + $ma = $mi ? $mi : 1 unless defined $ma || defined $cm; + return (undef, "Max must be greater than zero in option spec: \"$opt\"\n") + if defined($ma) && !$ma; + return (undef, "Max less than min in option spec: \"$opt\"\n") + if defined($ma) && $ma < $mi; + + # Fields are hard-wired here. + $entry = [$type,$orig,undef,$dest,$mi,$ma||-1]; + } + + # Process all names. First is canonical, the rest are aliases. + my $dups = ''; + foreach ( @names ) { + + $_ = lc ($_) + if $ignorecase > (($bundling && length($_) == 1) ? 1 : 0); + + if ( exists $opctl->{$_} ) { + $dups .= "Duplicate specification \"$opt\" for option \"$_\"\n"; + } + + if ( $spec eq '!' ) { + $opctl->{"no$_"} = $entry; + $opctl->{"no-$_"} = $entry; + $opctl->{$_} = [@$entry]; + $opctl->{$_}->[CTL_TYPE] = ''; + } + else { + $opctl->{$_} = $entry; + } + } + + if ( $dups && $^W ) { + foreach ( split(/\n+/, $dups) ) { + warn($_."\n"); + } + } + ($names[0], $orig); +} + +# Option lookup. +sub FindOption ($$$$$) { + + # returns (1, $opt, $ctl, $arg, $key) if okay, + # returns (1, undef) if option in error, + # returns (0) otherwise. + + my ($argv, $prefix, $argend, $opt, $opctl) = @_; + + print STDERR ("=> find \"$opt\"\n") if $debug; + + return (0) unless $opt =~ /^$prefix(.*)$/s; + return (0) if $opt eq "-" && !defined $opctl->{''}; + + $opt = $+; + my $starter = $1; + + print STDERR ("=> split \"$starter\"+\"$opt\"\n") if $debug; + + my $optarg; # value supplied with --opt=value + my $rest; # remainder from unbundling + + # If it is a long option, it may include the value. + # With getopt_compat, only if not bundling. + if ( ($starter=~/^$longprefix$/ + || ($getopt_compat && ($bundling == 0 || $bundling == 2))) + && $opt =~ /^([^=]+)=(.*)$/s ) { + $opt = $1; + $optarg = $2; + print STDERR ("=> option \"", $opt, + "\", optarg = \"$optarg\"\n") if $debug; + } + + #### Look it up ### + + my $tryopt = $opt; # option to try + + if ( $bundling && $starter eq '-' ) { + + # To try overrides, obey case ignore. + $tryopt = $ignorecase ? lc($opt) : $opt; + + # If bundling == 2, long options can override bundles. + if ( $bundling == 2 && length($tryopt) > 1 + && defined ($opctl->{$tryopt}) ) { + print STDERR ("=> $starter$tryopt overrides unbundling\n") + if $debug; + } + else { + $tryopt = $opt; + # Unbundle single letter option. + $rest = length ($tryopt) > 0 ? substr ($tryopt, 1) : ''; + $tryopt = substr ($tryopt, 0, 1); + $tryopt = lc ($tryopt) if $ignorecase > 1; + print STDERR ("=> $starter$tryopt unbundled from ", + "$starter$tryopt$rest\n") if $debug; + $rest = undef unless $rest ne ''; + } + } + + # Try auto-abbreviation. + elsif ( $autoabbrev && $opt ne "" ) { + # Sort the possible long option names. + my @names = sort(keys (%$opctl)); + # Downcase if allowed. + $opt = lc ($opt) if $ignorecase; + $tryopt = $opt; + # Turn option name into pattern. + my $pat = quotemeta ($opt); + # Look up in option names. + my @hits = grep (/^$pat/, @names); + print STDERR ("=> ", scalar(@hits), " hits (@hits) with \"$pat\" ", + "out of ", scalar(@names), "\n") if $debug; + + # Check for ambiguous results. + unless ( (@hits <= 1) || (grep ($_ eq $opt, @hits) == 1) ) { + # See if all matches are for the same option. + my %hit; + foreach ( @hits ) { + my $hit = $_; + $hit = $opctl->{$hit}->[CTL_CNAME] + if defined $opctl->{$hit}->[CTL_CNAME]; + $hit{$hit} = 1; + } + # Remove auto-supplied options (version, help). + if ( keys(%hit) == 2 ) { + if ( $auto_version && exists($hit{version}) ) { + delete $hit{version}; + } + elsif ( $auto_help && exists($hit{help}) ) { + delete $hit{help}; + } + } + # Now see if it really is ambiguous. + unless ( keys(%hit) == 1 ) { + return (0) if $passthrough; + warn ("Option ", $opt, " is ambiguous (", + join(", ", @hits), ")\n"); + $error++; + return (1, undef); + } + @hits = keys(%hit); + } + + # Complete the option name, if appropriate. + if ( @hits == 1 && $hits[0] ne $opt ) { + $tryopt = $hits[0]; + $tryopt = lc ($tryopt) if $ignorecase; + print STDERR ("=> option \"$opt\" -> \"$tryopt\"\n") + if $debug; + } + } + + # Map to all lowercase if ignoring case. + elsif ( $ignorecase ) { + $tryopt = lc ($opt); + } + + # Check validity by fetching the info. + my $ctl = $opctl->{$tryopt}; + unless ( defined $ctl ) { + return (0) if $passthrough; + # Pretend one char when bundling. + if ( $bundling == 1 && length($starter) == 1 ) { + $opt = substr($opt,0,1); + unshift (@$argv, $starter.$rest) if defined $rest; + } + if ( $opt eq "" ) { + warn ("Missing option after ", $starter, "\n"); + } + else { + warn ("Unknown option: ", $opt, "\n"); + } + $error++; + return (1, undef); + } + # Apparently valid. + $opt = $tryopt; + print STDERR ("=> found ", OptCtl($ctl), + " for \"", $opt, "\"\n") if $debug; + + #### Determine argument status #### + + # If it is an option w/o argument, we're almost finished with it. + my $type = $ctl->[CTL_TYPE]; + my $arg; + + if ( $type eq '' || $type eq '!' || $type eq '+' ) { + if ( defined $optarg ) { + return (0) if $passthrough; + warn ("Option ", $opt, " does not take an argument\n"); + $error++; + undef $opt; + } + elsif ( $type eq '' || $type eq '+' ) { + # Supply explicit value. + $arg = 1; + } + else { + $opt =~ s/^no-?//i; # strip NO prefix + $arg = 0; # supply explicit value + } + unshift (@$argv, $starter.$rest) if defined $rest; + return (1, $opt, $ctl, $arg); + } + + # Get mandatory status and type info. + my $mand = $ctl->[CTL_AMIN]; + + # Check if there is an option argument available. + if ( $gnu_compat && defined $optarg && $optarg eq '' ) { + return (1, $opt, $ctl, $type eq 's' ? '' : 0) ;#unless $mand; + $optarg = 0 unless $type eq 's'; + } + + # Check if there is an option argument available. + if ( defined $optarg + ? ($optarg eq '') + : !(defined $rest || @$argv > 0) ) { + # Complain if this option needs an argument. +# if ( $mand && !($type eq 's' ? defined($optarg) : 0) ) { + if ( $mand ) { + return (0) if $passthrough; + warn ("Option ", $opt, " requires an argument\n"); + $error++; + return (1, undef); + } + if ( $type eq 'I' ) { + # Fake incremental type. + my @c = @$ctl; + $c[CTL_TYPE] = '+'; + return (1, $opt, \@c, 1); + } + return (1, $opt, $ctl, + defined($ctl->[CTL_DEFAULT]) ? $ctl->[CTL_DEFAULT] : + $type eq 's' ? '' : 0); + } + + # Get (possibly optional) argument. + $arg = (defined $rest ? $rest + : (defined $optarg ? $optarg : shift (@$argv))); + + # Get key if this is a "name=value" pair for a hash option. + my $key; + if ($ctl->[CTL_DEST] == CTL_DEST_HASH && defined $arg) { + ($key, $arg) = ($arg =~ /^([^=]*)=(.*)$/s) ? ($1, $2) + : ($arg, defined($ctl->[CTL_DEFAULT]) ? $ctl->[CTL_DEFAULT] : + ($mand ? undef : ($type eq 's' ? "" : 1))); + if (! defined $arg) { + warn ("Option $opt, key \"$key\", requires a value\n"); + $error++; + # Push back. + unshift (@$argv, $starter.$rest) if defined $rest; + return (1, undef); + } + } + + #### Check if the argument is valid for this option #### + + my $key_valid = $ctl->[CTL_DEST] == CTL_DEST_HASH ? "[^=]+=" : ""; + + if ( $type eq 's' ) { # string + # A mandatory string takes anything. + return (1, $opt, $ctl, $arg, $key) if $mand; + + # Same for optional string as a hash value + return (1, $opt, $ctl, $arg, $key) + if $ctl->[CTL_DEST] == CTL_DEST_HASH; + + # An optional string takes almost anything. + return (1, $opt, $ctl, $arg, $key) + if defined $optarg || defined $rest; + return (1, $opt, $ctl, $arg, $key) if $arg eq "-"; # ?? + + # Check for option or option list terminator. + if ($arg eq $argend || + $arg =~ /^$prefix.+/) { + # Push back. + unshift (@$argv, $arg); + # Supply empty value. + $arg = ''; + } + } + + elsif ( $type eq 'i' # numeric/integer + || $type eq 'I' # numeric/integer w/ incr default + || $type eq 'o' ) { # dec/oct/hex/bin value + + my $o_valid = $type eq 'o' ? PAT_XINT : PAT_INT; + + if ( $bundling && defined $rest + && $rest =~ /^($key_valid)($o_valid)(.*)$/si ) { + ($key, $arg, $rest) = ($1, $2, $+); + chop($key) if $key; + $arg = ($type eq 'o' && $arg =~ /^0/) ? oct($arg) : 0+$arg; + unshift (@$argv, $starter.$rest) if defined $rest && $rest ne ''; + } + elsif ( $arg =~ /^$o_valid$/si ) { + $arg =~ tr/_//d; + $arg = ($type eq 'o' && $arg =~ /^0/) ? oct($arg) : 0+$arg; + } + else { + if ( defined $optarg || $mand ) { + if ( $passthrough ) { + unshift (@$argv, defined $rest ? $starter.$rest : $arg) + unless defined $optarg; + return (0); + } + warn ("Value \"", $arg, "\" invalid for option ", + $opt, " (", + $type eq 'o' ? "extended " : '', + "number expected)\n"); + $error++; + # Push back. + unshift (@$argv, $starter.$rest) if defined $rest; + return (1, undef); + } + else { + # Push back. + unshift (@$argv, defined $rest ? $starter.$rest : $arg); + if ( $type eq 'I' ) { + # Fake incremental type. + my @c = @$ctl; + $c[CTL_TYPE] = '+'; + return (1, $opt, \@c, 1); + } + # Supply default value. + $arg = defined($ctl->[CTL_DEFAULT]) ? $ctl->[CTL_DEFAULT] : 0; + } + } + } + + elsif ( $type eq 'f' ) { # real number, int is also ok + # We require at least one digit before a point or 'e', + # and at least one digit following the point and 'e'. + # [-]NN[.NN][eNN] + my $o_valid = PAT_FLOAT; + if ( $bundling && defined $rest && + $rest =~ /^($key_valid)($o_valid)(.*)$/s ) { + $arg =~ tr/_//d; + ($key, $arg, $rest) = ($1, $2, $+); + chop($key) if $key; + unshift (@$argv, $starter.$rest) if defined $rest && $rest ne ''; + } + elsif ( $arg =~ /^$o_valid$/ ) { + $arg =~ tr/_//d; + } + else { + if ( defined $optarg || $mand ) { + if ( $passthrough ) { + unshift (@$argv, defined $rest ? $starter.$rest : $arg) + unless defined $optarg; + return (0); + } + warn ("Value \"", $arg, "\" invalid for option ", + $opt, " (real number expected)\n"); + $error++; + # Push back. + unshift (@$argv, $starter.$rest) if defined $rest; + return (1, undef); + } + else { + # Push back. + unshift (@$argv, defined $rest ? $starter.$rest : $arg); + # Supply default value. + $arg = 0.0; + } + } + } + else { + die("Getopt::Long internal error (Can't happen)\n"); + } + return (1, $opt, $ctl, $arg, $key); +} + +sub ValidValue ($$$$$) { + my ($ctl, $arg, $mand, $argend, $prefix) = @_; + + if ( $ctl->[CTL_DEST] == CTL_DEST_HASH ) { + return 0 unless $arg =~ /[^=]+=(.*)/; + $arg = $1; + } + + my $type = $ctl->[CTL_TYPE]; + + if ( $type eq 's' ) { # string + # A mandatory string takes anything. + return (1) if $mand; + + return (1) if $arg eq "-"; + + # Check for option or option list terminator. + return 0 if $arg eq $argend || $arg =~ /^$prefix.+/; + return 1; + } + + elsif ( $type eq 'i' # numeric/integer + || $type eq 'I' # numeric/integer w/ incr default + || $type eq 'o' ) { # dec/oct/hex/bin value + + my $o_valid = $type eq 'o' ? PAT_XINT : PAT_INT; + return $arg =~ /^$o_valid$/si; + } + + elsif ( $type eq 'f' ) { # real number, int is also ok + # We require at least one digit before a point or 'e', + # and at least one digit following the point and 'e'. + # [-]NN[.NN][eNN] + my $o_valid = PAT_FLOAT; + return $arg =~ /^$o_valid$/; + } + die("ValidValue: Cannot happen\n"); +} + +# Getopt::Long Configuration. +sub Configure (@) { + my (@options) = @_; + + my $prevconfig = + [ $error, $debug, $major_version, $minor_version, + $autoabbrev, $getopt_compat, $ignorecase, $bundling, $order, + $gnu_compat, $passthrough, $genprefix, $auto_version, $auto_help, + $longprefix ]; + + if ( ref($options[0]) eq 'ARRAY' ) { + ( $error, $debug, $major_version, $minor_version, + $autoabbrev, $getopt_compat, $ignorecase, $bundling, $order, + $gnu_compat, $passthrough, $genprefix, $auto_version, $auto_help, + $longprefix ) = @{shift(@options)}; + } + + my $opt; + foreach $opt ( @options ) { + my $try = lc ($opt); + my $action = 1; + if ( $try =~ /^no_?(.*)$/s ) { + $action = 0; + $try = $+; + } + if ( ($try eq 'default' or $try eq 'defaults') && $action ) { + ConfigDefaults (); + } + elsif ( ($try eq 'posix_default' or $try eq 'posix_defaults') ) { + local $ENV{POSIXLY_CORRECT}; + $ENV{POSIXLY_CORRECT} = 1 if $action; + ConfigDefaults (); + } + elsif ( $try eq 'auto_abbrev' or $try eq 'autoabbrev' ) { + $autoabbrev = $action; + } + elsif ( $try eq 'getopt_compat' ) { + $getopt_compat = $action; + $genprefix = $action ? "(--|-|\\+)" : "(--|-)"; + } + elsif ( $try eq 'gnu_getopt' ) { + if ( $action ) { + $gnu_compat = 1; + $bundling = 1; + $getopt_compat = 0; + $genprefix = "(--|-)"; + $order = $PERMUTE; + } + } + elsif ( $try eq 'gnu_compat' ) { + $gnu_compat = $action; + } + elsif ( $try =~ /^(auto_?)?version$/ ) { + $auto_version = $action; + } + elsif ( $try =~ /^(auto_?)?help$/ ) { + $auto_help = $action; + } + elsif ( $try eq 'ignorecase' or $try eq 'ignore_case' ) { + $ignorecase = $action; + } + elsif ( $try eq 'ignorecase_always' or $try eq 'ignore_case_always' ) { + $ignorecase = $action ? 2 : 0; + } + elsif ( $try eq 'bundling' ) { + $bundling = $action; + } + elsif ( $try eq 'bundling_override' ) { + $bundling = $action ? 2 : 0; + } + elsif ( $try eq 'require_order' ) { + $order = $action ? $REQUIRE_ORDER : $PERMUTE; + } + elsif ( $try eq 'permute' ) { + $order = $action ? $PERMUTE : $REQUIRE_ORDER; + } + elsif ( $try eq 'pass_through' or $try eq 'passthrough' ) { + $passthrough = $action; + } + elsif ( $try =~ /^prefix=(.+)$/ && $action ) { + $genprefix = $1; + # Turn into regexp. Needs to be parenthesized! + $genprefix = "(" . quotemeta($genprefix) . ")"; + eval { '' =~ /$genprefix/; }; + die("Getopt::Long: invalid pattern \"$genprefix\"") if $@; + } + elsif ( $try =~ /^prefix_pattern=(.+)$/ && $action ) { + $genprefix = $1; + # Parenthesize if needed. + $genprefix = "(" . $genprefix . ")" + unless $genprefix =~ /^\(.*\)$/; + eval { '' =~ m"$genprefix"; }; + die("Getopt::Long: invalid pattern \"$genprefix\"") if $@; + } + elsif ( $try =~ /^long_prefix_pattern=(.+)$/ && $action ) { + $longprefix = $1; + # Parenthesize if needed. + $longprefix = "(" . $longprefix . ")" + unless $longprefix =~ /^\(.*\)$/; + eval { '' =~ m"$longprefix"; }; + die("Getopt::Long: invalid long prefix pattern \"$longprefix\"") if $@; + } + elsif ( $try eq 'debug' ) { + $debug = $action; + } + else { + die("Getopt::Long: unknown config parameter \"$opt\"") + } + } + $prevconfig; +} + +# Deprecated name. +sub config (@) { + Configure (@_); +} + +# Issue a standard message for --version. +# +# The arguments are mostly the same as for Pod::Usage::pod2usage: +# +# - a number (exit value) +# - a string (lead in message) +# - a hash with options. See Pod::Usage for details. +# +sub VersionMessage(@) { + # Massage args. + my $pa = setup_pa_args("version", @_); + + my $v = $main::VERSION; + my $fh = $pa->{-output} || + ($pa->{-exitval} eq "NOEXIT" || $pa->{-exitval} < 2) ? \*STDOUT : \*STDERR; + + print $fh (defined($pa->{-message}) ? $pa->{-message} : (), + $0, defined $v ? " version $v" : (), + "\n", + "(", __PACKAGE__, "::", "GetOptions", + " version ", + defined($Getopt::Long::VERSION_STRING) + ? $Getopt::Long::VERSION_STRING : $VERSION, ";", + " Perl version ", + $] >= 5.006 ? sprintf("%vd", $^V) : $], + ")\n"); + exit($pa->{-exitval}) unless $pa->{-exitval} eq "NOEXIT"; +} + +# Issue a standard message for --help. +# +# The arguments are the same as for Pod::Usage::pod2usage: +# +# - a number (exit value) +# - a string (lead in message) +# - a hash with options. See Pod::Usage for details. +# +sub HelpMessage(@) { + eval { + require Pod::Usage; + import Pod::Usage; + 1; + } || die("Cannot provide help: cannot load Pod::Usage\n"); + + # Note that pod2usage will issue a warning if -exitval => NOEXIT. + pod2usage(setup_pa_args("help", @_)); + +} + +# Helper routine to set up a normalized hash ref to be used as +# argument to pod2usage. +sub setup_pa_args($@) { + my $tag = shift; # who's calling + + # If called by direct binding to an option, it will get the option + # name and value as arguments. Remove these, if so. + @_ = () if @_ == 2 && $_[0] eq $tag; + + my $pa; + if ( @_ > 1 ) { + $pa = { @_ }; + } + else { + $pa = shift || {}; + } + + # At this point, $pa can be a number (exit value), string + # (message) or hash with options. + + if ( UNIVERSAL::isa($pa, 'HASH') ) { + # Get rid of -msg vs. -message ambiguity. + $pa->{-message} = $pa->{-msg}; + delete($pa->{-msg}); + } + elsif ( $pa =~ /^-?\d+$/ ) { + $pa = { -exitval => $pa }; + } + else { + $pa = { -message => $pa }; + } + + # These are _our_ defaults. + $pa->{-verbose} = 0 unless exists($pa->{-verbose}); + $pa->{-exitval} = 0 unless exists($pa->{-exitval}); + $pa; +} + +# Sneak way to know what version the user requested. +sub VERSION { + $requested_version = $_[1]; + shift->SUPER::VERSION(@_); +} + +package Getopt::Long::CallBack; + +sub new { + my ($pkg, %atts) = @_; + bless { %atts }, $pkg; +} + +sub name { + my $self = shift; + ''.$self->{name}; +} + +use overload + # Treat this object as an ordinary string for legacy API. + '""' => \&name, + fallback => 1; + +1; + +################ Documentation ################ + diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/IPC/Open2.pm b/beagle/debian-rfs/usr/share/perl/5.10.1/IPC/Open2.pm new file mode 100644 index 0000000..358a21e --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/IPC/Open2.pm @@ -0,0 +1,39 @@ +package IPC::Open2; + +use strict; +our ($VERSION, @ISA, @EXPORT); + +require 5.000; +require Exporter; + +$VERSION = 1.03; +@ISA = qw(Exporter); +@EXPORT = qw(open2); + +# &open2: tom christiansen, <tchrist@convex.com> +# +# usage: $pid = open2('rdr', 'wtr', 'some cmd and args'); +# or $pid = open2('rdr', 'wtr', 'some', 'cmd', 'and', 'args'); +# +# spawn the given $cmd and connect $rdr for +# reading and $wtr for writing. return pid +# of child, or 0 on failure. +# +# WARNING: this is dangerous, as you may block forever +# unless you are very careful. +# +# $wtr is left unbuffered. +# +# abort program if +# rdr or wtr are null +# a system call fails + +require IPC::Open3; + +sub open2 { + local $Carp::CarpLevel = $Carp::CarpLevel + 1; + return IPC::Open3::_open3('open2', scalar caller, + $_[1], $_[0], '>&STDERR', @_[2 .. $#_]); +} + +1 diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/IPC/Open3.pm b/beagle/debian-rfs/usr/share/perl/5.10.1/IPC/Open3.pm new file mode 100644 index 0000000..3cdc496 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/IPC/Open3.pm @@ -0,0 +1,274 @@ +package IPC::Open3; + +use strict; +no strict 'refs'; # because users pass me bareword filehandles +our ($VERSION, @ISA, @EXPORT); + +require Exporter; + +use Carp; +use Symbol qw(gensym qualify); + +$VERSION = 1.04; +@ISA = qw(Exporter); +@EXPORT = qw(open3); + +# &open3: Marc Horowitz <marc@mit.edu> +# derived mostly from &open2 by tom christiansen, <tchrist@convex.com> +# fixed for 5.001 by Ulrich Kunitz <kunitz@mai-koeln.com> +# ported to Win32 by Ron Schmidt, Merrill Lynch almost ended my career +# fixed for autovivving FHs, tchrist again +# allow fd numbers to be used, by Frank Tobin +# allow '-' as command (c.f. open "-|"), by Adam Spiers <perl@adamspiers.org> +# +# $Id: open3.pl,v 1.1 1993/11/23 06:26:15 marc Exp $ +# +# usage: $pid = open3('wtr', 'rdr', 'err' 'some cmd and args', 'optarg', ...); +# +# spawn the given $cmd and connect rdr for +# reading, wtr for writing, and err for errors. +# if err is '', or the same as rdr, then stdout and +# stderr of the child are on the same fh. returns pid +# of child (or dies on failure). + +# if wtr begins with '<&', then wtr will be closed in the parent, and +# the child will read from it directly. if rdr or err begins with +# '>&', then the child will send output directly to that fd. In both +# cases, there will be a dup() instead of a pipe() made. + +# WARNING: this is dangerous, as you may block forever +# unless you are very careful. +# +# $wtr is left unbuffered. +# +# abort program if +# rdr or wtr are null +# a system call fails + +our $Me = 'open3 (bug)'; # you should never see this, it's always localized + +# Fatal.pm needs to be fixed WRT prototypes. + +sub xfork { + my $pid = fork; + defined $pid or croak "$Me: fork failed: $!"; + return $pid; +} + +sub xpipe { + pipe $_[0], $_[1] or croak "$Me: pipe($_[0], $_[1]) failed: $!"; +} + +# I tried using a * prototype character for the filehandle but it still +# disallows a bearword while compiling under strict subs. + +sub xopen { + open $_[0], $_[1] or croak "$Me: open($_[0], $_[1]) failed: $!"; +} + +sub xclose { + close $_[0] or croak "$Me: close($_[0]) failed: $!"; +} + +sub fh_is_fd { + return $_[0] =~ /\A=?(\d+)\z/; +} + +sub xfileno { + return $1 if $_[0] =~ /\A=?(\d+)\z/; # deal with fh just being an fd + return fileno $_[0]; +} + +my $do_spawn = $^O eq 'os2' || $^O eq 'MSWin32'; + +sub _open3 { + local $Me = shift; + my($package, $dad_wtr, $dad_rdr, $dad_err, @cmd) = @_; + my($dup_wtr, $dup_rdr, $dup_err, $kidpid); + + if (@cmd > 1 and $cmd[0] eq '-') { + croak "Arguments don't make sense when the command is '-'" + } + + # simulate autovivification of filehandles because + # it's too ugly to use @_ throughout to make perl do it for us + # tchrist 5-Mar-00 + + unless (eval { + $dad_wtr = $_[1] = gensym unless defined $dad_wtr && length $dad_wtr; + $dad_rdr = $_[2] = gensym unless defined $dad_rdr && length $dad_rdr; + 1; }) + { + # must strip crud for croak to add back, or looks ugly + $@ =~ s/(?<=value attempted) at .*//s; + croak "$Me: $@"; + } + + $dad_err ||= $dad_rdr; + + $dup_wtr = ($dad_wtr =~ s/^[<>]&//); + $dup_rdr = ($dad_rdr =~ s/^[<>]&//); + $dup_err = ($dad_err =~ s/^[<>]&//); + + # force unqualified filehandles into caller's package + $dad_wtr = qualify $dad_wtr, $package unless fh_is_fd($dad_wtr); + $dad_rdr = qualify $dad_rdr, $package unless fh_is_fd($dad_rdr); + $dad_err = qualify $dad_err, $package unless fh_is_fd($dad_err); + + my $kid_rdr = gensym; + my $kid_wtr = gensym; + my $kid_err = gensym; + + xpipe $kid_rdr, $dad_wtr if !$dup_wtr; + xpipe $dad_rdr, $kid_wtr if !$dup_rdr; + xpipe $dad_err, $kid_err if !$dup_err && $dad_err ne $dad_rdr; + + $kidpid = $do_spawn ? -1 : xfork; + if ($kidpid == 0) { # Kid + # A tie in the parent should not be allowed to cause problems. + untie *STDIN; + untie *STDOUT; + # If she wants to dup the kid's stderr onto her stdout I need to + # save a copy of her stdout before I put something else there. + if ($dad_rdr ne $dad_err && $dup_err + && xfileno($dad_err) == fileno(STDOUT)) { + my $tmp = gensym; + xopen($tmp, ">&$dad_err"); + $dad_err = $tmp; + } + + if ($dup_wtr) { + xopen \*STDIN, "<&$dad_wtr" if fileno(STDIN) != xfileno($dad_wtr); + } else { + xclose $dad_wtr; + xopen \*STDIN, "<&=" . fileno $kid_rdr; + } + if ($dup_rdr) { + xopen \*STDOUT, ">&$dad_rdr" if fileno(STDOUT) != xfileno($dad_rdr); + } else { + xclose $dad_rdr; + xopen \*STDOUT, ">&=" . fileno $kid_wtr; + } + if ($dad_rdr ne $dad_err) { + if ($dup_err) { + # I have to use a fileno here because in this one case + # I'm doing a dup but the filehandle might be a reference + # (from the special case above). + xopen \*STDERR, ">&" . xfileno($dad_err) + if fileno(STDERR) != xfileno($dad_err); + } else { + xclose $dad_err; + xopen \*STDERR, ">&=" . fileno $kid_err; + } + } else { + xopen \*STDERR, ">&STDOUT" if fileno(STDERR) != fileno(STDOUT); + } + return 0 if ($cmd[0] eq '-'); + local($")=(" "); + exec @cmd or do { + carp "$Me: exec of @cmd failed"; + eval { require POSIX; POSIX::_exit(255); }; + exit 255; + }; + } elsif ($do_spawn) { + # All the bookkeeping of coincidence between handles is + # handled in spawn_with_handles. + + my @close; + if ($dup_wtr) { + $kid_rdr = \*{$dad_wtr}; + push @close, $kid_rdr; + } else { + push @close, \*{$dad_wtr}, $kid_rdr; + } + if ($dup_rdr) { + $kid_wtr = \*{$dad_rdr}; + push @close, $kid_wtr; + } else { + push @close, \*{$dad_rdr}, $kid_wtr; + } + if ($dad_rdr ne $dad_err) { + if ($dup_err) { + $kid_err = \*{$dad_err}; + push @close, $kid_err; + } else { + push @close, \*{$dad_err}, $kid_err; + } + } else { + $kid_err = $kid_wtr; + } + require IO::Pipe; + $kidpid = eval { + spawn_with_handles( [ { mode => 'r', + open_as => $kid_rdr, + handle => \*STDIN }, + { mode => 'w', + open_as => $kid_wtr, + handle => \*STDOUT }, + { mode => 'w', + open_as => $kid_err, + handle => \*STDERR }, + ], \@close, @cmd); + }; + die "$Me: $@" if $@; + } + + xclose $kid_rdr if !$dup_wtr; + xclose $kid_wtr if !$dup_rdr; + xclose $kid_err if !$dup_err && $dad_rdr ne $dad_err; + # If the write handle is a dup give it away entirely, close my copy + # of it. + xclose $dad_wtr if $dup_wtr; + + select((select($dad_wtr), $| = 1)[0]); # unbuffer pipe + $kidpid; +} + +sub open3 { + if (@_ < 4) { + local $" = ', '; + croak "open3(@_): not enough arguments"; + } + return _open3 'open3', scalar caller, @_ +} + +sub spawn_with_handles { + my $fds = shift; # Fields: handle, mode, open_as + my $close_in_child = shift; + my ($fd, $pid, @saved_fh, $saved, %saved, @errs); + require Fcntl; + + foreach $fd (@$fds) { + $fd->{tmp_copy} = IO::Handle->new_from_fd($fd->{handle}, $fd->{mode}); + $saved{fileno $fd->{handle}} = $fd->{tmp_copy}; + } + foreach $fd (@$fds) { + bless $fd->{handle}, 'IO::Handle' + unless eval { $fd->{handle}->isa('IO::Handle') } ; + # If some of handles to redirect-to coincide with handles to + # redirect, we need to use saved variants: + $fd->{handle}->fdopen($saved{fileno $fd->{open_as}} || $fd->{open_as}, + $fd->{mode}); + } + unless ($^O eq 'MSWin32') { + # Stderr may be redirected below, so we save the err text: + foreach $fd (@$close_in_child) { + fcntl($fd, Fcntl::F_SETFD(), 1) or push @errs, "fcntl $fd: $!" + unless $saved{fileno $fd}; # Do not close what we redirect! + } + } + + unless (@errs) { + $pid = eval { system 1, @_ }; # 1 == P_NOWAIT + push @errs, "IO::Pipe: Can't spawn-NOWAIT: $!" if !$pid || $pid < 0; + } + + foreach $fd (@$fds) { + $fd->{handle}->fdopen($fd->{tmp_copy}, $fd->{mode}); + $fd->{tmp_copy}->close or croak "Can't close: $!"; + } + croak join "\n", @errs if @errs; + return $pid; +} + +1; # so require is happy diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/SelectSaver.pm b/beagle/debian-rfs/usr/share/perl/5.10.1/SelectSaver.pm new file mode 100644 index 0000000..4ccb837 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/SelectSaver.pm @@ -0,0 +1,22 @@ +package SelectSaver; + +our $VERSION = '1.02'; + +require 5.000; +use Carp; +use Symbol; + +sub new { + @_ >= 1 && @_ <= 2 or croak 'usage: SelectSaver->new( [FILEHANDLE] )'; + my $fh = select; + my $self = bless \$fh, $_[0]; + select qualify($_[1], caller) if @_ > 1; + $self; +} + +sub DESTROY { + my $self = $_[0]; + select $$self; +} + +1; diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/Symbol.pm b/beagle/debian-rfs/usr/share/perl/5.10.1/Symbol.pm new file mode 100644 index 0000000..72ef599 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/Symbol.pm @@ -0,0 +1,91 @@ +package Symbol; + +BEGIN { require 5.005; } + +require Exporter; +@ISA = qw(Exporter); +@EXPORT = qw(gensym ungensym qualify qualify_to_ref); +@EXPORT_OK = qw(delete_package geniosym); + +$VERSION = '1.07'; + +my $genpkg = "Symbol::"; +my $genseq = 0; + +my %global = map {$_ => 1} qw(ARGV ARGVOUT ENV INC SIG STDERR STDIN STDOUT); + +# +# Note that we never _copy_ the glob; we just make a ref to it. +# If we did copy it, then SVf_FAKE would be set on the copy, and +# glob-specific behaviors (e.g. C<*$ref = \&func>) wouldn't work. +# +sub gensym () { + my $name = "GEN" . $genseq++; + my $ref = \*{$genpkg . $name}; + delete $$genpkg{$name}; + $ref; +} + +sub geniosym () { + my $sym = gensym(); + # force the IO slot to be filled + select(select $sym); + *$sym{IO}; +} + +sub ungensym ($) {} + +sub qualify ($;$) { + my ($name) = @_; + if (!ref($name) && index($name, '::') == -1 && index($name, "'") == -1) { + my $pkg; + # Global names: special character, "^xyz", or other. + if ($name =~ /^(([^a-z])|(\^[a-z_]+))\z/i || $global{$name}) { + # RGS 2001-11-05 : translate leading ^X to control-char + $name =~ s/^\^([a-z_])/'qq(\c'.$1.')'/eei; + $pkg = "main"; + } + else { + $pkg = (@_ > 1) ? $_[1] : caller; + } + $name = $pkg . "::" . $name; + } + $name; +} + +sub qualify_to_ref ($;$) { + return \*{ qualify $_[0], @_ > 1 ? $_[1] : caller }; +} + +# +# of Safe.pm lineage +# +sub delete_package ($) { + my $pkg = shift; + + # expand to full symbol table name if needed + + unless ($pkg =~ /^main::.*::$/) { + $pkg = "main$pkg" if $pkg =~ /^::/; + $pkg = "main::$pkg" unless $pkg =~ /^main::/; + $pkg .= '::' unless $pkg =~ /::$/; + } + + my($stem, $leaf) = $pkg =~ m/(.*::)(\w+::)$/; + my $stem_symtab = *{$stem}{HASH}; + return unless defined $stem_symtab and exists $stem_symtab->{$leaf}; + + # free all the symbols in the package + + my $leaf_symtab = *{$stem_symtab->{$leaf}}{HASH}; + foreach my $name (keys %$leaf_symtab) { + undef *{$pkg . $name}; + } + + # delete the symbol table + + %$leaf_symtab = (); + delete $stem_symtab->{$leaf}; +} + +1; diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/Text/ParseWords.pm b/beagle/debian-rfs/usr/share/perl/5.10.1/Text/ParseWords.pm new file mode 100644 index 0000000..1b7312a --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/Text/ParseWords.pm @@ -0,0 +1,166 @@ +package Text::ParseWords; + +use strict; +require 5.006; +our $VERSION = "3.27"; + +use Exporter; +our @ISA = qw(Exporter); +our @EXPORT = qw(shellwords quotewords nested_quotewords parse_line); +our @EXPORT_OK = qw(old_shellwords); +our $PERL_SINGLE_QUOTE; + +sub shellwords { + my (@lines) = @_; + my @allwords; + + foreach my $line (@lines) { + $line =~ s/^\s+//; + my @words = parse_line('\s+', 0, $line); + pop @words if (@words and !defined $words[-1]); + return() unless (@words || !length($line)); + push(@allwords, @words); + } + return(@allwords); +} + +sub quotewords { + my($delim, $keep, @lines) = @_; + my($line, @words, @allwords); + + foreach $line (@lines) { + @words = parse_line($delim, $keep, $line); + return() unless (@words || !length($line)); + push(@allwords, @words); + } + return(@allwords); +} + +sub nested_quotewords { + my($delim, $keep, @lines) = @_; + my($i, @allwords); + + for ($i = 0; $i < @lines; $i++) { + @{$allwords[$i]} = parse_line($delim, $keep, $lines[$i]); + return() unless (@{$allwords[$i]} || !length($lines[$i])); + } + return(@allwords); +} + +sub parse_line { + my($delimiter, $keep, $line) = @_; + my($word, @pieces); + + no warnings 'uninitialized'; # we will be testing undef strings + + while (length($line)) { + # This pattern is optimised to be stack conservative on older perls. + # Do not refactor without being careful and testing it on very long strings. + # See Perl bug #42980 for an example of a stack busting input. + $line =~ s/^ + (?: + # double quoted string + (") # $quote + ((?>[^\\"]*(?:\\.[^\\"]*)*))" # $quoted + | # --OR-- + # singe quoted string + (') # $quote + ((?>[^\\']*(?:\\.[^\\']*)*))' # $quoted + | # --OR-- + # unquoted string + ( # $unquoted + (?:\\.|[^\\"'])*? + ) + # followed by + ( # $delim + \Z(?!\n) # EOL + | # --OR-- + (?-x:$delimiter) # delimiter + | # --OR-- + (?!^)(?=["']) # a quote + ) + )//xs or return; # extended layout + my ($quote, $quoted, $unquoted, $delim) = (($1 ? ($1,$2) : ($3,$4)), $5, $6); + + return() unless( defined($quote) || length($unquoted) || length($delim)); + + if ($keep) { + $quoted = "$quote$quoted$quote"; + } + else { + $unquoted =~ s/\\(.)/$1/sg; + if (defined $quote) { + $quoted =~ s/\\(.)/$1/sg if ($quote eq '"'); + $quoted =~ s/\\([\\'])/$1/g if ( $PERL_SINGLE_QUOTE && $quote eq "'"); + } + } + $word .= substr($line, 0, 0); # leave results tainted + $word .= defined $quote ? $quoted : $unquoted; + + if (length($delim)) { + push(@pieces, $word); + push(@pieces, $delim) if ($keep eq 'delimiters'); + undef $word; + } + if (!length($line)) { + push(@pieces, $word); + } + } + return(@pieces); +} + +sub old_shellwords { + + # Usage: + # use ParseWords; + # @words = old_shellwords($line); + # or + # @words = old_shellwords(@lines); + # or + # @words = old_shellwords(); # defaults to $_ (and clobbers it) + + no warnings 'uninitialized'; # we will be testing undef strings + local *_ = \join('', @_) if @_; + my (@words, $snippet); + + s/\A\s+//; + while ($_ ne '') { + my $field = substr($_, 0, 0); # leave results tainted + for (;;) { + if (s/\A"(([^"\\]|\\.)*)"//s) { + ($snippet = $1) =~ s#\\(.)#$1#sg; + } + elsif (/\A"/) { + require Carp; + Carp::carp("Unmatched double quote: $_"); + return(); + } + elsif (s/\A'(([^'\\]|\\.)*)'//s) { + ($snippet = $1) =~ s#\\(.)#$1#sg; + } + elsif (/\A'/) { + require Carp; + Carp::carp("Unmatched single quote: $_"); + return(); + } + elsif (s/\A\\(.?)//s) { + $snippet = $1; + } + elsif (s/\A([^\s\\'"]+)//) { + $snippet = $1; + } + else { + s/\A\s+//; + last; + } + $field .= $snippet; + } + push(@words, $field); + } + return @words; +} + +1; + +__END__ + diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/Text/Tabs.pm b/beagle/debian-rfs/usr/share/perl/5.10.1/Text/Tabs.pm new file mode 100644 index 0000000..b20d98b --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/Text/Tabs.pm @@ -0,0 +1,89 @@ +package Text::Tabs; + +require Exporter; + +@ISA = (Exporter); +@EXPORT = qw(expand unexpand $tabstop); + +use vars qw($VERSION $tabstop $debug); +$VERSION = 2009.0305; + +use strict; + +BEGIN { + $tabstop = 8; + $debug = 0; +} + +sub expand { + my @l; + my $pad; + for ( @_ ) { + my $s = ''; + for (split(/^/m, $_, -1)) { + my $offs = 0; + s{\t}{ + $pad = $tabstop - (pos() + $offs) % $tabstop; + $offs += $pad - 1; + " " x $pad; + }eg; + $s .= $_; + } + push(@l, $s); + } + return @l if wantarray; + return $l[0]; +} + +sub unexpand +{ + my (@l) = @_; + my @e; + my $x; + my $line; + my @lines; + my $lastbit; + my $ts_as_space = " "x$tabstop; + for $x (@l) { + @lines = split("\n", $x, -1); + for $line (@lines) { + $line = expand($line); + @e = split(/(.{$tabstop})/,$line,-1); + $lastbit = pop(@e); + $lastbit = '' + unless defined $lastbit; + $lastbit = "\t" + if $lastbit eq $ts_as_space; + for $_ (@e) { + if ($debug) { + my $x = $_; + $x =~ s/\t/^I\t/gs; + print "sub on '$x'\n"; + } + s/ +$/\t/; + } + $line = join('',@e, $lastbit); + } + $x = join("\n", @lines); + } + return @l if wantarray; + return $l[0]; +} + +1; +__END__ + +sub expand +{ + my (@l) = @_; + for $_ (@l) { + 1 while s/(^|\n)([^\t\n]*)(\t+)/ + $1. $2 . (" " x + ($tabstop * length($3) + - (length($2) % $tabstop))) + /sex; + } + return @l if wantarray; + return $l[0]; +} + diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/Text/Wrap.pm b/beagle/debian-rfs/usr/share/perl/5.10.1/Text/Wrap.pm new file mode 100644 index 0000000..72551c4 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/Text/Wrap.pm @@ -0,0 +1,122 @@ +package Text::Wrap; + +use warnings::register; +require Exporter; + +@ISA = qw(Exporter); +@EXPORT = qw(wrap fill); +@EXPORT_OK = qw($columns $break $huge); + +$VERSION = 2009.0305; + +use vars qw($VERSION $columns $debug $break $huge $unexpand $tabstop + $separator $separator2); +use strict; + +BEGIN { + $columns = 76; # <= screen width + $debug = 0; + $break = '\s'; + $huge = 'wrap'; # alternatively: 'die' or 'overflow' + $unexpand = 1; + $tabstop = 8; + $separator = "\n"; + $separator2 = undef; +} + +use Text::Tabs qw(expand unexpand); + +sub wrap +{ + my ($ip, $xp, @t) = @_; + + local($Text::Tabs::tabstop) = $tabstop; + my $r = ""; + my $tail = pop(@t); + my $t = expand(join("", (map { /\s+\z/ ? ( $_ ) : ($_, ' ') } @t), $tail)); + my $lead = $ip; + my $nll = $columns - length(expand($xp)) - 1; + if ($nll <= 0 && $xp ne '') { + my $nc = length(expand($xp)) + 2; + warnings::warnif "Increasing \$Text::Wrap::columns from $columns to $nc to accommodate length of subsequent tab"; + $columns = $nc; + $nll = 1; + } + my $ll = $columns - length(expand($ip)) - 1; + $ll = 0 if $ll < 0; + my $nl = ""; + my $remainder = ""; + + use re 'taint'; + + pos($t) = 0; + while ($t !~ /\G(?:$break)*\Z/gc) { + if ($t =~ /\G([^\n]{0,$ll})($break|\n+|\z)/xmgc) { + $r .= $unexpand + ? unexpand($nl . $lead . $1) + : $nl . $lead . $1; + $remainder = $2; + } elsif ($huge eq 'wrap' && $t =~ /\G([^\n]{$ll})/gc) { + $r .= $unexpand + ? unexpand($nl . $lead . $1) + : $nl . $lead . $1; + $remainder = defined($separator2) ? $separator2 : $separator; + } elsif ($huge eq 'overflow' && $t =~ /\G([^\n]*?)($break|\n+|\z)/xmgc) { + $r .= $unexpand + ? unexpand($nl . $lead . $1) + : $nl . $lead . $1; + $remainder = $2; + } elsif ($huge eq 'die') { + die "couldn't wrap '$t'"; + } elsif ($columns < 2) { + warnings::warnif "Increasing \$Text::Wrap::columns from $columns to 2"; + $columns = 2; + return ($ip, $xp, @t); + } else { + die "This shouldn't happen"; + } + + $lead = $xp; + $ll = $nll; + $nl = defined($separator2) + ? ($remainder eq "\n" + ? "\n" + : $separator2) + : $separator; + } + $r .= $remainder; + + print "-----------$r---------\n" if $debug; + + print "Finish up with '$lead'\n" if $debug; + + $r .= $lead . substr($t, pos($t), length($t)-pos($t)) + if pos($t) ne length($t); + + print "-----------$r---------\n" if $debug;; + + return $r; +} + +sub fill +{ + my ($ip, $xp, @raw) = @_; + my @para; + my $pp; + + for $pp (split(/\n\s+/, join("\n",@raw))) { + $pp =~ s/\s+/ /g; + my $x = wrap($ip, $xp, $pp); + push(@para, $x); + } + + # if paragraph_indent is the same as line_indent, + # separate paragraphs with blank lines + + my $ps = ($ip eq $xp) ? "\n\n" : "\n"; + return join ($ps, @para); +} + +1; +__END__ + diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/Tie/Hash.pm b/beagle/debian-rfs/usr/share/perl/5.10.1/Tie/Hash.pm new file mode 100644 index 0000000..e3e8a24 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/Tie/Hash.pm @@ -0,0 +1,74 @@ +package Tie::Hash; + +our $VERSION = '1.03'; + +use Carp; +use warnings::register; + +sub new { + my $pkg = shift; + $pkg->TIEHASH(@_); +} + +# Grandfather "new" + +sub TIEHASH { + my $pkg = shift; + if (defined &{"${pkg}::new"}) { + warnings::warnif("WARNING: calling ${pkg}->new since ${pkg}->TIEHASH is missing"); + $pkg->new(@_); + } + else { + croak "$pkg doesn't define a TIEHASH method"; + } +} + +sub EXISTS { + my $pkg = ref $_[0]; + croak "$pkg doesn't define an EXISTS method"; +} + +sub CLEAR { + my $self = shift; + my $key = $self->FIRSTKEY(@_); + my @keys; + + while (defined $key) { + push @keys, $key; + $key = $self->NEXTKEY(@_, $key); + } + foreach $key (@keys) { + $self->DELETE(@_, $key); + } +} + +# The Tie::StdHash package implements standard perl hash behaviour. +# It exists to act as a base class for classes which only wish to +# alter some parts of their behaviour. + +package Tie::StdHash; +# @ISA = qw(Tie::Hash); # would inherit new() only + +sub TIEHASH { bless {}, $_[0] } +sub STORE { $_[0]->{$_[1]} = $_[2] } +sub FETCH { $_[0]->{$_[1]} } +sub FIRSTKEY { my $a = scalar keys %{$_[0]}; each %{$_[0]} } +sub NEXTKEY { each %{$_[0]} } +sub EXISTS { exists $_[0]->{$_[1]} } +sub DELETE { delete $_[0]->{$_[1]} } +sub CLEAR { %{$_[0]} = () } +sub SCALAR { scalar %{$_[0]} } + +package Tie::ExtraHash; + +sub TIEHASH { my $p = shift; bless [{}, @_], $p } +sub STORE { $_[0][0]{$_[1]} = $_[2] } +sub FETCH { $_[0][0]{$_[1]} } +sub FIRSTKEY { my $a = scalar keys %{$_[0][0]}; each %{$_[0][0]} } +sub NEXTKEY { each %{$_[0][0]} } +sub EXISTS { exists $_[0][0]->{$_[1]} } +sub DELETE { delete $_[0][0]->{$_[1]} } +sub CLEAR { %{$_[0][0]} = () } +sub SCALAR { scalar %{$_[0][0]} } + +1; diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/attributes.pm b/beagle/debian-rfs/usr/share/perl/5.10.1/attributes.pm new file mode 100644 index 0000000..e9eebd9 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/attributes.pm @@ -0,0 +1,93 @@ +package attributes; + +our $VERSION = 0.09; + +@EXPORT_OK = qw(get reftype); +@EXPORT = (); +%EXPORT_TAGS = (ALL => [@EXPORT, @EXPORT_OK]); + +use strict; + +sub croak { + require Carp; + goto &Carp::croak; +} + +sub carp { + require Carp; + goto &Carp::carp; +} + +## forward declaration(s) rather than wrapping the bootstrap call in BEGIN{} +#sub reftype ($) ; +#sub _fetch_attrs ($) ; +#sub _guess_stash ($) ; +#sub _modify_attrs ; +# +# The extra trips through newATTRSUB in the interpreter wipe out any savings +# from avoiding the BEGIN block. Just do the bootstrap now. +BEGIN { bootstrap attributes } + +sub import { + @_ > 2 && ref $_[2] or do { + require Exporter; + goto &Exporter::import; + }; + my (undef,$home_stash,$svref,@attrs) = @_; + + my $svtype = uc reftype($svref); + my $pkgmeth; + $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES") + if defined $home_stash && $home_stash ne ''; + my @badattrs; + if ($pkgmeth) { + my @pkgattrs = _modify_attrs($svref, @attrs); + @badattrs = $pkgmeth->($home_stash, $svref, @pkgattrs); + if (!@badattrs && @pkgattrs) { + require warnings; + return unless warnings::enabled('reserved'); + @pkgattrs = grep { m/\A[[:lower:]]+(?:\z|\()/ } @pkgattrs; + if (@pkgattrs) { + for my $attr (@pkgattrs) { + $attr =~ s/\(.+\z//s; + } + my $s = ((@pkgattrs == 1) ? '' : 's'); + carp "$svtype package attribute$s " . + "may clash with future reserved word$s: " . + join(' : ' , @pkgattrs); + } + } + } + else { + @badattrs = _modify_attrs($svref, @attrs); + } + if (@badattrs) { + croak "Invalid $svtype attribute" . + (( @badattrs == 1 ) ? '' : 's') . + ": " . + join(' : ', @badattrs); + } +} + +sub get ($) { + @_ == 1 && ref $_[0] or + croak 'Usage: '.__PACKAGE__.'::get $ref'; + my $svref = shift; + my $svtype = uc reftype $svref; + my $stash = _guess_stash $svref; + $stash = caller unless defined $stash; + my $pkgmeth; + $pkgmeth = UNIVERSAL::can($stash, "FETCH_${svtype}_ATTRIBUTES") + if defined $stash && $stash ne ''; + return $pkgmeth ? + (_fetch_attrs($svref), $pkgmeth->($stash, $svref)) : + (_fetch_attrs($svref)) + ; +} + +sub require_version { goto &UNIVERSAL::VERSION } + +1; +__END__ +#The POD goes here + diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/base.pm b/beagle/debian-rfs/usr/share/perl/5.10.1/base.pm new file mode 100644 index 0000000..98a388c --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/base.pm @@ -0,0 +1,181 @@ +package base; + +use strict 'vars'; +use vars qw($VERSION); +$VERSION = '2.14'; +$VERSION = eval $VERSION; + +# constant.pm is slow +sub SUCCESS () { 1 } + +sub PUBLIC () { 2**0 } +sub PRIVATE () { 2**1 } +sub INHERITED () { 2**2 } +sub PROTECTED () { 2**3 } + +my $Fattr = \%fields::attr; + +sub has_fields { + my($base) = shift; + my $fglob = ${"$base\::"}{FIELDS}; + return( ($fglob && 'GLOB' eq ref($fglob) && *$fglob{HASH}) ? 1 : 0 ); +} + +sub has_version { + my($base) = shift; + my $vglob = ${$base.'::'}{VERSION}; + return( ($vglob && *$vglob{SCALAR}) ? 1 : 0 ); +} + +sub has_attr { + my($proto) = shift; + my($class) = ref $proto || $proto; + return exists $Fattr->{$class}; +} + +sub get_attr { + $Fattr->{$_[0]} = [1] unless $Fattr->{$_[0]}; + return $Fattr->{$_[0]}; +} + +if ($] < 5.009) { + *get_fields = sub { + # Shut up a possible typo warning. + () = \%{$_[0].'::FIELDS'}; + my $f = \%{$_[0].'::FIELDS'}; + + # should be centralized in fields? perhaps + # fields::mk_FIELDS_be_OK. Peh. As long as %{ $package . '::FIELDS' } + # is used here anyway, it doesn't matter. + bless $f, 'pseudohash' if (ref($f) ne 'pseudohash'); + + return $f; + } +} +else { + *get_fields = sub { + # Shut up a possible typo warning. + () = \%{$_[0].'::FIELDS'}; + return \%{$_[0].'::FIELDS'}; + } +} + +sub import { + my $class = shift; + + return SUCCESS unless @_; + + # List of base classes from which we will inherit %FIELDS. + my $fields_base; + + my $inheritor = caller(0); + my @isa_classes; + + my @bases; + foreach my $base (@_) { + if ( $inheritor eq $base ) { + warn "Class '$inheritor' tried to inherit from itself\n"; + } + + next if grep $_->isa($base), ($inheritor, @bases); + + if (has_version($base)) { + ${$base.'::VERSION'} = '-1, set by base.pm' + unless defined ${$base.'::VERSION'}; + } + else { + my $sigdie; + { + local $SIG{__DIE__}; + eval "require $base"; + # Only ignore "Can't locate" errors from our eval require. + # Other fatal errors (syntax etc) must be reported. + die if $@ && $@ !~ /^Can't locate .*? at \(eval /; + unless (%{"$base\::"}) { + require Carp; + local $" = " "; + Carp::croak(<<ERROR); +Base class package "$base" is empty. + (Perhaps you need to 'use' the module which defines that package first, + or make that module available in \@INC (\@INC contains: @INC). +ERROR + } + $sigdie = $SIG{__DIE__} || undef; + } + # Make sure a global $SIG{__DIE__} makes it out of the localization. + $SIG{__DIE__} = $sigdie if defined $sigdie; + ${$base.'::VERSION'} = "-1, set by base.pm" + unless defined ${$base.'::VERSION'}; + } + push @bases, $base; + + if ( has_fields($base) || has_attr($base) ) { + # No multiple fields inheritance *suck* + if ($fields_base) { + require Carp; + Carp::croak("Can't multiply inherit fields"); + } else { + $fields_base = $base; + } + } + } + # Save this until the end so it's all or nothing if the above loop croaks. + push @{"$inheritor\::ISA"}, @isa_classes; + + push @{"$inheritor\::ISA"}, @bases; + + if( defined $fields_base ) { + inherit_fields($inheritor, $fields_base); + } +} + +sub inherit_fields { + my($derived, $base) = @_; + + return SUCCESS unless $base; + + my $battr = get_attr($base); + my $dattr = get_attr($derived); + my $dfields = get_fields($derived); + my $bfields = get_fields($base); + + $dattr->[0] = @$battr; + + if( keys %$dfields ) { + warn <<"END"; +$derived is inheriting from $base but already has its own fields! +This will cause problems. Be sure you use base BEFORE declaring fields. +END + + } + + # Iterate through the base's fields adding all the non-private + # ones to the derived class. Hang on to the original attribute + # (Public, Private, etc...) and add Inherited. + # This is all too complicated to do efficiently with add_fields(). + while (my($k,$v) = each %$bfields) { + my $fno; + if ($fno = $dfields->{$k} and $fno != $v) { + require Carp; + Carp::croak ("Inherited fields can't override existing fields"); + } + + if( $battr->[$v] & PRIVATE ) { + $dattr->[$v] = PRIVATE | INHERITED; + } + else { + $dattr->[$v] = INHERITED | $battr->[$v]; + $dfields->{$k} = $v; + } + } + + foreach my $idx (1..$#{$battr}) { + next if defined $dattr->[$idx]; + $dattr->[$idx] = $battr->[$idx] & INHERITED; + } +} + +1; + +__END__ + diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/bytes.pm b/beagle/debian-rfs/usr/share/perl/5.10.1/bytes.pm new file mode 100644 index 0000000..7da5512 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/bytes.pm @@ -0,0 +1,31 @@ +package bytes; + +our $VERSION = '1.03'; + +$bytes::hint_bits = 0x00000008; + +sub import { + $^H |= $bytes::hint_bits; +} + +sub unimport { + $^H &= ~$bytes::hint_bits; +} + +sub AUTOLOAD { + require "bytes_heavy.pl"; + goto &$AUTOLOAD if defined &$AUTOLOAD; + require Carp; + Carp::croak("Undefined subroutine $AUTOLOAD called"); +} + +sub length (_); +sub chr (_); +sub ord (_); +sub substr ($$;$$); +sub index ($$;$); +sub rindex ($$;$); + +1; +__END__ + diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/bytes_heavy.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/bytes_heavy.pl new file mode 100644 index 0000000..680c66c --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/bytes_heavy.pl @@ -0,0 +1,40 @@ +package bytes; + +sub length (_) { + BEGIN { bytes::import() } + return CORE::length($_[0]); +} + +sub substr ($$;$$) { + BEGIN { bytes::import() } + return + @_ == 2 ? CORE::substr($_[0], $_[1]) : + @_ == 3 ? CORE::substr($_[0], $_[1], $_[2]) : + CORE::substr($_[0], $_[1], $_[2], $_[3]) ; +} + +sub ord (_) { + BEGIN { bytes::import() } + return CORE::ord($_[0]); +} + +sub chr (_) { + BEGIN { bytes::import() } + return CORE::chr($_[0]); +} + +sub index ($$;$) { + BEGIN { bytes::import() } + return + @_ == 2 ? CORE::index($_[0], $_[1]) : + CORE::index($_[0], $_[1], $_[2]) ; +} + +sub rindex ($$;$) { + BEGIN { bytes::import() } + return + @_ == 2 ? CORE::rindex($_[0], $_[1]) : + CORE::rindex($_[0], $_[1], $_[2]) ; +} + +1; diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/constant.pm b/beagle/debian-rfs/usr/share/perl/5.10.1/constant.pm new file mode 100644 index 0000000..b960676 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/constant.pm @@ -0,0 +1,130 @@ +package constant; +use 5.005; +use strict; +use warnings::register; + +use vars qw($VERSION %declared); +$VERSION = '1.17'; + +#======================================================================= + +# Some names are evil choices. +my %keywords = map +($_, 1), qw{ BEGIN INIT CHECK END DESTROY AUTOLOAD }; +$keywords{UNITCHECK}++ if $] > 5.009; + +my %forced_into_main = map +($_, 1), + qw{ STDIN STDOUT STDERR ARGV ARGVOUT ENV INC SIG }; + +my %forbidden = (%keywords, %forced_into_main); + +#======================================================================= +# import() - import symbols into user's namespace +# +# What we actually do is define a function in the caller's namespace +# which returns the value. The function we create will normally +# be inlined as a constant, thereby avoiding further sub calling +# overhead. +#======================================================================= +sub import { + my $class = shift; + return unless @_; # Ignore 'use constant;' + my $constants; + my $multiple = ref $_[0]; + my $pkg = caller; + my $symtab; + my $str_end = $] >= 5.006 ? "\\z" : "\\Z"; + + if ($] > 5.009002) { + no strict 'refs'; + $symtab = \%{$pkg . '::'}; + }; + + if ( $multiple ) { + if (ref $_[0] ne 'HASH') { + require Carp; + Carp::croak("Invalid reference type '".ref(shift)."' not 'HASH'"); + } + $constants = shift; + } else { + $constants->{+shift} = undef; + } + + foreach my $name ( keys %$constants ) { + unless (defined $name) { + require Carp; + Carp::croak("Can't use undef as constant name"); + } + + # Normal constant name + if ($name =~ /^_?[^\W_0-9]\w*$str_end/ and !$forbidden{$name}) { + # Everything is okay + + # Name forced into main, but we're not in main. Fatal. + } elsif ($forced_into_main{$name} and $pkg ne 'main') { + require Carp; + Carp::croak("Constant name '$name' is forced into main::"); + + # Starts with double underscore. Fatal. + } elsif ($name =~ /^__/) { + require Carp; + Carp::croak("Constant name '$name' begins with '__'"); + + # Maybe the name is tolerable + } elsif ($name =~ /^[A-Za-z_]\w*$str_end/) { + # Then we'll warn only if you've asked for warnings + if (warnings::enabled()) { + if ($keywords{$name}) { + warnings::warn("Constant name '$name' is a Perl keyword"); + } elsif ($forced_into_main{$name}) { + warnings::warn("Constant name '$name' is " . + "forced into package main::"); + } + } + + # Looks like a boolean + # use constant FRED == fred; + } elsif ($name =~ /^[01]?$str_end/) { + require Carp; + if (@_) { + Carp::croak("Constant name '$name' is invalid"); + } else { + Carp::croak("Constant name looks like boolean value"); + } + + } else { + # Must have bad characters + require Carp; + Carp::croak("Constant name '$name' has invalid characters"); + } + + { + no strict 'refs'; + my $full_name = "${pkg}::$name"; + $declared{$full_name}++; + if ($multiple || @_ == 1) { + my $scalar = $multiple ? $constants->{$name} : $_[0]; + if ($symtab && !exists $symtab->{$name}) { + # No typeglob yet, so we can use a reference as space- + # efficient proxy for a constant subroutine + # The check in Perl_ck_rvconst knows that inlinable + # constants from cv_const_sv are read only. So we have to: + Internals::SvREADONLY($scalar, 1); + $symtab->{$name} = \$scalar; + mro::method_changed_in($pkg); + } else { + *$full_name = sub () { $scalar }; + } + } elsif (@_) { + my @list = @_; + *$full_name = sub () { @list }; + } else { + *$full_name = sub () { }; + } + } + } +} + +1; + +__END__ + diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/fields.pm b/beagle/debian-rfs/usr/share/perl/5.10.1/fields.pm new file mode 100644 index 0000000..8cc942b --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/fields.pm @@ -0,0 +1,177 @@ +package fields; + +require 5.005; +use strict; +no strict 'refs'; +unless( eval q{require warnings::register; warnings::register->import; 1} ) { + *warnings::warnif = sub { + require Carp; + Carp::carp(@_); + } +} +use vars qw(%attr $VERSION); + +$VERSION = '2.14'; + +# constant.pm is slow +sub PUBLIC () { 2**0 } +sub PRIVATE () { 2**1 } +sub INHERITED () { 2**2 } +sub PROTECTED () { 2**3 } + +# The %attr hash holds the attributes of the currently assigned fields +# per class. The hash is indexed by class names and the hash value is +# an array reference. The first element in the array is the lowest field +# number not belonging to a base class. The remaining elements' indices +# are the field numbers. The values are integer bit masks, or undef +# in the case of base class private fields (which occupy a slot but are +# otherwise irrelevant to the class). + +sub import { + my $class = shift; + return unless @_; + my $package = caller(0); + # avoid possible typo warnings + %{"$package\::FIELDS"} = () unless %{"$package\::FIELDS"}; + my $fields = \%{"$package\::FIELDS"}; + my $fattr = ($attr{$package} ||= [1]); + my $next = @$fattr; + + # Quiet pseudo-hash deprecation warning for uses of fields::new. + bless \%{"$package\::FIELDS"}, 'pseudohash'; + + if ($next > $fattr->[0] + and ($fields->{$_[0]} || 0) >= $fattr->[0]) + { + # There are already fields not belonging to base classes. + # Looks like a possible module reload... + $next = $fattr->[0]; + } + foreach my $f (@_) { + my $fno = $fields->{$f}; + + # Allow the module to be reloaded so long as field positions + # have not changed. + if ($fno and $fno != $next) { + require Carp; + if ($fno < $fattr->[0]) { + if ($] < 5.006001) { + warn("Hides field '$f' in base class") if $^W; + } else { + warnings::warnif("Hides field '$f' in base class") ; + } + } else { + Carp::croak("Field name '$f' already in use"); + } + } + $fields->{$f} = $next; + $fattr->[$next] = ($f =~ /^_/) ? PRIVATE : PUBLIC; + $next += 1; + } + if (@$fattr > $next) { + # Well, we gave them the benefit of the doubt by guessing the + # module was reloaded, but they appear to be declaring fields + # in more than one place. We can't be sure (without some extra + # bookkeeping) that the rest of the fields will be declared or + # have the same positions, so punt. + require Carp; + Carp::croak ("Reloaded module must declare all fields at once"); + } +} + +sub inherit { + require base; + goto &base::inherit_fields; +} + +sub _dump # sometimes useful for debugging +{ + for my $pkg (sort keys %attr) { + print "\n$pkg"; + if (@{"$pkg\::ISA"}) { + print " (", join(", ", @{"$pkg\::ISA"}), ")"; + } + print "\n"; + my $fields = \%{"$pkg\::FIELDS"}; + for my $f (sort {$fields->{$a} <=> $fields->{$b}} keys %$fields) { + my $no = $fields->{$f}; + print " $no: $f"; + my $fattr = $attr{$pkg}[$no]; + if (defined $fattr) { + my @a; + push(@a, "public") if $fattr & PUBLIC; + push(@a, "private") if $fattr & PRIVATE; + push(@a, "inherited") if $fattr & INHERITED; + print "\t(", join(", ", @a), ")"; + } + print "\n"; + } + } +} + +if ($] < 5.009) { + *new = sub { + my $class = shift; + $class = ref $class if ref $class; + return bless [\%{$class . "::FIELDS"}], $class; + } +} else { + *new = sub { + my $class = shift; + $class = ref $class if ref $class; + require Hash::Util; + my $self = bless {}, $class; + + # The lock_keys() prototype won't work since we require Hash::Util :( + &Hash::Util::lock_keys(\%$self, _accessible_keys($class)); + return $self; + } +} + +sub _accessible_keys { + my ($class) = @_; + return ( + keys %{$class.'::FIELDS'}, + map(_accessible_keys($_), @{$class.'::ISA'}), + ); +} + +sub phash { + die "Pseudo-hashes have been removed from Perl" if $] >= 5.009; + my $h; + my $v; + if (@_) { + if (ref $_[0] eq 'ARRAY') { + my $a = shift; + @$h{@$a} = 1 .. @$a; + if (@_) { + $v = shift; + unless (! @_ and ref $v eq 'ARRAY') { + require Carp; + Carp::croak ("Expected at most two array refs\n"); + } + } + } + else { + if (@_ % 2) { + require Carp; + Carp::croak ("Odd number of elements initializing pseudo-hash\n"); + } + my $i = 0; + @$h{grep ++$i % 2, @_} = 1 .. @_ / 2; + $i = 0; + $v = [grep $i++ % 2, @_]; + } + } + else { + $h = {}; + $v = []; + } + [ $h, @$v ]; + +} + +1; + +__END__ + diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/integer.pm b/beagle/debian-rfs/usr/share/perl/5.10.1/integer.pm new file mode 100644 index 0000000..482d0cf --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/integer.pm @@ -0,0 +1,15 @@ +package integer; + +our $VERSION = '1.00'; + +$integer::hint_bits = 0x1; + +sub import { + $^H |= $integer::hint_bits; +} + +sub unimport { + $^H &= ~$integer::hint_bits; +} + +1; diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/locale.pm b/beagle/debian-rfs/usr/share/perl/5.10.1/locale.pm new file mode 100644 index 0000000..4c30eda --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/locale.pm @@ -0,0 +1,15 @@ +package locale; + +our $VERSION = '1.00'; + +$locale::hint_bits = 0x4; + +sub import { + $^H |= $locale::hint_bits; +} + +sub unimport { + $^H &= ~$locale::hint_bits; +} + +1; diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/overload.pm b/beagle/debian-rfs/usr/share/perl/5.10.1/overload.pm new file mode 100644 index 0000000..cf4a590 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/overload.pm @@ -0,0 +1,178 @@ +package overload; + +our $VERSION = '1.07'; + +sub nil {} + +sub OVERLOAD { + $package = shift; + my %arg = @_; + my ($sub, $fb); + $ {$package . "::OVERLOAD"}{dummy}++; # Register with magic by touching. + *{$package . "::()"} = \&nil; # Make it findable via fetchmethod. + for (keys %arg) { + if ($_ eq 'fallback') { + $fb = $arg{$_}; + } else { + $sub = $arg{$_}; + if (not ref $sub and $sub !~ /::/) { + $ {$package . "::(" . $_} = $sub; + $sub = \&nil; + } + #print STDERR "Setting `$ {'package'}::\cO$_' to \\&`$sub'.\n"; + *{$package . "::(" . $_} = \&{ $sub }; + } + } + ${$package . "::()"} = $fb; # Make it findable too (fallback only). +} + +sub import { + $package = (caller())[0]; + # *{$package . "::OVERLOAD"} = \&OVERLOAD; + shift; + $package->overload::OVERLOAD(@_); +} + +sub unimport { + $package = (caller())[0]; + ${$package . "::OVERLOAD"}{dummy}++; # Upgrade the table + shift; + for (@_) { + if ($_ eq 'fallback') { + undef $ {$package . "::()"}; + } else { + delete $ {$package . "::"}{"(" . $_}; + } + } +} + +sub Overloaded { + my $package = shift; + $package = ref $package if ref $package; + $package->can('()'); +} + +sub ov_method { + my $globref = shift; + return undef unless $globref; + my $sub = \&{*$globref}; + return $sub if $sub ne \&nil; + return shift->can($ {*$globref}); +} + +sub OverloadedStringify { + my $package = shift; + $package = ref $package if ref $package; + #$package->can('(""') + ov_method mycan($package, '(""'), $package + or ov_method mycan($package, '(0+'), $package + or ov_method mycan($package, '(bool'), $package + or ov_method mycan($package, '(nomethod'), $package; +} + +sub Method { + my $package = shift; + if(ref $package) { + local $@; + local $!; + require Scalar::Util; + $package = Scalar::Util::blessed($package); + return undef if !defined $package; + } + #my $meth = $package->can('(' . shift); + ov_method mycan($package, '(' . shift), $package; + #return $meth if $meth ne \&nil; + #return $ {*{$meth}}; +} + +sub AddrRef { + my $package = ref $_[0]; + return "$_[0]" unless $package; + + local $@; + local $!; + require Scalar::Util; + my $class = Scalar::Util::blessed($_[0]); + my $class_prefix = defined($class) ? "$class=" : ""; + my $type = Scalar::Util::reftype($_[0]); + my $addr = Scalar::Util::refaddr($_[0]); + return sprintf("$class_prefix$type(0x%x)", $addr); +} + +*StrVal = *AddrRef; + +sub mycan { # Real can would leave stubs. + my ($package, $meth) = @_; + + my $mro = mro::get_linear_isa($package); + foreach my $p (@$mro) { + my $fqmeth = $p . q{::} . $meth; + return \*{$fqmeth} if defined &{$fqmeth}; + } + + return undef; +} + +%constants = ( + 'integer' => 0x1000, # HINT_NEW_INTEGER + 'float' => 0x2000, # HINT_NEW_FLOAT + 'binary' => 0x4000, # HINT_NEW_BINARY + 'q' => 0x8000, # HINT_NEW_STRING + 'qr' => 0x10000, # HINT_NEW_RE + ); + +%ops = ( with_assign => "+ - * / % ** << >> x .", + assign => "+= -= *= /= %= **= <<= >>= x= .=", + num_comparison => "< <= > >= == !=", + '3way_comparison'=> "<=> cmp", + str_comparison => "lt le gt ge eq ne", + binary => '& &= | |= ^ ^=', + unary => "neg ! ~", + mutators => '++ --', + func => "atan2 cos sin exp abs log sqrt int", + conversion => 'bool "" 0+', + iterators => '<>', + dereferencing => '${} @{} %{} &{} *{}', + matching => '~~', + special => 'nomethod fallback ='); + +use warnings::register; +sub constant { + # Arguments: what, sub + while (@_) { + if (@_ == 1) { + warnings::warnif ("Odd number of arguments for overload::constant"); + last; + } + elsif (!exists $constants {$_ [0]}) { + warnings::warnif ("`$_[0]' is not an overloadable type"); + } + elsif (!ref $_ [1] || "$_[1]" !~ /(^|=)CODE\(0x[0-9a-f]+\)$/) { + # Can't use C<ref $_[1] eq "CODE"> above as code references can be + # blessed, and C<ref> would return the package the ref is blessed into. + if (warnings::enabled) { + $_ [1] = "undef" unless defined $_ [1]; + warnings::warn ("`$_[1]' is not a code reference"); + } + } + else { + $^H{$_[0]} = $_[1]; + $^H |= $constants{$_[0]}; + } + shift, shift; + } +} + +sub remove_constant { + # Arguments: what, sub + while (@_) { + delete $^H{$_[0]}; + $^H &= ~ $constants{$_[0]}; + shift, shift; + } +} + +1; + +__END__ + diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/strict.pm b/beagle/debian-rfs/usr/share/perl/5.10.1/strict.pm new file mode 100644 index 0000000..7928712 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/strict.pm @@ -0,0 +1,46 @@ +package strict; + +$strict::VERSION = "1.04"; + +# Verify that we're called correctly so that strictures will work. +unless ( __FILE__ =~ /(^|[\/\\])\Q${\__PACKAGE__}\E\.pmc?$/ ) { + # Can't use Carp, since Carp uses us! + my (undef, $f, $l) = caller; + die("Incorrect use of pragma '${\__PACKAGE__}' at $f line $l.\n"); +} + +my %bitmask = ( +refs => 0x00000002, +subs => 0x00000200, +vars => 0x00000400 +); + +sub bits { + my $bits = 0; + my @wrong; + foreach my $s (@_) { + push @wrong, $s unless exists $bitmask{$s}; + $bits |= $bitmask{$s} || 0; + } + if (@wrong) { + require Carp; + Carp::croak("Unknown 'strict' tag(s) '@wrong'"); + } + $bits; +} + +my $default_bits = bits(qw(refs subs vars)); + +sub import { + shift; + $^H |= @_ ? bits(@_) : $default_bits; +} + +sub unimport { + shift; + $^H &= ~ (@_ ? bits(@_) : $default_bits); +} + +1; +__END__ + diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/Canonical.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/Canonical.pl new file mode 100644 index 0000000..9a49000 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/Canonical.pl @@ -0,0 +1,1178 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +## +## Data in this file used by ../utf8_heavy.pl +## + +## Mapping from lc(canonical name) to filename in ./lib +%utf8::Canonical = ( + + # InAegeanNumbers + aegeannumbers => 'InAegean', + + alphabetic => 'Alphabet', + + # InAlphabeticPresentationForms + alphabeticpresentationforms => 'InAlphab', + + # InAncientGreekMusicalNotation + ancientgreekmusicalnotation => 'InAncie3', + + # InAncientGreekNumbers + ancientgreeknumbers => 'InAncie2', + + # InAncientSymbols + ancientsymbols => 'InAncien', + + arabic => 'Arab', + + # InArabicPresentationFormsA + arabicpresentationformsa => 'InArabi4', + + # InArabicPresentationFormsB + arabicpresentationformsb => 'InArabi3', + + # InArabicSupplement + arabicsupplement => 'InArabi2', + + armenian => 'Armn', + + # InArrows + arrows => 'InArrows', + + # AsciiHexDigit + asciihexdigit => 'AsciiHex', + + balinese => 'Bali', + + # InBasicLatin + basiclatin => 'InBasicL', + + bengali => 'Beng', + + # BidiControl + bidicontrol => 'BidiCont', + + # InBlockElements + blockelements => 'InBlockE', + + bopomofo => 'Bopo', + + # InBopomofoExtended + bopomofoextended => 'InBopom2', + + # InBoxDrawing + boxdrawing => 'InBoxDra', + + braille => 'Brai', + + # InBraillePatterns + braillepatterns => 'InBraill', + + buginese => 'Bugi', + buhid => 'Buhd', + + # InByzantineMusicalSymbols + byzantinemusicalsymbols => 'InByzant', + + # CanadianAboriginal + canadianaboriginal => 'Canadian', + + carian => 'Cari', + + # CasedLetter + casedletter => 'LC', + + cham => 'Cham', + cherokee => 'Cher', + + # InCjkCompatibility + cjkcompatibility => 'InCjkCom', + + # InCjkCompatibilityForms + cjkcompatibilityforms => 'InCjkCo2', + + # InCjkCompatibilityIdeographs + cjkcompatibilityideographs => 'InCjkCo3', + + # InCjkCompatibilityIdeographsSupplement + cjkcompatibilityideographssupplement => 'InCjkCo4', + + # InCjkRadicalsSupplement + cjkradicalssupplement => 'InCjkRad', + + # InCjkStrokes + cjkstrokes => 'InCjkStr', + + # InCjkSymbolsAndPunctuation + cjksymbolsandpunctuation => 'InCjkSym', + + # InCjkUnifiedIdeographs + cjkunifiedideographs => 'InCjkUni', + + # InCjkUnifiedIdeographsExtensionA + cjkunifiedideographsextensiona => 'InCjkUn3', + + # InCjkUnifiedIdeographsExtensionB + cjkunifiedideographsextensionb => 'InCjkUn2', + + # ClosePunctuation + closepunctuation => 'Pe', + + # InCombiningDiacriticalMarks + combiningdiacriticalmarks => 'InCombi2', + + # InCombiningDiacriticalMarksForSymbols + combiningdiacriticalmarksforsymbols => 'InCombi4', + + # InCombiningDiacriticalMarksSupplement + combiningdiacriticalmarkssupplement => 'InCombi3', + + # InCombiningHalfMarks + combininghalfmarks => 'InCombin', + + common => 'Zyyy', + + # ConnectorPunctuation + connectorpunctuation => 'Pc', + + control => 'Cc', + + # InControlPictures + controlpictures => 'InContro', + + coptic => 'Copt', + + # InCountingRodNumerals + countingrodnumerals => 'InCounti', + + cuneiform => 'Xsux', + + # InCuneiformNumbersAndPunctuation + cuneiformnumbersandpunctuation => 'InCunei2', + + # CurrencySymbol + currencysymbol => 'Sc', + + # InCurrencySymbols + currencysymbols => 'InCurren', + + cypriot => 'Cprt', + + # InCypriotSyllabary + cypriotsyllabary => 'InCyprio', + + cyrillic => 'Cyrl', + + # InCyrillicExtendedA + cyrillicextendeda => 'InCyril3', + + # InCyrillicExtendedB + cyrillicextendedb => 'InCyril2', + + # InCyrillicSupplement + cyrillicsupplement => 'InCyril4', + + dash => 'Dash2', + + # DashPunctuation + dashpunctuation => 'Pd', + + # DecimalNumber + decimalnumber => 'Nd', + + # DefaultIgnorableCodePoint + defaultignorablecodepoint => 'DefaultI', + + deprecated => 'Deprecat', + deseret => 'Dsrt', + devanagari => 'Deva', + diacritic => 'Diacriti', + + # InDingbats + dingbats => 'InDingba', + + # InDominoTiles + dominotiles => 'InDomino', + + # InEnclosedAlphanumerics + enclosedalphanumerics => 'InEnclos', + + # InEnclosedCjkLettersAndMonths + enclosedcjklettersandmonths => 'InEnclo2', + + # EnclosingMark + enclosingmark => 'Me', + + ethiopic => 'Ethi', + + # InEthiopicExtended + ethiopicextended => 'InEthio2', + + # InEthiopicSupplement + ethiopicsupplement => 'InEthio3', + + extender => 'Extender', + + # FinalPunctuation + finalpunctuation => 'Pf', + + format => 'Cf', + + # InGeneralPunctuation + generalpunctuation => 'InGenera', + + # InGeometricShapes + geometricshapes => 'InGeomet', + + georgian => 'Geor', + + # InGeorgianSupplement + georgiansupplement => 'InGeorg2', + + glagolitic => 'Glag', + gothic => 'Goth', + greek => 'Grek', + + # InGreekAndCoptic + greekandcoptic => 'InGreekA', + + # InGreekExtended + greekextended => 'InGreekE', + + gujarati => 'Gujr', + gurmukhi => 'Guru', + + # InHalfwidthAndFullwidthForms + halfwidthandfullwidthforms => 'InHalfwi', + + han => 'Hani', + hangul => 'Hang', + + # InHangulCompatibilityJamo + hangulcompatibilityjamo => 'InHangu3', + + # InHangulJamo + hanguljamo => 'InHangul', + + # InHangulSyllables + hangulsyllables => 'InHangu2', + + hanunoo => 'Hano', + hebrew => 'Hebr', + + # HexDigit + hexdigit => 'HexDigit', + + # InHighPrivateUseSurrogates + highprivateusesurrogates => 'InHighPr', + + # InHighSurrogates + highsurrogates => 'InHighSu', + + hiragana => 'Hira', + hyphen => 'Hyphen2', + + # IdContinue + idcontinue => 'IdContin', + + ideographic => 'Ideograp', + + # InIdeographicDescriptionCharacters + ideographicdescriptioncharacters => 'InIdeogr', + + # IdsBinaryOperator + idsbinaryoperator => 'IdsBinar', + + # IdStart + idstart => 'IdStart', + + # IdsTrinaryOperator + idstrinaryoperator => 'IdsTrina', + + # InAegeanNumbers + inaegeannumbers => 'InAegean', + + # InAlphabeticPresentationForms + inalphabeticpresentationforms => 'InAlphab', + + # InAncientGreekMusicalNotation + inancientgreekmusicalnotation => 'InAncie3', + + # InAncientGreekNumbers + inancientgreeknumbers => 'InAncie2', + + # InAncientSymbols + inancientsymbols => 'InAncien', + + # InArabic + inarabic => 'InArabic', + + # InArabicPresentationFormsA + inarabicpresentationformsa => 'InArabi4', + + # InArabicPresentationFormsB + inarabicpresentationformsb => 'InArabi3', + + # InArabicSupplement + inarabicsupplement => 'InArabi2', + + # InArmenian + inarmenian => 'InArmeni', + + # InArrows + inarrows => 'InArrows', + + # InBalinese + inbalinese => 'InBaline', + + # InBasicLatin + inbasiclatin => 'InBasicL', + + # InBengali + inbengali => 'InBengal', + + # InBlockElements + inblockelements => 'InBlockE', + + # InBopomofo + inbopomofo => 'InBopomo', + + # InBopomofoExtended + inbopomofoextended => 'InBopom2', + + # InBoxDrawing + inboxdrawing => 'InBoxDra', + + # InBraillePatterns + inbraillepatterns => 'InBraill', + + # InBuginese + inbuginese => 'InBugine', + + # InBuhid + inbuhid => 'InBuhid', + + # InByzantineMusicalSymbols + inbyzantinemusicalsymbols => 'InByzant', + + # InCarian + incarian => 'InCarian', + + # InCham + incham => 'InCham', + + # InCherokee + incherokee => 'InCherok', + + # InCjkCompatibility + incjkcompatibility => 'InCjkCom', + + # InCjkCompatibilityForms + incjkcompatibilityforms => 'InCjkCo2', + + # InCjkCompatibilityIdeographs + incjkcompatibilityideographs => 'InCjkCo3', + + # InCjkCompatibilityIdeographsSupplement + incjkcompatibilityideographssupplement => 'InCjkCo4', + + # InCjkRadicalsSupplement + incjkradicalssupplement => 'InCjkRad', + + # InCjkStrokes + incjkstrokes => 'InCjkStr', + + # InCjkSymbolsAndPunctuation + incjksymbolsandpunctuation => 'InCjkSym', + + # InCjkUnifiedIdeographs + incjkunifiedideographs => 'InCjkUni', + + # InCjkUnifiedIdeographsExtensionA + incjkunifiedideographsextensiona => 'InCjkUn3', + + # InCjkUnifiedIdeographsExtensionB + incjkunifiedideographsextensionb => 'InCjkUn2', + + # InCombiningDiacriticalMarks + incombiningdiacriticalmarks => 'InCombi2', + + # InCombiningDiacriticalMarksForSymbols + incombiningdiacriticalmarksforsymbols => 'InCombi4', + + # InCombiningDiacriticalMarksSupplement + incombiningdiacriticalmarkssupplement => 'InCombi3', + + # InCombiningHalfMarks + incombininghalfmarks => 'InCombin', + + # InControlPictures + incontrolpictures => 'InContro', + + # InCoptic + incoptic => 'InCoptic', + + # InCountingRodNumerals + incountingrodnumerals => 'InCounti', + + # InCuneiform + incuneiform => 'InCuneif', + + # InCuneiformNumbersAndPunctuation + incuneiformnumbersandpunctuation => 'InCunei2', + + # InCurrencySymbols + incurrencysymbols => 'InCurren', + + # InCypriotSyllabary + incypriotsyllabary => 'InCyprio', + + # InCyrillic + incyrillic => 'InCyrill', + + # InCyrillicExtendedA + incyrillicextendeda => 'InCyril3', + + # InCyrillicExtendedB + incyrillicextendedb => 'InCyril2', + + # InCyrillicSupplement + incyrillicsupplement => 'InCyril4', + + # InDeseret + indeseret => 'InDesere', + + # InDevanagari + indevanagari => 'InDevana', + + # InDingbats + indingbats => 'InDingba', + + # InDominoTiles + indominotiles => 'InDomino', + + # InEnclosedAlphanumerics + inenclosedalphanumerics => 'InEnclos', + + # InEnclosedCjkLettersAndMonths + inenclosedcjklettersandmonths => 'InEnclo2', + + # InEthiopic + inethiopic => 'InEthiop', + + # InEthiopicExtended + inethiopicextended => 'InEthio2', + + # InEthiopicSupplement + inethiopicsupplement => 'InEthio3', + + # InGeneralPunctuation + ingeneralpunctuation => 'InGenera', + + # InGeometricShapes + ingeometricshapes => 'InGeomet', + + # InGeorgian + ingeorgian => 'InGeorgi', + + # InGeorgianSupplement + ingeorgiansupplement => 'InGeorg2', + + # InGlagolitic + inglagolitic => 'InGlagol', + + # InGothic + ingothic => 'InGothic', + + # InGreekAndCoptic + ingreekandcoptic => 'InGreekA', + + # InGreekExtended + ingreekextended => 'InGreekE', + + # InGujarati + ingujarati => 'InGujara', + + # InGurmukhi + ingurmukhi => 'InGurmuk', + + # InHalfwidthAndFullwidthForms + inhalfwidthandfullwidthforms => 'InHalfwi', + + # InHangulCompatibilityJamo + inhangulcompatibilityjamo => 'InHangu3', + + # InHangulJamo + inhanguljamo => 'InHangul', + + # InHangulSyllables + inhangulsyllables => 'InHangu2', + + # InHanunoo + inhanunoo => 'InHanuno', + + # InHebrew + inhebrew => 'InHebrew', + + inherited => 'Qaai', + + # InHighPrivateUseSurrogates + inhighprivateusesurrogates => 'InHighPr', + + # InHighSurrogates + inhighsurrogates => 'InHighSu', + + # InHiragana + inhiragana => 'InHiraga', + + # InIdeographicDescriptionCharacters + inideographicdescriptioncharacters => 'InIdeogr', + + # InIpaExtensions + inipaextensions => 'InIpaExt', + + # InitialPunctuation + initialpunctuation => 'Pi', + + # InKanbun + inkanbun => 'InKanbun', + + # InKangxiRadicals + inkangxiradicals => 'InKangxi', + + # InKannada + inkannada => 'InKannad', + + # InKatakana + inkatakana => 'InKataka', + + # InKatakanaPhoneticExtensions + inkatakanaphoneticextensions => 'InKatak2', + + # InKayahLi + inkayahli => 'InKayahL', + + # InKharoshthi + inkharoshthi => 'InKharos', + + # InKhmer + inkhmer => 'InKhmer', + + # InKhmerSymbols + inkhmersymbols => 'InKhmerS', + + # InLao + inlao => 'InLao', + + # InLatin1Supplement + inlatin1supplement => 'InLatin1', + + # InLatinExtendedA + inlatinextendeda => 'InLatin2', + + # InLatinExtendedAdditional + inlatinextendedadditional => 'InLatin5', + + # InLatinExtendedB + inlatinextendedb => 'InLatinE', + + # InLatinExtendedC + inlatinextendedc => 'InLatin4', + + # InLatinExtendedD + inlatinextendedd => 'InLatin3', + + # InLepcha + inlepcha => 'InLepcha', + + # InLetterlikeSymbols + inletterlikesymbols => 'InLetter', + + # InLimbu + inlimbu => 'InLimbu', + + # InLinearBIdeograms + inlinearbideograms => 'InLinear', + + # InLinearBSyllabary + inlinearbsyllabary => 'InLinea2', + + # InLowSurrogates + inlowsurrogates => 'InLowSur', + + # InLycian + inlycian => 'InLycian', + + # InLydian + inlydian => 'InLydian', + + # InMahjongTiles + inmahjongtiles => 'InMahjon', + + # InMalayalam + inmalayalam => 'InMalaya', + + # InMathematicalAlphanumericSymbols + inmathematicalalphanumericsymbols => 'InMathe2', + + # InMathematicalOperators + inmathematicaloperators => 'InMathem', + + # InMiscellaneousMathematicalSymbolsA + inmiscellaneousmathematicalsymbolsa => 'InMisce4', + + # InMiscellaneousMathematicalSymbolsB + inmiscellaneousmathematicalsymbolsb => 'InMisce5', + + # InMiscellaneousSymbols + inmiscellaneoussymbols => 'InMiscel', + + # InMiscellaneousSymbolsAndArrows + inmiscellaneoussymbolsandarrows => 'InMisce3', + + # InMiscellaneousTechnical + inmiscellaneoustechnical => 'InMisce2', + + # InModifierToneLetters + inmodifiertoneletters => 'InModifi', + + # InMongolian + inmongolian => 'InMongol', + + # InMusicalSymbols + inmusicalsymbols => 'InMusica', + + # InMyanmar + inmyanmar => 'InMyanma', + + # InNewTaiLue + innewtailue => 'InNewTai', + + # InNko + innko => 'InNko', + + # InNumberForms + innumberforms => 'InNumber', + + # InOgham + inogham => 'InOgham', + + # InOlChiki + inolchiki => 'InOlChik', + + # InOldItalic + inolditalic => 'InOldIta', + + # InOldPersian + inoldpersian => 'InOldPer', + + # InOpticalCharacterRecognition + inopticalcharacterrecognition => 'InOptica', + + # InOriya + inoriya => 'InOriya', + + # InOsmanya + inosmanya => 'InOsmany', + + # InPhagsPa + inphagspa => 'InPhagsP', + + # InPhaistosDisc + inphaistosdisc => 'InPhaist', + + # InPhoenician + inphoenician => 'InPhoeni', + + # InPhoneticExtensions + inphoneticextensions => 'InPhonet', + + # InPhoneticExtensionsSupplement + inphoneticextensionssupplement => 'InPhone2', + + # InPrivateUseArea + inprivateusearea => 'InPrivat', + + # InRejang + inrejang => 'InRejang', + + # InRunic + inrunic => 'InRunic', + + # InSaurashtra + insaurashtra => 'InSauras', + + # InShavian + inshavian => 'InShavia', + + # InSinhala + insinhala => 'InSinhal', + + # InSmallFormVariants + insmallformvariants => 'InSmallF', + + # InSpacingModifierLetters + inspacingmodifierletters => 'InSpacin', + + # InSpecials + inspecials => 'InSpecia', + + # InSundanese + insundanese => 'InSundan', + + # InSuperscriptsAndSubscripts + insuperscriptsandsubscripts => 'InSupers', + + # InSupplementalArrowsA + insupplementalarrowsa => 'InSuppl2', + + # InSupplementalArrowsB + insupplementalarrowsb => 'InSupple', + + # InSupplementalMathematicalOperators + insupplementalmathematicaloperators => 'InSuppl6', + + # InSupplementalPunctuation + insupplementalpunctuation => 'InSuppl3', + + # InSupplementaryPrivateUseAreaA + insupplementaryprivateuseareaa => 'InSuppl4', + + # InSupplementaryPrivateUseAreaB + insupplementaryprivateuseareab => 'InSuppl5', + + # InSylotiNagri + insylotinagri => 'InSyloti', + + # InSyriac + insyriac => 'InSyriac', + + # InTagalog + intagalog => 'InTagalo', + + # InTagbanwa + intagbanwa => 'InTagban', + + # InTags + intags => 'InTags', + + # InTaiLe + intaile => 'InTaiLe', + + # InTaiXuanJingSymbols + intaixuanjingsymbols => 'InTaiXua', + + # InTamil + intamil => 'InTamil', + + # InTelugu + intelugu => 'InTelugu', + + # InThaana + inthaana => 'InThaana', + + # InThai + inthai => 'InThai', + + # InTibetan + intibetan => 'InTibeta', + + # InTifinagh + intifinagh => 'InTifina', + + # InUgaritic + inugaritic => 'InUgarit', + + # InUnifiedCanadianAboriginalSyllabics + inunifiedcanadianaboriginalsyllabics => 'InUnifie', + + # InVai + invai => 'InVai', + + # InVariationSelectors + invariationselectors => 'InVariat', + + # InVariationSelectorsSupplement + invariationselectorssupplement => 'InVaria2', + + # InVerticalForms + inverticalforms => 'InVertic', + + # InYijingHexagramSymbols + inyijinghexagramsymbols => 'InYijing', + + # InYiRadicals + inyiradicals => 'InYiRadi', + + # InYiSyllables + inyisyllables => 'InYiSyll', + + # InIpaExtensions + ipaextensions => 'InIpaExt', + + # JoinControl + joincontrol => 'JoinCont', + + # InKanbun + kanbun => 'InKanbun', + + # InKangxiRadicals + kangxiradicals => 'InKangxi', + + kannada => 'Knda', + katakana => 'Kana', + + # InKatakanaPhoneticExtensions + katakanaphoneticextensions => 'InKatak2', + + # KayahLi + kayahli => 'KayahLi', + + kharoshthi => 'Khar', + khmer => 'Khmr', + + # InKhmerSymbols + khmersymbols => 'InKhmerS', + + lao => 'Laoo', + latin => 'Latn', + + # InLatin1Supplement + latin1supplement => 'InLatin1', + + # InLatinExtendedA + latinextendeda => 'InLatin2', + + # InLatinExtendedAdditional + latinextendedadditional => 'InLatin5', + + # InLatinExtendedB + latinextendedb => 'InLatinE', + + # InLatinExtendedC + latinextendedc => 'InLatin4', + + # InLatinExtendedD + latinextendedd => 'InLatin3', + + lepcha => 'Lepc', + letter => 'L', + + # InLetterlikeSymbols + letterlikesymbols => 'InLetter', + + # LetterNumber + letternumber => 'Nl', + + limbu => 'Limb', + + # LinearB + linearb => 'LinearB', + + # InLinearBIdeograms + linearbideograms => 'InLinear', + + # InLinearBSyllabary + linearbsyllabary => 'InLinea2', + + # LineSeparator + lineseparator => 'Zl', + + # LogicalOrderException + logicalorderexception => 'LogicalO', + + lowercase => 'Lowercas', + + # LowercaseLetter + lowercaseletter => 'Ll', + + # InLowSurrogates + lowsurrogates => 'InLowSur', + + lycian => 'Lyci', + lydian => 'Lydi', + + # InMahjongTiles + mahjongtiles => 'InMahjon', + + malayalam => 'Mlym', + mark => 'M', + math => 'Math', + + # InMathematicalAlphanumericSymbols + mathematicalalphanumericsymbols => 'InMathe2', + + # InMathematicalOperators + mathematicaloperators => 'InMathem', + + # MathSymbol + mathsymbol => 'Sm', + + # InMiscellaneousMathematicalSymbolsA + miscellaneousmathematicalsymbolsa => 'InMisce4', + + # InMiscellaneousMathematicalSymbolsB + miscellaneousmathematicalsymbolsb => 'InMisce5', + + # InMiscellaneousSymbols + miscellaneoussymbols => 'InMiscel', + + # InMiscellaneousSymbolsAndArrows + miscellaneoussymbolsandarrows => 'InMisce3', + + # InMiscellaneousTechnical + miscellaneoustechnical => 'InMisce2', + + # ModifierLetter + modifierletter => 'Lm', + + # ModifierSymbol + modifiersymbol => 'Sk', + + # InModifierToneLetters + modifiertoneletters => 'InModifi', + + mongolian => 'Mong', + + # InMusicalSymbols + musicalsymbols => 'InMusica', + + myanmar => 'Mymr', + + # NewTaiLue + newtailue => 'NewTaiLu', + + nko => 'Nkoo', + + # NoncharacterCodePoint + noncharactercodepoint => 'Nonchara', + + # NonspacingMark + nonspacingmark => 'Mn', + + number => 'N', + + # InNumberForms + numberforms => 'InNumber', + + ogham => 'Ogam', + + # OlChiki + olchiki => 'OlChiki', + + # OldItalic + olditalic => 'OldItali', + + # OldPersian + oldpersian => 'OldPersi', + + # OpenPunctuation + openpunctuation => 'Ps', + + # InOpticalCharacterRecognition + opticalcharacterrecognition => 'InOptica', + + oriya => 'Orya', + osmanya => 'Osma', + other => 'C', + + # OtherAlphabetic + otheralphabetic => 'OtherAlp', + + # OtherDefaultIgnorableCodePoint + otherdefaultignorablecodepoint => 'OtherDef', + + # OtherGraphemeExtend + othergraphemeextend => 'OtherGra', + + # OtherIdContinue + otheridcontinue => 'OtherIdC', + + # OtherIdStart + otheridstart => 'OtherIdS', + + # OtherLetter + otherletter => 'Lo', + + # OtherLowercase + otherlowercase => 'OtherLow', + + # OtherMath + othermath => 'OtherMat', + + # OtherNumber + othernumber => 'No', + + # OtherPunctuation + otherpunctuation => 'Po', + + # OtherSymbol + othersymbol => 'So', + + # OtherUppercase + otheruppercase => 'OtherUpp', + + # ParagraphSeparator + paragraphseparator => 'Zp', + + # PatternSyntax + patternsyntax => 'PatternS', + + # PatternWhiteSpace + patternwhitespace => 'PatternW', + + # PhagsPa + phagspa => 'PhagsPa', + + # InPhaistosDisc + phaistosdisc => 'InPhaist', + + phoenician => 'Phnx', + + # InPhoneticExtensions + phoneticextensions => 'InPhonet', + + # InPhoneticExtensionsSupplement + phoneticextensionssupplement => 'InPhone2', + + # PrivateUse + privateuse => 'Co', + + # InPrivateUseArea + privateusearea => 'InPrivat', + + punctuation => 'P', + + # QuotationMark + quotationmark => 'Quotatio', + + radical => 'Radical2', + rejang => 'Rjng', + runic => 'Runr', + saurashtra => 'Saur', + separator => 'Z', + shavian => 'Shaw', + sinhala => 'Sinh', + + # InSmallFormVariants + smallformvariants => 'InSmallF', + + # SoftDotted + softdotted => 'SoftDott', + + # SpaceSeparator + spaceseparator => 'Zs', + + # SpacingMark + spacingmark => 'Mc', + + # InSpacingModifierLetters + spacingmodifierletters => 'InSpacin', + + # InSpecials + specials => 'InSpecia', + + sterm => 'Sterm2', + sundanese => 'Sund', + + # InSuperscriptsAndSubscripts + superscriptsandsubscripts => 'InSupers', + + # InSupplementalArrowsA + supplementalarrowsa => 'InSuppl2', + + # InSupplementalArrowsB + supplementalarrowsb => 'InSupple', + + # InSupplementalMathematicalOperators + supplementalmathematicaloperators => 'InSuppl6', + + # InSupplementalPunctuation + supplementalpunctuation => 'InSuppl3', + + # InSupplementaryPrivateUseAreaA + supplementaryprivateuseareaa => 'InSuppl4', + + # InSupplementaryPrivateUseAreaB + supplementaryprivateuseareab => 'InSuppl5', + + surrogate => 'Cs', + + # SylotiNagri + sylotinagri => 'SylotiNa', + + symbol => 'S', + syriac => 'Syrc', + tagalog => 'Tglg', + tagbanwa => 'Tagb', + + # InTags + tags => 'InTags', + + # TaiLe + taile => 'TaiLe', + + # InTaiXuanJingSymbols + taixuanjingsymbols => 'InTaiXua', + + tamil => 'Taml', + telugu => 'Telu', + + # TerminalPunctuation + terminalpunctuation => 'Terminal', + + thaana => 'Thaa', + thai => 'Thai', + tibetan => 'Tibt', + tifinagh => 'Tfng', + + # TitlecaseLetter + titlecaseletter => 'Lt', + + ugaritic => 'Ugar', + unassigned => 'Cn', + + # InUnifiedCanadianAboriginalSyllabics + unifiedcanadianaboriginalsyllabics => 'InUnifie', + + # UnifiedIdeograph + unifiedideograph => 'UnifiedI', + + uppercase => 'Uppercas', + + # UppercaseLetter + uppercaseletter => 'Lu', + + vai => 'Vaii', + + # VariationSelector + variationselector => 'Variatio', + + # InVariationSelectors + variationselectors => 'InVariat', + + # InVariationSelectorsSupplement + variationselectorssupplement => 'InVaria2', + + # InVerticalForms + verticalforms => 'InVertic', + + # WhiteSpace + whitespace => 'WhiteSpa', + + yi => 'Yiii', + + # InYijingHexagramSymbols + yijinghexagramsymbols => 'InYijing', + + # InYiRadicals + yiradicals => 'InYiRadi', + + # InYiSyllables + yisyllables => 'InYiSyll', + +); +1 diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/Exact.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/Exact.pl new file mode 100644 index 0000000..5d4e993 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/Exact.pl @@ -0,0 +1,88 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +## +## Data in this file used by ../utf8_heavy.pl +## + +## Mapping from name to filename in ./lib/gc_sc +%utf8::Exact = ( + ASCII => 'ASCII', + All => 'Any', + Alnum => 'Alnum', + Alpha => 'Alpha', + Any => 'Any', + Assigned => 'Assigned', + Blank => 'Blank', + C => 'C', + Cc => 'Cc', + Cf => 'Cf', + Cn => 'Cn', + Cntrl => 'Cntrl', + Co => 'Co', + Cs => 'Cs', + Digit => 'Digit', + Graph => 'Graph', + HorizSpace => 'HorizSpa', + InGreek => 'InGreekA', + L => 'L', + LC => 'LC', + Ll => 'Ll', + Lm => 'Lm', + Lo => 'Lo', + Lower => 'Lower', + Lt => 'Lt', + Lu => 'Lu', + M => 'M', + Mc => 'Mc', + Me => 'Me', + Mn => 'Mn', + N => 'N', + Nd => 'Nd', + Nl => 'Nl', + No => 'No', + P => 'P', + Pc => 'Pc', + Pd => 'Pd', + Pe => 'Pe', + PerlSpace => 'PerlSpac', + PerlWord => 'PerlWord', + Pf => 'Pf', + Pi => 'Pi', + Po => 'Po', + PosixAlnum => 'PosixAln', + PosixAlpha => 'PosixAlp', + PosixBlank => 'PosixBla', + PosixCntrl => 'PosixCnt', + PosixDigit => 'PosixDig', + PosixGraph => 'PosixGra', + PosixLower => 'PosixLow', + PosixPrint => 'PosixPri', + PosixPunct => 'PosixPun', + PosixSpace => 'PosixSpa', + PosixUpper => 'PosixUpp', + Print => 'Print', + Ps => 'Ps', + Punct => 'Punct', + S => 'S', + Sc => 'Sc', + Sk => 'Sk', + Sm => 'Sm', + So => 'So', + Space => 'Space', + SpacePerl => 'SpacePer', + Title => 'Title', + Upper => 'Upper', + VertSpace => 'VertSpac', + Word => 'Word', + XDigit => 'XDigit', + Z => 'Z', + Zl => 'Zl', + Zp => 'Zp', + Zs => 'Zs', + _CanonDCIJ => '_CanonDC', + _CaseIgnorable => '_CaseIgn', + _CombAbove => '_CombAbo', +); +1; diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/PVA.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/PVA.pl new file mode 100644 index 0000000..952fe90 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/PVA.pl @@ -0,0 +1,3604 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + + +%utf8::PropertyAlias = ( +'sc', +'Script', +'xonfkd', +'ExpandsOnNFKD', +'patsyn', +'PatternSyntax', +'nfkcqc', +'NFKCQuickCheck', +'oalpha', +'OtherAlphabetic', +'gcb', +'GraphemeClusterBreak', +'nfcqc', +'NFCQuickCheck', +'ids', +'IDStart', +'lb', +'LineBreak', +'stc', +'SimpleTitlecaseMapping', +'xonfkc', +'ExpandsOnNFKC', +'patws', +'PatternWhiteSpace', +'tc', +'TitlecaseMapping', +'lower', +'Lowercase', +'idst', +'IDSTrinaryOperator', +'radical', +'Radical', +'fcnfkc', +'FCNFKCClosure', +'dm', +'DecompositionMapping', +'slc', +'SimpleLowercaseMapping', +'wspace', +'WhiteSpace', +'di', +'DefaultIgnorableCodePoint', +'jsn', +'JamoShortName', +'nt', +'NumericType', +'ea', +'EastAsianWidth', +'ahex', +'ASCIIHexDigit', +'alpha', +'Alphabetic', +'uc', +'UppercaseMapping', +'dia', +'Diacritic', +'gc', +'GeneralCategory', +'xids', +'XIDStart', +'oupper', +'OtherUppercase', +'wb', +'WordBreak', +'math', +'Math', +'sb', +'SentenceBreak', +'qmark', +'QuotationMark', +'nfdqc', +'NFDQuickCheck', +'ideo', +'Ideographic', +'blk', +'Block', +'odi', +'OtherDefaultIgnorableCodePoint', +'hst', +'HangulSyllableType', +'bidim', +'BidiMirrored', +'olower', +'OtherLowercase', +'na', +'Name', +'hyphen', +'Hyphen', +'xidc', +'XIDContinue', +'oidc', +'OtherIDContinue', +'bidic', +'BidiControl', +'scf', +'SimpleCaseFolding', +'na1', +'Unicode1Name', +'compex', +'FullCompositionExclusion', +'ext', +'Extender', +'cf', +'CaseFolding', +'grlink', +'GraphemeLink', +'xonfc', +'ExpandsOnNFC', +'sd', +'SoftDotted', +'ccc', +'CanonicalCombiningClass', +'dash', +'Dash', +'hex', +'HexDigit', +'grbase', +'GraphemeBase', +'dt', +'DecompositionType', +'xonfd', +'ExpandsOnNFD', +'idsb', +'IDSBinaryOperator', +'age', +'Age', +'loe', +'LogicalOrderException', +'term', +'TerminalPunctuation', +'ce', +'CompositionExclusion', +'isc', +'ISOComment', +'dep', +'Deprecated', +'bc', +'BidiClass', +'nchar', +'NoncharacterCodePoint', +'jt', +'JoiningType', +'upper', +'Uppercase', +'uideo', +'UnifiedIdeograph', +'sterm', +'STerm', +'nfkdqc', +'NFKDQuickCheck', +'oids', +'OtherIDStart', +'joinc', +'JoinControl', +'urs', +'UnicodeRadicalStroke', +'nv', +'NumericValue', +'suc', +'SimpleUppercaseMapping', +'bmg', +'BidiMirroringGlyph', +'grext', +'GraphemeExtend', +'idc', +'IDContinue', +'vs', +'VariationSelector', +'omath', +'OtherMath', +'lc', +'LowercaseMapping', +'ogrext', +'OtherGraphemeExtend', +'jg', +'JoiningGroup', +); + +%utf8::PA_reverse = ( +'linebreak', +'lb', +'bidiclass', +'bc', +'terminalpunctuation', +'Term', +'expandsonnfkc', +'XONFKC', +'extender', +'Ext', +'simplecasefolding', +'scf', +'patternsyntax', +'PatSyn', +'sentencebreak', +'SB', +'numericvalue', +'nv', +'patternwhitespace', +'PatWS', +'softdotted', +'SD', +'logicalorderexception', +'LOE', +'idstart', +'IDS', +'generalcategory', +'gc', +'decompositiontype', +'dt', +'name', +'na', +'numerictype', +'nt', +'otherlowercase', +'OLower', +'joininggroup', +'jg', +'expandsonnfkd', +'XONFKD', +'deprecated', +'Dep', +'radical', +'Radical', +'idstrinaryoperator', +'IDST', +'xidstart', +'XIDS', +'lowercase', +'Lower', +'unifiedideograph', +'UIdeo', +'othergraphemeextend', +'OGrExt', +'jamoshortname', +'JSN', +'eastasianwidth', +'ea', +'math', +'Math', +'graphemelink', +'GrLink', +'noncharactercodepoint', +'NChar', +'graphemebase', +'GrBase', +'bidimirrored', +'BidiM', +'casefolding', +'cf', +'simpleuppercasemapping', +'suc', +'fullcompositionexclusion', +'CompEx', +'compositionexclusion', +'CE', +'uppercasemapping', +'uc', +'decompositionmapping', +'dm', +'whitespace', +'WSpace', +'hyphen', +'Hyphen', +'ideographic', +'Ideo', +'idcontinue', +'IDC', +'idsbinaryoperator', +'IDSB', +'hangulsyllabletype', +'hst', +'asciihexdigit', +'AHex', +'otheruppercase', +'OUpper', +'nfkdquickcheck', +'NFKDQC', +'simpletitlecasemapping', +'stc', +'nfcquickcheck', +'NFCQC', +'bidicontrol', +'BidiC', +'diacritic', +'Dia', +'joiningtype', +'jt', +'otheralphabetic', +'OAlpha', +'canonicalcombiningclass', +'ccc', +'alphabetic', +'Alpha', +'titlecasemapping', +'tc', +'unicoderadicalstroke', +'URS', +'hexdigit', +'Hex', +'unicode1name', +'na1', +'dash', +'Dash', +'fcnfkcclosure', +'FCNFKC', +'graphemeextend', +'GrExt', +'joincontrol', +'JoinC', +'xidcontinue', +'XIDC', +'quotationmark', +'QMark', +'expandsonnfd', +'XONFD', +'age', +'age', +'otheridcontinue', +'OIDC', +'uppercase', +'Upper', +'expandsonnfc', +'XONFC', +'defaultignorablecodepoint', +'DI', +'nfdquickcheck', +'NFDQC', +'isocomment', +'isc', +'otherdefaultignorablecodepoint', +'ODI', +'variationselector', +'VS', +'script', +'sc', +'otheridstart', +'OIDS', +'sterm', +'STerm', +'graphemeclusterbreak', +'GCB', +'nfkcquickcheck', +'NFKCQC', +'bidimirroringglyph', +'bmg', +'othermath', +'OMath', +'block', +'blk', +'wordbreak', +'WB', +'lowercasemapping', +'lc', +'simplelowercasemapping', +'slc', +); + +%utf8::PropValueAlias = ( +'sc', +{ +'runr', +'Runic', +'osma', +'Osmanya', +'hano', +'Hanunoo', +'cans', +'CanadianAboriginal', +'knda', +'Kannada', +'vaii', +'Vai', +'phnx', +'Phoenician', +'orya', +'Oriya', +'cher', +'Cherokee', +'khmr', +'Khmer', +'ogam', +'Ogham', +'saur', +'Saurashtra', +'cham', +'Cham', +'ital', +'OldItalic', +'tibt', +'Tibetan', +'lydi', +'Lydian', +'kana', +'Katakana', +'lepc', +'Lepcha', +'gujr', +'Gujarati', +'thaa', +'Thaana', +'copt', +'Coptic', +'sylo', +'SylotiNagri', +'talu', +'NewTaiLue', +'laoo', +'Lao', +'sinh', +'Sinhala', +'hira', +'Hiragana', +'cari', +'Carian', +'limb', +'Limbu', +'mymr', +'Myanmar', +'yiii', +'Yi', +'arab', +'Arabic', +'deva', +'Devanagari', +'xpeo', +'OldPersian', +'cprt', +'Cypriot', +'bugi', +'Buginese', +'hebr', +'Hebrew', +'tglg', +'Tagalog', +'sund', +'Sundanese', +'mlym', +'Malayalam', +'tagb', +'Tagbanwa', +'grek', +'Greek', +'ethi', +'Ethiopic', +'phag', +'PhagsPa', +'mong', +'Mongolian', +'hrkt', +'KatakanaOrHiragana', +'armn', +'Armenian', +'hani', +'Han', +'shaw', +'Shavian', +'taml', +'Tamil', +'guru', +'Gurmukhi', +'xsux', +'Cuneiform', +'ugar', +'Ugaritic', +'qaai', +'Inherited', +'cyrl', +'Cyrillic', +'thai', +'Thai', +'zzzz', +'Unknown', +'olck', +'OlChiki', +'beng', +'Bengali', +'bali', +'Balinese', +'kali', +'KayahLi', +'brai', +'Braille', +'telu', +'Telugu', +'geor', +'Georgian', +'hang', +'Hangul', +'glag', +'Glagolitic', +'syrc', +'Syriac', +'tfng', +'Tifinagh', +'dsrt', +'Deseret', +'buhd', +'Buhid', +'bopo', +'Bopomofo', +'khar', +'Kharoshthi', +'linb', +'LinearB', +'goth', +'Gothic', +'lyci', +'Lycian', +'rjng', +'Rejang', +'tale', +'TaiLe', +'zyyy', +'Common', +'latn', +'Latin', +'nkoo', +'Nko', +}, +'JSN', +{ +'gg', +'GG', +'lm', +'LM', +'a', +'A', +'ya', +'YA', +'d', +'D', +'yae', +'YAE', +'nh', +'NH', +'lp', +'LP', +'j', +'J', +'u', +'U', +'jj', +'JJ', +'ss', +'SS', +'k', +'K', +'g', +'G', +'bb', +'BB', +'lb', +'LB', +'t', +'T', +'e', +'E', +'dd', +'DD', +'s', +'S', +'lt', +'LT', +'c', +'C', +'gs', +'GS', +'b', +'B', +'nj', +'NJ', +'lh', +'LH', +'yi', +'YI', +'weo', +'WEO', +'r', +'R', +'ls', +'LS', +'we', +'WE', +'bs', +'BS', +'lg', +'LG', +'yo', +'YO', +'oe', +'OE', +'h', +'H', +'yu', +'YU', +'wi', +'WI', +'eu', +'EU', +'wa', +'WA', +'i', +'I', +'n', +'N', +'ye', +'YE', +'eo', +'EO', +'m', +'M', +'yeo', +'YEO', +'l', +'L', +'p', +'P', +'ng', +'NG', +'wae', +'WAE', +'ae', +'AE', +'o', +'O', +}, +'Pat_Syn', +{ +'y', +'Yes', +'n', +'No', +}, +'IDS', +{ +'y', +'Yes', +'n', +'No', +}, +'Dep', +{ +'y', +'Yes', +'n', +'No', +}, +'OUpper', +{ +'y', +'Yes', +'n', +'No', +}, +'OAlpha', +{ +'y', +'Yes', +'n', +'No', +}, +'Lower', +{ +'y', +'Yes', +'n', +'No', +}, +'GCB', +{ +'cn', +'Control', +'ex', +'Extend', +'v', +'V', +'pp', +'Prepend', +'lv', +'LV', +'xx', +'Other', +'sm', +'SpacingMark', +'l', +'L', +'lvt', +'LVT', +'cr', +'CR', +'lf', +'LF', +'t', +'T', +}, +'lb', +{ +'sp', +'Space', +'ba', +'BreakAfter', +'gl', +'Glue', +'xx', +'Unknown', +'nu', +'Numeric', +'cb', +'ContingentBreak', +'sy', +'BreakSymbols', +'cr', +'CarriageReturn', +'in', +'Inseparable', +'bb', +'BreakBefore', +'sg', +'Surrogate', +'sa', +'ComplexContext', +'po', +'PostfixNumeric', +'jl', +'JL', +'id', +'Ideographic', +'al', +'Alphabetic', +'bk', +'MandatoryBreak', +'pr', +'PrefixNumeric', +'b2', +'BreakBoth', +'op', +'OpenPunctuation', +'cl', +'ClosePunctuation', +'is', +'InfixNumeric', +'qu', +'Quotation', +'hy', +'Hyphen', +'wj', +'WordJoiner', +'zw', +'ZWSpace', +'jt', +'JT', +'ex', +'Exclamation', +'cm', +'CombiningMark', +'h2', +'H2', +'nl', +'NextLine', +'ns', +'Nonstarter', +'h3', +'H3', +'ai', +'Ambiguous', +'lf', +'LineFeed', +'jv', +'JV', +}, +'AHex', +{ +'y', +'Yes', +'n', +'No', +}, +'DI', +{ +'y', +'Yes', +'n', +'No', +}, +'OLower', +{ +'y', +'Yes', +'n', +'No', +}, +'CE', +{ +'y', +'Yes', +'n', +'No', +}, +'XO_NFKC', +{ +'y', +'Yes', +'n', +'No', +}, +'LOE', +{ +'y', +'Yes', +'n', +'No', +}, +'WSpace', +{ +'y', +'Yes', +'n', +'No', +}, +'XO_NFC', +{ +'y', +'Yes', +'n', +'No', +}, +'Bidi_M', +{ +'y', +'Yes', +'n', +'No', +}, +'XIDC', +{ +'y', +'Yes', +'n', +'No', +}, +'Radical', +{ +'y', +'Yes', +'n', +'No', +}, +'Alpha', +{ +'y', +'Yes', +'n', +'No', +}, +'STerm', +{ +'y', +'Yes', +'n', +'No', +}, +'nt', +{ +'none', +'None', +'di', +'Digit', +'de', +'Decimal', +'nu', +'Numeric', +}, +'ea', +{ +'w', +'Wide', +'n', +'Neutral', +'h', +'Halfwidth', +'a', +'Ambiguous', +'f', +'Fullwidth', +'na', +'Narrow', +}, +'Ext', +{ +'y', +'Yes', +'n', +'No', +}, +'XO_NFD', +{ +'y', +'Yes', +'n', +'No', +}, +'OMath', +{ +'y', +'Yes', +'n', +'No', +}, +'ODI', +{ +'y', +'Yes', +'n', +'No', +}, +'gc', +{ +'sc', +'CurrencySymbol', +'mc', +'SpacingMark', +'lm', +'ModifierLetter', +'cn', +'Unassigned', +'pf', +'FinalPunctuation', +'no', +'OtherNumber', +'cc', +'Control', +'lo', +'OtherLetter', +'po', +'OtherPunctuation', +'zs', +'SpaceSeparator', +'co', +'PrivateUse', +'so', +'OtherSymbol', +'ll', +'LowercaseLetter', +'nd', +'DecimalNumber', +'cf', +'Format', +'me', +'EnclosingMark', +'s', +'Symbol', +'zp', +'ParagraphSeparator', +'pd', +'DashPunctuation', +'c', +'Other', +'lt', +'TitlecaseLetter', +'cs', +'Surrogate', +'l&', +'CasedLetter', +'z', +'Separator', +'ps', +'OpenPunctuation', +'zl', +'LineSeparator', +'pc', +'ConnectorPunctuation', +'pi', +'InitialPunctuation', +'n', +'Number', +'m', +'Mark', +'nl', +'LetterNumber', +'sm', +'MathSymbol', +'l', +'Letter', +'mn', +'NonspacingMark', +'p', +'Punctuation', +'lc', +'CasedLetter', +'sk', +'ModifierSymbol', +'lu', +'UppercaseLetter', +'pe', +'ClosePunctuation', +}, +'IDSB', +{ +'y', +'Yes', +'n', +'No', +}, +'NChar', +{ +'y', +'Yes', +'n', +'No', +}, +'UIdeo', +{ +'y', +'Yes', +'n', +'No', +}, +'Term', +{ +'y', +'Yes', +'n', +'No', +}, +'QMark', +{ +'y', +'Yes', +'n', +'No', +}, +'Hyphen', +{ +'y', +'Yes', +'n', +'No', +}, +'XIDS', +{ +'y', +'Yes', +'n', +'No', +}, +'NFC_QC', +{ +'y', +'Yes', +'n', +'No', +'m', +'Maybe', +}, +'Dia', +{ +'y', +'Yes', +'n', +'No', +}, +'Bidi_C', +{ +'y', +'Yes', +'n', +'No', +}, +'hst', +{ +'l', +'LeadingJamo', +'lvt', +'LVTSyllable', +'v', +'VowelJamo', +'lv', +'LVSyllable', +'t', +'TrailingJamo', +'na', +'NotApplicable', +}, +'WB', +{ +'extend', +'Extend', +'ml', +'MidLetter', +'mb', +'MidNumLet', +'le', +'ALetter', +'ex', +'ExtendNumLet', +'xx', +'Other', +'nu', +'Numeric', +'nl', +'Newline', +'mn', +'MidNum', +'fo', +'Format', +'cr', +'CR', +'ka', +'Katakana', +'lf', +'LF', +}, +'Math', +{ +'y', +'Yes', +'n', +'No', +}, +'Pat_WS', +{ +'y', +'Yes', +'n', +'No', +}, +'SD', +{ +'y', +'Yes', +'n', +'No', +}, +'Upper', +{ +'y', +'Yes', +'n', +'No', +}, +'OIDC', +{ +'y', +'Yes', +'n', +'No', +}, +'IDST', +{ +'y', +'Yes', +'n', +'No', +}, +'Gr_Ext', +{ +'y', +'Yes', +'n', +'No', +}, +'Comp_Ex', +{ +'y', +'Yes', +'n', +'No', +}, +'NFD_QC', +{ +'y', +'Yes', +'n', +'No', +}, +'VS', +{ +'y', +'Yes', +'n', +'No', +}, +'Join_C', +{ +'y', +'Yes', +'n', +'No', +}, +'ccc', +{ +'atb', +'AttachedBelow', +'db', +'DoubleBelow', +'a', +'Above', +'r', +'Right', +'da', +'DoubleAbove', +'is', +'IotaSubscript', +'nr', +'NotReordered', +'ov', +'Overlay', +'br', +'BelowRight', +'nk', +'Nukta', +'atbl', +'AttachedBelowLeft', +'al', +'AboveLeft', +'ar', +'AboveRight', +'atar', +'AttachedAboveRight', +'l', +'Left', +'b', +'Below', +'vr', +'Virama', +'kv', +'KanaVoicing', +'bl', +'BelowLeft', +}, +'dt', +{ +'fra', +'Fraction', +'none', +'none', +'sml', +'Small', +'enc', +'Circle', +'font', +'font', +'init', +'Initial', +'nb', +'Nobreak', +'iso', +'Isolated', +'sup', +'Super', +'fin', +'Final', +'wide', +'wide', +'nar', +'Narrow', +'can', +'Canonical', +'med', +'Medial', +'sub', +'sub', +'vert', +'Vertical', +'sqr', +'Square', +'com', +'Compat', +}, +'Ideo', +{ +'y', +'Yes', +'n', +'No', +}, +'Gr_Link', +{ +'y', +'Yes', +'n', +'No', +}, +'OGr_Ext', +{ +'y', +'Yes', +'n', +'No', +}, +'XO_NFKD', +{ +'y', +'Yes', +'n', +'No', +}, +'NFKC_QC', +{ +'y', +'Yes', +'n', +'No', +'m', +'Maybe', +}, +'bc', +{ +'r', +'RightToLeft', +'rlo', +'RightToLeftOverride', +'es', +'EuropeanSeparator', +'ws', +'WhiteSpace', +'rle', +'RightToLeftEmbedding', +'on', +'OtherNeutral', +'bn', +'BoundaryNeutral', +'et', +'EuropeanTerminator', +'pdf', +'PopDirectionalFormat', +'lro', +'LeftToRightOverride', +'s', +'SegmentSeparator', +'al', +'ArabicLetter', +'en', +'EuropeanNumber', +'l', +'LeftToRight', +'b', +'ParagraphSeparator', +'lre', +'LeftToRightEmbedding', +'cs', +'CommonSeparator', +'nsm', +'NonspacingMark', +'an', +'ArabicNumber', +}, +'Dash', +{ +'y', +'Yes', +'n', +'No', +}, +'jt', +{ +'l', +'LeftJoining', +'u', +'NonJoining', +'c', +'JoinCausing', +'r', +'RightJoining', +'d', +'DualJoining', +'t', +'Transparent', +}, +'NFKD_QC', +{ +'y', +'Yes', +'n', +'No', +}, +'IDC', +{ +'y', +'Yes', +'n', +'No', +}, +'OIDS', +{ +'y', +'Yes', +'n', +'No', +}, +'Gr_Base', +{ +'y', +'Yes', +'n', +'No', +}, +'Hex', +{ +'y', +'Yes', +'n', +'No', +}, +'SB', +{ +'sp', +'Sp', +'sc', +'SContinue', +'cl', +'Close', +'le', +'OLetter', +'ex', +'Extend', +'up', +'Upper', +'st', +'STerm', +'xx', +'Other', +'nu', +'Numeric', +'fo', +'Format', +'cr', +'CR', +'se', +'Sep', +'lo', +'Lower', +'at', +'ATerm', +'lf', +'LF', +}, +); + +%utf8::PVA_reverse = ( +'sc', +{ +'newtailue', +'Talu', +'kayahli', +'Kali', +'hebrew', +'Hebr', +'phoenician', +'Phnx', +'linearb', +'Linb', +'cham', +'Cham', +'ugaritic', +'Ugar', +'sundanese', +'Sund', +'armenian', +'Armn', +'myanmar', +'Mymr', +'gurmukhi', +'Guru', +'greek', +'Grek', +'coptic', +'Copt', +'thaana', +'Thaa', +'katakana', +'Kana', +'tibetan', +'Tibt', +'mongolian', +'Mong', +'malayalam', +'Mlym', +'oriya', +'Orya', +'carian', +'Cari', +'buhid', +'Buhd', +'cypriot', +'Cprt', +'bengali', +'Beng', +'katakanaorhiragana', +'Hrkt', +'oldpersian', +'Xpeo', +'tagalog', +'Tglg', +'cherokee', +'Cher', +'ogham', +'Ogam', +'common', +'Zyyy', +'saurashtra', +'Saur', +'vai', +'Vaii', +'ethiopic', +'Ethi', +'han', +'Hani', +'lydian', +'Lydi', +'gothic', +'Goth', +'osmanya', +'Osma', +'devanagari', +'Deva', +'buginese', +'Bugi', +'canadianaboriginal', +'Cans', +'gujarati', +'Gujr', +'latin', +'Latn', +'rejang', +'Rjng', +'hangul', +'Hang', +'deseret', +'Dsrt', +'olchiki', +'Olck', +'inherited', +'Qaai', +'taile', +'Tale', +'tifinagh', +'Tfng', +'cyrillic', +'Cyrl', +'lao', +'Laoo', +'khmer', +'Khmr', +'balinese', +'Bali', +'hiragana', +'Hira', +'lepcha', +'Lepc', +'thai', +'Thai', +'yi', +'Yiii', +'sylotinagri', +'Sylo', +'bopomofo', +'Bopo', +'telugu', +'Telu', +'limbu', +'Limb', +'cuneiform', +'Xsux', +'unknown', +'Zzzz', +'syriac', +'Syrc', +'hanunoo', +'Hano', +'braille', +'Brai', +'tamil', +'Taml', +'lycian', +'Lyci', +'nko', +'Nkoo', +'runic', +'Runr', +'glagolitic', +'Glag', +'georgian', +'Geor', +'kharoshthi', +'Khar', +'kannada', +'Knda', +'arabic', +'Arab', +'tagbanwa', +'Tagb', +'sinhala', +'Sinh', +'olditalic', +'Ital', +'phagspa', +'Phag', +'shavian', +'Shaw', +}, +'JSN', +{ +'gg', +'GG', +'lm', +'LM', +'a', +'A', +'ya', +'YA', +'d', +'D', +'yae', +'YAE', +'nh', +'NH', +'lp', +'LP', +'j', +'J', +'u', +'U', +'jj', +'JJ', +'ss', +'SS', +'k', +'K', +'g', +'G', +'bb', +'BB', +'lb', +'LB', +'t', +'T', +'e', +'E', +'dd', +'DD', +'s', +'S', +'lt', +'LT', +'c', +'C', +'gs', +'GS', +'b', +'B', +'nj', +'NJ', +'lh', +'LH', +'yi', +'YI', +'weo', +'WEO', +'r', +'R', +'ls', +'LS', +'we', +'WE', +'bs', +'BS', +'lg', +'LG', +'yo', +'YO', +'oe', +'OE', +'h', +'H', +'yu', +'YU', +'wi', +'WI', +'eu', +'EU', +'wa', +'WA', +'i', +'I', +'n', +'N', +'ye', +'YE', +'eo', +'EO', +'m', +'M', +'yeo', +'YEO', +'l', +'L', +'p', +'P', +'ng', +'NG', +'wae', +'WAE', +'ae', +'AE', +'o', +'O', +}, +'Pat_Syn', +{ +'yes', +'Y', +'no', +'N', +}, +'IDS', +{ +'yes', +'Y', +'no', +'N', +}, +'Dep', +{ +'yes', +'Y', +'no', +'N', +}, +'OUpper', +{ +'yes', +'Y', +'no', +'N', +}, +'OAlpha', +{ +'yes', +'Y', +'no', +'N', +}, +'Lower', +{ +'yes', +'Y', +'no', +'N', +}, +'GCB', +{ +'extend', +'EX', +'spacingmark', +'SM', +'v', +'V', +'prepend', +'PP', +'lv', +'LV', +'l', +'L', +'lvt', +'LVT', +'cr', +'CR', +'other', +'XX', +'lf', +'LF', +'t', +'T', +'control', +'CN', +}, +'lb', +{ +'carriagereturn', +'CR', +'ideographic', +'ID', +'hyphen', +'HY', +'ambiguous', +'AI', +'contingentbreak', +'CB', +'complexcontext', +'SA', +'prefixnumeric', +'PR', +'jl', +'JL', +'inseparable', +'IN', +'breaksymbols', +'SY', +'breakafter', +'BA', +'breakbefore', +'BB', +'postfixnumeric', +'PO', +'glue', +'GL', +'wordjoiner', +'WJ', +'breakboth', +'B2', +'quotation', +'QU', +'combiningmark', +'CM', +'nonstarter', +'NS', +'linefeed', +'LF', +'alphabetic', +'AL', +'surrogate', +'SG', +'mandatorybreak', +'BK', +'unknown', +'XX', +'exclamation', +'EX', +'openpunctuation', +'OP', +'jt', +'JT', +'closepunctuation', +'CL', +'space', +'SP', +'zwspace', +'ZW', +'h2', +'H2', +'infixnumeric', +'IS', +'nextline', +'NL', +'numeric', +'NU', +'h3', +'H3', +'jv', +'JV', +}, +'AHex', +{ +'yes', +'Y', +'no', +'N', +}, +'DI', +{ +'yes', +'Y', +'no', +'N', +}, +'OLower', +{ +'yes', +'Y', +'no', +'N', +}, +'CE', +{ +'yes', +'Y', +'no', +'N', +}, +'XO_NFKC', +{ +'yes', +'Y', +'no', +'N', +}, +'LOE', +{ +'yes', +'Y', +'no', +'N', +}, +'WSpace', +{ +'yes', +'Y', +'no', +'N', +}, +'XO_NFC', +{ +'yes', +'Y', +'no', +'N', +}, +'Bidi_M', +{ +'yes', +'Y', +'no', +'N', +}, +'XIDC', +{ +'yes', +'Y', +'no', +'N', +}, +'Radical', +{ +'yes', +'Y', +'no', +'N', +}, +'Alpha', +{ +'yes', +'Y', +'no', +'N', +}, +'STerm', +{ +'yes', +'Y', +'no', +'N', +}, +'nt', +{ +'none', +'None', +'digit', +'Di', +'numeric', +'Nu', +'decimal', +'De', +}, +'ea', +{ +'halfwidth', +'H', +'fullwidth', +'F', +'ambiguous', +'A', +'narrow', +'Na', +'wide', +'W', +'neutral', +'N', +}, +'Ext', +{ +'yes', +'Y', +'no', +'N', +}, +'XO_NFD', +{ +'yes', +'Y', +'no', +'N', +}, +'OMath', +{ +'yes', +'Y', +'no', +'N', +}, +'ODI', +{ +'yes', +'Y', +'no', +'N', +}, +'gc', +{ +'modifiersymbol', +'Sk', +'letternumber', +'Nl', +'connectorpunctuation', +'Pc', +'spacingmark', +'Mc', +'mark', +'M', +'unassigned', +'Cn', +'enclosingmark', +'Me', +'lineseparator', +'Zl', +'lowercaseletter', +'Ll', +'symbol', +'S', +'letter', +'L', +'othernumber', +'No', +'paragraphseparator', +'Zp', +'modifierletter', +'Lm', +'titlecaseletter', +'Lt', +'decimalnumber', +'Nd', +'other', +'C', +'mathsymbol', +'Sm', +'surrogate', +'Cs', +'otherletter', +'Lo', +'nonspacingmark', +'Mn', +'number', +'N', +'uppercaseletter', +'Lu', +'spaceseparator', +'Zs', +'privateuse', +'Co', +'openpunctuation', +'Ps', +'punctuation', +'P', +'control', +'Cc', +'casedletter', +'LC', +'closepunctuation', +'Pe', +'otherpunctuation', +'Po', +'finalpunctuation', +'Pf', +'format', +'Cf', +'initialpunctuation', +'Pi', +'separator', +'Z', +'othersymbol', +'So', +'dashpunctuation', +'Pd', +'currencysymbol', +'Sc', +}, +'IDSB', +{ +'yes', +'Y', +'no', +'N', +}, +'NChar', +{ +'yes', +'Y', +'no', +'N', +}, +'UIdeo', +{ +'yes', +'Y', +'no', +'N', +}, +'Term', +{ +'yes', +'Y', +'no', +'N', +}, +'QMark', +{ +'yes', +'Y', +'no', +'N', +}, +'Hyphen', +{ +'yes', +'Y', +'no', +'N', +}, +'XIDS', +{ +'yes', +'Y', +'no', +'N', +}, +'NFC_QC', +{ +'yes', +'Y', +'maybe', +'M', +'no', +'N', +}, +'Dia', +{ +'yes', +'Y', +'no', +'N', +}, +'Bidi_C', +{ +'yes', +'Y', +'no', +'N', +}, +'hst', +{ +'lvtsyllable', +'LVT', +'lvsyllable', +'LV', +'leadingjamo', +'L', +'notapplicable', +'NA', +'voweljamo', +'V', +'trailingjamo', +'T', +}, +'WB', +{ +'extend', +'Extend', +'midletter', +'ML', +'midnumlet', +'MB', +'cr', +'CR', +'format', +'FO', +'katakana', +'KA', +'other', +'XX', +'numeric', +'NU', +'midnum', +'MN', +'extendnumlet', +'EX', +'lf', +'LF', +'newline', +'NL', +'aletter', +'LE', +}, +'Math', +{ +'yes', +'Y', +'no', +'N', +}, +'Pat_WS', +{ +'yes', +'Y', +'no', +'N', +}, +'SD', +{ +'yes', +'Y', +'no', +'N', +}, +'Upper', +{ +'yes', +'Y', +'no', +'N', +}, +'OIDC', +{ +'yes', +'Y', +'no', +'N', +}, +'IDST', +{ +'yes', +'Y', +'no', +'N', +}, +'Gr_Ext', +{ +'yes', +'Y', +'no', +'N', +}, +'Comp_Ex', +{ +'yes', +'Y', +'no', +'N', +}, +'NFD_QC', +{ +'yes', +'Y', +'no', +'N', +}, +'VS', +{ +'yes', +'Y', +'no', +'N', +}, +'Join_C', +{ +'yes', +'Y', +'no', +'N', +}, +'ccc', +{ +'left', +'L', +'attachedbelowleft', +'ATBL', +'belowleft', +'BL', +'aboveright', +'AR', +'kanavoicing', +'KV', +'above', +'A', +'aboveleft', +'AL', +'nukta', +'NK', +'below', +'B', +'doublebelow', +'DB', +'virama', +'VR', +'belowright', +'BR', +'notreordered', +'NR', +'attachedbelow', +'ATB', +'right', +'R', +'iotasubscript', +'IS', +'doubleabove', +'DA', +'attachedaboveright', +'ATAR', +'overlay', +'OV', +}, +'dt', +{ +'small', +'Sml', +'none', +'None', +'isolated', +'Iso', +'narrow', +'Nar', +'square', +'Sqr', +'nobreak', +'Nb', +'fraction', +'Fra', +'font', +'Font', +'medial', +'Med', +'wide', +'Wide', +'canonical', +'Can', +'circle', +'Enc', +'super', +'Sup', +'vertical', +'Vert', +'final', +'Fin', +'compat', +'Com', +'sub', +'Sub', +'initial', +'Init', +}, +'Ideo', +{ +'yes', +'Y', +'no', +'N', +}, +'Gr_Link', +{ +'yes', +'Y', +'no', +'N', +}, +'OGr_Ext', +{ +'yes', +'Y', +'no', +'N', +}, +'XO_NFKD', +{ +'yes', +'Y', +'no', +'N', +}, +'NFKC_QC', +{ +'yes', +'Y', +'maybe', +'M', +'no', +'N', +}, +'bc', +{ +'nonspacingmark', +'NSM', +'whitespace', +'WS', +'righttoleft', +'R', +'lefttoright', +'L', +'boundaryneutral', +'BN', +'segmentseparator', +'S', +'lefttorightembedding', +'LRE', +'europeanterminator', +'ET', +'righttoleftembedding', +'RLE', +'righttoleftoverride', +'RLO', +'lefttorightoverride', +'LRO', +'europeanseparator', +'ES', +'europeannumber', +'EN', +'commonseparator', +'CS', +'arabicletter', +'AL', +'paragraphseparator', +'B', +'otherneutral', +'ON', +'popdirectionalformat', +'PDF', +'arabicnumber', +'AN', +}, +'Dash', +{ +'yes', +'Y', +'no', +'N', +}, +'jt', +{ +'leftjoining', +'L', +'transparent', +'T', +'nonjoining', +'U', +'rightjoining', +'R', +'dualjoining', +'D', +'joincausing', +'C', +}, +'NFKD_QC', +{ +'yes', +'Y', +'no', +'N', +}, +'IDC', +{ +'yes', +'Y', +'no', +'N', +}, +'OIDS', +{ +'yes', +'Y', +'no', +'N', +}, +'Gr_Base', +{ +'yes', +'Y', +'no', +'N', +}, +'Hex', +{ +'yes', +'Y', +'no', +'N', +}, +'SB', +{ +'sp', +'SP', +'extend', +'EX', +'upper', +'UP', +'sterm', +'ST', +'scontinue', +'SC', +'aterm', +'AT', +'close', +'CL', +'oletter', +'LE', +'sep', +'SE', +'cr', +'CR', +'format', +'FO', +'other', +'XX', +'lower', +'LO', +'numeric', +'NU', +'lf', +'LF', +}, +); + +%utf8::PVA_abbr_map = ( +'JSN', +{ +'gg', +'GG', +'lm', +'LM', +'a', +'A', +'ya', +'YA', +'d', +'D', +'yae', +'YAE', +'nh', +'NH', +'lp', +'LP', +'j', +'J', +'u', +'U', +'jj', +'JJ', +'ss', +'SS', +'k', +'K', +'g', +'G', +'bb', +'BB', +'lb', +'LB', +'t', +'T', +'e', +'E', +'dd', +'DD', +'s', +'S', +'lt', +'LT', +'c', +'C', +'gs', +'GS', +'b', +'B', +'nj', +'NJ', +'lh', +'LH', +'yi', +'YI', +'weo', +'WEO', +'r', +'R', +'ls', +'LS', +'we', +'WE', +'bs', +'BS', +'lg', +'LG', +'yo', +'YO', +'oe', +'OE', +'h', +'H', +'yu', +'YU', +'wi', +'WI', +'eu', +'EU', +'wa', +'WA', +'i', +'I', +'n', +'N', +'ye', +'YE', +'eo', +'EO', +'m', +'M', +'yeo', +'YEO', +'l', +'L', +'p', +'P', +'ng', +'NG', +'wae', +'WAE', +'ae', +'AE', +'o', +'O', +}, +'Pat_Syn', +{ +'y', +'Y', +'n', +'N', +}, +'IDS', +{ +'y', +'Y', +'n', +'N', +}, +'gc_sc', +{ +'runr', +'Runr', +'osma', +'Osma', +'sc', +'Sc', +'mc', +'Mc', +'hano', +'Hano', +'cans', +'Cans', +'lm', +'Lm', +'cn', +'Cn', +'knda', +'Knda', +'vaii', +'Vaii', +'phnx', +'Phnx', +'orya', +'Orya', +'cher', +'Cher', +'khmr', +'Khmr', +'ogam', +'Ogam', +'lo', +'Lo', +'saur', +'Saur', +'po', +'Po', +'cham', +'Cham', +'co', +'Co', +'ital', +'Ital', +'ll', +'Ll', +'tibt', +'Tibt', +'lydi', +'Lydi', +'kana', +'Kana', +'zp', +'Zp', +'lepc', +'Lepc', +'gujr', +'Gujr', +'thaa', +'Thaa', +'cs', +'Cs', +'copt', +'Copt', +'z', +'Z', +'ps', +'Ps', +'sylo', +'Sylo', +'talu', +'Talu', +'laoo', +'Laoo', +'sinh', +'Sinh', +'zl', +'Zl', +'pc', +'Pc', +'hira', +'Hira', +'cari', +'Cari', +'limb', +'Limb', +'mymr', +'Mymr', +'yiii', +'Yiii', +'arab', +'Arab', +'deva', +'Deva', +'xpeo', +'Xpeo', +'cprt', +'Cprt', +'bugi', +'Bugi', +'sk', +'Sk', +'hebr', +'Hebr', +'lu', +'Lu', +'pe', +'Pe', +'tglg', +'Tglg', +'sund', +'Sund', +'tagb', +'Tagb', +'mlym', +'Mlym', +'pf', +'Pf', +'no', +'No', +'grek', +'Grek', +'ethi', +'Ethi', +'phag', +'Phag', +'mong', +'Mong', +'cc', +'Cc', +'hrkt', +'Hrkt', +'armn', +'Armn', +'zs', +'Zs', +'so', +'So', +'hani', +'Hani', +'shaw', +'Shaw', +'taml', +'Taml', +'me', +'Me', +'cf', +'Cf', +'nd', +'Nd', +'s', +'S', +'guru', +'Guru', +'xsux', +'Xsux', +'ugar', +'Ugar', +'qaai', +'Qaai', +'lt', +'Lt', +'c', +'C', +'pd', +'Pd', +'cyrl', +'Cyrl', +'l&', +'LC', +'thai', +'Thai', +'zzzz', +'Zzzz', +'olck', +'Olck', +'beng', +'Beng', +'bali', +'Bali', +'kali', +'Kali', +'brai', +'Brai', +'telu', +'Telu', +'pi', +'Pi', +'geor', +'Geor', +'glag', +'Glag', +'hang', +'Hang', +'syrc', +'Syrc', +'tfng', +'Tfng', +'n', +'N', +'dsrt', +'Dsrt', +'buhd', +'Buhd', +'m', +'M', +'khar', +'Khar', +'sm', +'Sm', +'nl', +'Nl', +'bopo', +'Bopo', +'linb', +'Linb', +'mn', +'Mn', +'l', +'L', +'lyci', +'Lyci', +'p', +'P', +'goth', +'Goth', +'rjng', +'Rjng', +'tale', +'Tale', +'lc', +'LC', +'zyyy', +'Zyyy', +'latn', +'Latn', +'nkoo', +'Nkoo', +}, +'Dep', +{ +'y', +'Y', +'n', +'N', +}, +'OUpper', +{ +'y', +'Y', +'n', +'N', +}, +'OAlpha', +{ +'y', +'Y', +'n', +'N', +}, +'Lower', +{ +'y', +'Y', +'n', +'N', +}, +'GCB', +{ +'cn', +'CN', +'ex', +'EX', +'v', +'V', +'pp', +'PP', +'lv', +'LV', +'xx', +'XX', +'sm', +'SM', +'l', +'L', +'lvt', +'LVT', +'cr', +'CR', +'lf', +'LF', +'t', +'T', +}, +'lb', +{ +'sp', +'SP', +'ba', +'BA', +'gl', +'GL', +'xx', +'XX', +'nu', +'NU', +'cb', +'CB', +'sy', +'SY', +'cr', +'CR', +'in', +'IN', +'bb', +'BB', +'sg', +'SG', +'sa', +'SA', +'po', +'PO', +'jl', +'JL', +'id', +'ID', +'al', +'AL', +'bk', +'BK', +'pr', +'PR', +'b2', +'B2', +'op', +'OP', +'cl', +'CL', +'is', +'IS', +'qu', +'QU', +'hy', +'HY', +'wj', +'WJ', +'zw', +'ZW', +'jt', +'JT', +'ex', +'EX', +'cm', +'CM', +'h2', +'H2', +'nl', +'NL', +'ns', +'NS', +'h3', +'H3', +'ai', +'AI', +'lf', +'LF', +'jv', +'JV', +}, +'AHex', +{ +'y', +'Y', +'n', +'N', +}, +'DI', +{ +'y', +'Y', +'n', +'N', +}, +'OLower', +{ +'y', +'Y', +'n', +'N', +}, +'CE', +{ +'y', +'Y', +'n', +'N', +}, +'XO_NFKC', +{ +'y', +'Y', +'n', +'N', +}, +'LOE', +{ +'y', +'Y', +'n', +'N', +}, +'WSpace', +{ +'y', +'Y', +'n', +'N', +}, +'XO_NFC', +{ +'y', +'Y', +'n', +'N', +}, +'Bidi_M', +{ +'y', +'Y', +'n', +'N', +}, +'XIDC', +{ +'y', +'Y', +'n', +'N', +}, +'Radical', +{ +'y', +'Y', +'n', +'N', +}, +'Alpha', +{ +'y', +'Y', +'n', +'N', +}, +'STerm', +{ +'y', +'Y', +'n', +'N', +}, +'nt', +{ +'none', +'None', +'di', +'Di', +'de', +'De', +'nu', +'Nu', +}, +'ea', +{ +'w', +'W', +'n', +'N', +'h', +'H', +'a', +'A', +'f', +'F', +'na', +'Na', +}, +'Ext', +{ +'y', +'Y', +'n', +'N', +}, +'XO_NFD', +{ +'y', +'Y', +'n', +'N', +}, +'OMath', +{ +'y', +'Y', +'n', +'N', +}, +'ODI', +{ +'y', +'Y', +'n', +'N', +}, +'IDSB', +{ +'y', +'Y', +'n', +'N', +}, +'NChar', +{ +'y', +'Y', +'n', +'N', +}, +'UIdeo', +{ +'y', +'Y', +'n', +'N', +}, +'Term', +{ +'y', +'Y', +'n', +'N', +}, +'QMark', +{ +'y', +'Y', +'n', +'N', +}, +'Hyphen', +{ +'y', +'Y', +'n', +'N', +}, +'XIDS', +{ +'y', +'Y', +'n', +'N', +}, +'NFC_QC', +{ +'y', +'Y', +'n', +'N', +'m', +'M', +}, +'Dia', +{ +'y', +'Y', +'n', +'N', +}, +'Bidi_C', +{ +'y', +'Y', +'n', +'N', +}, +'hst', +{ +'l', +'L', +'lvt', +'LVT', +'v', +'V', +'lv', +'LV', +'t', +'T', +'na', +'NA', +}, +'WB', +{ +'extend', +'Extend', +'ml', +'ML', +'mb', +'MB', +'le', +'LE', +'ex', +'EX', +'xx', +'XX', +'nu', +'NU', +'nl', +'NL', +'mn', +'MN', +'fo', +'FO', +'cr', +'CR', +'ka', +'KA', +'lf', +'LF', +}, +'Math', +{ +'y', +'Y', +'n', +'N', +}, +'Pat_WS', +{ +'y', +'Y', +'n', +'N', +}, +'SD', +{ +'y', +'Y', +'n', +'N', +}, +'Upper', +{ +'y', +'Y', +'n', +'N', +}, +'OIDC', +{ +'y', +'Y', +'n', +'N', +}, +'IDST', +{ +'y', +'Y', +'n', +'N', +}, +'Gr_Ext', +{ +'y', +'Y', +'n', +'N', +}, +'Comp_Ex', +{ +'y', +'Y', +'n', +'N', +}, +'NFD_QC', +{ +'y', +'Y', +'n', +'N', +}, +'VS', +{ +'y', +'Y', +'n', +'N', +}, +'Join_C', +{ +'y', +'Y', +'n', +'N', +}, +'ccc', +{ +'atb', +'ATB', +'db', +'DB', +'a', +'A', +'r', +'R', +'da', +'DA', +'is', +'IS', +'nr', +'NR', +'ov', +'OV', +'br', +'BR', +'nk', +'NK', +'atbl', +'ATBL', +'al', +'AL', +'ar', +'AR', +'atar', +'ATAR', +'l', +'L', +'b', +'B', +'vr', +'VR', +'kv', +'KV', +'bl', +'BL', +}, +'dt', +{ +'fra', +'Fra', +'none', +'None', +'sml', +'Sml', +'enc', +'Enc', +'font', +'Font', +'init', +'Init', +'nb', +'Nb', +'iso', +'Iso', +'sup', +'Sup', +'fin', +'Fin', +'wide', +'Wide', +'nar', +'Nar', +'can', +'Can', +'med', +'Med', +'sub', +'Sub', +'vert', +'Vert', +'sqr', +'Sqr', +'com', +'Com', +}, +'Ideo', +{ +'y', +'Y', +'n', +'N', +}, +'Gr_Link', +{ +'y', +'Y', +'n', +'N', +}, +'OGr_Ext', +{ +'y', +'Y', +'n', +'N', +}, +'XO_NFKD', +{ +'y', +'Y', +'n', +'N', +}, +'NFKC_QC', +{ +'y', +'Y', +'n', +'N', +'m', +'M', +}, +'bc', +{ +'r', +'R', +'rlo', +'RLO', +'es', +'ES', +'ws', +'WS', +'rle', +'RLE', +'on', +'ON', +'bn', +'BN', +'et', +'ET', +'pdf', +'PDF', +'lro', +'LRO', +'s', +'S', +'al', +'AL', +'en', +'EN', +'l', +'L', +'b', +'B', +'lre', +'LRE', +'cs', +'CS', +'nsm', +'NSM', +'an', +'AN', +}, +'Dash', +{ +'y', +'Y', +'n', +'N', +}, +'jt', +{ +'l', +'L', +'u', +'U', +'c', +'C', +'r', +'R', +'d', +'D', +'t', +'T', +}, +'NFKD_QC', +{ +'y', +'Y', +'n', +'N', +}, +'IDC', +{ +'y', +'Y', +'n', +'N', +}, +'OIDS', +{ +'y', +'Y', +'n', +'N', +}, +'Gr_Base', +{ +'y', +'Y', +'n', +'N', +}, +'Hex', +{ +'y', +'Y', +'n', +'N', +}, +'SB', +{ +'sp', +'SP', +'sc', +'SC', +'cl', +'CL', +'le', +'LE', +'ex', +'EX', +'up', +'UP', +'st', +'ST', +'xx', +'XX', +'nu', +'NU', +'fo', +'FO', +'cr', +'CR', +'se', +'SE', +'lo', +'LO', +'at', +'AT', +'lf', +'LF', +}, +); +1; diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/To/Digit.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/To/Digit.pl new file mode 100644 index 0000000..470916a --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/To/Digit.pl @@ -0,0 +1,380 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +return <<'END'; +0030 0 +0031 1 +0032 2 +0033 3 +0034 4 +0035 5 +0036 6 +0037 7 +0038 8 +0039 9 +0660 0 +0661 1 +0662 2 +0663 3 +0664 4 +0665 5 +0666 6 +0667 7 +0668 8 +0669 9 +06F0 0 +06F1 1 +06F2 2 +06F3 3 +06F4 4 +06F5 5 +06F6 6 +06F7 7 +06F8 8 +06F9 9 +07C0 0 +07C1 1 +07C2 2 +07C3 3 +07C4 4 +07C5 5 +07C6 6 +07C7 7 +07C8 8 +07C9 9 +0966 0 +0967 1 +0968 2 +0969 3 +096A 4 +096B 5 +096C 6 +096D 7 +096E 8 +096F 9 +09E6 0 +09E7 1 +09E8 2 +09E9 3 +09EA 4 +09EB 5 +09EC 6 +09ED 7 +09EE 8 +09EF 9 +0A66 0 +0A67 1 +0A68 2 +0A69 3 +0A6A 4 +0A6B 5 +0A6C 6 +0A6D 7 +0A6E 8 +0A6F 9 +0AE6 0 +0AE7 1 +0AE8 2 +0AE9 3 +0AEA 4 +0AEB 5 +0AEC 6 +0AED 7 +0AEE 8 +0AEF 9 +0B66 0 +0B67 1 +0B68 2 +0B69 3 +0B6A 4 +0B6B 5 +0B6C 6 +0B6D 7 +0B6E 8 +0B6F 9 +0BE6 0 +0BE7 1 +0BE8 2 +0BE9 3 +0BEA 4 +0BEB 5 +0BEC 6 +0BED 7 +0BEE 8 +0BEF 9 +0C66 0 +0C67 1 +0C68 2 +0C69 3 +0C6A 4 +0C6B 5 +0C6C 6 +0C6D 7 +0C6E 8 +0C6F 9 +0CE6 0 +0CE7 1 +0CE8 2 +0CE9 3 +0CEA 4 +0CEB 5 +0CEC 6 +0CED 7 +0CEE 8 +0CEF 9 +0D66 0 +0D67 1 +0D68 2 +0D69 3 +0D6A 4 +0D6B 5 +0D6C 6 +0D6D 7 +0D6E 8 +0D6F 9 +0E50 0 +0E51 1 +0E52 2 +0E53 3 +0E54 4 +0E55 5 +0E56 6 +0E57 7 +0E58 8 +0E59 9 +0ED0 0 +0ED1 1 +0ED2 2 +0ED3 3 +0ED4 4 +0ED5 5 +0ED6 6 +0ED7 7 +0ED8 8 +0ED9 9 +0F20 0 +0F21 1 +0F22 2 +0F23 3 +0F24 4 +0F25 5 +0F26 6 +0F27 7 +0F28 8 +0F29 9 +1040 0 +1041 1 +1042 2 +1043 3 +1044 4 +1045 5 +1046 6 +1047 7 +1048 8 +1049 9 +1090 0 +1091 1 +1092 2 +1093 3 +1094 4 +1095 5 +1096 6 +1097 7 +1098 8 +1099 9 +17E0 0 +17E1 1 +17E2 2 +17E3 3 +17E4 4 +17E5 5 +17E6 6 +17E7 7 +17E8 8 +17E9 9 +1810 0 +1811 1 +1812 2 +1813 3 +1814 4 +1815 5 +1816 6 +1817 7 +1818 8 +1819 9 +1946 0 +1947 1 +1948 2 +1949 3 +194A 4 +194B 5 +194C 6 +194D 7 +194E 8 +194F 9 +19D0 0 +19D1 1 +19D2 2 +19D3 3 +19D4 4 +19D5 5 +19D6 6 +19D7 7 +19D8 8 +19D9 9 +1B50 0 +1B51 1 +1B52 2 +1B53 3 +1B54 4 +1B55 5 +1B56 6 +1B57 7 +1B58 8 +1B59 9 +1BB0 0 +1BB1 1 +1BB2 2 +1BB3 3 +1BB4 4 +1BB5 5 +1BB6 6 +1BB7 7 +1BB8 8 +1BB9 9 +1C40 0 +1C41 1 +1C42 2 +1C43 3 +1C44 4 +1C45 5 +1C46 6 +1C47 7 +1C48 8 +1C49 9 +1C50 0 +1C51 1 +1C52 2 +1C53 3 +1C54 4 +1C55 5 +1C56 6 +1C57 7 +1C58 8 +1C59 9 +A620 0 +A621 1 +A622 2 +A623 3 +A624 4 +A625 5 +A626 6 +A627 7 +A628 8 +A629 9 +A8D0 0 +A8D1 1 +A8D2 2 +A8D3 3 +A8D4 4 +A8D5 5 +A8D6 6 +A8D7 7 +A8D8 8 +A8D9 9 +A900 0 +A901 1 +A902 2 +A903 3 +A904 4 +A905 5 +A906 6 +A907 7 +A908 8 +A909 9 +AA50 0 +AA51 1 +AA52 2 +AA53 3 +AA54 4 +AA55 5 +AA56 6 +AA57 7 +AA58 8 +AA59 9 +FF10 0 +FF11 1 +FF12 2 +FF13 3 +FF14 4 +FF15 5 +FF16 6 +FF17 7 +FF18 8 +FF19 9 +104A0 0 +104A1 1 +104A2 2 +104A3 3 +104A4 4 +104A5 5 +104A6 6 +104A7 7 +104A8 8 +104A9 9 +1D7CE 0 +1D7CF 1 +1D7D0 2 +1D7D1 3 +1D7D2 4 +1D7D3 5 +1D7D4 6 +1D7D5 7 +1D7D6 8 +1D7D7 9 +1D7D8 0 +1D7D9 1 +1D7DA 2 +1D7DB 3 +1D7DC 4 +1D7DD 5 +1D7DE 6 +1D7DF 7 +1D7E0 8 +1D7E1 9 +1D7E2 0 +1D7E3 1 +1D7E4 2 +1D7E5 3 +1D7E6 4 +1D7E7 5 +1D7E8 6 +1D7E9 7 +1D7EA 8 +1D7EB 9 +1D7EC 0 +1D7ED 1 +1D7EE 2 +1D7EF 3 +1D7F0 4 +1D7F1 5 +1D7F2 6 +1D7F3 7 +1D7F4 8 +1D7F5 9 +1D7F6 0 +1D7F7 1 +1D7F8 2 +1D7F9 3 +1D7FA 4 +1D7FB 5 +1D7FC 6 +1D7FD 7 +1D7FE 8 +1D7FF 9 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/To/Fold.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/To/Fold.pl new file mode 100644 index 0000000..26563bc --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/To/Fold.pl @@ -0,0 +1,1127 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + + +# The key: UTF-8 _bytes_, the value: UTF-8 (speed hack) +%utf8::ToSpecFold = +( +"\xC3\x9F" => "\x{0073}\x{0073}", +"\xC4\xB0" => "\x{0069}\x{0307}", +"\xC5\x89" => "\x{02BC}\x{006E}", +"\xC7\xB0" => "\x{006A}\x{030C}", +"\xCE\x90" => "\x{03B9}\x{0308}\x{0301}", +"\xCE\xB0" => "\x{03C5}\x{0308}\x{0301}", +"\xD6\x87" => "\x{0565}\x{0582}", +"\xE1\xBA\x96" => "\x{0068}\x{0331}", +"\xE1\xBA\x97" => "\x{0074}\x{0308}", +"\xE1\xBA\x98" => "\x{0077}\x{030A}", +"\xE1\xBA\x99" => "\x{0079}\x{030A}", +"\xE1\xBA\x9A" => "\x{0061}\x{02BE}", +"\xE1\xBA\x9E" => "\x{0073}\x{0073}", +"\xE1\xBD\x90" => "\x{03C5}\x{0313}", +"\xE1\xBD\x92" => "\x{03C5}\x{0313}\x{0300}", +"\xE1\xBD\x94" => "\x{03C5}\x{0313}\x{0301}", +"\xE1\xBD\x96" => "\x{03C5}\x{0313}\x{0342}", +"\xE1\xBE\x80" => "\x{1F00}\x{03B9}", +"\xE1\xBE\x81" => "\x{1F01}\x{03B9}", +"\xE1\xBE\x82" => "\x{1F02}\x{03B9}", +"\xE1\xBE\x83" => "\x{1F03}\x{03B9}", +"\xE1\xBE\x84" => "\x{1F04}\x{03B9}", +"\xE1\xBE\x85" => "\x{1F05}\x{03B9}", +"\xE1\xBE\x86" => "\x{1F06}\x{03B9}", +"\xE1\xBE\x87" => "\x{1F07}\x{03B9}", +"\xE1\xBE\x88" => "\x{1F00}\x{03B9}", +"\xE1\xBE\x89" => "\x{1F01}\x{03B9}", +"\xE1\xBE\x8A" => "\x{1F02}\x{03B9}", +"\xE1\xBE\x8B" => "\x{1F03}\x{03B9}", +"\xE1\xBE\x8C" => "\x{1F04}\x{03B9}", +"\xE1\xBE\x8D" => "\x{1F05}\x{03B9}", +"\xE1\xBE\x8E" => "\x{1F06}\x{03B9}", +"\xE1\xBE\x8F" => "\x{1F07}\x{03B9}", +"\xE1\xBE\x90" => "\x{1F20}\x{03B9}", +"\xE1\xBE\x91" => "\x{1F21}\x{03B9}", +"\xE1\xBE\x92" => "\x{1F22}\x{03B9}", +"\xE1\xBE\x93" => "\x{1F23}\x{03B9}", +"\xE1\xBE\x94" => "\x{1F24}\x{03B9}", +"\xE1\xBE\x95" => "\x{1F25}\x{03B9}", +"\xE1\xBE\x96" => "\x{1F26}\x{03B9}", +"\xE1\xBE\x97" => "\x{1F27}\x{03B9}", +"\xE1\xBE\x98" => "\x{1F20}\x{03B9}", +"\xE1\xBE\x99" => "\x{1F21}\x{03B9}", +"\xE1\xBE\x9A" => "\x{1F22}\x{03B9}", +"\xE1\xBE\x9B" => "\x{1F23}\x{03B9}", +"\xE1\xBE\x9C" => "\x{1F24}\x{03B9}", +"\xE1\xBE\x9D" => "\x{1F25}\x{03B9}", +"\xE1\xBE\x9E" => "\x{1F26}\x{03B9}", +"\xE1\xBE\x9F" => "\x{1F27}\x{03B9}", +"\xE1\xBE\xA0" => "\x{1F60}\x{03B9}", +"\xE1\xBE\xA1" => "\x{1F61}\x{03B9}", +"\xE1\xBE\xA2" => "\x{1F62}\x{03B9}", +"\xE1\xBE\xA3" => "\x{1F63}\x{03B9}", +"\xE1\xBE\xA4" => "\x{1F64}\x{03B9}", +"\xE1\xBE\xA5" => "\x{1F65}\x{03B9}", +"\xE1\xBE\xA6" => "\x{1F66}\x{03B9}", +"\xE1\xBE\xA7" => "\x{1F67}\x{03B9}", +"\xE1\xBE\xA8" => "\x{1F60}\x{03B9}", +"\xE1\xBE\xA9" => "\x{1F61}\x{03B9}", +"\xE1\xBE\xAA" => "\x{1F62}\x{03B9}", +"\xE1\xBE\xAB" => "\x{1F63}\x{03B9}", +"\xE1\xBE\xAC" => "\x{1F64}\x{03B9}", +"\xE1\xBE\xAD" => "\x{1F65}\x{03B9}", +"\xE1\xBE\xAE" => "\x{1F66}\x{03B9}", +"\xE1\xBE\xAF" => "\x{1F67}\x{03B9}", +"\xE1\xBE\xB2" => "\x{1F70}\x{03B9}", +"\xE1\xBE\xB3" => "\x{03B1}\x{03B9}", +"\xE1\xBE\xB4" => "\x{03AC}\x{03B9}", +"\xE1\xBE\xB6" => "\x{03B1}\x{0342}", +"\xE1\xBE\xB7" => "\x{03B1}\x{0342}\x{03B9}", +"\xE1\xBE\xBC" => "\x{03B1}\x{03B9}", +"\xE1\xBF\x82" => "\x{1F74}\x{03B9}", +"\xE1\xBF\x83" => "\x{03B7}\x{03B9}", +"\xE1\xBF\x84" => "\x{03AE}\x{03B9}", +"\xE1\xBF\x86" => "\x{03B7}\x{0342}", +"\xE1\xBF\x87" => "\x{03B7}\x{0342}\x{03B9}", +"\xE1\xBF\x8C" => "\x{03B7}\x{03B9}", +"\xE1\xBF\x92" => "\x{03B9}\x{0308}\x{0300}", +"\xE1\xBF\x93" => "\x{03B9}\x{0308}\x{0301}", +"\xE1\xBF\x96" => "\x{03B9}\x{0342}", +"\xE1\xBF\x97" => "\x{03B9}\x{0308}\x{0342}", +"\xE1\xBF\xA2" => "\x{03C5}\x{0308}\x{0300}", +"\xE1\xBF\xA3" => "\x{03C5}\x{0308}\x{0301}", +"\xE1\xBF\xA4" => "\x{03C1}\x{0313}", +"\xE1\xBF\xA6" => "\x{03C5}\x{0342}", +"\xE1\xBF\xA7" => "\x{03C5}\x{0308}\x{0342}", +"\xE1\xBF\xB2" => "\x{1F7C}\x{03B9}", +"\xE1\xBF\xB3" => "\x{03C9}\x{03B9}", +"\xE1\xBF\xB4" => "\x{03CE}\x{03B9}", +"\xE1\xBF\xB6" => "\x{03C9}\x{0342}", +"\xE1\xBF\xB7" => "\x{03C9}\x{0342}\x{03B9}", +"\xE1\xBF\xBC" => "\x{03C9}\x{03B9}", +"\xEF\xAC\x80" => "\x{0066}\x{0066}", +"\xEF\xAC\x81" => "\x{0066}\x{0069}", +"\xEF\xAC\x82" => "\x{0066}\x{006C}", +"\xEF\xAC\x83" => "\x{0066}\x{0066}\x{0069}", +"\xEF\xAC\x84" => "\x{0066}\x{0066}\x{006C}", +"\xEF\xAC\x85" => "\x{0073}\x{0074}", +"\xEF\xAC\x86" => "\x{0073}\x{0074}", +"\xEF\xAC\x93" => "\x{0574}\x{0576}", +"\xEF\xAC\x94" => "\x{0574}\x{0565}", +"\xEF\xAC\x95" => "\x{0574}\x{056B}", +"\xEF\xAC\x96" => "\x{057E}\x{0576}", +"\xEF\xAC\x97" => "\x{0574}\x{056D}", +); + +return <<'END'; +0041 0061 +0042 0062 +0043 0063 +0044 0064 +0045 0065 +0046 0066 +0047 0067 +0048 0068 +0049 0069 +004A 006A +004B 006B +004C 006C +004D 006D +004E 006E +004F 006F +0050 0070 +0051 0071 +0052 0072 +0053 0073 +0054 0074 +0055 0075 +0056 0076 +0057 0077 +0058 0078 +0059 0079 +005A 007A +00B5 03BC +00C0 00E0 +00C1 00E1 +00C2 00E2 +00C3 00E3 +00C4 00E4 +00C5 00E5 +00C6 00E6 +00C7 00E7 +00C8 00E8 +00C9 00E9 +00CA 00EA +00CB 00EB +00CC 00EC +00CD 00ED +00CE 00EE +00CF 00EF +00D0 00F0 +00D1 00F1 +00D2 00F2 +00D3 00F3 +00D4 00F4 +00D5 00F5 +00D6 00F6 +00D8 00F8 +00D9 00F9 +00DA 00FA +00DB 00FB +00DC 00FC +00DD 00FD +00DE 00FE +0100 0101 +0102 0103 +0104 0105 +0106 0107 +0108 0109 +010A 010B +010C 010D +010E 010F +0110 0111 +0112 0113 +0114 0115 +0116 0117 +0118 0119 +011A 011B +011C 011D +011E 011F +0120 0121 +0122 0123 +0124 0125 +0126 0127 +0128 0129 +012A 012B +012C 012D +012E 012F +0132 0133 +0134 0135 +0136 0137 +0139 013A +013B 013C +013D 013E +013F 0140 +0141 0142 +0143 0144 +0145 0146 +0147 0148 +014A 014B +014C 014D +014E 014F +0150 0151 +0152 0153 +0154 0155 +0156 0157 +0158 0159 +015A 015B +015C 015D +015E 015F +0160 0161 +0162 0163 +0164 0165 +0166 0167 +0168 0169 +016A 016B +016C 016D +016E 016F +0170 0171 +0172 0173 +0174 0175 +0176 0177 +0178 00FF +0179 017A +017B 017C +017D 017E +017F 0073 +0181 0253 +0182 0183 +0184 0185 +0186 0254 +0187 0188 +0189 0256 +018A 0257 +018B 018C +018E 01DD +018F 0259 +0190 025B +0191 0192 +0193 0260 +0194 0263 +0196 0269 +0197 0268 +0198 0199 +019C 026F +019D 0272 +019F 0275 +01A0 01A1 +01A2 01A3 +01A4 01A5 +01A6 0280 +01A7 01A8 +01A9 0283 +01AC 01AD +01AE 0288 +01AF 01B0 +01B1 028A +01B2 028B +01B3 01B4 +01B5 01B6 +01B7 0292 +01B8 01B9 +01BC 01BD +01C4 01C6 +01C5 01C6 +01C7 01C9 +01C8 01C9 +01CA 01CC +01CB 01CC +01CD 01CE +01CF 01D0 +01D1 01D2 +01D3 01D4 +01D5 01D6 +01D7 01D8 +01D9 01DA +01DB 01DC +01DE 01DF +01E0 01E1 +01E2 01E3 +01E4 01E5 +01E6 01E7 +01E8 01E9 +01EA 01EB +01EC 01ED +01EE 01EF +01F1 01F3 +01F2 01F3 +01F4 01F5 +01F6 0195 +01F7 01BF +01F8 01F9 +01FA 01FB +01FC 01FD +01FE 01FF +0200 0201 +0202 0203 +0204 0205 +0206 0207 +0208 0209 +020A 020B +020C 020D +020E 020F +0210 0211 +0212 0213 +0214 0215 +0216 0217 +0218 0219 +021A 021B +021C 021D +021E 021F +0220 019E +0222 0223 +0224 0225 +0226 0227 +0228 0229 +022A 022B +022C 022D +022E 022F +0230 0231 +0232 0233 +023A 2C65 +023B 023C +023D 019A +023E 2C66 +0241 0242 +0243 0180 +0244 0289 +0245 028C +0246 0247 +0248 0249 +024A 024B +024C 024D +024E 024F +0345 03B9 +0370 0371 +0372 0373 +0376 0377 +0386 03AC +0388 03AD +0389 03AE +038A 03AF +038C 03CC +038E 03CD +038F 03CE +0391 03B1 +0392 03B2 +0393 03B3 +0394 03B4 +0395 03B5 +0396 03B6 +0397 03B7 +0398 03B8 +0399 03B9 +039A 03BA +039B 03BB +039C 03BC +039D 03BD +039E 03BE +039F 03BF +03A0 03C0 +03A1 03C1 +03A3 03C3 +03A4 03C4 +03A5 03C5 +03A6 03C6 +03A7 03C7 +03A8 03C8 +03A9 03C9 +03AA 03CA +03AB 03CB +03C2 03C3 +03CF 03D7 +03D0 03B2 +03D1 03B8 +03D5 03C6 +03D6 03C0 +03D8 03D9 +03DA 03DB +03DC 03DD +03DE 03DF +03E0 03E1 +03E2 03E3 +03E4 03E5 +03E6 03E7 +03E8 03E9 +03EA 03EB +03EC 03ED +03EE 03EF +03F0 03BA +03F1 03C1 +03F4 03B8 +03F5 03B5 +03F7 03F8 +03F9 03F2 +03FA 03FB +03FD 037B +03FE 037C +03FF 037D +0400 0450 +0401 0451 +0402 0452 +0403 0453 +0404 0454 +0405 0455 +0406 0456 +0407 0457 +0408 0458 +0409 0459 +040A 045A +040B 045B +040C 045C +040D 045D +040E 045E +040F 045F +0410 0430 +0411 0431 +0412 0432 +0413 0433 +0414 0434 +0415 0435 +0416 0436 +0417 0437 +0418 0438 +0419 0439 +041A 043A +041B 043B +041C 043C +041D 043D +041E 043E +041F 043F +0420 0440 +0421 0441 +0422 0442 +0423 0443 +0424 0444 +0425 0445 +0426 0446 +0427 0447 +0428 0448 +0429 0449 +042A 044A +042B 044B +042C 044C +042D 044D +042E 044E +042F 044F +0460 0461 +0462 0463 +0464 0465 +0466 0467 +0468 0469 +046A 046B +046C 046D +046E 046F +0470 0471 +0472 0473 +0474 0475 +0476 0477 +0478 0479 +047A 047B +047C 047D +047E 047F +0480 0481 +048A 048B +048C 048D +048E 048F +0490 0491 +0492 0493 +0494 0495 +0496 0497 +0498 0499 +049A 049B +049C 049D +049E 049F +04A0 04A1 +04A2 04A3 +04A4 04A5 +04A6 04A7 +04A8 04A9 +04AA 04AB +04AC 04AD +04AE 04AF +04B0 04B1 +04B2 04B3 +04B4 04B5 +04B6 04B7 +04B8 04B9 +04BA 04BB +04BC 04BD +04BE 04BF +04C0 04CF +04C1 04C2 +04C3 04C4 +04C5 04C6 +04C7 04C8 +04C9 04CA +04CB 04CC +04CD 04CE +04D0 04D1 +04D2 04D3 +04D4 04D5 +04D6 04D7 +04D8 04D9 +04DA 04DB +04DC 04DD +04DE 04DF +04E0 04E1 +04E2 04E3 +04E4 04E5 +04E6 04E7 +04E8 04E9 +04EA 04EB +04EC 04ED +04EE 04EF +04F0 04F1 +04F2 04F3 +04F4 04F5 +04F6 04F7 +04F8 04F9 +04FA 04FB +04FC 04FD +04FE 04FF +0500 0501 +0502 0503 +0504 0505 +0506 0507 +0508 0509 +050A 050B +050C 050D +050E 050F +0510 0511 +0512 0513 +0514 0515 +0516 0517 +0518 0519 +051A 051B +051C 051D +051E 051F +0520 0521 +0522 0523 +0531 0561 +0532 0562 +0533 0563 +0534 0564 +0535 0565 +0536 0566 +0537 0567 +0538 0568 +0539 0569 +053A 056A +053B 056B +053C 056C +053D 056D +053E 056E +053F 056F +0540 0570 +0541 0571 +0542 0572 +0543 0573 +0544 0574 +0545 0575 +0546 0576 +0547 0577 +0548 0578 +0549 0579 +054A 057A +054B 057B +054C 057C +054D 057D +054E 057E +054F 057F +0550 0580 +0551 0581 +0552 0582 +0553 0583 +0554 0584 +0555 0585 +0556 0586 +10A0 2D00 +10A1 2D01 +10A2 2D02 +10A3 2D03 +10A4 2D04 +10A5 2D05 +10A6 2D06 +10A7 2D07 +10A8 2D08 +10A9 2D09 +10AA 2D0A +10AB 2D0B +10AC 2D0C +10AD 2D0D +10AE 2D0E +10AF 2D0F +10B0 2D10 +10B1 2D11 +10B2 2D12 +10B3 2D13 +10B4 2D14 +10B5 2D15 +10B6 2D16 +10B7 2D17 +10B8 2D18 +10B9 2D19 +10BA 2D1A +10BB 2D1B +10BC 2D1C +10BD 2D1D +10BE 2D1E +10BF 2D1F +10C0 2D20 +10C1 2D21 +10C2 2D22 +10C3 2D23 +10C4 2D24 +10C5 2D25 +1E00 1E01 +1E02 1E03 +1E04 1E05 +1E06 1E07 +1E08 1E09 +1E0A 1E0B +1E0C 1E0D +1E0E 1E0F +1E10 1E11 +1E12 1E13 +1E14 1E15 +1E16 1E17 +1E18 1E19 +1E1A 1E1B +1E1C 1E1D +1E1E 1E1F +1E20 1E21 +1E22 1E23 +1E24 1E25 +1E26 1E27 +1E28 1E29 +1E2A 1E2B +1E2C 1E2D +1E2E 1E2F +1E30 1E31 +1E32 1E33 +1E34 1E35 +1E36 1E37 +1E38 1E39 +1E3A 1E3B +1E3C 1E3D +1E3E 1E3F +1E40 1E41 +1E42 1E43 +1E44 1E45 +1E46 1E47 +1E48 1E49 +1E4A 1E4B +1E4C 1E4D +1E4E 1E4F +1E50 1E51 +1E52 1E53 +1E54 1E55 +1E56 1E57 +1E58 1E59 +1E5A 1E5B +1E5C 1E5D +1E5E 1E5F +1E60 1E61 +1E62 1E63 +1E64 1E65 +1E66 1E67 +1E68 1E69 +1E6A 1E6B +1E6C 1E6D +1E6E 1E6F +1E70 1E71 +1E72 1E73 +1E74 1E75 +1E76 1E77 +1E78 1E79 +1E7A 1E7B +1E7C 1E7D +1E7E 1E7F +1E80 1E81 +1E82 1E83 +1E84 1E85 +1E86 1E87 +1E88 1E89 +1E8A 1E8B +1E8C 1E8D +1E8E 1E8F +1E90 1E91 +1E92 1E93 +1E94 1E95 +1E9B 1E61 +1EA0 1EA1 +1EA2 1EA3 +1EA4 1EA5 +1EA6 1EA7 +1EA8 1EA9 +1EAA 1EAB +1EAC 1EAD +1EAE 1EAF +1EB0 1EB1 +1EB2 1EB3 +1EB4 1EB5 +1EB6 1EB7 +1EB8 1EB9 +1EBA 1EBB +1EBC 1EBD +1EBE 1EBF +1EC0 1EC1 +1EC2 1EC3 +1EC4 1EC5 +1EC6 1EC7 +1EC8 1EC9 +1ECA 1ECB +1ECC 1ECD +1ECE 1ECF +1ED0 1ED1 +1ED2 1ED3 +1ED4 1ED5 +1ED6 1ED7 +1ED8 1ED9 +1EDA 1EDB +1EDC 1EDD +1EDE 1EDF +1EE0 1EE1 +1EE2 1EE3 +1EE4 1EE5 +1EE6 1EE7 +1EE8 1EE9 +1EEA 1EEB +1EEC 1EED +1EEE 1EEF +1EF0 1EF1 +1EF2 1EF3 +1EF4 1EF5 +1EF6 1EF7 +1EF8 1EF9 +1EFA 1EFB +1EFC 1EFD +1EFE 1EFF +1F08 1F00 +1F09 1F01 +1F0A 1F02 +1F0B 1F03 +1F0C 1F04 +1F0D 1F05 +1F0E 1F06 +1F0F 1F07 +1F18 1F10 +1F19 1F11 +1F1A 1F12 +1F1B 1F13 +1F1C 1F14 +1F1D 1F15 +1F28 1F20 +1F29 1F21 +1F2A 1F22 +1F2B 1F23 +1F2C 1F24 +1F2D 1F25 +1F2E 1F26 +1F2F 1F27 +1F38 1F30 +1F39 1F31 +1F3A 1F32 +1F3B 1F33 +1F3C 1F34 +1F3D 1F35 +1F3E 1F36 +1F3F 1F37 +1F48 1F40 +1F49 1F41 +1F4A 1F42 +1F4B 1F43 +1F4C 1F44 +1F4D 1F45 +1F59 1F51 +1F5B 1F53 +1F5D 1F55 +1F5F 1F57 +1F68 1F60 +1F69 1F61 +1F6A 1F62 +1F6B 1F63 +1F6C 1F64 +1F6D 1F65 +1F6E 1F66 +1F6F 1F67 +1FB8 1FB0 +1FB9 1FB1 +1FBA 1F70 +1FBB 1F71 +1FBE 03B9 +1FC8 1F72 +1FC9 1F73 +1FCA 1F74 +1FCB 1F75 +1FD8 1FD0 +1FD9 1FD1 +1FDA 1F76 +1FDB 1F77 +1FE8 1FE0 +1FE9 1FE1 +1FEA 1F7A +1FEB 1F7B +1FEC 1FE5 +1FF8 1F78 +1FF9 1F79 +1FFA 1F7C +1FFB 1F7D +2126 03C9 +212A 006B +212B 00E5 +2132 214E +2160 2170 +2161 2171 +2162 2172 +2163 2173 +2164 2174 +2165 2175 +2166 2176 +2167 2177 +2168 2178 +2169 2179 +216A 217A +216B 217B +216C 217C +216D 217D +216E 217E +216F 217F +2183 2184 +24B6 24D0 +24B7 24D1 +24B8 24D2 +24B9 24D3 +24BA 24D4 +24BB 24D5 +24BC 24D6 +24BD 24D7 +24BE 24D8 +24BF 24D9 +24C0 24DA +24C1 24DB +24C2 24DC +24C3 24DD +24C4 24DE +24C5 24DF +24C6 24E0 +24C7 24E1 +24C8 24E2 +24C9 24E3 +24CA 24E4 +24CB 24E5 +24CC 24E6 +24CD 24E7 +24CE 24E8 +24CF 24E9 +2C00 2C30 +2C01 2C31 +2C02 2C32 +2C03 2C33 +2C04 2C34 +2C05 2C35 +2C06 2C36 +2C07 2C37 +2C08 2C38 +2C09 2C39 +2C0A 2C3A +2C0B 2C3B +2C0C 2C3C +2C0D 2C3D +2C0E 2C3E +2C0F 2C3F +2C10 2C40 +2C11 2C41 +2C12 2C42 +2C13 2C43 +2C14 2C44 +2C15 2C45 +2C16 2C46 +2C17 2C47 +2C18 2C48 +2C19 2C49 +2C1A 2C4A +2C1B 2C4B +2C1C 2C4C +2C1D 2C4D +2C1E 2C4E +2C1F 2C4F +2C20 2C50 +2C21 2C51 +2C22 2C52 +2C23 2C53 +2C24 2C54 +2C25 2C55 +2C26 2C56 +2C27 2C57 +2C28 2C58 +2C29 2C59 +2C2A 2C5A +2C2B 2C5B +2C2C 2C5C +2C2D 2C5D +2C2E 2C5E +2C60 2C61 +2C62 026B +2C63 1D7D +2C64 027D +2C67 2C68 +2C69 2C6A +2C6B 2C6C +2C6D 0251 +2C6E 0271 +2C6F 0250 +2C72 2C73 +2C75 2C76 +2C80 2C81 +2C82 2C83 +2C84 2C85 +2C86 2C87 +2C88 2C89 +2C8A 2C8B +2C8C 2C8D +2C8E 2C8F +2C90 2C91 +2C92 2C93 +2C94 2C95 +2C96 2C97 +2C98 2C99 +2C9A 2C9B +2C9C 2C9D +2C9E 2C9F +2CA0 2CA1 +2CA2 2CA3 +2CA4 2CA5 +2CA6 2CA7 +2CA8 2CA9 +2CAA 2CAB +2CAC 2CAD +2CAE 2CAF +2CB0 2CB1 +2CB2 2CB3 +2CB4 2CB5 +2CB6 2CB7 +2CB8 2CB9 +2CBA 2CBB +2CBC 2CBD +2CBE 2CBF +2CC0 2CC1 +2CC2 2CC3 +2CC4 2CC5 +2CC6 2CC7 +2CC8 2CC9 +2CCA 2CCB +2CCC 2CCD +2CCE 2CCF +2CD0 2CD1 +2CD2 2CD3 +2CD4 2CD5 +2CD6 2CD7 +2CD8 2CD9 +2CDA 2CDB +2CDC 2CDD +2CDE 2CDF +2CE0 2CE1 +2CE2 2CE3 +A640 A641 +A642 A643 +A644 A645 +A646 A647 +A648 A649 +A64A A64B +A64C A64D +A64E A64F +A650 A651 +A652 A653 +A654 A655 +A656 A657 +A658 A659 +A65A A65B +A65C A65D +A65E A65F +A662 A663 +A664 A665 +A666 A667 +A668 A669 +A66A A66B +A66C A66D +A680 A681 +A682 A683 +A684 A685 +A686 A687 +A688 A689 +A68A A68B +A68C A68D +A68E A68F +A690 A691 +A692 A693 +A694 A695 +A696 A697 +A722 A723 +A724 A725 +A726 A727 +A728 A729 +A72A A72B +A72C A72D +A72E A72F +A732 A733 +A734 A735 +A736 A737 +A738 A739 +A73A A73B +A73C A73D +A73E A73F +A740 A741 +A742 A743 +A744 A745 +A746 A747 +A748 A749 +A74A A74B +A74C A74D +A74E A74F +A750 A751 +A752 A753 +A754 A755 +A756 A757 +A758 A759 +A75A A75B +A75C A75D +A75E A75F +A760 A761 +A762 A763 +A764 A765 +A766 A767 +A768 A769 +A76A A76B +A76C A76D +A76E A76F +A779 A77A +A77B A77C +A77D 1D79 +A77E A77F +A780 A781 +A782 A783 +A784 A785 +A786 A787 +A78B A78C +FF21 FF41 +FF22 FF42 +FF23 FF43 +FF24 FF44 +FF25 FF45 +FF26 FF46 +FF27 FF47 +FF28 FF48 +FF29 FF49 +FF2A FF4A +FF2B FF4B +FF2C FF4C +FF2D FF4D +FF2E FF4E +FF2F FF4F +FF30 FF50 +FF31 FF51 +FF32 FF52 +FF33 FF53 +FF34 FF54 +FF35 FF55 +FF36 FF56 +FF37 FF57 +FF38 FF58 +FF39 FF59 +FF3A FF5A +10400 10428 +10401 10429 +10402 1042A +10403 1042B +10404 1042C +10405 1042D +10406 1042E +10407 1042F +10408 10430 +10409 10431 +1040A 10432 +1040B 10433 +1040C 10434 +1040D 10435 +1040E 10436 +1040F 10437 +10410 10438 +10411 10439 +10412 1043A +10413 1043B +10414 1043C +10415 1043D +10416 1043E +10417 1043F +10418 10440 +10419 10441 +1041A 10442 +1041B 10443 +1041C 10444 +1041D 10445 +1041E 10446 +1041F 10447 +10420 10448 +10421 10449 +10422 1044A +10423 1044B +10424 1044C +10425 1044D +10426 1044E +10427 1044F +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/To/Lower.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/To/Lower.pl new file mode 100644 index 0000000..d7b793f --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/To/Lower.pl @@ -0,0 +1,1039 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + + +# The key: UTF-8 _bytes_, the value: UTF-8 (speed hack) +%utf8::ToSpecLower = +( +"\xC4\xB0" => "\x{0069}\x{0307}", +"\xE1\xBE\x88" => "\x{1F80}", +"\xE1\xBE\x89" => "\x{1F81}", +"\xE1\xBE\x8A" => "\x{1F82}", +"\xE1\xBE\x8B" => "\x{1F83}", +"\xE1\xBE\x8C" => "\x{1F84}", +"\xE1\xBE\x8D" => "\x{1F85}", +"\xE1\xBE\x8E" => "\x{1F86}", +"\xE1\xBE\x8F" => "\x{1F87}", +"\xE1\xBE\x98" => "\x{1F90}", +"\xE1\xBE\x99" => "\x{1F91}", +"\xE1\xBE\x9A" => "\x{1F92}", +"\xE1\xBE\x9B" => "\x{1F93}", +"\xE1\xBE\x9C" => "\x{1F94}", +"\xE1\xBE\x9D" => "\x{1F95}", +"\xE1\xBE\x9E" => "\x{1F96}", +"\xE1\xBE\x9F" => "\x{1F97}", +"\xE1\xBE\xA8" => "\x{1FA0}", +"\xE1\xBE\xA9" => "\x{1FA1}", +"\xE1\xBE\xAA" => "\x{1FA2}", +"\xE1\xBE\xAB" => "\x{1FA3}", +"\xE1\xBE\xAC" => "\x{1FA4}", +"\xE1\xBE\xAD" => "\x{1FA5}", +"\xE1\xBE\xAE" => "\x{1FA6}", +"\xE1\xBE\xAF" => "\x{1FA7}", +"\xE1\xBE\xBC" => "\x{1FB3}", +"\xE1\xBF\x8C" => "\x{1FC3}", +"\xE1\xBF\xBC" => "\x{1FF3}", +); + +return <<'END'; +0041 0061 +0042 0062 +0043 0063 +0044 0064 +0045 0065 +0046 0066 +0047 0067 +0048 0068 +0049 0069 +004A 006A +004B 006B +004C 006C +004D 006D +004E 006E +004F 006F +0050 0070 +0051 0071 +0052 0072 +0053 0073 +0054 0074 +0055 0075 +0056 0076 +0057 0077 +0058 0078 +0059 0079 +005A 007A +00C0 00E0 +00C1 00E1 +00C2 00E2 +00C3 00E3 +00C4 00E4 +00C5 00E5 +00C6 00E6 +00C7 00E7 +00C8 00E8 +00C9 00E9 +00CA 00EA +00CB 00EB +00CC 00EC +00CD 00ED +00CE 00EE +00CF 00EF +00D0 00F0 +00D1 00F1 +00D2 00F2 +00D3 00F3 +00D4 00F4 +00D5 00F5 +00D6 00F6 +00D8 00F8 +00D9 00F9 +00DA 00FA +00DB 00FB +00DC 00FC +00DD 00FD +00DE 00FE +0100 0101 +0102 0103 +0104 0105 +0106 0107 +0108 0109 +010A 010B +010C 010D +010E 010F +0110 0111 +0112 0113 +0114 0115 +0116 0117 +0118 0119 +011A 011B +011C 011D +011E 011F +0120 0121 +0122 0123 +0124 0125 +0126 0127 +0128 0129 +012A 012B +012C 012D +012E 012F +0132 0133 +0134 0135 +0136 0137 +0139 013A +013B 013C +013D 013E +013F 0140 +0141 0142 +0143 0144 +0145 0146 +0147 0148 +014A 014B +014C 014D +014E 014F +0150 0151 +0152 0153 +0154 0155 +0156 0157 +0158 0159 +015A 015B +015C 015D +015E 015F +0160 0161 +0162 0163 +0164 0165 +0166 0167 +0168 0169 +016A 016B +016C 016D +016E 016F +0170 0171 +0172 0173 +0174 0175 +0176 0177 +0178 00FF +0179 017A +017B 017C +017D 017E +0181 0253 +0182 0183 +0184 0185 +0186 0254 +0187 0188 +0189 0256 +018A 0257 +018B 018C +018E 01DD +018F 0259 +0190 025B +0191 0192 +0193 0260 +0194 0263 +0196 0269 +0197 0268 +0198 0199 +019C 026F +019D 0272 +019F 0275 +01A0 01A1 +01A2 01A3 +01A4 01A5 +01A6 0280 +01A7 01A8 +01A9 0283 +01AC 01AD +01AE 0288 +01AF 01B0 +01B1 028A +01B2 028B +01B3 01B4 +01B5 01B6 +01B7 0292 +01B8 01B9 +01BC 01BD +01C4 01C6 +01C5 01C6 +01C7 01C9 +01C8 01C9 +01CA 01CC +01CB 01CC +01CD 01CE +01CF 01D0 +01D1 01D2 +01D3 01D4 +01D5 01D6 +01D7 01D8 +01D9 01DA +01DB 01DC +01DE 01DF +01E0 01E1 +01E2 01E3 +01E4 01E5 +01E6 01E7 +01E8 01E9 +01EA 01EB +01EC 01ED +01EE 01EF +01F1 01F3 +01F2 01F3 +01F4 01F5 +01F6 0195 +01F7 01BF +01F8 01F9 +01FA 01FB +01FC 01FD +01FE 01FF +0200 0201 +0202 0203 +0204 0205 +0206 0207 +0208 0209 +020A 020B +020C 020D +020E 020F +0210 0211 +0212 0213 +0214 0215 +0216 0217 +0218 0219 +021A 021B +021C 021D +021E 021F +0220 019E +0222 0223 +0224 0225 +0226 0227 +0228 0229 +022A 022B +022C 022D +022E 022F +0230 0231 +0232 0233 +023A 2C65 +023B 023C +023D 019A +023E 2C66 +0241 0242 +0243 0180 +0244 0289 +0245 028C +0246 0247 +0248 0249 +024A 024B +024C 024D +024E 024F +0370 0371 +0372 0373 +0376 0377 +0386 03AC +0388 03AD +0389 03AE +038A 03AF +038C 03CC +038E 03CD +038F 03CE +0391 03B1 +0392 03B2 +0393 03B3 +0394 03B4 +0395 03B5 +0396 03B6 +0397 03B7 +0398 03B8 +0399 03B9 +039A 03BA +039B 03BB +039C 03BC +039D 03BD +039E 03BE +039F 03BF +03A0 03C0 +03A1 03C1 +03A3 03C3 +03A4 03C4 +03A5 03C5 +03A6 03C6 +03A7 03C7 +03A8 03C8 +03A9 03C9 +03AA 03CA +03AB 03CB +03CF 03D7 +03D8 03D9 +03DA 03DB +03DC 03DD +03DE 03DF +03E0 03E1 +03E2 03E3 +03E4 03E5 +03E6 03E7 +03E8 03E9 +03EA 03EB +03EC 03ED +03EE 03EF +03F4 03B8 +03F7 03F8 +03F9 03F2 +03FA 03FB +03FD 037B +03FE 037C +03FF 037D +0400 0450 +0401 0451 +0402 0452 +0403 0453 +0404 0454 +0405 0455 +0406 0456 +0407 0457 +0408 0458 +0409 0459 +040A 045A +040B 045B +040C 045C +040D 045D +040E 045E +040F 045F +0410 0430 +0411 0431 +0412 0432 +0413 0433 +0414 0434 +0415 0435 +0416 0436 +0417 0437 +0418 0438 +0419 0439 +041A 043A +041B 043B +041C 043C +041D 043D +041E 043E +041F 043F +0420 0440 +0421 0441 +0422 0442 +0423 0443 +0424 0444 +0425 0445 +0426 0446 +0427 0447 +0428 0448 +0429 0449 +042A 044A +042B 044B +042C 044C +042D 044D +042E 044E +042F 044F +0460 0461 +0462 0463 +0464 0465 +0466 0467 +0468 0469 +046A 046B +046C 046D +046E 046F +0470 0471 +0472 0473 +0474 0475 +0476 0477 +0478 0479 +047A 047B +047C 047D +047E 047F +0480 0481 +048A 048B +048C 048D +048E 048F +0490 0491 +0492 0493 +0494 0495 +0496 0497 +0498 0499 +049A 049B +049C 049D +049E 049F +04A0 04A1 +04A2 04A3 +04A4 04A5 +04A6 04A7 +04A8 04A9 +04AA 04AB +04AC 04AD +04AE 04AF +04B0 04B1 +04B2 04B3 +04B4 04B5 +04B6 04B7 +04B8 04B9 +04BA 04BB +04BC 04BD +04BE 04BF +04C0 04CF +04C1 04C2 +04C3 04C4 +04C5 04C6 +04C7 04C8 +04C9 04CA +04CB 04CC +04CD 04CE +04D0 04D1 +04D2 04D3 +04D4 04D5 +04D6 04D7 +04D8 04D9 +04DA 04DB +04DC 04DD +04DE 04DF +04E0 04E1 +04E2 04E3 +04E4 04E5 +04E6 04E7 +04E8 04E9 +04EA 04EB +04EC 04ED +04EE 04EF +04F0 04F1 +04F2 04F3 +04F4 04F5 +04F6 04F7 +04F8 04F9 +04FA 04FB +04FC 04FD +04FE 04FF +0500 0501 +0502 0503 +0504 0505 +0506 0507 +0508 0509 +050A 050B +050C 050D +050E 050F +0510 0511 +0512 0513 +0514 0515 +0516 0517 +0518 0519 +051A 051B +051C 051D +051E 051F +0520 0521 +0522 0523 +0531 0561 +0532 0562 +0533 0563 +0534 0564 +0535 0565 +0536 0566 +0537 0567 +0538 0568 +0539 0569 +053A 056A +053B 056B +053C 056C +053D 056D +053E 056E +053F 056F +0540 0570 +0541 0571 +0542 0572 +0543 0573 +0544 0574 +0545 0575 +0546 0576 +0547 0577 +0548 0578 +0549 0579 +054A 057A +054B 057B +054C 057C +054D 057D +054E 057E +054F 057F +0550 0580 +0551 0581 +0552 0582 +0553 0583 +0554 0584 +0555 0585 +0556 0586 +10A0 2D00 +10A1 2D01 +10A2 2D02 +10A3 2D03 +10A4 2D04 +10A5 2D05 +10A6 2D06 +10A7 2D07 +10A8 2D08 +10A9 2D09 +10AA 2D0A +10AB 2D0B +10AC 2D0C +10AD 2D0D +10AE 2D0E +10AF 2D0F +10B0 2D10 +10B1 2D11 +10B2 2D12 +10B3 2D13 +10B4 2D14 +10B5 2D15 +10B6 2D16 +10B7 2D17 +10B8 2D18 +10B9 2D19 +10BA 2D1A +10BB 2D1B +10BC 2D1C +10BD 2D1D +10BE 2D1E +10BF 2D1F +10C0 2D20 +10C1 2D21 +10C2 2D22 +10C3 2D23 +10C4 2D24 +10C5 2D25 +1E00 1E01 +1E02 1E03 +1E04 1E05 +1E06 1E07 +1E08 1E09 +1E0A 1E0B +1E0C 1E0D +1E0E 1E0F +1E10 1E11 +1E12 1E13 +1E14 1E15 +1E16 1E17 +1E18 1E19 +1E1A 1E1B +1E1C 1E1D +1E1E 1E1F +1E20 1E21 +1E22 1E23 +1E24 1E25 +1E26 1E27 +1E28 1E29 +1E2A 1E2B +1E2C 1E2D +1E2E 1E2F +1E30 1E31 +1E32 1E33 +1E34 1E35 +1E36 1E37 +1E38 1E39 +1E3A 1E3B +1E3C 1E3D +1E3E 1E3F +1E40 1E41 +1E42 1E43 +1E44 1E45 +1E46 1E47 +1E48 1E49 +1E4A 1E4B +1E4C 1E4D +1E4E 1E4F +1E50 1E51 +1E52 1E53 +1E54 1E55 +1E56 1E57 +1E58 1E59 +1E5A 1E5B +1E5C 1E5D +1E5E 1E5F +1E60 1E61 +1E62 1E63 +1E64 1E65 +1E66 1E67 +1E68 1E69 +1E6A 1E6B +1E6C 1E6D +1E6E 1E6F +1E70 1E71 +1E72 1E73 +1E74 1E75 +1E76 1E77 +1E78 1E79 +1E7A 1E7B +1E7C 1E7D +1E7E 1E7F +1E80 1E81 +1E82 1E83 +1E84 1E85 +1E86 1E87 +1E88 1E89 +1E8A 1E8B +1E8C 1E8D +1E8E 1E8F +1E90 1E91 +1E92 1E93 +1E94 1E95 +1E9E 00DF +1EA0 1EA1 +1EA2 1EA3 +1EA4 1EA5 +1EA6 1EA7 +1EA8 1EA9 +1EAA 1EAB +1EAC 1EAD +1EAE 1EAF +1EB0 1EB1 +1EB2 1EB3 +1EB4 1EB5 +1EB6 1EB7 +1EB8 1EB9 +1EBA 1EBB +1EBC 1EBD +1EBE 1EBF +1EC0 1EC1 +1EC2 1EC3 +1EC4 1EC5 +1EC6 1EC7 +1EC8 1EC9 +1ECA 1ECB +1ECC 1ECD +1ECE 1ECF +1ED0 1ED1 +1ED2 1ED3 +1ED4 1ED5 +1ED6 1ED7 +1ED8 1ED9 +1EDA 1EDB +1EDC 1EDD +1EDE 1EDF +1EE0 1EE1 +1EE2 1EE3 +1EE4 1EE5 +1EE6 1EE7 +1EE8 1EE9 +1EEA 1EEB +1EEC 1EED +1EEE 1EEF +1EF0 1EF1 +1EF2 1EF3 +1EF4 1EF5 +1EF6 1EF7 +1EF8 1EF9 +1EFA 1EFB +1EFC 1EFD +1EFE 1EFF +1F08 1F00 +1F09 1F01 +1F0A 1F02 +1F0B 1F03 +1F0C 1F04 +1F0D 1F05 +1F0E 1F06 +1F0F 1F07 +1F18 1F10 +1F19 1F11 +1F1A 1F12 +1F1B 1F13 +1F1C 1F14 +1F1D 1F15 +1F28 1F20 +1F29 1F21 +1F2A 1F22 +1F2B 1F23 +1F2C 1F24 +1F2D 1F25 +1F2E 1F26 +1F2F 1F27 +1F38 1F30 +1F39 1F31 +1F3A 1F32 +1F3B 1F33 +1F3C 1F34 +1F3D 1F35 +1F3E 1F36 +1F3F 1F37 +1F48 1F40 +1F49 1F41 +1F4A 1F42 +1F4B 1F43 +1F4C 1F44 +1F4D 1F45 +1F59 1F51 +1F5B 1F53 +1F5D 1F55 +1F5F 1F57 +1F68 1F60 +1F69 1F61 +1F6A 1F62 +1F6B 1F63 +1F6C 1F64 +1F6D 1F65 +1F6E 1F66 +1F6F 1F67 +1FB8 1FB0 +1FB9 1FB1 +1FBA 1F70 +1FBB 1F71 +1FC8 1F72 +1FC9 1F73 +1FCA 1F74 +1FCB 1F75 +1FD8 1FD0 +1FD9 1FD1 +1FDA 1F76 +1FDB 1F77 +1FE8 1FE0 +1FE9 1FE1 +1FEA 1F7A +1FEB 1F7B +1FEC 1FE5 +1FF8 1F78 +1FF9 1F79 +1FFA 1F7C +1FFB 1F7D +2126 03C9 +212A 006B +212B 00E5 +2132 214E +2160 2170 +2161 2171 +2162 2172 +2163 2173 +2164 2174 +2165 2175 +2166 2176 +2167 2177 +2168 2178 +2169 2179 +216A 217A +216B 217B +216C 217C +216D 217D +216E 217E +216F 217F +2183 2184 +24B6 24D0 +24B7 24D1 +24B8 24D2 +24B9 24D3 +24BA 24D4 +24BB 24D5 +24BC 24D6 +24BD 24D7 +24BE 24D8 +24BF 24D9 +24C0 24DA +24C1 24DB +24C2 24DC +24C3 24DD +24C4 24DE +24C5 24DF +24C6 24E0 +24C7 24E1 +24C8 24E2 +24C9 24E3 +24CA 24E4 +24CB 24E5 +24CC 24E6 +24CD 24E7 +24CE 24E8 +24CF 24E9 +2C00 2C30 +2C01 2C31 +2C02 2C32 +2C03 2C33 +2C04 2C34 +2C05 2C35 +2C06 2C36 +2C07 2C37 +2C08 2C38 +2C09 2C39 +2C0A 2C3A +2C0B 2C3B +2C0C 2C3C +2C0D 2C3D +2C0E 2C3E +2C0F 2C3F +2C10 2C40 +2C11 2C41 +2C12 2C42 +2C13 2C43 +2C14 2C44 +2C15 2C45 +2C16 2C46 +2C17 2C47 +2C18 2C48 +2C19 2C49 +2C1A 2C4A +2C1B 2C4B +2C1C 2C4C +2C1D 2C4D +2C1E 2C4E +2C1F 2C4F +2C20 2C50 +2C21 2C51 +2C22 2C52 +2C23 2C53 +2C24 2C54 +2C25 2C55 +2C26 2C56 +2C27 2C57 +2C28 2C58 +2C29 2C59 +2C2A 2C5A +2C2B 2C5B +2C2C 2C5C +2C2D 2C5D +2C2E 2C5E +2C60 2C61 +2C62 026B +2C63 1D7D +2C64 027D +2C67 2C68 +2C69 2C6A +2C6B 2C6C +2C6D 0251 +2C6E 0271 +2C6F 0250 +2C72 2C73 +2C75 2C76 +2C80 2C81 +2C82 2C83 +2C84 2C85 +2C86 2C87 +2C88 2C89 +2C8A 2C8B +2C8C 2C8D +2C8E 2C8F +2C90 2C91 +2C92 2C93 +2C94 2C95 +2C96 2C97 +2C98 2C99 +2C9A 2C9B +2C9C 2C9D +2C9E 2C9F +2CA0 2CA1 +2CA2 2CA3 +2CA4 2CA5 +2CA6 2CA7 +2CA8 2CA9 +2CAA 2CAB +2CAC 2CAD +2CAE 2CAF +2CB0 2CB1 +2CB2 2CB3 +2CB4 2CB5 +2CB6 2CB7 +2CB8 2CB9 +2CBA 2CBB +2CBC 2CBD +2CBE 2CBF +2CC0 2CC1 +2CC2 2CC3 +2CC4 2CC5 +2CC6 2CC7 +2CC8 2CC9 +2CCA 2CCB +2CCC 2CCD +2CCE 2CCF +2CD0 2CD1 +2CD2 2CD3 +2CD4 2CD5 +2CD6 2CD7 +2CD8 2CD9 +2CDA 2CDB +2CDC 2CDD +2CDE 2CDF +2CE0 2CE1 +2CE2 2CE3 +A640 A641 +A642 A643 +A644 A645 +A646 A647 +A648 A649 +A64A A64B +A64C A64D +A64E A64F +A650 A651 +A652 A653 +A654 A655 +A656 A657 +A658 A659 +A65A A65B +A65C A65D +A65E A65F +A662 A663 +A664 A665 +A666 A667 +A668 A669 +A66A A66B +A66C A66D +A680 A681 +A682 A683 +A684 A685 +A686 A687 +A688 A689 +A68A A68B +A68C A68D +A68E A68F +A690 A691 +A692 A693 +A694 A695 +A696 A697 +A722 A723 +A724 A725 +A726 A727 +A728 A729 +A72A A72B +A72C A72D +A72E A72F +A732 A733 +A734 A735 +A736 A737 +A738 A739 +A73A A73B +A73C A73D +A73E A73F +A740 A741 +A742 A743 +A744 A745 +A746 A747 +A748 A749 +A74A A74B +A74C A74D +A74E A74F +A750 A751 +A752 A753 +A754 A755 +A756 A757 +A758 A759 +A75A A75B +A75C A75D +A75E A75F +A760 A761 +A762 A763 +A764 A765 +A766 A767 +A768 A769 +A76A A76B +A76C A76D +A76E A76F +A779 A77A +A77B A77C +A77D 1D79 +A77E A77F +A780 A781 +A782 A783 +A784 A785 +A786 A787 +A78B A78C +FF21 FF41 +FF22 FF42 +FF23 FF43 +FF24 FF44 +FF25 FF45 +FF26 FF46 +FF27 FF47 +FF28 FF48 +FF29 FF49 +FF2A FF4A +FF2B FF4B +FF2C FF4C +FF2D FF4D +FF2E FF4E +FF2F FF4F +FF30 FF50 +FF31 FF51 +FF32 FF52 +FF33 FF53 +FF34 FF54 +FF35 FF55 +FF36 FF56 +FF37 FF57 +FF38 FF58 +FF39 FF59 +FF3A FF5A +10400 10428 +10401 10429 +10402 1042A +10403 1042B +10404 1042C +10405 1042D +10406 1042E +10407 1042F +10408 10430 +10409 10431 +1040A 10432 +1040B 10433 +1040C 10434 +1040D 10435 +1040E 10436 +1040F 10437 +10410 10438 +10411 10439 +10412 1043A +10413 1043B +10414 1043C +10415 1043D +10416 1043E +10417 1043F +10418 10440 +10419 10441 +1041A 10442 +1041B 10443 +1041C 10444 +1041D 10445 +1041E 10446 +1041F 10447 +10420 10448 +10421 10449 +10422 1044A +10423 1044B +10424 1044C +10425 1044D +10426 1044E +10427 1044F +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/To/Title.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/To/Title.pl new file mode 100644 index 0000000..3e6fad5 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/To/Title.pl @@ -0,0 +1,1099 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + + +# The key: UTF-8 _bytes_, the value: UTF-8 (speed hack) +%utf8::ToSpecTitle = +( +"\xC3\x9F" => "\x{0053}\x{0073}", +"\xC5\x89" => "\x{02BC}\x{004E}", +"\xC7\xB0" => "\x{004A}\x{030C}", +"\xCE\x90" => "\x{0399}\x{0308}\x{0301}", +"\xCE\xB0" => "\x{03A5}\x{0308}\x{0301}", +"\xD6\x87" => "\x{0535}\x{0582}", +"\xE1\xBA\x96" => "\x{0048}\x{0331}", +"\xE1\xBA\x97" => "\x{0054}\x{0308}", +"\xE1\xBA\x98" => "\x{0057}\x{030A}", +"\xE1\xBA\x99" => "\x{0059}\x{030A}", +"\xE1\xBA\x9A" => "\x{0041}\x{02BE}", +"\xE1\xBD\x90" => "\x{03A5}\x{0313}", +"\xE1\xBD\x92" => "\x{03A5}\x{0313}\x{0300}", +"\xE1\xBD\x94" => "\x{03A5}\x{0313}\x{0301}", +"\xE1\xBD\x96" => "\x{03A5}\x{0313}\x{0342}", +"\xE1\xBE\x80" => "\x{1F88}", +"\xE1\xBE\x81" => "\x{1F89}", +"\xE1\xBE\x82" => "\x{1F8A}", +"\xE1\xBE\x83" => "\x{1F8B}", +"\xE1\xBE\x84" => "\x{1F8C}", +"\xE1\xBE\x85" => "\x{1F8D}", +"\xE1\xBE\x86" => "\x{1F8E}", +"\xE1\xBE\x87" => "\x{1F8F}", +"\xE1\xBE\x90" => "\x{1F98}", +"\xE1\xBE\x91" => "\x{1F99}", +"\xE1\xBE\x92" => "\x{1F9A}", +"\xE1\xBE\x93" => "\x{1F9B}", +"\xE1\xBE\x94" => "\x{1F9C}", +"\xE1\xBE\x95" => "\x{1F9D}", +"\xE1\xBE\x96" => "\x{1F9E}", +"\xE1\xBE\x97" => "\x{1F9F}", +"\xE1\xBE\xA0" => "\x{1FA8}", +"\xE1\xBE\xA1" => "\x{1FA9}", +"\xE1\xBE\xA2" => "\x{1FAA}", +"\xE1\xBE\xA3" => "\x{1FAB}", +"\xE1\xBE\xA4" => "\x{1FAC}", +"\xE1\xBE\xA5" => "\x{1FAD}", +"\xE1\xBE\xA6" => "\x{1FAE}", +"\xE1\xBE\xA7" => "\x{1FAF}", +"\xE1\xBE\xB2" => "\x{1FBA}\x{0345}", +"\xE1\xBE\xB3" => "\x{1FBC}", +"\xE1\xBE\xB4" => "\x{0386}\x{0345}", +"\xE1\xBE\xB6" => "\x{0391}\x{0342}", +"\xE1\xBE\xB7" => "\x{0391}\x{0342}\x{0345}", +"\xE1\xBF\x82" => "\x{1FCA}\x{0345}", +"\xE1\xBF\x83" => "\x{1FCC}", +"\xE1\xBF\x84" => "\x{0389}\x{0345}", +"\xE1\xBF\x86" => "\x{0397}\x{0342}", +"\xE1\xBF\x87" => "\x{0397}\x{0342}\x{0345}", +"\xE1\xBF\x92" => "\x{0399}\x{0308}\x{0300}", +"\xE1\xBF\x93" => "\x{0399}\x{0308}\x{0301}", +"\xE1\xBF\x96" => "\x{0399}\x{0342}", +"\xE1\xBF\x97" => "\x{0399}\x{0308}\x{0342}", +"\xE1\xBF\xA2" => "\x{03A5}\x{0308}\x{0300}", +"\xE1\xBF\xA3" => "\x{03A5}\x{0308}\x{0301}", +"\xE1\xBF\xA4" => "\x{03A1}\x{0313}", +"\xE1\xBF\xA6" => "\x{03A5}\x{0342}", +"\xE1\xBF\xA7" => "\x{03A5}\x{0308}\x{0342}", +"\xE1\xBF\xB2" => "\x{1FFA}\x{0345}", +"\xE1\xBF\xB3" => "\x{1FFC}", +"\xE1\xBF\xB4" => "\x{038F}\x{0345}", +"\xE1\xBF\xB6" => "\x{03A9}\x{0342}", +"\xE1\xBF\xB7" => "\x{03A9}\x{0342}\x{0345}", +"\xEF\xAC\x80" => "\x{0046}\x{0066}", +"\xEF\xAC\x81" => "\x{0046}\x{0069}", +"\xEF\xAC\x82" => "\x{0046}\x{006C}", +"\xEF\xAC\x83" => "\x{0046}\x{0066}\x{0069}", +"\xEF\xAC\x84" => "\x{0046}\x{0066}\x{006C}", +"\xEF\xAC\x85" => "\x{0053}\x{0074}", +"\xEF\xAC\x86" => "\x{0053}\x{0074}", +"\xEF\xAC\x93" => "\x{0544}\x{0576}", +"\xEF\xAC\x94" => "\x{0544}\x{0565}", +"\xEF\xAC\x95" => "\x{0544}\x{056B}", +"\xEF\xAC\x96" => "\x{054E}\x{0576}", +"\xEF\xAC\x97" => "\x{0544}\x{056D}", +); + +return <<'END'; +0061 0041 +0062 0042 +0063 0043 +0064 0044 +0065 0045 +0066 0046 +0067 0047 +0068 0048 +0069 0049 +006A 004A +006B 004B +006C 004C +006D 004D +006E 004E +006F 004F +0070 0050 +0071 0051 +0072 0052 +0073 0053 +0074 0054 +0075 0055 +0076 0056 +0077 0057 +0078 0058 +0079 0059 +007A 005A +00B5 039C +00E0 00C0 +00E1 00C1 +00E2 00C2 +00E3 00C3 +00E4 00C4 +00E5 00C5 +00E6 00C6 +00E7 00C7 +00E8 00C8 +00E9 00C9 +00EA 00CA +00EB 00CB +00EC 00CC +00ED 00CD +00EE 00CE +00EF 00CF +00F0 00D0 +00F1 00D1 +00F2 00D2 +00F3 00D3 +00F4 00D4 +00F5 00D5 +00F6 00D6 +00F8 00D8 +00F9 00D9 +00FA 00DA +00FB 00DB +00FC 00DC +00FD 00DD +00FE 00DE +00FF 0178 +0101 0100 +0103 0102 +0105 0104 +0107 0106 +0109 0108 +010B 010A +010D 010C +010F 010E +0111 0110 +0113 0112 +0115 0114 +0117 0116 +0119 0118 +011B 011A +011D 011C +011F 011E +0121 0120 +0123 0122 +0125 0124 +0127 0126 +0129 0128 +012B 012A +012D 012C +012F 012E +0131 0049 +0133 0132 +0135 0134 +0137 0136 +013A 0139 +013C 013B +013E 013D +0140 013F +0142 0141 +0144 0143 +0146 0145 +0148 0147 +014B 014A +014D 014C +014F 014E +0151 0150 +0153 0152 +0155 0154 +0157 0156 +0159 0158 +015B 015A +015D 015C +015F 015E +0161 0160 +0163 0162 +0165 0164 +0167 0166 +0169 0168 +016B 016A +016D 016C +016F 016E +0171 0170 +0173 0172 +0175 0174 +0177 0176 +017A 0179 +017C 017B +017E 017D +017F 0053 +0180 0243 +0183 0182 +0185 0184 +0188 0187 +018C 018B +0192 0191 +0195 01F6 +0199 0198 +019A 023D +019E 0220 +01A1 01A0 +01A3 01A2 +01A5 01A4 +01A8 01A7 +01AD 01AC +01B0 01AF +01B4 01B3 +01B6 01B5 +01B9 01B8 +01BD 01BC +01BF 01F7 +01C4 01C5 +01C5 01C5 +01C6 01C5 +01C7 01C8 +01C8 01C8 +01C9 01C8 +01CA 01CB +01CB 01CB +01CC 01CB +01CE 01CD +01D0 01CF +01D2 01D1 +01D4 01D3 +01D6 01D5 +01D8 01D7 +01DA 01D9 +01DC 01DB +01DD 018E +01DF 01DE +01E1 01E0 +01E3 01E2 +01E5 01E4 +01E7 01E6 +01E9 01E8 +01EB 01EA +01ED 01EC +01EF 01EE +01F1 01F2 +01F2 01F2 +01F3 01F2 +01F5 01F4 +01F9 01F8 +01FB 01FA +01FD 01FC +01FF 01FE +0201 0200 +0203 0202 +0205 0204 +0207 0206 +0209 0208 +020B 020A +020D 020C +020F 020E +0211 0210 +0213 0212 +0215 0214 +0217 0216 +0219 0218 +021B 021A +021D 021C +021F 021E +0223 0222 +0225 0224 +0227 0226 +0229 0228 +022B 022A +022D 022C +022F 022E +0231 0230 +0233 0232 +023C 023B +0242 0241 +0247 0246 +0249 0248 +024B 024A +024D 024C +024F 024E +0250 2C6F +0251 2C6D +0253 0181 +0254 0186 +0256 0189 +0257 018A +0259 018F +025B 0190 +0260 0193 +0263 0194 +0268 0197 +0269 0196 +026B 2C62 +026F 019C +0271 2C6E +0272 019D +0275 019F +027D 2C64 +0280 01A6 +0283 01A9 +0288 01AE +0289 0244 +028A 01B1 +028B 01B2 +028C 0245 +0292 01B7 +0345 0399 +0371 0370 +0373 0372 +0377 0376 +037B 03FD +037C 03FE +037D 03FF +03AC 0386 +03AD 0388 +03AE 0389 +03AF 038A +03B1 0391 +03B2 0392 +03B3 0393 +03B4 0394 +03B5 0395 +03B6 0396 +03B7 0397 +03B8 0398 +03B9 0399 +03BA 039A +03BB 039B +03BC 039C +03BD 039D +03BE 039E +03BF 039F +03C0 03A0 +03C1 03A1 +03C2 03A3 +03C3 03A3 +03C4 03A4 +03C5 03A5 +03C6 03A6 +03C7 03A7 +03C8 03A8 +03C9 03A9 +03CA 03AA +03CB 03AB +03CC 038C +03CD 038E +03CE 038F +03D0 0392 +03D1 0398 +03D5 03A6 +03D6 03A0 +03D7 03CF +03D9 03D8 +03DB 03DA +03DD 03DC +03DF 03DE +03E1 03E0 +03E3 03E2 +03E5 03E4 +03E7 03E6 +03E9 03E8 +03EB 03EA +03ED 03EC +03EF 03EE +03F0 039A +03F1 03A1 +03F2 03F9 +03F5 0395 +03F8 03F7 +03FB 03FA +0430 0410 +0431 0411 +0432 0412 +0433 0413 +0434 0414 +0435 0415 +0436 0416 +0437 0417 +0438 0418 +0439 0419 +043A 041A +043B 041B +043C 041C +043D 041D +043E 041E +043F 041F +0440 0420 +0441 0421 +0442 0422 +0443 0423 +0444 0424 +0445 0425 +0446 0426 +0447 0427 +0448 0428 +0449 0429 +044A 042A +044B 042B +044C 042C +044D 042D +044E 042E +044F 042F +0450 0400 +0451 0401 +0452 0402 +0453 0403 +0454 0404 +0455 0405 +0456 0406 +0457 0407 +0458 0408 +0459 0409 +045A 040A +045B 040B +045C 040C +045D 040D +045E 040E +045F 040F +0461 0460 +0463 0462 +0465 0464 +0467 0466 +0469 0468 +046B 046A +046D 046C +046F 046E +0471 0470 +0473 0472 +0475 0474 +0477 0476 +0479 0478 +047B 047A +047D 047C +047F 047E +0481 0480 +048B 048A +048D 048C +048F 048E +0491 0490 +0493 0492 +0495 0494 +0497 0496 +0499 0498 +049B 049A +049D 049C +049F 049E +04A1 04A0 +04A3 04A2 +04A5 04A4 +04A7 04A6 +04A9 04A8 +04AB 04AA +04AD 04AC +04AF 04AE +04B1 04B0 +04B3 04B2 +04B5 04B4 +04B7 04B6 +04B9 04B8 +04BB 04BA +04BD 04BC +04BF 04BE +04C2 04C1 +04C4 04C3 +04C6 04C5 +04C8 04C7 +04CA 04C9 +04CC 04CB +04CE 04CD +04CF 04C0 +04D1 04D0 +04D3 04D2 +04D5 04D4 +04D7 04D6 +04D9 04D8 +04DB 04DA +04DD 04DC +04DF 04DE +04E1 04E0 +04E3 04E2 +04E5 04E4 +04E7 04E6 +04E9 04E8 +04EB 04EA +04ED 04EC +04EF 04EE +04F1 04F0 +04F3 04F2 +04F5 04F4 +04F7 04F6 +04F9 04F8 +04FB 04FA +04FD 04FC +04FF 04FE +0501 0500 +0503 0502 +0505 0504 +0507 0506 +0509 0508 +050B 050A +050D 050C +050F 050E +0511 0510 +0513 0512 +0515 0514 +0517 0516 +0519 0518 +051B 051A +051D 051C +051F 051E +0521 0520 +0523 0522 +0561 0531 +0562 0532 +0563 0533 +0564 0534 +0565 0535 +0566 0536 +0567 0537 +0568 0538 +0569 0539 +056A 053A +056B 053B +056C 053C +056D 053D +056E 053E +056F 053F +0570 0540 +0571 0541 +0572 0542 +0573 0543 +0574 0544 +0575 0545 +0576 0546 +0577 0547 +0578 0548 +0579 0549 +057A 054A +057B 054B +057C 054C +057D 054D +057E 054E +057F 054F +0580 0550 +0581 0551 +0582 0552 +0583 0553 +0584 0554 +0585 0555 +0586 0556 +1D79 A77D +1D7D 2C63 +1E01 1E00 +1E03 1E02 +1E05 1E04 +1E07 1E06 +1E09 1E08 +1E0B 1E0A +1E0D 1E0C +1E0F 1E0E +1E11 1E10 +1E13 1E12 +1E15 1E14 +1E17 1E16 +1E19 1E18 +1E1B 1E1A +1E1D 1E1C +1E1F 1E1E +1E21 1E20 +1E23 1E22 +1E25 1E24 +1E27 1E26 +1E29 1E28 +1E2B 1E2A +1E2D 1E2C +1E2F 1E2E +1E31 1E30 +1E33 1E32 +1E35 1E34 +1E37 1E36 +1E39 1E38 +1E3B 1E3A +1E3D 1E3C +1E3F 1E3E +1E41 1E40 +1E43 1E42 +1E45 1E44 +1E47 1E46 +1E49 1E48 +1E4B 1E4A +1E4D 1E4C +1E4F 1E4E +1E51 1E50 +1E53 1E52 +1E55 1E54 +1E57 1E56 +1E59 1E58 +1E5B 1E5A +1E5D 1E5C +1E5F 1E5E +1E61 1E60 +1E63 1E62 +1E65 1E64 +1E67 1E66 +1E69 1E68 +1E6B 1E6A +1E6D 1E6C +1E6F 1E6E +1E71 1E70 +1E73 1E72 +1E75 1E74 +1E77 1E76 +1E79 1E78 +1E7B 1E7A +1E7D 1E7C +1E7F 1E7E +1E81 1E80 +1E83 1E82 +1E85 1E84 +1E87 1E86 +1E89 1E88 +1E8B 1E8A +1E8D 1E8C +1E8F 1E8E +1E91 1E90 +1E93 1E92 +1E95 1E94 +1E9B 1E60 +1EA1 1EA0 +1EA3 1EA2 +1EA5 1EA4 +1EA7 1EA6 +1EA9 1EA8 +1EAB 1EAA +1EAD 1EAC +1EAF 1EAE +1EB1 1EB0 +1EB3 1EB2 +1EB5 1EB4 +1EB7 1EB6 +1EB9 1EB8 +1EBB 1EBA +1EBD 1EBC +1EBF 1EBE +1EC1 1EC0 +1EC3 1EC2 +1EC5 1EC4 +1EC7 1EC6 +1EC9 1EC8 +1ECB 1ECA +1ECD 1ECC +1ECF 1ECE +1ED1 1ED0 +1ED3 1ED2 +1ED5 1ED4 +1ED7 1ED6 +1ED9 1ED8 +1EDB 1EDA +1EDD 1EDC +1EDF 1EDE +1EE1 1EE0 +1EE3 1EE2 +1EE5 1EE4 +1EE7 1EE6 +1EE9 1EE8 +1EEB 1EEA +1EED 1EEC +1EEF 1EEE +1EF1 1EF0 +1EF3 1EF2 +1EF5 1EF4 +1EF7 1EF6 +1EF9 1EF8 +1EFB 1EFA +1EFD 1EFC +1EFF 1EFE +1F00 1F08 +1F01 1F09 +1F02 1F0A +1F03 1F0B +1F04 1F0C +1F05 1F0D +1F06 1F0E +1F07 1F0F +1F10 1F18 +1F11 1F19 +1F12 1F1A +1F13 1F1B +1F14 1F1C +1F15 1F1D +1F20 1F28 +1F21 1F29 +1F22 1F2A +1F23 1F2B +1F24 1F2C +1F25 1F2D +1F26 1F2E +1F27 1F2F +1F30 1F38 +1F31 1F39 +1F32 1F3A +1F33 1F3B +1F34 1F3C +1F35 1F3D +1F36 1F3E +1F37 1F3F +1F40 1F48 +1F41 1F49 +1F42 1F4A +1F43 1F4B +1F44 1F4C +1F45 1F4D +1F51 1F59 +1F53 1F5B +1F55 1F5D +1F57 1F5F +1F60 1F68 +1F61 1F69 +1F62 1F6A +1F63 1F6B +1F64 1F6C +1F65 1F6D +1F66 1F6E +1F67 1F6F +1F70 1FBA +1F71 1FBB +1F72 1FC8 +1F73 1FC9 +1F74 1FCA +1F75 1FCB +1F76 1FDA +1F77 1FDB +1F78 1FF8 +1F79 1FF9 +1F7A 1FEA +1F7B 1FEB +1F7C 1FFA +1F7D 1FFB +1FB0 1FB8 +1FB1 1FB9 +1FBE 0399 +1FD0 1FD8 +1FD1 1FD9 +1FE0 1FE8 +1FE1 1FE9 +1FE5 1FEC +214E 2132 +2170 2160 +2171 2161 +2172 2162 +2173 2163 +2174 2164 +2175 2165 +2176 2166 +2177 2167 +2178 2168 +2179 2169 +217A 216A +217B 216B +217C 216C +217D 216D +217E 216E +217F 216F +2184 2183 +24D0 24B6 +24D1 24B7 +24D2 24B8 +24D3 24B9 +24D4 24BA +24D5 24BB +24D6 24BC +24D7 24BD +24D8 24BE +24D9 24BF +24DA 24C0 +24DB 24C1 +24DC 24C2 +24DD 24C3 +24DE 24C4 +24DF 24C5 +24E0 24C6 +24E1 24C7 +24E2 24C8 +24E3 24C9 +24E4 24CA +24E5 24CB +24E6 24CC +24E7 24CD +24E8 24CE +24E9 24CF +2C30 2C00 +2C31 2C01 +2C32 2C02 +2C33 2C03 +2C34 2C04 +2C35 2C05 +2C36 2C06 +2C37 2C07 +2C38 2C08 +2C39 2C09 +2C3A 2C0A +2C3B 2C0B +2C3C 2C0C +2C3D 2C0D +2C3E 2C0E +2C3F 2C0F +2C40 2C10 +2C41 2C11 +2C42 2C12 +2C43 2C13 +2C44 2C14 +2C45 2C15 +2C46 2C16 +2C47 2C17 +2C48 2C18 +2C49 2C19 +2C4A 2C1A +2C4B 2C1B +2C4C 2C1C +2C4D 2C1D +2C4E 2C1E +2C4F 2C1F +2C50 2C20 +2C51 2C21 +2C52 2C22 +2C53 2C23 +2C54 2C24 +2C55 2C25 +2C56 2C26 +2C57 2C27 +2C58 2C28 +2C59 2C29 +2C5A 2C2A +2C5B 2C2B +2C5C 2C2C +2C5D 2C2D +2C5E 2C2E +2C61 2C60 +2C65 023A +2C66 023E +2C68 2C67 +2C6A 2C69 +2C6C 2C6B +2C73 2C72 +2C76 2C75 +2C81 2C80 +2C83 2C82 +2C85 2C84 +2C87 2C86 +2C89 2C88 +2C8B 2C8A +2C8D 2C8C +2C8F 2C8E +2C91 2C90 +2C93 2C92 +2C95 2C94 +2C97 2C96 +2C99 2C98 +2C9B 2C9A +2C9D 2C9C +2C9F 2C9E +2CA1 2CA0 +2CA3 2CA2 +2CA5 2CA4 +2CA7 2CA6 +2CA9 2CA8 +2CAB 2CAA +2CAD 2CAC +2CAF 2CAE +2CB1 2CB0 +2CB3 2CB2 +2CB5 2CB4 +2CB7 2CB6 +2CB9 2CB8 +2CBB 2CBA +2CBD 2CBC +2CBF 2CBE +2CC1 2CC0 +2CC3 2CC2 +2CC5 2CC4 +2CC7 2CC6 +2CC9 2CC8 +2CCB 2CCA +2CCD 2CCC +2CCF 2CCE +2CD1 2CD0 +2CD3 2CD2 +2CD5 2CD4 +2CD7 2CD6 +2CD9 2CD8 +2CDB 2CDA +2CDD 2CDC +2CDF 2CDE +2CE1 2CE0 +2CE3 2CE2 +2D00 10A0 +2D01 10A1 +2D02 10A2 +2D03 10A3 +2D04 10A4 +2D05 10A5 +2D06 10A6 +2D07 10A7 +2D08 10A8 +2D09 10A9 +2D0A 10AA +2D0B 10AB +2D0C 10AC +2D0D 10AD +2D0E 10AE +2D0F 10AF +2D10 10B0 +2D11 10B1 +2D12 10B2 +2D13 10B3 +2D14 10B4 +2D15 10B5 +2D16 10B6 +2D17 10B7 +2D18 10B8 +2D19 10B9 +2D1A 10BA +2D1B 10BB +2D1C 10BC +2D1D 10BD +2D1E 10BE +2D1F 10BF +2D20 10C0 +2D21 10C1 +2D22 10C2 +2D23 10C3 +2D24 10C4 +2D25 10C5 +A641 A640 +A643 A642 +A645 A644 +A647 A646 +A649 A648 +A64B A64A +A64D A64C +A64F A64E +A651 A650 +A653 A652 +A655 A654 +A657 A656 +A659 A658 +A65B A65A +A65D A65C +A65F A65E +A663 A662 +A665 A664 +A667 A666 +A669 A668 +A66B A66A +A66D A66C +A681 A680 +A683 A682 +A685 A684 +A687 A686 +A689 A688 +A68B A68A +A68D A68C +A68F A68E +A691 A690 +A693 A692 +A695 A694 +A697 A696 +A723 A722 +A725 A724 +A727 A726 +A729 A728 +A72B A72A +A72D A72C +A72F A72E +A733 A732 +A735 A734 +A737 A736 +A739 A738 +A73B A73A +A73D A73C +A73F A73E +A741 A740 +A743 A742 +A745 A744 +A747 A746 +A749 A748 +A74B A74A +A74D A74C +A74F A74E +A751 A750 +A753 A752 +A755 A754 +A757 A756 +A759 A758 +A75B A75A +A75D A75C +A75F A75E +A761 A760 +A763 A762 +A765 A764 +A767 A766 +A769 A768 +A76B A76A +A76D A76C +A76F A76E +A77A A779 +A77C A77B +A77F A77E +A781 A780 +A783 A782 +A785 A784 +A787 A786 +A78C A78B +FF41 FF21 +FF42 FF22 +FF43 FF23 +FF44 FF24 +FF45 FF25 +FF46 FF26 +FF47 FF27 +FF48 FF28 +FF49 FF29 +FF4A FF2A +FF4B FF2B +FF4C FF2C +FF4D FF2D +FF4E FF2E +FF4F FF2F +FF50 FF30 +FF51 FF31 +FF52 FF32 +FF53 FF33 +FF54 FF34 +FF55 FF35 +FF56 FF36 +FF57 FF37 +FF58 FF38 +FF59 FF39 +FF5A FF3A +10428 10400 +10429 10401 +1042A 10402 +1042B 10403 +1042C 10404 +1042D 10405 +1042E 10406 +1042F 10407 +10430 10408 +10431 10409 +10432 1040A +10433 1040B +10434 1040C +10435 1040D +10436 1040E +10437 1040F +10438 10410 +10439 10411 +1043A 10412 +1043B 10413 +1043C 10414 +1043D 10415 +1043E 10416 +1043F 10417 +10440 10418 +10441 10419 +10442 1041A +10443 1041B +10444 1041C +10445 1041D +10446 1041E +10447 1041F +10448 10420 +10449 10421 +1044A 10422 +1044B 10423 +1044C 10424 +1044D 10425 +1044E 10426 +1044F 10427 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/To/Upper.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/To/Upper.pl new file mode 100644 index 0000000..e2393ee --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/To/Upper.pl @@ -0,0 +1,1122 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + + +# The key: UTF-8 _bytes_, the value: UTF-8 (speed hack) +%utf8::ToSpecUpper = +( +"\xC3\x9F" => "\x{0053}\x{0053}", +"\xC5\x89" => "\x{02BC}\x{004E}", +"\xC7\xB0" => "\x{004A}\x{030C}", +"\xCE\x90" => "\x{0399}\x{0308}\x{0301}", +"\xCE\xB0" => "\x{03A5}\x{0308}\x{0301}", +"\xD6\x87" => "\x{0535}\x{0552}", +"\xE1\xBA\x96" => "\x{0048}\x{0331}", +"\xE1\xBA\x97" => "\x{0054}\x{0308}", +"\xE1\xBA\x98" => "\x{0057}\x{030A}", +"\xE1\xBA\x99" => "\x{0059}\x{030A}", +"\xE1\xBA\x9A" => "\x{0041}\x{02BE}", +"\xE1\xBD\x90" => "\x{03A5}\x{0313}", +"\xE1\xBD\x92" => "\x{03A5}\x{0313}\x{0300}", +"\xE1\xBD\x94" => "\x{03A5}\x{0313}\x{0301}", +"\xE1\xBD\x96" => "\x{03A5}\x{0313}\x{0342}", +"\xE1\xBE\x80" => "\x{1F08}\x{0399}", +"\xE1\xBE\x81" => "\x{1F09}\x{0399}", +"\xE1\xBE\x82" => "\x{1F0A}\x{0399}", +"\xE1\xBE\x83" => "\x{1F0B}\x{0399}", +"\xE1\xBE\x84" => "\x{1F0C}\x{0399}", +"\xE1\xBE\x85" => "\x{1F0D}\x{0399}", +"\xE1\xBE\x86" => "\x{1F0E}\x{0399}", +"\xE1\xBE\x87" => "\x{1F0F}\x{0399}", +"\xE1\xBE\x88" => "\x{1F08}\x{0399}", +"\xE1\xBE\x89" => "\x{1F09}\x{0399}", +"\xE1\xBE\x8A" => "\x{1F0A}\x{0399}", +"\xE1\xBE\x8B" => "\x{1F0B}\x{0399}", +"\xE1\xBE\x8C" => "\x{1F0C}\x{0399}", +"\xE1\xBE\x8D" => "\x{1F0D}\x{0399}", +"\xE1\xBE\x8E" => "\x{1F0E}\x{0399}", +"\xE1\xBE\x8F" => "\x{1F0F}\x{0399}", +"\xE1\xBE\x90" => "\x{1F28}\x{0399}", +"\xE1\xBE\x91" => "\x{1F29}\x{0399}", +"\xE1\xBE\x92" => "\x{1F2A}\x{0399}", +"\xE1\xBE\x93" => "\x{1F2B}\x{0399}", +"\xE1\xBE\x94" => "\x{1F2C}\x{0399}", +"\xE1\xBE\x95" => "\x{1F2D}\x{0399}", +"\xE1\xBE\x96" => "\x{1F2E}\x{0399}", +"\xE1\xBE\x97" => "\x{1F2F}\x{0399}", +"\xE1\xBE\x98" => "\x{1F28}\x{0399}", +"\xE1\xBE\x99" => "\x{1F29}\x{0399}", +"\xE1\xBE\x9A" => "\x{1F2A}\x{0399}", +"\xE1\xBE\x9B" => "\x{1F2B}\x{0399}", +"\xE1\xBE\x9C" => "\x{1F2C}\x{0399}", +"\xE1\xBE\x9D" => "\x{1F2D}\x{0399}", +"\xE1\xBE\x9E" => "\x{1F2E}\x{0399}", +"\xE1\xBE\x9F" => "\x{1F2F}\x{0399}", +"\xE1\xBE\xA0" => "\x{1F68}\x{0399}", +"\xE1\xBE\xA1" => "\x{1F69}\x{0399}", +"\xE1\xBE\xA2" => "\x{1F6A}\x{0399}", +"\xE1\xBE\xA3" => "\x{1F6B}\x{0399}", +"\xE1\xBE\xA4" => "\x{1F6C}\x{0399}", +"\xE1\xBE\xA5" => "\x{1F6D}\x{0399}", +"\xE1\xBE\xA6" => "\x{1F6E}\x{0399}", +"\xE1\xBE\xA7" => "\x{1F6F}\x{0399}", +"\xE1\xBE\xA8" => "\x{1F68}\x{0399}", +"\xE1\xBE\xA9" => "\x{1F69}\x{0399}", +"\xE1\xBE\xAA" => "\x{1F6A}\x{0399}", +"\xE1\xBE\xAB" => "\x{1F6B}\x{0399}", +"\xE1\xBE\xAC" => "\x{1F6C}\x{0399}", +"\xE1\xBE\xAD" => "\x{1F6D}\x{0399}", +"\xE1\xBE\xAE" => "\x{1F6E}\x{0399}", +"\xE1\xBE\xAF" => "\x{1F6F}\x{0399}", +"\xE1\xBE\xB2" => "\x{1FBA}\x{0399}", +"\xE1\xBE\xB3" => "\x{0391}\x{0399}", +"\xE1\xBE\xB4" => "\x{0386}\x{0399}", +"\xE1\xBE\xB6" => "\x{0391}\x{0342}", +"\xE1\xBE\xB7" => "\x{0391}\x{0342}\x{0399}", +"\xE1\xBE\xBC" => "\x{0391}\x{0399}", +"\xE1\xBF\x82" => "\x{1FCA}\x{0399}", +"\xE1\xBF\x83" => "\x{0397}\x{0399}", +"\xE1\xBF\x84" => "\x{0389}\x{0399}", +"\xE1\xBF\x86" => "\x{0397}\x{0342}", +"\xE1\xBF\x87" => "\x{0397}\x{0342}\x{0399}", +"\xE1\xBF\x8C" => "\x{0397}\x{0399}", +"\xE1\xBF\x92" => "\x{0399}\x{0308}\x{0300}", +"\xE1\xBF\x93" => "\x{0399}\x{0308}\x{0301}", +"\xE1\xBF\x96" => "\x{0399}\x{0342}", +"\xE1\xBF\x97" => "\x{0399}\x{0308}\x{0342}", +"\xE1\xBF\xA2" => "\x{03A5}\x{0308}\x{0300}", +"\xE1\xBF\xA3" => "\x{03A5}\x{0308}\x{0301}", +"\xE1\xBF\xA4" => "\x{03A1}\x{0313}", +"\xE1\xBF\xA6" => "\x{03A5}\x{0342}", +"\xE1\xBF\xA7" => "\x{03A5}\x{0308}\x{0342}", +"\xE1\xBF\xB2" => "\x{1FFA}\x{0399}", +"\xE1\xBF\xB3" => "\x{03A9}\x{0399}", +"\xE1\xBF\xB4" => "\x{038F}\x{0399}", +"\xE1\xBF\xB6" => "\x{03A9}\x{0342}", +"\xE1\xBF\xB7" => "\x{03A9}\x{0342}\x{0399}", +"\xE1\xBF\xBC" => "\x{03A9}\x{0399}", +"\xEF\xAC\x80" => "\x{0046}\x{0046}", +"\xEF\xAC\x81" => "\x{0046}\x{0049}", +"\xEF\xAC\x82" => "\x{0046}\x{004C}", +"\xEF\xAC\x83" => "\x{0046}\x{0046}\x{0049}", +"\xEF\xAC\x84" => "\x{0046}\x{0046}\x{004C}", +"\xEF\xAC\x85" => "\x{0053}\x{0054}", +"\xEF\xAC\x86" => "\x{0053}\x{0054}", +"\xEF\xAC\x93" => "\x{0544}\x{0546}", +"\xEF\xAC\x94" => "\x{0544}\x{0535}", +"\xEF\xAC\x95" => "\x{0544}\x{053B}", +"\xEF\xAC\x96" => "\x{054E}\x{0546}", +"\xEF\xAC\x97" => "\x{0544}\x{053D}", +); + +return <<'END'; +0061 0041 +0062 0042 +0063 0043 +0064 0044 +0065 0045 +0066 0046 +0067 0047 +0068 0048 +0069 0049 +006A 004A +006B 004B +006C 004C +006D 004D +006E 004E +006F 004F +0070 0050 +0071 0051 +0072 0052 +0073 0053 +0074 0054 +0075 0055 +0076 0056 +0077 0057 +0078 0058 +0079 0059 +007A 005A +00B5 039C +00E0 00C0 +00E1 00C1 +00E2 00C2 +00E3 00C3 +00E4 00C4 +00E5 00C5 +00E6 00C6 +00E7 00C7 +00E8 00C8 +00E9 00C9 +00EA 00CA +00EB 00CB +00EC 00CC +00ED 00CD +00EE 00CE +00EF 00CF +00F0 00D0 +00F1 00D1 +00F2 00D2 +00F3 00D3 +00F4 00D4 +00F5 00D5 +00F6 00D6 +00F8 00D8 +00F9 00D9 +00FA 00DA +00FB 00DB +00FC 00DC +00FD 00DD +00FE 00DE +00FF 0178 +0101 0100 +0103 0102 +0105 0104 +0107 0106 +0109 0108 +010B 010A +010D 010C +010F 010E +0111 0110 +0113 0112 +0115 0114 +0117 0116 +0119 0118 +011B 011A +011D 011C +011F 011E +0121 0120 +0123 0122 +0125 0124 +0127 0126 +0129 0128 +012B 012A +012D 012C +012F 012E +0131 0049 +0133 0132 +0135 0134 +0137 0136 +013A 0139 +013C 013B +013E 013D +0140 013F +0142 0141 +0144 0143 +0146 0145 +0148 0147 +014B 014A +014D 014C +014F 014E +0151 0150 +0153 0152 +0155 0154 +0157 0156 +0159 0158 +015B 015A +015D 015C +015F 015E +0161 0160 +0163 0162 +0165 0164 +0167 0166 +0169 0168 +016B 016A +016D 016C +016F 016E +0171 0170 +0173 0172 +0175 0174 +0177 0176 +017A 0179 +017C 017B +017E 017D +017F 0053 +0180 0243 +0183 0182 +0185 0184 +0188 0187 +018C 018B +0192 0191 +0195 01F6 +0199 0198 +019A 023D +019E 0220 +01A1 01A0 +01A3 01A2 +01A5 01A4 +01A8 01A7 +01AD 01AC +01B0 01AF +01B4 01B3 +01B6 01B5 +01B9 01B8 +01BD 01BC +01BF 01F7 +01C5 01C4 +01C6 01C4 +01C8 01C7 +01C9 01C7 +01CB 01CA +01CC 01CA +01CE 01CD +01D0 01CF +01D2 01D1 +01D4 01D3 +01D6 01D5 +01D8 01D7 +01DA 01D9 +01DC 01DB +01DD 018E +01DF 01DE +01E1 01E0 +01E3 01E2 +01E5 01E4 +01E7 01E6 +01E9 01E8 +01EB 01EA +01ED 01EC +01EF 01EE +01F2 01F1 +01F3 01F1 +01F5 01F4 +01F9 01F8 +01FB 01FA +01FD 01FC +01FF 01FE +0201 0200 +0203 0202 +0205 0204 +0207 0206 +0209 0208 +020B 020A +020D 020C +020F 020E +0211 0210 +0213 0212 +0215 0214 +0217 0216 +0219 0218 +021B 021A +021D 021C +021F 021E +0223 0222 +0225 0224 +0227 0226 +0229 0228 +022B 022A +022D 022C +022F 022E +0231 0230 +0233 0232 +023C 023B +0242 0241 +0247 0246 +0249 0248 +024B 024A +024D 024C +024F 024E +0250 2C6F +0251 2C6D +0253 0181 +0254 0186 +0256 0189 +0257 018A +0259 018F +025B 0190 +0260 0193 +0263 0194 +0268 0197 +0269 0196 +026B 2C62 +026F 019C +0271 2C6E +0272 019D +0275 019F +027D 2C64 +0280 01A6 +0283 01A9 +0288 01AE +0289 0244 +028A 01B1 +028B 01B2 +028C 0245 +0292 01B7 +0345 0399 +0371 0370 +0373 0372 +0377 0376 +037B 03FD +037C 03FE +037D 03FF +03AC 0386 +03AD 0388 +03AE 0389 +03AF 038A +03B1 0391 +03B2 0392 +03B3 0393 +03B4 0394 +03B5 0395 +03B6 0396 +03B7 0397 +03B8 0398 +03B9 0399 +03BA 039A +03BB 039B +03BC 039C +03BD 039D +03BE 039E +03BF 039F +03C0 03A0 +03C1 03A1 +03C2 03A3 +03C3 03A3 +03C4 03A4 +03C5 03A5 +03C6 03A6 +03C7 03A7 +03C8 03A8 +03C9 03A9 +03CA 03AA +03CB 03AB +03CC 038C +03CD 038E +03CE 038F +03D0 0392 +03D1 0398 +03D5 03A6 +03D6 03A0 +03D7 03CF +03D9 03D8 +03DB 03DA +03DD 03DC +03DF 03DE +03E1 03E0 +03E3 03E2 +03E5 03E4 +03E7 03E6 +03E9 03E8 +03EB 03EA +03ED 03EC +03EF 03EE +03F0 039A +03F1 03A1 +03F2 03F9 +03F5 0395 +03F8 03F7 +03FB 03FA +0430 0410 +0431 0411 +0432 0412 +0433 0413 +0434 0414 +0435 0415 +0436 0416 +0437 0417 +0438 0418 +0439 0419 +043A 041A +043B 041B +043C 041C +043D 041D +043E 041E +043F 041F +0440 0420 +0441 0421 +0442 0422 +0443 0423 +0444 0424 +0445 0425 +0446 0426 +0447 0427 +0448 0428 +0449 0429 +044A 042A +044B 042B +044C 042C +044D 042D +044E 042E +044F 042F +0450 0400 +0451 0401 +0452 0402 +0453 0403 +0454 0404 +0455 0405 +0456 0406 +0457 0407 +0458 0408 +0459 0409 +045A 040A +045B 040B +045C 040C +045D 040D +045E 040E +045F 040F +0461 0460 +0463 0462 +0465 0464 +0467 0466 +0469 0468 +046B 046A +046D 046C +046F 046E +0471 0470 +0473 0472 +0475 0474 +0477 0476 +0479 0478 +047B 047A +047D 047C +047F 047E +0481 0480 +048B 048A +048D 048C +048F 048E +0491 0490 +0493 0492 +0495 0494 +0497 0496 +0499 0498 +049B 049A +049D 049C +049F 049E +04A1 04A0 +04A3 04A2 +04A5 04A4 +04A7 04A6 +04A9 04A8 +04AB 04AA +04AD 04AC +04AF 04AE +04B1 04B0 +04B3 04B2 +04B5 04B4 +04B7 04B6 +04B9 04B8 +04BB 04BA +04BD 04BC +04BF 04BE +04C2 04C1 +04C4 04C3 +04C6 04C5 +04C8 04C7 +04CA 04C9 +04CC 04CB +04CE 04CD +04CF 04C0 +04D1 04D0 +04D3 04D2 +04D5 04D4 +04D7 04D6 +04D9 04D8 +04DB 04DA +04DD 04DC +04DF 04DE +04E1 04E0 +04E3 04E2 +04E5 04E4 +04E7 04E6 +04E9 04E8 +04EB 04EA +04ED 04EC +04EF 04EE +04F1 04F0 +04F3 04F2 +04F5 04F4 +04F7 04F6 +04F9 04F8 +04FB 04FA +04FD 04FC +04FF 04FE +0501 0500 +0503 0502 +0505 0504 +0507 0506 +0509 0508 +050B 050A +050D 050C +050F 050E +0511 0510 +0513 0512 +0515 0514 +0517 0516 +0519 0518 +051B 051A +051D 051C +051F 051E +0521 0520 +0523 0522 +0561 0531 +0562 0532 +0563 0533 +0564 0534 +0565 0535 +0566 0536 +0567 0537 +0568 0538 +0569 0539 +056A 053A +056B 053B +056C 053C +056D 053D +056E 053E +056F 053F +0570 0540 +0571 0541 +0572 0542 +0573 0543 +0574 0544 +0575 0545 +0576 0546 +0577 0547 +0578 0548 +0579 0549 +057A 054A +057B 054B +057C 054C +057D 054D +057E 054E +057F 054F +0580 0550 +0581 0551 +0582 0552 +0583 0553 +0584 0554 +0585 0555 +0586 0556 +1D79 A77D +1D7D 2C63 +1E01 1E00 +1E03 1E02 +1E05 1E04 +1E07 1E06 +1E09 1E08 +1E0B 1E0A +1E0D 1E0C +1E0F 1E0E +1E11 1E10 +1E13 1E12 +1E15 1E14 +1E17 1E16 +1E19 1E18 +1E1B 1E1A +1E1D 1E1C +1E1F 1E1E +1E21 1E20 +1E23 1E22 +1E25 1E24 +1E27 1E26 +1E29 1E28 +1E2B 1E2A +1E2D 1E2C +1E2F 1E2E +1E31 1E30 +1E33 1E32 +1E35 1E34 +1E37 1E36 +1E39 1E38 +1E3B 1E3A +1E3D 1E3C +1E3F 1E3E +1E41 1E40 +1E43 1E42 +1E45 1E44 +1E47 1E46 +1E49 1E48 +1E4B 1E4A +1E4D 1E4C +1E4F 1E4E +1E51 1E50 +1E53 1E52 +1E55 1E54 +1E57 1E56 +1E59 1E58 +1E5B 1E5A +1E5D 1E5C +1E5F 1E5E +1E61 1E60 +1E63 1E62 +1E65 1E64 +1E67 1E66 +1E69 1E68 +1E6B 1E6A +1E6D 1E6C +1E6F 1E6E +1E71 1E70 +1E73 1E72 +1E75 1E74 +1E77 1E76 +1E79 1E78 +1E7B 1E7A +1E7D 1E7C +1E7F 1E7E +1E81 1E80 +1E83 1E82 +1E85 1E84 +1E87 1E86 +1E89 1E88 +1E8B 1E8A +1E8D 1E8C +1E8F 1E8E +1E91 1E90 +1E93 1E92 +1E95 1E94 +1E9B 1E60 +1EA1 1EA0 +1EA3 1EA2 +1EA5 1EA4 +1EA7 1EA6 +1EA9 1EA8 +1EAB 1EAA +1EAD 1EAC +1EAF 1EAE +1EB1 1EB0 +1EB3 1EB2 +1EB5 1EB4 +1EB7 1EB6 +1EB9 1EB8 +1EBB 1EBA +1EBD 1EBC +1EBF 1EBE +1EC1 1EC0 +1EC3 1EC2 +1EC5 1EC4 +1EC7 1EC6 +1EC9 1EC8 +1ECB 1ECA +1ECD 1ECC +1ECF 1ECE +1ED1 1ED0 +1ED3 1ED2 +1ED5 1ED4 +1ED7 1ED6 +1ED9 1ED8 +1EDB 1EDA +1EDD 1EDC +1EDF 1EDE +1EE1 1EE0 +1EE3 1EE2 +1EE5 1EE4 +1EE7 1EE6 +1EE9 1EE8 +1EEB 1EEA +1EED 1EEC +1EEF 1EEE +1EF1 1EF0 +1EF3 1EF2 +1EF5 1EF4 +1EF7 1EF6 +1EF9 1EF8 +1EFB 1EFA +1EFD 1EFC +1EFF 1EFE +1F00 1F08 +1F01 1F09 +1F02 1F0A +1F03 1F0B +1F04 1F0C +1F05 1F0D +1F06 1F0E +1F07 1F0F +1F10 1F18 +1F11 1F19 +1F12 1F1A +1F13 1F1B +1F14 1F1C +1F15 1F1D +1F20 1F28 +1F21 1F29 +1F22 1F2A +1F23 1F2B +1F24 1F2C +1F25 1F2D +1F26 1F2E +1F27 1F2F +1F30 1F38 +1F31 1F39 +1F32 1F3A +1F33 1F3B +1F34 1F3C +1F35 1F3D +1F36 1F3E +1F37 1F3F +1F40 1F48 +1F41 1F49 +1F42 1F4A +1F43 1F4B +1F44 1F4C +1F45 1F4D +1F51 1F59 +1F53 1F5B +1F55 1F5D +1F57 1F5F +1F60 1F68 +1F61 1F69 +1F62 1F6A +1F63 1F6B +1F64 1F6C +1F65 1F6D +1F66 1F6E +1F67 1F6F +1F70 1FBA +1F71 1FBB +1F72 1FC8 +1F73 1FC9 +1F74 1FCA +1F75 1FCB +1F76 1FDA +1F77 1FDB +1F78 1FF8 +1F79 1FF9 +1F7A 1FEA +1F7B 1FEB +1F7C 1FFA +1F7D 1FFB +1FB0 1FB8 +1FB1 1FB9 +1FBE 0399 +1FD0 1FD8 +1FD1 1FD9 +1FE0 1FE8 +1FE1 1FE9 +1FE5 1FEC +214E 2132 +2170 2160 +2171 2161 +2172 2162 +2173 2163 +2174 2164 +2175 2165 +2176 2166 +2177 2167 +2178 2168 +2179 2169 +217A 216A +217B 216B +217C 216C +217D 216D +217E 216E +217F 216F +2184 2183 +24D0 24B6 +24D1 24B7 +24D2 24B8 +24D3 24B9 +24D4 24BA +24D5 24BB +24D6 24BC +24D7 24BD +24D8 24BE +24D9 24BF +24DA 24C0 +24DB 24C1 +24DC 24C2 +24DD 24C3 +24DE 24C4 +24DF 24C5 +24E0 24C6 +24E1 24C7 +24E2 24C8 +24E3 24C9 +24E4 24CA +24E5 24CB +24E6 24CC +24E7 24CD +24E8 24CE +24E9 24CF +2C30 2C00 +2C31 2C01 +2C32 2C02 +2C33 2C03 +2C34 2C04 +2C35 2C05 +2C36 2C06 +2C37 2C07 +2C38 2C08 +2C39 2C09 +2C3A 2C0A +2C3B 2C0B +2C3C 2C0C +2C3D 2C0D +2C3E 2C0E +2C3F 2C0F +2C40 2C10 +2C41 2C11 +2C42 2C12 +2C43 2C13 +2C44 2C14 +2C45 2C15 +2C46 2C16 +2C47 2C17 +2C48 2C18 +2C49 2C19 +2C4A 2C1A +2C4B 2C1B +2C4C 2C1C +2C4D 2C1D +2C4E 2C1E +2C4F 2C1F +2C50 2C20 +2C51 2C21 +2C52 2C22 +2C53 2C23 +2C54 2C24 +2C55 2C25 +2C56 2C26 +2C57 2C27 +2C58 2C28 +2C59 2C29 +2C5A 2C2A +2C5B 2C2B +2C5C 2C2C +2C5D 2C2D +2C5E 2C2E +2C61 2C60 +2C65 023A +2C66 023E +2C68 2C67 +2C6A 2C69 +2C6C 2C6B +2C73 2C72 +2C76 2C75 +2C81 2C80 +2C83 2C82 +2C85 2C84 +2C87 2C86 +2C89 2C88 +2C8B 2C8A +2C8D 2C8C +2C8F 2C8E +2C91 2C90 +2C93 2C92 +2C95 2C94 +2C97 2C96 +2C99 2C98 +2C9B 2C9A +2C9D 2C9C +2C9F 2C9E +2CA1 2CA0 +2CA3 2CA2 +2CA5 2CA4 +2CA7 2CA6 +2CA9 2CA8 +2CAB 2CAA +2CAD 2CAC +2CAF 2CAE +2CB1 2CB0 +2CB3 2CB2 +2CB5 2CB4 +2CB7 2CB6 +2CB9 2CB8 +2CBB 2CBA +2CBD 2CBC +2CBF 2CBE +2CC1 2CC0 +2CC3 2CC2 +2CC5 2CC4 +2CC7 2CC6 +2CC9 2CC8 +2CCB 2CCA +2CCD 2CCC +2CCF 2CCE +2CD1 2CD0 +2CD3 2CD2 +2CD5 2CD4 +2CD7 2CD6 +2CD9 2CD8 +2CDB 2CDA +2CDD 2CDC +2CDF 2CDE +2CE1 2CE0 +2CE3 2CE2 +2D00 10A0 +2D01 10A1 +2D02 10A2 +2D03 10A3 +2D04 10A4 +2D05 10A5 +2D06 10A6 +2D07 10A7 +2D08 10A8 +2D09 10A9 +2D0A 10AA +2D0B 10AB +2D0C 10AC +2D0D 10AD +2D0E 10AE +2D0F 10AF +2D10 10B0 +2D11 10B1 +2D12 10B2 +2D13 10B3 +2D14 10B4 +2D15 10B5 +2D16 10B6 +2D17 10B7 +2D18 10B8 +2D19 10B9 +2D1A 10BA +2D1B 10BB +2D1C 10BC +2D1D 10BD +2D1E 10BE +2D1F 10BF +2D20 10C0 +2D21 10C1 +2D22 10C2 +2D23 10C3 +2D24 10C4 +2D25 10C5 +A641 A640 +A643 A642 +A645 A644 +A647 A646 +A649 A648 +A64B A64A +A64D A64C +A64F A64E +A651 A650 +A653 A652 +A655 A654 +A657 A656 +A659 A658 +A65B A65A +A65D A65C +A65F A65E +A663 A662 +A665 A664 +A667 A666 +A669 A668 +A66B A66A +A66D A66C +A681 A680 +A683 A682 +A685 A684 +A687 A686 +A689 A688 +A68B A68A +A68D A68C +A68F A68E +A691 A690 +A693 A692 +A695 A694 +A697 A696 +A723 A722 +A725 A724 +A727 A726 +A729 A728 +A72B A72A +A72D A72C +A72F A72E +A733 A732 +A735 A734 +A737 A736 +A739 A738 +A73B A73A +A73D A73C +A73F A73E +A741 A740 +A743 A742 +A745 A744 +A747 A746 +A749 A748 +A74B A74A +A74D A74C +A74F A74E +A751 A750 +A753 A752 +A755 A754 +A757 A756 +A759 A758 +A75B A75A +A75D A75C +A75F A75E +A761 A760 +A763 A762 +A765 A764 +A767 A766 +A769 A768 +A76B A76A +A76D A76C +A76F A76E +A77A A779 +A77C A77B +A77F A77E +A781 A780 +A783 A782 +A785 A784 +A787 A786 +A78C A78B +FF41 FF21 +FF42 FF22 +FF43 FF23 +FF44 FF24 +FF45 FF25 +FF46 FF26 +FF47 FF27 +FF48 FF28 +FF49 FF29 +FF4A FF2A +FF4B FF2B +FF4C FF2C +FF4D FF2D +FF4E FF2E +FF4F FF2F +FF50 FF30 +FF51 FF31 +FF52 FF32 +FF53 FF33 +FF54 FF34 +FF55 FF35 +FF56 FF36 +FF57 FF37 +FF58 FF38 +FF59 FF39 +FF5A FF3A +10428 10400 +10429 10401 +1042A 10402 +1042B 10403 +1042C 10404 +1042D 10405 +1042E 10406 +1042F 10407 +10430 10408 +10431 10409 +10432 1040A +10433 1040B +10434 1040C +10435 1040D +10436 1040E +10437 1040F +10438 10410 +10439 10411 +1043A 10412 +1043B 10413 +1043C 10414 +1043D 10415 +1043E 10416 +1043F 10417 +10440 10418 +10441 10419 +10442 1041A +10443 1041B +10444 1041C +10445 1041D +10446 1041E +10447 1041F +10448 10420 +10449 10421 +1044A 10422 +1044B 10423 +1044C 10424 +1044D 10425 +1044E 10426 +1044F 10427 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/bc/AL.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/bc/AL.pl new file mode 100644 index 0000000..e7ec056 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/bc/AL.pl @@ -0,0 +1,35 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# BidiClass category 'Arabic_Letter' +# +return <<'END'; +0608 +060B +060D +061B +061E 061F +0621 064A +066D 066F +0671 06D5 +06E5 06E6 +06EE 06EF +06FA 070D +0710 +0712 072F +074D 07A5 +07B1 +FB50 FBB1 +FBD3 FD3D +FD50 FD8F +FD92 FDC7 +FDF0 FDFC +FE70 FE74 +FE76 FEFC +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/bc/AN.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/bc/AN.pl new file mode 100644 index 0000000..a74fcec --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/bc/AN.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# BidiClass category 'Arabic_Number' +# +return <<'END'; +0600 0603 +0660 0669 +066B 066C +06DD +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/bc/B.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/bc/B.pl new file mode 100644 index 0000000..6b669ef --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/bc/B.pl @@ -0,0 +1,18 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# BidiClass category 'Paragraph_Separator' +# +return <<'END'; +000A +000D +001C 001E +0085 +2029 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/bc/BN.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/bc/BN.pl new file mode 100644 index 0000000..9cde85b --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/bc/BN.pl @@ -0,0 +1,26 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# BidiClass category 'Boundary_Neutral' +# +return <<'END'; +0000 0008 +000E 001B +007F 0084 +0086 009F +00AD +070F +200B 200D +2060 2064 +206A 206F +FEFF +1D173 1D17A +E0001 +E0020 E007F +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/bc/CS.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/bc/CS.pl new file mode 100644 index 0000000..8cc1b46 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/bc/CS.pl @@ -0,0 +1,26 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# BidiClass category 'Common_Separator' +# +return <<'END'; +002C +002E 002F +003A +00A0 +060C +202F +2044 +FE50 +FE52 +FE55 +FF0C +FF0E FF0F +FF1A +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/bc/EN.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/bc/EN.pl new file mode 100644 index 0000000..17388a9 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/bc/EN.pl @@ -0,0 +1,23 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# BidiClass category 'European_Number' +# +return <<'END'; +0030 0039 +00B2 00B3 +00B9 +06F0 06F9 +2070 +2074 2079 +2080 2089 +2488 249B +FF10 FF19 +1D7CE 1D7FF +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/bc/ES.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/bc/ES.pl new file mode 100644 index 0000000..a6b05df --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/bc/ES.pl @@ -0,0 +1,22 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# BidiClass category 'European_Separator' +# +return <<'END'; +002B +002D +207A 207B +208A 208B +2212 +FB29 +FE62 FE63 +FF0B +FF0D +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/bc/ET.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/bc/ET.pl new file mode 100644 index 0000000..6f36728 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/bc/ET.pl @@ -0,0 +1,32 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# BidiClass category 'European_Terminator' +# +return <<'END'; +0023 0025 +00A2 00A5 +00B0 00B1 +0609 060A +066A +09F2 09F3 +0AF1 +0BF9 +0E3F +17DB +2030 2034 +20A0 20B5 +212E +2213 +FE5F +FE69 FE6A +FF03 FF05 +FFE0 FFE1 +FFE5 FFE6 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/bc/L.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/bc/L.pl new file mode 100644 index 0000000..3061c7b --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/bc/L.pl @@ -0,0 +1,457 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# BidiClass category 'Left_To_Right' +# +return <<'END'; +0041 005A +0061 007A +00AA +00B5 +00BA +00C0 00D6 +00D8 00F6 +00F8 02B8 +02BB 02C1 +02D0 02D1 +02E0 02E4 +02EE +0370 0373 +0376 0377 +037A 037D +0386 +0388 038A +038C +038E 03A1 +03A3 03F5 +03F7 0482 +048A 0523 +0531 0556 +0559 055F +0561 0587 +0589 +0903 0939 +093D 0940 +0949 094C +0950 +0958 0961 +0964 0972 +097B 097F +0982 0983 +0985 098C +098F 0990 +0993 09A8 +09AA 09B0 +09B2 +09B6 09B9 +09BD 09C0 +09C7 09C8 +09CB 09CC +09CE +09D7 +09DC 09DD +09DF 09E1 +09E6 09F1 +09F4 09FA +0A03 +0A05 0A0A +0A0F 0A10 +0A13 0A28 +0A2A 0A30 +0A32 0A33 +0A35 0A36 +0A38 0A39 +0A3E 0A40 +0A59 0A5C +0A5E +0A66 0A6F +0A72 0A74 +0A83 +0A85 0A8D +0A8F 0A91 +0A93 0AA8 +0AAA 0AB0 +0AB2 0AB3 +0AB5 0AB9 +0ABD 0AC0 +0AC9 +0ACB 0ACC +0AD0 +0AE0 0AE1 +0AE6 0AEF +0B02 0B03 +0B05 0B0C +0B0F 0B10 +0B13 0B28 +0B2A 0B30 +0B32 0B33 +0B35 0B39 +0B3D 0B3E +0B40 +0B47 0B48 +0B4B 0B4C +0B57 +0B5C 0B5D +0B5F 0B61 +0B66 0B71 +0B83 +0B85 0B8A +0B8E 0B90 +0B92 0B95 +0B99 0B9A +0B9C +0B9E 0B9F +0BA3 0BA4 +0BA8 0BAA +0BAE 0BB9 +0BBE 0BBF +0BC1 0BC2 +0BC6 0BC8 +0BCA 0BCC +0BD0 +0BD7 +0BE6 0BF2 +0C01 0C03 +0C05 0C0C +0C0E 0C10 +0C12 0C28 +0C2A 0C33 +0C35 0C39 +0C3D +0C41 0C44 +0C58 0C59 +0C60 0C61 +0C66 0C6F +0C7F +0C82 0C83 +0C85 0C8C +0C8E 0C90 +0C92 0CA8 +0CAA 0CB3 +0CB5 0CB9 +0CBD 0CC4 +0CC6 0CC8 +0CCA 0CCB +0CD5 0CD6 +0CDE +0CE0 0CE1 +0CE6 0CEF +0D02 0D03 +0D05 0D0C +0D0E 0D10 +0D12 0D28 +0D2A 0D39 +0D3D 0D40 +0D46 0D48 +0D4A 0D4C +0D57 +0D60 0D61 +0D66 0D75 +0D79 0D7F +0D82 0D83 +0D85 0D96 +0D9A 0DB1 +0DB3 0DBB +0DBD +0DC0 0DC6 +0DCF 0DD1 +0DD8 0DDF +0DF2 0DF4 +0E01 0E30 +0E32 0E33 +0E40 0E46 +0E4F 0E5B +0E81 0E82 +0E84 +0E87 0E88 +0E8A +0E8D +0E94 0E97 +0E99 0E9F +0EA1 0EA3 +0EA5 +0EA7 +0EAA 0EAB +0EAD 0EB0 +0EB2 0EB3 +0EBD +0EC0 0EC4 +0EC6 +0ED0 0ED9 +0EDC 0EDD +0F00 0F17 +0F1A 0F34 +0F36 +0F38 +0F3E 0F47 +0F49 0F6C +0F7F +0F85 +0F88 0F8B +0FBE 0FC5 +0FC7 0FCC +0FCE 0FD4 +1000 102C +1031 +1038 +103B 103C +103F 1057 +105A 105D +1061 1070 +1075 1081 +1083 1084 +1087 108C +108E 1099 +109E 10C5 +10D0 10FC +1100 1159 +115F 11A2 +11A8 11F9 +1200 1248 +124A 124D +1250 1256 +1258 +125A 125D +1260 1288 +128A 128D +1290 12B0 +12B2 12B5 +12B8 12BE +12C0 +12C2 12C5 +12C8 12D6 +12D8 1310 +1312 1315 +1318 135A +1360 137C +1380 138F +13A0 13F4 +1401 1676 +1681 169A +16A0 16F0 +1700 170C +170E 1711 +1720 1731 +1735 1736 +1740 1751 +1760 176C +176E 1770 +1780 17B6 +17BE 17C5 +17C7 17C8 +17D4 17DA +17DC +17E0 17E9 +1810 1819 +1820 1877 +1880 18A8 +18AA +1900 191C +1923 1926 +1929 192B +1930 1931 +1933 1938 +1946 196D +1970 1974 +1980 19A9 +19B0 19C9 +19D0 19D9 +1A00 1A16 +1A19 1A1B +1A1E 1A1F +1B04 1B33 +1B35 +1B3B +1B3D 1B41 +1B43 1B4B +1B50 1B6A +1B74 1B7C +1B82 1BA1 +1BA6 1BA7 +1BAA +1BAE 1BB9 +1C00 1C2B +1C34 1C35 +1C3B 1C49 +1C4D 1C7F +1D00 1DBF +1E00 1F15 +1F18 1F1D +1F20 1F45 +1F48 1F4D +1F50 1F57 +1F59 +1F5B +1F5D +1F5F 1F7D +1F80 1FB4 +1FB6 1FBC +1FBE +1FC2 1FC4 +1FC6 1FCC +1FD0 1FD3 +1FD6 1FDB +1FE0 1FEC +1FF2 1FF4 +1FF6 1FFC +200E +2071 +207F +2090 2094 +2102 +2107 +210A 2113 +2115 +2119 211D +2124 +2126 +2128 +212A 212D +212F 2139 +213C 213F +2145 2149 +214E 214F +2160 2188 +2336 237A +2395 +249C 24E9 +26AC +2800 28FF +2C00 2C2E +2C30 2C5E +2C60 2C6F +2C71 2C7D +2C80 2CE4 +2D00 2D25 +2D30 2D65 +2D6F +2D80 2D96 +2DA0 2DA6 +2DA8 2DAE +2DB0 2DB6 +2DB8 2DBE +2DC0 2DC6 +2DC8 2DCE +2DD0 2DD6 +2DD8 2DDE +3005 3007 +3021 3029 +3031 3035 +3038 303C +3041 3096 +309D 309F +30A1 30FA +30FC 30FF +3105 312D +3131 318E +3190 31B7 +31F0 321C +3220 3243 +3260 327B +327F 32B0 +32C0 32CB +32D0 32FE +3300 3376 +337B 33DD +33E0 33FE +A000 A48C +A500 A60C +A610 A62B +A640 A65F +A662 A66E +A680 A697 +A722 A787 +A789 A78C +A7FB A801 +A803 A805 +A807 A80A +A80C A824 +A827 +A840 A873 +A880 A8C3 +A8CE A8D9 +A900 A925 +A92E A946 +A952 A953 +A95F +AA00 AA28 +AA2F AA30 +AA33 AA34 +AA40 AA42 +AA44 AA4B +AA4D +AA50 AA59 +AA5C AA5F +F900 FA2D +FA30 FA6A +FA70 FAD9 +FB00 FB06 +FB13 FB17 +FF21 FF3A +FF41 FF5A +FF66 FFBE +FFC2 FFC7 +FFCA FFCF +FFD2 FFD7 +FFDA FFDC +10000 1000B +1000D 10026 +10028 1003A +1003C 1003D +1003F 1004D +10050 1005D +10080 100FA +10100 +10102 +10107 10133 +10137 1013F +101D0 101FC +10280 1029C +102A0 102D0 +10300 1031E +10320 10323 +10330 1034A +10380 1039D +1039F 103C3 +103C8 103D5 +10400 1049D +104A0 104A9 +12000 1236E +12400 12462 +12470 12473 +1D000 1D0F5 +1D100 1D126 +1D129 1D166 +1D16A 1D172 +1D183 1D184 +1D18C 1D1A9 +1D1AE 1D1DD +1D360 1D371 +1D400 1D454 +1D456 1D49C +1D49E 1D49F +1D4A2 +1D4A5 1D4A6 +1D4A9 1D4AC +1D4AE 1D4B9 +1D4BB +1D4BD 1D4C3 +1D4C5 1D505 +1D507 1D50A +1D50D 1D514 +1D516 1D51C +1D51E 1D539 +1D53B 1D53E +1D540 1D544 +1D546 +1D54A 1D550 +1D552 1D6A5 +1D6A8 1D7CB +2F800 2FA1D +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/bc/LRE.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/bc/LRE.pl new file mode 100644 index 0000000..5dac857 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/bc/LRE.pl @@ -0,0 +1,14 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# BidiClass category 'Left_To_Right_Embedding' +# +return <<'END'; +202A +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/bc/LRO.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/bc/LRO.pl new file mode 100644 index 0000000..6e83c23 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/bc/LRO.pl @@ -0,0 +1,14 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# BidiClass category 'Left_To_Right_Override' +# +return <<'END'; +202D +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/bc/NSM.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/bc/NSM.pl new file mode 100644 index 0000000..b670669 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/bc/NSM.pl @@ -0,0 +1,169 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# BidiClass category 'Nonspacing_Mark' +# +return <<'END'; +0300 036F +0483 0489 +0591 05BD +05BF +05C1 05C2 +05C4 05C5 +05C7 +0610 061A +064B 065E +0670 +06D6 06DC +06DE 06E4 +06E7 06E8 +06EA 06ED +0711 +0730 074A +07A6 07B0 +07EB 07F3 +0901 0902 +093C +0941 0948 +094D +0951 0954 +0962 0963 +0981 +09BC +09C1 09C4 +09CD +09E2 09E3 +0A01 0A02 +0A3C +0A41 0A42 +0A47 0A48 +0A4B 0A4D +0A51 +0A70 0A71 +0A75 +0A81 0A82 +0ABC +0AC1 0AC5 +0AC7 0AC8 +0ACD +0AE2 0AE3 +0B01 +0B3C +0B3F +0B41 0B44 +0B4D +0B56 +0B62 0B63 +0B82 +0BC0 +0BCD +0C3E 0C40 +0C46 0C48 +0C4A 0C4D +0C55 0C56 +0C62 0C63 +0CBC +0CCC 0CCD +0CE2 0CE3 +0D41 0D44 +0D4D +0D62 0D63 +0DCA +0DD2 0DD4 +0DD6 +0E31 +0E34 0E3A +0E47 0E4E +0EB1 +0EB4 0EB9 +0EBB 0EBC +0EC8 0ECD +0F18 0F19 +0F35 +0F37 +0F39 +0F71 0F7E +0F80 0F84 +0F86 0F87 +0F90 0F97 +0F99 0FBC +0FC6 +102D 1030 +1032 1037 +1039 103A +103D 103E +1058 1059 +105E 1060 +1071 1074 +1082 +1085 1086 +108D +135F +1712 1714 +1732 1734 +1752 1753 +1772 1773 +17B7 17BD +17C6 +17C9 17D3 +17DD +180B 180D +18A9 +1920 1922 +1927 1928 +1932 +1939 193B +1A17 1A18 +1B00 1B03 +1B34 +1B36 1B3A +1B3C +1B42 +1B6B 1B73 +1B80 1B81 +1BA2 1BA5 +1BA8 1BA9 +1C2C 1C33 +1C36 1C37 +1DC0 1DE6 +1DFE 1DFF +20D0 20F0 +2DE0 2DFF +302A 302F +3099 309A +A66F A672 +A67C A67D +A802 +A806 +A80B +A825 A826 +A8C4 +A926 A92D +A947 A951 +AA29 AA2E +AA31 AA32 +AA35 AA36 +AA43 +AA4C +FB1E +FE00 FE0F +FE20 FE26 +101FD +10A01 10A03 +10A05 10A06 +10A0C 10A0F +10A38 10A3A +10A3F +1D167 1D169 +1D17B 1D182 +1D185 1D18B +1D1AA 1D1AD +1D242 1D244 +E0100 E01EF +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/bc/ON.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/bc/ON.pl new file mode 100644 index 0000000..2d7bfc2 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/bc/ON.pl @@ -0,0 +1,166 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# BidiClass category 'Other_Neutral' +# +return <<'END'; +0021 0022 +0026 002A +003B 0040 +005B 0060 +007B 007E +00A1 +00A6 00A9 +00AB 00AC +00AE 00AF +00B4 +00B6 00B8 +00BB 00BF +00D7 +00F7 +02B9 02BA +02C2 02CF +02D2 02DF +02E5 02ED +02EF 02FF +0374 0375 +037E +0384 0385 +0387 +03F6 +058A +0606 0607 +060E 060F +06E9 +07F6 07F9 +0BF3 0BF8 +0BFA +0C78 0C7E +0CF1 0CF2 +0F3A 0F3D +1390 1399 +169B 169C +17F0 17F9 +1800 180A +1940 +1944 1945 +19DE 19FF +1FBD +1FBF 1FC1 +1FCD 1FCF +1FDD 1FDF +1FED 1FEF +1FFD 1FFE +2010 2027 +2035 2043 +2045 205E +207C 207E +208C 208E +2100 2101 +2103 2106 +2108 2109 +2114 +2116 2118 +211E 2123 +2125 +2127 +2129 +213A 213B +2140 2144 +214A 214D +2153 215F +2190 2211 +2214 2335 +237B 2394 +2396 23E7 +2400 2426 +2440 244A +2460 2487 +24EA 269D +26A0 26AB +26AD 26BC +26C0 26C3 +2701 2704 +2706 2709 +270C 2727 +2729 274B +274D +274F 2752 +2756 +2758 275E +2761 2794 +2798 27AF +27B1 27BE +27C0 27CA +27CC +27D0 27FF +2900 2B4C +2B50 2B54 +2CE5 2CEA +2CF9 2CFF +2E00 2E30 +2E80 2E99 +2E9B 2EF3 +2F00 2FD5 +2FF0 2FFB +3001 3004 +3008 3020 +3030 +3036 3037 +303D 303F +309B 309C +30A0 +30FB +31C0 31E3 +321D 321E +3250 325F +327C 327E +32B1 32BF +32CC 32CF +3377 337A +33DE 33DF +33FF +4DC0 4DFF +A490 A4C6 +A60D A60F +A673 +A67E A67F +A700 A721 +A788 +A828 A82B +A874 A877 +FD3E FD3F +FDFD +FE10 FE19 +FE30 FE4F +FE51 +FE54 +FE56 FE5E +FE60 FE61 +FE64 FE66 +FE68 +FE6B +FF01 FF02 +FF06 FF0A +FF1B FF20 +FF3B FF40 +FF5B FF65 +FFE2 FFE4 +FFE8 FFEE +FFF9 FFFD +10101 +10140 1018A +10190 1019B +1091F +1D200 1D241 +1D245 +1D300 1D356 +1F000 1F02B +1F030 1F093 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/bc/PDF.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/bc/PDF.pl new file mode 100644 index 0000000..765eeb1 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/bc/PDF.pl @@ -0,0 +1,14 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# BidiClass category 'Pop_Directional_Format' +# +return <<'END'; +202C +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/bc/R.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/bc/R.pl new file mode 100644 index 0000000..5ef4fb2 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/bc/R.pl @@ -0,0 +1,46 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# BidiClass category 'Right_To_Left' +# +return <<'END'; +05BE +05C0 +05C3 +05C6 +05D0 05EA +05F0 05F4 +07C0 07EA +07F4 07F5 +07FA +200F +FB1D +FB1F FB28 +FB2A FB36 +FB38 FB3C +FB3E +FB40 FB41 +FB43 FB44 +FB46 FB4F +10800 10805 +10808 +1080A 10835 +10837 10838 +1083C +1083F +10900 10919 +10920 10939 +1093F +10A00 +10A10 10A13 +10A15 10A17 +10A19 10A33 +10A40 10A47 +10A50 10A58 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/bc/RLE.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/bc/RLE.pl new file mode 100644 index 0000000..29a9b10 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/bc/RLE.pl @@ -0,0 +1,14 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# BidiClass category 'Right_To_Left_Embedding' +# +return <<'END'; +202B +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/bc/RLO.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/bc/RLO.pl new file mode 100644 index 0000000..7736447 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/bc/RLO.pl @@ -0,0 +1,14 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# BidiClass category 'Right_To_Left_Override' +# +return <<'END'; +202E +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/bc/S.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/bc/S.pl new file mode 100644 index 0000000..b498265 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/bc/S.pl @@ -0,0 +1,16 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# BidiClass category 'Segment_Separator' +# +return <<'END'; +0009 +000B +001F +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/bc/WS.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/bc/WS.pl new file mode 100644 index 0000000..d71429d --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/bc/WS.pl @@ -0,0 +1,21 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# BidiClass category 'White_Space' +# +return <<'END'; +000C +0020 +1680 +180E +2000 200A +2028 +205F +3000 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ccc/A.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ccc/A.pl new file mode 100644 index 0000000..46cb889 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ccc/A.pl @@ -0,0 +1,14 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# CombiningClass category 'Above' +# +return <<'END'; +00E6 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ccc/AL.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ccc/AL.pl new file mode 100644 index 0000000..5384fcd --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ccc/AL.pl @@ -0,0 +1,14 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# CombiningClass category 'Above_Left' +# +return <<'END'; +00E4 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ccc/AR.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ccc/AR.pl new file mode 100644 index 0000000..947f532 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ccc/AR.pl @@ -0,0 +1,14 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# CombiningClass category 'Above_Right' +# +return <<'END'; +00E8 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ccc/ATAR.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ccc/ATAR.pl new file mode 100644 index 0000000..6b377c9 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ccc/ATAR.pl @@ -0,0 +1,14 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# CombiningClass category 'Attached_Above_Right' +# +return <<'END'; +00D8 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ccc/ATB.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ccc/ATB.pl new file mode 100644 index 0000000..205b549 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ccc/ATB.pl @@ -0,0 +1,14 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# CombiningClass category 'Attached_Below' +# +return <<'END'; +00CA +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ccc/ATBL.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ccc/ATBL.pl new file mode 100644 index 0000000..70447c5 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ccc/ATBL.pl @@ -0,0 +1,14 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# CombiningClass category 'Attached_Below_Left' +# +return <<'END'; +00C8 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ccc/B.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ccc/B.pl new file mode 100644 index 0000000..85689e3 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ccc/B.pl @@ -0,0 +1,14 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# CombiningClass category 'Below' +# +return <<'END'; +00DC +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ccc/BL.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ccc/BL.pl new file mode 100644 index 0000000..3d1e5dd --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ccc/BL.pl @@ -0,0 +1,14 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# CombiningClass category 'Below_Left' +# +return <<'END'; +00DA +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ccc/BR.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ccc/BR.pl new file mode 100644 index 0000000..43ecb6a --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ccc/BR.pl @@ -0,0 +1,14 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# CombiningClass category 'Below_Right' +# +return <<'END'; +00DE +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ccc/DA.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ccc/DA.pl new file mode 100644 index 0000000..c251e3f --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ccc/DA.pl @@ -0,0 +1,14 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# CombiningClass category 'Double_Above' +# +return <<'END'; +00EA +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ccc/DB.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ccc/DB.pl new file mode 100644 index 0000000..ff65ab1 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ccc/DB.pl @@ -0,0 +1,14 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# CombiningClass category 'Double_Below' +# +return <<'END'; +00E9 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ccc/IS.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ccc/IS.pl new file mode 100644 index 0000000..2ef59a1 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ccc/IS.pl @@ -0,0 +1,14 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# CombiningClass category 'Iota_Subscript' +# +return <<'END'; +00F0 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ccc/KV.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ccc/KV.pl new file mode 100644 index 0000000..fc45fb8 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ccc/KV.pl @@ -0,0 +1,14 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# CombiningClass category 'Kana_Voicing' +# +return <<'END'; +0008 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ccc/L.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ccc/L.pl new file mode 100644 index 0000000..23eee94 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ccc/L.pl @@ -0,0 +1,14 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# CombiningClass category 'Left' +# +return <<'END'; +00E0 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ccc/NK.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ccc/NK.pl new file mode 100644 index 0000000..685a062 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ccc/NK.pl @@ -0,0 +1,14 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# CombiningClass category 'Nukta' +# +return <<'END'; +0007 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ccc/NR.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ccc/NR.pl new file mode 100644 index 0000000..67e132c --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ccc/NR.pl @@ -0,0 +1,14 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# CombiningClass category 'Not_Reordered' +# +return <<'END'; +0000 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ccc/OV.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ccc/OV.pl new file mode 100644 index 0000000..a540c40 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ccc/OV.pl @@ -0,0 +1,14 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# CombiningClass category 'Overlay' +# +return <<'END'; +0001 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ccc/R.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ccc/R.pl new file mode 100644 index 0000000..84e3d95 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ccc/R.pl @@ -0,0 +1,14 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# CombiningClass category 'Right' +# +return <<'END'; +00E2 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ccc/VR.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ccc/VR.pl new file mode 100644 index 0000000..8e57eb2 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ccc/VR.pl @@ -0,0 +1,14 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# CombiningClass category 'Virama' +# +return <<'END'; +0009 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/dt/Can.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/dt/Can.pl new file mode 100644 index 0000000..8a6aad1 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/dt/Can.pl @@ -0,0 +1,236 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# DecompositionType category 'Canonical' +# +return <<'END'; +00C0 00C5 +00C7 00CF +00D1 00D6 +00D9 00DD +00E0 00E5 +00E7 00EF +00F1 00F6 +00F9 00FD +00FF 010F +0112 0125 +0128 0130 +0134 0137 +0139 013E +0143 0148 +014C 0151 +0154 0165 +0168 017E +01A0 01A1 +01AF 01B0 +01CD 01DC +01DE 01E3 +01E6 01F0 +01F4 01F5 +01F8 021B +021E 021F +0226 0233 +0340 0341 +0343 0344 +0374 +037E +0385 038A +038C +038E 0390 +03AA 03B0 +03CA 03CE +03D3 03D4 +0400 0401 +0403 +0407 +040C 040E +0419 +0439 +0450 0451 +0453 +0457 +045C 045E +0476 0477 +04C1 04C2 +04D0 04D3 +04D6 04D7 +04DA 04DF +04E2 04E7 +04EA 04F5 +04F8 04F9 +0622 0626 +06C0 +06C2 +06D3 +0929 +0931 +0934 +0958 095F +09CB 09CC +09DC 09DD +09DF +0A33 +0A36 +0A59 0A5B +0A5E +0B48 +0B4B 0B4C +0B5C 0B5D +0B94 +0BCA 0BCC +0C48 +0CC0 +0CC7 0CC8 +0CCA 0CCB +0D4A 0D4C +0DDA +0DDC 0DDE +0F43 +0F4D +0F52 +0F57 +0F5C +0F69 +0F73 +0F75 0F76 +0F78 +0F81 +0F93 +0F9D +0FA2 +0FA7 +0FAC +0FB9 +1026 +1B06 +1B08 +1B0A +1B0C +1B0E +1B12 +1B3B +1B3D +1B40 1B41 +1B43 +1E00 1E99 +1E9B +1EA0 1EF9 +1F00 1F15 +1F18 1F1D +1F20 1F45 +1F48 1F4D +1F50 1F57 +1F59 +1F5B +1F5D +1F5F 1F7D +1F80 1FB4 +1FB6 1FBC +1FBE +1FC1 1FC4 +1FC6 1FD3 +1FD6 1FDB +1FDD 1FEF +1FF2 1FF4 +1FF6 1FFD +2000 2001 +2126 +212A 212B +219A 219B +21AE +21CD 21CF +2204 +2209 +220C +2224 +2226 +2241 +2244 +2247 +2249 +2260 +2262 +226D 2271 +2274 2275 +2278 2279 +2280 2281 +2284 2285 +2288 2289 +22AC 22AF +22E0 22E3 +22EA 22ED +2329 232A +2ADC +304C +304E +3050 +3052 +3054 +3056 +3058 +305A +305C +305E +3060 +3062 +3065 +3067 +3069 +3070 3071 +3073 3074 +3076 3077 +3079 307A +307C 307D +3094 +309E +30AC +30AE +30B0 +30B2 +30B4 +30B6 +30B8 +30BA +30BC +30BE +30C0 +30C2 +30C5 +30C7 +30C9 +30D0 30D1 +30D3 30D4 +30D6 30D7 +30D9 30DA +30DC 30DD +30F4 +30F7 30FA +30FE +F900 FA0D +FA10 +FA12 +FA15 FA1E +FA20 +FA22 +FA25 FA26 +FA2A FA2D +FA30 FA6A +FA70 FAD9 +FB1D +FB1F +FB2A FB36 +FB38 FB3C +FB3E +FB40 FB41 +FB43 FB44 +FB46 FB4E +1D15E 1D164 +1D1BB 1D1C0 +2F800 2FA1D +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/dt/Com.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/dt/Com.pl new file mode 100644 index 0000000..13eb6dd --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/dt/Com.pl @@ -0,0 +1,826 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# DecompositionType category 'Compat' +# +return <<'END'; +00A0 +00A8 +00A8 +00AA +00AF +00AF +00B2 00B4 +00B4 00B5 +00B5 +00B8 +00B8 00BA +00BC 00BE +0132 +0132 0133 +0133 +013F +013F 0140 +0140 +0149 +0149 +017F +017F +01C4 +01C4 01C5 +01C5 01C6 +01C6 01C7 +01C7 01C8 +01C8 01C9 +01C9 01CA +01CA 01CB +01CB 01CC +01CC +01F1 +01F1 01F2 +01F2 01F3 +01F3 +02B0 02B8 +02D8 +02D8 02D9 +02D9 02DA +02DA 02DB +02DB 02DC +02DC 02DD +02DD +02E0 02E4 +037A +037A +0384 +0384 +03D0 +03D0 03D1 +03D1 03D2 +03D2 +03D5 +03D5 03D6 +03D6 +03F0 +03F0 03F1 +03F1 03F2 +03F2 +03F4 +03F4 03F5 +03F5 +03F9 +03F9 +0587 +0587 +0675 +0675 0676 +0676 0677 +0677 0678 +0678 +0E33 +0E33 +0EB3 +0EB3 +0EDC +0EDC 0EDD +0EDD +0F0C +0F77 +0F77 +0F79 +0F79 +10FC +1D2C 1D2E +1D30 1D3A +1D3C 1D4D +1D4F 1D6A +1D78 +1D9B 1DBF +1E9A +1E9A +1FBD +1FBD +1FBF +1FBF 1FC0 +1FC0 +1FFE +1FFE +2002 +2002 2003 +2003 2004 +2004 2005 +2005 2006 +2006 2008 +2008 2009 +2009 200A +200A +2011 +2017 +2017 +2024 +2024 2025 +2025 2026 +2026 +202F +2033 +2033 2034 +2034 +2036 +2036 2037 +2037 +203C +203C +203E +203E +2047 +2047 2048 +2048 2049 +2049 +2057 +2057 +205F +205F +2070 2071 +2074 208E +2090 2094 +20A8 +20A8 +2100 +2100 2101 +2101 2103 +2103 +2105 +2105 2106 +2106 2107 +2107 +2109 +2109 2113 +2115 2116 +2116 +2119 211D +2120 2121 +2121 2122 +2124 +2128 +212C 212D +212F 2131 +2133 2135 +2135 2136 +2136 2137 +2137 2138 +2138 2139 +213B +213B 2140 +2145 2149 +2153 2160 +2160 2161 +2161 2162 +2162 2163 +2163 2164 +2164 2165 +2165 2166 +2166 2167 +2167 2168 +2168 2169 +2169 216A +216A 216B +216B 216C +216C 216D +216D 216E +216E 216F +216F 2170 +2170 2171 +2171 2172 +2172 2173 +2173 2174 +2174 2175 +2175 2176 +2176 2177 +2177 2178 +2178 2179 +2179 217A +217A 217B +217B 217C +217C 217D +217D 217E +217E 217F +217F +222C +222C 222D +222D +222F +222F 2230 +2230 +2460 2474 +2474 2475 +2475 2476 +2476 2477 +2477 2478 +2478 2479 +2479 247A +247A 247B +247B 247C +247C 247D +247D 247E +247E 247F +247F 2480 +2480 2481 +2481 2482 +2482 2483 +2483 2484 +2484 2485 +2485 2486 +2486 2487 +2487 2488 +2488 2489 +2489 248A +248A 248B +248B 248C +248C 248D +248D 248E +248E 248F +248F 2490 +2490 2491 +2491 2492 +2492 2493 +2493 2494 +2494 2495 +2495 2496 +2496 2497 +2497 2498 +2498 2499 +2499 249A +249A 249B +249B 249C +249C 249D +249D 249E +249E 249F +249F 24A0 +24A0 24A1 +24A1 24A2 +24A2 24A3 +24A3 24A4 +24A4 24A5 +24A5 24A6 +24A6 24A7 +24A7 24A8 +24A8 24A9 +24A9 24AA +24AA 24AB +24AB 24AC +24AC 24AD +24AD 24AE +24AE 24AF +24AF 24B0 +24B0 24B1 +24B1 24B2 +24B2 24B3 +24B3 24B4 +24B4 24B5 +24B5 24EA +2A0C +2A0C +2A74 +2A74 2A75 +2A75 2A76 +2A76 +2C7C 2C7D +2D6F +2E9F +2E9F +2EF3 +2EF3 +2F00 +2F00 2F01 +2F01 2F02 +2F02 2F03 +2F03 2F04 +2F04 2F05 +2F05 2F06 +2F06 2F07 +2F07 2F08 +2F08 2F09 +2F09 2F0A +2F0A 2F0B +2F0B 2F0C +2F0C 2F0D +2F0D 2F0E +2F0E 2F0F +2F0F 2F10 +2F10 2F11 +2F11 2F12 +2F12 2F13 +2F13 2F14 +2F14 2F15 +2F15 2F16 +2F16 2F17 +2F17 2F18 +2F18 2F19 +2F19 2F1A +2F1A 2F1B +2F1B 2F1C +2F1C 2F1D +2F1D 2F1E +2F1E 2F1F +2F1F 2F20 +2F20 2F21 +2F21 2F22 +2F22 2F23 +2F23 2F24 +2F24 2F25 +2F25 2F26 +2F26 2F27 +2F27 2F28 +2F28 2F29 +2F29 2F2A +2F2A 2F2B +2F2B 2F2C +2F2C 2F2D +2F2D 2F2E +2F2E 2F2F +2F2F 2F30 +2F30 2F31 +2F31 2F32 +2F32 2F33 +2F33 2F34 +2F34 2F35 +2F35 2F36 +2F36 2F37 +2F37 2F38 +2F38 2F39 +2F39 2F3A +2F3A 2F3B +2F3B 2F3C +2F3C 2F3D +2F3D 2F3E +2F3E 2F3F +2F3F 2F40 +2F40 2F41 +2F41 2F42 +2F42 2F43 +2F43 2F44 +2F44 2F45 +2F45 2F46 +2F46 2F47 +2F47 2F48 +2F48 2F49 +2F49 2F4A +2F4A 2F4B +2F4B 2F4C +2F4C 2F4D +2F4D 2F4E +2F4E 2F4F +2F4F 2F50 +2F50 2F51 +2F51 2F52 +2F52 2F53 +2F53 2F54 +2F54 2F55 +2F55 2F56 +2F56 2F57 +2F57 2F58 +2F58 2F59 +2F59 2F5A +2F5A 2F5B +2F5B 2F5C +2F5C 2F5D +2F5D 2F5E +2F5E 2F5F +2F5F 2F60 +2F60 2F61 +2F61 2F62 +2F62 2F63 +2F63 2F64 +2F64 2F65 +2F65 2F66 +2F66 2F67 +2F67 2F68 +2F68 2F69 +2F69 2F6A +2F6A 2F6B +2F6B 2F6C +2F6C 2F6D +2F6D 2F6E +2F6E 2F6F +2F6F 2F70 +2F70 2F71 +2F71 2F72 +2F72 2F73 +2F73 2F74 +2F74 2F75 +2F75 2F76 +2F76 2F77 +2F77 2F78 +2F78 2F79 +2F79 2F7A +2F7A 2F7B +2F7B 2F7C +2F7C 2F7D +2F7D 2F7E +2F7E 2F7F +2F7F 2F80 +2F80 2F81 +2F81 2F82 +2F82 2F83 +2F83 2F84 +2F84 2F85 +2F85 2F86 +2F86 2F87 +2F87 2F88 +2F88 2F89 +2F89 2F8A +2F8A 2F8B +2F8B 2F8C +2F8C 2F8D +2F8D 2F8E +2F8E 2F8F +2F8F 2F90 +2F90 2F91 +2F91 2F92 +2F92 2F93 +2F93 2F94 +2F94 2F95 +2F95 2F96 +2F96 2F97 +2F97 2F98 +2F98 2F99 +2F99 2F9A +2F9A 2F9B +2F9B 2F9C +2F9C 2F9D +2F9D 2F9E +2F9E 2F9F +2F9F 2FA0 +2FA0 2FA1 +2FA1 2FA2 +2FA2 2FA3 +2FA3 2FA4 +2FA4 2FA5 +2FA5 2FA6 +2FA6 2FA7 +2FA7 2FA8 +2FA8 2FA9 +2FA9 2FAA +2FAA 2FAB +2FAB 2FAC +2FAC 2FAD +2FAD 2FAE +2FAE 2FAF +2FAF 2FB0 +2FB0 2FB1 +2FB1 2FB2 +2FB2 2FB3 +2FB3 2FB4 +2FB4 2FB5 +2FB5 2FB6 +2FB6 2FB7 +2FB7 2FB8 +2FB8 2FB9 +2FB9 2FBA +2FBA 2FBB +2FBB 2FBC +2FBC 2FBD +2FBD 2FBE +2FBE 2FBF +2FBF 2FC0 +2FC0 2FC1 +2FC1 2FC2 +2FC2 2FC3 +2FC3 2FC4 +2FC4 2FC5 +2FC5 2FC6 +2FC6 2FC7 +2FC7 2FC8 +2FC8 2FC9 +2FC9 2FCA +2FCA 2FCB +2FCB 2FCC +2FCC 2FCD +2FCD 2FCE +2FCE 2FCF +2FCF 2FD0 +2FD0 2FD1 +2FD1 2FD2 +2FD2 2FD3 +2FD3 2FD4 +2FD4 2FD5 +2FD5 +3000 +3036 +3036 +3038 +3038 3039 +3039 303A +303A +309B +309B 309C +309C +309F +30FF +3131 +3131 3132 +3132 3133 +3133 3134 +3134 3135 +3135 3136 +3136 3137 +3137 3138 +3138 3139 +3139 313A +313A 313B +313B 313C +313C 313D +313D 313E +313E 313F +313F 3140 +3140 3141 +3141 3142 +3142 3143 +3143 3144 +3144 3145 +3145 3146 +3146 3147 +3147 3148 +3148 3149 +3149 314A +314A 314B +314B 314C +314C 314D +314D 314E +314E 314F +314F 3150 +3150 3151 +3151 3152 +3152 3153 +3153 3154 +3154 3155 +3155 3156 +3156 3157 +3157 3158 +3158 3159 +3159 315A +315A 315B +315B 315C +315C 315D +315D 315E +315E 315F +315F 3160 +3160 3161 +3161 3162 +3162 3163 +3163 3164 +3164 3165 +3165 3166 +3166 3167 +3167 3168 +3168 3169 +3169 316A +316A 316B +316B 316C +316C 316D +316D 316E +316E 316F +316F 3170 +3170 3171 +3171 3172 +3172 3173 +3173 3174 +3174 3175 +3175 3176 +3176 3177 +3177 3178 +3178 3179 +3179 317A +317A 317B +317B 317C +317C 317D +317D 317E +317E 317F +317F 3180 +3180 3181 +3181 3182 +3182 3183 +3183 3184 +3184 3185 +3185 3186 +3186 3187 +3187 3188 +3188 3189 +3189 318A +318A 318B +318B 318C +318C 318D +318D 318E +318E +3192 319F +3200 +3200 3201 +3201 3202 +3202 3203 +3203 3204 +3204 3205 +3205 3206 +3206 3207 +3207 3208 +3208 3209 +3209 320A +320A 320B +320B 320C +320C 320D +320D 320E +320E 320F +320F 3210 +3210 3211 +3211 3212 +3212 3213 +3213 3214 +3214 3215 +3215 3216 +3216 3217 +3217 3218 +3218 3219 +3219 321A +321A 321B +321B 321C +321C 321D +321D 321E +321E +3220 +3220 3221 +3221 3222 +3222 3223 +3223 3224 +3224 3225 +3225 3226 +3226 3227 +3227 3228 +3228 3229 +3229 322A +322A 322B +322B 322C +322C 322D +322D 322E +322E 322F +322F 3230 +3230 3231 +3231 3232 +3232 3233 +3233 3234 +3234 3235 +3235 3236 +3236 3237 +3237 3238 +3238 3239 +3239 323A +323A 323B +323B 323C +323C 323D +323D 323E +323E 323F +323F 3240 +3240 3241 +3241 3242 +3242 3243 +3243 +3250 327E +3280 32C0 +32C0 32C1 +32C1 32C2 +32C2 32C3 +32C3 32C4 +32C4 32C5 +32C5 32C6 +32C6 32C7 +32C7 32C8 +32C8 32C9 +32C9 32CA +32CA 32CB +32CB 32FE +3300 3358 +3358 3359 +3359 335A +335A 335B +335B 335C +335C 335D +335D 335E +335E 335F +335F 3360 +3360 3361 +3361 3362 +3362 3363 +3363 3364 +3364 3365 +3365 3366 +3366 3367 +3367 3368 +3368 3369 +3369 336A +336A 336B +336B 336C +336C 336D +336D 336E +336E 336F +336F 3370 +3370 33E0 +33E0 33E1 +33E1 33E2 +33E2 33E3 +33E3 33E4 +33E4 33E5 +33E5 33E6 +33E6 33E7 +33E7 33E8 +33E8 33E9 +33E9 33EA +33EA 33EB +33EB 33EC +33EC 33ED +33ED 33EE +33EE 33EF +33EF 33F0 +33F0 33F1 +33F1 33F2 +33F2 33F3 +33F3 33F4 +33F4 33F5 +33F5 33F6 +33F6 33F7 +33F7 33F8 +33F8 33F9 +33F9 33FA +33FA 33FB +33FB 33FC +33FC 33FD +33FD 33FE +33FE 33FF +A770 +FB00 +FB00 FB01 +FB01 FB02 +FB02 FB03 +FB03 FB04 +FB04 FB05 +FB05 FB06 +FB06 +FB13 +FB13 FB14 +FB14 FB15 +FB15 FB16 +FB16 FB17 +FB17 +FB20 FB29 +FB4F +FB4F FBB1 +FBD3 FD3D +FD50 FD8F +FD92 FDC7 +FDF0 FDFC +FE10 FE19 +FE30 FE44 +FE47 FE49 +FE49 FE4A +FE4A FE4B +FE4B FE4C +FE4C FE4D +FE4D FE4E +FE4E FE4F +FE4F FE52 +FE54 FE66 +FE68 FE6B +FE70 FE72 +FE74 +FE76 FEFC +FF01 FFBE +FFC2 FFC7 +FFCA FFCF +FFD2 FFD7 +FFDA FFDC +FFE0 FFE6 +FFE8 FFEE +1D400 1D454 +1D456 1D49C +1D49E 1D49F +1D4A2 +1D4A5 1D4A6 +1D4A9 1D4AC +1D4AE 1D4B9 +1D4BB +1D4BD 1D4C3 +1D4C5 1D505 +1D507 1D50A +1D50D 1D514 +1D516 1D51C +1D51E 1D539 +1D53B 1D53E +1D540 1D544 +1D546 +1D54A 1D550 +1D552 1D6A5 +1D6A8 1D7CB +1D7CE 1D7FF +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/dt/Enc.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/dt/Enc.pl new file mode 100644 index 0000000..0fdeb70 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/dt/Enc.pl @@ -0,0 +1,18 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# DecompositionType category 'Circle' +# +return <<'END'; +2460 2473 +24B6 24EA +3251 327E +3280 32BF +32D0 32FE +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/dt/Fin.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/dt/Fin.pl new file mode 100644 index 0000000..0605fe2 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/dt/Fin.pl @@ -0,0 +1,126 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# DecompositionType category 'Final' +# +return <<'END'; +FB51 +FB53 +FB57 +FB5B +FB5F +FB63 +FB67 +FB6B +FB6F +FB73 +FB77 +FB7B +FB7F +FB83 +FB85 +FB87 +FB89 +FB8B +FB8D +FB8F +FB93 +FB97 +FB9B +FB9F +FBA1 +FBA5 +FBA7 +FBAB +FBAF +FBB1 +FBD4 +FBD8 +FBDA +FBDC +FBDF +FBE1 +FBE3 +FBE5 +FBEB +FBED +FBEF +FBF1 +FBF3 +FBF5 +FBF7 +FBFA +FBFD +FC64 FC96 +FD11 FD2C +FD3C +FD51 +FD58 +FD5A FD5B +FD5E FD5F +FD62 +FD64 +FD66 FD67 +FD69 FD6A +FD6C +FD6E FD6F +FD71 +FD74 FD76 +FD78 FD7C +FD7E FD82 +FD84 FD85 +FD87 +FD8B +FD96 FD97 +FD99 FD9C +FD9E FDB3 +FDB6 FDB7 +FDB9 +FDBB FDC2 +FDC6 FDC7 +FE82 +FE84 +FE86 +FE88 +FE8A +FE8E +FE90 +FE94 +FE96 +FE9A +FE9E +FEA2 +FEA6 +FEAA +FEAC +FEAE +FEB0 +FEB2 +FEB6 +FEBA +FEBE +FEC2 +FEC6 +FECA +FECE +FED2 +FED6 +FEDA +FEDE +FEE2 +FEE6 +FEEA +FEEE +FEF0 +FEF2 +FEF6 +FEF8 +FEFA +FEFC +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/dt/Font.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/dt/Font.pl new file mode 100644 index 0000000..e9de630 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/dt/Font.pl @@ -0,0 +1,47 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# DecompositionType category 'font' +# +return <<'END'; +2102 +210A 2113 +2115 +2119 211D +2124 +2128 +212C 212D +212F 2131 +2133 2134 +2139 +213C 2140 +2145 2149 +FB20 FB29 +1D400 1D454 +1D456 1D49C +1D49E 1D49F +1D4A2 +1D4A5 1D4A6 +1D4A9 1D4AC +1D4AE 1D4B9 +1D4BB +1D4BD 1D4C3 +1D4C5 1D505 +1D507 1D50A +1D50D 1D514 +1D516 1D51C +1D51E 1D539 +1D53B 1D53E +1D540 1D544 +1D546 +1D54A 1D550 +1D552 1D6A5 +1D6A8 1D7CB +1D7CE 1D7FF +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/dt/Fra.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/dt/Fra.pl new file mode 100644 index 0000000..2ed9152 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/dt/Fra.pl @@ -0,0 +1,15 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# DecompositionType category 'Fraction' +# +return <<'END'; +00BC 00BE +2153 215F +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/dt/Init.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/dt/Init.pl new file mode 100644 index 0000000..25cc48f --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/dt/Init.pl @@ -0,0 +1,88 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# DecompositionType category 'Initial' +# +return <<'END'; +FB54 +FB58 +FB5C +FB60 +FB64 +FB68 +FB6C +FB70 +FB74 +FB78 +FB7C +FB80 +FB90 +FB94 +FB98 +FB9C +FBA2 +FBA8 +FBAC +FBD5 +FBE6 +FBE8 +FBF8 +FBFB +FBFE +FC97 FCDE +FD2D FD33 +FD50 +FD52 FD57 +FD59 +FD5C FD5D +FD60 FD61 +FD63 +FD65 +FD68 +FD6B +FD6D +FD70 +FD72 FD73 +FD77 +FD7D +FD83 +FD86 +FD88 FD8A +FD8C FD8F +FD92 FD95 +FD98 +FD9D +FDB4 FDB5 +FDB8 +FDBA +FDC3 FDC5 +FE8B +FE91 +FE97 +FE9B +FE9F +FEA3 +FEA7 +FEB3 +FEB7 +FEBB +FEBF +FEC3 +FEC7 +FECB +FECF +FED3 +FED7 +FEDB +FEDF +FEE3 +FEE7 +FEEB +FEF3 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/dt/Iso.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/dt/Iso.pl new file mode 100644 index 0000000..eb6c662 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/dt/Iso.pl @@ -0,0 +1,111 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# DecompositionType category 'Isolated' +# +return <<'END'; +FB50 +FB52 +FB56 +FB5A +FB5E +FB62 +FB66 +FB6A +FB6E +FB72 +FB76 +FB7A +FB7E +FB82 +FB84 +FB86 +FB88 +FB8A +FB8C +FB8E +FB92 +FB96 +FB9A +FB9E +FBA0 +FBA4 +FBA6 +FBAA +FBAE +FBB0 +FBD3 +FBD7 +FBD9 +FBDB +FBDD FBDE +FBE0 +FBE2 +FBE4 +FBEA +FBEC +FBEE +FBF0 +FBF2 +FBF4 +FBF6 +FBF9 +FBFC +FC00 FC63 +FCF5 FD10 +FD3D +FDF0 FDFC +FE70 +FE72 +FE74 +FE76 +FE78 +FE7A +FE7C +FE7E +FE80 FE81 +FE83 +FE85 +FE87 +FE89 +FE8D +FE8F +FE93 +FE95 +FE99 +FE9D +FEA1 +FEA5 +FEA9 +FEAB +FEAD +FEAF +FEB1 +FEB5 +FEB9 +FEBD +FEC1 +FEC5 +FEC9 +FECD +FED1 +FED5 +FED9 +FEDD +FEE1 +FEE5 +FEE9 +FEED +FEEF +FEF1 +FEF5 +FEF7 +FEF9 +FEFB +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/dt/Med.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/dt/Med.pl new file mode 100644 index 0000000..d79d5b4 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/dt/Med.pl @@ -0,0 +1,67 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# DecompositionType category 'Medial' +# +return <<'END'; +FB55 +FB59 +FB5D +FB61 +FB65 +FB69 +FB6D +FB71 +FB75 +FB79 +FB7D +FB81 +FB91 +FB95 +FB99 +FB9D +FBA3 +FBA9 +FBAD +FBD6 +FBE7 +FBE9 +FBFF +FCDF FCF4 +FD34 FD3B +FE71 +FE77 +FE79 +FE7B +FE7D +FE7F +FE8C +FE92 +FE98 +FE9C +FEA0 +FEA4 +FEA8 +FEB4 +FEB8 +FEBC +FEC0 +FEC4 +FEC8 +FECC +FED0 +FED4 +FED8 +FEDC +FEE0 +FEE4 +FEE8 +FEEC +FEF4 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/dt/Nar.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/dt/Nar.pl new file mode 100644 index 0000000..7b4b5d3 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/dt/Nar.pl @@ -0,0 +1,19 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# DecompositionType category 'Narrow' +# +return <<'END'; +FF61 FFBE +FFC2 FFC7 +FFCA FFCF +FFD2 FFD7 +FFDA FFDC +FFE8 FFEE +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/dt/Nb.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/dt/Nb.pl new file mode 100644 index 0000000..34b8761 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/dt/Nb.pl @@ -0,0 +1,18 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# DecompositionType category 'Nobreak' +# +return <<'END'; +00A0 +0F0C +2007 +2011 +202F +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/dt/Sml.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/dt/Sml.pl new file mode 100644 index 0000000..7607034 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/dt/Sml.pl @@ -0,0 +1,16 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# DecompositionType category 'Small' +# +return <<'END'; +FE50 FE52 +FE54 FE66 +FE68 FE6B +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/dt/Sqr.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/dt/Sqr.pl new file mode 100644 index 0000000..61fea9b --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/dt/Sqr.pl @@ -0,0 +1,18 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# DecompositionType category 'Square' +# +return <<'END'; +3250 +32CC 32CF +3300 3357 +3371 33DF +33FF +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/dt/Sub.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/dt/Sub.pl new file mode 100644 index 0000000..7957500 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/dt/Sub.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# DecompositionType category 'sub' +# +return <<'END'; +1D62 1D6A +2080 208E +2090 2094 +2C7C +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/dt/Sup.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/dt/Sup.pl new file mode 100644 index 0000000..5739ab1 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/dt/Sup.pl @@ -0,0 +1,33 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# DecompositionType category 'Super' +# +return <<'END'; +00AA +00B2 00B3 +00B9 00BA +02B0 02B8 +02E0 02E4 +10FC +1D2C 1D2E +1D30 1D3A +1D3C 1D4D +1D4F 1D61 +1D78 +1D9B 1DBF +2070 2071 +2074 207F +2120 +2122 +2C7D +2D6F +3192 319F +A770 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/dt/Vert.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/dt/Vert.pl new file mode 100644 index 0000000..13cb53b --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/dt/Vert.pl @@ -0,0 +1,18 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# DecompositionType category 'Vertical' +# +return <<'END'; +309F +30FF +FE10 FE19 +FE30 FE44 +FE47 FE48 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/dt/Wide.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/dt/Wide.pl new file mode 100644 index 0000000..7a1312d --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/dt/Wide.pl @@ -0,0 +1,16 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# DecompositionType category 'wide' +# +return <<'END'; +3000 +FF01 FF60 +FFE0 FFE6 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ea/A.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ea/A.pl new file mode 100644 index 0000000..0f676ee --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ea/A.pl @@ -0,0 +1,172 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# EastAsianWidth category 'Ambiguous' +# +return <<'END'; +00A1 +00A4 +00A7 00A8 +00AA +00AD 00AE +00B0 00B4 +00B6 00BA +00BC 00BF +00C6 +00D0 +00D7 00D8 +00DE 00E1 +00E6 +00E8 00EA +00EC 00ED +00F0 +00F2 00F3 +00F7 00FA +00FC +00FE +0101 +0111 +0113 +011B +0126 0127 +012B +0131 0133 +0138 +013F 0142 +0144 +0148 014B +014D +0152 0153 +0166 0167 +016B +01CE +01D0 +01D2 +01D4 +01D6 +01D8 +01DA +01DC +0251 +0261 +02C4 +02C7 +02C9 02CB +02CD +02D0 +02D8 02DB +02DD +02DF +0300 036F +0391 03A1 +03A3 03A9 +03B1 03C1 +03C3 03C9 +0401 +0410 044F +0451 +2010 +2013 2016 +2018 2019 +201C 201D +2020 2022 +2024 2027 +2030 +2032 2033 +2035 +203B +203E +2074 +207F +2081 2084 +20AC +2103 +2105 +2109 +2113 +2116 +2121 2122 +2126 +212B +2153 2154 +215B 215E +2160 216B +2170 2179 +2190 2199 +21B8 21B9 +21D2 +21D4 +21E7 +2200 +2202 2203 +2207 2208 +220B +220F +2211 +2215 +221A +221D 2220 +2223 +2225 +2227 222C +222E +2234 2237 +223C 223D +2248 +224C +2252 +2260 2261 +2264 2267 +226A 226B +226E 226F +2282 2283 +2286 2287 +2295 +2299 +22A5 +22BF +2312 +2460 24E9 +24EB 254B +2550 2573 +2580 258F +2592 2595 +25A0 25A1 +25A3 25A9 +25B2 25B3 +25B6 25B7 +25BC 25BD +25C0 25C1 +25C6 25C8 +25CB +25CE 25D1 +25E2 25E5 +25EF +2605 2606 +2609 +260E 260F +2614 2615 +261C +261E +2640 +2642 +2660 2661 +2663 2665 +2667 266A +266C 266D +266F +273D +2776 277F +E000 F8FF +FE00 FE0F +FFFD +E0100 E01EF +F0000 FFFFD +100000 10FFFD +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ea/F.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ea/F.pl new file mode 100644 index 0000000..aa68914 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ea/F.pl @@ -0,0 +1,16 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# EastAsianWidth category 'Fullwidth' +# +return <<'END'; +3000 +FF01 FF60 +FFE0 FFE6 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ea/H.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ea/H.pl new file mode 100644 index 0000000..c27600a --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ea/H.pl @@ -0,0 +1,20 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# EastAsianWidth category 'Halfwidth' +# +return <<'END'; +20A9 +FF61 FFBE +FFC2 FFC7 +FFCA FFCF +FFD2 FFD7 +FFDA FFDC +FFE8 FFEE +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ea/N.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ea/N.pl new file mode 100644 index 0000000..f0b2d81 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ea/N.pl @@ -0,0 +1,571 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# EastAsianWidth category 'Neutral' +# +return <<'END'; +0000 001F +007F 00A0 +00A9 +00AB +00B5 +00BB +00C0 00C5 +00C7 00CF +00D1 00D6 +00D9 00DD +00E2 00E5 +00E7 +00EB +00EE 00EF +00F1 +00F4 00F6 +00FB +00FD +00FF 0100 +0102 0110 +0112 +0114 011A +011C 0125 +0128 012A +012C 0130 +0134 0137 +0139 013E +0143 +0145 0147 +014C +014E 0151 +0154 0165 +0168 016A +016C 01CD +01CF +01D1 +01D3 +01D5 +01D7 +01D9 +01DB +01DD 0250 +0252 0260 +0262 02C3 +02C5 02C6 +02C8 +02CC +02CE 02CF +02D1 02D7 +02DC +02DE +02E0 02FF +0370 0377 +037A 037E +0384 038A +038C +038E 0390 +03AA 03B0 +03C2 +03CA 0400 +0402 040F +0450 +0452 0523 +0531 0556 +0559 055F +0561 0587 +0589 058A +0591 05C7 +05D0 05EA +05F0 05F4 +0600 0603 +0606 061B +061E 061F +0621 065E +0660 070D +070F 074A +074D 07B1 +07C0 07FA +0901 0939 +093C 094D +0950 0954 +0958 0972 +097B 097F +0981 0983 +0985 098C +098F 0990 +0993 09A8 +09AA 09B0 +09B2 +09B6 09B9 +09BC 09C4 +09C7 09C8 +09CB 09CE +09D7 +09DC 09DD +09DF 09E3 +09E6 09FA +0A01 0A03 +0A05 0A0A +0A0F 0A10 +0A13 0A28 +0A2A 0A30 +0A32 0A33 +0A35 0A36 +0A38 0A39 +0A3C +0A3E 0A42 +0A47 0A48 +0A4B 0A4D +0A51 +0A59 0A5C +0A5E +0A66 0A75 +0A81 0A83 +0A85 0A8D +0A8F 0A91 +0A93 0AA8 +0AAA 0AB0 +0AB2 0AB3 +0AB5 0AB9 +0ABC 0AC5 +0AC7 0AC9 +0ACB 0ACD +0AD0 +0AE0 0AE3 +0AE6 0AEF +0AF1 +0B01 0B03 +0B05 0B0C +0B0F 0B10 +0B13 0B28 +0B2A 0B30 +0B32 0B33 +0B35 0B39 +0B3C 0B44 +0B47 0B48 +0B4B 0B4D +0B56 0B57 +0B5C 0B5D +0B5F 0B63 +0B66 0B71 +0B82 0B83 +0B85 0B8A +0B8E 0B90 +0B92 0B95 +0B99 0B9A +0B9C +0B9E 0B9F +0BA3 0BA4 +0BA8 0BAA +0BAE 0BB9 +0BBE 0BC2 +0BC6 0BC8 +0BCA 0BCD +0BD0 +0BD7 +0BE6 0BFA +0C01 0C03 +0C05 0C0C +0C0E 0C10 +0C12 0C28 +0C2A 0C33 +0C35 0C39 +0C3D 0C44 +0C46 0C48 +0C4A 0C4D +0C55 0C56 +0C58 0C59 +0C60 0C63 +0C66 0C6F +0C78 0C7F +0C82 0C83 +0C85 0C8C +0C8E 0C90 +0C92 0CA8 +0CAA 0CB3 +0CB5 0CB9 +0CBC 0CC4 +0CC6 0CC8 +0CCA 0CCD +0CD5 0CD6 +0CDE +0CE0 0CE3 +0CE6 0CEF +0CF1 0CF2 +0D02 0D03 +0D05 0D0C +0D0E 0D10 +0D12 0D28 +0D2A 0D39 +0D3D 0D44 +0D46 0D48 +0D4A 0D4D +0D57 +0D60 0D63 +0D66 0D75 +0D79 0D7F +0D82 0D83 +0D85 0D96 +0D9A 0DB1 +0DB3 0DBB +0DBD +0DC0 0DC6 +0DCA +0DCF 0DD4 +0DD6 +0DD8 0DDF +0DF2 0DF4 +0E01 0E3A +0E3F 0E5B +0E81 0E82 +0E84 +0E87 0E88 +0E8A +0E8D +0E94 0E97 +0E99 0E9F +0EA1 0EA3 +0EA5 +0EA7 +0EAA 0EAB +0EAD 0EB9 +0EBB 0EBD +0EC0 0EC4 +0EC6 +0EC8 0ECD +0ED0 0ED9 +0EDC 0EDD +0F00 0F47 +0F49 0F6C +0F71 0F8B +0F90 0F97 +0F99 0FBC +0FBE 0FCC +0FCE 0FD4 +1000 1099 +109E 10C5 +10D0 10FC +1160 11A2 +11A8 11F9 +1200 1248 +124A 124D +1250 1256 +1258 +125A 125D +1260 1288 +128A 128D +1290 12B0 +12B2 12B5 +12B8 12BE +12C0 +12C2 12C5 +12C8 12D6 +12D8 1310 +1312 1315 +1318 135A +135F 137C +1380 1399 +13A0 13F4 +1401 1676 +1680 169C +16A0 16F0 +1700 170C +170E 1714 +1720 1736 +1740 1753 +1760 176C +176E 1770 +1772 1773 +1780 17DD +17E0 17E9 +17F0 17F9 +1800 180E +1810 1819 +1820 1877 +1880 18AA +1900 191C +1920 192B +1930 193B +1940 +1944 196D +1970 1974 +1980 19A9 +19B0 19C9 +19D0 19D9 +19DE 1A1B +1A1E 1A1F +1B00 1B4B +1B50 1B7C +1B80 1BAA +1BAE 1BB9 +1C00 1C37 +1C3B 1C49 +1C4D 1C7F +1D00 1DE6 +1DFE 1F15 +1F18 1F1D +1F20 1F45 +1F48 1F4D +1F50 1F57 +1F59 +1F5B +1F5D +1F5F 1F7D +1F80 1FB4 +1FB6 1FC4 +1FC6 1FD3 +1FD6 1FDB +1FDD 1FEF +1FF2 1FF4 +1FF6 1FFE +2000 200F +2011 2012 +2017 +201A 201B +201E 201F +2023 +2028 202F +2031 +2034 +2036 203A +203C 203D +203F 2064 +206A 2071 +2075 207E +2080 +2085 208E +2090 2094 +20A0 20A8 +20AA 20AB +20AD 20B5 +20D0 20F0 +2100 2102 +2104 +2106 2108 +210A 2112 +2114 2115 +2117 2120 +2123 2125 +2127 212A +212C 214F +2155 215A +215F +216C 216F +217A 2188 +219A 21B7 +21BA 21D1 +21D3 +21D5 21E6 +21E8 21FF +2201 +2204 2206 +2209 220A +220C 220E +2210 +2212 2214 +2216 2219 +221B 221C +2221 2222 +2224 +2226 +222D +222F 2233 +2238 223B +223E 2247 +2249 224B +224D 2251 +2253 225F +2262 2263 +2268 2269 +226C 226D +2270 2281 +2284 2285 +2288 2294 +2296 2298 +229A 22A4 +22A6 22BE +22C0 2311 +2313 2328 +232B 23E7 +2400 2426 +2440 244A +24EA +254C 254F +2574 257F +2590 2591 +2596 259F +25A2 +25AA 25B1 +25B4 25B5 +25B8 25BB +25BE 25BF +25C2 25C5 +25C9 25CA +25CC 25CD +25D2 25E1 +25E6 25EE +25F0 2604 +2607 2608 +260A 260D +2610 2613 +2616 261B +261D +261F 263F +2641 +2643 265F +2662 +2666 +266B +266E +2670 269D +26A0 26BC +26C0 26C3 +2701 2704 +2706 2709 +270C 2727 +2729 273C +273E 274B +274D +274F 2752 +2756 +2758 275E +2761 2775 +2780 2794 +2798 27AF +27B1 27BE +27C0 27CA +27CC +27D0 27E5 +27EE 2984 +2987 2B4C +2B50 2B54 +2C00 2C2E +2C30 2C5E +2C60 2C6F +2C71 2C7D +2C80 2CEA +2CF9 2D25 +2D30 2D65 +2D6F +2D80 2D96 +2DA0 2DA6 +2DA8 2DAE +2DB0 2DB6 +2DB8 2DBE +2DC0 2DC6 +2DC8 2DCE +2DD0 2DD6 +2DD8 2DDE +2DE0 2E30 +303F +4DC0 4DFF +A500 A62B +A640 A65F +A662 A673 +A67C A697 +A700 A78C +A7FB A82B +A840 A877 +A880 A8C4 +A8CE A8D9 +A900 A953 +A95F +AA00 AA36 +AA40 AA4D +AA50 AA59 +AA5C AA5F +D800 DFFF +FB00 FB06 +FB13 FB17 +FB1D FB36 +FB38 FB3C +FB3E +FB40 FB41 +FB43 FB44 +FB46 FBB1 +FBD3 FD3F +FD50 FD8F +FD92 FDC7 +FDF0 FDFD +FE20 FE26 +FE70 FE74 +FE76 FEFC +FEFF +FFF9 FFFC +10000 1000B +1000D 10026 +10028 1003A +1003C 1003D +1003F 1004D +10050 1005D +10080 100FA +10100 10102 +10107 10133 +10137 1018A +10190 1019B +101D0 101FD +10280 1029C +102A0 102D0 +10300 1031E +10320 10323 +10330 1034A +10380 1039D +1039F 103C3 +103C8 103D5 +10400 1049D +104A0 104A9 +10800 10805 +10808 +1080A 10835 +10837 10838 +1083C +1083F +10900 10919 +1091F 10939 +1093F +10A00 10A03 +10A05 10A06 +10A0C 10A13 +10A15 10A17 +10A19 10A33 +10A38 10A3A +10A3F 10A47 +10A50 10A58 +12000 1236E +12400 12462 +12470 12473 +1D000 1D0F5 +1D100 1D126 +1D129 1D1DD +1D200 1D245 +1D300 1D356 +1D360 1D371 +1D400 1D454 +1D456 1D49C +1D49E 1D49F +1D4A2 +1D4A5 1D4A6 +1D4A9 1D4AC +1D4AE 1D4B9 +1D4BB +1D4BD 1D4C3 +1D4C5 1D505 +1D507 1D50A +1D50D 1D514 +1D516 1D51C +1D51E 1D539 +1D53B 1D53E +1D540 1D544 +1D546 +1D54A 1D550 +1D552 1D6A5 +1D6A8 1D7CB +1D7CE 1D7FF +1F000 1F02B +1F030 1F093 +E0001 +E0020 E007F +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ea/Na.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ea/Na.pl new file mode 100644 index 0000000..4f72829 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ea/Na.pl @@ -0,0 +1,20 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# EastAsianWidth category 'Narrow' +# +return <<'END'; +0020 007E +00A2 00A3 +00A5 00A6 +00AC +00AF +27E6 27ED +2985 2986 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ea/W.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ea/W.pl new file mode 100644 index 0000000..cd8e107 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/ea/W.pl @@ -0,0 +1,44 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# EastAsianWidth category 'Wide' +# +return <<'END'; +1100 1159 +115F +2329 232A +2E80 2E99 +2E9B 2EF3 +2F00 2FD5 +2FF0 2FFB +3001 303E +3041 3096 +3099 30FF +3105 312D +3131 318E +3190 31B7 +31C0 31E3 +31F0 321E +3220 3243 +3250 32FE +3300 4DB5 +4E00 9FC3 +A000 A48C +A490 A4C6 +AC00 D7A3 +F900 FA2D +FA30 FA6A +FA70 FAD9 +FE10 FE19 +FE30 FE52 +FE54 FE66 +FE68 FE6B +20000 2FFFD +30000 3FFFD +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/AHex.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/AHex.pl new file mode 100644 index 0000000..c72ea54 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/AHex.pl @@ -0,0 +1,16 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Binary property 'ASCII_Hex_Digit' +# +return <<'END'; +0030 0039 ASCII_Hex_Digit +0041 0046 ASCII_Hex_Digit +0061 0066 ASCII_Hex_Digit +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/ASCII.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/ASCII.pl new file mode 100644 index 0000000..a65f22a --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/ASCII.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{ASCII} +# +# Meaning: [[:ASCII:]] +# +return <<'END'; +0000 007F +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Alnum.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Alnum.pl new file mode 100644 index 0000000..9facb73 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Alnum.pl @@ -0,0 +1,483 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Alnum} +# +# Meaning: [[:Alnum:]] +# +return <<'END'; +0030 0039 +0041 005A +0061 007A +00AA +00B5 +00BA +00C0 00D6 +00D8 00F6 +00F8 02C1 +02C6 02D1 +02E0 02E4 +02EC +02EE +0300 0374 +0376 0377 +037A 037D +0386 +0388 038A +038C +038E 03A1 +03A3 03F5 +03F7 0481 +0483 0523 +0531 0556 +0559 +0561 0587 +0591 05BD +05BF +05C1 05C2 +05C4 05C5 +05C7 +05D0 05EA +05F0 05F2 +0610 061A +0621 065E +0660 0669 +066E 06D3 +06D5 06DC +06DE 06E8 +06EA 06FC +06FF +0710 074A +074D 07B1 +07C0 07F5 +07FA +0901 0939 +093C 094D +0950 0954 +0958 0963 +0966 096F +0971 0972 +097B 097F +0981 0983 +0985 098C +098F 0990 +0993 09A8 +09AA 09B0 +09B2 +09B6 09B9 +09BC 09C4 +09C7 09C8 +09CB 09CE +09D7 +09DC 09DD +09DF 09E3 +09E6 09F1 +0A01 0A03 +0A05 0A0A +0A0F 0A10 +0A13 0A28 +0A2A 0A30 +0A32 0A33 +0A35 0A36 +0A38 0A39 +0A3C +0A3E 0A42 +0A47 0A48 +0A4B 0A4D +0A51 +0A59 0A5C +0A5E +0A66 0A75 +0A81 0A83 +0A85 0A8D +0A8F 0A91 +0A93 0AA8 +0AAA 0AB0 +0AB2 0AB3 +0AB5 0AB9 +0ABC 0AC5 +0AC7 0AC9 +0ACB 0ACD +0AD0 +0AE0 0AE3 +0AE6 0AEF +0B01 0B03 +0B05 0B0C +0B0F 0B10 +0B13 0B28 +0B2A 0B30 +0B32 0B33 +0B35 0B39 +0B3C 0B44 +0B47 0B48 +0B4B 0B4D +0B56 0B57 +0B5C 0B5D +0B5F 0B63 +0B66 0B6F +0B71 +0B82 0B83 +0B85 0B8A +0B8E 0B90 +0B92 0B95 +0B99 0B9A +0B9C +0B9E 0B9F +0BA3 0BA4 +0BA8 0BAA +0BAE 0BB9 +0BBE 0BC2 +0BC6 0BC8 +0BCA 0BCD +0BD0 +0BD7 +0BE6 0BEF +0C01 0C03 +0C05 0C0C +0C0E 0C10 +0C12 0C28 +0C2A 0C33 +0C35 0C39 +0C3D 0C44 +0C46 0C48 +0C4A 0C4D +0C55 0C56 +0C58 0C59 +0C60 0C63 +0C66 0C6F +0C82 0C83 +0C85 0C8C +0C8E 0C90 +0C92 0CA8 +0CAA 0CB3 +0CB5 0CB9 +0CBC 0CC4 +0CC6 0CC8 +0CCA 0CCD +0CD5 0CD6 +0CDE +0CE0 0CE3 +0CE6 0CEF +0D02 0D03 +0D05 0D0C +0D0E 0D10 +0D12 0D28 +0D2A 0D39 +0D3D 0D44 +0D46 0D48 +0D4A 0D4D +0D57 +0D60 0D63 +0D66 0D6F +0D7A 0D7F +0D82 0D83 +0D85 0D96 +0D9A 0DB1 +0DB3 0DBB +0DBD +0DC0 0DC6 +0DCA +0DCF 0DD4 +0DD6 +0DD8 0DDF +0DF2 0DF3 +0E01 0E3A +0E40 0E4E +0E50 0E59 +0E81 0E82 +0E84 +0E87 0E88 +0E8A +0E8D +0E94 0E97 +0E99 0E9F +0EA1 0EA3 +0EA5 +0EA7 +0EAA 0EAB +0EAD 0EB9 +0EBB 0EBD +0EC0 0EC4 +0EC6 +0EC8 0ECD +0ED0 0ED9 +0EDC 0EDD +0F00 +0F18 0F19 +0F20 0F29 +0F35 +0F37 +0F39 +0F3E 0F47 +0F49 0F6C +0F71 0F84 +0F86 0F8B +0F90 0F97 +0F99 0FBC +0FC6 +1000 1049 +1050 1099 +10A0 10C5 +10D0 10FA +10FC +1100 1159 +115F 11A2 +11A8 11F9 +1200 1248 +124A 124D +1250 1256 +1258 +125A 125D +1260 1288 +128A 128D +1290 12B0 +12B2 12B5 +12B8 12BE +12C0 +12C2 12C5 +12C8 12D6 +12D8 1310 +1312 1315 +1318 135A +135F +1380 138F +13A0 13F4 +1401 166C +166F 1676 +1681 169A +16A0 16EA +1700 170C +170E 1714 +1720 1734 +1740 1753 +1760 176C +176E 1770 +1772 1773 +1780 17B3 +17B6 17D3 +17D7 +17DC 17DD +17E0 17E9 +180B 180D +1810 1819 +1820 1877 +1880 18AA +1900 191C +1920 192B +1930 193B +1946 196D +1970 1974 +1980 19A9 +19B0 19C9 +19D0 19D9 +1A00 1A1B +1B00 1B4B +1B50 1B59 +1B6B 1B73 +1B80 1BAA +1BAE 1BB9 +1C00 1C37 +1C40 1C49 +1C4D 1C7D +1D00 1DE6 +1DFE 1F15 +1F18 1F1D +1F20 1F45 +1F48 1F4D +1F50 1F57 +1F59 +1F5B +1F5D +1F5F 1F7D +1F80 1FB4 +1FB6 1FBC +1FBE +1FC2 1FC4 +1FC6 1FCC +1FD0 1FD3 +1FD6 1FDB +1FE0 1FEC +1FF2 1FF4 +1FF6 1FFC +2071 +207F +2090 2094 +20D0 20F0 +2102 +2107 +210A 2113 +2115 +2119 211D +2124 +2126 +2128 +212A 212D +212F 2139 +213C 213F +2145 2149 +214E +2183 2184 +2C00 2C2E +2C30 2C5E +2C60 2C6F +2C71 2C7D +2C80 2CE4 +2D00 2D25 +2D30 2D65 +2D6F +2D80 2D96 +2DA0 2DA6 +2DA8 2DAE +2DB0 2DB6 +2DB8 2DBE +2DC0 2DC6 +2DC8 2DCE +2DD0 2DD6 +2DD8 2DDE +2DE0 2DFF +2E2F +3005 3006 +302A 302F +3031 3035 +303B 303C +3041 3096 +3099 309A +309D 309F +30A1 30FA +30FC 30FF +3105 312D +3131 318E +31A0 31B7 +31F0 31FF +3400 4DB5 +4E00 9FC3 +A000 A48C +A500 A60C +A610 A62B +A640 A65F +A662 A672 +A67C A67D +A67F A697 +A717 A71F +A722 A788 +A78B A78C +A7FB A827 +A840 A873 +A880 A8C4 +A8D0 A8D9 +A900 A92D +A930 A953 +AA00 AA36 +AA40 AA4D +AA50 AA59 +AC00 D7A3 +F900 FA2D +FA30 FA6A +FA70 FAD9 +FB00 FB06 +FB13 FB17 +FB1D FB28 +FB2A FB36 +FB38 FB3C +FB3E +FB40 FB41 +FB43 FB44 +FB46 FBB1 +FBD3 FD3D +FD50 FD8F +FD92 FDC7 +FDF0 FDFB +FE00 FE0F +FE20 FE26 +FE70 FE74 +FE76 FEFC +FF10 FF19 +FF21 FF3A +FF41 FF5A +FF66 FFBE +FFC2 FFC7 +FFCA FFCF +FFD2 FFD7 +FFDA FFDC +10000 1000B +1000D 10026 +10028 1003A +1003C 1003D +1003F 1004D +10050 1005D +10080 100FA +101FD +10280 1029C +102A0 102D0 +10300 1031E +10330 10340 +10342 10349 +10380 1039D +103A0 103C3 +103C8 103CF +10400 1049D +104A0 104A9 +10800 10805 +10808 +1080A 10835 +10837 10838 +1083C +1083F +10900 10915 +10920 10939 +10A00 10A03 +10A05 10A06 +10A0C 10A13 +10A15 10A17 +10A19 10A33 +10A38 10A3A +10A3F +12000 1236E +1D165 1D169 +1D16D 1D172 +1D17B 1D182 +1D185 1D18B +1D1AA 1D1AD +1D242 1D244 +1D400 1D454 +1D456 1D49C +1D49E 1D49F +1D4A2 +1D4A5 1D4A6 +1D4A9 1D4AC +1D4AE 1D4B9 +1D4BB +1D4BD 1D4C3 +1D4C5 1D505 +1D507 1D50A +1D50D 1D514 +1D516 1D51C +1D51E 1D539 +1D53B 1D53E +1D540 1D544 +1D546 +1D54A 1D550 +1D552 1D6A5 +1D6A8 1D6C0 +1D6C2 1D6DA +1D6DC 1D6FA +1D6FC 1D714 +1D716 1D734 +1D736 1D74E +1D750 1D76E +1D770 1D788 +1D78A 1D7A8 +1D7AA 1D7C2 +1D7C4 1D7CB +1D7CE 1D7FF +20000 2A6D6 +2F800 2FA1D +E0100 E01EF +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Alpha.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Alpha.pl new file mode 100644 index 0000000..197c8ae --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Alpha.pl @@ -0,0 +1,464 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Alpha} +# +# Meaning: [[:Alpha:]] +# +return <<'END'; +0041 005A +0061 007A +00AA +00B5 +00BA +00C0 00D6 +00D8 00F6 +00F8 02C1 +02C6 02D1 +02E0 02E4 +02EC +02EE +0300 0374 +0376 0377 +037A 037D +0386 +0388 038A +038C +038E 03A1 +03A3 03F5 +03F7 0481 +0483 0523 +0531 0556 +0559 +0561 0587 +0591 05BD +05BF +05C1 05C2 +05C4 05C5 +05C7 +05D0 05EA +05F0 05F2 +0610 061A +0621 065E +066E 06D3 +06D5 06DC +06DE 06E8 +06EA 06EF +06FA 06FC +06FF +0710 074A +074D 07B1 +07CA 07F5 +07FA +0901 0939 +093C 094D +0950 0954 +0958 0963 +0971 0972 +097B 097F +0981 0983 +0985 098C +098F 0990 +0993 09A8 +09AA 09B0 +09B2 +09B6 09B9 +09BC 09C4 +09C7 09C8 +09CB 09CE +09D7 +09DC 09DD +09DF 09E3 +09F0 09F1 +0A01 0A03 +0A05 0A0A +0A0F 0A10 +0A13 0A28 +0A2A 0A30 +0A32 0A33 +0A35 0A36 +0A38 0A39 +0A3C +0A3E 0A42 +0A47 0A48 +0A4B 0A4D +0A51 +0A59 0A5C +0A5E +0A70 0A75 +0A81 0A83 +0A85 0A8D +0A8F 0A91 +0A93 0AA8 +0AAA 0AB0 +0AB2 0AB3 +0AB5 0AB9 +0ABC 0AC5 +0AC7 0AC9 +0ACB 0ACD +0AD0 +0AE0 0AE3 +0B01 0B03 +0B05 0B0C +0B0F 0B10 +0B13 0B28 +0B2A 0B30 +0B32 0B33 +0B35 0B39 +0B3C 0B44 +0B47 0B48 +0B4B 0B4D +0B56 0B57 +0B5C 0B5D +0B5F 0B63 +0B71 +0B82 0B83 +0B85 0B8A +0B8E 0B90 +0B92 0B95 +0B99 0B9A +0B9C +0B9E 0B9F +0BA3 0BA4 +0BA8 0BAA +0BAE 0BB9 +0BBE 0BC2 +0BC6 0BC8 +0BCA 0BCD +0BD0 +0BD7 +0C01 0C03 +0C05 0C0C +0C0E 0C10 +0C12 0C28 +0C2A 0C33 +0C35 0C39 +0C3D 0C44 +0C46 0C48 +0C4A 0C4D +0C55 0C56 +0C58 0C59 +0C60 0C63 +0C82 0C83 +0C85 0C8C +0C8E 0C90 +0C92 0CA8 +0CAA 0CB3 +0CB5 0CB9 +0CBC 0CC4 +0CC6 0CC8 +0CCA 0CCD +0CD5 0CD6 +0CDE +0CE0 0CE3 +0D02 0D03 +0D05 0D0C +0D0E 0D10 +0D12 0D28 +0D2A 0D39 +0D3D 0D44 +0D46 0D48 +0D4A 0D4D +0D57 +0D60 0D63 +0D7A 0D7F +0D82 0D83 +0D85 0D96 +0D9A 0DB1 +0DB3 0DBB +0DBD +0DC0 0DC6 +0DCA +0DCF 0DD4 +0DD6 +0DD8 0DDF +0DF2 0DF3 +0E01 0E3A +0E40 0E4E +0E81 0E82 +0E84 +0E87 0E88 +0E8A +0E8D +0E94 0E97 +0E99 0E9F +0EA1 0EA3 +0EA5 +0EA7 +0EAA 0EAB +0EAD 0EB9 +0EBB 0EBD +0EC0 0EC4 +0EC6 +0EC8 0ECD +0EDC 0EDD +0F00 +0F18 0F19 +0F35 +0F37 +0F39 +0F3E 0F47 +0F49 0F6C +0F71 0F84 +0F86 0F8B +0F90 0F97 +0F99 0FBC +0FC6 +1000 103F +1050 108F +10A0 10C5 +10D0 10FA +10FC +1100 1159 +115F 11A2 +11A8 11F9 +1200 1248 +124A 124D +1250 1256 +1258 +125A 125D +1260 1288 +128A 128D +1290 12B0 +12B2 12B5 +12B8 12BE +12C0 +12C2 12C5 +12C8 12D6 +12D8 1310 +1312 1315 +1318 135A +135F +1380 138F +13A0 13F4 +1401 166C +166F 1676 +1681 169A +16A0 16EA +1700 170C +170E 1714 +1720 1734 +1740 1753 +1760 176C +176E 1770 +1772 1773 +1780 17B3 +17B6 17D3 +17D7 +17DC 17DD +180B 180D +1820 1877 +1880 18AA +1900 191C +1920 192B +1930 193B +1950 196D +1970 1974 +1980 19A9 +19B0 19C9 +1A00 1A1B +1B00 1B4B +1B6B 1B73 +1B80 1BAA +1BAE 1BAF +1C00 1C37 +1C4D 1C4F +1C5A 1C7D +1D00 1DE6 +1DFE 1F15 +1F18 1F1D +1F20 1F45 +1F48 1F4D +1F50 1F57 +1F59 +1F5B +1F5D +1F5F 1F7D +1F80 1FB4 +1FB6 1FBC +1FBE +1FC2 1FC4 +1FC6 1FCC +1FD0 1FD3 +1FD6 1FDB +1FE0 1FEC +1FF2 1FF4 +1FF6 1FFC +2071 +207F +2090 2094 +20D0 20F0 +2102 +2107 +210A 2113 +2115 +2119 211D +2124 +2126 +2128 +212A 212D +212F 2139 +213C 213F +2145 2149 +214E +2183 2184 +2C00 2C2E +2C30 2C5E +2C60 2C6F +2C71 2C7D +2C80 2CE4 +2D00 2D25 +2D30 2D65 +2D6F +2D80 2D96 +2DA0 2DA6 +2DA8 2DAE +2DB0 2DB6 +2DB8 2DBE +2DC0 2DC6 +2DC8 2DCE +2DD0 2DD6 +2DD8 2DDE +2DE0 2DFF +2E2F +3005 3006 +302A 302F +3031 3035 +303B 303C +3041 3096 +3099 309A +309D 309F +30A1 30FA +30FC 30FF +3105 312D +3131 318E +31A0 31B7 +31F0 31FF +3400 4DB5 +4E00 9FC3 +A000 A48C +A500 A60C +A610 A61F +A62A A62B +A640 A65F +A662 A672 +A67C A67D +A67F A697 +A717 A71F +A722 A788 +A78B A78C +A7FB A827 +A840 A873 +A880 A8C4 +A90A A92D +A930 A953 +AA00 AA36 +AA40 AA4D +AC00 D7A3 +F900 FA2D +FA30 FA6A +FA70 FAD9 +FB00 FB06 +FB13 FB17 +FB1D FB28 +FB2A FB36 +FB38 FB3C +FB3E +FB40 FB41 +FB43 FB44 +FB46 FBB1 +FBD3 FD3D +FD50 FD8F +FD92 FDC7 +FDF0 FDFB +FE00 FE0F +FE20 FE26 +FE70 FE74 +FE76 FEFC +FF21 FF3A +FF41 FF5A +FF66 FFBE +FFC2 FFC7 +FFCA FFCF +FFD2 FFD7 +FFDA FFDC +10000 1000B +1000D 10026 +10028 1003A +1003C 1003D +1003F 1004D +10050 1005D +10080 100FA +101FD +10280 1029C +102A0 102D0 +10300 1031E +10330 10340 +10342 10349 +10380 1039D +103A0 103C3 +103C8 103CF +10400 1049D +10800 10805 +10808 +1080A 10835 +10837 10838 +1083C +1083F +10900 10915 +10920 10939 +10A00 10A03 +10A05 10A06 +10A0C 10A13 +10A15 10A17 +10A19 10A33 +10A38 10A3A +10A3F +12000 1236E +1D165 1D169 +1D16D 1D172 +1D17B 1D182 +1D185 1D18B +1D1AA 1D1AD +1D242 1D244 +1D400 1D454 +1D456 1D49C +1D49E 1D49F +1D4A2 +1D4A5 1D4A6 +1D4A9 1D4AC +1D4AE 1D4B9 +1D4BB +1D4BD 1D4C3 +1D4C5 1D505 +1D507 1D50A +1D50D 1D514 +1D516 1D51C +1D51E 1D539 +1D53B 1D53E +1D540 1D544 +1D546 +1D54A 1D550 +1D552 1D6A5 +1D6A8 1D6C0 +1D6C2 1D6DA +1D6DC 1D6FA +1D6FC 1D714 +1D716 1D734 +1D736 1D74E +1D750 1D76E +1D770 1D788 +1D78A 1D7A8 +1D7AA 1D7C2 +1D7C4 1D7CB +20000 2A6D6 +2F800 2FA1D +E0100 E01EF +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Alphabet.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Alphabet.pl new file mode 100644 index 0000000..fca4d3f --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Alphabet.pl @@ -0,0 +1,459 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Alphabetic} (and fuzzy permutations) +# +# Meaning: [\p{L}\p{Nl}\p{OtherAlphabetic}] +# +return <<'END'; +0041 005A +0061 007A +00AA +00B5 +00BA +00C0 00D6 +00D8 00F6 +00F8 02C1 +02C6 02D1 +02E0 02E4 +02EC +02EE +0345 +0370 0374 +0376 0377 +037A 037D +0386 +0388 038A +038C +038E 03A1 +03A3 03F5 +03F7 0481 +048A 0523 +0531 0556 +0559 +0561 0587 +05B0 05BD +05BF +05C1 05C2 +05C4 05C5 +05C7 +05D0 05EA +05F0 05F2 +0610 061A +0621 0657 +0659 065E +066E 06D3 +06D5 06DC +06E1 06E8 +06ED 06EF +06FA 06FC +06FF +0710 073F +074D 07B1 +07CA 07EA +07F4 07F5 +07FA +0901 0939 +093D 094C +0950 +0958 0963 +0971 0972 +097B 097F +0981 0983 +0985 098C +098F 0990 +0993 09A8 +09AA 09B0 +09B2 +09B6 09B9 +09BD 09C4 +09C7 09C8 +09CB 09CC +09CE +09D7 +09DC 09DD +09DF 09E3 +09F0 09F1 +0A01 0A03 +0A05 0A0A +0A0F 0A10 +0A13 0A28 +0A2A 0A30 +0A32 0A33 +0A35 0A36 +0A38 0A39 +0A3E 0A42 +0A47 0A48 +0A4B 0A4C +0A51 +0A59 0A5C +0A5E +0A70 0A75 +0A81 0A83 +0A85 0A8D +0A8F 0A91 +0A93 0AA8 +0AAA 0AB0 +0AB2 0AB3 +0AB5 0AB9 +0ABD 0AC5 +0AC7 0AC9 +0ACB 0ACC +0AD0 +0AE0 0AE3 +0B01 0B03 +0B05 0B0C +0B0F 0B10 +0B13 0B28 +0B2A 0B30 +0B32 0B33 +0B35 0B39 +0B3D 0B44 +0B47 0B48 +0B4B 0B4C +0B56 0B57 +0B5C 0B5D +0B5F 0B63 +0B71 +0B82 0B83 +0B85 0B8A +0B8E 0B90 +0B92 0B95 +0B99 0B9A +0B9C +0B9E 0B9F +0BA3 0BA4 +0BA8 0BAA +0BAE 0BB9 +0BBE 0BC2 +0BC6 0BC8 +0BCA 0BCC +0BD0 +0BD7 +0C01 0C03 +0C05 0C0C +0C0E 0C10 +0C12 0C28 +0C2A 0C33 +0C35 0C39 +0C3D 0C44 +0C46 0C48 +0C4A 0C4C +0C55 0C56 +0C58 0C59 +0C60 0C63 +0C82 0C83 +0C85 0C8C +0C8E 0C90 +0C92 0CA8 +0CAA 0CB3 +0CB5 0CB9 +0CBD 0CC4 +0CC6 0CC8 +0CCA 0CCC +0CD5 0CD6 +0CDE +0CE0 0CE3 +0D02 0D03 +0D05 0D0C +0D0E 0D10 +0D12 0D28 +0D2A 0D39 +0D3D 0D44 +0D46 0D48 +0D4A 0D4C +0D57 +0D60 0D63 +0D7A 0D7F +0D82 0D83 +0D85 0D96 +0D9A 0DB1 +0DB3 0DBB +0DBD +0DC0 0DC6 +0DCF 0DD4 +0DD6 +0DD8 0DDF +0DF2 0DF3 +0E01 0E3A +0E40 0E46 +0E4D +0E81 0E82 +0E84 +0E87 0E88 +0E8A +0E8D +0E94 0E97 +0E99 0E9F +0EA1 0EA3 +0EA5 +0EA7 +0EAA 0EAB +0EAD 0EB9 +0EBB 0EBD +0EC0 0EC4 +0EC6 +0ECD +0EDC 0EDD +0F00 +0F40 0F47 +0F49 0F6C +0F71 0F81 +0F88 0F8B +0F90 0F97 +0F99 0FBC +1000 1036 +1038 +103B 103F +1050 1062 +1065 1068 +106E 1086 +108E +10A0 10C5 +10D0 10FA +10FC +1100 1159 +115F 11A2 +11A8 11F9 +1200 1248 +124A 124D +1250 1256 +1258 +125A 125D +1260 1288 +128A 128D +1290 12B0 +12B2 12B5 +12B8 12BE +12C0 +12C2 12C5 +12C8 12D6 +12D8 1310 +1312 1315 +1318 135A +135F +1380 138F +13A0 13F4 +1401 166C +166F 1676 +1681 169A +16A0 16EA +16EE 16F0 +1700 170C +170E 1713 +1720 1733 +1740 1753 +1760 176C +176E 1770 +1772 1773 +1780 17B3 +17B6 17C8 +17D7 +17DC +1820 1877 +1880 18AA +1900 191C +1920 192B +1930 1938 +1950 196D +1970 1974 +1980 19A9 +19B0 19C9 +1A00 1A1B +1B00 1B33 +1B35 1B43 +1B45 1B4B +1B80 1BA9 +1BAE 1BAF +1C00 1C35 +1C4D 1C4F +1C5A 1C7D +1D00 1DBF +1E00 1F15 +1F18 1F1D +1F20 1F45 +1F48 1F4D +1F50 1F57 +1F59 +1F5B +1F5D +1F5F 1F7D +1F80 1FB4 +1FB6 1FBC +1FBE +1FC2 1FC4 +1FC6 1FCC +1FD0 1FD3 +1FD6 1FDB +1FE0 1FEC +1FF2 1FF4 +1FF6 1FFC +2071 +207F +2090 2094 +2102 +2107 +210A 2113 +2115 +2119 211D +2124 +2126 +2128 +212A 212D +212F 2139 +213C 213F +2145 2149 +214E +2160 2188 +24B6 24E9 +2C00 2C2E +2C30 2C5E +2C60 2C6F +2C71 2C7D +2C80 2CE4 +2D00 2D25 +2D30 2D65 +2D6F +2D80 2D96 +2DA0 2DA6 +2DA8 2DAE +2DB0 2DB6 +2DB8 2DBE +2DC0 2DC6 +2DC8 2DCE +2DD0 2DD6 +2DD8 2DDE +2DE0 2DFF +2E2F +3005 3007 +3021 3029 +3031 3035 +3038 303C +3041 3096 +309D 309F +30A1 30FA +30FC 30FF +3105 312D +3131 318E +31A0 31B7 +31F0 31FF +3400 4DB5 +4E00 9FC3 +A000 A48C +A500 A60C +A610 A61F +A62A A62B +A640 A65F +A662 A66E +A67F A697 +A717 A71F +A722 A788 +A78B A78C +A7FB A801 +A803 A805 +A807 A80A +A80C A827 +A840 A873 +A880 A8C3 +A90A A92A +A930 A952 +AA00 AA36 +AA40 AA4D +AC00 D7A3 +F900 FA2D +FA30 FA6A +FA70 FAD9 +FB00 FB06 +FB13 FB17 +FB1D FB28 +FB2A FB36 +FB38 FB3C +FB3E +FB40 FB41 +FB43 FB44 +FB46 FBB1 +FBD3 FD3D +FD50 FD8F +FD92 FDC7 +FDF0 FDFB +FE70 FE74 +FE76 FEFC +FF21 FF3A +FF41 FF5A +FF66 FFBE +FFC2 FFC7 +FFCA FFCF +FFD2 FFD7 +FFDA FFDC +10000 1000B +1000D 10026 +10028 1003A +1003C 1003D +1003F 1004D +10050 1005D +10080 100FA +10140 10174 +10280 1029C +102A0 102D0 +10300 1031E +10330 1034A +10380 1039D +103A0 103C3 +103C8 103CF +103D1 103D5 +10400 1049D +10800 10805 +10808 +1080A 10835 +10837 10838 +1083C +1083F +10900 10915 +10920 10939 +10A00 10A03 +10A05 10A06 +10A0C 10A13 +10A15 10A17 +10A19 10A33 +12000 1236E +12400 12462 +1D400 1D454 +1D456 1D49C +1D49E 1D49F +1D4A2 +1D4A5 1D4A6 +1D4A9 1D4AC +1D4AE 1D4B9 +1D4BB +1D4BD 1D4C3 +1D4C5 1D505 +1D507 1D50A +1D50D 1D514 +1D516 1D51C +1D51E 1D539 +1D53B 1D53E +1D540 1D544 +1D546 +1D54A 1D550 +1D552 1D6A5 +1D6A8 1D6C0 +1D6C2 1D6DA +1D6DC 1D6FA +1D6FC 1D714 +1D716 1D734 +1D736 1D74E +1D750 1D76E +1D770 1D788 +1D78A 1D7A8 +1D7AA 1D7C2 +1D7C4 1D7CB +20000 2A6D6 +2F800 2FA1D +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Any.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Any.pl new file mode 100644 index 0000000..21a4800 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Any.pl @@ -0,0 +1,18 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Any} +# \p{Any} +# +# Meaning: [\x{0000}-\x{10FFFF}] +# +return <<'END'; +0000 10FFFF +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Arab.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Arab.pl new file mode 100644 index 0000000..24c7d75 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Arab.pl @@ -0,0 +1,33 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Arabic} (and fuzzy permutations) +# +# Meaning: Script 'Arabic' +# +return <<'END'; +0606 060B Arabic +060D 061A Arabic +061E Arabic +0621 063F Arabic +0641 064A Arabic +0656 065E Arabic +066A 066F Arabic +0671 06DC Arabic +06DE 06FF Arabic +0750 077F Arabic +FB50 FBB1 Arabic +FBD3 FD3D Arabic +FD50 FD8F Arabic +FD92 FDC7 Arabic +FDF0 FDFC Arabic +FE70 FE74 Arabic +FE76 FEFC Arabic +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Armn.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Armn.pl new file mode 100644 index 0000000..c83f7a1 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Armn.pl @@ -0,0 +1,21 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Armenian} (and fuzzy permutations) +# +# Meaning: Script 'Armenian' +# +return <<'END'; +0531 0556 Armenian +0559 055F Armenian +0561 0587 Armenian +058A Armenian +FB13 FB17 Armenian +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/AsciiHex.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/AsciiHex.pl new file mode 100644 index 0000000..ab523ca --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/AsciiHex.pl @@ -0,0 +1,19 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{AsciiHexDigit} (and fuzzy permutations) +# +# Meaning: Extended property 'ASCII_Hex_Digit' +# +return <<'END'; +0030 0039 ASCII_Hex_Digit +0041 0046 ASCII_Hex_Digit +0061 0066 ASCII_Hex_Digit +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Assigned.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Assigned.pl new file mode 100644 index 0000000..bdc1d42 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Assigned.pl @@ -0,0 +1,461 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Assigned} +# +# Meaning: All assigned code points +# +return <<'END'; +0000 0377 +037A 037E +0384 038A +038C +038E 03A1 +03A3 0523 +0531 0556 +0559 055F +0561 0587 +0589 058A +0591 05C7 +05D0 05EA +05F0 05F4 +0600 0603 +0606 061B +061E 061F +0621 065E +0660 070D +070F 074A +074D 07B1 +07C0 07FA +0901 0939 +093C 094D +0950 0954 +0958 0972 +097B 097F +0981 0983 +0985 098C +098F 0990 +0993 09A8 +09AA 09B0 +09B2 +09B6 09B9 +09BC 09C4 +09C7 09C8 +09CB 09CE +09D7 +09DC 09DD +09DF 09E3 +09E6 09FA +0A01 0A03 +0A05 0A0A +0A0F 0A10 +0A13 0A28 +0A2A 0A30 +0A32 0A33 +0A35 0A36 +0A38 0A39 +0A3C +0A3E 0A42 +0A47 0A48 +0A4B 0A4D +0A51 +0A59 0A5C +0A5E +0A66 0A75 +0A81 0A83 +0A85 0A8D +0A8F 0A91 +0A93 0AA8 +0AAA 0AB0 +0AB2 0AB3 +0AB5 0AB9 +0ABC 0AC5 +0AC7 0AC9 +0ACB 0ACD +0AD0 +0AE0 0AE3 +0AE6 0AEF +0AF1 +0B01 0B03 +0B05 0B0C +0B0F 0B10 +0B13 0B28 +0B2A 0B30 +0B32 0B33 +0B35 0B39 +0B3C 0B44 +0B47 0B48 +0B4B 0B4D +0B56 0B57 +0B5C 0B5D +0B5F 0B63 +0B66 0B71 +0B82 0B83 +0B85 0B8A +0B8E 0B90 +0B92 0B95 +0B99 0B9A +0B9C +0B9E 0B9F +0BA3 0BA4 +0BA8 0BAA +0BAE 0BB9 +0BBE 0BC2 +0BC6 0BC8 +0BCA 0BCD +0BD0 +0BD7 +0BE6 0BFA +0C01 0C03 +0C05 0C0C +0C0E 0C10 +0C12 0C28 +0C2A 0C33 +0C35 0C39 +0C3D 0C44 +0C46 0C48 +0C4A 0C4D +0C55 0C56 +0C58 0C59 +0C60 0C63 +0C66 0C6F +0C78 0C7F +0C82 0C83 +0C85 0C8C +0C8E 0C90 +0C92 0CA8 +0CAA 0CB3 +0CB5 0CB9 +0CBC 0CC4 +0CC6 0CC8 +0CCA 0CCD +0CD5 0CD6 +0CDE +0CE0 0CE3 +0CE6 0CEF +0CF1 0CF2 +0D02 0D03 +0D05 0D0C +0D0E 0D10 +0D12 0D28 +0D2A 0D39 +0D3D 0D44 +0D46 0D48 +0D4A 0D4D +0D57 +0D60 0D63 +0D66 0D75 +0D79 0D7F +0D82 0D83 +0D85 0D96 +0D9A 0DB1 +0DB3 0DBB +0DBD +0DC0 0DC6 +0DCA +0DCF 0DD4 +0DD6 +0DD8 0DDF +0DF2 0DF4 +0E01 0E3A +0E3F 0E5B +0E81 0E82 +0E84 +0E87 0E88 +0E8A +0E8D +0E94 0E97 +0E99 0E9F +0EA1 0EA3 +0EA5 +0EA7 +0EAA 0EAB +0EAD 0EB9 +0EBB 0EBD +0EC0 0EC4 +0EC6 +0EC8 0ECD +0ED0 0ED9 +0EDC 0EDD +0F00 0F47 +0F49 0F6C +0F71 0F8B +0F90 0F97 +0F99 0FBC +0FBE 0FCC +0FCE 0FD4 +1000 1099 +109E 10C5 +10D0 10FC +1100 1159 +115F 11A2 +11A8 11F9 +1200 1248 +124A 124D +1250 1256 +1258 +125A 125D +1260 1288 +128A 128D +1290 12B0 +12B2 12B5 +12B8 12BE +12C0 +12C2 12C5 +12C8 12D6 +12D8 1310 +1312 1315 +1318 135A +135F 137C +1380 1399 +13A0 13F4 +1401 1676 +1680 169C +16A0 16F0 +1700 170C +170E 1714 +1720 1736 +1740 1753 +1760 176C +176E 1770 +1772 1773 +1780 17DD +17E0 17E9 +17F0 17F9 +1800 180E +1810 1819 +1820 1877 +1880 18AA +1900 191C +1920 192B +1930 193B +1940 +1944 196D +1970 1974 +1980 19A9 +19B0 19C9 +19D0 19D9 +19DE 1A1B +1A1E 1A1F +1B00 1B4B +1B50 1B7C +1B80 1BAA +1BAE 1BB9 +1C00 1C37 +1C3B 1C49 +1C4D 1C7F +1D00 1DE6 +1DFE 1F15 +1F18 1F1D +1F20 1F45 +1F48 1F4D +1F50 1F57 +1F59 +1F5B +1F5D +1F5F 1F7D +1F80 1FB4 +1FB6 1FC4 +1FC6 1FD3 +1FD6 1FDB +1FDD 1FEF +1FF2 1FF4 +1FF6 1FFE +2000 2064 +206A 2071 +2074 208E +2090 2094 +20A0 20B5 +20D0 20F0 +2100 214F +2153 2188 +2190 23E7 +2400 2426 +2440 244A +2460 269D +26A0 26BC +26C0 26C3 +2701 2704 +2706 2709 +270C 2727 +2729 274B +274D +274F 2752 +2756 +2758 275E +2761 2794 +2798 27AF +27B1 27BE +27C0 27CA +27CC +27D0 2B4C +2B50 2B54 +2C00 2C2E +2C30 2C5E +2C60 2C6F +2C71 2C7D +2C80 2CEA +2CF9 2D25 +2D30 2D65 +2D6F +2D80 2D96 +2DA0 2DA6 +2DA8 2DAE +2DB0 2DB6 +2DB8 2DBE +2DC0 2DC6 +2DC8 2DCE +2DD0 2DD6 +2DD8 2DDE +2DE0 2E30 +2E80 2E99 +2E9B 2EF3 +2F00 2FD5 +2FF0 2FFB +3000 303F +3041 3096 +3099 30FF +3105 312D +3131 318E +3190 31B7 +31C0 31E3 +31F0 321E +3220 3243 +3250 32FE +3300 4DB5 +4DC0 9FC3 +A000 A48C +A490 A4C6 +A500 A62B +A640 A65F +A662 A673 +A67C A697 +A700 A78C +A7FB A82B +A840 A877 +A880 A8C4 +A8CE A8D9 +A900 A953 +A95F +AA00 AA36 +AA40 AA4D +AA50 AA59 +AA5C AA5F +AC00 D7A3 +D800 FA2D +FA30 FA6A +FA70 FAD9 +FB00 FB06 +FB13 FB17 +FB1D FB36 +FB38 FB3C +FB3E +FB40 FB41 +FB43 FB44 +FB46 FBB1 +FBD3 FD3F +FD50 FD8F +FD92 FDC7 +FDF0 FDFD +FE00 FE19 +FE20 FE26 +FE30 FE52 +FE54 FE66 +FE68 FE6B +FE70 FE74 +FE76 FEFC +FEFF +FF01 FFBE +FFC2 FFC7 +FFCA FFCF +FFD2 FFD7 +FFDA FFDC +FFE0 FFE6 +FFE8 FFEE +FFF9 FFFD +10000 1000B +1000D 10026 +10028 1003A +1003C 1003D +1003F 1004D +10050 1005D +10080 100FA +10100 10102 +10107 10133 +10137 1018A +10190 1019B +101D0 101FD +10280 1029C +102A0 102D0 +10300 1031E +10320 10323 +10330 1034A +10380 1039D +1039F 103C3 +103C8 103D5 +10400 1049D +104A0 104A9 +10800 10805 +10808 +1080A 10835 +10837 10838 +1083C +1083F +10900 10919 +1091F 10939 +1093F +10A00 10A03 +10A05 10A06 +10A0C 10A13 +10A15 10A17 +10A19 10A33 +10A38 10A3A +10A3F 10A47 +10A50 10A58 +12000 1236E +12400 12462 +12470 12473 +1D000 1D0F5 +1D100 1D126 +1D129 1D1DD +1D200 1D245 +1D300 1D356 +1D360 1D371 +1D400 1D454 +1D456 1D49C +1D49E 1D49F +1D4A2 +1D4A5 1D4A6 +1D4A9 1D4AC +1D4AE 1D4B9 +1D4BB +1D4BD 1D4C3 +1D4C5 1D505 +1D507 1D50A +1D50D 1D514 +1D516 1D51C +1D51E 1D539 +1D53B 1D53E +1D540 1D544 +1D546 +1D54A 1D550 +1D552 1D6A5 +1D6A8 1D7CB +1D7CE 1D7FF +1F000 1F02B +1F030 1F093 +20000 2A6D6 +2F800 2FA1D +E0001 +E0020 E007F +E0100 E01EF +F0000 FFFFD +100000 10FFFD +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Bali.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Bali.pl new file mode 100644 index 0000000..4d0d707 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Bali.pl @@ -0,0 +1,18 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Balinese} (and fuzzy permutations) +# +# Meaning: Script 'Balinese' +# +return <<'END'; +1B00 1B4B Balinese +1B50 1B7C Balinese +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Beng.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Beng.pl new file mode 100644 index 0000000..2fafb67 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Beng.pl @@ -0,0 +1,30 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Bengali} (and fuzzy permutations) +# +# Meaning: Script 'Bengali' +# +return <<'END'; +0981 0983 Bengali +0985 098C Bengali +098F 0990 Bengali +0993 09A8 Bengali +09AA 09B0 Bengali +09B2 Bengali +09B6 09B9 Bengali +09BC 09C4 Bengali +09C7 09C8 Bengali +09CB 09CE Bengali +09D7 Bengali +09DC 09DD Bengali +09DF 09E3 Bengali +09E6 09FA Bengali +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/BidiC.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/BidiC.pl new file mode 100644 index 0000000..e2af330 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/BidiC.pl @@ -0,0 +1,15 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Binary property 'Bidi_Control' +# +return <<'END'; +200E 200F Bidi_Control +202A 202E Bidi_Control +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/BidiCont.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/BidiCont.pl new file mode 100644 index 0000000..ededb27 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/BidiCont.pl @@ -0,0 +1,18 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{BidiControl} (and fuzzy permutations) +# +# Meaning: Extended property 'Bidi_Control' +# +return <<'END'; +200E 200F Bidi_Control +202A 202E Bidi_Control +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Blank.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Blank.pl new file mode 100644 index 0000000..5fb2fc9 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Blank.pl @@ -0,0 +1,25 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Blank} +# +# Meaning: [[:Blank:]] +# +return <<'END'; +0009 +0020 +00A0 +1680 +180E +2000 200A +202F +205F +3000 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Bopo.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Bopo.pl new file mode 100644 index 0000000..77b3574 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Bopo.pl @@ -0,0 +1,18 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Bopomofo} (and fuzzy permutations) +# +# Meaning: Script 'Bopomofo' +# +return <<'END'; +3105 312D Bopomofo +31A0 31B7 Bopomofo +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Brai.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Brai.pl new file mode 100644 index 0000000..f0d17fe --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Brai.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Braille} (and fuzzy permutations) +# +# Meaning: Script 'Braille' +# +return <<'END'; +2800 28FF Braille +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Bugi.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Bugi.pl new file mode 100644 index 0000000..dcaef35 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Bugi.pl @@ -0,0 +1,18 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Buginese} (and fuzzy permutations) +# +# Meaning: Script 'Buginese' +# +return <<'END'; +1A00 1A1B Buginese +1A1E 1A1F Buginese +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Buhd.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Buhd.pl new file mode 100644 index 0000000..b318c03 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Buhd.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Buhid} (and fuzzy permutations) +# +# Meaning: Script 'Buhid' +# +return <<'END'; +1740 1753 Buhid +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/C.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/C.pl new file mode 100644 index 0000000..6ef19ce --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/C.pl @@ -0,0 +1,464 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{C} +# \p{C} (and fuzzy permutations) +# +# Meaning: Major Category 'C' +# +return <<'END'; +0000 001F +007F 009F +00AD +0378 0379 +037F 0383 +038B +038D +03A2 +0524 0530 +0557 0558 +0560 +0588 +058B 0590 +05C8 05CF +05EB 05EF +05F5 0605 +061C 061D +0620 +065F +06DD +070E 070F +074B 074C +07B2 07BF +07FB 0900 +093A 093B +094E 094F +0955 0957 +0973 097A +0980 +0984 +098D 098E +0991 0992 +09A9 +09B1 +09B3 09B5 +09BA 09BB +09C5 09C6 +09C9 09CA +09CF 09D6 +09D8 09DB +09DE +09E4 09E5 +09FB 0A00 +0A04 +0A0B 0A0E +0A11 0A12 +0A29 +0A31 +0A34 +0A37 +0A3A 0A3B +0A3D +0A43 0A46 +0A49 0A4A +0A4E 0A50 +0A52 0A58 +0A5D +0A5F 0A65 +0A76 0A80 +0A84 +0A8E +0A92 +0AA9 +0AB1 +0AB4 +0ABA 0ABB +0AC6 +0ACA +0ACE 0ACF +0AD1 0ADF +0AE4 0AE5 +0AF0 +0AF2 0B00 +0B04 +0B0D 0B0E +0B11 0B12 +0B29 +0B31 +0B34 +0B3A 0B3B +0B45 0B46 +0B49 0B4A +0B4E 0B55 +0B58 0B5B +0B5E +0B64 0B65 +0B72 0B81 +0B84 +0B8B 0B8D +0B91 +0B96 0B98 +0B9B +0B9D +0BA0 0BA2 +0BA5 0BA7 +0BAB 0BAD +0BBA 0BBD +0BC3 0BC5 +0BC9 +0BCE 0BCF +0BD1 0BD6 +0BD8 0BE5 +0BFB 0C00 +0C04 +0C0D +0C11 +0C29 +0C34 +0C3A 0C3C +0C45 +0C49 +0C4E 0C54 +0C57 +0C5A 0C5F +0C64 0C65 +0C70 0C77 +0C80 0C81 +0C84 +0C8D +0C91 +0CA9 +0CB4 +0CBA 0CBB +0CC5 +0CC9 +0CCE 0CD4 +0CD7 0CDD +0CDF +0CE4 0CE5 +0CF0 +0CF3 0D01 +0D04 +0D0D +0D11 +0D29 +0D3A 0D3C +0D45 +0D49 +0D4E 0D56 +0D58 0D5F +0D64 0D65 +0D76 0D78 +0D80 0D81 +0D84 +0D97 0D99 +0DB2 +0DBC +0DBE 0DBF +0DC7 0DC9 +0DCB 0DCE +0DD5 +0DD7 +0DE0 0DF1 +0DF5 0E00 +0E3B 0E3E +0E5C 0E80 +0E83 +0E85 0E86 +0E89 +0E8B 0E8C +0E8E 0E93 +0E98 +0EA0 +0EA4 +0EA6 +0EA8 0EA9 +0EAC +0EBA +0EBE 0EBF +0EC5 +0EC7 +0ECE 0ECF +0EDA 0EDB +0EDE 0EFF +0F48 +0F6D 0F70 +0F8C 0F8F +0F98 +0FBD +0FCD +0FD5 0FFF +109A 109D +10C6 10CF +10FD 10FF +115A 115E +11A3 11A7 +11FA 11FF +1249 +124E 124F +1257 +1259 +125E 125F +1289 +128E 128F +12B1 +12B6 12B7 +12BF +12C1 +12C6 12C7 +12D7 +1311 +1316 1317 +135B 135E +137D 137F +139A 139F +13F5 1400 +1677 167F +169D 169F +16F1 16FF +170D +1715 171F +1737 173F +1754 175F +176D +1771 +1774 177F +17B4 17B5 +17DE 17DF +17EA 17EF +17FA 17FF +180F +181A 181F +1878 187F +18AB 18FF +191D 191F +192C 192F +193C 193F +1941 1943 +196E 196F +1975 197F +19AA 19AF +19CA 19CF +19DA 19DD +1A1C 1A1D +1A20 1AFF +1B4C 1B4F +1B7D 1B7F +1BAB 1BAD +1BBA 1BFF +1C38 1C3A +1C4A 1C4C +1C80 1CFF +1DE7 1DFD +1F16 1F17 +1F1E 1F1F +1F46 1F47 +1F4E 1F4F +1F58 +1F5A +1F5C +1F5E +1F7E 1F7F +1FB5 +1FC5 +1FD4 1FD5 +1FDC +1FF0 1FF1 +1FF5 +1FFF +200B 200F +202A 202E +2060 206F +2072 2073 +208F +2095 209F +20B6 20CF +20F1 20FF +2150 2152 +2189 218F +23E8 23FF +2427 243F +244B 245F +269E 269F +26BD 26BF +26C4 2700 +2705 +270A 270B +2728 +274C +274E +2753 2755 +2757 +275F 2760 +2795 2797 +27B0 +27BF +27CB +27CD 27CF +2B4D 2B4F +2B55 2BFF +2C2F +2C5F +2C70 +2C7E 2C7F +2CEB 2CF8 +2D26 2D2F +2D66 2D6E +2D70 2D7F +2D97 2D9F +2DA7 +2DAF +2DB7 +2DBF +2DC7 +2DCF +2DD7 +2DDF +2E31 2E7F +2E9A +2EF4 2EFF +2FD6 2FEF +2FFC 2FFF +3040 +3097 3098 +3100 3104 +312E 3130 +318F +31B8 31BF +31E4 31EF +321F +3244 324F +32FF +4DB6 4DBF +9FC4 9FFF +A48D A48F +A4C7 A4FF +A62C A63F +A660 A661 +A674 A67B +A698 A6FF +A78D A7FA +A82C A83F +A878 A87F +A8C5 A8CD +A8DA A8FF +A954 A95E +A960 A9FF +AA37 AA3F +AA4E AA4F +AA5A AA5B +AA60 ABFF +D7A4 F8FF +FA2E FA2F +FA6B FA6F +FADA FAFF +FB07 FB12 +FB18 FB1C +FB37 +FB3D +FB3F +FB42 +FB45 +FBB2 FBD2 +FD40 FD4F +FD90 FD91 +FDC8 FDEF +FDFE FDFF +FE1A FE1F +FE27 FE2F +FE53 +FE67 +FE6C FE6F +FE75 +FEFD FF00 +FFBF FFC1 +FFC8 FFC9 +FFD0 FFD1 +FFD8 FFD9 +FFDD FFDF +FFE7 +FFEF FFFB +FFFE FFFF +1000C +10027 +1003B +1003E +1004E 1004F +1005E 1007F +100FB 100FF +10103 10106 +10134 10136 +1018B 1018F +1019C 101CF +101FE 1027F +1029D 1029F +102D1 102FF +1031F +10324 1032F +1034B 1037F +1039E +103C4 103C7 +103D6 103FF +1049E 1049F +104AA 107FF +10806 10807 +10809 +10836 +10839 1083B +1083D 1083E +10840 108FF +1091A 1091E +1093A 1093E +10940 109FF +10A04 +10A07 10A0B +10A14 +10A18 +10A34 10A37 +10A3B 10A3E +10A48 10A4F +10A59 11FFF +1236F 123FF +12463 1246F +12474 1CFFF +1D0F6 1D0FF +1D127 1D128 +1D173 1D17A +1D1DE 1D1FF +1D246 1D2FF +1D357 1D35F +1D372 1D3FF +1D455 +1D49D +1D4A0 1D4A1 +1D4A3 1D4A4 +1D4A7 1D4A8 +1D4AD +1D4BA +1D4BC +1D4C4 +1D506 +1D50B 1D50C +1D515 +1D51D +1D53A +1D53F +1D545 +1D547 1D549 +1D551 +1D6A6 1D6A7 +1D7CC 1D7CD +1D800 1EFFF +1F02C 1F02F +1F094 1FFFF +2A6D7 2F7FF +2FA1E E00FF +E01F0 10FFFF +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Canadian.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Canadian.pl new file mode 100644 index 0000000..33179a9 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Canadian.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{CanadianAboriginal} (and fuzzy permutations) +# +# Meaning: Script 'Canadian_Aboriginal' +# +return <<'END'; +1401 1676 Canadian_Aboriginal +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Cari.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Cari.pl new file mode 100644 index 0000000..e37740d --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Cari.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Carian} (and fuzzy permutations) +# +# Meaning: Script 'Carian' +# +return <<'END'; +102A0 102D0 Carian +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Cc.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Cc.pl new file mode 100644 index 0000000..f712783 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Cc.pl @@ -0,0 +1,19 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Cc} +# \p{Cc} (and fuzzy permutations) +# +# Meaning: General Category 'Cc' +# +return <<'END'; +0000 001F +007F 009F +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Cf.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Cf.pl new file mode 100644 index 0000000..320ddcc --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Cf.pl @@ -0,0 +1,31 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Cf} +# \p{Cf} (and fuzzy permutations) +# +# Meaning: General Category 'Cf' +# +return <<'END'; +00AD +0600 0603 +06DD +070F +17B4 17B5 +200B 200F +202A 202E +2060 2064 +206A 206F +FEFF +FFF9 FFFB +1D173 1D17A +E0001 +E0020 E007F +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Cham.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Cham.pl new file mode 100644 index 0000000..53397fb --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Cham.pl @@ -0,0 +1,20 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Cham} (and fuzzy permutations) +# +# Meaning: Script 'Cham' +# +return <<'END'; +AA00 AA36 Cham +AA40 AA4D Cham +AA50 AA59 Cham +AA5C AA5F Cham +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Cher.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Cher.pl new file mode 100644 index 0000000..f79f5a2 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Cher.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Cherokee} (and fuzzy permutations) +# +# Meaning: Script 'Cherokee' +# +return <<'END'; +13A0 13F4 Cherokee +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Cn.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Cn.pl new file mode 100644 index 0000000..5fa537e --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Cn.pl @@ -0,0 +1,462 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Cn} +# \p{Cn} (and fuzzy permutations) +# +# Meaning: General Category 'Cn' [not functional in Perl] +# +return <<'END'; +0378 0379 +037F 0383 +038B +038D +03A2 +0524 0530 +0557 0558 +0560 +0588 +058B 0590 +05C8 05CF +05EB 05EF +05F5 05FF +0604 0605 +061C 061D +0620 +065F +070E +074B 074C +07B2 07BF +07FB 0900 +093A 093B +094E 094F +0955 0957 +0973 097A +0980 +0984 +098D 098E +0991 0992 +09A9 +09B1 +09B3 09B5 +09BA 09BB +09C5 09C6 +09C9 09CA +09CF 09D6 +09D8 09DB +09DE +09E4 09E5 +09FB 0A00 +0A04 +0A0B 0A0E +0A11 0A12 +0A29 +0A31 +0A34 +0A37 +0A3A 0A3B +0A3D +0A43 0A46 +0A49 0A4A +0A4E 0A50 +0A52 0A58 +0A5D +0A5F 0A65 +0A76 0A80 +0A84 +0A8E +0A92 +0AA9 +0AB1 +0AB4 +0ABA 0ABB +0AC6 +0ACA +0ACE 0ACF +0AD1 0ADF +0AE4 0AE5 +0AF0 +0AF2 0B00 +0B04 +0B0D 0B0E +0B11 0B12 +0B29 +0B31 +0B34 +0B3A 0B3B +0B45 0B46 +0B49 0B4A +0B4E 0B55 +0B58 0B5B +0B5E +0B64 0B65 +0B72 0B81 +0B84 +0B8B 0B8D +0B91 +0B96 0B98 +0B9B +0B9D +0BA0 0BA2 +0BA5 0BA7 +0BAB 0BAD +0BBA 0BBD +0BC3 0BC5 +0BC9 +0BCE 0BCF +0BD1 0BD6 +0BD8 0BE5 +0BFB 0C00 +0C04 +0C0D +0C11 +0C29 +0C34 +0C3A 0C3C +0C45 +0C49 +0C4E 0C54 +0C57 +0C5A 0C5F +0C64 0C65 +0C70 0C77 +0C80 0C81 +0C84 +0C8D +0C91 +0CA9 +0CB4 +0CBA 0CBB +0CC5 +0CC9 +0CCE 0CD4 +0CD7 0CDD +0CDF +0CE4 0CE5 +0CF0 +0CF3 0D01 +0D04 +0D0D +0D11 +0D29 +0D3A 0D3C +0D45 +0D49 +0D4E 0D56 +0D58 0D5F +0D64 0D65 +0D76 0D78 +0D80 0D81 +0D84 +0D97 0D99 +0DB2 +0DBC +0DBE 0DBF +0DC7 0DC9 +0DCB 0DCE +0DD5 +0DD7 +0DE0 0DF1 +0DF5 0E00 +0E3B 0E3E +0E5C 0E80 +0E83 +0E85 0E86 +0E89 +0E8B 0E8C +0E8E 0E93 +0E98 +0EA0 +0EA4 +0EA6 +0EA8 0EA9 +0EAC +0EBA +0EBE 0EBF +0EC5 +0EC7 +0ECE 0ECF +0EDA 0EDB +0EDE 0EFF +0F48 +0F6D 0F70 +0F8C 0F8F +0F98 +0FBD +0FCD +0FD5 0FFF +109A 109D +10C6 10CF +10FD 10FF +115A 115E +11A3 11A7 +11FA 11FF +1249 +124E 124F +1257 +1259 +125E 125F +1289 +128E 128F +12B1 +12B6 12B7 +12BF +12C1 +12C6 12C7 +12D7 +1311 +1316 1317 +135B 135E +137D 137F +139A 139F +13F5 1400 +1677 167F +169D 169F +16F1 16FF +170D +1715 171F +1737 173F +1754 175F +176D +1771 +1774 177F +17DE 17DF +17EA 17EF +17FA 17FF +180F +181A 181F +1878 187F +18AB 18FF +191D 191F +192C 192F +193C 193F +1941 1943 +196E 196F +1975 197F +19AA 19AF +19CA 19CF +19DA 19DD +1A1C 1A1D +1A20 1AFF +1B4C 1B4F +1B7D 1B7F +1BAB 1BAD +1BBA 1BFF +1C38 1C3A +1C4A 1C4C +1C80 1CFF +1DE7 1DFD +1F16 1F17 +1F1E 1F1F +1F46 1F47 +1F4E 1F4F +1F58 +1F5A +1F5C +1F5E +1F7E 1F7F +1FB5 +1FC5 +1FD4 1FD5 +1FDC +1FF0 1FF1 +1FF5 +1FFF +2065 2069 +2072 2073 +208F +2095 209F +20B6 20CF +20F1 20FF +2150 2152 +2189 218F +23E8 23FF +2427 243F +244B 245F +269E 269F +26BD 26BF +26C4 2700 +2705 +270A 270B +2728 +274C +274E +2753 2755 +2757 +275F 2760 +2795 2797 +27B0 +27BF +27CB +27CD 27CF +2B4D 2B4F +2B55 2BFF +2C2F +2C5F +2C70 +2C7E 2C7F +2CEB 2CF8 +2D26 2D2F +2D66 2D6E +2D70 2D7F +2D97 2D9F +2DA7 +2DAF +2DB7 +2DBF +2DC7 +2DCF +2DD7 +2DDF +2E31 2E7F +2E9A +2EF4 2EFF +2FD6 2FEF +2FFC 2FFF +3040 +3097 3098 +3100 3104 +312E 3130 +318F +31B8 31BF +31E4 31EF +321F +3244 324F +32FF +4DB6 4DBF +9FC4 9FFF +A48D A48F +A4C7 A4FF +A62C A63F +A660 A661 +A674 A67B +A698 A6FF +A78D A7FA +A82C A83F +A878 A87F +A8C5 A8CD +A8DA A8FF +A954 A95E +A960 A9FF +AA37 AA3F +AA4E AA4F +AA5A AA5B +AA60 ABFF +D7A4 D7FF +FA2E FA2F +FA6B FA6F +FADA FAFF +FB07 FB12 +FB18 FB1C +FB37 +FB3D +FB3F +FB42 +FB45 +FBB2 FBD2 +FD40 FD4F +FD90 FD91 +FDC8 FDEF +FDFE FDFF +FE1A FE1F +FE27 FE2F +FE53 +FE67 +FE6C FE6F +FE75 +FEFD FEFE +FF00 +FFBF FFC1 +FFC8 FFC9 +FFD0 FFD1 +FFD8 FFD9 +FFDD FFDF +FFE7 +FFEF FFF8 +FFFE FFFF +1000C +10027 +1003B +1003E +1004E 1004F +1005E 1007F +100FB 100FF +10103 10106 +10134 10136 +1018B 1018F +1019C 101CF +101FE 1027F +1029D 1029F +102D1 102FF +1031F +10324 1032F +1034B 1037F +1039E +103C4 103C7 +103D6 103FF +1049E 1049F +104AA 107FF +10806 10807 +10809 +10836 +10839 1083B +1083D 1083E +10840 108FF +1091A 1091E +1093A 1093E +10940 109FF +10A04 +10A07 10A0B +10A14 +10A18 +10A34 10A37 +10A3B 10A3E +10A48 10A4F +10A59 11FFF +1236F 123FF +12463 1246F +12474 1CFFF +1D0F6 1D0FF +1D127 1D128 +1D1DE 1D1FF +1D246 1D2FF +1D357 1D35F +1D372 1D3FF +1D455 +1D49D +1D4A0 1D4A1 +1D4A3 1D4A4 +1D4A7 1D4A8 +1D4AD +1D4BA +1D4BC +1D4C4 +1D506 +1D50B 1D50C +1D515 +1D51D +1D53A +1D53F +1D545 +1D547 1D549 +1D551 +1D6A6 1D6A7 +1D7CC 1D7CD +1D800 1EFFF +1F02C 1F02F +1F094 1FFFF +2A6D7 2F7FF +2FA1E E0000 +E0002 E001F +E0080 E00FF +E01F0 EFFFF +FFFFE FFFFF +10FFFE 10FFFF +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Cntrl.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Cntrl.pl new file mode 100644 index 0000000..76cd53e --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Cntrl.pl @@ -0,0 +1,35 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Cntrl} +# +# Meaning: [[:Cntrl:]] +# +return <<'END'; +0000 001F +007F 009F +00AD +0600 0603 +06DD +070F +17B4 17B5 +200B 200F +202A 202E +2060 2064 +206A 206F +D800 F8FF +FEFF +FFF9 FFFB +1D173 1D17A +E0001 +E0020 E007F +F0000 FFFFD +100000 10FFFD +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Co.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Co.pl new file mode 100644 index 0000000..4c03415 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Co.pl @@ -0,0 +1,20 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Co} +# \p{Co} (and fuzzy permutations) +# +# Meaning: General Category 'Co' +# +return <<'END'; +E000 F8FF +F0000 FFFFD +100000 10FFFD +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Copt.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Copt.pl new file mode 100644 index 0000000..ab81b59 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Copt.pl @@ -0,0 +1,19 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Coptic} (and fuzzy permutations) +# +# Meaning: Script 'Coptic' +# +return <<'END'; +03E2 03EF Coptic +2C80 2CEA Coptic +2CF9 2CFF Coptic +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Cprt.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Cprt.pl new file mode 100644 index 0000000..ce0b061 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Cprt.pl @@ -0,0 +1,22 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Cypriot} (and fuzzy permutations) +# +# Meaning: Script 'Cypriot' +# +return <<'END'; +10800 10805 Cypriot +10808 Cypriot +1080A 10835 Cypriot +10837 10838 Cypriot +1083C Cypriot +1083F Cypriot +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Cs.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Cs.pl new file mode 100644 index 0000000..81e87c9 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Cs.pl @@ -0,0 +1,18 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Cs} +# \p{Cs} (and fuzzy permutations) +# +# Meaning: General Category 'Cs' +# +return <<'END'; +D800 DFFF +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Cyrl.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Cyrl.pl new file mode 100644 index 0000000..572213e --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Cyrl.pl @@ -0,0 +1,23 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Cyrillic} (and fuzzy permutations) +# +# Meaning: Script 'Cyrillic' +# +return <<'END'; +0400 0523 Cyrillic +1D2B Cyrillic +1D78 Cyrillic +2DE0 2DFF Cyrillic +A640 A65F Cyrillic +A662 A673 Cyrillic +A67C A697 Cyrillic +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Dash.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Dash.pl new file mode 100644 index 0000000..df151fd --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Dash.pl @@ -0,0 +1,31 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Binary property 'Dash' +# +return <<'END'; +002D Dash +058A Dash +05BE Dash +1806 Dash +2010 2015 Dash +2053 Dash +207B Dash +208B Dash +2212 Dash +2E17 Dash +2E1A Dash +301C Dash +3030 Dash +30A0 Dash +FE31 FE32 Dash +FE58 Dash +FE63 Dash +FF0D Dash +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Dash2.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Dash2.pl new file mode 100644 index 0000000..9a24886 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Dash2.pl @@ -0,0 +1,34 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Dash} (and fuzzy permutations) +# +# Meaning: Extended property 'Dash' +# +return <<'END'; +002D Dash +058A Dash +05BE Dash +1806 Dash +2010 2015 Dash +2053 Dash +207B Dash +208B Dash +2212 Dash +2E17 Dash +2E1A Dash +301C Dash +3030 Dash +30A0 Dash +FE31 FE32 Dash +FE58 Dash +FE63 Dash +FF0D Dash +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/DefaultI.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/DefaultI.pl new file mode 100644 index 0000000..ab816c4 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/DefaultI.pl @@ -0,0 +1,56 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{DefaultIgnorableCodePoint} (and fuzzy permutations) +# +# Meaning: (?![\p{WhiteSpace}\x{FFF9}-\x{FFFB}])[\p{Cf}\p{Cc}\p{Cs}\p{NoncharacterCodePoint}\p{VariationSelector}\p{OtherDefaultIgnorableCodePoint}] +# +return <<'END'; +0000 0008 +000E 001F +007F 0084 +0086 009F +00AD +034F +0600 0603 +06DD +070F +115F 1160 +17B4 17B5 +180B 180D +200B 200F +202A 202E +2060 206F +3164 +D800 DFFF +FDD0 FDEF +FE00 FE0F +FEFF +FFA0 +FFF0 FFF8 +FFFE FFFF +1D173 1D17A +1FFFE 1FFFF +2FFFE 2FFFF +3FFFE 3FFFF +4FFFE 4FFFF +5FFFE 5FFFF +6FFFE 6FFFF +7FFFE 7FFFF +8FFFE 8FFFF +9FFFE 9FFFF +AFFFE AFFFF +BFFFE BFFFF +CFFFE CFFFF +DFFFE E0FFF +EFFFE EFFFF +FFFFE FFFFF +10FFFE 10FFFF +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Dep.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Dep.pl new file mode 100644 index 0000000..788517f --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Dep.pl @@ -0,0 +1,19 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Binary property 'Deprecated' +# +return <<'END'; +0340 0341 Deprecated +17A3 Deprecated +17D3 Deprecated +206A 206F Deprecated +E0001 Deprecated +E0020 E007F Deprecated +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Deprecat.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Deprecat.pl new file mode 100644 index 0000000..0b3c5bd --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Deprecat.pl @@ -0,0 +1,22 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Deprecated} (and fuzzy permutations) +# +# Meaning: Extended property 'Deprecated' +# +return <<'END'; +0340 0341 Deprecated +17A3 Deprecated +17D3 Deprecated +206A 206F Deprecated +E0001 Deprecated +E0020 E007F Deprecated +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Deva.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Deva.pl new file mode 100644 index 0000000..656f94d --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Deva.pl @@ -0,0 +1,24 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Devanagari} (and fuzzy permutations) +# +# Meaning: Script 'Devanagari' +# +return <<'END'; +0901 0939 Devanagari +093C 094D Devanagari +0950 Devanagari +0953 0954 Devanagari +0958 0963 Devanagari +0966 096F Devanagari +0971 0972 Devanagari +097B 097F Devanagari +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Dia.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Dia.pl new file mode 100644 index 0000000..0b7efca --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Dia.pl @@ -0,0 +1,115 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Binary property 'Diacritic' +# +return <<'END'; +005E Diacritic +0060 Diacritic +00A8 Diacritic +00AF Diacritic +00B4 Diacritic +00B7 00B8 Diacritic +02B0 034E Diacritic +0350 0357 Diacritic +035D 0362 Diacritic +0374 0375 Diacritic +037A Diacritic +0384 0385 Diacritic +0483 0487 Diacritic +0559 Diacritic +0591 05A1 Diacritic +05A3 05BD Diacritic +05BF Diacritic +05C1 05C2 Diacritic +05C4 Diacritic +064B 0652 Diacritic +0657 0658 Diacritic +06DF 06E0 Diacritic +06E5 06E6 Diacritic +06EA 06EC Diacritic +0730 074A Diacritic +07A6 07B0 Diacritic +07EB 07F5 Diacritic +093C Diacritic +094D Diacritic +0951 0954 Diacritic +0971 Diacritic +09BC Diacritic +09CD Diacritic +0A3C Diacritic +0A4D Diacritic +0ABC Diacritic +0ACD Diacritic +0B3C Diacritic +0B4D Diacritic +0BCD Diacritic +0C4D Diacritic +0CBC Diacritic +0CCD Diacritic +0D4D Diacritic +0DCA Diacritic +0E47 0E4C Diacritic +0E4E Diacritic +0EC8 0ECC Diacritic +0F18 0F19 Diacritic +0F35 Diacritic +0F37 Diacritic +0F39 Diacritic +0F3E 0F3F Diacritic +0F82 0F84 Diacritic +0F86 0F87 Diacritic +0FC6 Diacritic +1037 Diacritic +1039 103A Diacritic +1087 108D Diacritic +108F Diacritic +17C9 17D3 Diacritic +17DD Diacritic +1939 193B Diacritic +1B34 Diacritic +1B44 Diacritic +1B6B 1B73 Diacritic +1BAA Diacritic +1C36 1C37 Diacritic +1C78 1C7D Diacritic +1D2C 1D6A Diacritic +1DC4 1DCF Diacritic +1DFE 1DFF Diacritic +1FBD Diacritic +1FBF 1FC1 Diacritic +1FCD 1FCF Diacritic +1FDD 1FDF Diacritic +1FED 1FEF Diacritic +1FFD 1FFE Diacritic +2E2F Diacritic +302A 302F Diacritic +3099 309C Diacritic +30FC Diacritic +A66F Diacritic +A67C A67D Diacritic +A67F Diacritic +A717 A721 Diacritic +A788 Diacritic +A8C4 Diacritic +A92B A92E Diacritic +A953 Diacritic +FB1E Diacritic +FE20 FE26 Diacritic +FF3E Diacritic +FF40 Diacritic +FF70 Diacritic +FF9E FF9F Diacritic +FFE3 Diacritic +1D167 1D169 Diacritic +1D16D 1D172 Diacritic +1D17B 1D182 Diacritic +1D185 1D18B Diacritic +1D1AA 1D1AD Diacritic +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Diacriti.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Diacriti.pl new file mode 100644 index 0000000..7afea68 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Diacriti.pl @@ -0,0 +1,118 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Diacritic} (and fuzzy permutations) +# +# Meaning: Extended property 'Diacritic' +# +return <<'END'; +005E Diacritic +0060 Diacritic +00A8 Diacritic +00AF Diacritic +00B4 Diacritic +00B7 00B8 Diacritic +02B0 034E Diacritic +0350 0357 Diacritic +035D 0362 Diacritic +0374 0375 Diacritic +037A Diacritic +0384 0385 Diacritic +0483 0487 Diacritic +0559 Diacritic +0591 05A1 Diacritic +05A3 05BD Diacritic +05BF Diacritic +05C1 05C2 Diacritic +05C4 Diacritic +064B 0652 Diacritic +0657 0658 Diacritic +06DF 06E0 Diacritic +06E5 06E6 Diacritic +06EA 06EC Diacritic +0730 074A Diacritic +07A6 07B0 Diacritic +07EB 07F5 Diacritic +093C Diacritic +094D Diacritic +0951 0954 Diacritic +0971 Diacritic +09BC Diacritic +09CD Diacritic +0A3C Diacritic +0A4D Diacritic +0ABC Diacritic +0ACD Diacritic +0B3C Diacritic +0B4D Diacritic +0BCD Diacritic +0C4D Diacritic +0CBC Diacritic +0CCD Diacritic +0D4D Diacritic +0DCA Diacritic +0E47 0E4C Diacritic +0E4E Diacritic +0EC8 0ECC Diacritic +0F18 0F19 Diacritic +0F35 Diacritic +0F37 Diacritic +0F39 Diacritic +0F3E 0F3F Diacritic +0F82 0F84 Diacritic +0F86 0F87 Diacritic +0FC6 Diacritic +1037 Diacritic +1039 103A Diacritic +1087 108D Diacritic +108F Diacritic +17C9 17D3 Diacritic +17DD Diacritic +1939 193B Diacritic +1B34 Diacritic +1B44 Diacritic +1B6B 1B73 Diacritic +1BAA Diacritic +1C36 1C37 Diacritic +1C78 1C7D Diacritic +1D2C 1D6A Diacritic +1DC4 1DCF Diacritic +1DFE 1DFF Diacritic +1FBD Diacritic +1FBF 1FC1 Diacritic +1FCD 1FCF Diacritic +1FDD 1FDF Diacritic +1FED 1FEF Diacritic +1FFD 1FFE Diacritic +2E2F Diacritic +302A 302F Diacritic +3099 309C Diacritic +30FC Diacritic +A66F Diacritic +A67C A67D Diacritic +A67F Diacritic +A717 A721 Diacritic +A788 Diacritic +A8C4 Diacritic +A92B A92E Diacritic +A953 Diacritic +FB1E Diacritic +FE20 FE26 Diacritic +FF3E Diacritic +FF40 Diacritic +FF70 Diacritic +FF9E FF9F Diacritic +FFE3 Diacritic +1D167 1D169 Diacritic +1D16D 1D172 Diacritic +1D17B 1D182 Diacritic +1D185 1D18B Diacritic +1D1AA 1D1AD Diacritic +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Digit.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Digit.pl new file mode 100644 index 0000000..d1e86f1 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Digit.pl @@ -0,0 +1,49 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Digit} +# +# Meaning: [[:Digit:]] +# +return <<'END'; +0030 0039 +0660 0669 +06F0 06F9 +07C0 07C9 +0966 096F +09E6 09EF +0A66 0A6F +0AE6 0AEF +0B66 0B6F +0BE6 0BEF +0C66 0C6F +0CE6 0CEF +0D66 0D6F +0E50 0E59 +0ED0 0ED9 +0F20 0F29 +1040 1049 +1090 1099 +17E0 17E9 +1810 1819 +1946 194F +19D0 19D9 +1B50 1B59 +1BB0 1BB9 +1C40 1C49 +1C50 1C59 +A620 A629 +A8D0 A8D9 +A900 A909 +AA50 AA59 +FF10 FF19 +104A0 104A9 +1D7CE 1D7FF +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Dsrt.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Dsrt.pl new file mode 100644 index 0000000..a8d8ee1 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Dsrt.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Deseret} (and fuzzy permutations) +# +# Meaning: Script 'Deseret' +# +return <<'END'; +10400 1044F Deseret +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Ethi.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Ethi.pl new file mode 100644 index 0000000..8a170be --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Ethi.pl @@ -0,0 +1,43 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Ethiopic} (and fuzzy permutations) +# +# Meaning: Script 'Ethiopic' +# +return <<'END'; +1200 1248 Ethiopic +124A 124D Ethiopic +1250 1256 Ethiopic +1258 Ethiopic +125A 125D Ethiopic +1260 1288 Ethiopic +128A 128D Ethiopic +1290 12B0 Ethiopic +12B2 12B5 Ethiopic +12B8 12BE Ethiopic +12C0 Ethiopic +12C2 12C5 Ethiopic +12C8 12D6 Ethiopic +12D8 1310 Ethiopic +1312 1315 Ethiopic +1318 135A Ethiopic +135F 137C Ethiopic +1380 1399 Ethiopic +2D80 2D96 Ethiopic +2DA0 2DA6 Ethiopic +2DA8 2DAE Ethiopic +2DB0 2DB6 Ethiopic +2DB8 2DBE Ethiopic +2DC0 2DC6 Ethiopic +2DC8 2DCE Ethiopic +2DD0 2DD6 Ethiopic +2DD8 2DDE Ethiopic +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Ext.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Ext.pl new file mode 100644 index 0000000..2838942 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Ext.pl @@ -0,0 +1,29 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Binary property 'Extender' +# +return <<'END'; +00B7 Extender +02D0 02D1 Extender +0640 Extender +07FA Extender +0E46 Extender +0EC6 Extender +1843 Extender +1C36 Extender +1C7B Extender +3005 Extender +3031 3035 Extender +309D 309E Extender +30FC 30FE Extender +A015 Extender +A60C Extender +FF70 Extender +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Extender.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Extender.pl new file mode 100644 index 0000000..aa4cccd --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Extender.pl @@ -0,0 +1,32 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Extender} (and fuzzy permutations) +# +# Meaning: Extended property 'Extender' +# +return <<'END'; +00B7 Extender +02D0 02D1 Extender +0640 Extender +07FA Extender +0E46 Extender +0EC6 Extender +1843 Extender +1C36 Extender +1C7B Extender +3005 Extender +3031 3035 Extender +309D 309E Extender +30FC 30FE Extender +A015 Extender +A60C Extender +FF70 Extender +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Geor.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Geor.pl new file mode 100644 index 0000000..e0486ad --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Geor.pl @@ -0,0 +1,20 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Georgian} (and fuzzy permutations) +# +# Meaning: Script 'Georgian' +# +return <<'END'; +10A0 10C5 Georgian +10D0 10FA Georgian +10FC Georgian +2D00 2D25 Georgian +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Glag.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Glag.pl new file mode 100644 index 0000000..67270d2 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Glag.pl @@ -0,0 +1,18 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Glagolitic} (and fuzzy permutations) +# +# Meaning: Script 'Glagolitic' +# +return <<'END'; +2C00 2C2E Glagolitic +2C30 2C5E Glagolitic +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Goth.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Goth.pl new file mode 100644 index 0000000..e832fad --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Goth.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Gothic} (and fuzzy permutations) +# +# Meaning: Script 'Gothic' +# +return <<'END'; +10330 1034A Gothic +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Graph.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Graph.pl new file mode 100644 index 0000000..cd17411 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Graph.pl @@ -0,0 +1,465 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Graph} +# +# Meaning: [[:Graph:]] +# +return <<'END'; +0021 007E +00A1 0377 +037A 037E +0384 038A +038C +038E 03A1 +03A3 0523 +0531 0556 +0559 055F +0561 0587 +0589 058A +0591 05C7 +05D0 05EA +05F0 05F4 +0600 0603 +0606 061B +061E 061F +0621 065E +0660 070D +070F 074A +074D 07B1 +07C0 07FA +0901 0939 +093C 094D +0950 0954 +0958 0972 +097B 097F +0981 0983 +0985 098C +098F 0990 +0993 09A8 +09AA 09B0 +09B2 +09B6 09B9 +09BC 09C4 +09C7 09C8 +09CB 09CE +09D7 +09DC 09DD +09DF 09E3 +09E6 09FA +0A01 0A03 +0A05 0A0A +0A0F 0A10 +0A13 0A28 +0A2A 0A30 +0A32 0A33 +0A35 0A36 +0A38 0A39 +0A3C +0A3E 0A42 +0A47 0A48 +0A4B 0A4D +0A51 +0A59 0A5C +0A5E +0A66 0A75 +0A81 0A83 +0A85 0A8D +0A8F 0A91 +0A93 0AA8 +0AAA 0AB0 +0AB2 0AB3 +0AB5 0AB9 +0ABC 0AC5 +0AC7 0AC9 +0ACB 0ACD +0AD0 +0AE0 0AE3 +0AE6 0AEF +0AF1 +0B01 0B03 +0B05 0B0C +0B0F 0B10 +0B13 0B28 +0B2A 0B30 +0B32 0B33 +0B35 0B39 +0B3C 0B44 +0B47 0B48 +0B4B 0B4D +0B56 0B57 +0B5C 0B5D +0B5F 0B63 +0B66 0B71 +0B82 0B83 +0B85 0B8A +0B8E 0B90 +0B92 0B95 +0B99 0B9A +0B9C +0B9E 0B9F +0BA3 0BA4 +0BA8 0BAA +0BAE 0BB9 +0BBE 0BC2 +0BC6 0BC8 +0BCA 0BCD +0BD0 +0BD7 +0BE6 0BFA +0C01 0C03 +0C05 0C0C +0C0E 0C10 +0C12 0C28 +0C2A 0C33 +0C35 0C39 +0C3D 0C44 +0C46 0C48 +0C4A 0C4D +0C55 0C56 +0C58 0C59 +0C60 0C63 +0C66 0C6F +0C78 0C7F +0C82 0C83 +0C85 0C8C +0C8E 0C90 +0C92 0CA8 +0CAA 0CB3 +0CB5 0CB9 +0CBC 0CC4 +0CC6 0CC8 +0CCA 0CCD +0CD5 0CD6 +0CDE +0CE0 0CE3 +0CE6 0CEF +0CF1 0CF2 +0D02 0D03 +0D05 0D0C +0D0E 0D10 +0D12 0D28 +0D2A 0D39 +0D3D 0D44 +0D46 0D48 +0D4A 0D4D +0D57 +0D60 0D63 +0D66 0D75 +0D79 0D7F +0D82 0D83 +0D85 0D96 +0D9A 0DB1 +0DB3 0DBB +0DBD +0DC0 0DC6 +0DCA +0DCF 0DD4 +0DD6 +0DD8 0DDF +0DF2 0DF4 +0E01 0E3A +0E3F 0E5B +0E81 0E82 +0E84 +0E87 0E88 +0E8A +0E8D +0E94 0E97 +0E99 0E9F +0EA1 0EA3 +0EA5 +0EA7 +0EAA 0EAB +0EAD 0EB9 +0EBB 0EBD +0EC0 0EC4 +0EC6 +0EC8 0ECD +0ED0 0ED9 +0EDC 0EDD +0F00 0F47 +0F49 0F6C +0F71 0F8B +0F90 0F97 +0F99 0FBC +0FBE 0FCC +0FCE 0FD4 +1000 1099 +109E 10C5 +10D0 10FC +1100 1159 +115F 11A2 +11A8 11F9 +1200 1248 +124A 124D +1250 1256 +1258 +125A 125D +1260 1288 +128A 128D +1290 12B0 +12B2 12B5 +12B8 12BE +12C0 +12C2 12C5 +12C8 12D6 +12D8 1310 +1312 1315 +1318 135A +135F 137C +1380 1399 +13A0 13F4 +1401 1676 +1681 169C +16A0 16F0 +1700 170C +170E 1714 +1720 1736 +1740 1753 +1760 176C +176E 1770 +1772 1773 +1780 17DD +17E0 17E9 +17F0 17F9 +1800 180D +1810 1819 +1820 1877 +1880 18AA +1900 191C +1920 192B +1930 193B +1940 +1944 196D +1970 1974 +1980 19A9 +19B0 19C9 +19D0 19D9 +19DE 1A1B +1A1E 1A1F +1B00 1B4B +1B50 1B7C +1B80 1BAA +1BAE 1BB9 +1C00 1C37 +1C3B 1C49 +1C4D 1C7F +1D00 1DE6 +1DFE 1F15 +1F18 1F1D +1F20 1F45 +1F48 1F4D +1F50 1F57 +1F59 +1F5B +1F5D +1F5F 1F7D +1F80 1FB4 +1FB6 1FC4 +1FC6 1FD3 +1FD6 1FDB +1FDD 1FEF +1FF2 1FF4 +1FF6 1FFE +200B 2027 +202A 202E +2030 205E +2060 2064 +206A 2071 +2074 208E +2090 2094 +20A0 20B5 +20D0 20F0 +2100 214F +2153 2188 +2190 23E7 +2400 2426 +2440 244A +2460 269D +26A0 26BC +26C0 26C3 +2701 2704 +2706 2709 +270C 2727 +2729 274B +274D +274F 2752 +2756 +2758 275E +2761 2794 +2798 27AF +27B1 27BE +27C0 27CA +27CC +27D0 2B4C +2B50 2B54 +2C00 2C2E +2C30 2C5E +2C60 2C6F +2C71 2C7D +2C80 2CEA +2CF9 2D25 +2D30 2D65 +2D6F +2D80 2D96 +2DA0 2DA6 +2DA8 2DAE +2DB0 2DB6 +2DB8 2DBE +2DC0 2DC6 +2DC8 2DCE +2DD0 2DD6 +2DD8 2DDE +2DE0 2E30 +2E80 2E99 +2E9B 2EF3 +2F00 2FD5 +2FF0 2FFB +3001 303F +3041 3096 +3099 30FF +3105 312D +3131 318E +3190 31B7 +31C0 31E3 +31F0 321E +3220 3243 +3250 32FE +3300 4DB5 +4DC0 9FC3 +A000 A48C +A490 A4C6 +A500 A62B +A640 A65F +A662 A673 +A67C A697 +A700 A78C +A7FB A82B +A840 A877 +A880 A8C4 +A8CE A8D9 +A900 A953 +A95F +AA00 AA36 +AA40 AA4D +AA50 AA59 +AA5C AA5F +AC00 D7A3 +E000 FA2D +FA30 FA6A +FA70 FAD9 +FB00 FB06 +FB13 FB17 +FB1D FB36 +FB38 FB3C +FB3E +FB40 FB41 +FB43 FB44 +FB46 FBB1 +FBD3 FD3F +FD50 FD8F +FD92 FDC7 +FDF0 FDFD +FE00 FE19 +FE20 FE26 +FE30 FE52 +FE54 FE66 +FE68 FE6B +FE70 FE74 +FE76 FEFC +FEFF +FF01 FFBE +FFC2 FFC7 +FFCA FFCF +FFD2 FFD7 +FFDA FFDC +FFE0 FFE6 +FFE8 FFEE +FFF9 FFFD +10000 1000B +1000D 10026 +10028 1003A +1003C 1003D +1003F 1004D +10050 1005D +10080 100FA +10100 10102 +10107 10133 +10137 1018A +10190 1019B +101D0 101FD +10280 1029C +102A0 102D0 +10300 1031E +10320 10323 +10330 1034A +10380 1039D +1039F 103C3 +103C8 103D5 +10400 1049D +104A0 104A9 +10800 10805 +10808 +1080A 10835 +10837 10838 +1083C +1083F +10900 10919 +1091F 10939 +1093F +10A00 10A03 +10A05 10A06 +10A0C 10A13 +10A15 10A17 +10A19 10A33 +10A38 10A3A +10A3F 10A47 +10A50 10A58 +12000 1236E +12400 12462 +12470 12473 +1D000 1D0F5 +1D100 1D126 +1D129 1D1DD +1D200 1D245 +1D300 1D356 +1D360 1D371 +1D400 1D454 +1D456 1D49C +1D49E 1D49F +1D4A2 +1D4A5 1D4A6 +1D4A9 1D4AC +1D4AE 1D4B9 +1D4BB +1D4BD 1D4C3 +1D4C5 1D505 +1D507 1D50A +1D50D 1D514 +1D516 1D51C +1D51E 1D539 +1D53B 1D53E +1D540 1D544 +1D546 +1D54A 1D550 +1D552 1D6A5 +1D6A8 1D7CB +1D7CE 1D7FF +1F000 1F02B +1F030 1F093 +20000 2A6D6 +2F800 2FA1D +E0001 +E0020 E007F +E0100 E01EF +F0000 FFFFD +100000 10FFFD +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Grek.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Grek.pl new file mode 100644 index 0000000..65d1d4c --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Grek.pl @@ -0,0 +1,49 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Greek} (and fuzzy permutations) +# +# Meaning: Script 'Greek' +# +return <<'END'; +0370 0373 Greek +0375 0377 Greek +037A 037D Greek +0384 Greek +0386 Greek +0388 038A Greek +038C Greek +038E 03A1 Greek +03A3 03E1 Greek +03F0 03FF Greek +1D26 1D2A Greek +1D5D 1D61 Greek +1D66 1D6A Greek +1DBF Greek +1F00 1F15 Greek +1F18 1F1D Greek +1F20 1F45 Greek +1F48 1F4D Greek +1F50 1F57 Greek +1F59 Greek +1F5B Greek +1F5D Greek +1F5F 1F7D Greek +1F80 1FB4 Greek +1FB6 1FC4 Greek +1FC6 1FD3 Greek +1FD6 1FDB Greek +1FDD 1FEF Greek +1FF2 1FF4 Greek +1FF6 1FFE Greek +2126 Greek +10140 1018A Greek +1D200 1D245 Greek +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Gujr.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Gujr.pl new file mode 100644 index 0000000..2750dea --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Gujr.pl @@ -0,0 +1,30 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Gujarati} (and fuzzy permutations) +# +# Meaning: Script 'Gujarati' +# +return <<'END'; +0A81 0A83 Gujarati +0A85 0A8D Gujarati +0A8F 0A91 Gujarati +0A93 0AA8 Gujarati +0AAA 0AB0 Gujarati +0AB2 0AB3 Gujarati +0AB5 0AB9 Gujarati +0ABC 0AC5 Gujarati +0AC7 0AC9 Gujarati +0ACB 0ACD Gujarati +0AD0 Gujarati +0AE0 0AE3 Gujarati +0AE6 0AEF Gujarati +0AF1 Gujarati +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Guru.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Guru.pl new file mode 100644 index 0000000..2785675 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Guru.pl @@ -0,0 +1,32 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Gurmukhi} (and fuzzy permutations) +# +# Meaning: Script 'Gurmukhi' +# +return <<'END'; +0A01 0A03 Gurmukhi +0A05 0A0A Gurmukhi +0A0F 0A10 Gurmukhi +0A13 0A28 Gurmukhi +0A2A 0A30 Gurmukhi +0A32 0A33 Gurmukhi +0A35 0A36 Gurmukhi +0A38 0A39 Gurmukhi +0A3C Gurmukhi +0A3E 0A42 Gurmukhi +0A47 0A48 Gurmukhi +0A4B 0A4D Gurmukhi +0A51 Gurmukhi +0A59 0A5C Gurmukhi +0A5E Gurmukhi +0A66 0A75 Gurmukhi +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Hang.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Hang.pl new file mode 100644 index 0000000..a99e6d6 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Hang.pl @@ -0,0 +1,28 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Hangul} (and fuzzy permutations) +# +# Meaning: Script 'Hangul' +# +return <<'END'; +1100 1159 Hangul +115F 11A2 Hangul +11A8 11F9 Hangul +3131 318E Hangul +3200 321E Hangul +3260 327E Hangul +AC00 D7A3 Hangul +FFA0 FFBE Hangul +FFC2 FFC7 Hangul +FFCA FFCF Hangul +FFD2 FFD7 Hangul +FFDA FFDC Hangul +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Hani.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Hani.pl new file mode 100644 index 0000000..f80ff27 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Hani.pl @@ -0,0 +1,30 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Han} (and fuzzy permutations) +# +# Meaning: Script 'Han' +# +return <<'END'; +2E80 2E99 Han +2E9B 2EF3 Han +2F00 2FD5 Han +3005 Han +3007 Han +3021 3029 Han +3038 303B Han +3400 4DB5 Han +4E00 9FC3 Han +F900 FA2D Han +FA30 FA6A Han +FA70 FAD9 Han +20000 2A6D6 Han +2F800 2FA1D Han +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Hano.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Hano.pl new file mode 100644 index 0000000..d93f8c9 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Hano.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Hanunoo} (and fuzzy permutations) +# +# Meaning: Script 'Hanunoo' +# +return <<'END'; +1720 1734 Hanunoo +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Hebr.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Hebr.pl new file mode 100644 index 0000000..b8e2bdc --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Hebr.pl @@ -0,0 +1,25 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Hebrew} (and fuzzy permutations) +# +# Meaning: Script 'Hebrew' +# +return <<'END'; +0591 05C7 Hebrew +05D0 05EA Hebrew +05F0 05F4 Hebrew +FB1D FB36 Hebrew +FB38 FB3C Hebrew +FB3E Hebrew +FB40 FB41 Hebrew +FB43 FB44 Hebrew +FB46 FB4F Hebrew +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Hex.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Hex.pl new file mode 100644 index 0000000..119926b --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Hex.pl @@ -0,0 +1,19 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Binary property 'Hex_Digit' +# +return <<'END'; +0030 0039 Hex_Digit +0041 0046 Hex_Digit +0061 0066 Hex_Digit +FF10 FF19 Hex_Digit +FF21 FF26 Hex_Digit +FF41 FF46 Hex_Digit +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/HexDigit.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/HexDigit.pl new file mode 100644 index 0000000..341b9e4 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/HexDigit.pl @@ -0,0 +1,22 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{HexDigit} (and fuzzy permutations) +# +# Meaning: Extended property 'Hex_Digit' +# +return <<'END'; +0030 0039 Hex_Digit +0041 0046 Hex_Digit +0061 0066 Hex_Digit +FF10 FF19 Hex_Digit +FF21 FF26 Hex_Digit +FF41 FF46 Hex_Digit +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Hira.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Hira.pl new file mode 100644 index 0000000..f8dca97 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Hira.pl @@ -0,0 +1,18 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Hiragana} (and fuzzy permutations) +# +# Meaning: Script 'Hiragana' +# +return <<'END'; +3041 3096 Hiragana +309D 309F Hiragana +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/HorizSpa.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/HorizSpa.pl new file mode 100644 index 0000000..2904e0d --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/HorizSpa.pl @@ -0,0 +1,25 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{HorizSpace} +# +# Meaning: \h +# +return <<'END'; +0009 +0020 +00A0 +1680 +180E +2000 200A +202F +205F +3000 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Hyphen.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Hyphen.pl new file mode 100644 index 0000000..87a1bff --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Hyphen.pl @@ -0,0 +1,23 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Binary property 'Hyphen' +# +return <<'END'; +002D Hyphen +00AD Hyphen +058A Hyphen +1806 Hyphen +2010 2011 Hyphen +2E17 Hyphen +30FB Hyphen +FE63 Hyphen +FF0D Hyphen +FF65 Hyphen +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Hyphen2.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Hyphen2.pl new file mode 100644 index 0000000..f483bb2 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Hyphen2.pl @@ -0,0 +1,26 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Hyphen} (and fuzzy permutations) +# +# Meaning: Extended property 'Hyphen' +# +return <<'END'; +002D Hyphen +00AD Hyphen +058A Hyphen +1806 Hyphen +2010 2011 Hyphen +2E17 Hyphen +30FB Hyphen +FE63 Hyphen +FF0D Hyphen +FF65 Hyphen +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/IDSB.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/IDSB.pl new file mode 100644 index 0000000..0456004 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/IDSB.pl @@ -0,0 +1,15 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Binary property 'IDS_Binary_Operator' +# +return <<'END'; +2FF0 2FF1 IDS_Binary_Operator +2FF4 2FFB IDS_Binary_Operator +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/IDST.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/IDST.pl new file mode 100644 index 0000000..fb1aeb8 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/IDST.pl @@ -0,0 +1,14 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Binary property 'IDS_Trinary_Operator' +# +return <<'END'; +2FF2 2FF3 IDS_Trinary_Operator +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/IdContin.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/IdContin.pl new file mode 100644 index 0000000..08d06af --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/IdContin.pl @@ -0,0 +1,494 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{IdContinue} (and fuzzy permutations) +# +# Meaning: [\p{ID_Start}\p{Mn}\p{Mc}\p{Nd}\p{Pc}\p{OtherIDContinue}] +# +return <<'END'; +0030 0039 +0041 005A +005F +0061 007A +00AA +00B5 +00B7 +00BA +00C0 00D6 +00D8 00F6 +00F8 02C1 +02C6 02D1 +02E0 02E4 +02EC +02EE +0300 0374 +0376 0377 +037A 037D +0386 038A +038C +038E 03A1 +03A3 03F5 +03F7 0481 +0483 0487 +048A 0523 +0531 0556 +0559 +0561 0587 +0591 05BD +05BF +05C1 05C2 +05C4 05C5 +05C7 +05D0 05EA +05F0 05F2 +0610 061A +0621 065E +0660 0669 +066E 06D3 +06D5 06DC +06DF 06E8 +06EA 06FC +06FF +0710 074A +074D 07B1 +07C0 07F5 +07FA +0901 0939 +093C 094D +0950 0954 +0958 0963 +0966 096F +0971 0972 +097B 097F +0981 0983 +0985 098C +098F 0990 +0993 09A8 +09AA 09B0 +09B2 +09B6 09B9 +09BC 09C4 +09C7 09C8 +09CB 09CE +09D7 +09DC 09DD +09DF 09E3 +09E6 09F1 +0A01 0A03 +0A05 0A0A +0A0F 0A10 +0A13 0A28 +0A2A 0A30 +0A32 0A33 +0A35 0A36 +0A38 0A39 +0A3C +0A3E 0A42 +0A47 0A48 +0A4B 0A4D +0A51 +0A59 0A5C +0A5E +0A66 0A75 +0A81 0A83 +0A85 0A8D +0A8F 0A91 +0A93 0AA8 +0AAA 0AB0 +0AB2 0AB3 +0AB5 0AB9 +0ABC 0AC5 +0AC7 0AC9 +0ACB 0ACD +0AD0 +0AE0 0AE3 +0AE6 0AEF +0B01 0B03 +0B05 0B0C +0B0F 0B10 +0B13 0B28 +0B2A 0B30 +0B32 0B33 +0B35 0B39 +0B3C 0B44 +0B47 0B48 +0B4B 0B4D +0B56 0B57 +0B5C 0B5D +0B5F 0B63 +0B66 0B6F +0B71 +0B82 0B83 +0B85 0B8A +0B8E 0B90 +0B92 0B95 +0B99 0B9A +0B9C +0B9E 0B9F +0BA3 0BA4 +0BA8 0BAA +0BAE 0BB9 +0BBE 0BC2 +0BC6 0BC8 +0BCA 0BCD +0BD0 +0BD7 +0BE6 0BEF +0C01 0C03 +0C05 0C0C +0C0E 0C10 +0C12 0C28 +0C2A 0C33 +0C35 0C39 +0C3D 0C44 +0C46 0C48 +0C4A 0C4D +0C55 0C56 +0C58 0C59 +0C60 0C63 +0C66 0C6F +0C82 0C83 +0C85 0C8C +0C8E 0C90 +0C92 0CA8 +0CAA 0CB3 +0CB5 0CB9 +0CBC 0CC4 +0CC6 0CC8 +0CCA 0CCD +0CD5 0CD6 +0CDE +0CE0 0CE3 +0CE6 0CEF +0D02 0D03 +0D05 0D0C +0D0E 0D10 +0D12 0D28 +0D2A 0D39 +0D3D 0D44 +0D46 0D48 +0D4A 0D4D +0D57 +0D60 0D63 +0D66 0D6F +0D7A 0D7F +0D82 0D83 +0D85 0D96 +0D9A 0DB1 +0DB3 0DBB +0DBD +0DC0 0DC6 +0DCA +0DCF 0DD4 +0DD6 +0DD8 0DDF +0DF2 0DF3 +0E01 0E3A +0E40 0E4E +0E50 0E59 +0E81 0E82 +0E84 +0E87 0E88 +0E8A +0E8D +0E94 0E97 +0E99 0E9F +0EA1 0EA3 +0EA5 +0EA7 +0EAA 0EAB +0EAD 0EB9 +0EBB 0EBD +0EC0 0EC4 +0EC6 +0EC8 0ECD +0ED0 0ED9 +0EDC 0EDD +0F00 +0F18 0F19 +0F20 0F29 +0F35 +0F37 +0F39 +0F3E 0F47 +0F49 0F6C +0F71 0F84 +0F86 0F8B +0F90 0F97 +0F99 0FBC +0FC6 +1000 1049 +1050 1099 +10A0 10C5 +10D0 10FA +10FC +1100 1159 +115F 11A2 +11A8 11F9 +1200 1248 +124A 124D +1250 1256 +1258 +125A 125D +1260 1288 +128A 128D +1290 12B0 +12B2 12B5 +12B8 12BE +12C0 +12C2 12C5 +12C8 12D6 +12D8 1310 +1312 1315 +1318 135A +135F +1369 1371 +1380 138F +13A0 13F4 +1401 166C +166F 1676 +1681 169A +16A0 16EA +16EE 16F0 +1700 170C +170E 1714 +1720 1734 +1740 1753 +1760 176C +176E 1770 +1772 1773 +1780 17B3 +17B6 17D3 +17D7 +17DC 17DD +17E0 17E9 +180B 180D +1810 1819 +1820 1877 +1880 18AA +1900 191C +1920 192B +1930 193B +1946 196D +1970 1974 +1980 19A9 +19B0 19C9 +19D0 19D9 +1A00 1A1B +1B00 1B4B +1B50 1B59 +1B6B 1B73 +1B80 1BAA +1BAE 1BB9 +1C00 1C37 +1C40 1C49 +1C4D 1C7D +1D00 1DE6 +1DFE 1F15 +1F18 1F1D +1F20 1F45 +1F48 1F4D +1F50 1F57 +1F59 +1F5B +1F5D +1F5F 1F7D +1F80 1FB4 +1FB6 1FBC +1FBE +1FC2 1FC4 +1FC6 1FCC +1FD0 1FD3 +1FD6 1FDB +1FE0 1FEC +1FF2 1FF4 +1FF6 1FFC +203F 2040 +2054 +2071 +207F +2090 2094 +20D0 20DC +20E1 +20E5 20F0 +2102 +2107 +210A 2113 +2115 +2118 211D +2124 +2126 +2128 +212A 2139 +213C 213F +2145 2149 +214E +2160 2188 +2C00 2C2E +2C30 2C5E +2C60 2C6F +2C71 2C7D +2C80 2CE4 +2D00 2D25 +2D30 2D65 +2D6F +2D80 2D96 +2DA0 2DA6 +2DA8 2DAE +2DB0 2DB6 +2DB8 2DBE +2DC0 2DC6 +2DC8 2DCE +2DD0 2DD6 +2DD8 2DDE +2DE0 2DFF +2E2F +3005 3007 +3021 302F +3031 3035 +3038 303C +3041 3096 +3099 309F +30A1 30FA +30FC 30FF +3105 312D +3131 318E +31A0 31B7 +31F0 31FF +3400 4DB5 +4E00 9FC3 +A000 A48C +A500 A60C +A610 A62B +A640 A65F +A662 A66F +A67C A67D +A67F A697 +A717 A71F +A722 A788 +A78B A78C +A7FB A827 +A840 A873 +A880 A8C4 +A8D0 A8D9 +A900 A92D +A930 A953 +AA00 AA36 +AA40 AA4D +AA50 AA59 +AC00 D7A3 +F900 FA2D +FA30 FA6A +FA70 FAD9 +FB00 FB06 +FB13 FB17 +FB1D FB28 +FB2A FB36 +FB38 FB3C +FB3E +FB40 FB41 +FB43 FB44 +FB46 FBB1 +FBD3 FD3D +FD50 FD8F +FD92 FDC7 +FDF0 FDFB +FE00 FE0F +FE20 FE26 +FE33 FE34 +FE4D FE4F +FE70 FE74 +FE76 FEFC +FF10 FF19 +FF21 FF3A +FF3F +FF41 FF5A +FF66 FFBE +FFC2 FFC7 +FFCA FFCF +FFD2 FFD7 +FFDA FFDC +10000 1000B +1000D 10026 +10028 1003A +1003C 1003D +1003F 1004D +10050 1005D +10080 100FA +10140 10174 +101FD +10280 1029C +102A0 102D0 +10300 1031E +10330 1034A +10380 1039D +103A0 103C3 +103C8 103CF +103D1 103D5 +10400 1049D +104A0 104A9 +10800 10805 +10808 +1080A 10835 +10837 10838 +1083C +1083F +10900 10915 +10920 10939 +10A00 10A03 +10A05 10A06 +10A0C 10A13 +10A15 10A17 +10A19 10A33 +10A38 10A3A +10A3F +12000 1236E +12400 12462 +1D165 1D169 +1D16D 1D172 +1D17B 1D182 +1D185 1D18B +1D1AA 1D1AD +1D242 1D244 +1D400 1D454 +1D456 1D49C +1D49E 1D49F +1D4A2 +1D4A5 1D4A6 +1D4A9 1D4AC +1D4AE 1D4B9 +1D4BB +1D4BD 1D4C3 +1D4C5 1D505 +1D507 1D50A +1D50D 1D514 +1D516 1D51C +1D51E 1D539 +1D53B 1D53E +1D540 1D544 +1D546 +1D54A 1D550 +1D552 1D6A5 +1D6A8 1D6C0 +1D6C2 1D6DA +1D6DC 1D6FA +1D6FC 1D714 +1D716 1D734 +1D736 1D74E +1D750 1D76E +1D770 1D788 +1D78A 1D7A8 +1D7AA 1D7C2 +1D7C4 1D7CB +1D7CE 1D7FF +20000 2A6D6 +2F800 2FA1D +E0100 E01EF +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/IdStart.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/IdStart.pl new file mode 100644 index 0000000..422bdf5 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/IdStart.pl @@ -0,0 +1,409 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{IdStart} (and fuzzy permutations) +# +# Meaning: [\p{Ll}\p{Lu}\p{Lt}\p{Lm}\p{Lo}\p{Nl}\p{OtherIDStart}] +# +return <<'END'; +0041 005A +0061 007A +00AA +00B5 +00BA +00C0 00D6 +00D8 00F6 +00F8 02C1 +02C6 02D1 +02E0 02E4 +02EC +02EE +0370 0374 +0376 0377 +037A 037D +0386 +0388 038A +038C +038E 03A1 +03A3 03F5 +03F7 0481 +048A 0523 +0531 0556 +0559 +0561 0587 +05D0 05EA +05F0 05F2 +0621 064A +066E 066F +0671 06D3 +06D5 +06E5 06E6 +06EE 06EF +06FA 06FC +06FF +0710 +0712 072F +074D 07A5 +07B1 +07CA 07EA +07F4 07F5 +07FA +0904 0939 +093D +0950 +0958 0961 +0971 0972 +097B 097F +0985 098C +098F 0990 +0993 09A8 +09AA 09B0 +09B2 +09B6 09B9 +09BD +09CE +09DC 09DD +09DF 09E1 +09F0 09F1 +0A05 0A0A +0A0F 0A10 +0A13 0A28 +0A2A 0A30 +0A32 0A33 +0A35 0A36 +0A38 0A39 +0A59 0A5C +0A5E +0A72 0A74 +0A85 0A8D +0A8F 0A91 +0A93 0AA8 +0AAA 0AB0 +0AB2 0AB3 +0AB5 0AB9 +0ABD +0AD0 +0AE0 0AE1 +0B05 0B0C +0B0F 0B10 +0B13 0B28 +0B2A 0B30 +0B32 0B33 +0B35 0B39 +0B3D +0B5C 0B5D +0B5F 0B61 +0B71 +0B83 +0B85 0B8A +0B8E 0B90 +0B92 0B95 +0B99 0B9A +0B9C +0B9E 0B9F +0BA3 0BA4 +0BA8 0BAA +0BAE 0BB9 +0BD0 +0C05 0C0C +0C0E 0C10 +0C12 0C28 +0C2A 0C33 +0C35 0C39 +0C3D +0C58 0C59 +0C60 0C61 +0C85 0C8C +0C8E 0C90 +0C92 0CA8 +0CAA 0CB3 +0CB5 0CB9 +0CBD +0CDE +0CE0 0CE1 +0D05 0D0C +0D0E 0D10 +0D12 0D28 +0D2A 0D39 +0D3D +0D60 0D61 +0D7A 0D7F +0D85 0D96 +0D9A 0DB1 +0DB3 0DBB +0DBD +0DC0 0DC6 +0E01 0E30 +0E32 0E33 +0E40 0E46 +0E81 0E82 +0E84 +0E87 0E88 +0E8A +0E8D +0E94 0E97 +0E99 0E9F +0EA1 0EA3 +0EA5 +0EA7 +0EAA 0EAB +0EAD 0EB0 +0EB2 0EB3 +0EBD +0EC0 0EC4 +0EC6 +0EDC 0EDD +0F00 +0F40 0F47 +0F49 0F6C +0F88 0F8B +1000 102A +103F +1050 1055 +105A 105D +1061 +1065 1066 +106E 1070 +1075 1081 +108E +10A0 10C5 +10D0 10FA +10FC +1100 1159 +115F 11A2 +11A8 11F9 +1200 1248 +124A 124D +1250 1256 +1258 +125A 125D +1260 1288 +128A 128D +1290 12B0 +12B2 12B5 +12B8 12BE +12C0 +12C2 12C5 +12C8 12D6 +12D8 1310 +1312 1315 +1318 135A +1380 138F +13A0 13F4 +1401 166C +166F 1676 +1681 169A +16A0 16EA +16EE 16F0 +1700 170C +170E 1711 +1720 1731 +1740 1751 +1760 176C +176E 1770 +1780 17B3 +17D7 +17DC +1820 1877 +1880 18A8 +18AA +1900 191C +1950 196D +1970 1974 +1980 19A9 +19C1 19C7 +1A00 1A16 +1B05 1B33 +1B45 1B4B +1B83 1BA0 +1BAE 1BAF +1C00 1C23 +1C4D 1C4F +1C5A 1C7D +1D00 1DBF +1E00 1F15 +1F18 1F1D +1F20 1F45 +1F48 1F4D +1F50 1F57 +1F59 +1F5B +1F5D +1F5F 1F7D +1F80 1FB4 +1FB6 1FBC +1FBE +1FC2 1FC4 +1FC6 1FCC +1FD0 1FD3 +1FD6 1FDB +1FE0 1FEC +1FF2 1FF4 +1FF6 1FFC +2071 +207F +2090 2094 +2102 +2107 +210A 2113 +2115 +2118 211D +2124 +2126 +2128 +212A 2139 +213C 213F +2145 2149 +214E +2160 2188 +2C00 2C2E +2C30 2C5E +2C60 2C6F +2C71 2C7D +2C80 2CE4 +2D00 2D25 +2D30 2D65 +2D6F +2D80 2D96 +2DA0 2DA6 +2DA8 2DAE +2DB0 2DB6 +2DB8 2DBE +2DC0 2DC6 +2DC8 2DCE +2DD0 2DD6 +2DD8 2DDE +2E2F +3005 3007 +3021 3029 +3031 3035 +3038 303C +3041 3096 +309B 309F +30A1 30FA +30FC 30FF +3105 312D +3131 318E +31A0 31B7 +31F0 31FF +3400 4DB5 +4E00 9FC3 +A000 A48C +A500 A60C +A610 A61F +A62A A62B +A640 A65F +A662 A66E +A67F A697 +A717 A71F +A722 A788 +A78B A78C +A7FB A801 +A803 A805 +A807 A80A +A80C A822 +A840 A873 +A882 A8B3 +A90A A925 +A930 A946 +AA00 AA28 +AA40 AA42 +AA44 AA4B +AC00 D7A3 +F900 FA2D +FA30 FA6A +FA70 FAD9 +FB00 FB06 +FB13 FB17 +FB1D +FB1F FB28 +FB2A FB36 +FB38 FB3C +FB3E +FB40 FB41 +FB43 FB44 +FB46 FBB1 +FBD3 FD3D +FD50 FD8F +FD92 FDC7 +FDF0 FDFB +FE70 FE74 +FE76 FEFC +FF21 FF3A +FF41 FF5A +FF66 FFBE +FFC2 FFC7 +FFCA FFCF +FFD2 FFD7 +FFDA FFDC +10000 1000B +1000D 10026 +10028 1003A +1003C 1003D +1003F 1004D +10050 1005D +10080 100FA +10140 10174 +10280 1029C +102A0 102D0 +10300 1031E +10330 1034A +10380 1039D +103A0 103C3 +103C8 103CF +103D1 103D5 +10400 1049D +10800 10805 +10808 +1080A 10835 +10837 10838 +1083C +1083F +10900 10915 +10920 10939 +10A00 +10A10 10A13 +10A15 10A17 +10A19 10A33 +12000 1236E +12400 12462 +1D400 1D454 +1D456 1D49C +1D49E 1D49F +1D4A2 +1D4A5 1D4A6 +1D4A9 1D4AC +1D4AE 1D4B9 +1D4BB +1D4BD 1D4C3 +1D4C5 1D505 +1D507 1D50A +1D50D 1D514 +1D516 1D51C +1D51E 1D539 +1D53B 1D53E +1D540 1D544 +1D546 +1D54A 1D550 +1D552 1D6A5 +1D6A8 1D6C0 +1D6C2 1D6DA +1D6DC 1D6FA +1D6FC 1D714 +1D716 1D734 +1D736 1D74E +1D750 1D76E +1D770 1D788 +1D78A 1D7A8 +1D7AA 1D7C2 +1D7C4 1D7CB +20000 2A6D6 +2F800 2FA1D +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Ideo.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Ideo.pl new file mode 100644 index 0000000..a856b64 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Ideo.pl @@ -0,0 +1,23 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Binary property 'Ideographic' +# +return <<'END'; +3006 3007 Ideographic +3021 3029 Ideographic +3038 303A Ideographic +3400 4DB5 Ideographic +4E00 9FC3 Ideographic +F900 FA2D Ideographic +FA30 FA6A Ideographic +FA70 FAD9 Ideographic +20000 2A6D6 Ideographic +2F800 2FA1D Ideographic +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Ideograp.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Ideograp.pl new file mode 100644 index 0000000..9931b62 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Ideograp.pl @@ -0,0 +1,26 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Ideographic} (and fuzzy permutations) +# +# Meaning: Extended property 'Ideographic' +# +return <<'END'; +3006 3007 Ideographic +3021 3029 Ideographic +3038 303A Ideographic +3400 4DB5 Ideographic +4E00 9FC3 Ideographic +F900 FA2D Ideographic +FA30 FA6A Ideographic +FA70 FAD9 Ideographic +20000 2A6D6 Ideographic +2F800 2FA1D Ideographic +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/IdsBinar.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/IdsBinar.pl new file mode 100644 index 0000000..f8b75a6 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/IdsBinar.pl @@ -0,0 +1,18 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{IdsBinaryOperator} (and fuzzy permutations) +# +# Meaning: Extended property 'IDS_Binary_Operator' +# +return <<'END'; +2FF0 2FF1 IDS_Binary_Operator +2FF4 2FFB IDS_Binary_Operator +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/IdsTrina.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/IdsTrina.pl new file mode 100644 index 0000000..5e470ab --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/IdsTrina.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{IdsTrinaryOperator} (and fuzzy permutations) +# +# Meaning: Extended property 'IDS_Trinary_Operator' +# +return <<'END'; +2FF2 2FF3 IDS_Trinary_Operator +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InAegean.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InAegean.pl new file mode 100644 index 0000000..cc73f37 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InAegean.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InAegeanNumbers} (and fuzzy permutations) +# +# Meaning: Block 'Aegean Numbers' +# +return <<'END'; +10100 1013F Aegean Numbers +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InAlphab.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InAlphab.pl new file mode 100644 index 0000000..8d4704c --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InAlphab.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InAlphabeticPresentationForms} (and fuzzy permutations) +# +# Meaning: Block 'Alphabetic Presentation Forms' +# +return <<'END'; +FB00 FB4F Alphabetic Presentation Forms +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InAncie2.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InAncie2.pl new file mode 100644 index 0000000..b4898d1 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InAncie2.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InAncientGreekNumbers} (and fuzzy permutations) +# +# Meaning: Block 'Ancient Greek Numbers' +# +return <<'END'; +10140 1018F Ancient Greek Numbers +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InAncie3.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InAncie3.pl new file mode 100644 index 0000000..8c8d56c --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InAncie3.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InAncientGreekMusicalNotation} (and fuzzy permutations) +# +# Meaning: Block 'Ancient Greek Musical Notation' +# +return <<'END'; +1D200 1D24F Ancient Greek Musical Notation +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InAncien.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InAncien.pl new file mode 100644 index 0000000..8b12627 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InAncien.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InAncientSymbols} (and fuzzy permutations) +# +# Meaning: Block 'Ancient Symbols' +# +return <<'END'; +10190 101CF Ancient Symbols +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InArabi2.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InArabi2.pl new file mode 100644 index 0000000..62efeb9 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InArabi2.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InArabicSupplement} (and fuzzy permutations) +# +# Meaning: Block 'Arabic Supplement' +# +return <<'END'; +0750 077F Arabic Supplement +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InArabi3.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InArabi3.pl new file mode 100644 index 0000000..1b4b40d --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InArabi3.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InArabicPresentationFormsB} (and fuzzy permutations) +# +# Meaning: Block 'Arabic Presentation Forms-B' +# +return <<'END'; +FE70 FEFF Arabic Presentation Forms-B +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InArabi4.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InArabi4.pl new file mode 100644 index 0000000..8b59e12 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InArabi4.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InArabicPresentationFormsA} (and fuzzy permutations) +# +# Meaning: Block 'Arabic Presentation Forms-A' +# +return <<'END'; +FB50 FDFF Arabic Presentation Forms-A +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InArabic.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InArabic.pl new file mode 100644 index 0000000..18c532b --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InArabic.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InArabic} (and fuzzy permutations) +# +# Meaning: Block 'Arabic' +# +return <<'END'; +0600 06FF Arabic +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InArmeni.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InArmeni.pl new file mode 100644 index 0000000..b659200 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InArmeni.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InArmenian} (and fuzzy permutations) +# +# Meaning: Block 'Armenian' +# +return <<'END'; +0530 058F Armenian +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InArrows.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InArrows.pl new file mode 100644 index 0000000..c48c86f --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InArrows.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InArrows} (and fuzzy permutations) +# +# Meaning: Block 'Arrows' +# +return <<'END'; +2190 21FF Arrows +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InBaline.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InBaline.pl new file mode 100644 index 0000000..cbc3bb2 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InBaline.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InBalinese} (and fuzzy permutations) +# +# Meaning: Block 'Balinese' +# +return <<'END'; +1B00 1B7F Balinese +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InBasicL.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InBasicL.pl new file mode 100644 index 0000000..e97092f --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InBasicL.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InBasicLatin} (and fuzzy permutations) +# +# Meaning: Block 'Basic Latin' +# +return <<'END'; +0000 007F Basic Latin +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InBengal.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InBengal.pl new file mode 100644 index 0000000..9bb2d08 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InBengal.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InBengali} (and fuzzy permutations) +# +# Meaning: Block 'Bengali' +# +return <<'END'; +0980 09FF Bengali +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InBlockE.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InBlockE.pl new file mode 100644 index 0000000..fc7f790 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InBlockE.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InBlockElements} (and fuzzy permutations) +# +# Meaning: Block 'Block Elements' +# +return <<'END'; +2580 259F Block Elements +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InBopom2.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InBopom2.pl new file mode 100644 index 0000000..d7e8099 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InBopom2.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InBopomofoExtended} (and fuzzy permutations) +# +# Meaning: Block 'Bopomofo Extended' +# +return <<'END'; +31A0 31BF Bopomofo Extended +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InBopomo.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InBopomo.pl new file mode 100644 index 0000000..420657f --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InBopomo.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InBopomofo} (and fuzzy permutations) +# +# Meaning: Block 'Bopomofo' +# +return <<'END'; +3100 312F Bopomofo +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InBoxDra.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InBoxDra.pl new file mode 100644 index 0000000..fdfbfce --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InBoxDra.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InBoxDrawing} (and fuzzy permutations) +# +# Meaning: Block 'Box Drawing' +# +return <<'END'; +2500 257F Box Drawing +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InBraill.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InBraill.pl new file mode 100644 index 0000000..f0af0cf --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InBraill.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InBraillePatterns} (and fuzzy permutations) +# +# Meaning: Block 'Braille Patterns' +# +return <<'END'; +2800 28FF Braille Patterns +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InBugine.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InBugine.pl new file mode 100644 index 0000000..ce857b5 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InBugine.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InBuginese} (and fuzzy permutations) +# +# Meaning: Block 'Buginese' +# +return <<'END'; +1A00 1A1F Buginese +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InBuhid.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InBuhid.pl new file mode 100644 index 0000000..2d47bb0 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InBuhid.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InBuhid} (and fuzzy permutations) +# +# Meaning: Block 'Buhid' +# +return <<'END'; +1740 175F Buhid +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InByzant.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InByzant.pl new file mode 100644 index 0000000..bed40a9 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InByzant.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InByzantineMusicalSymbols} (and fuzzy permutations) +# +# Meaning: Block 'Byzantine Musical Symbols' +# +return <<'END'; +1D000 1D0FF Byzantine Musical Symbols +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCarian.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCarian.pl new file mode 100644 index 0000000..0710525 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCarian.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InCarian} (and fuzzy permutations) +# +# Meaning: Block 'Carian' +# +return <<'END'; +102A0 102DF Carian +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCham.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCham.pl new file mode 100644 index 0000000..72367b7 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCham.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InCham} (and fuzzy permutations) +# +# Meaning: Block 'Cham' +# +return <<'END'; +AA00 AA5F Cham +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCherok.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCherok.pl new file mode 100644 index 0000000..e210c63 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCherok.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InCherokee} (and fuzzy permutations) +# +# Meaning: Block 'Cherokee' +# +return <<'END'; +13A0 13FF Cherokee +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCjkCo2.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCjkCo2.pl new file mode 100644 index 0000000..3c85089 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCjkCo2.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InCjkCompatibilityForms} (and fuzzy permutations) +# +# Meaning: Block 'CJK Compatibility Forms' +# +return <<'END'; +FE30 FE4F CJK Compatibility Forms +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCjkCo3.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCjkCo3.pl new file mode 100644 index 0000000..0a01091 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCjkCo3.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InCjkCompatibilityIdeographs} (and fuzzy permutations) +# +# Meaning: Block 'CJK Compatibility Ideographs' +# +return <<'END'; +F900 FAFF CJK Compatibility Ideographs +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCjkCo4.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCjkCo4.pl new file mode 100644 index 0000000..ab46837 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCjkCo4.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InCjkCompatibilityIdeographsSupplement} (and fuzzy permutations) +# +# Meaning: Block 'CJK Compatibility Ideographs Supplement' +# +return <<'END'; +2F800 2FA1F CJK Compatibility Ideographs Supplement +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCjkCom.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCjkCom.pl new file mode 100644 index 0000000..a252060 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCjkCom.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InCjkCompatibility} (and fuzzy permutations) +# +# Meaning: Block 'CJK Compatibility' +# +return <<'END'; +3300 33FF CJK Compatibility +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCjkRad.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCjkRad.pl new file mode 100644 index 0000000..c4f22fc --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCjkRad.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InCjkRadicalsSupplement} (and fuzzy permutations) +# +# Meaning: Block 'CJK Radicals Supplement' +# +return <<'END'; +2E80 2EFF CJK Radicals Supplement +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCjkStr.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCjkStr.pl new file mode 100644 index 0000000..5d87c2f --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCjkStr.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InCjkStrokes} (and fuzzy permutations) +# +# Meaning: Block 'CJK Strokes' +# +return <<'END'; +31C0 31EF CJK Strokes +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCjkSym.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCjkSym.pl new file mode 100644 index 0000000..f9f93e8 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCjkSym.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InCjkSymbolsAndPunctuation} (and fuzzy permutations) +# +# Meaning: Block 'CJK Symbols and Punctuation' +# +return <<'END'; +3000 303F CJK Symbols and Punctuation +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCjkUn2.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCjkUn2.pl new file mode 100644 index 0000000..0035287 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCjkUn2.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InCjkUnifiedIdeographsExtensionB} (and fuzzy permutations) +# +# Meaning: Block 'CJK Unified Ideographs Extension B' +# +return <<'END'; +20000 2A6DF CJK Unified Ideographs Extension B +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCjkUn3.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCjkUn3.pl new file mode 100644 index 0000000..78e1d12 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCjkUn3.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InCjkUnifiedIdeographsExtensionA} (and fuzzy permutations) +# +# Meaning: Block 'CJK Unified Ideographs Extension A' +# +return <<'END'; +3400 4DBF CJK Unified Ideographs Extension A +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCjkUni.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCjkUni.pl new file mode 100644 index 0000000..b4735a0 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCjkUni.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InCjkUnifiedIdeographs} (and fuzzy permutations) +# +# Meaning: Block 'CJK Unified Ideographs' +# +return <<'END'; +4E00 9FFF CJK Unified Ideographs +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCombi2.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCombi2.pl new file mode 100644 index 0000000..50a2949 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCombi2.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InCombiningDiacriticalMarks} (and fuzzy permutations) +# +# Meaning: Block 'Combining Diacritical Marks' +# +return <<'END'; +0300 036F Combining Diacritical Marks +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCombi3.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCombi3.pl new file mode 100644 index 0000000..280200d --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCombi3.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InCombiningDiacriticalMarksSupplement} (and fuzzy permutations) +# +# Meaning: Block 'Combining Diacritical Marks Supplement' +# +return <<'END'; +1DC0 1DFF Combining Diacritical Marks Supplement +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCombi4.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCombi4.pl new file mode 100644 index 0000000..2de43b2 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCombi4.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InCombiningDiacriticalMarksForSymbols} (and fuzzy permutations) +# +# Meaning: Block 'Combining Diacritical Marks for Symbols' +# +return <<'END'; +20D0 20FF Combining Diacritical Marks for Symbols +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCombin.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCombin.pl new file mode 100644 index 0000000..e335925 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCombin.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InCombiningHalfMarks} (and fuzzy permutations) +# +# Meaning: Block 'Combining Half Marks' +# +return <<'END'; +FE20 FE2F Combining Half Marks +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InContro.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InContro.pl new file mode 100644 index 0000000..d1aca66 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InContro.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InControlPictures} (and fuzzy permutations) +# +# Meaning: Block 'Control Pictures' +# +return <<'END'; +2400 243F Control Pictures +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCoptic.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCoptic.pl new file mode 100644 index 0000000..45f963c --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCoptic.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InCoptic} (and fuzzy permutations) +# +# Meaning: Block 'Coptic' +# +return <<'END'; +2C80 2CFF Coptic +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCounti.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCounti.pl new file mode 100644 index 0000000..e5ad9e2 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCounti.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InCountingRodNumerals} (and fuzzy permutations) +# +# Meaning: Block 'Counting Rod Numerals' +# +return <<'END'; +1D360 1D37F Counting Rod Numerals +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCunei2.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCunei2.pl new file mode 100644 index 0000000..478c07c --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCunei2.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InCuneiformNumbersAndPunctuation} (and fuzzy permutations) +# +# Meaning: Block 'Cuneiform Numbers and Punctuation' +# +return <<'END'; +12400 1247F Cuneiform Numbers and Punctuation +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCuneif.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCuneif.pl new file mode 100644 index 0000000..b29a8ce --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCuneif.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InCuneiform} (and fuzzy permutations) +# +# Meaning: Block 'Cuneiform' +# +return <<'END'; +12000 123FF Cuneiform +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCurren.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCurren.pl new file mode 100644 index 0000000..581568a --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCurren.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InCurrencySymbols} (and fuzzy permutations) +# +# Meaning: Block 'Currency Symbols' +# +return <<'END'; +20A0 20CF Currency Symbols +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCyprio.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCyprio.pl new file mode 100644 index 0000000..1462c52 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCyprio.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InCypriotSyllabary} (and fuzzy permutations) +# +# Meaning: Block 'Cypriot Syllabary' +# +return <<'END'; +10800 1083F Cypriot Syllabary +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCyril2.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCyril2.pl new file mode 100644 index 0000000..61d19b7 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCyril2.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InCyrillicExtendedB} (and fuzzy permutations) +# +# Meaning: Block 'Cyrillic Extended-B' +# +return <<'END'; +A640 A69F Cyrillic Extended-B +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCyril3.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCyril3.pl new file mode 100644 index 0000000..87232da --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCyril3.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InCyrillicExtendedA} (and fuzzy permutations) +# +# Meaning: Block 'Cyrillic Extended-A' +# +return <<'END'; +2DE0 2DFF Cyrillic Extended-A +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCyril4.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCyril4.pl new file mode 100644 index 0000000..760d69c --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCyril4.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InCyrillicSupplement} (and fuzzy permutations) +# +# Meaning: Block 'Cyrillic Supplement' +# +return <<'END'; +0500 052F Cyrillic Supplement +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCyrill.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCyrill.pl new file mode 100644 index 0000000..0b5d6cb --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InCyrill.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InCyrillic} (and fuzzy permutations) +# +# Meaning: Block 'Cyrillic' +# +return <<'END'; +0400 04FF Cyrillic +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InDesere.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InDesere.pl new file mode 100644 index 0000000..aeb76f6 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InDesere.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InDeseret} (and fuzzy permutations) +# +# Meaning: Block 'Deseret' +# +return <<'END'; +10400 1044F Deseret +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InDevana.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InDevana.pl new file mode 100644 index 0000000..e94b158 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InDevana.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InDevanagari} (and fuzzy permutations) +# +# Meaning: Block 'Devanagari' +# +return <<'END'; +0900 097F Devanagari +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InDingba.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InDingba.pl new file mode 100644 index 0000000..7d064cb --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InDingba.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InDingbats} (and fuzzy permutations) +# +# Meaning: Block 'Dingbats' +# +return <<'END'; +2700 27BF Dingbats +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InDomino.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InDomino.pl new file mode 100644 index 0000000..b58cf90 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InDomino.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InDominoTiles} (and fuzzy permutations) +# +# Meaning: Block 'Domino Tiles' +# +return <<'END'; +1F030 1F09F Domino Tiles +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InEnclo2.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InEnclo2.pl new file mode 100644 index 0000000..5342dce --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InEnclo2.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InEnclosedCjkLettersAndMonths} (and fuzzy permutations) +# +# Meaning: Block 'Enclosed CJK Letters and Months' +# +return <<'END'; +3200 32FF Enclosed CJK Letters and Months +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InEnclos.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InEnclos.pl new file mode 100644 index 0000000..5118f3e --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InEnclos.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InEnclosedAlphanumerics} (and fuzzy permutations) +# +# Meaning: Block 'Enclosed Alphanumerics' +# +return <<'END'; +2460 24FF Enclosed Alphanumerics +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InEthio2.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InEthio2.pl new file mode 100644 index 0000000..e318678 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InEthio2.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InEthiopicExtended} (and fuzzy permutations) +# +# Meaning: Block 'Ethiopic Extended' +# +return <<'END'; +2D80 2DDF Ethiopic Extended +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InEthio3.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InEthio3.pl new file mode 100644 index 0000000..b93d5fb --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InEthio3.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InEthiopicSupplement} (and fuzzy permutations) +# +# Meaning: Block 'Ethiopic Supplement' +# +return <<'END'; +1380 139F Ethiopic Supplement +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InEthiop.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InEthiop.pl new file mode 100644 index 0000000..298a031 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InEthiop.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InEthiopic} (and fuzzy permutations) +# +# Meaning: Block 'Ethiopic' +# +return <<'END'; +1200 137F Ethiopic +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InGenera.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InGenera.pl new file mode 100644 index 0000000..d460179 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InGenera.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InGeneralPunctuation} (and fuzzy permutations) +# +# Meaning: Block 'General Punctuation' +# +return <<'END'; +2000 206F General Punctuation +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InGeomet.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InGeomet.pl new file mode 100644 index 0000000..cc1225d --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InGeomet.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InGeometricShapes} (and fuzzy permutations) +# +# Meaning: Block 'Geometric Shapes' +# +return <<'END'; +25A0 25FF Geometric Shapes +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InGeorg2.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InGeorg2.pl new file mode 100644 index 0000000..7ac4ecb --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InGeorg2.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InGeorgianSupplement} (and fuzzy permutations) +# +# Meaning: Block 'Georgian Supplement' +# +return <<'END'; +2D00 2D2F Georgian Supplement +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InGeorgi.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InGeorgi.pl new file mode 100644 index 0000000..1ea6e43 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InGeorgi.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InGeorgian} (and fuzzy permutations) +# +# Meaning: Block 'Georgian' +# +return <<'END'; +10A0 10FF Georgian +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InGlagol.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InGlagol.pl new file mode 100644 index 0000000..37ffa76 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InGlagol.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InGlagolitic} (and fuzzy permutations) +# +# Meaning: Block 'Glagolitic' +# +return <<'END'; +2C00 2C5F Glagolitic +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InGothic.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InGothic.pl new file mode 100644 index 0000000..39e3d9e --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InGothic.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InGothic} (and fuzzy permutations) +# +# Meaning: Block 'Gothic' +# +return <<'END'; +10330 1034F Gothic +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InGreekA.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InGreekA.pl new file mode 100644 index 0000000..465162c --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InGreekA.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InGreekAndCoptic} (and fuzzy permutations) +# +# Meaning: Block 'Greek and Coptic' +# +return <<'END'; +0370 03FF Greek and Coptic +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InGreekE.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InGreekE.pl new file mode 100644 index 0000000..ce9d961 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InGreekE.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InGreekExtended} (and fuzzy permutations) +# +# Meaning: Block 'Greek Extended' +# +return <<'END'; +1F00 1FFF Greek Extended +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InGujara.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InGujara.pl new file mode 100644 index 0000000..cbfa9f2 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InGujara.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InGujarati} (and fuzzy permutations) +# +# Meaning: Block 'Gujarati' +# +return <<'END'; +0A80 0AFF Gujarati +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InGurmuk.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InGurmuk.pl new file mode 100644 index 0000000..f2e8ace --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InGurmuk.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InGurmukhi} (and fuzzy permutations) +# +# Meaning: Block 'Gurmukhi' +# +return <<'END'; +0A00 0A7F Gurmukhi +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InHalfwi.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InHalfwi.pl new file mode 100644 index 0000000..f474f2a --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InHalfwi.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InHalfwidthAndFullwidthForms} (and fuzzy permutations) +# +# Meaning: Block 'Halfwidth and Fullwidth Forms' +# +return <<'END'; +FF00 FFEF Halfwidth and Fullwidth Forms +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InHangu2.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InHangu2.pl new file mode 100644 index 0000000..dda7657 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InHangu2.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InHangulSyllables} (and fuzzy permutations) +# +# Meaning: Block 'Hangul Syllables' +# +return <<'END'; +AC00 D7AF Hangul Syllables +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InHangu3.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InHangu3.pl new file mode 100644 index 0000000..f5498c0 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InHangu3.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InHangulCompatibilityJamo} (and fuzzy permutations) +# +# Meaning: Block 'Hangul Compatibility Jamo' +# +return <<'END'; +3130 318F Hangul Compatibility Jamo +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InHangul.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InHangul.pl new file mode 100644 index 0000000..7ffa0b2 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InHangul.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InHangulJamo} (and fuzzy permutations) +# +# Meaning: Block 'Hangul Jamo' +# +return <<'END'; +1100 11FF Hangul Jamo +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InHanuno.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InHanuno.pl new file mode 100644 index 0000000..7c4a4ce --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InHanuno.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InHanunoo} (and fuzzy permutations) +# +# Meaning: Block 'Hanunoo' +# +return <<'END'; +1720 173F Hanunoo +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InHebrew.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InHebrew.pl new file mode 100644 index 0000000..49acd29 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InHebrew.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InHebrew} (and fuzzy permutations) +# +# Meaning: Block 'Hebrew' +# +return <<'END'; +0590 05FF Hebrew +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InHighPr.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InHighPr.pl new file mode 100644 index 0000000..06ffb3d --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InHighPr.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InHighPrivateUseSurrogates} (and fuzzy permutations) +# +# Meaning: Block 'High Private Use Surrogates' +# +return <<'END'; +DB80 DBFF High Private Use Surrogates +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InHighSu.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InHighSu.pl new file mode 100644 index 0000000..e23cdc6 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InHighSu.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InHighSurrogates} (and fuzzy permutations) +# +# Meaning: Block 'High Surrogates' +# +return <<'END'; +D800 DB7F High Surrogates +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InHiraga.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InHiraga.pl new file mode 100644 index 0000000..37f61fd --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InHiraga.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InHiragana} (and fuzzy permutations) +# +# Meaning: Block 'Hiragana' +# +return <<'END'; +3040 309F Hiragana +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InIdeogr.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InIdeogr.pl new file mode 100644 index 0000000..59f490b --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InIdeogr.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InIdeographicDescriptionCharacters} (and fuzzy permutations) +# +# Meaning: Block 'Ideographic Description Characters' +# +return <<'END'; +2FF0 2FFF Ideographic Description Characters +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InIpaExt.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InIpaExt.pl new file mode 100644 index 0000000..0a74354 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InIpaExt.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InIpaExtensions} (and fuzzy permutations) +# +# Meaning: Block 'IPA Extensions' +# +return <<'END'; +0250 02AF IPA Extensions +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InKanbun.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InKanbun.pl new file mode 100644 index 0000000..c286b59 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InKanbun.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InKanbun} (and fuzzy permutations) +# +# Meaning: Block 'Kanbun' +# +return <<'END'; +3190 319F Kanbun +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InKangxi.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InKangxi.pl new file mode 100644 index 0000000..c3716b3 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InKangxi.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InKangxiRadicals} (and fuzzy permutations) +# +# Meaning: Block 'Kangxi Radicals' +# +return <<'END'; +2F00 2FDF Kangxi Radicals +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InKannad.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InKannad.pl new file mode 100644 index 0000000..b2874ae --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InKannad.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InKannada} (and fuzzy permutations) +# +# Meaning: Block 'Kannada' +# +return <<'END'; +0C80 0CFF Kannada +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InKatak2.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InKatak2.pl new file mode 100644 index 0000000..badb508 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InKatak2.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InKatakanaPhoneticExtensions} (and fuzzy permutations) +# +# Meaning: Block 'Katakana Phonetic Extensions' +# +return <<'END'; +31F0 31FF Katakana Phonetic Extensions +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InKataka.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InKataka.pl new file mode 100644 index 0000000..59229b2 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InKataka.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InKatakana} (and fuzzy permutations) +# +# Meaning: Block 'Katakana' +# +return <<'END'; +30A0 30FF Katakana +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InKayahL.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InKayahL.pl new file mode 100644 index 0000000..1932138 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InKayahL.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InKayahLi} (and fuzzy permutations) +# +# Meaning: Block 'Kayah Li' +# +return <<'END'; +A900 A92F Kayah Li +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InKharos.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InKharos.pl new file mode 100644 index 0000000..6d1da48 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InKharos.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InKharoshthi} (and fuzzy permutations) +# +# Meaning: Block 'Kharoshthi' +# +return <<'END'; +10A00 10A5F Kharoshthi +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InKhmer.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InKhmer.pl new file mode 100644 index 0000000..966c88b --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InKhmer.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InKhmer} (and fuzzy permutations) +# +# Meaning: Block 'Khmer' +# +return <<'END'; +1780 17FF Khmer +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InKhmerS.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InKhmerS.pl new file mode 100644 index 0000000..31ec409 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InKhmerS.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InKhmerSymbols} (and fuzzy permutations) +# +# Meaning: Block 'Khmer Symbols' +# +return <<'END'; +19E0 19FF Khmer Symbols +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InLao.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InLao.pl new file mode 100644 index 0000000..f55ac6e --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InLao.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InLao} (and fuzzy permutations) +# +# Meaning: Block 'Lao' +# +return <<'END'; +0E80 0EFF Lao +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InLatin1.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InLatin1.pl new file mode 100644 index 0000000..afe988f --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InLatin1.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InLatin1Supplement} (and fuzzy permutations) +# +# Meaning: Block 'Latin-1 Supplement' +# +return <<'END'; +0080 00FF Latin-1 Supplement +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InLatin2.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InLatin2.pl new file mode 100644 index 0000000..06fbce6 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InLatin2.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InLatinExtendedA} (and fuzzy permutations) +# +# Meaning: Block 'Latin Extended-A' +# +return <<'END'; +0100 017F Latin Extended-A +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InLatin3.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InLatin3.pl new file mode 100644 index 0000000..1a0b7b3 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InLatin3.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InLatinExtendedD} (and fuzzy permutations) +# +# Meaning: Block 'Latin Extended-D' +# +return <<'END'; +A720 A7FF Latin Extended-D +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InLatin4.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InLatin4.pl new file mode 100644 index 0000000..0c6e40e --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InLatin4.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InLatinExtendedC} (and fuzzy permutations) +# +# Meaning: Block 'Latin Extended-C' +# +return <<'END'; +2C60 2C7F Latin Extended-C +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InLatin5.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InLatin5.pl new file mode 100644 index 0000000..11d10a0 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InLatin5.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InLatinExtendedAdditional} (and fuzzy permutations) +# +# Meaning: Block 'Latin Extended Additional' +# +return <<'END'; +1E00 1EFF Latin Extended Additional +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InLatinE.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InLatinE.pl new file mode 100644 index 0000000..9490c6a --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InLatinE.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InLatinExtendedB} (and fuzzy permutations) +# +# Meaning: Block 'Latin Extended-B' +# +return <<'END'; +0180 024F Latin Extended-B +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InLepcha.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InLepcha.pl new file mode 100644 index 0000000..faeff44 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InLepcha.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InLepcha} (and fuzzy permutations) +# +# Meaning: Block 'Lepcha' +# +return <<'END'; +1C00 1C4F Lepcha +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InLetter.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InLetter.pl new file mode 100644 index 0000000..3e3bce2 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InLetter.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InLetterlikeSymbols} (and fuzzy permutations) +# +# Meaning: Block 'Letterlike Symbols' +# +return <<'END'; +2100 214F Letterlike Symbols +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InLimbu.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InLimbu.pl new file mode 100644 index 0000000..87f11d2 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InLimbu.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InLimbu} (and fuzzy permutations) +# +# Meaning: Block 'Limbu' +# +return <<'END'; +1900 194F Limbu +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InLinea2.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InLinea2.pl new file mode 100644 index 0000000..9227740 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InLinea2.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InLinearBSyllabary} (and fuzzy permutations) +# +# Meaning: Block 'Linear B Syllabary' +# +return <<'END'; +10000 1007F Linear B Syllabary +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InLinear.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InLinear.pl new file mode 100644 index 0000000..62fce44 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InLinear.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InLinearBIdeograms} (and fuzzy permutations) +# +# Meaning: Block 'Linear B Ideograms' +# +return <<'END'; +10080 100FF Linear B Ideograms +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InLowSur.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InLowSur.pl new file mode 100644 index 0000000..0037fd6 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InLowSur.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InLowSurrogates} (and fuzzy permutations) +# +# Meaning: Block 'Low Surrogates' +# +return <<'END'; +DC00 DFFF Low Surrogates +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InLycian.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InLycian.pl new file mode 100644 index 0000000..2a96ca9 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InLycian.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InLycian} (and fuzzy permutations) +# +# Meaning: Block 'Lycian' +# +return <<'END'; +10280 1029F Lycian +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InLydian.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InLydian.pl new file mode 100644 index 0000000..98a965b --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InLydian.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InLydian} (and fuzzy permutations) +# +# Meaning: Block 'Lydian' +# +return <<'END'; +10920 1093F Lydian +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InMahjon.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InMahjon.pl new file mode 100644 index 0000000..19dfec9 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InMahjon.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InMahjongTiles} (and fuzzy permutations) +# +# Meaning: Block 'Mahjong Tiles' +# +return <<'END'; +1F000 1F02F Mahjong Tiles +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InMalaya.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InMalaya.pl new file mode 100644 index 0000000..eb2361f --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InMalaya.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InMalayalam} (and fuzzy permutations) +# +# Meaning: Block 'Malayalam' +# +return <<'END'; +0D00 0D7F Malayalam +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InMathe2.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InMathe2.pl new file mode 100644 index 0000000..09c52b3 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InMathe2.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InMathematicalAlphanumericSymbols} (and fuzzy permutations) +# +# Meaning: Block 'Mathematical Alphanumeric Symbols' +# +return <<'END'; +1D400 1D7FF Mathematical Alphanumeric Symbols +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InMathem.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InMathem.pl new file mode 100644 index 0000000..5214abd --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InMathem.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InMathematicalOperators} (and fuzzy permutations) +# +# Meaning: Block 'Mathematical Operators' +# +return <<'END'; +2200 22FF Mathematical Operators +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InMisce2.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InMisce2.pl new file mode 100644 index 0000000..e56237e --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InMisce2.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InMiscellaneousTechnical} (and fuzzy permutations) +# +# Meaning: Block 'Miscellaneous Technical' +# +return <<'END'; +2300 23FF Miscellaneous Technical +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InMisce3.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InMisce3.pl new file mode 100644 index 0000000..e9b1dcf --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InMisce3.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InMiscellaneousSymbolsAndArrows} (and fuzzy permutations) +# +# Meaning: Block 'Miscellaneous Symbols and Arrows' +# +return <<'END'; +2B00 2BFF Miscellaneous Symbols and Arrows +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InMisce4.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InMisce4.pl new file mode 100644 index 0000000..c887dc2 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InMisce4.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InMiscellaneousMathematicalSymbolsA} (and fuzzy permutations) +# +# Meaning: Block 'Miscellaneous Mathematical Symbols-A' +# +return <<'END'; +27C0 27EF Miscellaneous Mathematical Symbols-A +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InMisce5.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InMisce5.pl new file mode 100644 index 0000000..3f467b0 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InMisce5.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InMiscellaneousMathematicalSymbolsB} (and fuzzy permutations) +# +# Meaning: Block 'Miscellaneous Mathematical Symbols-B' +# +return <<'END'; +2980 29FF Miscellaneous Mathematical Symbols-B +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InMiscel.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InMiscel.pl new file mode 100644 index 0000000..8063786 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InMiscel.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InMiscellaneousSymbols} (and fuzzy permutations) +# +# Meaning: Block 'Miscellaneous Symbols' +# +return <<'END'; +2600 26FF Miscellaneous Symbols +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InModifi.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InModifi.pl new file mode 100644 index 0000000..8dbbbe7 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InModifi.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InModifierToneLetters} (and fuzzy permutations) +# +# Meaning: Block 'Modifier Tone Letters' +# +return <<'END'; +A700 A71F Modifier Tone Letters +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InMongol.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InMongol.pl new file mode 100644 index 0000000..7aa99e2 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InMongol.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InMongolian} (and fuzzy permutations) +# +# Meaning: Block 'Mongolian' +# +return <<'END'; +1800 18AF Mongolian +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InMusica.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InMusica.pl new file mode 100644 index 0000000..f21aae1 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InMusica.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InMusicalSymbols} (and fuzzy permutations) +# +# Meaning: Block 'Musical Symbols' +# +return <<'END'; +1D100 1D1FF Musical Symbols +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InMyanma.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InMyanma.pl new file mode 100644 index 0000000..3b05fa1 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InMyanma.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InMyanmar} (and fuzzy permutations) +# +# Meaning: Block 'Myanmar' +# +return <<'END'; +1000 109F Myanmar +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InNewTai.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InNewTai.pl new file mode 100644 index 0000000..48daa0c --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InNewTai.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InNewTaiLue} (and fuzzy permutations) +# +# Meaning: Block 'New Tai Lue' +# +return <<'END'; +1980 19DF New Tai Lue +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InNko.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InNko.pl new file mode 100644 index 0000000..9ff919d --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InNko.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InNko} (and fuzzy permutations) +# +# Meaning: Block 'NKo' +# +return <<'END'; +07C0 07FF NKo +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InNumber.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InNumber.pl new file mode 100644 index 0000000..cbfd07d --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InNumber.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InNumberForms} (and fuzzy permutations) +# +# Meaning: Block 'Number Forms' +# +return <<'END'; +2150 218F Number Forms +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InOgham.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InOgham.pl new file mode 100644 index 0000000..d57c6bf --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InOgham.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InOgham} (and fuzzy permutations) +# +# Meaning: Block 'Ogham' +# +return <<'END'; +1680 169F Ogham +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InOlChik.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InOlChik.pl new file mode 100644 index 0000000..c3dbc15 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InOlChik.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InOlChiki} (and fuzzy permutations) +# +# Meaning: Block 'Ol Chiki' +# +return <<'END'; +1C50 1C7F Ol Chiki +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InOldIta.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InOldIta.pl new file mode 100644 index 0000000..f653cbd --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InOldIta.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InOldItalic} (and fuzzy permutations) +# +# Meaning: Block 'Old Italic' +# +return <<'END'; +10300 1032F Old Italic +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InOldPer.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InOldPer.pl new file mode 100644 index 0000000..e3eb06b --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InOldPer.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InOldPersian} (and fuzzy permutations) +# +# Meaning: Block 'Old Persian' +# +return <<'END'; +103A0 103DF Old Persian +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InOptica.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InOptica.pl new file mode 100644 index 0000000..b007997 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InOptica.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InOpticalCharacterRecognition} (and fuzzy permutations) +# +# Meaning: Block 'Optical Character Recognition' +# +return <<'END'; +2440 245F Optical Character Recognition +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InOriya.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InOriya.pl new file mode 100644 index 0000000..9ee835c --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InOriya.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InOriya} (and fuzzy permutations) +# +# Meaning: Block 'Oriya' +# +return <<'END'; +0B00 0B7F Oriya +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InOsmany.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InOsmany.pl new file mode 100644 index 0000000..5205e3c --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InOsmany.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InOsmanya} (and fuzzy permutations) +# +# Meaning: Block 'Osmanya' +# +return <<'END'; +10480 104AF Osmanya +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InPhagsP.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InPhagsP.pl new file mode 100644 index 0000000..9aac8fc --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InPhagsP.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InPhagsPa} (and fuzzy permutations) +# +# Meaning: Block 'Phags-pa' +# +return <<'END'; +A840 A87F Phags-pa +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InPhaist.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InPhaist.pl new file mode 100644 index 0000000..e452907 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InPhaist.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InPhaistosDisc} (and fuzzy permutations) +# +# Meaning: Block 'Phaistos Disc' +# +return <<'END'; +101D0 101FF Phaistos Disc +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InPhoeni.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InPhoeni.pl new file mode 100644 index 0000000..e33c7d1 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InPhoeni.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InPhoenician} (and fuzzy permutations) +# +# Meaning: Block 'Phoenician' +# +return <<'END'; +10900 1091F Phoenician +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InPhone2.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InPhone2.pl new file mode 100644 index 0000000..9dc984d --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InPhone2.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InPhoneticExtensionsSupplement} (and fuzzy permutations) +# +# Meaning: Block 'Phonetic Extensions Supplement' +# +return <<'END'; +1D80 1DBF Phonetic Extensions Supplement +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InPhonet.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InPhonet.pl new file mode 100644 index 0000000..969b918 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InPhonet.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InPhoneticExtensions} (and fuzzy permutations) +# +# Meaning: Block 'Phonetic Extensions' +# +return <<'END'; +1D00 1D7F Phonetic Extensions +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InPrivat.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InPrivat.pl new file mode 100644 index 0000000..519cd7e --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InPrivat.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InPrivateUseArea} (and fuzzy permutations) +# +# Meaning: Block 'Private Use Area' +# +return <<'END'; +E000 F8FF Private Use Area +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InRejang.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InRejang.pl new file mode 100644 index 0000000..d54202a --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InRejang.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InRejang} (and fuzzy permutations) +# +# Meaning: Block 'Rejang' +# +return <<'END'; +A930 A95F Rejang +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InRunic.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InRunic.pl new file mode 100644 index 0000000..59803e6 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InRunic.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InRunic} (and fuzzy permutations) +# +# Meaning: Block 'Runic' +# +return <<'END'; +16A0 16FF Runic +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InSauras.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InSauras.pl new file mode 100644 index 0000000..3ad8744 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InSauras.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InSaurashtra} (and fuzzy permutations) +# +# Meaning: Block 'Saurashtra' +# +return <<'END'; +A880 A8DF Saurashtra +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InShavia.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InShavia.pl new file mode 100644 index 0000000..308d5a6 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InShavia.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InShavian} (and fuzzy permutations) +# +# Meaning: Block 'Shavian' +# +return <<'END'; +10450 1047F Shavian +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InSinhal.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InSinhal.pl new file mode 100644 index 0000000..b608748 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InSinhal.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InSinhala} (and fuzzy permutations) +# +# Meaning: Block 'Sinhala' +# +return <<'END'; +0D80 0DFF Sinhala +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InSmallF.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InSmallF.pl new file mode 100644 index 0000000..0da273b --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InSmallF.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InSmallFormVariants} (and fuzzy permutations) +# +# Meaning: Block 'Small Form Variants' +# +return <<'END'; +FE50 FE6F Small Form Variants +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InSpacin.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InSpacin.pl new file mode 100644 index 0000000..5835841 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InSpacin.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InSpacingModifierLetters} (and fuzzy permutations) +# +# Meaning: Block 'Spacing Modifier Letters' +# +return <<'END'; +02B0 02FF Spacing Modifier Letters +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InSpecia.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InSpecia.pl new file mode 100644 index 0000000..47a5595 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InSpecia.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InSpecials} (and fuzzy permutations) +# +# Meaning: Block 'Specials' +# +return <<'END'; +FFF0 FFFF Specials +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InSundan.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InSundan.pl new file mode 100644 index 0000000..a417a0a --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InSundan.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InSundanese} (and fuzzy permutations) +# +# Meaning: Block 'Sundanese' +# +return <<'END'; +1B80 1BBF Sundanese +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InSupers.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InSupers.pl new file mode 100644 index 0000000..0893277 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InSupers.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InSuperscriptsAndSubscripts} (and fuzzy permutations) +# +# Meaning: Block 'Superscripts and Subscripts' +# +return <<'END'; +2070 209F Superscripts and Subscripts +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InSuppl2.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InSuppl2.pl new file mode 100644 index 0000000..4e13507 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InSuppl2.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InSupplementalArrowsA} (and fuzzy permutations) +# +# Meaning: Block 'Supplemental Arrows-A' +# +return <<'END'; +27F0 27FF Supplemental Arrows-A +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InSuppl3.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InSuppl3.pl new file mode 100644 index 0000000..9d3393a --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InSuppl3.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InSupplementalPunctuation} (and fuzzy permutations) +# +# Meaning: Block 'Supplemental Punctuation' +# +return <<'END'; +2E00 2E7F Supplemental Punctuation +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InSuppl4.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InSuppl4.pl new file mode 100644 index 0000000..78c2abf --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InSuppl4.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InSupplementaryPrivateUseAreaA} (and fuzzy permutations) +# +# Meaning: Block 'Supplementary Private Use Area-A' +# +return <<'END'; +F0000 FFFFF Supplementary Private Use Area-A +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InSuppl5.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InSuppl5.pl new file mode 100644 index 0000000..1f4b9be --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InSuppl5.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InSupplementaryPrivateUseAreaB} (and fuzzy permutations) +# +# Meaning: Block 'Supplementary Private Use Area-B' +# +return <<'END'; +100000 10FFFF Supplementary Private Use Area-B +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InSuppl6.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InSuppl6.pl new file mode 100644 index 0000000..6447836 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InSuppl6.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InSupplementalMathematicalOperators} (and fuzzy permutations) +# +# Meaning: Block 'Supplemental Mathematical Operators' +# +return <<'END'; +2A00 2AFF Supplemental Mathematical Operators +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InSupple.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InSupple.pl new file mode 100644 index 0000000..02cdc35 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InSupple.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InSupplementalArrowsB} (and fuzzy permutations) +# +# Meaning: Block 'Supplemental Arrows-B' +# +return <<'END'; +2900 297F Supplemental Arrows-B +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InSyloti.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InSyloti.pl new file mode 100644 index 0000000..67786af --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InSyloti.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InSylotiNagri} (and fuzzy permutations) +# +# Meaning: Block 'Syloti Nagri' +# +return <<'END'; +A800 A82F Syloti Nagri +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InSyriac.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InSyriac.pl new file mode 100644 index 0000000..9449c48 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InSyriac.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InSyriac} (and fuzzy permutations) +# +# Meaning: Block 'Syriac' +# +return <<'END'; +0700 074F Syriac +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InTagalo.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InTagalo.pl new file mode 100644 index 0000000..6eaa14e --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InTagalo.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InTagalog} (and fuzzy permutations) +# +# Meaning: Block 'Tagalog' +# +return <<'END'; +1700 171F Tagalog +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InTagban.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InTagban.pl new file mode 100644 index 0000000..003506c --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InTagban.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InTagbanwa} (and fuzzy permutations) +# +# Meaning: Block 'Tagbanwa' +# +return <<'END'; +1760 177F Tagbanwa +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InTags.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InTags.pl new file mode 100644 index 0000000..8cbced6 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InTags.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InTags} (and fuzzy permutations) +# +# Meaning: Block 'Tags' +# +return <<'END'; +E0000 E007F Tags +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InTaiLe.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InTaiLe.pl new file mode 100644 index 0000000..a46193f --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InTaiLe.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InTaiLe} (and fuzzy permutations) +# +# Meaning: Block 'Tai Le' +# +return <<'END'; +1950 197F Tai Le +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InTaiXua.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InTaiXua.pl new file mode 100644 index 0000000..14d07e3 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InTaiXua.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InTaiXuanJingSymbols} (and fuzzy permutations) +# +# Meaning: Block 'Tai Xuan Jing Symbols' +# +return <<'END'; +1D300 1D35F Tai Xuan Jing Symbols +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InTamil.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InTamil.pl new file mode 100644 index 0000000..cc5b18a --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InTamil.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InTamil} (and fuzzy permutations) +# +# Meaning: Block 'Tamil' +# +return <<'END'; +0B80 0BFF Tamil +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InTelugu.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InTelugu.pl new file mode 100644 index 0000000..e0fd3e5 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InTelugu.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InTelugu} (and fuzzy permutations) +# +# Meaning: Block 'Telugu' +# +return <<'END'; +0C00 0C7F Telugu +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InThaana.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InThaana.pl new file mode 100644 index 0000000..ead00f9 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InThaana.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InThaana} (and fuzzy permutations) +# +# Meaning: Block 'Thaana' +# +return <<'END'; +0780 07BF Thaana +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InThai.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InThai.pl new file mode 100644 index 0000000..0fe69d4 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InThai.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InThai} (and fuzzy permutations) +# +# Meaning: Block 'Thai' +# +return <<'END'; +0E00 0E7F Thai +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InTibeta.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InTibeta.pl new file mode 100644 index 0000000..e24ec80 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InTibeta.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InTibetan} (and fuzzy permutations) +# +# Meaning: Block 'Tibetan' +# +return <<'END'; +0F00 0FFF Tibetan +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InTifina.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InTifina.pl new file mode 100644 index 0000000..5257a16 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InTifina.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InTifinagh} (and fuzzy permutations) +# +# Meaning: Block 'Tifinagh' +# +return <<'END'; +2D30 2D7F Tifinagh +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InUgarit.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InUgarit.pl new file mode 100644 index 0000000..81195ee --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InUgarit.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InUgaritic} (and fuzzy permutations) +# +# Meaning: Block 'Ugaritic' +# +return <<'END'; +10380 1039F Ugaritic +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InUnifie.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InUnifie.pl new file mode 100644 index 0000000..df3b93d --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InUnifie.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InUnifiedCanadianAboriginalSyllabics} (and fuzzy permutations) +# +# Meaning: Block 'Unified Canadian Aboriginal Syllabics' +# +return <<'END'; +1400 167F Unified Canadian Aboriginal Syllabics +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InVai.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InVai.pl new file mode 100644 index 0000000..8f6296b --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InVai.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InVai} (and fuzzy permutations) +# +# Meaning: Block 'Vai' +# +return <<'END'; +A500 A63F Vai +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InVaria2.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InVaria2.pl new file mode 100644 index 0000000..42e6c13 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InVaria2.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InVariationSelectorsSupplement} (and fuzzy permutations) +# +# Meaning: Block 'Variation Selectors Supplement' +# +return <<'END'; +E0100 E01EF Variation Selectors Supplement +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InVariat.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InVariat.pl new file mode 100644 index 0000000..9d00f9a --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InVariat.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InVariationSelectors} (and fuzzy permutations) +# +# Meaning: Block 'Variation Selectors' +# +return <<'END'; +FE00 FE0F Variation Selectors +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InVertic.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InVertic.pl new file mode 100644 index 0000000..a3c9eda --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InVertic.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InVerticalForms} (and fuzzy permutations) +# +# Meaning: Block 'Vertical Forms' +# +return <<'END'; +FE10 FE1F Vertical Forms +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InYiRadi.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InYiRadi.pl new file mode 100644 index 0000000..4cfcc81 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InYiRadi.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InYiRadicals} (and fuzzy permutations) +# +# Meaning: Block 'Yi Radicals' +# +return <<'END'; +A490 A4CF Yi Radicals +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InYiSyll.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InYiSyll.pl new file mode 100644 index 0000000..9e7193a --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InYiSyll.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InYiSyllables} (and fuzzy permutations) +# +# Meaning: Block 'Yi Syllables' +# +return <<'END'; +A000 A48F Yi Syllables +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InYijing.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InYijing.pl new file mode 100644 index 0000000..c634ce3 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/InYijing.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{InYijingHexagramSymbols} (and fuzzy permutations) +# +# Meaning: Block 'Yijing Hexagram Symbols' +# +return <<'END'; +4DC0 4DFF Yijing Hexagram Symbols +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/JoinC.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/JoinC.pl new file mode 100644 index 0000000..58bba7f --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/JoinC.pl @@ -0,0 +1,14 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Binary property 'Join_Control' +# +return <<'END'; +200C 200D Join_Control +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/JoinCont.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/JoinCont.pl new file mode 100644 index 0000000..dfd5f5a --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/JoinCont.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{JoinControl} (and fuzzy permutations) +# +# Meaning: Extended property 'Join_Control' +# +return <<'END'; +200C 200D Join_Control +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Kana.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Kana.pl new file mode 100644 index 0000000..954c56b --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Kana.pl @@ -0,0 +1,23 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Katakana} (and fuzzy permutations) +# +# Meaning: Script 'Katakana' +# +return <<'END'; +30A1 30FA Katakana +30FD 30FF Katakana +31F0 31FF Katakana +32D0 32FE Katakana +3300 3357 Katakana +FF66 FF6F Katakana +FF71 FF9D Katakana +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/KayahLi.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/KayahLi.pl new file mode 100644 index 0000000..071fadd --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/KayahLi.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{KayahLi} (and fuzzy permutations) +# +# Meaning: Script 'Kayah_Li' +# +return <<'END'; +A900 A92F Kayah_Li +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Khar.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Khar.pl new file mode 100644 index 0000000..66a9766 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Khar.pl @@ -0,0 +1,24 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Kharoshthi} (and fuzzy permutations) +# +# Meaning: Script 'Kharoshthi' +# +return <<'END'; +10A00 10A03 Kharoshthi +10A05 10A06 Kharoshthi +10A0C 10A13 Kharoshthi +10A15 10A17 Kharoshthi +10A19 10A33 Kharoshthi +10A38 10A3A Kharoshthi +10A3F 10A47 Kharoshthi +10A50 10A58 Kharoshthi +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Khmr.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Khmr.pl new file mode 100644 index 0000000..d464060 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Khmr.pl @@ -0,0 +1,20 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Khmer} (and fuzzy permutations) +# +# Meaning: Script 'Khmer' +# +return <<'END'; +1780 17DD Khmer +17E0 17E9 Khmer +17F0 17F9 Khmer +19E0 19FF Khmer +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Knda.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Knda.pl new file mode 100644 index 0000000..cf08840 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Knda.pl @@ -0,0 +1,29 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Kannada} (and fuzzy permutations) +# +# Meaning: Script 'Kannada' +# +return <<'END'; +0C82 0C83 Kannada +0C85 0C8C Kannada +0C8E 0C90 Kannada +0C92 0CA8 Kannada +0CAA 0CB3 Kannada +0CB5 0CB9 Kannada +0CBC 0CC4 Kannada +0CC6 0CC8 Kannada +0CCA 0CCD Kannada +0CD5 0CD6 Kannada +0CDE Kannada +0CE0 0CE3 Kannada +0CE6 0CEF Kannada +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/L.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/L.pl new file mode 100644 index 0000000..0733558 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/L.pl @@ -0,0 +1,407 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{L} +# \p{L} (and fuzzy permutations) +# +# Meaning: Major Category 'L' +# +return <<'END'; +0041 005A +0061 007A +00AA +00B5 +00BA +00C0 00D6 +00D8 00F6 +00F8 02C1 +02C6 02D1 +02E0 02E4 +02EC +02EE +0370 0374 +0376 0377 +037A 037D +0386 +0388 038A +038C +038E 03A1 +03A3 03F5 +03F7 0481 +048A 0523 +0531 0556 +0559 +0561 0587 +05D0 05EA +05F0 05F2 +0621 064A +066E 066F +0671 06D3 +06D5 +06E5 06E6 +06EE 06EF +06FA 06FC +06FF +0710 +0712 072F +074D 07A5 +07B1 +07CA 07EA +07F4 07F5 +07FA +0904 0939 +093D +0950 +0958 0961 +0971 0972 +097B 097F +0985 098C +098F 0990 +0993 09A8 +09AA 09B0 +09B2 +09B6 09B9 +09BD +09CE +09DC 09DD +09DF 09E1 +09F0 09F1 +0A05 0A0A +0A0F 0A10 +0A13 0A28 +0A2A 0A30 +0A32 0A33 +0A35 0A36 +0A38 0A39 +0A59 0A5C +0A5E +0A72 0A74 +0A85 0A8D +0A8F 0A91 +0A93 0AA8 +0AAA 0AB0 +0AB2 0AB3 +0AB5 0AB9 +0ABD +0AD0 +0AE0 0AE1 +0B05 0B0C +0B0F 0B10 +0B13 0B28 +0B2A 0B30 +0B32 0B33 +0B35 0B39 +0B3D +0B5C 0B5D +0B5F 0B61 +0B71 +0B83 +0B85 0B8A +0B8E 0B90 +0B92 0B95 +0B99 0B9A +0B9C +0B9E 0B9F +0BA3 0BA4 +0BA8 0BAA +0BAE 0BB9 +0BD0 +0C05 0C0C +0C0E 0C10 +0C12 0C28 +0C2A 0C33 +0C35 0C39 +0C3D +0C58 0C59 +0C60 0C61 +0C85 0C8C +0C8E 0C90 +0C92 0CA8 +0CAA 0CB3 +0CB5 0CB9 +0CBD +0CDE +0CE0 0CE1 +0D05 0D0C +0D0E 0D10 +0D12 0D28 +0D2A 0D39 +0D3D +0D60 0D61 +0D7A 0D7F +0D85 0D96 +0D9A 0DB1 +0DB3 0DBB +0DBD +0DC0 0DC6 +0E01 0E30 +0E32 0E33 +0E40 0E46 +0E81 0E82 +0E84 +0E87 0E88 +0E8A +0E8D +0E94 0E97 +0E99 0E9F +0EA1 0EA3 +0EA5 +0EA7 +0EAA 0EAB +0EAD 0EB0 +0EB2 0EB3 +0EBD +0EC0 0EC4 +0EC6 +0EDC 0EDD +0F00 +0F40 0F47 +0F49 0F6C +0F88 0F8B +1000 102A +103F +1050 1055 +105A 105D +1061 +1065 1066 +106E 1070 +1075 1081 +108E +10A0 10C5 +10D0 10FA +10FC +1100 1159 +115F 11A2 +11A8 11F9 +1200 1248 +124A 124D +1250 1256 +1258 +125A 125D +1260 1288 +128A 128D +1290 12B0 +12B2 12B5 +12B8 12BE +12C0 +12C2 12C5 +12C8 12D6 +12D8 1310 +1312 1315 +1318 135A +1380 138F +13A0 13F4 +1401 166C +166F 1676 +1681 169A +16A0 16EA +1700 170C +170E 1711 +1720 1731 +1740 1751 +1760 176C +176E 1770 +1780 17B3 +17D7 +17DC +1820 1877 +1880 18A8 +18AA +1900 191C +1950 196D +1970 1974 +1980 19A9 +19C1 19C7 +1A00 1A16 +1B05 1B33 +1B45 1B4B +1B83 1BA0 +1BAE 1BAF +1C00 1C23 +1C4D 1C4F +1C5A 1C7D +1D00 1DBF +1E00 1F15 +1F18 1F1D +1F20 1F45 +1F48 1F4D +1F50 1F57 +1F59 +1F5B +1F5D +1F5F 1F7D +1F80 1FB4 +1FB6 1FBC +1FBE +1FC2 1FC4 +1FC6 1FCC +1FD0 1FD3 +1FD6 1FDB +1FE0 1FEC +1FF2 1FF4 +1FF6 1FFC +2071 +207F +2090 2094 +2102 +2107 +210A 2113 +2115 +2119 211D +2124 +2126 +2128 +212A 212D +212F 2139 +213C 213F +2145 2149 +214E +2183 2184 +2C00 2C2E +2C30 2C5E +2C60 2C6F +2C71 2C7D +2C80 2CE4 +2D00 2D25 +2D30 2D65 +2D6F +2D80 2D96 +2DA0 2DA6 +2DA8 2DAE +2DB0 2DB6 +2DB8 2DBE +2DC0 2DC6 +2DC8 2DCE +2DD0 2DD6 +2DD8 2DDE +2E2F +3005 3006 +3031 3035 +303B 303C +3041 3096 +309D 309F +30A1 30FA +30FC 30FF +3105 312D +3131 318E +31A0 31B7 +31F0 31FF +3400 4DB5 +4E00 9FC3 +A000 A48C +A500 A60C +A610 A61F +A62A A62B +A640 A65F +A662 A66E +A67F A697 +A717 A71F +A722 A788 +A78B A78C +A7FB A801 +A803 A805 +A807 A80A +A80C A822 +A840 A873 +A882 A8B3 +A90A A925 +A930 A946 +AA00 AA28 +AA40 AA42 +AA44 AA4B +AC00 D7A3 +F900 FA2D +FA30 FA6A +FA70 FAD9 +FB00 FB06 +FB13 FB17 +FB1D +FB1F FB28 +FB2A FB36 +FB38 FB3C +FB3E +FB40 FB41 +FB43 FB44 +FB46 FBB1 +FBD3 FD3D +FD50 FD8F +FD92 FDC7 +FDF0 FDFB +FE70 FE74 +FE76 FEFC +FF21 FF3A +FF41 FF5A +FF66 FFBE +FFC2 FFC7 +FFCA FFCF +FFD2 FFD7 +FFDA FFDC +10000 1000B +1000D 10026 +10028 1003A +1003C 1003D +1003F 1004D +10050 1005D +10080 100FA +10280 1029C +102A0 102D0 +10300 1031E +10330 10340 +10342 10349 +10380 1039D +103A0 103C3 +103C8 103CF +10400 1049D +10800 10805 +10808 +1080A 10835 +10837 10838 +1083C +1083F +10900 10915 +10920 10939 +10A00 +10A10 10A13 +10A15 10A17 +10A19 10A33 +12000 1236E +1D400 1D454 +1D456 1D49C +1D49E 1D49F +1D4A2 +1D4A5 1D4A6 +1D4A9 1D4AC +1D4AE 1D4B9 +1D4BB +1D4BD 1D4C3 +1D4C5 1D505 +1D507 1D50A +1D50D 1D514 +1D516 1D51C +1D51E 1D539 +1D53B 1D53E +1D540 1D544 +1D546 +1D54A 1D550 +1D552 1D6A5 +1D6A8 1D6C0 +1D6C2 1D6DA +1D6DC 1D6FA +1D6FC 1D714 +1D716 1D734 +1D736 1D74E +1D750 1D76E +1D770 1D788 +1D78A 1D7A8 +1D7AA 1D7C2 +1D7C4 1D7CB +20000 2A6D6 +2F800 2FA1D +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/LC.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/LC.pl new file mode 100644 index 0000000..3a09443 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/LC.pl @@ -0,0 +1,127 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{LC} +# \p{LC} (and fuzzy permutations) +# +# Meaning: [\p{Ll}\p{Lu}\p{Lt}] +# +return <<'END'; +0041 005A +0061 007A +00AA +00B5 +00BA +00C0 00D6 +00D8 00F6 +00F8 01BA +01BC 01BF +01C4 0293 +0295 02AF +0370 0373 +0376 0377 +037B 037D +0386 +0388 038A +038C +038E 03A1 +03A3 03F5 +03F7 0481 +048A 0523 +0531 0556 +0561 0587 +10A0 10C5 +1D00 1D2B +1D62 1D77 +1D79 1D9A +1E00 1F15 +1F18 1F1D +1F20 1F45 +1F48 1F4D +1F50 1F57 +1F59 +1F5B +1F5D +1F5F 1F7D +1F80 1FB4 +1FB6 1FBC +1FBE +1FC2 1FC4 +1FC6 1FCC +1FD0 1FD3 +1FD6 1FDB +1FE0 1FEC +1FF2 1FF4 +1FF6 1FFC +2071 +207F +2102 +2107 +210A 2113 +2115 +2119 211D +2124 +2126 +2128 +212A 212D +212F 2134 +2139 +213C 213F +2145 2149 +214E +2183 2184 +2C00 2C2E +2C30 2C5E +2C60 2C6F +2C71 2C7C +2C80 2CE4 +2D00 2D25 +A640 A65F +A662 A66D +A680 A697 +A722 A76F +A771 A787 +A78B A78C +FB00 FB06 +FB13 FB17 +FF21 FF3A +FF41 FF5A +10400 1044F +1D400 1D454 +1D456 1D49C +1D49E 1D49F +1D4A2 +1D4A5 1D4A6 +1D4A9 1D4AC +1D4AE 1D4B9 +1D4BB +1D4BD 1D4C3 +1D4C5 1D505 +1D507 1D50A +1D50D 1D514 +1D516 1D51C +1D51E 1D539 +1D53B 1D53E +1D540 1D544 +1D546 +1D54A 1D550 +1D552 1D6A5 +1D6A8 1D6C0 +1D6C2 1D6DA +1D6DC 1D6FA +1D6FC 1D714 +1D716 1D734 +1D736 1D74E +1D750 1D76E +1D770 1D788 +1D78A 1D7A8 +1D7AA 1D7C2 +1D7C4 1D7CB +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/LOE.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/LOE.pl new file mode 100644 index 0000000..7afc74e --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/LOE.pl @@ -0,0 +1,15 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Binary property 'Logical_Order_Exception' +# +return <<'END'; +0E40 0E44 Logical_Order_Exception +0EC0 0EC4 Logical_Order_Exception +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Laoo.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Laoo.pl new file mode 100644 index 0000000..d06b59b --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Laoo.pl @@ -0,0 +1,34 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Lao} (and fuzzy permutations) +# +# Meaning: Script 'Lao' +# +return <<'END'; +0E81 0E82 Lao +0E84 Lao +0E87 0E88 Lao +0E8A Lao +0E8D Lao +0E94 0E97 Lao +0E99 0E9F Lao +0EA1 0EA3 Lao +0EA5 Lao +0EA7 Lao +0EAA 0EAB Lao +0EAD 0EB9 Lao +0EBB 0EBD Lao +0EC0 0EC4 Lao +0EC6 Lao +0EC8 0ECD Lao +0ED0 0ED9 Lao +0EDC 0EDD Lao +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Latn.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Latn.pl new file mode 100644 index 0000000..f1ac1e3 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Latn.pl @@ -0,0 +1,45 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Latin} (and fuzzy permutations) +# +# Meaning: Script 'Latin' +# +return <<'END'; +0041 005A Latin +0061 007A Latin +00AA Latin +00BA Latin +00C0 00D6 Latin +00D8 00F6 Latin +00F8 02B8 Latin +02E0 02E4 Latin +1D00 1D25 Latin +1D2C 1D5C Latin +1D62 1D65 Latin +1D6B 1D77 Latin +1D79 1DBE Latin +1E00 1EFF Latin +2071 Latin +207F Latin +2090 2094 Latin +212A 212B Latin +2132 Latin +214E Latin +2160 2188 Latin +2C60 2C6F Latin +2C71 2C7D Latin +A722 A787 Latin +A78B A78C Latin +A7FB A7FF Latin +FB00 FB06 Latin +FF21 FF3A Latin +FF41 FF5A Latin +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Lepc.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Lepc.pl new file mode 100644 index 0000000..a4057f3 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Lepc.pl @@ -0,0 +1,19 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Lepcha} (and fuzzy permutations) +# +# Meaning: Script 'Lepcha' +# +return <<'END'; +1C00 1C37 Lepcha +1C3B 1C49 Lepcha +1C4D 1C4F Lepcha +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Limb.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Limb.pl new file mode 100644 index 0000000..f82a4fa --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Limb.pl @@ -0,0 +1,21 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Limbu} (and fuzzy permutations) +# +# Meaning: Script 'Limbu' +# +return <<'END'; +1900 191C Limbu +1920 192B Limbu +1930 193B Limbu +1940 Limbu +1944 194F Limbu +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/LinearB.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/LinearB.pl new file mode 100644 index 0000000..91fd097 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/LinearB.pl @@ -0,0 +1,23 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{LinearB} (and fuzzy permutations) +# +# Meaning: Script 'Linear_B' +# +return <<'END'; +10000 1000B Linear_B +1000D 10026 Linear_B +10028 1003A Linear_B +1003C 1003D Linear_B +1003F 1004D Linear_B +10050 1005D Linear_B +10080 100FA Linear_B +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Ll.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Ll.pl new file mode 100644 index 0000000..ba8270a --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Ll.pl @@ -0,0 +1,615 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Ll} +# \p{Ll} (and fuzzy permutations) +# +# Meaning: General Category 'Ll' +# +return <<'END'; +0061 007A +00AA +00B5 +00BA +00DF 00F6 +00F8 00FF +0101 +0103 +0105 +0107 +0109 +010B +010D +010F +0111 +0113 +0115 +0117 +0119 +011B +011D +011F +0121 +0123 +0125 +0127 +0129 +012B +012D +012F +0131 +0133 +0135 +0137 0138 +013A +013C +013E +0140 +0142 +0144 +0146 +0148 0149 +014B +014D +014F +0151 +0153 +0155 +0157 +0159 +015B +015D +015F +0161 +0163 +0165 +0167 +0169 +016B +016D +016F +0171 +0173 +0175 +0177 +017A +017C +017E 0180 +0183 +0185 +0188 +018C 018D +0192 +0195 +0199 019B +019E +01A1 +01A3 +01A5 +01A8 +01AA 01AB +01AD +01B0 +01B4 +01B6 +01B9 01BA +01BD 01BF +01C6 +01C9 +01CC +01CE +01D0 +01D2 +01D4 +01D6 +01D8 +01DA +01DC 01DD +01DF +01E1 +01E3 +01E5 +01E7 +01E9 +01EB +01ED +01EF 01F0 +01F3 +01F5 +01F9 +01FB +01FD +01FF +0201 +0203 +0205 +0207 +0209 +020B +020D +020F +0211 +0213 +0215 +0217 +0219 +021B +021D +021F +0221 +0223 +0225 +0227 +0229 +022B +022D +022F +0231 +0233 0239 +023C +023F 0240 +0242 +0247 +0249 +024B +024D +024F 0293 +0295 02AF +0371 +0373 +0377 +037B 037D +0390 +03AC 03CE +03D0 03D1 +03D5 03D7 +03D9 +03DB +03DD +03DF +03E1 +03E3 +03E5 +03E7 +03E9 +03EB +03ED +03EF 03F3 +03F5 +03F8 +03FB 03FC +0430 045F +0461 +0463 +0465 +0467 +0469 +046B +046D +046F +0471 +0473 +0475 +0477 +0479 +047B +047D +047F +0481 +048B +048D +048F +0491 +0493 +0495 +0497 +0499 +049B +049D +049F +04A1 +04A3 +04A5 +04A7 +04A9 +04AB +04AD +04AF +04B1 +04B3 +04B5 +04B7 +04B9 +04BB +04BD +04BF +04C2 +04C4 +04C6 +04C8 +04CA +04CC +04CE 04CF +04D1 +04D3 +04D5 +04D7 +04D9 +04DB +04DD +04DF +04E1 +04E3 +04E5 +04E7 +04E9 +04EB +04ED +04EF +04F1 +04F3 +04F5 +04F7 +04F9 +04FB +04FD +04FF +0501 +0503 +0505 +0507 +0509 +050B +050D +050F +0511 +0513 +0515 +0517 +0519 +051B +051D +051F +0521 +0523 +0561 0587 +1D00 1D2B +1D62 1D77 +1D79 1D9A +1E01 +1E03 +1E05 +1E07 +1E09 +1E0B +1E0D +1E0F +1E11 +1E13 +1E15 +1E17 +1E19 +1E1B +1E1D +1E1F +1E21 +1E23 +1E25 +1E27 +1E29 +1E2B +1E2D +1E2F +1E31 +1E33 +1E35 +1E37 +1E39 +1E3B +1E3D +1E3F +1E41 +1E43 +1E45 +1E47 +1E49 +1E4B +1E4D +1E4F +1E51 +1E53 +1E55 +1E57 +1E59 +1E5B +1E5D +1E5F +1E61 +1E63 +1E65 +1E67 +1E69 +1E6B +1E6D +1E6F +1E71 +1E73 +1E75 +1E77 +1E79 +1E7B +1E7D +1E7F +1E81 +1E83 +1E85 +1E87 +1E89 +1E8B +1E8D +1E8F +1E91 +1E93 +1E95 1E9D +1E9F +1EA1 +1EA3 +1EA5 +1EA7 +1EA9 +1EAB +1EAD +1EAF +1EB1 +1EB3 +1EB5 +1EB7 +1EB9 +1EBB +1EBD +1EBF +1EC1 +1EC3 +1EC5 +1EC7 +1EC9 +1ECB +1ECD +1ECF +1ED1 +1ED3 +1ED5 +1ED7 +1ED9 +1EDB +1EDD +1EDF +1EE1 +1EE3 +1EE5 +1EE7 +1EE9 +1EEB +1EED +1EEF +1EF1 +1EF3 +1EF5 +1EF7 +1EF9 +1EFB +1EFD +1EFF 1F07 +1F10 1F15 +1F20 1F27 +1F30 1F37 +1F40 1F45 +1F50 1F57 +1F60 1F67 +1F70 1F7D +1F80 1F87 +1F90 1F97 +1FA0 1FA7 +1FB0 1FB4 +1FB6 1FB7 +1FBE +1FC2 1FC4 +1FC6 1FC7 +1FD0 1FD3 +1FD6 1FD7 +1FE0 1FE7 +1FF2 1FF4 +1FF6 1FF7 +2071 +207F +210A +210E 210F +2113 +212F +2134 +2139 +213C 213D +2146 2149 +214E +2184 +2C30 2C5E +2C61 +2C65 2C66 +2C68 +2C6A +2C6C +2C71 +2C73 2C74 +2C76 2C7C +2C81 +2C83 +2C85 +2C87 +2C89 +2C8B +2C8D +2C8F +2C91 +2C93 +2C95 +2C97 +2C99 +2C9B +2C9D +2C9F +2CA1 +2CA3 +2CA5 +2CA7 +2CA9 +2CAB +2CAD +2CAF +2CB1 +2CB3 +2CB5 +2CB7 +2CB9 +2CBB +2CBD +2CBF +2CC1 +2CC3 +2CC5 +2CC7 +2CC9 +2CCB +2CCD +2CCF +2CD1 +2CD3 +2CD5 +2CD7 +2CD9 +2CDB +2CDD +2CDF +2CE1 +2CE3 2CE4 +2D00 2D25 +A641 +A643 +A645 +A647 +A649 +A64B +A64D +A64F +A651 +A653 +A655 +A657 +A659 +A65B +A65D +A65F +A663 +A665 +A667 +A669 +A66B +A66D +A681 +A683 +A685 +A687 +A689 +A68B +A68D +A68F +A691 +A693 +A695 +A697 +A723 +A725 +A727 +A729 +A72B +A72D +A72F A731 +A733 +A735 +A737 +A739 +A73B +A73D +A73F +A741 +A743 +A745 +A747 +A749 +A74B +A74D +A74F +A751 +A753 +A755 +A757 +A759 +A75B +A75D +A75F +A761 +A763 +A765 +A767 +A769 +A76B +A76D +A76F +A771 A778 +A77A +A77C +A77F +A781 +A783 +A785 +A787 +A78C +FB00 FB06 +FB13 FB17 +FF41 FF5A +10428 1044F +1D41A 1D433 +1D44E 1D454 +1D456 1D467 +1D482 1D49B +1D4B6 1D4B9 +1D4BB +1D4BD 1D4C3 +1D4C5 1D4CF +1D4EA 1D503 +1D51E 1D537 +1D552 1D56B +1D586 1D59F +1D5BA 1D5D3 +1D5EE 1D607 +1D622 1D63B +1D656 1D66F +1D68A 1D6A5 +1D6C2 1D6DA +1D6DC 1D6E1 +1D6FC 1D714 +1D716 1D71B +1D736 1D74E +1D750 1D755 +1D770 1D788 +1D78A 1D78F +1D7AA 1D7C2 +1D7C4 1D7C9 +1D7CB +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Lm.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Lm.pl new file mode 100644 index 0000000..caad8ea --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Lm.pl @@ -0,0 +1,56 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Lm} +# \p{Lm} (and fuzzy permutations) +# +# Meaning: General Category 'Lm' +# +return <<'END'; +02B0 02C1 +02C6 02D1 +02E0 02E4 +02EC +02EE +0374 +037A +0559 +0640 +06E5 06E6 +07F4 07F5 +07FA +0971 +0E46 +0EC6 +10FC +17D7 +1843 +1C78 1C7D +1D2C 1D61 +1D78 +1D9B 1DBF +2090 2094 +2C7D +2D6F +2E2F +3005 +3031 3035 +303B +309D 309E +30FC 30FE +A015 +A60C +A67F +A717 A71F +A770 +A788 +FF70 +FF9E FF9F +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Lo.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Lo.pl new file mode 100644 index 0000000..ae5c41f --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Lo.pl @@ -0,0 +1,299 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Lo} +# \p{Lo} (and fuzzy permutations) +# +# Meaning: General Category 'Lo' +# +return <<'END'; +01BB +01C0 01C3 +0294 +05D0 05EA +05F0 05F2 +0621 063F +0641 064A +066E 066F +0671 06D3 +06D5 +06EE 06EF +06FA 06FC +06FF +0710 +0712 072F +074D 07A5 +07B1 +07CA 07EA +0904 0939 +093D +0950 +0958 0961 +0972 +097B 097F +0985 098C +098F 0990 +0993 09A8 +09AA 09B0 +09B2 +09B6 09B9 +09BD +09CE +09DC 09DD +09DF 09E1 +09F0 09F1 +0A05 0A0A +0A0F 0A10 +0A13 0A28 +0A2A 0A30 +0A32 0A33 +0A35 0A36 +0A38 0A39 +0A59 0A5C +0A5E +0A72 0A74 +0A85 0A8D +0A8F 0A91 +0A93 0AA8 +0AAA 0AB0 +0AB2 0AB3 +0AB5 0AB9 +0ABD +0AD0 +0AE0 0AE1 +0B05 0B0C +0B0F 0B10 +0B13 0B28 +0B2A 0B30 +0B32 0B33 +0B35 0B39 +0B3D +0B5C 0B5D +0B5F 0B61 +0B71 +0B83 +0B85 0B8A +0B8E 0B90 +0B92 0B95 +0B99 0B9A +0B9C +0B9E 0B9F +0BA3 0BA4 +0BA8 0BAA +0BAE 0BB9 +0BD0 +0C05 0C0C +0C0E 0C10 +0C12 0C28 +0C2A 0C33 +0C35 0C39 +0C3D +0C58 0C59 +0C60 0C61 +0C85 0C8C +0C8E 0C90 +0C92 0CA8 +0CAA 0CB3 +0CB5 0CB9 +0CBD +0CDE +0CE0 0CE1 +0D05 0D0C +0D0E 0D10 +0D12 0D28 +0D2A 0D39 +0D3D +0D60 0D61 +0D7A 0D7F +0D85 0D96 +0D9A 0DB1 +0DB3 0DBB +0DBD +0DC0 0DC6 +0E01 0E30 +0E32 0E33 +0E40 0E45 +0E81 0E82 +0E84 +0E87 0E88 +0E8A +0E8D +0E94 0E97 +0E99 0E9F +0EA1 0EA3 +0EA5 +0EA7 +0EAA 0EAB +0EAD 0EB0 +0EB2 0EB3 +0EBD +0EC0 0EC4 +0EDC 0EDD +0F00 +0F40 0F47 +0F49 0F6C +0F88 0F8B +1000 102A +103F +1050 1055 +105A 105D +1061 +1065 1066 +106E 1070 +1075 1081 +108E +10D0 10FA +1100 1159 +115F 11A2 +11A8 11F9 +1200 1248 +124A 124D +1250 1256 +1258 +125A 125D +1260 1288 +128A 128D +1290 12B0 +12B2 12B5 +12B8 12BE +12C0 +12C2 12C5 +12C8 12D6 +12D8 1310 +1312 1315 +1318 135A +1380 138F +13A0 13F4 +1401 166C +166F 1676 +1681 169A +16A0 16EA +1700 170C +170E 1711 +1720 1731 +1740 1751 +1760 176C +176E 1770 +1780 17B3 +17DC +1820 1842 +1844 1877 +1880 18A8 +18AA +1900 191C +1950 196D +1970 1974 +1980 19A9 +19C1 19C7 +1A00 1A16 +1B05 1B33 +1B45 1B4B +1B83 1BA0 +1BAE 1BAF +1C00 1C23 +1C4D 1C4F +1C5A 1C77 +2135 2138 +2D30 2D65 +2D80 2D96 +2DA0 2DA6 +2DA8 2DAE +2DB0 2DB6 +2DB8 2DBE +2DC0 2DC6 +2DC8 2DCE +2DD0 2DD6 +2DD8 2DDE +3006 +303C +3041 3096 +309F +30A1 30FA +30FF +3105 312D +3131 318E +31A0 31B7 +31F0 31FF +3400 4DB5 +4E00 9FC3 +A000 A014 +A016 A48C +A500 A60B +A610 A61F +A62A A62B +A66E +A7FB A801 +A803 A805 +A807 A80A +A80C A822 +A840 A873 +A882 A8B3 +A90A A925 +A930 A946 +AA00 AA28 +AA40 AA42 +AA44 AA4B +AC00 D7A3 +F900 FA2D +FA30 FA6A +FA70 FAD9 +FB1D +FB1F FB28 +FB2A FB36 +FB38 FB3C +FB3E +FB40 FB41 +FB43 FB44 +FB46 FBB1 +FBD3 FD3D +FD50 FD8F +FD92 FDC7 +FDF0 FDFB +FE70 FE74 +FE76 FEFC +FF66 FF6F +FF71 FF9D +FFA0 FFBE +FFC2 FFC7 +FFCA FFCF +FFD2 FFD7 +FFDA FFDC +10000 1000B +1000D 10026 +10028 1003A +1003C 1003D +1003F 1004D +10050 1005D +10080 100FA +10280 1029C +102A0 102D0 +10300 1031E +10330 10340 +10342 10349 +10380 1039D +103A0 103C3 +103C8 103CF +10450 1049D +10800 10805 +10808 +1080A 10835 +10837 10838 +1083C +1083F +10900 10915 +10920 10939 +10A00 +10A10 10A13 +10A15 10A17 +10A19 10A33 +12000 1236E +20000 2A6D6 +2F800 2FA1D +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/LogicalO.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/LogicalO.pl new file mode 100644 index 0000000..972052a --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/LogicalO.pl @@ -0,0 +1,18 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{LogicalOrderException} (and fuzzy permutations) +# +# Meaning: Extended property 'Logical_Order_Exception' +# +return <<'END'; +0E40 0E44 Logical_Order_Exception +0EC0 0EC4 Logical_Order_Exception +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Lower.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Lower.pl new file mode 100644 index 0000000..4cd354d --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Lower.pl @@ -0,0 +1,614 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Lower} +# +# Meaning: [[:Lower:]] +# +return <<'END'; +0061 007A +00AA +00B5 +00BA +00DF 00F6 +00F8 00FF +0101 +0103 +0105 +0107 +0109 +010B +010D +010F +0111 +0113 +0115 +0117 +0119 +011B +011D +011F +0121 +0123 +0125 +0127 +0129 +012B +012D +012F +0131 +0133 +0135 +0137 0138 +013A +013C +013E +0140 +0142 +0144 +0146 +0148 0149 +014B +014D +014F +0151 +0153 +0155 +0157 +0159 +015B +015D +015F +0161 +0163 +0165 +0167 +0169 +016B +016D +016F +0171 +0173 +0175 +0177 +017A +017C +017E 0180 +0183 +0185 +0188 +018C 018D +0192 +0195 +0199 019B +019E +01A1 +01A3 +01A5 +01A8 +01AA 01AB +01AD +01B0 +01B4 +01B6 +01B9 01BA +01BD 01BF +01C6 +01C9 +01CC +01CE +01D0 +01D2 +01D4 +01D6 +01D8 +01DA +01DC 01DD +01DF +01E1 +01E3 +01E5 +01E7 +01E9 +01EB +01ED +01EF 01F0 +01F3 +01F5 +01F9 +01FB +01FD +01FF +0201 +0203 +0205 +0207 +0209 +020B +020D +020F +0211 +0213 +0215 +0217 +0219 +021B +021D +021F +0221 +0223 +0225 +0227 +0229 +022B +022D +022F +0231 +0233 0239 +023C +023F 0240 +0242 +0247 +0249 +024B +024D +024F 0293 +0295 02AF +0371 +0373 +0377 +037B 037D +0390 +03AC 03CE +03D0 03D1 +03D5 03D7 +03D9 +03DB +03DD +03DF +03E1 +03E3 +03E5 +03E7 +03E9 +03EB +03ED +03EF 03F3 +03F5 +03F8 +03FB 03FC +0430 045F +0461 +0463 +0465 +0467 +0469 +046B +046D +046F +0471 +0473 +0475 +0477 +0479 +047B +047D +047F +0481 +048B +048D +048F +0491 +0493 +0495 +0497 +0499 +049B +049D +049F +04A1 +04A3 +04A5 +04A7 +04A9 +04AB +04AD +04AF +04B1 +04B3 +04B5 +04B7 +04B9 +04BB +04BD +04BF +04C2 +04C4 +04C6 +04C8 +04CA +04CC +04CE 04CF +04D1 +04D3 +04D5 +04D7 +04D9 +04DB +04DD +04DF +04E1 +04E3 +04E5 +04E7 +04E9 +04EB +04ED +04EF +04F1 +04F3 +04F5 +04F7 +04F9 +04FB +04FD +04FF +0501 +0503 +0505 +0507 +0509 +050B +050D +050F +0511 +0513 +0515 +0517 +0519 +051B +051D +051F +0521 +0523 +0561 0587 +1D00 1D2B +1D62 1D77 +1D79 1D9A +1E01 +1E03 +1E05 +1E07 +1E09 +1E0B +1E0D +1E0F +1E11 +1E13 +1E15 +1E17 +1E19 +1E1B +1E1D +1E1F +1E21 +1E23 +1E25 +1E27 +1E29 +1E2B +1E2D +1E2F +1E31 +1E33 +1E35 +1E37 +1E39 +1E3B +1E3D +1E3F +1E41 +1E43 +1E45 +1E47 +1E49 +1E4B +1E4D +1E4F +1E51 +1E53 +1E55 +1E57 +1E59 +1E5B +1E5D +1E5F +1E61 +1E63 +1E65 +1E67 +1E69 +1E6B +1E6D +1E6F +1E71 +1E73 +1E75 +1E77 +1E79 +1E7B +1E7D +1E7F +1E81 +1E83 +1E85 +1E87 +1E89 +1E8B +1E8D +1E8F +1E91 +1E93 +1E95 1E9D +1E9F +1EA1 +1EA3 +1EA5 +1EA7 +1EA9 +1EAB +1EAD +1EAF +1EB1 +1EB3 +1EB5 +1EB7 +1EB9 +1EBB +1EBD +1EBF +1EC1 +1EC3 +1EC5 +1EC7 +1EC9 +1ECB +1ECD +1ECF +1ED1 +1ED3 +1ED5 +1ED7 +1ED9 +1EDB +1EDD +1EDF +1EE1 +1EE3 +1EE5 +1EE7 +1EE9 +1EEB +1EED +1EEF +1EF1 +1EF3 +1EF5 +1EF7 +1EF9 +1EFB +1EFD +1EFF 1F07 +1F10 1F15 +1F20 1F27 +1F30 1F37 +1F40 1F45 +1F50 1F57 +1F60 1F67 +1F70 1F7D +1F80 1F87 +1F90 1F97 +1FA0 1FA7 +1FB0 1FB4 +1FB6 1FB7 +1FBE +1FC2 1FC4 +1FC6 1FC7 +1FD0 1FD3 +1FD6 1FD7 +1FE0 1FE7 +1FF2 1FF4 +1FF6 1FF7 +2071 +207F +210A +210E 210F +2113 +212F +2134 +2139 +213C 213D +2146 2149 +214E +2184 +2C30 2C5E +2C61 +2C65 2C66 +2C68 +2C6A +2C6C +2C71 +2C73 2C74 +2C76 2C7C +2C81 +2C83 +2C85 +2C87 +2C89 +2C8B +2C8D +2C8F +2C91 +2C93 +2C95 +2C97 +2C99 +2C9B +2C9D +2C9F +2CA1 +2CA3 +2CA5 +2CA7 +2CA9 +2CAB +2CAD +2CAF +2CB1 +2CB3 +2CB5 +2CB7 +2CB9 +2CBB +2CBD +2CBF +2CC1 +2CC3 +2CC5 +2CC7 +2CC9 +2CCB +2CCD +2CCF +2CD1 +2CD3 +2CD5 +2CD7 +2CD9 +2CDB +2CDD +2CDF +2CE1 +2CE3 2CE4 +2D00 2D25 +A641 +A643 +A645 +A647 +A649 +A64B +A64D +A64F +A651 +A653 +A655 +A657 +A659 +A65B +A65D +A65F +A663 +A665 +A667 +A669 +A66B +A66D +A681 +A683 +A685 +A687 +A689 +A68B +A68D +A68F +A691 +A693 +A695 +A697 +A723 +A725 +A727 +A729 +A72B +A72D +A72F A731 +A733 +A735 +A737 +A739 +A73B +A73D +A73F +A741 +A743 +A745 +A747 +A749 +A74B +A74D +A74F +A751 +A753 +A755 +A757 +A759 +A75B +A75D +A75F +A761 +A763 +A765 +A767 +A769 +A76B +A76D +A76F +A771 A778 +A77A +A77C +A77F +A781 +A783 +A785 +A787 +A78C +FB00 FB06 +FB13 FB17 +FF41 FF5A +10428 1044F +1D41A 1D433 +1D44E 1D454 +1D456 1D467 +1D482 1D49B +1D4B6 1D4B9 +1D4BB +1D4BD 1D4C3 +1D4C5 1D4CF +1D4EA 1D503 +1D51E 1D537 +1D552 1D56B +1D586 1D59F +1D5BA 1D5D3 +1D5EE 1D607 +1D622 1D63B +1D656 1D66F +1D68A 1D6A5 +1D6C2 1D6DA +1D6DC 1D6E1 +1D6FC 1D714 +1D716 1D71B +1D736 1D74E +1D750 1D755 +1D770 1D788 +1D78A 1D78F +1D7AA 1D7C2 +1D7C4 1D7C9 +1D7CB +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Lowercas.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Lowercas.pl new file mode 100644 index 0000000..a088f53 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Lowercas.pl @@ -0,0 +1,617 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Lowercase} (and fuzzy permutations) +# +# Meaning: [\p{Ll}\p{OtherLowercase}] +# +return <<'END'; +0061 007A +00AA +00B5 +00BA +00DF 00F6 +00F8 00FF +0101 +0103 +0105 +0107 +0109 +010B +010D +010F +0111 +0113 +0115 +0117 +0119 +011B +011D +011F +0121 +0123 +0125 +0127 +0129 +012B +012D +012F +0131 +0133 +0135 +0137 0138 +013A +013C +013E +0140 +0142 +0144 +0146 +0148 0149 +014B +014D +014F +0151 +0153 +0155 +0157 +0159 +015B +015D +015F +0161 +0163 +0165 +0167 +0169 +016B +016D +016F +0171 +0173 +0175 +0177 +017A +017C +017E 0180 +0183 +0185 +0188 +018C 018D +0192 +0195 +0199 019B +019E +01A1 +01A3 +01A5 +01A8 +01AA 01AB +01AD +01B0 +01B4 +01B6 +01B9 01BA +01BD 01BF +01C6 +01C9 +01CC +01CE +01D0 +01D2 +01D4 +01D6 +01D8 +01DA +01DC 01DD +01DF +01E1 +01E3 +01E5 +01E7 +01E9 +01EB +01ED +01EF 01F0 +01F3 +01F5 +01F9 +01FB +01FD +01FF +0201 +0203 +0205 +0207 +0209 +020B +020D +020F +0211 +0213 +0215 +0217 +0219 +021B +021D +021F +0221 +0223 +0225 +0227 +0229 +022B +022D +022F +0231 +0233 0239 +023C +023F 0240 +0242 +0247 +0249 +024B +024D +024F 0293 +0295 02B8 +02C0 02C1 +02E0 02E4 +0345 +0371 +0373 +0377 +037A 037D +0390 +03AC 03CE +03D0 03D1 +03D5 03D7 +03D9 +03DB +03DD +03DF +03E1 +03E3 +03E5 +03E7 +03E9 +03EB +03ED +03EF 03F3 +03F5 +03F8 +03FB 03FC +0430 045F +0461 +0463 +0465 +0467 +0469 +046B +046D +046F +0471 +0473 +0475 +0477 +0479 +047B +047D +047F +0481 +048B +048D +048F +0491 +0493 +0495 +0497 +0499 +049B +049D +049F +04A1 +04A3 +04A5 +04A7 +04A9 +04AB +04AD +04AF +04B1 +04B3 +04B5 +04B7 +04B9 +04BB +04BD +04BF +04C2 +04C4 +04C6 +04C8 +04CA +04CC +04CE 04CF +04D1 +04D3 +04D5 +04D7 +04D9 +04DB +04DD +04DF +04E1 +04E3 +04E5 +04E7 +04E9 +04EB +04ED +04EF +04F1 +04F3 +04F5 +04F7 +04F9 +04FB +04FD +04FF +0501 +0503 +0505 +0507 +0509 +050B +050D +050F +0511 +0513 +0515 +0517 +0519 +051B +051D +051F +0521 +0523 +0561 0587 +1D00 1DBF +1E01 +1E03 +1E05 +1E07 +1E09 +1E0B +1E0D +1E0F +1E11 +1E13 +1E15 +1E17 +1E19 +1E1B +1E1D +1E1F +1E21 +1E23 +1E25 +1E27 +1E29 +1E2B +1E2D +1E2F +1E31 +1E33 +1E35 +1E37 +1E39 +1E3B +1E3D +1E3F +1E41 +1E43 +1E45 +1E47 +1E49 +1E4B +1E4D +1E4F +1E51 +1E53 +1E55 +1E57 +1E59 +1E5B +1E5D +1E5F +1E61 +1E63 +1E65 +1E67 +1E69 +1E6B +1E6D +1E6F +1E71 +1E73 +1E75 +1E77 +1E79 +1E7B +1E7D +1E7F +1E81 +1E83 +1E85 +1E87 +1E89 +1E8B +1E8D +1E8F +1E91 +1E93 +1E95 1E9D +1E9F +1EA1 +1EA3 +1EA5 +1EA7 +1EA9 +1EAB +1EAD +1EAF +1EB1 +1EB3 +1EB5 +1EB7 +1EB9 +1EBB +1EBD +1EBF +1EC1 +1EC3 +1EC5 +1EC7 +1EC9 +1ECB +1ECD +1ECF +1ED1 +1ED3 +1ED5 +1ED7 +1ED9 +1EDB +1EDD +1EDF +1EE1 +1EE3 +1EE5 +1EE7 +1EE9 +1EEB +1EED +1EEF +1EF1 +1EF3 +1EF5 +1EF7 +1EF9 +1EFB +1EFD +1EFF 1F07 +1F10 1F15 +1F20 1F27 +1F30 1F37 +1F40 1F45 +1F50 1F57 +1F60 1F67 +1F70 1F7D +1F80 1F87 +1F90 1F97 +1FA0 1FA7 +1FB0 1FB4 +1FB6 1FB7 +1FBE +1FC2 1FC4 +1FC6 1FC7 +1FD0 1FD3 +1FD6 1FD7 +1FE0 1FE7 +1FF2 1FF4 +1FF6 1FF7 +2071 +207F +2090 2094 +210A +210E 210F +2113 +212F +2134 +2139 +213C 213D +2146 2149 +214E +2170 217F +2184 +24D0 24E9 +2C30 2C5E +2C61 +2C65 2C66 +2C68 +2C6A +2C6C +2C71 +2C73 2C74 +2C76 2C7D +2C81 +2C83 +2C85 +2C87 +2C89 +2C8B +2C8D +2C8F +2C91 +2C93 +2C95 +2C97 +2C99 +2C9B +2C9D +2C9F +2CA1 +2CA3 +2CA5 +2CA7 +2CA9 +2CAB +2CAD +2CAF +2CB1 +2CB3 +2CB5 +2CB7 +2CB9 +2CBB +2CBD +2CBF +2CC1 +2CC3 +2CC5 +2CC7 +2CC9 +2CCB +2CCD +2CCF +2CD1 +2CD3 +2CD5 +2CD7 +2CD9 +2CDB +2CDD +2CDF +2CE1 +2CE3 2CE4 +2D00 2D25 +A641 +A643 +A645 +A647 +A649 +A64B +A64D +A64F +A651 +A653 +A655 +A657 +A659 +A65B +A65D +A65F +A663 +A665 +A667 +A669 +A66B +A66D +A681 +A683 +A685 +A687 +A689 +A68B +A68D +A68F +A691 +A693 +A695 +A697 +A723 +A725 +A727 +A729 +A72B +A72D +A72F A731 +A733 +A735 +A737 +A739 +A73B +A73D +A73F +A741 +A743 +A745 +A747 +A749 +A74B +A74D +A74F +A751 +A753 +A755 +A757 +A759 +A75B +A75D +A75F +A761 +A763 +A765 +A767 +A769 +A76B +A76D +A76F A778 +A77A +A77C +A77F +A781 +A783 +A785 +A787 +A78C +FB00 FB06 +FB13 FB17 +FF41 FF5A +10428 1044F +1D41A 1D433 +1D44E 1D454 +1D456 1D467 +1D482 1D49B +1D4B6 1D4B9 +1D4BB +1D4BD 1D4C3 +1D4C5 1D4CF +1D4EA 1D503 +1D51E 1D537 +1D552 1D56B +1D586 1D59F +1D5BA 1D5D3 +1D5EE 1D607 +1D622 1D63B +1D656 1D66F +1D68A 1D6A5 +1D6C2 1D6DA +1D6DC 1D6E1 +1D6FC 1D714 +1D716 1D71B +1D736 1D74E +1D750 1D755 +1D770 1D788 +1D78A 1D78F +1D7AA 1D7C2 +1D7C4 1D7C9 +1D7CB +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Lt.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Lt.pl new file mode 100644 index 0000000..9c4be07 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Lt.pl @@ -0,0 +1,27 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Lt} +# \p{Lt} (and fuzzy permutations) +# +# Meaning: General Category 'Lt' +# +return <<'END'; +01C5 +01C8 +01CB +01F2 +1F88 1F8F +1F98 1F9F +1FA8 1FAF +1FBC +1FCC +1FFC +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Lu.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Lu.pl new file mode 100644 index 0000000..de67701 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Lu.pl @@ -0,0 +1,608 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Lu} +# \p{Lu} (and fuzzy permutations) +# +# Meaning: General Category 'Lu' +# +return <<'END'; +0041 005A +00C0 00D6 +00D8 00DE +0100 +0102 +0104 +0106 +0108 +010A +010C +010E +0110 +0112 +0114 +0116 +0118 +011A +011C +011E +0120 +0122 +0124 +0126 +0128 +012A +012C +012E +0130 +0132 +0134 +0136 +0139 +013B +013D +013F +0141 +0143 +0145 +0147 +014A +014C +014E +0150 +0152 +0154 +0156 +0158 +015A +015C +015E +0160 +0162 +0164 +0166 +0168 +016A +016C +016E +0170 +0172 +0174 +0176 +0178 0179 +017B +017D +0181 0182 +0184 +0186 0187 +0189 018B +018E 0191 +0193 0194 +0196 0198 +019C 019D +019F 01A0 +01A2 +01A4 +01A6 01A7 +01A9 +01AC +01AE 01AF +01B1 01B3 +01B5 +01B7 01B8 +01BC +01C4 +01C7 +01CA +01CD +01CF +01D1 +01D3 +01D5 +01D7 +01D9 +01DB +01DE +01E0 +01E2 +01E4 +01E6 +01E8 +01EA +01EC +01EE +01F1 +01F4 +01F6 01F8 +01FA +01FC +01FE +0200 +0202 +0204 +0206 +0208 +020A +020C +020E +0210 +0212 +0214 +0216 +0218 +021A +021C +021E +0220 +0222 +0224 +0226 +0228 +022A +022C +022E +0230 +0232 +023A 023B +023D 023E +0241 +0243 0246 +0248 +024A +024C +024E +0370 +0372 +0376 +0386 +0388 038A +038C +038E 038F +0391 03A1 +03A3 03AB +03CF +03D2 03D4 +03D8 +03DA +03DC +03DE +03E0 +03E2 +03E4 +03E6 +03E8 +03EA +03EC +03EE +03F4 +03F7 +03F9 03FA +03FD 042F +0460 +0462 +0464 +0466 +0468 +046A +046C +046E +0470 +0472 +0474 +0476 +0478 +047A +047C +047E +0480 +048A +048C +048E +0490 +0492 +0494 +0496 +0498 +049A +049C +049E +04A0 +04A2 +04A4 +04A6 +04A8 +04AA +04AC +04AE +04B0 +04B2 +04B4 +04B6 +04B8 +04BA +04BC +04BE +04C0 04C1 +04C3 +04C5 +04C7 +04C9 +04CB +04CD +04D0 +04D2 +04D4 +04D6 +04D8 +04DA +04DC +04DE +04E0 +04E2 +04E4 +04E6 +04E8 +04EA +04EC +04EE +04F0 +04F2 +04F4 +04F6 +04F8 +04FA +04FC +04FE +0500 +0502 +0504 +0506 +0508 +050A +050C +050E +0510 +0512 +0514 +0516 +0518 +051A +051C +051E +0520 +0522 +0531 0556 +10A0 10C5 +1E00 +1E02 +1E04 +1E06 +1E08 +1E0A +1E0C +1E0E +1E10 +1E12 +1E14 +1E16 +1E18 +1E1A +1E1C +1E1E +1E20 +1E22 +1E24 +1E26 +1E28 +1E2A +1E2C +1E2E +1E30 +1E32 +1E34 +1E36 +1E38 +1E3A +1E3C +1E3E +1E40 +1E42 +1E44 +1E46 +1E48 +1E4A +1E4C +1E4E +1E50 +1E52 +1E54 +1E56 +1E58 +1E5A +1E5C +1E5E +1E60 +1E62 +1E64 +1E66 +1E68 +1E6A +1E6C +1E6E +1E70 +1E72 +1E74 +1E76 +1E78 +1E7A +1E7C +1E7E +1E80 +1E82 +1E84 +1E86 +1E88 +1E8A +1E8C +1E8E +1E90 +1E92 +1E94 +1E9E +1EA0 +1EA2 +1EA4 +1EA6 +1EA8 +1EAA +1EAC +1EAE +1EB0 +1EB2 +1EB4 +1EB6 +1EB8 +1EBA +1EBC +1EBE +1EC0 +1EC2 +1EC4 +1EC6 +1EC8 +1ECA +1ECC +1ECE +1ED0 +1ED2 +1ED4 +1ED6 +1ED8 +1EDA +1EDC +1EDE +1EE0 +1EE2 +1EE4 +1EE6 +1EE8 +1EEA +1EEC +1EEE +1EF0 +1EF2 +1EF4 +1EF6 +1EF8 +1EFA +1EFC +1EFE +1F08 1F0F +1F18 1F1D +1F28 1F2F +1F38 1F3F +1F48 1F4D +1F59 +1F5B +1F5D +1F5F +1F68 1F6F +1FB8 1FBB +1FC8 1FCB +1FD8 1FDB +1FE8 1FEC +1FF8 1FFB +2102 +2107 +210B 210D +2110 2112 +2115 +2119 211D +2124 +2126 +2128 +212A 212D +2130 2133 +213E 213F +2145 +2183 +2C00 2C2E +2C60 +2C62 2C64 +2C67 +2C69 +2C6B +2C6D 2C6F +2C72 +2C75 +2C80 +2C82 +2C84 +2C86 +2C88 +2C8A +2C8C +2C8E +2C90 +2C92 +2C94 +2C96 +2C98 +2C9A +2C9C +2C9E +2CA0 +2CA2 +2CA4 +2CA6 +2CA8 +2CAA +2CAC +2CAE +2CB0 +2CB2 +2CB4 +2CB6 +2CB8 +2CBA +2CBC +2CBE +2CC0 +2CC2 +2CC4 +2CC6 +2CC8 +2CCA +2CCC +2CCE +2CD0 +2CD2 +2CD4 +2CD6 +2CD8 +2CDA +2CDC +2CDE +2CE0 +2CE2 +A640 +A642 +A644 +A646 +A648 +A64A +A64C +A64E +A650 +A652 +A654 +A656 +A658 +A65A +A65C +A65E +A662 +A664 +A666 +A668 +A66A +A66C +A680 +A682 +A684 +A686 +A688 +A68A +A68C +A68E +A690 +A692 +A694 +A696 +A722 +A724 +A726 +A728 +A72A +A72C +A72E +A732 +A734 +A736 +A738 +A73A +A73C +A73E +A740 +A742 +A744 +A746 +A748 +A74A +A74C +A74E +A750 +A752 +A754 +A756 +A758 +A75A +A75C +A75E +A760 +A762 +A764 +A766 +A768 +A76A +A76C +A76E +A779 +A77B +A77D A77E +A780 +A782 +A784 +A786 +A78B +FF21 FF3A +10400 10427 +1D400 1D419 +1D434 1D44D +1D468 1D481 +1D49C +1D49E 1D49F +1D4A2 +1D4A5 1D4A6 +1D4A9 1D4AC +1D4AE 1D4B5 +1D4D0 1D4E9 +1D504 1D505 +1D507 1D50A +1D50D 1D514 +1D516 1D51C +1D538 1D539 +1D53B 1D53E +1D540 1D544 +1D546 +1D54A 1D550 +1D56C 1D585 +1D5A0 1D5B9 +1D5D4 1D5ED +1D608 1D621 +1D63C 1D655 +1D670 1D689 +1D6A8 1D6C0 +1D6E2 1D6FA +1D71C 1D734 +1D756 1D76E +1D790 1D7A8 +1D7CA +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Lyci.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Lyci.pl new file mode 100644 index 0000000..598d222 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Lyci.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Lycian} (and fuzzy permutations) +# +# Meaning: Script 'Lycian' +# +return <<'END'; +10280 1029C Lycian +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Lydi.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Lydi.pl new file mode 100644 index 0000000..d83ea28 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Lydi.pl @@ -0,0 +1,18 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Lydian} (and fuzzy permutations) +# +# Meaning: Script 'Lydian' +# +return <<'END'; +10920 10939 Lydian +1093F Lydian +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/M.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/M.pl new file mode 100644 index 0000000..3937d90 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/M.pl @@ -0,0 +1,178 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{M} +# \p{M} (and fuzzy permutations) +# +# Meaning: Major Category 'M' +# +return <<'END'; +0300 036F +0483 0489 +0591 05BD +05BF +05C1 05C2 +05C4 05C5 +05C7 +0610 061A +064B 065E +0670 +06D6 06DC +06DE 06E4 +06E7 06E8 +06EA 06ED +0711 +0730 074A +07A6 07B0 +07EB 07F3 +0901 0903 +093C +093E 094D +0951 0954 +0962 0963 +0981 0983 +09BC +09BE 09C4 +09C7 09C8 +09CB 09CD +09D7 +09E2 09E3 +0A01 0A03 +0A3C +0A3E 0A42 +0A47 0A48 +0A4B 0A4D +0A51 +0A70 0A71 +0A75 +0A81 0A83 +0ABC +0ABE 0AC5 +0AC7 0AC9 +0ACB 0ACD +0AE2 0AE3 +0B01 0B03 +0B3C +0B3E 0B44 +0B47 0B48 +0B4B 0B4D +0B56 0B57 +0B62 0B63 +0B82 +0BBE 0BC2 +0BC6 0BC8 +0BCA 0BCD +0BD7 +0C01 0C03 +0C3E 0C44 +0C46 0C48 +0C4A 0C4D +0C55 0C56 +0C62 0C63 +0C82 0C83 +0CBC +0CBE 0CC4 +0CC6 0CC8 +0CCA 0CCD +0CD5 0CD6 +0CE2 0CE3 +0D02 0D03 +0D3E 0D44 +0D46 0D48 +0D4A 0D4D +0D57 +0D62 0D63 +0D82 0D83 +0DCA +0DCF 0DD4 +0DD6 +0DD8 0DDF +0DF2 0DF3 +0E31 +0E34 0E3A +0E47 0E4E +0EB1 +0EB4 0EB9 +0EBB 0EBC +0EC8 0ECD +0F18 0F19 +0F35 +0F37 +0F39 +0F3E 0F3F +0F71 0F84 +0F86 0F87 +0F90 0F97 +0F99 0FBC +0FC6 +102B 103E +1056 1059 +105E 1060 +1062 1064 +1067 106D +1071 1074 +1082 108D +108F +135F +1712 1714 +1732 1734 +1752 1753 +1772 1773 +17B6 17D3 +17DD +180B 180D +18A9 +1920 192B +1930 193B +19B0 19C0 +19C8 19C9 +1A17 1A1B +1B00 1B04 +1B34 1B44 +1B6B 1B73 +1B80 1B82 +1BA1 1BAA +1C24 1C37 +1DC0 1DE6 +1DFE 1DFF +20D0 20F0 +2DE0 2DFF +302A 302F +3099 309A +A66F A672 +A67C A67D +A802 +A806 +A80B +A823 A827 +A880 A881 +A8B4 A8C4 +A926 A92D +A947 A953 +AA29 AA36 +AA43 +AA4C AA4D +FB1E +FE00 FE0F +FE20 FE26 +101FD +10A01 10A03 +10A05 10A06 +10A0C 10A0F +10A38 10A3A +10A3F +1D165 1D169 +1D16D 1D172 +1D17B 1D182 +1D185 1D18B +1D1AA 1D1AD +1D242 1D244 +E0100 E01EF +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Math.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Math.pl new file mode 100644 index 0000000..aab2157 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Math.pl @@ -0,0 +1,121 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Math} (and fuzzy permutations) +# +# Meaning: [\p{Sm}\p{OtherMath}] +# +return <<'END'; +002B +003C 003E +005E +007C +007E +00AC +00B1 +00D7 +00F7 +03D0 03D2 +03D5 +03F0 03F1 +03F4 03F6 +0606 0608 +2016 +2032 2034 +2040 +2044 +2052 +2061 2064 +207A 207E +208A 208E +20D0 20DC +20E1 +20E5 20E6 +20EB 20EF +2102 +210A 2113 +2115 +2119 211D +2124 +2128 2129 +212C 212D +212F 2131 +2133 2138 +213C 2149 +214B +2190 21A7 +21A9 21AE +21B0 21B1 +21B6 21B7 +21BC 21DB +21DD +21E4 21E5 +21F4 22FF +2308 230B +2320 2321 +237C +239B 23B5 +23B7 +23D0 +23DC 23E2 +25A0 25A1 +25AE 25B7 +25BC 25C1 +25C6 25C7 +25CA 25CB +25CF 25D3 +25E2 +25E4 +25E7 25EC +25F8 25FF +2605 2606 +2640 +2642 +2660 2663 +266D 266F +27C0 27CA +27CC +27D0 27FF +2900 2AFF +2B30 2B44 +2B47 2B4C +FB29 +FE61 FE66 +FE68 +FF0B +FF1C FF1E +FF3C +FF3E +FF5C +FF5E +FFE2 +FFE9 FFEC +1D400 1D454 +1D456 1D49C +1D49E 1D49F +1D4A2 +1D4A5 1D4A6 +1D4A9 1D4AC +1D4AE 1D4B9 +1D4BB +1D4BD 1D4C3 +1D4C5 1D505 +1D507 1D50A +1D50D 1D514 +1D516 1D51C +1D51E 1D539 +1D53B 1D53E +1D540 1D544 +1D546 +1D54A 1D550 +1D552 1D6A5 +1D6A8 1D7CB +1D7CE 1D7FF +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Mc.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Mc.pl new file mode 100644 index 0000000..46e7e2e --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Mc.pl @@ -0,0 +1,102 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Mc} +# \p{Mc} (and fuzzy permutations) +# +# Meaning: General Category 'Mc' +# +return <<'END'; +0903 +093E 0940 +0949 094C +0982 0983 +09BE 09C0 +09C7 09C8 +09CB 09CC +09D7 +0A03 +0A3E 0A40 +0A83 +0ABE 0AC0 +0AC9 +0ACB 0ACC +0B02 0B03 +0B3E +0B40 +0B47 0B48 +0B4B 0B4C +0B57 +0BBE 0BBF +0BC1 0BC2 +0BC6 0BC8 +0BCA 0BCC +0BD7 +0C01 0C03 +0C41 0C44 +0C82 0C83 +0CBE +0CC0 0CC4 +0CC7 0CC8 +0CCA 0CCB +0CD5 0CD6 +0D02 0D03 +0D3E 0D40 +0D46 0D48 +0D4A 0D4C +0D57 +0D82 0D83 +0DCF 0DD1 +0DD8 0DDF +0DF2 0DF3 +0F3E 0F3F +0F7F +102B 102C +1031 +1038 +103B 103C +1056 1057 +1062 1064 +1067 106D +1083 1084 +1087 108C +108F +17B6 +17BE 17C5 +17C7 17C8 +1923 1926 +1929 192B +1930 1931 +1933 1938 +19B0 19C0 +19C8 19C9 +1A19 1A1B +1B04 +1B35 +1B3B +1B3D 1B41 +1B43 1B44 +1B82 +1BA1 +1BA6 1BA7 +1BAA +1C24 1C2B +1C34 1C35 +A823 A824 +A827 +A880 A881 +A8B4 A8C3 +A952 A953 +AA2F AA30 +AA33 AA34 +AA4D +1D165 1D166 +1D16D 1D172 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Me.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Me.pl new file mode 100644 index 0000000..94326e2 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Me.pl @@ -0,0 +1,22 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Me} +# \p{Me} (and fuzzy permutations) +# +# Meaning: General Category 'Me' +# +return <<'END'; +0488 0489 +06DE +20DD 20E0 +20E2 20E4 +A670 A672 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Mlym.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Mlym.pl new file mode 100644 index 0000000..9a01732 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Mlym.pl @@ -0,0 +1,28 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Malayalam} (and fuzzy permutations) +# +# Meaning: Script 'Malayalam' +# +return <<'END'; +0D02 0D03 Malayalam +0D05 0D0C Malayalam +0D0E 0D10 Malayalam +0D12 0D28 Malayalam +0D2A 0D39 Malayalam +0D3D 0D44 Malayalam +0D46 0D48 Malayalam +0D4A 0D4D Malayalam +0D57 Malayalam +0D60 0D63 Malayalam +0D66 0D75 Malayalam +0D79 0D7F Malayalam +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Mn.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Mn.pl new file mode 100644 index 0000000..1e7f652 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Mn.pl @@ -0,0 +1,177 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Mn} +# \p{Mn} (and fuzzy permutations) +# +# Meaning: General Category 'Mn' +# +return <<'END'; +0300 036F +0483 0487 +0591 05BD +05BF +05C1 05C2 +05C4 05C5 +05C7 +0610 061A +064B 065E +0670 +06D6 06DC +06DF 06E4 +06E7 06E8 +06EA 06ED +0711 +0730 074A +07A6 07B0 +07EB 07F3 +0901 0902 +093C +0941 0948 +094D +0951 0954 +0962 0963 +0981 +09BC +09C1 09C4 +09CD +09E2 09E3 +0A01 0A02 +0A3C +0A41 0A42 +0A47 0A48 +0A4B 0A4D +0A51 +0A70 0A71 +0A75 +0A81 0A82 +0ABC +0AC1 0AC5 +0AC7 0AC8 +0ACD +0AE2 0AE3 +0B01 +0B3C +0B3F +0B41 0B44 +0B4D +0B56 +0B62 0B63 +0B82 +0BC0 +0BCD +0C3E 0C40 +0C46 0C48 +0C4A 0C4D +0C55 0C56 +0C62 0C63 +0CBC +0CBF +0CC6 +0CCC 0CCD +0CE2 0CE3 +0D41 0D44 +0D4D +0D62 0D63 +0DCA +0DD2 0DD4 +0DD6 +0E31 +0E34 0E3A +0E47 0E4E +0EB1 +0EB4 0EB9 +0EBB 0EBC +0EC8 0ECD +0F18 0F19 +0F35 +0F37 +0F39 +0F71 0F7E +0F80 0F84 +0F86 0F87 +0F90 0F97 +0F99 0FBC +0FC6 +102D 1030 +1032 1037 +1039 103A +103D 103E +1058 1059 +105E 1060 +1071 1074 +1082 +1085 1086 +108D +135F +1712 1714 +1732 1734 +1752 1753 +1772 1773 +17B7 17BD +17C6 +17C9 17D3 +17DD +180B 180D +18A9 +1920 1922 +1927 1928 +1932 +1939 193B +1A17 1A18 +1B00 1B03 +1B34 +1B36 1B3A +1B3C +1B42 +1B6B 1B73 +1B80 1B81 +1BA2 1BA5 +1BA8 1BA9 +1C2C 1C33 +1C36 1C37 +1DC0 1DE6 +1DFE 1DFF +20D0 20DC +20E1 +20E5 20F0 +2DE0 2DFF +302A 302F +3099 309A +A66F +A67C A67D +A802 +A806 +A80B +A825 A826 +A8C4 +A926 A92D +A947 A951 +AA29 AA2E +AA31 AA32 +AA35 AA36 +AA43 +AA4C +FB1E +FE00 FE0F +FE20 FE26 +101FD +10A01 10A03 +10A05 10A06 +10A0C 10A0F +10A38 10A3A +10A3F +1D167 1D169 +1D17B 1D182 +1D185 1D18B +1D1AA 1D1AD +1D242 1D244 +E0100 E01EF +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Mong.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Mong.pl new file mode 100644 index 0000000..b1bfc9a --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Mong.pl @@ -0,0 +1,22 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Mongolian} (and fuzzy permutations) +# +# Meaning: Script 'Mongolian' +# +return <<'END'; +1800 1801 Mongolian +1804 Mongolian +1806 180E Mongolian +1810 1819 Mongolian +1820 1877 Mongolian +1880 18AA Mongolian +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Mymr.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Mymr.pl new file mode 100644 index 0000000..55eb02e --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Mymr.pl @@ -0,0 +1,18 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Myanmar} (and fuzzy permutations) +# +# Meaning: Script 'Myanmar' +# +return <<'END'; +1000 1099 Myanmar +109E 109F Myanmar +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/N.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/N.pl new file mode 100644 index 0000000..18e3f10 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/N.pl @@ -0,0 +1,86 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{N} +# \p{N} (and fuzzy permutations) +# +# Meaning: Major Category 'N' +# +return <<'END'; +0030 0039 +00B2 00B3 +00B9 +00BC 00BE +0660 0669 +06F0 06F9 +07C0 07C9 +0966 096F +09E6 09EF +09F4 09F9 +0A66 0A6F +0AE6 0AEF +0B66 0B6F +0BE6 0BF2 +0C66 0C6F +0C78 0C7E +0CE6 0CEF +0D66 0D75 +0E50 0E59 +0ED0 0ED9 +0F20 0F33 +1040 1049 +1090 1099 +1369 137C +16EE 16F0 +17E0 17E9 +17F0 17F9 +1810 1819 +1946 194F +19D0 19D9 +1B50 1B59 +1BB0 1BB9 +1C40 1C49 +1C50 1C59 +2070 +2074 2079 +2080 2089 +2153 2182 +2185 2188 +2460 249B +24EA 24FF +2776 2793 +2CFD +3007 +3021 3029 +3038 303A +3192 3195 +3220 3229 +3251 325F +3280 3289 +32B1 32BF +A620 A629 +A8D0 A8D9 +A900 A909 +AA50 AA59 +FF10 FF19 +10107 10133 +10140 10178 +1018A +10320 10323 +10341 +1034A +103D1 103D5 +104A0 104A9 +10916 10919 +10A40 10A47 +12400 12462 +1D360 1D371 +1D7CE 1D7FF +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/NChar.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/NChar.pl new file mode 100644 index 0000000..5bcb62d --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/NChar.pl @@ -0,0 +1,31 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Binary property 'Noncharacter_Code_Point' +# +return <<'END'; +FDD0 FDEF Noncharacter_Code_Point +FFFE FFFF Noncharacter_Code_Point +1FFFE 1FFFF Noncharacter_Code_Point +2FFFE 2FFFF Noncharacter_Code_Point +3FFFE 3FFFF Noncharacter_Code_Point +4FFFE 4FFFF Noncharacter_Code_Point +5FFFE 5FFFF Noncharacter_Code_Point +6FFFE 6FFFF Noncharacter_Code_Point +7FFFE 7FFFF Noncharacter_Code_Point +8FFFE 8FFFF Noncharacter_Code_Point +9FFFE 9FFFF Noncharacter_Code_Point +AFFFE AFFFF Noncharacter_Code_Point +BFFFE BFFFF Noncharacter_Code_Point +CFFFE CFFFF Noncharacter_Code_Point +DFFFE DFFFF Noncharacter_Code_Point +EFFFE EFFFF Noncharacter_Code_Point +FFFFE FFFFF Noncharacter_Code_Point +10FFFE 10FFFF Noncharacter_Code_Point +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Nd.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Nd.pl new file mode 100644 index 0000000..cba14f2 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Nd.pl @@ -0,0 +1,50 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Nd} +# \p{Nd} (and fuzzy permutations) +# +# Meaning: General Category 'Nd' +# +return <<'END'; +0030 0039 +0660 0669 +06F0 06F9 +07C0 07C9 +0966 096F +09E6 09EF +0A66 0A6F +0AE6 0AEF +0B66 0B6F +0BE6 0BEF +0C66 0C6F +0CE6 0CEF +0D66 0D6F +0E50 0E59 +0ED0 0ED9 +0F20 0F29 +1040 1049 +1090 1099 +17E0 17E9 +1810 1819 +1946 194F +19D0 19D9 +1B50 1B59 +1BB0 1BB9 +1C40 1C49 +1C50 1C59 +A620 A629 +A8D0 A8D9 +A900 A909 +AA50 AA59 +FF10 FF19 +104A0 104A9 +1D7CE 1D7FF +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/NewTaiLu.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/NewTaiLu.pl new file mode 100644 index 0000000..537f6d6 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/NewTaiLu.pl @@ -0,0 +1,20 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{NewTaiLue} (and fuzzy permutations) +# +# Meaning: Script 'New_Tai_Lue' +# +return <<'END'; +1980 19A9 New_Tai_Lue +19B0 19C9 New_Tai_Lue +19D0 19D9 New_Tai_Lue +19DE 19DF New_Tai_Lue +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Nkoo.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Nkoo.pl new file mode 100644 index 0000000..b42f593 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Nkoo.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Nko} (and fuzzy permutations) +# +# Meaning: Script 'Nko' +# +return <<'END'; +07C0 07FA Nko +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Nl.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Nl.pl new file mode 100644 index 0000000..405df21 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Nl.pl @@ -0,0 +1,28 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Nl} +# \p{Nl} (and fuzzy permutations) +# +# Meaning: General Category 'Nl' +# +return <<'END'; +16EE 16F0 +2160 2182 +2185 2188 +3007 +3021 3029 +3038 303A +10140 10174 +10341 +1034A +103D1 103D5 +12400 12462 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/No.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/No.pl new file mode 100644 index 0000000..622f36b --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/No.pl @@ -0,0 +1,47 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{No} +# \p{No} (and fuzzy permutations) +# +# Meaning: General Category 'No' +# +return <<'END'; +00B2 00B3 +00B9 +00BC 00BE +09F4 09F9 +0BF0 0BF2 +0C78 0C7E +0D70 0D75 +0F2A 0F33 +1369 137C +17F0 17F9 +2070 +2074 2079 +2080 2089 +2153 215F +2460 249B +24EA 24FF +2776 2793 +2CFD +3192 3195 +3220 3229 +3251 325F +3280 3289 +32B1 32BF +10107 10133 +10175 10178 +1018A +10320 10323 +10916 10919 +10A40 10A47 +1D360 1D371 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Nonchara.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Nonchara.pl new file mode 100644 index 0000000..f4eb753 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Nonchara.pl @@ -0,0 +1,34 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{NoncharacterCodePoint} (and fuzzy permutations) +# +# Meaning: Extended property 'Noncharacter_Code_Point' +# +return <<'END'; +FDD0 FDEF Noncharacter_Code_Point +FFFE FFFF Noncharacter_Code_Point +1FFFE 1FFFF Noncharacter_Code_Point +2FFFE 2FFFF Noncharacter_Code_Point +3FFFE 3FFFF Noncharacter_Code_Point +4FFFE 4FFFF Noncharacter_Code_Point +5FFFE 5FFFF Noncharacter_Code_Point +6FFFE 6FFFF Noncharacter_Code_Point +7FFFE 7FFFF Noncharacter_Code_Point +8FFFE 8FFFF Noncharacter_Code_Point +9FFFE 9FFFF Noncharacter_Code_Point +AFFFE AFFFF Noncharacter_Code_Point +BFFFE BFFFF Noncharacter_Code_Point +CFFFE CFFFF Noncharacter_Code_Point +DFFFE DFFFF Noncharacter_Code_Point +EFFFE EFFFF Noncharacter_Code_Point +FFFFE FFFFF Noncharacter_Code_Point +10FFFE 10FFFF Noncharacter_Code_Point +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/OAlpha.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/OAlpha.pl new file mode 100644 index 0000000..b4edb96 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/OAlpha.pl @@ -0,0 +1,135 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Binary property 'Other_Alphabetic' +# +return <<'END'; +0345 Other_Alphabetic +05B0 05BD Other_Alphabetic +05BF Other_Alphabetic +05C1 05C2 Other_Alphabetic +05C4 05C5 Other_Alphabetic +05C7 Other_Alphabetic +0610 061A Other_Alphabetic +064B 0657 Other_Alphabetic +0659 065E Other_Alphabetic +0670 Other_Alphabetic +06D6 06DC Other_Alphabetic +06E1 06E4 Other_Alphabetic +06E7 06E8 Other_Alphabetic +06ED Other_Alphabetic +0711 Other_Alphabetic +0730 073F Other_Alphabetic +07A6 07B0 Other_Alphabetic +0901 0903 Other_Alphabetic +093E 094C Other_Alphabetic +0962 0963 Other_Alphabetic +0981 0983 Other_Alphabetic +09BE 09C4 Other_Alphabetic +09C7 09C8 Other_Alphabetic +09CB 09CC Other_Alphabetic +09D7 Other_Alphabetic +09E2 09E3 Other_Alphabetic +0A01 0A03 Other_Alphabetic +0A3E 0A42 Other_Alphabetic +0A47 0A48 Other_Alphabetic +0A4B 0A4C Other_Alphabetic +0A51 Other_Alphabetic +0A70 0A71 Other_Alphabetic +0A75 Other_Alphabetic +0A81 0A83 Other_Alphabetic +0ABE 0AC5 Other_Alphabetic +0AC7 0AC9 Other_Alphabetic +0ACB 0ACC Other_Alphabetic +0AE2 0AE3 Other_Alphabetic +0B01 0B03 Other_Alphabetic +0B3E 0B44 Other_Alphabetic +0B47 0B48 Other_Alphabetic +0B4B 0B4C Other_Alphabetic +0B56 0B57 Other_Alphabetic +0B62 0B63 Other_Alphabetic +0B82 Other_Alphabetic +0BBE 0BC2 Other_Alphabetic +0BC6 0BC8 Other_Alphabetic +0BCA 0BCC Other_Alphabetic +0BD7 Other_Alphabetic +0C01 0C03 Other_Alphabetic +0C3E 0C44 Other_Alphabetic +0C46 0C48 Other_Alphabetic +0C4A 0C4C Other_Alphabetic +0C55 0C56 Other_Alphabetic +0C62 0C63 Other_Alphabetic +0C82 0C83 Other_Alphabetic +0CBE 0CC4 Other_Alphabetic +0CC6 0CC8 Other_Alphabetic +0CCA 0CCC Other_Alphabetic +0CD5 0CD6 Other_Alphabetic +0CE2 0CE3 Other_Alphabetic +0D02 0D03 Other_Alphabetic +0D3E 0D44 Other_Alphabetic +0D46 0D48 Other_Alphabetic +0D4A 0D4C Other_Alphabetic +0D57 Other_Alphabetic +0D62 0D63 Other_Alphabetic +0D82 0D83 Other_Alphabetic +0DCF 0DD4 Other_Alphabetic +0DD6 Other_Alphabetic +0DD8 0DDF Other_Alphabetic +0DF2 0DF3 Other_Alphabetic +0E31 Other_Alphabetic +0E34 0E3A Other_Alphabetic +0E4D Other_Alphabetic +0EB1 Other_Alphabetic +0EB4 0EB9 Other_Alphabetic +0EBB 0EBC Other_Alphabetic +0ECD Other_Alphabetic +0F71 0F81 Other_Alphabetic +0F90 0F97 Other_Alphabetic +0F99 0FBC Other_Alphabetic +102B 1036 Other_Alphabetic +1038 Other_Alphabetic +103B 103E Other_Alphabetic +1056 1059 Other_Alphabetic +105E 1060 Other_Alphabetic +1062 Other_Alphabetic +1067 1068 Other_Alphabetic +1071 1074 Other_Alphabetic +1082 1086 Other_Alphabetic +135F Other_Alphabetic +1712 1713 Other_Alphabetic +1732 1733 Other_Alphabetic +1752 1753 Other_Alphabetic +1772 1773 Other_Alphabetic +17B6 17C8 Other_Alphabetic +18A9 Other_Alphabetic +1920 192B Other_Alphabetic +1930 1938 Other_Alphabetic +19B0 19C0 Other_Alphabetic +19C8 19C9 Other_Alphabetic +1A17 1A1B Other_Alphabetic +1B00 1B04 Other_Alphabetic +1B35 1B43 Other_Alphabetic +1B80 1B82 Other_Alphabetic +1BA1 1BA9 Other_Alphabetic +1C24 1C35 Other_Alphabetic +24B6 24E9 Other_Alphabetic +2DE0 2DFF Other_Alphabetic +A823 A827 Other_Alphabetic +A880 A881 Other_Alphabetic +A8B4 A8C3 Other_Alphabetic +A926 A92A Other_Alphabetic +A947 A952 Other_Alphabetic +AA29 AA36 Other_Alphabetic +AA43 Other_Alphabetic +AA4C AA4D Other_Alphabetic +FB1E Other_Alphabetic +10A01 10A03 Other_Alphabetic +10A05 10A06 Other_Alphabetic +10A0C 10A0F Other_Alphabetic +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/ODI.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/ODI.pl new file mode 100644 index 0000000..a97955a --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/ODI.pl @@ -0,0 +1,23 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Binary property 'Other_Default_Ignorable_Code_Point' +# +return <<'END'; +034F Other_Default_Ignorable_Code_Point +115F 1160 Other_Default_Ignorable_Code_Point +2065 2069 Other_Default_Ignorable_Code_Point +3164 Other_Default_Ignorable_Code_Point +FFA0 Other_Default_Ignorable_Code_Point +FFF0 FFF8 Other_Default_Ignorable_Code_Point +E0000 Other_Default_Ignorable_Code_Point +E0002 E001F Other_Default_Ignorable_Code_Point +E0080 E00FF Other_Default_Ignorable_Code_Point +E01F0 E0FFF Other_Default_Ignorable_Code_Point +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/OGrExt.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/OGrExt.pl new file mode 100644 index 0000000..f9f5e7f --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/OGrExt.pl @@ -0,0 +1,29 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Binary property 'Other_Grapheme_Extend' +# +return <<'END'; +09BE Other_Grapheme_Extend +09D7 Other_Grapheme_Extend +0B3E Other_Grapheme_Extend +0B57 Other_Grapheme_Extend +0BBE Other_Grapheme_Extend +0BD7 Other_Grapheme_Extend +0CC2 Other_Grapheme_Extend +0CD5 0CD6 Other_Grapheme_Extend +0D3E Other_Grapheme_Extend +0D57 Other_Grapheme_Extend +0DCF Other_Grapheme_Extend +0DDF Other_Grapheme_Extend +200C 200D Other_Grapheme_Extend +FF9E FF9F Other_Grapheme_Extend +1D165 Other_Grapheme_Extend +1D16E 1D172 Other_Grapheme_Extend +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/OIDC.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/OIDC.pl new file mode 100644 index 0000000..8ac1b0e --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/OIDC.pl @@ -0,0 +1,16 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Binary property 'Other_ID_Continue' +# +return <<'END'; +00B7 Other_ID_Continue +0387 Other_ID_Continue +1369 1371 Other_ID_Continue +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/OIDS.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/OIDS.pl new file mode 100644 index 0000000..ba93bb9 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/OIDS.pl @@ -0,0 +1,16 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Binary property 'Other_ID_Start' +# +return <<'END'; +2118 Other_ID_Start +212E Other_ID_Start +309B 309C Other_ID_Start +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/OLower.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/OLower.pl new file mode 100644 index 0000000..85e6e55 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/OLower.pl @@ -0,0 +1,26 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Binary property 'Other_Lowercase' +# +return <<'END'; +02B0 02B8 Other_Lowercase +02C0 02C1 Other_Lowercase +02E0 02E4 Other_Lowercase +0345 Other_Lowercase +037A Other_Lowercase +1D2C 1D61 Other_Lowercase +1D78 Other_Lowercase +1D9B 1DBF Other_Lowercase +2090 2094 Other_Lowercase +2170 217F Other_Lowercase +24D0 24E9 Other_Lowercase +2C7D Other_Lowercase +A770 Other_Lowercase +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/OMath.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/OMath.pl new file mode 100644 index 0000000..b8a47d5 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/OMath.pl @@ -0,0 +1,112 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Binary property 'Other_Math' +# +return <<'END'; +005E Other_Math +03D0 03D2 Other_Math +03D5 Other_Math +03F0 03F1 Other_Math +03F4 03F5 Other_Math +2016 Other_Math +2032 2034 Other_Math +2040 Other_Math +2061 2064 Other_Math +207D 207E Other_Math +208D 208E Other_Math +20D0 20DC Other_Math +20E1 Other_Math +20E5 20E6 Other_Math +20EB 20EF Other_Math +2102 Other_Math +210A 2113 Other_Math +2115 Other_Math +2119 211D Other_Math +2124 Other_Math +2128 2129 Other_Math +212C 212D Other_Math +212F 2131 Other_Math +2133 2138 Other_Math +213C 213F Other_Math +2145 2149 Other_Math +2195 2199 Other_Math +219C 219F Other_Math +21A1 21A2 Other_Math +21A4 21A5 Other_Math +21A7 Other_Math +21A9 21AD Other_Math +21B0 21B1 Other_Math +21B6 21B7 Other_Math +21BC 21CD Other_Math +21D0 21D1 Other_Math +21D3 Other_Math +21D5 21DB Other_Math +21DD Other_Math +21E4 21E5 Other_Math +23B4 23B5 Other_Math +23B7 Other_Math +23D0 Other_Math +23E2 Other_Math +25A0 25A1 Other_Math +25AE 25B6 Other_Math +25BC 25C0 Other_Math +25C6 25C7 Other_Math +25CA 25CB Other_Math +25CF 25D3 Other_Math +25E2 Other_Math +25E4 Other_Math +25E7 25EC Other_Math +2605 2606 Other_Math +2640 Other_Math +2642 Other_Math +2660 2663 Other_Math +266D 266E Other_Math +27C5 27C6 Other_Math +27E6 27EF Other_Math +2983 2998 Other_Math +29D8 29DB Other_Math +29FC 29FD Other_Math +FE61 Other_Math +FE63 Other_Math +FE68 Other_Math +FF3C Other_Math +FF3E Other_Math +1D400 1D454 Other_Math +1D456 1D49C Other_Math +1D49E 1D49F Other_Math +1D4A2 Other_Math +1D4A5 1D4A6 Other_Math +1D4A9 1D4AC Other_Math +1D4AE 1D4B9 Other_Math +1D4BB Other_Math +1D4BD 1D4C3 Other_Math +1D4C5 1D505 Other_Math +1D507 1D50A Other_Math +1D50D 1D514 Other_Math +1D516 1D51C Other_Math +1D51E 1D539 Other_Math +1D53B 1D53E Other_Math +1D540 1D544 Other_Math +1D546 Other_Math +1D54A 1D550 Other_Math +1D552 1D6A5 Other_Math +1D6A8 1D6C0 Other_Math +1D6C2 1D6DA Other_Math +1D6DC 1D6FA Other_Math +1D6FC 1D714 Other_Math +1D716 1D734 Other_Math +1D736 1D74E Other_Math +1D750 1D76E Other_Math +1D770 1D788 Other_Math +1D78A 1D7A8 Other_Math +1D7AA 1D7C2 Other_Math +1D7C4 1D7CB Other_Math +1D7CE 1D7FF Other_Math +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/OUpper.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/OUpper.pl new file mode 100644 index 0000000..a05b266 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/OUpper.pl @@ -0,0 +1,15 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Binary property 'Other_Uppercase' +# +return <<'END'; +2160 216F Other_Uppercase +24B6 24CF Other_Uppercase +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Ogam.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Ogam.pl new file mode 100644 index 0000000..f42872f --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Ogam.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Ogham} (and fuzzy permutations) +# +# Meaning: Script 'Ogham' +# +return <<'END'; +1680 169C Ogham +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/OlChiki.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/OlChiki.pl new file mode 100644 index 0000000..dd2aadd --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/OlChiki.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{OlChiki} (and fuzzy permutations) +# +# Meaning: Script 'Ol_Chiki' +# +return <<'END'; +1C50 1C7F Ol_Chiki +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/OldItali.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/OldItali.pl new file mode 100644 index 0000000..06e9c4e --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/OldItali.pl @@ -0,0 +1,18 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{OldItalic} (and fuzzy permutations) +# +# Meaning: Script 'Old_Italic' +# +return <<'END'; +10300 1031E Old_Italic +10320 10323 Old_Italic +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/OldPersi.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/OldPersi.pl new file mode 100644 index 0000000..1b7cf22 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/OldPersi.pl @@ -0,0 +1,18 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{OldPersian} (and fuzzy permutations) +# +# Meaning: Script 'Old_Persian' +# +return <<'END'; +103A0 103C3 Old_Persian +103C8 103D5 Old_Persian +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Orya.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Orya.pl new file mode 100644 index 0000000..c72c66a --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Orya.pl @@ -0,0 +1,30 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Oriya} (and fuzzy permutations) +# +# Meaning: Script 'Oriya' +# +return <<'END'; +0B01 0B03 Oriya +0B05 0B0C Oriya +0B0F 0B10 Oriya +0B13 0B28 Oriya +0B2A 0B30 Oriya +0B32 0B33 Oriya +0B35 0B39 Oriya +0B3C 0B44 Oriya +0B47 0B48 Oriya +0B4B 0B4D Oriya +0B56 0B57 Oriya +0B5C 0B5D Oriya +0B5F 0B63 Oriya +0B66 0B71 Oriya +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Osma.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Osma.pl new file mode 100644 index 0000000..d0e3e0c --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Osma.pl @@ -0,0 +1,18 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Osmanya} (and fuzzy permutations) +# +# Meaning: Script 'Osmanya' +# +return <<'END'; +10480 1049D Osmanya +104A0 104A9 Osmanya +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/OtherAlp.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/OtherAlp.pl new file mode 100644 index 0000000..5b353b3 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/OtherAlp.pl @@ -0,0 +1,138 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{OtherAlphabetic} (and fuzzy permutations) +# +# Meaning: Extended property 'Other_Alphabetic' +# +return <<'END'; +0345 Other_Alphabetic +05B0 05BD Other_Alphabetic +05BF Other_Alphabetic +05C1 05C2 Other_Alphabetic +05C4 05C5 Other_Alphabetic +05C7 Other_Alphabetic +0610 061A Other_Alphabetic +064B 0657 Other_Alphabetic +0659 065E Other_Alphabetic +0670 Other_Alphabetic +06D6 06DC Other_Alphabetic +06E1 06E4 Other_Alphabetic +06E7 06E8 Other_Alphabetic +06ED Other_Alphabetic +0711 Other_Alphabetic +0730 073F Other_Alphabetic +07A6 07B0 Other_Alphabetic +0901 0903 Other_Alphabetic +093E 094C Other_Alphabetic +0962 0963 Other_Alphabetic +0981 0983 Other_Alphabetic +09BE 09C4 Other_Alphabetic +09C7 09C8 Other_Alphabetic +09CB 09CC Other_Alphabetic +09D7 Other_Alphabetic +09E2 09E3 Other_Alphabetic +0A01 0A03 Other_Alphabetic +0A3E 0A42 Other_Alphabetic +0A47 0A48 Other_Alphabetic +0A4B 0A4C Other_Alphabetic +0A51 Other_Alphabetic +0A70 0A71 Other_Alphabetic +0A75 Other_Alphabetic +0A81 0A83 Other_Alphabetic +0ABE 0AC5 Other_Alphabetic +0AC7 0AC9 Other_Alphabetic +0ACB 0ACC Other_Alphabetic +0AE2 0AE3 Other_Alphabetic +0B01 0B03 Other_Alphabetic +0B3E 0B44 Other_Alphabetic +0B47 0B48 Other_Alphabetic +0B4B 0B4C Other_Alphabetic +0B56 0B57 Other_Alphabetic +0B62 0B63 Other_Alphabetic +0B82 Other_Alphabetic +0BBE 0BC2 Other_Alphabetic +0BC6 0BC8 Other_Alphabetic +0BCA 0BCC Other_Alphabetic +0BD7 Other_Alphabetic +0C01 0C03 Other_Alphabetic +0C3E 0C44 Other_Alphabetic +0C46 0C48 Other_Alphabetic +0C4A 0C4C Other_Alphabetic +0C55 0C56 Other_Alphabetic +0C62 0C63 Other_Alphabetic +0C82 0C83 Other_Alphabetic +0CBE 0CC4 Other_Alphabetic +0CC6 0CC8 Other_Alphabetic +0CCA 0CCC Other_Alphabetic +0CD5 0CD6 Other_Alphabetic +0CE2 0CE3 Other_Alphabetic +0D02 0D03 Other_Alphabetic +0D3E 0D44 Other_Alphabetic +0D46 0D48 Other_Alphabetic +0D4A 0D4C Other_Alphabetic +0D57 Other_Alphabetic +0D62 0D63 Other_Alphabetic +0D82 0D83 Other_Alphabetic +0DCF 0DD4 Other_Alphabetic +0DD6 Other_Alphabetic +0DD8 0DDF Other_Alphabetic +0DF2 0DF3 Other_Alphabetic +0E31 Other_Alphabetic +0E34 0E3A Other_Alphabetic +0E4D Other_Alphabetic +0EB1 Other_Alphabetic +0EB4 0EB9 Other_Alphabetic +0EBB 0EBC Other_Alphabetic +0ECD Other_Alphabetic +0F71 0F81 Other_Alphabetic +0F90 0F97 Other_Alphabetic +0F99 0FBC Other_Alphabetic +102B 1036 Other_Alphabetic +1038 Other_Alphabetic +103B 103E Other_Alphabetic +1056 1059 Other_Alphabetic +105E 1060 Other_Alphabetic +1062 Other_Alphabetic +1067 1068 Other_Alphabetic +1071 1074 Other_Alphabetic +1082 1086 Other_Alphabetic +135F Other_Alphabetic +1712 1713 Other_Alphabetic +1732 1733 Other_Alphabetic +1752 1753 Other_Alphabetic +1772 1773 Other_Alphabetic +17B6 17C8 Other_Alphabetic +18A9 Other_Alphabetic +1920 192B Other_Alphabetic +1930 1938 Other_Alphabetic +19B0 19C0 Other_Alphabetic +19C8 19C9 Other_Alphabetic +1A17 1A1B Other_Alphabetic +1B00 1B04 Other_Alphabetic +1B35 1B43 Other_Alphabetic +1B80 1B82 Other_Alphabetic +1BA1 1BA9 Other_Alphabetic +1C24 1C35 Other_Alphabetic +24B6 24E9 Other_Alphabetic +2DE0 2DFF Other_Alphabetic +A823 A827 Other_Alphabetic +A880 A881 Other_Alphabetic +A8B4 A8C3 Other_Alphabetic +A926 A92A Other_Alphabetic +A947 A952 Other_Alphabetic +AA29 AA36 Other_Alphabetic +AA43 Other_Alphabetic +AA4C AA4D Other_Alphabetic +FB1E Other_Alphabetic +10A01 10A03 Other_Alphabetic +10A05 10A06 Other_Alphabetic +10A0C 10A0F Other_Alphabetic +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/OtherDef.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/OtherDef.pl new file mode 100644 index 0000000..e1dac02 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/OtherDef.pl @@ -0,0 +1,26 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{OtherDefaultIgnorableCodePoint} (and fuzzy permutations) +# +# Meaning: Extended property 'Other_Default_Ignorable_Code_Point' +# +return <<'END'; +034F Other_Default_Ignorable_Code_Point +115F 1160 Other_Default_Ignorable_Code_Point +2065 2069 Other_Default_Ignorable_Code_Point +3164 Other_Default_Ignorable_Code_Point +FFA0 Other_Default_Ignorable_Code_Point +FFF0 FFF8 Other_Default_Ignorable_Code_Point +E0000 Other_Default_Ignorable_Code_Point +E0002 E001F Other_Default_Ignorable_Code_Point +E0080 E00FF Other_Default_Ignorable_Code_Point +E01F0 E0FFF Other_Default_Ignorable_Code_Point +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/OtherGra.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/OtherGra.pl new file mode 100644 index 0000000..cc10488 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/OtherGra.pl @@ -0,0 +1,32 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{OtherGraphemeExtend} (and fuzzy permutations) +# +# Meaning: Extended property 'Other_Grapheme_Extend' +# +return <<'END'; +09BE Other_Grapheme_Extend +09D7 Other_Grapheme_Extend +0B3E Other_Grapheme_Extend +0B57 Other_Grapheme_Extend +0BBE Other_Grapheme_Extend +0BD7 Other_Grapheme_Extend +0CC2 Other_Grapheme_Extend +0CD5 0CD6 Other_Grapheme_Extend +0D3E Other_Grapheme_Extend +0D57 Other_Grapheme_Extend +0DCF Other_Grapheme_Extend +0DDF Other_Grapheme_Extend +200C 200D Other_Grapheme_Extend +FF9E FF9F Other_Grapheme_Extend +1D165 Other_Grapheme_Extend +1D16E 1D172 Other_Grapheme_Extend +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/OtherIdC.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/OtherIdC.pl new file mode 100644 index 0000000..39fa50a --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/OtherIdC.pl @@ -0,0 +1,19 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{OtherIdContinue} (and fuzzy permutations) +# +# Meaning: Extended property 'Other_ID_Continue' +# +return <<'END'; +00B7 Other_ID_Continue +0387 Other_ID_Continue +1369 1371 Other_ID_Continue +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/OtherIdS.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/OtherIdS.pl new file mode 100644 index 0000000..1cd40ab --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/OtherIdS.pl @@ -0,0 +1,19 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{OtherIdStart} (and fuzzy permutations) +# +# Meaning: Extended property 'Other_ID_Start' +# +return <<'END'; +2118 Other_ID_Start +212E Other_ID_Start +309B 309C Other_ID_Start +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/OtherLow.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/OtherLow.pl new file mode 100644 index 0000000..6a8d955 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/OtherLow.pl @@ -0,0 +1,29 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{OtherLowercase} (and fuzzy permutations) +# +# Meaning: Extended property 'Other_Lowercase' +# +return <<'END'; +02B0 02B8 Other_Lowercase +02C0 02C1 Other_Lowercase +02E0 02E4 Other_Lowercase +0345 Other_Lowercase +037A Other_Lowercase +1D2C 1D61 Other_Lowercase +1D78 Other_Lowercase +1D9B 1DBF Other_Lowercase +2090 2094 Other_Lowercase +2170 217F Other_Lowercase +24D0 24E9 Other_Lowercase +2C7D Other_Lowercase +A770 Other_Lowercase +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/OtherMat.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/OtherMat.pl new file mode 100644 index 0000000..d3936cf --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/OtherMat.pl @@ -0,0 +1,115 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{OtherMath} (and fuzzy permutations) +# +# Meaning: Extended property 'Other_Math' +# +return <<'END'; +005E Other_Math +03D0 03D2 Other_Math +03D5 Other_Math +03F0 03F1 Other_Math +03F4 03F5 Other_Math +2016 Other_Math +2032 2034 Other_Math +2040 Other_Math +2061 2064 Other_Math +207D 207E Other_Math +208D 208E Other_Math +20D0 20DC Other_Math +20E1 Other_Math +20E5 20E6 Other_Math +20EB 20EF Other_Math +2102 Other_Math +210A 2113 Other_Math +2115 Other_Math +2119 211D Other_Math +2124 Other_Math +2128 2129 Other_Math +212C 212D Other_Math +212F 2131 Other_Math +2133 2138 Other_Math +213C 213F Other_Math +2145 2149 Other_Math +2195 2199 Other_Math +219C 219F Other_Math +21A1 21A2 Other_Math +21A4 21A5 Other_Math +21A7 Other_Math +21A9 21AD Other_Math +21B0 21B1 Other_Math +21B6 21B7 Other_Math +21BC 21CD Other_Math +21D0 21D1 Other_Math +21D3 Other_Math +21D5 21DB Other_Math +21DD Other_Math +21E4 21E5 Other_Math +23B4 23B5 Other_Math +23B7 Other_Math +23D0 Other_Math +23E2 Other_Math +25A0 25A1 Other_Math +25AE 25B6 Other_Math +25BC 25C0 Other_Math +25C6 25C7 Other_Math +25CA 25CB Other_Math +25CF 25D3 Other_Math +25E2 Other_Math +25E4 Other_Math +25E7 25EC Other_Math +2605 2606 Other_Math +2640 Other_Math +2642 Other_Math +2660 2663 Other_Math +266D 266E Other_Math +27C5 27C6 Other_Math +27E6 27EF Other_Math +2983 2998 Other_Math +29D8 29DB Other_Math +29FC 29FD Other_Math +FE61 Other_Math +FE63 Other_Math +FE68 Other_Math +FF3C Other_Math +FF3E Other_Math +1D400 1D454 Other_Math +1D456 1D49C Other_Math +1D49E 1D49F Other_Math +1D4A2 Other_Math +1D4A5 1D4A6 Other_Math +1D4A9 1D4AC Other_Math +1D4AE 1D4B9 Other_Math +1D4BB Other_Math +1D4BD 1D4C3 Other_Math +1D4C5 1D505 Other_Math +1D507 1D50A Other_Math +1D50D 1D514 Other_Math +1D516 1D51C Other_Math +1D51E 1D539 Other_Math +1D53B 1D53E Other_Math +1D540 1D544 Other_Math +1D546 Other_Math +1D54A 1D550 Other_Math +1D552 1D6A5 Other_Math +1D6A8 1D6C0 Other_Math +1D6C2 1D6DA Other_Math +1D6DC 1D6FA Other_Math +1D6FC 1D714 Other_Math +1D716 1D734 Other_Math +1D736 1D74E Other_Math +1D750 1D76E Other_Math +1D770 1D788 Other_Math +1D78A 1D7A8 Other_Math +1D7AA 1D7C2 Other_Math +1D7C4 1D7CB Other_Math +1D7CE 1D7FF Other_Math +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/OtherUpp.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/OtherUpp.pl new file mode 100644 index 0000000..fac06b2 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/OtherUpp.pl @@ -0,0 +1,18 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{OtherUppercase} (and fuzzy permutations) +# +# Meaning: Extended property 'Other_Uppercase' +# +return <<'END'; +2160 216F Other_Uppercase +24B6 24CF Other_Uppercase +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/P.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/P.pl new file mode 100644 index 0000000..0f35b51 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/P.pl @@ -0,0 +1,129 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{P} +# \p{P} (and fuzzy permutations) +# +# Meaning: Major Category 'P' +# +return <<'END'; +0021 0023 +0025 002A +002C 002F +003A 003B +003F 0040 +005B 005D +005F +007B +007D +00A1 +00AB +00B7 +00BB +00BF +037E +0387 +055A 055F +0589 058A +05BE +05C0 +05C3 +05C6 +05F3 05F4 +0609 060A +060C 060D +061B +061E 061F +066A 066D +06D4 +0700 070D +07F7 07F9 +0964 0965 +0970 +0DF4 +0E4F +0E5A 0E5B +0F04 0F12 +0F3A 0F3D +0F85 +0FD0 0FD4 +104A 104F +10FB +1361 1368 +166D 166E +169B 169C +16EB 16ED +1735 1736 +17D4 17D6 +17D8 17DA +1800 180A +1944 1945 +19DE 19DF +1A1E 1A1F +1B5A 1B60 +1C3B 1C3F +1C7E 1C7F +2010 2027 +2030 2043 +2045 2051 +2053 205E +207D 207E +208D 208E +2329 232A +2768 2775 +27C5 27C6 +27E6 27EF +2983 2998 +29D8 29DB +29FC 29FD +2CF9 2CFC +2CFE 2CFF +2E00 2E2E +2E30 +3001 3003 +3008 3011 +3014 301F +3030 +303D +30A0 +30FB +A60D A60F +A673 +A67E +A874 A877 +A8CE A8CF +A92E A92F +A95F +AA5C AA5F +FD3E FD3F +FE10 FE19 +FE30 FE52 +FE54 FE61 +FE63 +FE68 +FE6A FE6B +FF01 FF03 +FF05 FF0A +FF0C FF0F +FF1A FF1B +FF1F FF20 +FF3B FF3D +FF3F +FF5B +FF5D +FF5F FF65 +10100 10101 +1039F +103D0 +1091F +1093F +10A50 10A58 +12470 12473 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/PatSyn.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/PatSyn.pl new file mode 100644 index 0000000..23cd998 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/PatSyn.pl @@ -0,0 +1,41 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Binary property 'Pattern_Syntax' +# +return <<'END'; +0021 002F Pattern_Syntax +003A 0040 Pattern_Syntax +005B 005E Pattern_Syntax +0060 Pattern_Syntax +007B 007E Pattern_Syntax +00A1 00A7 Pattern_Syntax +00A9 Pattern_Syntax +00AB 00AC Pattern_Syntax +00AE Pattern_Syntax +00B0 00B1 Pattern_Syntax +00B6 Pattern_Syntax +00BB Pattern_Syntax +00BF Pattern_Syntax +00D7 Pattern_Syntax +00F7 Pattern_Syntax +2010 2027 Pattern_Syntax +2030 203E Pattern_Syntax +2041 2053 Pattern_Syntax +2055 205E Pattern_Syntax +2190 245F Pattern_Syntax +2500 2775 Pattern_Syntax +2794 2BFF Pattern_Syntax +2E00 2E7F Pattern_Syntax +3001 3003 Pattern_Syntax +3008 3020 Pattern_Syntax +3030 Pattern_Syntax +FD3E FD3F Pattern_Syntax +FE45 FE46 Pattern_Syntax +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/PatWS.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/PatWS.pl new file mode 100644 index 0000000..aef8c27 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/PatWS.pl @@ -0,0 +1,18 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Binary property 'Pattern_White_Space' +# +return <<'END'; +0009 000D Pattern_White_Space +0020 Pattern_White_Space +0085 Pattern_White_Space +200E 200F Pattern_White_Space +2028 2029 Pattern_White_Space +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/PatternS.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/PatternS.pl new file mode 100644 index 0000000..3c20f86 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/PatternS.pl @@ -0,0 +1,44 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{PatternSyntax} (and fuzzy permutations) +# +# Meaning: Extended property 'Pattern_Syntax' +# +return <<'END'; +0021 002F Pattern_Syntax +003A 0040 Pattern_Syntax +005B 005E Pattern_Syntax +0060 Pattern_Syntax +007B 007E Pattern_Syntax +00A1 00A7 Pattern_Syntax +00A9 Pattern_Syntax +00AB 00AC Pattern_Syntax +00AE Pattern_Syntax +00B0 00B1 Pattern_Syntax +00B6 Pattern_Syntax +00BB Pattern_Syntax +00BF Pattern_Syntax +00D7 Pattern_Syntax +00F7 Pattern_Syntax +2010 2027 Pattern_Syntax +2030 203E Pattern_Syntax +2041 2053 Pattern_Syntax +2055 205E Pattern_Syntax +2190 245F Pattern_Syntax +2500 2775 Pattern_Syntax +2794 2BFF Pattern_Syntax +2E00 2E7F Pattern_Syntax +3001 3003 Pattern_Syntax +3008 3020 Pattern_Syntax +3030 Pattern_Syntax +FD3E FD3F Pattern_Syntax +FE45 FE46 Pattern_Syntax +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/PatternW.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/PatternW.pl new file mode 100644 index 0000000..ff038d6 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/PatternW.pl @@ -0,0 +1,21 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{PatternWhiteSpace} (and fuzzy permutations) +# +# Meaning: Extended property 'Pattern_White_Space' +# +return <<'END'; +0009 000D Pattern_White_Space +0020 Pattern_White_Space +0085 Pattern_White_Space +200E 200F Pattern_White_Space +2028 2029 Pattern_White_Space +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Pc.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Pc.pl new file mode 100644 index 0000000..efd94ab --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Pc.pl @@ -0,0 +1,23 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Pc} +# \p{Pc} (and fuzzy permutations) +# +# Meaning: General Category 'Pc' +# +return <<'END'; +005F +203F 2040 +2054 +FE33 FE34 +FE4D FE4F +FF3F +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Pd.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Pd.pl new file mode 100644 index 0000000..6526cb1 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Pd.pl @@ -0,0 +1,31 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Pd} +# \p{Pd} (and fuzzy permutations) +# +# Meaning: General Category 'Pd' +# +return <<'END'; +002D +058A +05BE +1806 +2010 2015 +2E17 +2E1A +301C +3030 +30A0 +FE31 FE32 +FE58 +FE63 +FF0D +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Pe.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Pe.pl new file mode 100644 index 0000000..39e9583 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Pe.pl @@ -0,0 +1,87 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Pe} +# \p{Pe} (and fuzzy permutations) +# +# Meaning: General Category 'Pe' +# +return <<'END'; +0029 +005D +007D +0F3B +0F3D +169C +2046 +207E +208E +232A +2769 +276B +276D +276F +2771 +2773 +2775 +27C6 +27E7 +27E9 +27EB +27ED +27EF +2984 +2986 +2988 +298A +298C +298E +2990 +2992 +2994 +2996 +2998 +29D9 +29DB +29FD +2E23 +2E25 +2E27 +2E29 +3009 +300B +300D +300F +3011 +3015 +3017 +3019 +301B +301E 301F +FD3F +FE18 +FE36 +FE38 +FE3A +FE3C +FE3E +FE40 +FE42 +FE44 +FE48 +FE5A +FE5C +FE5E +FF09 +FF3D +FF5D +FF60 +FF63 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/PerlSpac.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/PerlSpac.pl new file mode 100644 index 0000000..d4b72d2 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/PerlSpac.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{PerlSpace} +# +return <<'END'; +0009 000A +000C 000D +0020 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/PerlWord.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/PerlWord.pl new file mode 100644 index 0000000..9de127f --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/PerlWord.pl @@ -0,0 +1,18 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{PerlWord} +# +return <<'END'; +0030 0039 +0041 005A +005F +0061 007A +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Pf.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Pf.pl new file mode 100644 index 0000000..05892c2 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Pf.pl @@ -0,0 +1,27 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Pf} +# \p{Pf} (and fuzzy permutations) +# +# Meaning: General Category 'Pf' +# +return <<'END'; +00BB +2019 +201D +203A +2E03 +2E05 +2E0A +2E0D +2E1D +2E21 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/PhagsPa.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/PhagsPa.pl new file mode 100644 index 0000000..ec1d84d --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/PhagsPa.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{PhagsPa} (and fuzzy permutations) +# +# Meaning: Script 'Phags_Pa' +# +return <<'END'; +A840 A877 Phags_Pa +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Phnx.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Phnx.pl new file mode 100644 index 0000000..40667bd --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Phnx.pl @@ -0,0 +1,18 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Phoenician} (and fuzzy permutations) +# +# Meaning: Script 'Phoenician' +# +return <<'END'; +10900 10919 Phoenician +1091F Phoenician +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Pi.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Pi.pl new file mode 100644 index 0000000..009b0ba --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Pi.pl @@ -0,0 +1,28 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Pi} +# \p{Pi} (and fuzzy permutations) +# +# Meaning: General Category 'Pi' +# +return <<'END'; +00AB +2018 +201B 201C +201F +2039 +2E02 +2E04 +2E09 +2E0C +2E1C +2E20 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Po.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Po.pl new file mode 100644 index 0000000..d97d5ac --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Po.pl @@ -0,0 +1,125 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Po} +# \p{Po} (and fuzzy permutations) +# +# Meaning: General Category 'Po' +# +return <<'END'; +0021 0023 +0025 0027 +002A +002C +002E 002F +003A 003B +003F 0040 +005C +00A1 +00B7 +00BF +037E +0387 +055A 055F +0589 +05C0 +05C3 +05C6 +05F3 05F4 +0609 060A +060C 060D +061B +061E 061F +066A 066D +06D4 +0700 070D +07F7 07F9 +0964 0965 +0970 +0DF4 +0E4F +0E5A 0E5B +0F04 0F12 +0F85 +0FD0 0FD4 +104A 104F +10FB +1361 1368 +166D 166E +16EB 16ED +1735 1736 +17D4 17D6 +17D8 17DA +1800 1805 +1807 180A +1944 1945 +19DE 19DF +1A1E 1A1F +1B5A 1B60 +1C3B 1C3F +1C7E 1C7F +2016 2017 +2020 2027 +2030 2038 +203B 203E +2041 2043 +2047 2051 +2053 +2055 205E +2CF9 2CFC +2CFE 2CFF +2E00 2E01 +2E06 2E08 +2E0B +2E0E 2E16 +2E18 2E19 +2E1B +2E1E 2E1F +2E2A 2E2E +2E30 +3001 3003 +303D +30FB +A60D A60F +A673 +A67E +A874 A877 +A8CE A8CF +A92E A92F +A95F +AA5C AA5F +FE10 FE16 +FE19 +FE30 +FE45 FE46 +FE49 FE4C +FE50 FE52 +FE54 FE57 +FE5F FE61 +FE68 +FE6A FE6B +FF01 FF03 +FF05 FF07 +FF0A +FF0C +FF0E FF0F +FF1A FF1B +FF1F FF20 +FF3C +FF61 +FF64 FF65 +10100 10101 +1039F +103D0 +1091F +1093F +10A50 10A58 +12470 12473 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/PosixAln.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/PosixAln.pl new file mode 100644 index 0000000..919de4c --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/PosixAln.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{PosixAlnum} +# +return <<'END'; +0030 0039 +0041 005A +0061 007A +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/PosixAlp.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/PosixAlp.pl new file mode 100644 index 0000000..529ec7c --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/PosixAlp.pl @@ -0,0 +1,16 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{PosixAlpha} +# +return <<'END'; +0041 005A +0061 007A +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/PosixBla.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/PosixBla.pl new file mode 100644 index 0000000..6d506a2 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/PosixBla.pl @@ -0,0 +1,16 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{PosixBlank} +# +return <<'END'; +0009 +0020 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/PosixCnt.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/PosixCnt.pl new file mode 100644 index 0000000..a1061d9 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/PosixCnt.pl @@ -0,0 +1,16 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{PosixCntrl} +# +return <<'END'; +0000 001F +007F +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/PosixDig.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/PosixDig.pl new file mode 100644 index 0000000..64bbd9a --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/PosixDig.pl @@ -0,0 +1,15 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{PosixDigit} +# +return <<'END'; +0030 0039 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/PosixGra.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/PosixGra.pl new file mode 100644 index 0000000..2505c79 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/PosixGra.pl @@ -0,0 +1,15 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{PosixGraph} +# +return <<'END'; +0021 007E +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/PosixLow.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/PosixLow.pl new file mode 100644 index 0000000..7e5104b --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/PosixLow.pl @@ -0,0 +1,15 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{PosixLower} +# +return <<'END'; +0061 007A +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/PosixPri.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/PosixPri.pl new file mode 100644 index 0000000..69c43bb --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/PosixPri.pl @@ -0,0 +1,15 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{PosixPrint} +# +return <<'END'; +0020 007E +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/PosixPun.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/PosixPun.pl new file mode 100644 index 0000000..cf7fc9c --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/PosixPun.pl @@ -0,0 +1,18 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{PosixPunct} +# +return <<'END'; +0021 002F +003A 0040 +005B 0060 +007B 007E +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/PosixSpa.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/PosixSpa.pl new file mode 100644 index 0000000..b432354 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/PosixSpa.pl @@ -0,0 +1,16 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{PosixSpace} +# +return <<'END'; +0009 000D +0020 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/PosixUpp.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/PosixUpp.pl new file mode 100644 index 0000000..703e1e0 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/PosixUpp.pl @@ -0,0 +1,15 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{PosixUpper} +# +return <<'END'; +0041 005A +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Print.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Print.pl new file mode 100644 index 0000000..86eaa62 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Print.pl @@ -0,0 +1,464 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Print} +# +# Meaning: [[:Print:]] +# +return <<'END'; +0009 000D +0020 007E +0085 +00A0 0377 +037A 037E +0384 038A +038C +038E 03A1 +03A3 0523 +0531 0556 +0559 055F +0561 0587 +0589 058A +0591 05C7 +05D0 05EA +05F0 05F4 +0600 0603 +0606 061B +061E 061F +0621 065E +0660 070D +070F 074A +074D 07B1 +07C0 07FA +0901 0939 +093C 094D +0950 0954 +0958 0972 +097B 097F +0981 0983 +0985 098C +098F 0990 +0993 09A8 +09AA 09B0 +09B2 +09B6 09B9 +09BC 09C4 +09C7 09C8 +09CB 09CE +09D7 +09DC 09DD +09DF 09E3 +09E6 09FA +0A01 0A03 +0A05 0A0A +0A0F 0A10 +0A13 0A28 +0A2A 0A30 +0A32 0A33 +0A35 0A36 +0A38 0A39 +0A3C +0A3E 0A42 +0A47 0A48 +0A4B 0A4D +0A51 +0A59 0A5C +0A5E +0A66 0A75 +0A81 0A83 +0A85 0A8D +0A8F 0A91 +0A93 0AA8 +0AAA 0AB0 +0AB2 0AB3 +0AB5 0AB9 +0ABC 0AC5 +0AC7 0AC9 +0ACB 0ACD +0AD0 +0AE0 0AE3 +0AE6 0AEF +0AF1 +0B01 0B03 +0B05 0B0C +0B0F 0B10 +0B13 0B28 +0B2A 0B30 +0B32 0B33 +0B35 0B39 +0B3C 0B44 +0B47 0B48 +0B4B 0B4D +0B56 0B57 +0B5C 0B5D +0B5F 0B63 +0B66 0B71 +0B82 0B83 +0B85 0B8A +0B8E 0B90 +0B92 0B95 +0B99 0B9A +0B9C +0B9E 0B9F +0BA3 0BA4 +0BA8 0BAA +0BAE 0BB9 +0BBE 0BC2 +0BC6 0BC8 +0BCA 0BCD +0BD0 +0BD7 +0BE6 0BFA +0C01 0C03 +0C05 0C0C +0C0E 0C10 +0C12 0C28 +0C2A 0C33 +0C35 0C39 +0C3D 0C44 +0C46 0C48 +0C4A 0C4D +0C55 0C56 +0C58 0C59 +0C60 0C63 +0C66 0C6F +0C78 0C7F +0C82 0C83 +0C85 0C8C +0C8E 0C90 +0C92 0CA8 +0CAA 0CB3 +0CB5 0CB9 +0CBC 0CC4 +0CC6 0CC8 +0CCA 0CCD +0CD5 0CD6 +0CDE +0CE0 0CE3 +0CE6 0CEF +0CF1 0CF2 +0D02 0D03 +0D05 0D0C +0D0E 0D10 +0D12 0D28 +0D2A 0D39 +0D3D 0D44 +0D46 0D48 +0D4A 0D4D +0D57 +0D60 0D63 +0D66 0D75 +0D79 0D7F +0D82 0D83 +0D85 0D96 +0D9A 0DB1 +0DB3 0DBB +0DBD +0DC0 0DC6 +0DCA +0DCF 0DD4 +0DD6 +0DD8 0DDF +0DF2 0DF4 +0E01 0E3A +0E3F 0E5B +0E81 0E82 +0E84 +0E87 0E88 +0E8A +0E8D +0E94 0E97 +0E99 0E9F +0EA1 0EA3 +0EA5 +0EA7 +0EAA 0EAB +0EAD 0EB9 +0EBB 0EBD +0EC0 0EC4 +0EC6 +0EC8 0ECD +0ED0 0ED9 +0EDC 0EDD +0F00 0F47 +0F49 0F6C +0F71 0F8B +0F90 0F97 +0F99 0FBC +0FBE 0FCC +0FCE 0FD4 +1000 1099 +109E 10C5 +10D0 10FC +1100 1159 +115F 11A2 +11A8 11F9 +1200 1248 +124A 124D +1250 1256 +1258 +125A 125D +1260 1288 +128A 128D +1290 12B0 +12B2 12B5 +12B8 12BE +12C0 +12C2 12C5 +12C8 12D6 +12D8 1310 +1312 1315 +1318 135A +135F 137C +1380 1399 +13A0 13F4 +1401 1676 +1680 169C +16A0 16F0 +1700 170C +170E 1714 +1720 1736 +1740 1753 +1760 176C +176E 1770 +1772 1773 +1780 17DD +17E0 17E9 +17F0 17F9 +1800 180E +1810 1819 +1820 1877 +1880 18AA +1900 191C +1920 192B +1930 193B +1940 +1944 196D +1970 1974 +1980 19A9 +19B0 19C9 +19D0 19D9 +19DE 1A1B +1A1E 1A1F +1B00 1B4B +1B50 1B7C +1B80 1BAA +1BAE 1BB9 +1C00 1C37 +1C3B 1C49 +1C4D 1C7F +1D00 1DE6 +1DFE 1F15 +1F18 1F1D +1F20 1F45 +1F48 1F4D +1F50 1F57 +1F59 +1F5B +1F5D +1F5F 1F7D +1F80 1FB4 +1FB6 1FC4 +1FC6 1FD3 +1FD6 1FDB +1FDD 1FEF +1FF2 1FF4 +1FF6 1FFE +2000 2064 +206A 2071 +2074 208E +2090 2094 +20A0 20B5 +20D0 20F0 +2100 214F +2153 2188 +2190 23E7 +2400 2426 +2440 244A +2460 269D +26A0 26BC +26C0 26C3 +2701 2704 +2706 2709 +270C 2727 +2729 274B +274D +274F 2752 +2756 +2758 275E +2761 2794 +2798 27AF +27B1 27BE +27C0 27CA +27CC +27D0 2B4C +2B50 2B54 +2C00 2C2E +2C30 2C5E +2C60 2C6F +2C71 2C7D +2C80 2CEA +2CF9 2D25 +2D30 2D65 +2D6F +2D80 2D96 +2DA0 2DA6 +2DA8 2DAE +2DB0 2DB6 +2DB8 2DBE +2DC0 2DC6 +2DC8 2DCE +2DD0 2DD6 +2DD8 2DDE +2DE0 2E30 +2E80 2E99 +2E9B 2EF3 +2F00 2FD5 +2FF0 2FFB +3000 303F +3041 3096 +3099 30FF +3105 312D +3131 318E +3190 31B7 +31C0 31E3 +31F0 321E +3220 3243 +3250 32FE +3300 4DB5 +4DC0 9FC3 +A000 A48C +A490 A4C6 +A500 A62B +A640 A65F +A662 A673 +A67C A697 +A700 A78C +A7FB A82B +A840 A877 +A880 A8C4 +A8CE A8D9 +A900 A953 +A95F +AA00 AA36 +AA40 AA4D +AA50 AA59 +AA5C AA5F +AC00 D7A3 +E000 FA2D +FA30 FA6A +FA70 FAD9 +FB00 FB06 +FB13 FB17 +FB1D FB36 +FB38 FB3C +FB3E +FB40 FB41 +FB43 FB44 +FB46 FBB1 +FBD3 FD3F +FD50 FD8F +FD92 FDC7 +FDF0 FDFD +FE00 FE19 +FE20 FE26 +FE30 FE52 +FE54 FE66 +FE68 FE6B +FE70 FE74 +FE76 FEFC +FEFF +FF01 FFBE +FFC2 FFC7 +FFCA FFCF +FFD2 FFD7 +FFDA FFDC +FFE0 FFE6 +FFE8 FFEE +FFF9 FFFD +10000 1000B +1000D 10026 +10028 1003A +1003C 1003D +1003F 1004D +10050 1005D +10080 100FA +10100 10102 +10107 10133 +10137 1018A +10190 1019B +101D0 101FD +10280 1029C +102A0 102D0 +10300 1031E +10320 10323 +10330 1034A +10380 1039D +1039F 103C3 +103C8 103D5 +10400 1049D +104A0 104A9 +10800 10805 +10808 +1080A 10835 +10837 10838 +1083C +1083F +10900 10919 +1091F 10939 +1093F +10A00 10A03 +10A05 10A06 +10A0C 10A13 +10A15 10A17 +10A19 10A33 +10A38 10A3A +10A3F 10A47 +10A50 10A58 +12000 1236E +12400 12462 +12470 12473 +1D000 1D0F5 +1D100 1D126 +1D129 1D1DD +1D200 1D245 +1D300 1D356 +1D360 1D371 +1D400 1D454 +1D456 1D49C +1D49E 1D49F +1D4A2 +1D4A5 1D4A6 +1D4A9 1D4AC +1D4AE 1D4B9 +1D4BB +1D4BD 1D4C3 +1D4C5 1D505 +1D507 1D50A +1D50D 1D514 +1D516 1D51C +1D51E 1D539 +1D53B 1D53E +1D540 1D544 +1D546 +1D54A 1D550 +1D552 1D6A5 +1D6A8 1D7CB +1D7CE 1D7FF +1F000 1F02B +1F030 1F093 +20000 2A6D6 +2F800 2FA1D +E0001 +E0020 E007F +E0100 E01EF +F0000 FFFFD +100000 10FFFD +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Ps.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Ps.pl new file mode 100644 index 0000000..1c5f929 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Ps.pl @@ -0,0 +1,89 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Ps} +# \p{Ps} (and fuzzy permutations) +# +# Meaning: General Category 'Ps' +# +return <<'END'; +0028 +005B +007B +0F3A +0F3C +169B +201A +201E +2045 +207D +208D +2329 +2768 +276A +276C +276E +2770 +2772 +2774 +27C5 +27E6 +27E8 +27EA +27EC +27EE +2983 +2985 +2987 +2989 +298B +298D +298F +2991 +2993 +2995 +2997 +29D8 +29DA +29FC +2E22 +2E24 +2E26 +2E28 +3008 +300A +300C +300E +3010 +3014 +3016 +3018 +301A +301D +FD3E +FE17 +FE35 +FE37 +FE39 +FE3B +FE3D +FE3F +FE41 +FE43 +FE47 +FE59 +FE5B +FE5D +FF08 +FF3B +FF5B +FF5F +FF62 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Punct.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Punct.pl new file mode 100644 index 0000000..525108a --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Punct.pl @@ -0,0 +1,128 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Punct} +# +# Meaning: [[:Punct:]] +# +return <<'END'; +0021 0023 +0025 002A +002C 002F +003A 003B +003F 0040 +005B 005D +005F +007B +007D +00A1 +00AB +00B7 +00BB +00BF +037E +0387 +055A 055F +0589 058A +05BE +05C0 +05C3 +05C6 +05F3 05F4 +0609 060A +060C 060D +061B +061E 061F +066A 066D +06D4 +0700 070D +07F7 07F9 +0964 0965 +0970 +0DF4 +0E4F +0E5A 0E5B +0F04 0F12 +0F3A 0F3D +0F85 +0FD0 0FD4 +104A 104F +10FB +1361 1368 +166D 166E +169B 169C +16EB 16ED +1735 1736 +17D4 17D6 +17D8 17DA +1800 180A +1944 1945 +19DE 19DF +1A1E 1A1F +1B5A 1B60 +1C3B 1C3F +1C7E 1C7F +2010 2027 +2030 2043 +2045 2051 +2053 205E +207D 207E +208D 208E +2329 232A +2768 2775 +27C5 27C6 +27E6 27EF +2983 2998 +29D8 29DB +29FC 29FD +2CF9 2CFC +2CFE 2CFF +2E00 2E2E +2E30 +3001 3003 +3008 3011 +3014 301F +3030 +303D +30A0 +30FB +A60D A60F +A673 +A67E +A874 A877 +A8CE A8CF +A92E A92F +A95F +AA5C AA5F +FD3E FD3F +FE10 FE19 +FE30 FE52 +FE54 FE61 +FE63 +FE68 +FE6A FE6B +FF01 FF03 +FF05 FF0A +FF0C FF0F +FF1A FF1B +FF1F FF20 +FF3B FF3D +FF3F +FF5B +FF5D +FF5F FF65 +10100 10101 +1039F +103D0 +1091F +1093F +10A50 10A58 +12470 12473 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/QMark.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/QMark.pl new file mode 100644 index 0000000..fa5c8ea --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/QMark.pl @@ -0,0 +1,25 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Binary property 'Quotation_Mark' +# +return <<'END'; +0022 Quotation_Mark +0027 Quotation_Mark +00AB Quotation_Mark +00BB Quotation_Mark +2018 201F Quotation_Mark +2039 203A Quotation_Mark +300C 300F Quotation_Mark +301D 301F Quotation_Mark +FE41 FE44 Quotation_Mark +FF02 Quotation_Mark +FF07 Quotation_Mark +FF62 FF63 Quotation_Mark +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Qaai.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Qaai.pl new file mode 100644 index 0000000..10700dc --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Qaai.pl @@ -0,0 +1,34 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Inherited} (and fuzzy permutations) +# +# Meaning: Script 'Inherited' +# +return <<'END'; +0300 036F Inherited +064B 0655 Inherited +0670 Inherited +0951 0952 Inherited +1DC0 1DE6 Inherited +1DFE 1DFF Inherited +200C 200D Inherited +20D0 20F0 Inherited +302A 302F Inherited +3099 309A Inherited +FE00 FE0F Inherited +FE20 FE26 Inherited +101FD Inherited +1D167 1D169 Inherited +1D17B 1D182 Inherited +1D185 1D18B Inherited +1D1AA 1D1AD Inherited +E0100 E01EF Inherited +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Quotatio.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Quotatio.pl new file mode 100644 index 0000000..710601a --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Quotatio.pl @@ -0,0 +1,28 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{QuotationMark} (and fuzzy permutations) +# +# Meaning: Extended property 'Quotation_Mark' +# +return <<'END'; +0022 Quotation_Mark +0027 Quotation_Mark +00AB Quotation_Mark +00BB Quotation_Mark +2018 201F Quotation_Mark +2039 203A Quotation_Mark +300C 300F Quotation_Mark +301D 301F Quotation_Mark +FE41 FE44 Quotation_Mark +FF02 Quotation_Mark +FF07 Quotation_Mark +FF62 FF63 Quotation_Mark +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Radical.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Radical.pl new file mode 100644 index 0000000..af30a8a --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Radical.pl @@ -0,0 +1,16 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Binary property 'Radical' +# +return <<'END'; +2E80 2E99 Radical +2E9B 2EF3 Radical +2F00 2FD5 Radical +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Radical2.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Radical2.pl new file mode 100644 index 0000000..64ebf0f --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Radical2.pl @@ -0,0 +1,19 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Radical} (and fuzzy permutations) +# +# Meaning: Extended property 'Radical' +# +return <<'END'; +2E80 2E99 Radical +2E9B 2EF3 Radical +2F00 2FD5 Radical +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Rjng.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Rjng.pl new file mode 100644 index 0000000..0e787dd --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Rjng.pl @@ -0,0 +1,18 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Rejang} (and fuzzy permutations) +# +# Meaning: Script 'Rejang' +# +return <<'END'; +A930 A953 Rejang +A95F Rejang +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Runr.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Runr.pl new file mode 100644 index 0000000..b9c54d3 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Runr.pl @@ -0,0 +1,18 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Runic} (and fuzzy permutations) +# +# Meaning: Script 'Runic' +# +return <<'END'; +16A0 16EA Runic +16EE 16F0 Runic +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/S.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/S.pl new file mode 100644 index 0000000..181435b --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/S.pl @@ -0,0 +1,196 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{S} +# \p{S} (and fuzzy permutations) +# +# Meaning: Major Category 'S' +# +return <<'END'; +0024 +002B +003C 003E +005E +0060 +007C +007E +00A2 00A9 +00AC +00AE 00B1 +00B4 +00B6 +00B8 +00D7 +00F7 +02C2 02C5 +02D2 02DF +02E5 02EB +02ED +02EF 02FF +0375 +0384 0385 +03F6 +0482 +0606 0608 +060B +060E 060F +06E9 +06FD 06FE +07F6 +09F2 09F3 +09FA +0AF1 +0B70 +0BF3 0BFA +0C7F +0CF1 0CF2 +0D79 +0E3F +0F01 0F03 +0F13 0F17 +0F1A 0F1F +0F34 +0F36 +0F38 +0FBE 0FC5 +0FC7 0FCC +0FCE 0FCF +109E 109F +1360 +1390 1399 +17DB +1940 +19E0 19FF +1B61 1B6A +1B74 1B7C +1FBD +1FBF 1FC1 +1FCD 1FCF +1FDD 1FDF +1FED 1FEF +1FFD 1FFE +2044 +2052 +207A 207C +208A 208C +20A0 20B5 +2100 2101 +2103 2106 +2108 2109 +2114 +2116 2118 +211E 2123 +2125 +2127 +2129 +212E +213A 213B +2140 2144 +214A 214D +214F +2190 2328 +232B 23E7 +2400 2426 +2440 244A +249C 24E9 +2500 269D +26A0 26BC +26C0 26C3 +2701 2704 +2706 2709 +270C 2727 +2729 274B +274D +274F 2752 +2756 +2758 275E +2761 2767 +2794 +2798 27AF +27B1 27BE +27C0 27C4 +27C7 27CA +27CC +27D0 27E5 +27F0 2982 +2999 29D7 +29DC 29FB +29FE 2B4C +2B50 2B54 +2CE5 2CEA +2E80 2E99 +2E9B 2EF3 +2F00 2FD5 +2FF0 2FFB +3004 +3012 3013 +3020 +3036 3037 +303E 303F +309B 309C +3190 3191 +3196 319F +31C0 31E3 +3200 321E +322A 3243 +3250 +3260 327F +328A 32B0 +32C0 32FE +3300 33FF +4DC0 4DFF +A490 A4C6 +A700 A716 +A720 A721 +A789 A78A +A828 A82B +FB29 +FDFC FDFD +FE62 +FE64 FE66 +FE69 +FF04 +FF0B +FF1C FF1E +FF3E +FF40 +FF5C +FF5E +FFE0 FFE6 +FFE8 FFEE +FFFC FFFD +10102 +10137 1013F +10179 10189 +10190 1019B +101D0 101FC +1D000 1D0F5 +1D100 1D126 +1D129 1D164 +1D16A 1D16C +1D183 1D184 +1D18C 1D1A9 +1D1AE 1D1DD +1D200 1D241 +1D245 +1D300 1D356 +1D6C1 +1D6DB +1D6FB +1D715 +1D735 +1D74F +1D76F +1D789 +1D7A9 +1D7C3 +1F000 1F02B +1F030 1F093 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/SD.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/SD.pl new file mode 100644 index 0000000..609278f --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/SD.pl @@ -0,0 +1,44 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Binary property 'Soft_Dotted' +# +return <<'END'; +0069 006A Soft_Dotted +012F Soft_Dotted +0249 Soft_Dotted +0268 Soft_Dotted +029D Soft_Dotted +02B2 Soft_Dotted +03F3 Soft_Dotted +0456 Soft_Dotted +0458 Soft_Dotted +1D62 Soft_Dotted +1D96 Soft_Dotted +1DA4 Soft_Dotted +1DA8 Soft_Dotted +1E2D Soft_Dotted +1ECB Soft_Dotted +2071 Soft_Dotted +2148 2149 Soft_Dotted +2C7C Soft_Dotted +1D422 1D423 Soft_Dotted +1D456 1D457 Soft_Dotted +1D48A 1D48B Soft_Dotted +1D4BE 1D4BF Soft_Dotted +1D4F2 1D4F3 Soft_Dotted +1D526 1D527 Soft_Dotted +1D55A 1D55B Soft_Dotted +1D58E 1D58F Soft_Dotted +1D5C2 1D5C3 Soft_Dotted +1D5F6 1D5F7 Soft_Dotted +1D62A 1D62B Soft_Dotted +1D65E 1D65F Soft_Dotted +1D692 1D693 Soft_Dotted +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/STerm.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/STerm.pl new file mode 100644 index 0000000..57df6a2 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/STerm.pl @@ -0,0 +1,50 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Binary property 'STerm' +# +return <<'END'; +0021 STerm +002E STerm +003F STerm +055C STerm +055E STerm +0589 STerm +061F STerm +06D4 STerm +0700 0702 STerm +07F9 STerm +0964 0965 STerm +104A 104B STerm +1362 STerm +1367 1368 STerm +166E STerm +1803 STerm +1809 STerm +1944 1945 STerm +1B5A 1B5B STerm +1B5E 1B5F STerm +1C3B 1C3C STerm +1C7E 1C7F STerm +203C 203D STerm +2047 2049 STerm +2E2E STerm +3002 STerm +A60E A60F STerm +A876 A877 STerm +A8CE A8CF STerm +A92F STerm +AA5D AA5F STerm +FE52 STerm +FE56 FE57 STerm +FF01 STerm +FF0E STerm +FF1F STerm +FF61 STerm +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Saur.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Saur.pl new file mode 100644 index 0000000..fc1a283 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Saur.pl @@ -0,0 +1,18 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Saurashtra} (and fuzzy permutations) +# +# Meaning: Script 'Saurashtra' +# +return <<'END'; +A880 A8C4 Saurashtra +A8CE A8D9 Saurashtra +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Sc.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Sc.pl new file mode 100644 index 0000000..f3a1548 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Sc.pl @@ -0,0 +1,31 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Sc} +# \p{Sc} (and fuzzy permutations) +# +# Meaning: General Category 'Sc' +# +return <<'END'; +0024 +00A2 00A5 +060B +09F2 09F3 +0AF1 +0BF9 +0E3F +17DB +20A0 20B5 +FDFC +FE69 +FF04 +FFE0 FFE1 +FFE5 FFE6 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Shaw.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Shaw.pl new file mode 100644 index 0000000..60b02c1 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Shaw.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Shavian} (and fuzzy permutations) +# +# Meaning: Script 'Shavian' +# +return <<'END'; +10450 1047F Shavian +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Sinh.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Sinh.pl new file mode 100644 index 0000000..8691cd1 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Sinh.pl @@ -0,0 +1,27 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Sinhala} (and fuzzy permutations) +# +# Meaning: Script 'Sinhala' +# +return <<'END'; +0D82 0D83 Sinhala +0D85 0D96 Sinhala +0D9A 0DB1 Sinhala +0DB3 0DBB Sinhala +0DBD Sinhala +0DC0 0DC6 Sinhala +0DCA Sinhala +0DCF 0DD4 Sinhala +0DD6 Sinhala +0DD8 0DDF Sinhala +0DF2 0DF4 Sinhala +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Sk.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Sk.pl new file mode 100644 index 0000000..5abc4ce --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Sk.pl @@ -0,0 +1,43 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Sk} +# \p{Sk} (and fuzzy permutations) +# +# Meaning: General Category 'Sk' +# +return <<'END'; +005E +0060 +00A8 +00AF +00B4 +00B8 +02C2 02C5 +02D2 02DF +02E5 02EB +02ED +02EF 02FF +0375 +0384 0385 +1FBD +1FBF 1FC1 +1FCD 1FCF +1FDD 1FDF +1FED 1FEF +1FFD 1FFE +309B 309C +A700 A716 +A720 A721 +A789 A78A +FF3E +FF40 +FFE3 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Sm.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Sm.pl new file mode 100644 index 0000000..e63a41b --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Sm.pl @@ -0,0 +1,82 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Sm} +# \p{Sm} (and fuzzy permutations) +# +# Meaning: General Category 'Sm' +# +return <<'END'; +002B +003C 003E +007C +007E +00AC +00B1 +00D7 +00F7 +03F6 +0606 0608 +2044 +2052 +207A 207C +208A 208C +2140 2144 +214B +2190 2194 +219A 219B +21A0 +21A3 +21A6 +21AE +21CE 21CF +21D2 +21D4 +21F4 22FF +2308 230B +2320 2321 +237C +239B 23B3 +23DC 23E1 +25B7 +25C1 +25F8 25FF +266F +27C0 27C4 +27C7 27CA +27CC +27D0 27E5 +27F0 27FF +2900 2982 +2999 29D7 +29DC 29FB +29FE 2AFF +2B30 2B44 +2B47 2B4C +FB29 +FE62 +FE64 FE66 +FF0B +FF1C FF1E +FF5C +FF5E +FFE2 +FFE9 FFEC +1D6C1 +1D6DB +1D6FB +1D715 +1D735 +1D74F +1D76F +1D789 +1D7A9 +1D7C3 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/So.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/So.pl new file mode 100644 index 0000000..08391d6 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/So.pl @@ -0,0 +1,151 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{So} +# \p{So} (and fuzzy permutations) +# +# Meaning: General Category 'So' +# +return <<'END'; +00A6 00A7 +00A9 +00AE +00B0 +00B6 +0482 +060E 060F +06E9 +06FD 06FE +07F6 +09FA +0B70 +0BF3 0BF8 +0BFA +0C7F +0CF1 0CF2 +0D79 +0F01 0F03 +0F13 0F17 +0F1A 0F1F +0F34 +0F36 +0F38 +0FBE 0FC5 +0FC7 0FCC +0FCE 0FCF +109E 109F +1360 +1390 1399 +1940 +19E0 19FF +1B61 1B6A +1B74 1B7C +2100 2101 +2103 2106 +2108 2109 +2114 +2116 2118 +211E 2123 +2125 +2127 +2129 +212E +213A 213B +214A +214C 214D +214F +2195 2199 +219C 219F +21A1 21A2 +21A4 21A5 +21A7 21AD +21AF 21CD +21D0 21D1 +21D3 +21D5 21F3 +2300 2307 +230C 231F +2322 2328 +232B 237B +237D 239A +23B4 23DB +23E2 23E7 +2400 2426 +2440 244A +249C 24E9 +2500 25B6 +25B8 25C0 +25C2 25F7 +2600 266E +2670 269D +26A0 26BC +26C0 26C3 +2701 2704 +2706 2709 +270C 2727 +2729 274B +274D +274F 2752 +2756 +2758 275E +2761 2767 +2794 +2798 27AF +27B1 27BE +2800 28FF +2B00 2B2F +2B45 2B46 +2B50 2B54 +2CE5 2CEA +2E80 2E99 +2E9B 2EF3 +2F00 2FD5 +2FF0 2FFB +3004 +3012 3013 +3020 +3036 3037 +303E 303F +3190 3191 +3196 319F +31C0 31E3 +3200 321E +322A 3243 +3250 +3260 327F +328A 32B0 +32C0 32FE +3300 33FF +4DC0 4DFF +A490 A4C6 +A828 A82B +FDFD +FFE4 +FFE8 +FFED FFEE +FFFC FFFD +10102 +10137 1013F +10179 10189 +10190 1019B +101D0 101FC +1D000 1D0F5 +1D100 1D126 +1D129 1D164 +1D16A 1D16C +1D183 1D184 +1D18C 1D1A9 +1D1AE 1D1DD +1D200 1D241 +1D245 +1D300 1D356 +1F000 1F02B +1F030 1F093 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/SoftDott.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/SoftDott.pl new file mode 100644 index 0000000..48d09fe --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/SoftDott.pl @@ -0,0 +1,47 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{SoftDotted} (and fuzzy permutations) +# +# Meaning: Extended property 'Soft_Dotted' +# +return <<'END'; +0069 006A Soft_Dotted +012F Soft_Dotted +0249 Soft_Dotted +0268 Soft_Dotted +029D Soft_Dotted +02B2 Soft_Dotted +03F3 Soft_Dotted +0456 Soft_Dotted +0458 Soft_Dotted +1D62 Soft_Dotted +1D96 Soft_Dotted +1DA4 Soft_Dotted +1DA8 Soft_Dotted +1E2D Soft_Dotted +1ECB Soft_Dotted +2071 Soft_Dotted +2148 2149 Soft_Dotted +2C7C Soft_Dotted +1D422 1D423 Soft_Dotted +1D456 1D457 Soft_Dotted +1D48A 1D48B Soft_Dotted +1D4BE 1D4BF Soft_Dotted +1D4F2 1D4F3 Soft_Dotted +1D526 1D527 Soft_Dotted +1D55A 1D55B Soft_Dotted +1D58E 1D58F Soft_Dotted +1D5C2 1D5C3 Soft_Dotted +1D5F6 1D5F7 Soft_Dotted +1D62A 1D62B Soft_Dotted +1D65E 1D65F Soft_Dotted +1D692 1D693 Soft_Dotted +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Space.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Space.pl new file mode 100644 index 0000000..a60b964 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Space.pl @@ -0,0 +1,27 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Space} +# +# Meaning: [[:Space:]] +# +return <<'END'; +0009 000D +0020 +0085 +00A0 +1680 +180E +2000 200A +2028 2029 +202F +205F +3000 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/SpacePer.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/SpacePer.pl new file mode 100644 index 0000000..c0dab29 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/SpacePer.pl @@ -0,0 +1,28 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{SpacePerl} +# +# Meaning: \s +# +return <<'END'; +0009 000A +000C 000D +0020 +0085 +00A0 +1680 +180E +2000 200A +2028 2029 +202F +205F +3000 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Sterm2.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Sterm2.pl new file mode 100644 index 0000000..4952042 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Sterm2.pl @@ -0,0 +1,53 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Sterm} (and fuzzy permutations) +# +# Meaning: Extended property 'STerm' +# +return <<'END'; +0021 STerm +002E STerm +003F STerm +055C STerm +055E STerm +0589 STerm +061F STerm +06D4 STerm +0700 0702 STerm +07F9 STerm +0964 0965 STerm +104A 104B STerm +1362 STerm +1367 1368 STerm +166E STerm +1803 STerm +1809 STerm +1944 1945 STerm +1B5A 1B5B STerm +1B5E 1B5F STerm +1C3B 1C3C STerm +1C7E 1C7F STerm +203C 203D STerm +2047 2049 STerm +2E2E STerm +3002 STerm +A60E A60F STerm +A876 A877 STerm +A8CE A8CF STerm +A92F STerm +AA5D AA5F STerm +FE52 STerm +FE56 FE57 STerm +FF01 STerm +FF0E STerm +FF1F STerm +FF61 STerm +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Sund.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Sund.pl new file mode 100644 index 0000000..b903ced --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Sund.pl @@ -0,0 +1,18 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Sundanese} (and fuzzy permutations) +# +# Meaning: Script 'Sundanese' +# +return <<'END'; +1B80 1BAA Sundanese +1BAE 1BB9 Sundanese +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/SylotiNa.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/SylotiNa.pl new file mode 100644 index 0000000..3e0573d --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/SylotiNa.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{SylotiNagri} (and fuzzy permutations) +# +# Meaning: Script 'Syloti_Nagri' +# +return <<'END'; +A800 A82B Syloti_Nagri +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Syrc.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Syrc.pl new file mode 100644 index 0000000..00e5924 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Syrc.pl @@ -0,0 +1,19 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Syriac} (and fuzzy permutations) +# +# Meaning: Script 'Syriac' +# +return <<'END'; +0700 070D Syriac +070F 074A Syriac +074D 074F Syriac +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Tagb.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Tagb.pl new file mode 100644 index 0000000..071fbde --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Tagb.pl @@ -0,0 +1,19 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Tagbanwa} (and fuzzy permutations) +# +# Meaning: Script 'Tagbanwa' +# +return <<'END'; +1760 176C Tagbanwa +176E 1770 Tagbanwa +1772 1773 Tagbanwa +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/TaiLe.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/TaiLe.pl new file mode 100644 index 0000000..1876660 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/TaiLe.pl @@ -0,0 +1,18 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{TaiLe} (and fuzzy permutations) +# +# Meaning: Script 'Tai_Le' +# +return <<'END'; +1950 196D Tai_Le +1970 1974 Tai_Le +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Taml.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Taml.pl new file mode 100644 index 0000000..8d86e57 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Taml.pl @@ -0,0 +1,32 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Tamil} (and fuzzy permutations) +# +# Meaning: Script 'Tamil' +# +return <<'END'; +0B82 0B83 Tamil +0B85 0B8A Tamil +0B8E 0B90 Tamil +0B92 0B95 Tamil +0B99 0B9A Tamil +0B9C Tamil +0B9E 0B9F Tamil +0BA3 0BA4 Tamil +0BA8 0BAA Tamil +0BAE 0BB9 Tamil +0BBE 0BC2 Tamil +0BC6 0BC8 Tamil +0BCA 0BCD Tamil +0BD0 Tamil +0BD7 Tamil +0BE6 0BFA Tamil +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Telu.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Telu.pl new file mode 100644 index 0000000..d919461 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Telu.pl @@ -0,0 +1,30 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Telugu} (and fuzzy permutations) +# +# Meaning: Script 'Telugu' +# +return <<'END'; +0C01 0C03 Telugu +0C05 0C0C Telugu +0C0E 0C10 Telugu +0C12 0C28 Telugu +0C2A 0C33 Telugu +0C35 0C39 Telugu +0C3D 0C44 Telugu +0C46 0C48 Telugu +0C4A 0C4D Telugu +0C55 0C56 Telugu +0C58 0C59 Telugu +0C60 0C63 Telugu +0C66 0C6F Telugu +0C78 0C7F Telugu +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Term.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Term.pl new file mode 100644 index 0000000..a6d2173 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Term.pl @@ -0,0 +1,68 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Binary property 'Terminal_Punctuation' +# +return <<'END'; +0021 Terminal_Punctuation +002C Terminal_Punctuation +002E Terminal_Punctuation +003A 003B Terminal_Punctuation +003F Terminal_Punctuation +037E Terminal_Punctuation +0387 Terminal_Punctuation +0589 Terminal_Punctuation +05C3 Terminal_Punctuation +060C Terminal_Punctuation +061B Terminal_Punctuation +061F Terminal_Punctuation +06D4 Terminal_Punctuation +0700 070A Terminal_Punctuation +070C Terminal_Punctuation +07F8 07F9 Terminal_Punctuation +0964 0965 Terminal_Punctuation +0E5A 0E5B Terminal_Punctuation +0F08 Terminal_Punctuation +0F0D 0F12 Terminal_Punctuation +104A 104B Terminal_Punctuation +1361 1368 Terminal_Punctuation +166D 166E Terminal_Punctuation +16EB 16ED Terminal_Punctuation +17D4 17D6 Terminal_Punctuation +17DA Terminal_Punctuation +1802 1805 Terminal_Punctuation +1808 1809 Terminal_Punctuation +1944 1945 Terminal_Punctuation +1B5A 1B5B Terminal_Punctuation +1B5D 1B5F Terminal_Punctuation +1C3B 1C3F Terminal_Punctuation +1C7E 1C7F Terminal_Punctuation +203C 203D Terminal_Punctuation +2047 2049 Terminal_Punctuation +2E2E Terminal_Punctuation +3001 3002 Terminal_Punctuation +A60D A60F Terminal_Punctuation +A876 A877 Terminal_Punctuation +A8CE A8CF Terminal_Punctuation +A92F Terminal_Punctuation +AA5D AA5F Terminal_Punctuation +FE50 FE52 Terminal_Punctuation +FE54 FE57 Terminal_Punctuation +FF01 Terminal_Punctuation +FF0C Terminal_Punctuation +FF0E Terminal_Punctuation +FF1A FF1B Terminal_Punctuation +FF1F Terminal_Punctuation +FF61 Terminal_Punctuation +FF64 Terminal_Punctuation +1039F Terminal_Punctuation +103D0 Terminal_Punctuation +1091F Terminal_Punctuation +12470 12473 Terminal_Punctuation +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Terminal.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Terminal.pl new file mode 100644 index 0000000..e58bc74 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Terminal.pl @@ -0,0 +1,71 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{TerminalPunctuation} (and fuzzy permutations) +# +# Meaning: Extended property 'Terminal_Punctuation' +# +return <<'END'; +0021 Terminal_Punctuation +002C Terminal_Punctuation +002E Terminal_Punctuation +003A 003B Terminal_Punctuation +003F Terminal_Punctuation +037E Terminal_Punctuation +0387 Terminal_Punctuation +0589 Terminal_Punctuation +05C3 Terminal_Punctuation +060C Terminal_Punctuation +061B Terminal_Punctuation +061F Terminal_Punctuation +06D4 Terminal_Punctuation +0700 070A Terminal_Punctuation +070C Terminal_Punctuation +07F8 07F9 Terminal_Punctuation +0964 0965 Terminal_Punctuation +0E5A 0E5B Terminal_Punctuation +0F08 Terminal_Punctuation +0F0D 0F12 Terminal_Punctuation +104A 104B Terminal_Punctuation +1361 1368 Terminal_Punctuation +166D 166E Terminal_Punctuation +16EB 16ED Terminal_Punctuation +17D4 17D6 Terminal_Punctuation +17DA Terminal_Punctuation +1802 1805 Terminal_Punctuation +1808 1809 Terminal_Punctuation +1944 1945 Terminal_Punctuation +1B5A 1B5B Terminal_Punctuation +1B5D 1B5F Terminal_Punctuation +1C3B 1C3F Terminal_Punctuation +1C7E 1C7F Terminal_Punctuation +203C 203D Terminal_Punctuation +2047 2049 Terminal_Punctuation +2E2E Terminal_Punctuation +3001 3002 Terminal_Punctuation +A60D A60F Terminal_Punctuation +A876 A877 Terminal_Punctuation +A8CE A8CF Terminal_Punctuation +A92F Terminal_Punctuation +AA5D AA5F Terminal_Punctuation +FE50 FE52 Terminal_Punctuation +FE54 FE57 Terminal_Punctuation +FF01 Terminal_Punctuation +FF0C Terminal_Punctuation +FF0E Terminal_Punctuation +FF1A FF1B Terminal_Punctuation +FF1F Terminal_Punctuation +FF61 Terminal_Punctuation +FF64 Terminal_Punctuation +1039F Terminal_Punctuation +103D0 Terminal_Punctuation +1091F Terminal_Punctuation +12470 12473 Terminal_Punctuation +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Tfng.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Tfng.pl new file mode 100644 index 0000000..e607973 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Tfng.pl @@ -0,0 +1,18 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Tifinagh} (and fuzzy permutations) +# +# Meaning: Script 'Tifinagh' +# +return <<'END'; +2D30 2D65 Tifinagh +2D6F Tifinagh +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Tglg.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Tglg.pl new file mode 100644 index 0000000..bad457f --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Tglg.pl @@ -0,0 +1,18 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Tagalog} (and fuzzy permutations) +# +# Meaning: Script 'Tagalog' +# +return <<'END'; +1700 170C Tagalog +170E 1714 Tagalog +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Thaa.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Thaa.pl new file mode 100644 index 0000000..d9386af --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Thaa.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Thaana} (and fuzzy permutations) +# +# Meaning: Script 'Thaana' +# +return <<'END'; +0780 07B1 Thaana +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Thai.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Thai.pl new file mode 100644 index 0000000..27cb3eb --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Thai.pl @@ -0,0 +1,18 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Thai} (and fuzzy permutations) +# +# Meaning: Script 'Thai' +# +return <<'END'; +0E01 0E3A Thai +0E40 0E5B Thai +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Tibt.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Tibt.pl new file mode 100644 index 0000000..7f59e9e --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Tibt.pl @@ -0,0 +1,23 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Tibetan} (and fuzzy permutations) +# +# Meaning: Script 'Tibetan' +# +return <<'END'; +0F00 0F47 Tibetan +0F49 0F6C Tibetan +0F71 0F8B Tibetan +0F90 0F97 Tibetan +0F99 0FBC Tibetan +0FBE 0FCC Tibetan +0FCE 0FD4 Tibetan +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Title.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Title.pl new file mode 100644 index 0000000..0091f2d --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Title.pl @@ -0,0 +1,26 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Title} +# +# Meaning: [[:Title:]] +# +return <<'END'; +01C5 +01C8 +01CB +01F2 +1F88 1F8F +1F98 1F9F +1FA8 1FAF +1FBC +1FCC +1FFC +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/UIdeo.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/UIdeo.pl new file mode 100644 index 0000000..dc3484a --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/UIdeo.pl @@ -0,0 +1,23 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Binary property 'Unified_Ideograph' +# +return <<'END'; +3400 4DB5 Unified_Ideograph +4E00 9FC3 Unified_Ideograph +FA0E FA0F Unified_Ideograph +FA11 Unified_Ideograph +FA13 FA14 Unified_Ideograph +FA1F Unified_Ideograph +FA21 Unified_Ideograph +FA23 FA24 Unified_Ideograph +FA27 FA29 Unified_Ideograph +20000 2A6D6 Unified_Ideograph +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Ugar.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Ugar.pl new file mode 100644 index 0000000..d8eeb0e --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Ugar.pl @@ -0,0 +1,18 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Ugaritic} (and fuzzy permutations) +# +# Meaning: Script 'Ugaritic' +# +return <<'END'; +10380 1039D Ugaritic +1039F Ugaritic +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/UnifiedI.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/UnifiedI.pl new file mode 100644 index 0000000..372f5ea --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/UnifiedI.pl @@ -0,0 +1,26 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{UnifiedIdeograph} (and fuzzy permutations) +# +# Meaning: Extended property 'Unified_Ideograph' +# +return <<'END'; +3400 4DB5 Unified_Ideograph +4E00 9FC3 Unified_Ideograph +FA0E FA0F Unified_Ideograph +FA11 Unified_Ideograph +FA13 FA14 Unified_Ideograph +FA1F Unified_Ideograph +FA21 Unified_Ideograph +FA23 FA24 Unified_Ideograph +FA27 FA29 Unified_Ideograph +20000 2A6D6 Unified_Ideograph +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Upper.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Upper.pl new file mode 100644 index 0000000..3834a29 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Upper.pl @@ -0,0 +1,607 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Upper} +# +# Meaning: [[:Upper:]] +# +return <<'END'; +0041 005A +00C0 00D6 +00D8 00DE +0100 +0102 +0104 +0106 +0108 +010A +010C +010E +0110 +0112 +0114 +0116 +0118 +011A +011C +011E +0120 +0122 +0124 +0126 +0128 +012A +012C +012E +0130 +0132 +0134 +0136 +0139 +013B +013D +013F +0141 +0143 +0145 +0147 +014A +014C +014E +0150 +0152 +0154 +0156 +0158 +015A +015C +015E +0160 +0162 +0164 +0166 +0168 +016A +016C +016E +0170 +0172 +0174 +0176 +0178 0179 +017B +017D +0181 0182 +0184 +0186 0187 +0189 018B +018E 0191 +0193 0194 +0196 0198 +019C 019D +019F 01A0 +01A2 +01A4 +01A6 01A7 +01A9 +01AC +01AE 01AF +01B1 01B3 +01B5 +01B7 01B8 +01BC +01C4 +01C7 +01CA +01CD +01CF +01D1 +01D3 +01D5 +01D7 +01D9 +01DB +01DE +01E0 +01E2 +01E4 +01E6 +01E8 +01EA +01EC +01EE +01F1 +01F4 +01F6 01F8 +01FA +01FC +01FE +0200 +0202 +0204 +0206 +0208 +020A +020C +020E +0210 +0212 +0214 +0216 +0218 +021A +021C +021E +0220 +0222 +0224 +0226 +0228 +022A +022C +022E +0230 +0232 +023A 023B +023D 023E +0241 +0243 0246 +0248 +024A +024C +024E +0370 +0372 +0376 +0386 +0388 038A +038C +038E 038F +0391 03A1 +03A3 03AB +03CF +03D2 03D4 +03D8 +03DA +03DC +03DE +03E0 +03E2 +03E4 +03E6 +03E8 +03EA +03EC +03EE +03F4 +03F7 +03F9 03FA +03FD 042F +0460 +0462 +0464 +0466 +0468 +046A +046C +046E +0470 +0472 +0474 +0476 +0478 +047A +047C +047E +0480 +048A +048C +048E +0490 +0492 +0494 +0496 +0498 +049A +049C +049E +04A0 +04A2 +04A4 +04A6 +04A8 +04AA +04AC +04AE +04B0 +04B2 +04B4 +04B6 +04B8 +04BA +04BC +04BE +04C0 04C1 +04C3 +04C5 +04C7 +04C9 +04CB +04CD +04D0 +04D2 +04D4 +04D6 +04D8 +04DA +04DC +04DE +04E0 +04E2 +04E4 +04E6 +04E8 +04EA +04EC +04EE +04F0 +04F2 +04F4 +04F6 +04F8 +04FA +04FC +04FE +0500 +0502 +0504 +0506 +0508 +050A +050C +050E +0510 +0512 +0514 +0516 +0518 +051A +051C +051E +0520 +0522 +0531 0556 +10A0 10C5 +1E00 +1E02 +1E04 +1E06 +1E08 +1E0A +1E0C +1E0E +1E10 +1E12 +1E14 +1E16 +1E18 +1E1A +1E1C +1E1E +1E20 +1E22 +1E24 +1E26 +1E28 +1E2A +1E2C +1E2E +1E30 +1E32 +1E34 +1E36 +1E38 +1E3A +1E3C +1E3E +1E40 +1E42 +1E44 +1E46 +1E48 +1E4A +1E4C +1E4E +1E50 +1E52 +1E54 +1E56 +1E58 +1E5A +1E5C +1E5E +1E60 +1E62 +1E64 +1E66 +1E68 +1E6A +1E6C +1E6E +1E70 +1E72 +1E74 +1E76 +1E78 +1E7A +1E7C +1E7E +1E80 +1E82 +1E84 +1E86 +1E88 +1E8A +1E8C +1E8E +1E90 +1E92 +1E94 +1E9E +1EA0 +1EA2 +1EA4 +1EA6 +1EA8 +1EAA +1EAC +1EAE +1EB0 +1EB2 +1EB4 +1EB6 +1EB8 +1EBA +1EBC +1EBE +1EC0 +1EC2 +1EC4 +1EC6 +1EC8 +1ECA +1ECC +1ECE +1ED0 +1ED2 +1ED4 +1ED6 +1ED8 +1EDA +1EDC +1EDE +1EE0 +1EE2 +1EE4 +1EE6 +1EE8 +1EEA +1EEC +1EEE +1EF0 +1EF2 +1EF4 +1EF6 +1EF8 +1EFA +1EFC +1EFE +1F08 1F0F +1F18 1F1D +1F28 1F2F +1F38 1F3F +1F48 1F4D +1F59 +1F5B +1F5D +1F5F +1F68 1F6F +1FB8 1FBB +1FC8 1FCB +1FD8 1FDB +1FE8 1FEC +1FF8 1FFB +2102 +2107 +210B 210D +2110 2112 +2115 +2119 211D +2124 +2126 +2128 +212A 212D +2130 2133 +213E 213F +2145 +2183 +2C00 2C2E +2C60 +2C62 2C64 +2C67 +2C69 +2C6B +2C6D 2C6F +2C72 +2C75 +2C80 +2C82 +2C84 +2C86 +2C88 +2C8A +2C8C +2C8E +2C90 +2C92 +2C94 +2C96 +2C98 +2C9A +2C9C +2C9E +2CA0 +2CA2 +2CA4 +2CA6 +2CA8 +2CAA +2CAC +2CAE +2CB0 +2CB2 +2CB4 +2CB6 +2CB8 +2CBA +2CBC +2CBE +2CC0 +2CC2 +2CC4 +2CC6 +2CC8 +2CCA +2CCC +2CCE +2CD0 +2CD2 +2CD4 +2CD6 +2CD8 +2CDA +2CDC +2CDE +2CE0 +2CE2 +A640 +A642 +A644 +A646 +A648 +A64A +A64C +A64E +A650 +A652 +A654 +A656 +A658 +A65A +A65C +A65E +A662 +A664 +A666 +A668 +A66A +A66C +A680 +A682 +A684 +A686 +A688 +A68A +A68C +A68E +A690 +A692 +A694 +A696 +A722 +A724 +A726 +A728 +A72A +A72C +A72E +A732 +A734 +A736 +A738 +A73A +A73C +A73E +A740 +A742 +A744 +A746 +A748 +A74A +A74C +A74E +A750 +A752 +A754 +A756 +A758 +A75A +A75C +A75E +A760 +A762 +A764 +A766 +A768 +A76A +A76C +A76E +A779 +A77B +A77D A77E +A780 +A782 +A784 +A786 +A78B +FF21 FF3A +10400 10427 +1D400 1D419 +1D434 1D44D +1D468 1D481 +1D49C +1D49E 1D49F +1D4A2 +1D4A5 1D4A6 +1D4A9 1D4AC +1D4AE 1D4B5 +1D4D0 1D4E9 +1D504 1D505 +1D507 1D50A +1D50D 1D514 +1D516 1D51C +1D538 1D539 +1D53B 1D53E +1D540 1D544 +1D546 +1D54A 1D550 +1D56C 1D585 +1D5A0 1D5B9 +1D5D4 1D5ED +1D608 1D621 +1D63C 1D655 +1D670 1D689 +1D6A8 1D6C0 +1D6E2 1D6FA +1D71C 1D734 +1D756 1D76E +1D790 1D7A8 +1D7CA +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Uppercas.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Uppercas.pl new file mode 100644 index 0000000..d72907c --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Uppercas.pl @@ -0,0 +1,609 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Uppercase} (and fuzzy permutations) +# +# Meaning: [\p{Lu}\p{OtherUppercase}] +# +return <<'END'; +0041 005A +00C0 00D6 +00D8 00DE +0100 +0102 +0104 +0106 +0108 +010A +010C +010E +0110 +0112 +0114 +0116 +0118 +011A +011C +011E +0120 +0122 +0124 +0126 +0128 +012A +012C +012E +0130 +0132 +0134 +0136 +0139 +013B +013D +013F +0141 +0143 +0145 +0147 +014A +014C +014E +0150 +0152 +0154 +0156 +0158 +015A +015C +015E +0160 +0162 +0164 +0166 +0168 +016A +016C +016E +0170 +0172 +0174 +0176 +0178 0179 +017B +017D +0181 0182 +0184 +0186 0187 +0189 018B +018E 0191 +0193 0194 +0196 0198 +019C 019D +019F 01A0 +01A2 +01A4 +01A6 01A7 +01A9 +01AC +01AE 01AF +01B1 01B3 +01B5 +01B7 01B8 +01BC +01C4 +01C7 +01CA +01CD +01CF +01D1 +01D3 +01D5 +01D7 +01D9 +01DB +01DE +01E0 +01E2 +01E4 +01E6 +01E8 +01EA +01EC +01EE +01F1 +01F4 +01F6 01F8 +01FA +01FC +01FE +0200 +0202 +0204 +0206 +0208 +020A +020C +020E +0210 +0212 +0214 +0216 +0218 +021A +021C +021E +0220 +0222 +0224 +0226 +0228 +022A +022C +022E +0230 +0232 +023A 023B +023D 023E +0241 +0243 0246 +0248 +024A +024C +024E +0370 +0372 +0376 +0386 +0388 038A +038C +038E 038F +0391 03A1 +03A3 03AB +03CF +03D2 03D4 +03D8 +03DA +03DC +03DE +03E0 +03E2 +03E4 +03E6 +03E8 +03EA +03EC +03EE +03F4 +03F7 +03F9 03FA +03FD 042F +0460 +0462 +0464 +0466 +0468 +046A +046C +046E +0470 +0472 +0474 +0476 +0478 +047A +047C +047E +0480 +048A +048C +048E +0490 +0492 +0494 +0496 +0498 +049A +049C +049E +04A0 +04A2 +04A4 +04A6 +04A8 +04AA +04AC +04AE +04B0 +04B2 +04B4 +04B6 +04B8 +04BA +04BC +04BE +04C0 04C1 +04C3 +04C5 +04C7 +04C9 +04CB +04CD +04D0 +04D2 +04D4 +04D6 +04D8 +04DA +04DC +04DE +04E0 +04E2 +04E4 +04E6 +04E8 +04EA +04EC +04EE +04F0 +04F2 +04F4 +04F6 +04F8 +04FA +04FC +04FE +0500 +0502 +0504 +0506 +0508 +050A +050C +050E +0510 +0512 +0514 +0516 +0518 +051A +051C +051E +0520 +0522 +0531 0556 +10A0 10C5 +1E00 +1E02 +1E04 +1E06 +1E08 +1E0A +1E0C +1E0E +1E10 +1E12 +1E14 +1E16 +1E18 +1E1A +1E1C +1E1E +1E20 +1E22 +1E24 +1E26 +1E28 +1E2A +1E2C +1E2E +1E30 +1E32 +1E34 +1E36 +1E38 +1E3A +1E3C +1E3E +1E40 +1E42 +1E44 +1E46 +1E48 +1E4A +1E4C +1E4E +1E50 +1E52 +1E54 +1E56 +1E58 +1E5A +1E5C +1E5E +1E60 +1E62 +1E64 +1E66 +1E68 +1E6A +1E6C +1E6E +1E70 +1E72 +1E74 +1E76 +1E78 +1E7A +1E7C +1E7E +1E80 +1E82 +1E84 +1E86 +1E88 +1E8A +1E8C +1E8E +1E90 +1E92 +1E94 +1E9E +1EA0 +1EA2 +1EA4 +1EA6 +1EA8 +1EAA +1EAC +1EAE +1EB0 +1EB2 +1EB4 +1EB6 +1EB8 +1EBA +1EBC +1EBE +1EC0 +1EC2 +1EC4 +1EC6 +1EC8 +1ECA +1ECC +1ECE +1ED0 +1ED2 +1ED4 +1ED6 +1ED8 +1EDA +1EDC +1EDE +1EE0 +1EE2 +1EE4 +1EE6 +1EE8 +1EEA +1EEC +1EEE +1EF0 +1EF2 +1EF4 +1EF6 +1EF8 +1EFA +1EFC +1EFE +1F08 1F0F +1F18 1F1D +1F28 1F2F +1F38 1F3F +1F48 1F4D +1F59 +1F5B +1F5D +1F5F +1F68 1F6F +1FB8 1FBB +1FC8 1FCB +1FD8 1FDB +1FE8 1FEC +1FF8 1FFB +2102 +2107 +210B 210D +2110 2112 +2115 +2119 211D +2124 +2126 +2128 +212A 212D +2130 2133 +213E 213F +2145 +2160 216F +2183 +24B6 24CF +2C00 2C2E +2C60 +2C62 2C64 +2C67 +2C69 +2C6B +2C6D 2C6F +2C72 +2C75 +2C80 +2C82 +2C84 +2C86 +2C88 +2C8A +2C8C +2C8E +2C90 +2C92 +2C94 +2C96 +2C98 +2C9A +2C9C +2C9E +2CA0 +2CA2 +2CA4 +2CA6 +2CA8 +2CAA +2CAC +2CAE +2CB0 +2CB2 +2CB4 +2CB6 +2CB8 +2CBA +2CBC +2CBE +2CC0 +2CC2 +2CC4 +2CC6 +2CC8 +2CCA +2CCC +2CCE +2CD0 +2CD2 +2CD4 +2CD6 +2CD8 +2CDA +2CDC +2CDE +2CE0 +2CE2 +A640 +A642 +A644 +A646 +A648 +A64A +A64C +A64E +A650 +A652 +A654 +A656 +A658 +A65A +A65C +A65E +A662 +A664 +A666 +A668 +A66A +A66C +A680 +A682 +A684 +A686 +A688 +A68A +A68C +A68E +A690 +A692 +A694 +A696 +A722 +A724 +A726 +A728 +A72A +A72C +A72E +A732 +A734 +A736 +A738 +A73A +A73C +A73E +A740 +A742 +A744 +A746 +A748 +A74A +A74C +A74E +A750 +A752 +A754 +A756 +A758 +A75A +A75C +A75E +A760 +A762 +A764 +A766 +A768 +A76A +A76C +A76E +A779 +A77B +A77D A77E +A780 +A782 +A784 +A786 +A78B +FF21 FF3A +10400 10427 +1D400 1D419 +1D434 1D44D +1D468 1D481 +1D49C +1D49E 1D49F +1D4A2 +1D4A5 1D4A6 +1D4A9 1D4AC +1D4AE 1D4B5 +1D4D0 1D4E9 +1D504 1D505 +1D507 1D50A +1D50D 1D514 +1D516 1D51C +1D538 1D539 +1D53B 1D53E +1D540 1D544 +1D546 +1D54A 1D550 +1D56C 1D585 +1D5A0 1D5B9 +1D5D4 1D5ED +1D608 1D621 +1D63C 1D655 +1D670 1D689 +1D6A8 1D6C0 +1D6E2 1D6FA +1D71C 1D734 +1D756 1D76E +1D790 1D7A8 +1D7CA +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/VS.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/VS.pl new file mode 100644 index 0000000..4c593d4 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/VS.pl @@ -0,0 +1,16 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Binary property 'Variation_Selector' +# +return <<'END'; +180B 180D Variation_Selector +FE00 FE0F Variation_Selector +E0100 E01EF Variation_Selector +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Vaii.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Vaii.pl new file mode 100644 index 0000000..e6d7167 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Vaii.pl @@ -0,0 +1,17 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Vai} (and fuzzy permutations) +# +# Meaning: Script 'Vai' +# +return <<'END'; +A500 A62B Vai +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Variatio.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Variatio.pl new file mode 100644 index 0000000..55fee5b --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Variatio.pl @@ -0,0 +1,19 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{VariationSelector} (and fuzzy permutations) +# +# Meaning: Extended property 'Variation_Selector' +# +return <<'END'; +180B 180D Variation_Selector +FE00 FE0F Variation_Selector +E0100 E01EF Variation_Selector +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/VertSpac.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/VertSpac.pl new file mode 100644 index 0000000..8086c1d --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/VertSpac.pl @@ -0,0 +1,19 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{VertSpace} +# +# Meaning: \v +# +return <<'END'; +000A 000D +0085 +2028 2029 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/WSpace.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/WSpace.pl new file mode 100644 index 0000000..76176dd --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/WSpace.pl @@ -0,0 +1,24 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Binary property 'White_Space' +# +return <<'END'; +0009 000D White_Space +0020 White_Space +0085 White_Space +00A0 White_Space +1680 White_Space +180E White_Space +2000 200A White_Space +2028 2029 White_Space +202F White_Space +205F White_Space +3000 White_Space +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/WhiteSpa.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/WhiteSpa.pl new file mode 100644 index 0000000..ed9b1cd --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/WhiteSpa.pl @@ -0,0 +1,27 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{WhiteSpace} (and fuzzy permutations) +# +# Meaning: Extended property 'White_Space' +# +return <<'END'; +0009 000D White_Space +0020 White_Space +0085 White_Space +00A0 White_Space +1680 White_Space +180E White_Space +2000 200A White_Space +2028 2029 White_Space +202F White_Space +205F White_Space +3000 White_Space +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Word.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Word.pl new file mode 100644 index 0000000..b4dcade --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Word.pl @@ -0,0 +1,512 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Word} +# +# Meaning: [[:Word:]] +# +return <<'END'; +0030 0039 +0041 005A +005F +0061 007A +00AA +00B2 00B3 +00B5 +00B9 00BA +00BC 00BE +00C0 00D6 +00D8 00F6 +00F8 02C1 +02C6 02D1 +02E0 02E4 +02EC +02EE +0300 0374 +0376 0377 +037A 037D +0386 +0388 038A +038C +038E 03A1 +03A3 03F5 +03F7 0481 +0483 0523 +0531 0556 +0559 +0561 0587 +0591 05BD +05BF +05C1 05C2 +05C4 05C5 +05C7 +05D0 05EA +05F0 05F2 +0610 061A +0621 065E +0660 0669 +066E 06D3 +06D5 06DC +06DE 06E8 +06EA 06FC +06FF +0710 074A +074D 07B1 +07C0 07F5 +07FA +0901 0939 +093C 094D +0950 0954 +0958 0963 +0966 096F +0971 0972 +097B 097F +0981 0983 +0985 098C +098F 0990 +0993 09A8 +09AA 09B0 +09B2 +09B6 09B9 +09BC 09C4 +09C7 09C8 +09CB 09CE +09D7 +09DC 09DD +09DF 09E3 +09E6 09F1 +09F4 09F9 +0A01 0A03 +0A05 0A0A +0A0F 0A10 +0A13 0A28 +0A2A 0A30 +0A32 0A33 +0A35 0A36 +0A38 0A39 +0A3C +0A3E 0A42 +0A47 0A48 +0A4B 0A4D +0A51 +0A59 0A5C +0A5E +0A66 0A75 +0A81 0A83 +0A85 0A8D +0A8F 0A91 +0A93 0AA8 +0AAA 0AB0 +0AB2 0AB3 +0AB5 0AB9 +0ABC 0AC5 +0AC7 0AC9 +0ACB 0ACD +0AD0 +0AE0 0AE3 +0AE6 0AEF +0B01 0B03 +0B05 0B0C +0B0F 0B10 +0B13 0B28 +0B2A 0B30 +0B32 0B33 +0B35 0B39 +0B3C 0B44 +0B47 0B48 +0B4B 0B4D +0B56 0B57 +0B5C 0B5D +0B5F 0B63 +0B66 0B6F +0B71 +0B82 0B83 +0B85 0B8A +0B8E 0B90 +0B92 0B95 +0B99 0B9A +0B9C +0B9E 0B9F +0BA3 0BA4 +0BA8 0BAA +0BAE 0BB9 +0BBE 0BC2 +0BC6 0BC8 +0BCA 0BCD +0BD0 +0BD7 +0BE6 0BF2 +0C01 0C03 +0C05 0C0C +0C0E 0C10 +0C12 0C28 +0C2A 0C33 +0C35 0C39 +0C3D 0C44 +0C46 0C48 +0C4A 0C4D +0C55 0C56 +0C58 0C59 +0C60 0C63 +0C66 0C6F +0C78 0C7E +0C82 0C83 +0C85 0C8C +0C8E 0C90 +0C92 0CA8 +0CAA 0CB3 +0CB5 0CB9 +0CBC 0CC4 +0CC6 0CC8 +0CCA 0CCD +0CD5 0CD6 +0CDE +0CE0 0CE3 +0CE6 0CEF +0D02 0D03 +0D05 0D0C +0D0E 0D10 +0D12 0D28 +0D2A 0D39 +0D3D 0D44 +0D46 0D48 +0D4A 0D4D +0D57 +0D60 0D63 +0D66 0D75 +0D7A 0D7F +0D82 0D83 +0D85 0D96 +0D9A 0DB1 +0DB3 0DBB +0DBD +0DC0 0DC6 +0DCA +0DCF 0DD4 +0DD6 +0DD8 0DDF +0DF2 0DF3 +0E01 0E3A +0E40 0E4E +0E50 0E59 +0E81 0E82 +0E84 +0E87 0E88 +0E8A +0E8D +0E94 0E97 +0E99 0E9F +0EA1 0EA3 +0EA5 +0EA7 +0EAA 0EAB +0EAD 0EB9 +0EBB 0EBD +0EC0 0EC4 +0EC6 +0EC8 0ECD +0ED0 0ED9 +0EDC 0EDD +0F00 +0F18 0F19 +0F20 0F33 +0F35 +0F37 +0F39 +0F3E 0F47 +0F49 0F6C +0F71 0F84 +0F86 0F8B +0F90 0F97 +0F99 0FBC +0FC6 +1000 1049 +1050 1099 +10A0 10C5 +10D0 10FA +10FC +1100 1159 +115F 11A2 +11A8 11F9 +1200 1248 +124A 124D +1250 1256 +1258 +125A 125D +1260 1288 +128A 128D +1290 12B0 +12B2 12B5 +12B8 12BE +12C0 +12C2 12C5 +12C8 12D6 +12D8 1310 +1312 1315 +1318 135A +135F +1369 137C +1380 138F +13A0 13F4 +1401 166C +166F 1676 +1681 169A +16A0 16EA +16EE 16F0 +1700 170C +170E 1714 +1720 1734 +1740 1753 +1760 176C +176E 1770 +1772 1773 +1780 17B3 +17B6 17D3 +17D7 +17DC 17DD +17E0 17E9 +17F0 17F9 +180B 180D +1810 1819 +1820 1877 +1880 18AA +1900 191C +1920 192B +1930 193B +1946 196D +1970 1974 +1980 19A9 +19B0 19C9 +19D0 19D9 +1A00 1A1B +1B00 1B4B +1B50 1B59 +1B6B 1B73 +1B80 1BAA +1BAE 1BB9 +1C00 1C37 +1C40 1C49 +1C4D 1C7D +1D00 1DE6 +1DFE 1F15 +1F18 1F1D +1F20 1F45 +1F48 1F4D +1F50 1F57 +1F59 +1F5B +1F5D +1F5F 1F7D +1F80 1FB4 +1FB6 1FBC +1FBE +1FC2 1FC4 +1FC6 1FCC +1FD0 1FD3 +1FD6 1FDB +1FE0 1FEC +1FF2 1FF4 +1FF6 1FFC +203F 2040 +2054 +2070 2071 +2074 2079 +207F 2089 +2090 2094 +20D0 20F0 +2102 +2107 +210A 2113 +2115 +2119 211D +2124 +2126 +2128 +212A 212D +212F 2139 +213C 213F +2145 2149 +214E +2153 2188 +2460 249B +24EA 24FF +2776 2793 +2C00 2C2E +2C30 2C5E +2C60 2C6F +2C71 2C7D +2C80 2CE4 +2CFD +2D00 2D25 +2D30 2D65 +2D6F +2D80 2D96 +2DA0 2DA6 +2DA8 2DAE +2DB0 2DB6 +2DB8 2DBE +2DC0 2DC6 +2DC8 2DCE +2DD0 2DD6 +2DD8 2DDE +2DE0 2DFF +2E2F +3005 3007 +3021 302F +3031 3035 +3038 303C +3041 3096 +3099 309A +309D 309F +30A1 30FA +30FC 30FF +3105 312D +3131 318E +3192 3195 +31A0 31B7 +31F0 31FF +3220 3229 +3251 325F +3280 3289 +32B1 32BF +3400 4DB5 +4E00 9FC3 +A000 A48C +A500 A60C +A610 A62B +A640 A65F +A662 A672 +A67C A67D +A67F A697 +A717 A71F +A722 A788 +A78B A78C +A7FB A827 +A840 A873 +A880 A8C4 +A8D0 A8D9 +A900 A92D +A930 A953 +AA00 AA36 +AA40 AA4D +AA50 AA59 +AC00 D7A3 +F900 FA2D +FA30 FA6A +FA70 FAD9 +FB00 FB06 +FB13 FB17 +FB1D FB28 +FB2A FB36 +FB38 FB3C +FB3E +FB40 FB41 +FB43 FB44 +FB46 FBB1 +FBD3 FD3D +FD50 FD8F +FD92 FDC7 +FDF0 FDFB +FE00 FE0F +FE20 FE26 +FE33 FE34 +FE4D FE4F +FE70 FE74 +FE76 FEFC +FF10 FF19 +FF21 FF3A +FF3F +FF41 FF5A +FF66 FFBE +FFC2 FFC7 +FFCA FFCF +FFD2 FFD7 +FFDA FFDC +10000 1000B +1000D 10026 +10028 1003A +1003C 1003D +1003F 1004D +10050 1005D +10080 100FA +10107 10133 +10140 10178 +1018A +101FD +10280 1029C +102A0 102D0 +10300 1031E +10320 10323 +10330 1034A +10380 1039D +103A0 103C3 +103C8 103CF +103D1 103D5 +10400 1049D +104A0 104A9 +10800 10805 +10808 +1080A 10835 +10837 10838 +1083C +1083F +10900 10919 +10920 10939 +10A00 10A03 +10A05 10A06 +10A0C 10A13 +10A15 10A17 +10A19 10A33 +10A38 10A3A +10A3F 10A47 +12000 1236E +12400 12462 +1D165 1D169 +1D16D 1D172 +1D17B 1D182 +1D185 1D18B +1D1AA 1D1AD +1D242 1D244 +1D360 1D371 +1D400 1D454 +1D456 1D49C +1D49E 1D49F +1D4A2 +1D4A5 1D4A6 +1D4A9 1D4AC +1D4AE 1D4B9 +1D4BB +1D4BD 1D4C3 +1D4C5 1D505 +1D507 1D50A +1D50D 1D514 +1D516 1D51C +1D51E 1D539 +1D53B 1D53E +1D540 1D544 +1D546 +1D54A 1D550 +1D552 1D6A5 +1D6A8 1D6C0 +1D6C2 1D6DA +1D6DC 1D6FA +1D6FC 1D714 +1D716 1D734 +1D736 1D74E +1D750 1D76E +1D770 1D788 +1D78A 1D7A8 +1D7AA 1D7C2 +1D7C4 1D7CB +1D7CE 1D7FF +20000 2A6D6 +2F800 2FA1D +E0100 E01EF +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/XDigit.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/XDigit.pl new file mode 100644 index 0000000..c0632ff --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/XDigit.pl @@ -0,0 +1,19 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{XDigit} +# +# Meaning: [[:XDigit:]] +# +return <<'END'; +0030 0039 +0041 0046 +0061 0066 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Xsux.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Xsux.pl new file mode 100644 index 0000000..116bb8d --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Xsux.pl @@ -0,0 +1,19 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Cuneiform} (and fuzzy permutations) +# +# Meaning: Script 'Cuneiform' +# +return <<'END'; +12000 1236E Cuneiform +12400 12462 Cuneiform +12470 12473 Cuneiform +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Yiii.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Yiii.pl new file mode 100644 index 0000000..857ab65 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Yiii.pl @@ -0,0 +1,18 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Yi} (and fuzzy permutations) +# +# Meaning: Script 'Yi' +# +return <<'END'; +A000 A48C Yi +A490 A4C6 Yi +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Z.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Z.pl new file mode 100644 index 0000000..c3404d6 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Z.pl @@ -0,0 +1,26 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Z} +# \p{Z} (and fuzzy permutations) +# +# Meaning: Major Category 'Z' +# +return <<'END'; +0020 +00A0 +1680 +180E +2000 200A +2028 2029 +202F +205F +3000 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Zl.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Zl.pl new file mode 100644 index 0000000..33b6dc2 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Zl.pl @@ -0,0 +1,18 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Zl} +# \p{Zl} (and fuzzy permutations) +# +# Meaning: General Category 'Zl' +# +return <<'END'; +2028 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Zp.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Zp.pl new file mode 100644 index 0000000..22c136f --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Zp.pl @@ -0,0 +1,18 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Zp} +# \p{Zp} (and fuzzy permutations) +# +# Meaning: General Category 'Zp' +# +return <<'END'; +2029 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Zs.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Zs.pl new file mode 100644 index 0000000..14f18f0 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Zs.pl @@ -0,0 +1,25 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Zs} +# \p{Zs} (and fuzzy permutations) +# +# Meaning: General Category 'Zs' +# +return <<'END'; +0020 +00A0 +1680 +180E +2000 200A +202F +205F +3000 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Zyyy.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Zyyy.pl new file mode 100644 index 0000000..931ba9a --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/Zyyy.pl @@ -0,0 +1,153 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{Common} (and fuzzy permutations) +# +# Meaning: Script 'Common' +# +return <<'END'; +0000 0040 Common +005B 0060 Common +007B 00A9 Common +00AB 00B9 Common +00BB 00BF Common +00D7 Common +00F7 Common +02B9 02DF Common +02E5 02FF Common +0374 Common +037E Common +0385 Common +0387 Common +0589 Common +0600 0603 Common +060C Common +061B Common +061F Common +0640 Common +0660 0669 Common +06DD Common +0964 0965 Common +0970 Common +0CF1 0CF2 Common +0E3F Common +10FB Common +16EB 16ED Common +1735 1736 Common +1802 1803 Common +1805 Common +2000 200B Common +200E 2064 Common +206A 2070 Common +2074 207E Common +2080 208E Common +20A0 20B5 Common +2100 2125 Common +2127 2129 Common +212C 2131 Common +2133 214D Common +214F Common +2153 215F Common +2190 23E7 Common +2400 2426 Common +2440 244A Common +2460 269D Common +26A0 26BC Common +26C0 26C3 Common +2701 2704 Common +2706 2709 Common +270C 2727 Common +2729 274B Common +274D Common +274F 2752 Common +2756 Common +2758 275E Common +2761 2794 Common +2798 27AF Common +27B1 27BE Common +27C0 27CA Common +27CC Common +27D0 27FF Common +2900 2B4C Common +2B50 2B54 Common +2E00 2E30 Common +2FF0 2FFB Common +3000 3004 Common +3006 Common +3008 3020 Common +3030 3037 Common +303C 303F Common +309B 309C Common +30A0 Common +30FB 30FC Common +3190 319F Common +31C0 31E3 Common +3220 3243 Common +3250 325F Common +327F 32CF Common +3358 33FF Common +4DC0 4DFF Common +A700 A721 Common +A788 A78A Common +FD3E FD3F Common +FDFD Common +FE10 FE19 Common +FE30 FE52 Common +FE54 FE66 Common +FE68 FE6B Common +FEFF Common +FF01 FF20 Common +FF3B FF40 Common +FF5B FF65 Common +FF70 Common +FF9E FF9F Common +FFE0 FFE6 Common +FFE8 FFEE Common +FFF9 FFFD Common +10100 10102 Common +10107 10133 Common +10137 1013F Common +10190 1019B Common +101D0 101FC Common +1D000 1D0F5 Common +1D100 1D126 Common +1D129 1D166 Common +1D16A 1D17A Common +1D183 1D184 Common +1D18C 1D1A9 Common +1D1AE 1D1DD Common +1D300 1D356 Common +1D360 1D371 Common +1D400 1D454 Common +1D456 1D49C Common +1D49E 1D49F Common +1D4A2 Common +1D4A5 1D4A6 Common +1D4A9 1D4AC Common +1D4AE 1D4B9 Common +1D4BB Common +1D4BD 1D4C3 Common +1D4C5 1D505 Common +1D507 1D50A Common +1D50D 1D514 Common +1D516 1D51C Common +1D51E 1D539 Common +1D53B 1D53E Common +1D540 1D544 Common +1D546 Common +1D54A 1D550 Common +1D552 1D6A5 Common +1D6A8 1D7CB Common +1D7CE 1D7FF Common +1F000 1F02B Common +1F030 1F093 Common +E0001 Common +E0020 E007F Common +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/_CanonDC.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/_CanonDC.pl new file mode 100644 index 0000000..ef51456 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/_CanonDC.pl @@ -0,0 +1,20 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{_CanonDCIJ} +# +# Meaning: (for internal casefolding use) +# +return <<'END'; +0069 006A +012F +1E2D +1ECB +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/_CaseIgn.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/_CaseIgn.pl new file mode 100644 index 0000000..e98e95d --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/_CaseIgn.pl @@ -0,0 +1,178 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{_CaseIgnorable} +# +# Meaning: (for internal casefolding use) +# +return <<'END'; +00AD +0300 036F +0483 0487 +0591 05BD +05BF +05C1 05C2 +05C4 05C5 +05C7 +0610 061A +064B 065E +0670 +06D6 06DC +06DF 06E4 +06E7 06E8 +06EA 06ED +0711 +0730 074A +07A6 07B0 +07EB 07F3 +0901 0902 +093C +0941 0948 +094D +0951 0954 +0962 0963 +0981 +09BC +09C1 09C4 +09CD +09E2 09E3 +0A01 0A02 +0A3C +0A41 0A42 +0A47 0A48 +0A4B 0A4D +0A51 +0A70 0A71 +0A75 +0A81 0A82 +0ABC +0AC1 0AC5 +0AC7 0AC8 +0ACD +0AE2 0AE3 +0B01 +0B3C +0B3F +0B41 0B44 +0B4D +0B56 +0B62 0B63 +0B82 +0BC0 +0BCD +0C3E 0C40 +0C46 0C48 +0C4A 0C4D +0C55 0C56 +0C62 0C63 +0CBC +0CBF +0CC6 +0CCC 0CCD +0CE2 0CE3 +0D41 0D44 +0D4D +0D62 0D63 +0DCA +0DD2 0DD4 +0DD6 +0E31 +0E34 0E3A +0E47 0E4E +0EB1 +0EB4 0EB9 +0EBB 0EBC +0EC8 0ECD +0F18 0F19 +0F35 +0F37 +0F39 +0F71 0F7E +0F80 0F84 +0F86 0F87 +0F90 0F97 +0F99 0FBC +0FC6 +102D 1030 +1032 1037 +1039 103A +103D 103E +1058 1059 +105E 1060 +1071 1074 +1082 +1085 1086 +108D +135F +1712 1714 +1732 1734 +1752 1753 +1772 1773 +17B7 17BD +17C6 +17C9 17D3 +17DD +180B 180D +18A9 +1920 1922 +1927 1928 +1932 +1939 193B +1A17 1A18 +1B00 1B03 +1B34 +1B36 1B3A +1B3C +1B42 +1B6B 1B73 +1B80 1B81 +1BA2 1BA5 +1BA8 1BA9 +1C2C 1C33 +1C36 1C37 +1DC0 1DE6 +1DFE 1DFF +2010 +20D0 20DC +20E1 +20E5 20F0 +2DE0 2DFF +302A 302F +3099 309A +A66F +A67C A67D +A802 +A806 +A80B +A825 A826 +A8C4 +A926 A92D +A947 A951 +AA29 AA2E +AA31 AA32 +AA35 AA36 +AA43 +AA4C +FB1E +FE00 FE0F +FE20 FE26 +101FD +10A01 10A03 +10A05 10A06 +10A0C 10A0F +10A38 10A3A +10A3F +1D167 1D169 +1D17B 1D182 +1D185 1D18B +1D1AA 1D1AD +1D242 1D244 +E0100 E01EF +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/_CombAbo.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/_CombAbo.pl new file mode 100644 index 0000000..05558f8 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/gc_sc/_CombAbo.pl @@ -0,0 +1,84 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# This file supports: +# \p{_CombAbove} +# +# Meaning: (for internal casefolding use) +# +return <<'END'; +0300 0314 +033D 0344 +0346 +034A 034C +0350 0352 +0357 +035B +0363 036F +0483 0487 +0592 0595 +0597 0599 +059C 05A1 +05A8 05A9 +05AB 05AC +05AF +05C4 +0610 0617 +0653 0654 +0657 065B +065D 065E +06D6 06DC +06DF 06E2 +06E4 +06E7 06E8 +06EB 06EC +0730 +0732 0733 +0735 0736 +073A +073D +073F 0741 +0743 +0745 +0747 +0749 074A +07EB 07F1 +07F3 +0951 +0953 0954 +0F82 0F83 +0F86 0F87 +135F +17DD +193A +1A17 +1B6B +1B6D 1B73 +1DC0 1DC1 +1DC3 1DC9 +1DCB 1DCC +1DD1 1DE6 +1DFE +20D0 20D1 +20D4 20D7 +20DB 20DC +20E1 +20E7 +20E9 +20F0 +2DE0 2DFF +A66F +A67C A67D +FE20 FE26 +10A0F +10A38 +1D185 1D189 +1D1AA 1D1AD +1D242 1D244 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/hst/L.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/hst/L.pl new file mode 100644 index 0000000..9bd9e6a --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/hst/L.pl @@ -0,0 +1,15 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# HangulSyllableType category 'Leading_Jamo' +# +return <<'END'; +1100 1159 +115F +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/hst/LV.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/hst/LV.pl new file mode 100644 index 0000000..2994bbc --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/hst/LV.pl @@ -0,0 +1,412 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# HangulSyllableType category 'LV_Syllable' +# +return <<'END'; +AC00 +AC1C +AC38 +AC54 +AC70 +AC8C +ACA8 +ACC4 +ACE0 +ACFC +AD18 +AD34 +AD50 +AD6C +AD88 +ADA4 +ADC0 +ADDC +ADF8 +AE14 +AE30 +AE4C +AE68 +AE84 +AEA0 +AEBC +AED8 +AEF4 +AF10 +AF2C +AF48 +AF64 +AF80 +AF9C +AFB8 +AFD4 +AFF0 +B00C +B028 +B044 +B060 +B07C +B098 +B0B4 +B0D0 +B0EC +B108 +B124 +B140 +B15C +B178 +B194 +B1B0 +B1CC +B1E8 +B204 +B220 +B23C +B258 +B274 +B290 +B2AC +B2C8 +B2E4 +B300 +B31C +B338 +B354 +B370 +B38C +B3A8 +B3C4 +B3E0 +B3FC +B418 +B434 +B450 +B46C +B488 +B4A4 +B4C0 +B4DC +B4F8 +B514 +B530 +B54C +B568 +B584 +B5A0 +B5BC +B5D8 +B5F4 +B610 +B62C +B648 +B664 +B680 +B69C +B6B8 +B6D4 +B6F0 +B70C +B728 +B744 +B760 +B77C +B798 +B7B4 +B7D0 +B7EC +B808 +B824 +B840 +B85C +B878 +B894 +B8B0 +B8CC +B8E8 +B904 +B920 +B93C +B958 +B974 +B990 +B9AC +B9C8 +B9E4 +BA00 +BA1C +BA38 +BA54 +BA70 +BA8C +BAA8 +BAC4 +BAE0 +BAFC +BB18 +BB34 +BB50 +BB6C +BB88 +BBA4 +BBC0 +BBDC +BBF8 +BC14 +BC30 +BC4C +BC68 +BC84 +BCA0 +BCBC +BCD8 +BCF4 +BD10 +BD2C +BD48 +BD64 +BD80 +BD9C +BDB8 +BDD4 +BDF0 +BE0C +BE28 +BE44 +BE60 +BE7C +BE98 +BEB4 +BED0 +BEEC +BF08 +BF24 +BF40 +BF5C +BF78 +BF94 +BFB0 +BFCC +BFE8 +C004 +C020 +C03C +C058 +C074 +C090 +C0AC +C0C8 +C0E4 +C100 +C11C +C138 +C154 +C170 +C18C +C1A8 +C1C4 +C1E0 +C1FC +C218 +C234 +C250 +C26C +C288 +C2A4 +C2C0 +C2DC +C2F8 +C314 +C330 +C34C +C368 +C384 +C3A0 +C3BC +C3D8 +C3F4 +C410 +C42C +C448 +C464 +C480 +C49C +C4B8 +C4D4 +C4F0 +C50C +C528 +C544 +C560 +C57C +C598 +C5B4 +C5D0 +C5EC +C608 +C624 +C640 +C65C +C678 +C694 +C6B0 +C6CC +C6E8 +C704 +C720 +C73C +C758 +C774 +C790 +C7AC +C7C8 +C7E4 +C800 +C81C +C838 +C854 +C870 +C88C +C8A8 +C8C4 +C8E0 +C8FC +C918 +C934 +C950 +C96C +C988 +C9A4 +C9C0 +C9DC +C9F8 +CA14 +CA30 +CA4C +CA68 +CA84 +CAA0 +CABC +CAD8 +CAF4 +CB10 +CB2C +CB48 +CB64 +CB80 +CB9C +CBB8 +CBD4 +CBF0 +CC0C +CC28 +CC44 +CC60 +CC7C +CC98 +CCB4 +CCD0 +CCEC +CD08 +CD24 +CD40 +CD5C +CD78 +CD94 +CDB0 +CDCC +CDE8 +CE04 +CE20 +CE3C +CE58 +CE74 +CE90 +CEAC +CEC8 +CEE4 +CF00 +CF1C +CF38 +CF54 +CF70 +CF8C +CFA8 +CFC4 +CFE0 +CFFC +D018 +D034 +D050 +D06C +D088 +D0A4 +D0C0 +D0DC +D0F8 +D114 +D130 +D14C +D168 +D184 +D1A0 +D1BC +D1D8 +D1F4 +D210 +D22C +D248 +D264 +D280 +D29C +D2B8 +D2D4 +D2F0 +D30C +D328 +D344 +D360 +D37C +D398 +D3B4 +D3D0 +D3EC +D408 +D424 +D440 +D45C +D478 +D494 +D4B0 +D4CC +D4E8 +D504 +D520 +D53C +D558 +D574 +D590 +D5AC +D5C8 +D5E4 +D600 +D61C +D638 +D654 +D670 +D68C +D6A8 +D6C4 +D6E0 +D6FC +D718 +D734 +D750 +D76C +D788 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/hst/LVT.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/hst/LVT.pl new file mode 100644 index 0000000..bbb29aa --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/hst/LVT.pl @@ -0,0 +1,412 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# HangulSyllableType category 'LVT_Syllable' +# +return <<'END'; +AC01 AC1B +AC1D AC37 +AC39 AC53 +AC55 AC6F +AC71 AC8B +AC8D ACA7 +ACA9 ACC3 +ACC5 ACDF +ACE1 ACFB +ACFD AD17 +AD19 AD33 +AD35 AD4F +AD51 AD6B +AD6D AD87 +AD89 ADA3 +ADA5 ADBF +ADC1 ADDB +ADDD ADF7 +ADF9 AE13 +AE15 AE2F +AE31 AE4B +AE4D AE67 +AE69 AE83 +AE85 AE9F +AEA1 AEBB +AEBD AED7 +AED9 AEF3 +AEF5 AF0F +AF11 AF2B +AF2D AF47 +AF49 AF63 +AF65 AF7F +AF81 AF9B +AF9D AFB7 +AFB9 AFD3 +AFD5 AFEF +AFF1 B00B +B00D B027 +B029 B043 +B045 B05F +B061 B07B +B07D B097 +B099 B0B3 +B0B5 B0CF +B0D1 B0EB +B0ED B107 +B109 B123 +B125 B13F +B141 B15B +B15D B177 +B179 B193 +B195 B1AF +B1B1 B1CB +B1CD B1E7 +B1E9 B203 +B205 B21F +B221 B23B +B23D B257 +B259 B273 +B275 B28F +B291 B2AB +B2AD B2C7 +B2C9 B2E3 +B2E5 B2FF +B301 B31B +B31D B337 +B339 B353 +B355 B36F +B371 B38B +B38D B3A7 +B3A9 B3C3 +B3C5 B3DF +B3E1 B3FB +B3FD B417 +B419 B433 +B435 B44F +B451 B46B +B46D B487 +B489 B4A3 +B4A5 B4BF +B4C1 B4DB +B4DD B4F7 +B4F9 B513 +B515 B52F +B531 B54B +B54D B567 +B569 B583 +B585 B59F +B5A1 B5BB +B5BD B5D7 +B5D9 B5F3 +B5F5 B60F +B611 B62B +B62D B647 +B649 B663 +B665 B67F +B681 B69B +B69D B6B7 +B6B9 B6D3 +B6D5 B6EF +B6F1 B70B +B70D B727 +B729 B743 +B745 B75F +B761 B77B +B77D B797 +B799 B7B3 +B7B5 B7CF +B7D1 B7EB +B7ED B807 +B809 B823 +B825 B83F +B841 B85B +B85D B877 +B879 B893 +B895 B8AF +B8B1 B8CB +B8CD B8E7 +B8E9 B903 +B905 B91F +B921 B93B +B93D B957 +B959 B973 +B975 B98F +B991 B9AB +B9AD B9C7 +B9C9 B9E3 +B9E5 B9FF +BA01 BA1B +BA1D BA37 +BA39 BA53 +BA55 BA6F +BA71 BA8B +BA8D BAA7 +BAA9 BAC3 +BAC5 BADF +BAE1 BAFB +BAFD BB17 +BB19 BB33 +BB35 BB4F +BB51 BB6B +BB6D BB87 +BB89 BBA3 +BBA5 BBBF +BBC1 BBDB +BBDD BBF7 +BBF9 BC13 +BC15 BC2F +BC31 BC4B +BC4D BC67 +BC69 BC83 +BC85 BC9F +BCA1 BCBB +BCBD BCD7 +BCD9 BCF3 +BCF5 BD0F +BD11 BD2B +BD2D BD47 +BD49 BD63 +BD65 BD7F +BD81 BD9B +BD9D BDB7 +BDB9 BDD3 +BDD5 BDEF +BDF1 BE0B +BE0D BE27 +BE29 BE43 +BE45 BE5F +BE61 BE7B +BE7D BE97 +BE99 BEB3 +BEB5 BECF +BED1 BEEB +BEED BF07 +BF09 BF23 +BF25 BF3F +BF41 BF5B +BF5D BF77 +BF79 BF93 +BF95 BFAF +BFB1 BFCB +BFCD BFE7 +BFE9 C003 +C005 C01F +C021 C03B +C03D C057 +C059 C073 +C075 C08F +C091 C0AB +C0AD C0C7 +C0C9 C0E3 +C0E5 C0FF +C101 C11B +C11D C137 +C139 C153 +C155 C16F +C171 C18B +C18D C1A7 +C1A9 C1C3 +C1C5 C1DF +C1E1 C1FB +C1FD C217 +C219 C233 +C235 C24F +C251 C26B +C26D C287 +C289 C2A3 +C2A5 C2BF +C2C1 C2DB +C2DD C2F7 +C2F9 C313 +C315 C32F +C331 C34B +C34D C367 +C369 C383 +C385 C39F +C3A1 C3BB +C3BD C3D7 +C3D9 C3F3 +C3F5 C40F +C411 C42B +C42D C447 +C449 C463 +C465 C47F +C481 C49B +C49D C4B7 +C4B9 C4D3 +C4D5 C4EF +C4F1 C50B +C50D C527 +C529 C543 +C545 C55F +C561 C57B +C57D C597 +C599 C5B3 +C5B5 C5CF +C5D1 C5EB +C5ED C607 +C609 C623 +C625 C63F +C641 C65B +C65D C677 +C679 C693 +C695 C6AF +C6B1 C6CB +C6CD C6E7 +C6E9 C703 +C705 C71F +C721 C73B +C73D C757 +C759 C773 +C775 C78F +C791 C7AB +C7AD C7C7 +C7C9 C7E3 +C7E5 C7FF +C801 C81B +C81D C837 +C839 C853 +C855 C86F +C871 C88B +C88D C8A7 +C8A9 C8C3 +C8C5 C8DF +C8E1 C8FB +C8FD C917 +C919 C933 +C935 C94F +C951 C96B +C96D C987 +C989 C9A3 +C9A5 C9BF +C9C1 C9DB +C9DD C9F7 +C9F9 CA13 +CA15 CA2F +CA31 CA4B +CA4D CA67 +CA69 CA83 +CA85 CA9F +CAA1 CABB +CABD CAD7 +CAD9 CAF3 +CAF5 CB0F +CB11 CB2B +CB2D CB47 +CB49 CB63 +CB65 CB7F +CB81 CB9B +CB9D CBB7 +CBB9 CBD3 +CBD5 CBEF +CBF1 CC0B +CC0D CC27 +CC29 CC43 +CC45 CC5F +CC61 CC7B +CC7D CC97 +CC99 CCB3 +CCB5 CCCF +CCD1 CCEB +CCED CD07 +CD09 CD23 +CD25 CD3F +CD41 CD5B +CD5D CD77 +CD79 CD93 +CD95 CDAF +CDB1 CDCB +CDCD CDE7 +CDE9 CE03 +CE05 CE1F +CE21 CE3B +CE3D CE57 +CE59 CE73 +CE75 CE8F +CE91 CEAB +CEAD CEC7 +CEC9 CEE3 +CEE5 CEFF +CF01 CF1B +CF1D CF37 +CF39 CF53 +CF55 CF6F +CF71 CF8B +CF8D CFA7 +CFA9 CFC3 +CFC5 CFDF +CFE1 CFFB +CFFD D017 +D019 D033 +D035 D04F +D051 D06B +D06D D087 +D089 D0A3 +D0A5 D0BF +D0C1 D0DB +D0DD D0F7 +D0F9 D113 +D115 D12F +D131 D14B +D14D D167 +D169 D183 +D185 D19F +D1A1 D1BB +D1BD D1D7 +D1D9 D1F3 +D1F5 D20F +D211 D22B +D22D D247 +D249 D263 +D265 D27F +D281 D29B +D29D D2B7 +D2B9 D2D3 +D2D5 D2EF +D2F1 D30B +D30D D327 +D329 D343 +D345 D35F +D361 D37B +D37D D397 +D399 D3B3 +D3B5 D3CF +D3D1 D3EB +D3ED D407 +D409 D423 +D425 D43F +D441 D45B +D45D D477 +D479 D493 +D495 D4AF +D4B1 D4CB +D4CD D4E7 +D4E9 D503 +D505 D51F +D521 D53B +D53D D557 +D559 D573 +D575 D58F +D591 D5AB +D5AD D5C7 +D5C9 D5E3 +D5E5 D5FF +D601 D61B +D61D D637 +D639 D653 +D655 D66F +D671 D68B +D68D D6A7 +D6A9 D6C3 +D6C5 D6DF +D6E1 D6FB +D6FD D717 +D719 D733 +D735 D74F +D751 D76B +D76D D787 +D789 D7A3 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/hst/T.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/hst/T.pl new file mode 100644 index 0000000..a047c0c --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/hst/T.pl @@ -0,0 +1,14 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# HangulSyllableType category 'Trailing_Jamo' +# +return <<'END'; +11A8 11F9 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/hst/V.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/hst/V.pl new file mode 100644 index 0000000..1b6f81a --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/hst/V.pl @@ -0,0 +1,14 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# HangulSyllableType category 'Vowel_Jamo' +# +return <<'END'; +1160 11A2 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/jt/C.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/jt/C.pl new file mode 100644 index 0000000..5315be1 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/jt/C.pl @@ -0,0 +1,16 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# JoiningType category 'Join_Causing' +# +return <<'END'; +0640 +07FA +200D +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/jt/D.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/jt/D.pl new file mode 100644 index 0000000..633ff24 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/jt/D.pl @@ -0,0 +1,41 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# JoiningType category 'Dual_Joining' +# +return <<'END'; +0626 +0628 +062A 062E +0633 063F +0641 0647 +0649 064A +066E 066F +0678 0687 +069A 06BF +06C1 06C2 +06CC +06CE +06D0 06D1 +06FA 06FC +06FF +0712 0714 +071A 071D +071F 0727 +0729 +072B +072D 072E +074E 0758 +075C 076A +076D 0770 +0772 +0775 0777 +077A 077F +07CA 07EA +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/jt/R.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/jt/R.pl new file mode 100644 index 0000000..71df313 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/jt/R.pl @@ -0,0 +1,41 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# JoiningType category 'Right_Joining' +# +return <<'END'; +0622 0625 +0627 +0629 +062F 0632 +0648 +0671 0673 +0675 0677 +0688 0699 +06C0 +06C3 06CB +06CD +06CF +06D2 06D3 +06D5 +06EE 06EF +0710 +0715 0719 +071E +0728 +072A +072C +072F +074D +0759 075B +076B 076C +0771 +0773 0774 +0778 0779 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/jt/U.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/jt/U.pl new file mode 100644 index 0000000..b482d59 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/jt/U.pl @@ -0,0 +1,20 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# JoiningType category 'Non_Joining' +# +return <<'END'; +0600 0603 +0608 +060B +0621 +0674 +06DD +200C +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/AI.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/AI.pl new file mode 100644 index 0000000..60acb3a --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/AI.pl @@ -0,0 +1,104 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Linebreak category 'Ambiguous' +# +return <<'END'; +00A7 00A8 +00AA +00B2 00B3 +00B6 00BA +00BC 00BE +00D7 +00F7 +02C7 +02C9 02CB +02CD +02D0 +02D8 02DB +02DD +2015 2016 +2020 2021 +203B +2074 +207F +2081 2084 +2105 +2113 +2121 2122 +212B +2154 2155 +215B +215E +2160 216B +2170 2179 +2190 2199 +21D2 +21D4 +2200 +2202 2203 +2207 2208 +220B +220F +2211 +2215 +221A +221D 2220 +2223 +2225 +2227 222C +222E +2234 2237 +223C 223D +2248 +224C +2252 +2260 2261 +2264 2267 +226A 226B +226E 226F +2282 2283 +2286 2287 +2295 +2299 +22A5 +22BF +2312 +2460 24FE +2500 254B +2550 2574 +2580 258F +2592 2595 +25A0 25A1 +25A3 25A9 +25B2 25B3 +25B6 25B7 +25BC 25BD +25C0 25C1 +25C6 25C8 +25CB +25CE 25D1 +25E2 25E5 +25EF +2605 2606 +2609 +260E 260F +2614 2617 +261C +261E +2640 +2642 +2660 2661 +2663 2665 +2667 266A +266C 266D +266F +2776 2793 +FFFD +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/AL.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/AL.pl new file mode 100644 index 0000000..345e48f --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/AL.pl @@ -0,0 +1,501 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Linebreak category 'Alphabetic' +# +return <<'END'; +0023 +0026 +002A +003C 003E +0040 005A +005E 007A +007E +00A6 +00A9 +00AC +00AE 00AF +00B5 +00C0 00D6 +00D8 00F6 +00F8 02C6 +02CE 02CF +02D1 02D7 +02DC +02DE +02E0 02FF +0370 0377 +037A 037D +0384 038A +038C +038E 03A1 +03A3 0482 +048A 0523 +0531 0556 +0559 055F +0561 0587 +05C0 +05C3 +05D0 05EA +05F0 05F4 +0600 0603 +0606 0608 +060E 060F +0621 064A +066D 066F +0671 06D3 +06D5 +06DD +06E5 06E6 +06E9 +06EE 06EF +06FA 070D +070F 0710 +0712 072F +074D 07A5 +07B1 +07CA 07EA +07F4 07F7 +07FA +0904 0939 +093D +0950 +0958 0961 +0970 0972 +097B 097F +0985 098C +098F 0990 +0993 09A8 +09AA 09B0 +09B2 +09B6 09B9 +09BD +09CE +09DC 09DD +09DF 09E1 +09F0 09F1 +09F4 09FA +0A05 0A0A +0A0F 0A10 +0A13 0A28 +0A2A 0A30 +0A32 0A33 +0A35 0A36 +0A38 0A39 +0A59 0A5C +0A5E +0A72 0A74 +0A85 0A8D +0A8F 0A91 +0A93 0AA8 +0AAA 0AB0 +0AB2 0AB3 +0AB5 0AB9 +0ABD +0AD0 +0AE0 0AE1 +0B05 0B0C +0B0F 0B10 +0B13 0B28 +0B2A 0B30 +0B32 0B33 +0B35 0B39 +0B3D +0B5C 0B5D +0B5F 0B61 +0B70 0B71 +0B83 +0B85 0B8A +0B8E 0B90 +0B92 0B95 +0B99 0B9A +0B9C +0B9E 0B9F +0BA3 0BA4 +0BA8 0BAA +0BAE 0BB9 +0BD0 +0BF0 0BF8 +0BFA +0C05 0C0C +0C0E 0C10 +0C12 0C28 +0C2A 0C33 +0C35 0C39 +0C3D +0C58 0C59 +0C60 0C61 +0C78 0C7F +0C85 0C8C +0C8E 0C90 +0C92 0CA8 +0CAA 0CB3 +0CB5 0CB9 +0CBD +0CDE +0CE0 0CE1 +0CF1 0CF2 +0D05 0D0C +0D0E 0D10 +0D12 0D28 +0D2A 0D39 +0D3D +0D60 0D61 +0D70 0D75 +0D7A 0D7F +0D85 0D96 +0D9A 0DB1 +0DB3 0DBB +0DBD +0DC0 0DC6 +0DF4 +0E4F +0F00 +0F05 +0F13 +0F15 0F17 +0F1A 0F1F +0F2A 0F33 +0F36 +0F38 +0F40 0F47 +0F49 0F6C +0F88 0F8B +0FC0 0FC5 +0FC7 0FCC +0FCE 0FCF +0FD4 +104C 104F +10A0 10C5 +10D0 10FC +1200 1248 +124A 124D +1250 1256 +1258 +125A 125D +1260 1288 +128A 128D +1290 12B0 +12B2 12B5 +12B8 12BE +12C0 +12C2 12C5 +12C8 12D6 +12D8 1310 +1312 1315 +1318 135A +1360 +1362 137C +1380 1399 +13A0 13F4 +1401 1676 +1681 169A +16A0 16EA +16EE 16F0 +1700 170C +170E 1711 +1720 1731 +1740 1751 +1760 176C +176E 1770 +17D9 +17F0 17F9 +1800 1801 +1807 +180A +1820 1877 +1880 18A8 +18AA +1900 191C +1940 +19E0 1A16 +1A1E 1A1F +1B05 1B33 +1B45 1B4B +1B61 1B6A +1B74 1B7C +1B83 1BA0 +1BAE 1BAF +1C00 1C23 +1C4D 1C4F +1C5A 1C7D +1D00 1DBF +1E00 1F15 +1F18 1F1D +1F20 1F45 +1F48 1F4D +1F50 1F57 +1F59 +1F5B +1F5D +1F5F 1F7D +1F80 1FB4 +1FB6 1FC4 +1FC6 1FD3 +1FD6 1FDB +1FDD 1FEF +1FF2 1FF4 +1FF6 1FFC +1FFE +2017 +2022 2023 +2038 +203E 2043 +204A 2055 +2057 +205C +2061 2064 +2070 2071 +2075 207C +2080 +2085 208C +2090 2094 +2100 2102 +2104 +2106 2108 +210A 2112 +2114 2115 +2117 2120 +2123 212A +212C 214F +2153 +2156 215A +215C 215D +215F +216C 216F +217A 2188 +219A 21D1 +21D3 +21D5 21FF +2201 +2204 2206 +2209 220A +220C 220E +2210 +2214 +2216 2219 +221B 221C +2221 2222 +2224 +2226 +222D +222F 2233 +2238 223B +223E 2247 +2249 224B +224D 2251 +2253 225F +2262 2263 +2268 2269 +226C 226D +2270 2281 +2284 2285 +2288 2294 +2296 2298 +229A 22A4 +22A6 22BE +22C0 2311 +2313 2328 +232B 23E7 +2400 2426 +2440 244A +24FF +254C 254F +2575 257F +2590 2591 +2596 259F +25A2 +25AA 25B1 +25B4 25B5 +25B8 25BB +25BE 25BF +25C2 25C5 +25C9 25CA +25CC 25CD +25D2 25E1 +25E6 25EE +25F0 2604 +2607 2608 +260A 260D +2610 2613 +2618 261B +261D +261F 263F +2641 +2643 265F +2662 +2666 +266B +266E +2670 269D +26A0 26BC +26C0 26C3 +2701 2704 +2706 2709 +270C 2727 +2729 274B +274D +274F 2752 +2756 +2758 275A +2761 +2764 2767 +2794 +2798 27AF +27B1 27BE +27C0 27C4 +27C7 27CA +27CC +27D0 27E5 +27F0 2982 +2999 29D7 +29DC 29FB +29FE 2B4C +2B50 2B54 +2C00 2C2E +2C30 2C5E +2C60 2C6F +2C71 2C7D +2C80 2CEA +2CFD +2D00 2D25 +2D30 2D65 +2D6F +2D80 2D96 +2DA0 2DA6 +2DA8 2DAE +2DB0 2DB6 +2DB8 2DBE +2DC0 2DC6 +2DC8 2DCE +2DD0 2DD6 +2DD8 2DDE +2E16 +2E1A 2E1B +2E1E 2E1F +2E2F +4DC0 4DFF +A500 A60C +A610 A61F +A62A A62B +A640 A65F +A662 A66E +A673 +A67E A697 +A700 A78C +A7FB A801 +A803 A805 +A807 A80A +A80C A822 +A828 A82B +A840 A873 +A882 A8B3 +A90A A925 +A930 A946 +A95F +AA00 AA28 +AA40 AA42 +AA44 AA4B +AA5C +FB00 FB06 +FB13 FB17 +FB1D +FB1F FB36 +FB38 FB3C +FB3E +FB40 FB41 +FB43 FB44 +FB46 FBB1 +FBD3 FD3D +FD50 FD8F +FD92 FDC7 +FDF0 FDFB +FDFD +FE70 FE74 +FE76 FEFC +FF66 +FF71 FF9D +FFA0 FFBE +FFC2 FFC7 +FFCA FFCF +FFD2 FFD7 +FFDA FFDC +FFE8 FFEE +10000 1000B +1000D 10026 +10028 1003A +1003C 1003D +1003F 1004D +10050 1005D +10080 100FA +10107 10133 +10137 1018A +10190 1019B +101D0 101FC +10280 1029C +102A0 102D0 +10300 1031E +10320 10323 +10330 1034A +10380 1039D +103A0 103C3 +103C8 103CF +103D1 103D5 +10400 1049D +10800 10805 +10808 +1080A 10835 +10837 10838 +1083C +1083F +10900 10919 +10920 10939 +1093F +10A00 +10A10 10A13 +10A15 10A17 +10A19 10A33 +10A40 10A47 +10A58 +12000 1236E +12400 12462 +1D000 1D0F5 +1D100 1D126 +1D129 1D164 +1D16A 1D16C +1D183 1D184 +1D18C 1D1A9 +1D1AE 1D1DD +1D200 1D241 +1D245 +1D300 1D356 +1D360 1D371 +1D400 1D454 +1D456 1D49C +1D49E 1D49F +1D4A2 +1D4A5 1D4A6 +1D4A9 1D4AC +1D4AE 1D4B9 +1D4BB +1D4BD 1D4C3 +1D4C5 1D505 +1D507 1D50A +1D50D 1D514 +1D516 1D51C +1D51E 1D539 +1D53B 1D53E +1D540 1D544 +1D546 +1D54A 1D550 +1D552 1D6A5 +1D6A8 1D7CB +1F000 1F02B +1F030 1F093 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/B2.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/B2.pl new file mode 100644 index 0000000..3b7c11e --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/B2.pl @@ -0,0 +1,14 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Linebreak category 'Break_Both' +# +return <<'END'; +2014 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/BA.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/BA.pl new file mode 100644 index 0000000..496b617 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/BA.pl @@ -0,0 +1,64 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Linebreak category 'Break_After' +# +return <<'END'; +0009 +007C +00AD +058A +05BE +0964 0965 +0E5A 0E5B +0F0B +0F34 +0F7F +0F85 +0FBE 0FBF +0FD2 +104A 104B +1361 +1680 +16EB 16ED +1735 1736 +17D4 17D5 +17D8 +17DA +1804 1805 +1B5A 1B60 +1C3B 1C3F +1C7E 1C7F +2000 2006 +2008 200A +2010 +2012 2013 +2027 +2056 +2058 205B +205D 205F +2CFA 2CFC +2CFF +2E0E 2E15 +2E17 +2E19 +2E2A 2E2D +2E30 +A60D +A60F +A8CE A8CF +A92E A92F +AA5D AA5F +10100 10102 +1039F +103D0 +1091F +10A50 10A57 +12470 12473 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/BB.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/BB.pl new file mode 100644 index 0000000..b658d32 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/BB.pl @@ -0,0 +1,25 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Linebreak category 'Break_Before' +# +return <<'END'; +00B4 +02C8 +02CC +02DF +0F01 0F04 +0F06 0F07 +0F09 0F0A +0FD0 0FD1 +0FD3 +1806 +1FFD +A874 A875 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/BK.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/BK.pl new file mode 100644 index 0000000..fdc6302 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/BK.pl @@ -0,0 +1,15 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Linebreak category 'Mandatory_Break' +# +return <<'END'; +000B 000C +2028 2029 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/CB.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/CB.pl new file mode 100644 index 0000000..d23064b --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/CB.pl @@ -0,0 +1,14 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Linebreak category 'Contingent_Break' +# +return <<'END'; +FFFC +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/CL.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/CL.pl new file mode 100644 index 0000000..fb9aa0b --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/CL.pl @@ -0,0 +1,89 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Linebreak category 'Close_Punctuation' +# +return <<'END'; +0029 +005D +007D +0F3B +0F3D +169C +2046 +207E +208E +232A +2769 +276B +276D +276F +2771 +2773 +2775 +27C6 +27E7 +27E9 +27EB +27ED +27EF +2984 +2986 +2988 +298A +298C +298E +2990 +2992 +2994 +2996 +2998 +29D9 +29DB +29FD +2E23 +2E25 +2E27 +2E29 +3001 3002 +3009 +300B +300D +300F +3011 +3015 +3017 +3019 +301B +301E 301F +FD3F +FE11 FE12 +FE18 +FE36 +FE38 +FE3A +FE3C +FE3E +FE40 +FE42 +FE44 +FE48 +FE50 +FE52 +FE5A +FE5C +FE5E +FF09 +FF0C +FF0E +FF3D +FF5D +FF60 FF61 +FF63 FF64 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/CM.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/CM.pl new file mode 100644 index 0000000..f8bed22 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/CM.pl @@ -0,0 +1,167 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Linebreak category 'Combining_Mark' +# +return <<'END'; +0000 0008 +000E 001F +007F 0084 +0086 009F +0300 034E +0350 035B +0363 036F +0483 0489 +0591 05BD +05BF +05C1 05C2 +05C4 05C5 +05C7 +0610 061A +064B 065E +0670 +06D6 06DC +06DE 06E4 +06E7 06E8 +06EA 06ED +0711 +0730 074A +07A6 07B0 +07EB 07F3 +0901 0903 +093C +093E 094D +0951 0954 +0962 0963 +0981 0983 +09BC +09BE 09C4 +09C7 09C8 +09CB 09CD +09D7 +09E2 09E3 +0A01 0A03 +0A3C +0A3E 0A42 +0A47 0A48 +0A4B 0A4D +0A51 +0A70 0A71 +0A75 +0A81 0A83 +0ABC +0ABE 0AC5 +0AC7 0AC9 +0ACB 0ACD +0AE2 0AE3 +0B01 0B03 +0B3C +0B3E 0B44 +0B47 0B48 +0B4B 0B4D +0B56 0B57 +0B62 0B63 +0B82 +0BBE 0BC2 +0BC6 0BC8 +0BCA 0BCD +0BD7 +0C01 0C03 +0C3E 0C44 +0C46 0C48 +0C4A 0C4D +0C55 0C56 +0C62 0C63 +0C82 0C83 +0CBC +0CBE 0CC4 +0CC6 0CC8 +0CCA 0CCD +0CD5 0CD6 +0CE2 0CE3 +0D02 0D03 +0D3E 0D44 +0D46 0D48 +0D4A 0D4D +0D57 +0D62 0D63 +0D82 0D83 +0DCA +0DCF 0DD4 +0DD6 +0DD8 0DDF +0DF2 0DF3 +0F18 0F19 +0F35 +0F37 +0F39 +0F3E 0F3F +0F71 0F7E +0F80 0F84 +0F86 0F87 +0F90 0F97 +0F99 0FBC +0FC6 +135F +1712 1714 +1732 1734 +1752 1753 +1772 1773 +180B 180D +18A9 +1920 192B +1930 193B +1A17 1A1B +1B00 1B04 +1B34 1B44 +1B6B 1B73 +1B80 1B82 +1BA1 1BAA +1C24 1C37 +1DC0 1DE6 +1DFE 1DFF +200C 200F +202A 202E +206A 206F +20D0 20F0 +2DE0 2DFF +302A 302F +3099 309A +A66F A672 +A67C A67D +A802 +A806 +A80B +A823 A827 +A880 A881 +A8B4 A8C4 +A926 A92D +A947 A953 +AA29 AA36 +AA43 +AA4C AA4D +FB1E +FE00 FE0F +FE20 FE26 +FFF9 FFFB +101FD +10A01 10A03 +10A05 10A06 +10A0C 10A0F +10A38 10A3A +10A3F +1D165 1D169 +1D16D 1D182 +1D185 1D18B +1D1AA 1D1AD +1D242 1D244 +E0001 +E0020 E007F +E0100 E01EF +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/CR.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/CR.pl new file mode 100644 index 0000000..2c87105 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/CR.pl @@ -0,0 +1,14 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Linebreak category 'Carriage_Return' +# +return <<'END'; +000D +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/EX.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/EX.pl new file mode 100644 index 0000000..657b5c4 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/EX.pl @@ -0,0 +1,35 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Linebreak category 'Exclamation' +# +return <<'END'; +0021 +003F +05C6 +061B +061E 061F +06D4 +07F9 +0F0D 0F11 +0F14 +1802 1803 +1808 1809 +1944 1945 +2762 2763 +2CF9 +2CFE +2E2E +A60E +A876 A877 +FE15 FE16 +FE56 FE57 +FF01 +FF1F +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/GL.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/GL.pl new file mode 100644 index 0000000..bafa66a --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/GL.pl @@ -0,0 +1,23 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Linebreak category 'Glue' +# +return <<'END'; +00A0 +034F +035C 0362 +0F08 +0F0C +0F12 +180E +2007 +2011 +202F +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/H2.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/H2.pl new file mode 100644 index 0000000..2482664 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/H2.pl @@ -0,0 +1,412 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Linebreak category 'H2' +# +return <<'END'; +AC00 +AC1C +AC38 +AC54 +AC70 +AC8C +ACA8 +ACC4 +ACE0 +ACFC +AD18 +AD34 +AD50 +AD6C +AD88 +ADA4 +ADC0 +ADDC +ADF8 +AE14 +AE30 +AE4C +AE68 +AE84 +AEA0 +AEBC +AED8 +AEF4 +AF10 +AF2C +AF48 +AF64 +AF80 +AF9C +AFB8 +AFD4 +AFF0 +B00C +B028 +B044 +B060 +B07C +B098 +B0B4 +B0D0 +B0EC +B108 +B124 +B140 +B15C +B178 +B194 +B1B0 +B1CC +B1E8 +B204 +B220 +B23C +B258 +B274 +B290 +B2AC +B2C8 +B2E4 +B300 +B31C +B338 +B354 +B370 +B38C +B3A8 +B3C4 +B3E0 +B3FC +B418 +B434 +B450 +B46C +B488 +B4A4 +B4C0 +B4DC +B4F8 +B514 +B530 +B54C +B568 +B584 +B5A0 +B5BC +B5D8 +B5F4 +B610 +B62C +B648 +B664 +B680 +B69C +B6B8 +B6D4 +B6F0 +B70C +B728 +B744 +B760 +B77C +B798 +B7B4 +B7D0 +B7EC +B808 +B824 +B840 +B85C +B878 +B894 +B8B0 +B8CC +B8E8 +B904 +B920 +B93C +B958 +B974 +B990 +B9AC +B9C8 +B9E4 +BA00 +BA1C +BA38 +BA54 +BA70 +BA8C +BAA8 +BAC4 +BAE0 +BAFC +BB18 +BB34 +BB50 +BB6C +BB88 +BBA4 +BBC0 +BBDC +BBF8 +BC14 +BC30 +BC4C +BC68 +BC84 +BCA0 +BCBC +BCD8 +BCF4 +BD10 +BD2C +BD48 +BD64 +BD80 +BD9C +BDB8 +BDD4 +BDF0 +BE0C +BE28 +BE44 +BE60 +BE7C +BE98 +BEB4 +BED0 +BEEC +BF08 +BF24 +BF40 +BF5C +BF78 +BF94 +BFB0 +BFCC +BFE8 +C004 +C020 +C03C +C058 +C074 +C090 +C0AC +C0C8 +C0E4 +C100 +C11C +C138 +C154 +C170 +C18C +C1A8 +C1C4 +C1E0 +C1FC +C218 +C234 +C250 +C26C +C288 +C2A4 +C2C0 +C2DC +C2F8 +C314 +C330 +C34C +C368 +C384 +C3A0 +C3BC +C3D8 +C3F4 +C410 +C42C +C448 +C464 +C480 +C49C +C4B8 +C4D4 +C4F0 +C50C +C528 +C544 +C560 +C57C +C598 +C5B4 +C5D0 +C5EC +C608 +C624 +C640 +C65C +C678 +C694 +C6B0 +C6CC +C6E8 +C704 +C720 +C73C +C758 +C774 +C790 +C7AC +C7C8 +C7E4 +C800 +C81C +C838 +C854 +C870 +C88C +C8A8 +C8C4 +C8E0 +C8FC +C918 +C934 +C950 +C96C +C988 +C9A4 +C9C0 +C9DC +C9F8 +CA14 +CA30 +CA4C +CA68 +CA84 +CAA0 +CABC +CAD8 +CAF4 +CB10 +CB2C +CB48 +CB64 +CB80 +CB9C +CBB8 +CBD4 +CBF0 +CC0C +CC28 +CC44 +CC60 +CC7C +CC98 +CCB4 +CCD0 +CCEC +CD08 +CD24 +CD40 +CD5C +CD78 +CD94 +CDB0 +CDCC +CDE8 +CE04 +CE20 +CE3C +CE58 +CE74 +CE90 +CEAC +CEC8 +CEE4 +CF00 +CF1C +CF38 +CF54 +CF70 +CF8C +CFA8 +CFC4 +CFE0 +CFFC +D018 +D034 +D050 +D06C +D088 +D0A4 +D0C0 +D0DC +D0F8 +D114 +D130 +D14C +D168 +D184 +D1A0 +D1BC +D1D8 +D1F4 +D210 +D22C +D248 +D264 +D280 +D29C +D2B8 +D2D4 +D2F0 +D30C +D328 +D344 +D360 +D37C +D398 +D3B4 +D3D0 +D3EC +D408 +D424 +D440 +D45C +D478 +D494 +D4B0 +D4CC +D4E8 +D504 +D520 +D53C +D558 +D574 +D590 +D5AC +D5C8 +D5E4 +D600 +D61C +D638 +D654 +D670 +D68C +D6A8 +D6C4 +D6E0 +D6FC +D718 +D734 +D750 +D76C +D788 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/H3.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/H3.pl new file mode 100644 index 0000000..ae46530 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/H3.pl @@ -0,0 +1,412 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Linebreak category 'H3' +# +return <<'END'; +AC01 AC1B +AC1D AC37 +AC39 AC53 +AC55 AC6F +AC71 AC8B +AC8D ACA7 +ACA9 ACC3 +ACC5 ACDF +ACE1 ACFB +ACFD AD17 +AD19 AD33 +AD35 AD4F +AD51 AD6B +AD6D AD87 +AD89 ADA3 +ADA5 ADBF +ADC1 ADDB +ADDD ADF7 +ADF9 AE13 +AE15 AE2F +AE31 AE4B +AE4D AE67 +AE69 AE83 +AE85 AE9F +AEA1 AEBB +AEBD AED7 +AED9 AEF3 +AEF5 AF0F +AF11 AF2B +AF2D AF47 +AF49 AF63 +AF65 AF7F +AF81 AF9B +AF9D AFB7 +AFB9 AFD3 +AFD5 AFEF +AFF1 B00B +B00D B027 +B029 B043 +B045 B05F +B061 B07B +B07D B097 +B099 B0B3 +B0B5 B0CF +B0D1 B0EB +B0ED B107 +B109 B123 +B125 B13F +B141 B15B +B15D B177 +B179 B193 +B195 B1AF +B1B1 B1CB +B1CD B1E7 +B1E9 B203 +B205 B21F +B221 B23B +B23D B257 +B259 B273 +B275 B28F +B291 B2AB +B2AD B2C7 +B2C9 B2E3 +B2E5 B2FF +B301 B31B +B31D B337 +B339 B353 +B355 B36F +B371 B38B +B38D B3A7 +B3A9 B3C3 +B3C5 B3DF +B3E1 B3FB +B3FD B417 +B419 B433 +B435 B44F +B451 B46B +B46D B487 +B489 B4A3 +B4A5 B4BF +B4C1 B4DB +B4DD B4F7 +B4F9 B513 +B515 B52F +B531 B54B +B54D B567 +B569 B583 +B585 B59F +B5A1 B5BB +B5BD B5D7 +B5D9 B5F3 +B5F5 B60F +B611 B62B +B62D B647 +B649 B663 +B665 B67F +B681 B69B +B69D B6B7 +B6B9 B6D3 +B6D5 B6EF +B6F1 B70B +B70D B727 +B729 B743 +B745 B75F +B761 B77B +B77D B797 +B799 B7B3 +B7B5 B7CF +B7D1 B7EB +B7ED B807 +B809 B823 +B825 B83F +B841 B85B +B85D B877 +B879 B893 +B895 B8AF +B8B1 B8CB +B8CD B8E7 +B8E9 B903 +B905 B91F +B921 B93B +B93D B957 +B959 B973 +B975 B98F +B991 B9AB +B9AD B9C7 +B9C9 B9E3 +B9E5 B9FF +BA01 BA1B +BA1D BA37 +BA39 BA53 +BA55 BA6F +BA71 BA8B +BA8D BAA7 +BAA9 BAC3 +BAC5 BADF +BAE1 BAFB +BAFD BB17 +BB19 BB33 +BB35 BB4F +BB51 BB6B +BB6D BB87 +BB89 BBA3 +BBA5 BBBF +BBC1 BBDB +BBDD BBF7 +BBF9 BC13 +BC15 BC2F +BC31 BC4B +BC4D BC67 +BC69 BC83 +BC85 BC9F +BCA1 BCBB +BCBD BCD7 +BCD9 BCF3 +BCF5 BD0F +BD11 BD2B +BD2D BD47 +BD49 BD63 +BD65 BD7F +BD81 BD9B +BD9D BDB7 +BDB9 BDD3 +BDD5 BDEF +BDF1 BE0B +BE0D BE27 +BE29 BE43 +BE45 BE5F +BE61 BE7B +BE7D BE97 +BE99 BEB3 +BEB5 BECF +BED1 BEEB +BEED BF07 +BF09 BF23 +BF25 BF3F +BF41 BF5B +BF5D BF77 +BF79 BF93 +BF95 BFAF +BFB1 BFCB +BFCD BFE7 +BFE9 C003 +C005 C01F +C021 C03B +C03D C057 +C059 C073 +C075 C08F +C091 C0AB +C0AD C0C7 +C0C9 C0E3 +C0E5 C0FF +C101 C11B +C11D C137 +C139 C153 +C155 C16F +C171 C18B +C18D C1A7 +C1A9 C1C3 +C1C5 C1DF +C1E1 C1FB +C1FD C217 +C219 C233 +C235 C24F +C251 C26B +C26D C287 +C289 C2A3 +C2A5 C2BF +C2C1 C2DB +C2DD C2F7 +C2F9 C313 +C315 C32F +C331 C34B +C34D C367 +C369 C383 +C385 C39F +C3A1 C3BB +C3BD C3D7 +C3D9 C3F3 +C3F5 C40F +C411 C42B +C42D C447 +C449 C463 +C465 C47F +C481 C49B +C49D C4B7 +C4B9 C4D3 +C4D5 C4EF +C4F1 C50B +C50D C527 +C529 C543 +C545 C55F +C561 C57B +C57D C597 +C599 C5B3 +C5B5 C5CF +C5D1 C5EB +C5ED C607 +C609 C623 +C625 C63F +C641 C65B +C65D C677 +C679 C693 +C695 C6AF +C6B1 C6CB +C6CD C6E7 +C6E9 C703 +C705 C71F +C721 C73B +C73D C757 +C759 C773 +C775 C78F +C791 C7AB +C7AD C7C7 +C7C9 C7E3 +C7E5 C7FF +C801 C81B +C81D C837 +C839 C853 +C855 C86F +C871 C88B +C88D C8A7 +C8A9 C8C3 +C8C5 C8DF +C8E1 C8FB +C8FD C917 +C919 C933 +C935 C94F +C951 C96B +C96D C987 +C989 C9A3 +C9A5 C9BF +C9C1 C9DB +C9DD C9F7 +C9F9 CA13 +CA15 CA2F +CA31 CA4B +CA4D CA67 +CA69 CA83 +CA85 CA9F +CAA1 CABB +CABD CAD7 +CAD9 CAF3 +CAF5 CB0F +CB11 CB2B +CB2D CB47 +CB49 CB63 +CB65 CB7F +CB81 CB9B +CB9D CBB7 +CBB9 CBD3 +CBD5 CBEF +CBF1 CC0B +CC0D CC27 +CC29 CC43 +CC45 CC5F +CC61 CC7B +CC7D CC97 +CC99 CCB3 +CCB5 CCCF +CCD1 CCEB +CCED CD07 +CD09 CD23 +CD25 CD3F +CD41 CD5B +CD5D CD77 +CD79 CD93 +CD95 CDAF +CDB1 CDCB +CDCD CDE7 +CDE9 CE03 +CE05 CE1F +CE21 CE3B +CE3D CE57 +CE59 CE73 +CE75 CE8F +CE91 CEAB +CEAD CEC7 +CEC9 CEE3 +CEE5 CEFF +CF01 CF1B +CF1D CF37 +CF39 CF53 +CF55 CF6F +CF71 CF8B +CF8D CFA7 +CFA9 CFC3 +CFC5 CFDF +CFE1 CFFB +CFFD D017 +D019 D033 +D035 D04F +D051 D06B +D06D D087 +D089 D0A3 +D0A5 D0BF +D0C1 D0DB +D0DD D0F7 +D0F9 D113 +D115 D12F +D131 D14B +D14D D167 +D169 D183 +D185 D19F +D1A1 D1BB +D1BD D1D7 +D1D9 D1F3 +D1F5 D20F +D211 D22B +D22D D247 +D249 D263 +D265 D27F +D281 D29B +D29D D2B7 +D2B9 D2D3 +D2D5 D2EF +D2F1 D30B +D30D D327 +D329 D343 +D345 D35F +D361 D37B +D37D D397 +D399 D3B3 +D3B5 D3CF +D3D1 D3EB +D3ED D407 +D409 D423 +D425 D43F +D441 D45B +D45D D477 +D479 D493 +D495 D4AF +D4B1 D4CB +D4CD D4E7 +D4E9 D503 +D505 D51F +D521 D53B +D53D D557 +D559 D573 +D575 D58F +D591 D5AB +D5AD D5C7 +D5C9 D5E3 +D5E5 D5FF +D601 D61B +D61D D637 +D639 D653 +D655 D66F +D671 D68B +D68D D6A7 +D6A9 D6C3 +D6C5 D6DF +D6E1 D6FB +D6FD D717 +D719 D733 +D735 D74F +D751 D76B +D76D D787 +D789 D7A3 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/HY.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/HY.pl new file mode 100644 index 0000000..8ec58d6 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/HY.pl @@ -0,0 +1,14 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Linebreak category 'Hyphen' +# +return <<'END'; +002D +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/ID.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/ID.pl new file mode 100644 index 0000000..e16466f --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/ID.pl @@ -0,0 +1,84 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Linebreak category 'Ideographic' +# +return <<'END'; +2E80 2E99 +2E9B 2EF3 +2F00 2FD5 +2FF0 2FFB +3000 +3003 3004 +3006 3007 +3012 3013 +3020 3029 +3030 303A +303D 303F +3042 +3044 +3046 +3048 +304A 3062 +3064 3082 +3084 +3086 +3088 308D +308F 3094 +309F +30A2 +30A4 +30A6 +30A8 +30AA 30C2 +30C4 30E2 +30E4 +30E6 +30E8 30ED +30EF 30F4 +30F7 30FA +30FF +3105 312D +3131 318E +3190 31B7 +31C0 31E3 +3200 321E +3220 3243 +3250 32FE +3300 4DB5 +4E00 9FC3 +A000 A014 +A016 A48C +A490 A4C6 +F900 FA2D +FA30 FA6A +FA70 FAD9 +FE30 FE34 +FE45 FE46 +FE49 FE4F +FE51 +FE58 +FE5F FE66 +FE68 +FE6B +FF02 FF03 +FF06 FF07 +FF0A FF0B +FF0D +FF0F FF19 +FF1C FF1E +FF20 FF3A +FF3C +FF3E FF5A +FF5C +FF5E +FFE2 FFE4 +20000 2A6D6 +2F800 2FA1D +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/IN.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/IN.pl new file mode 100644 index 0000000..f69ce5b --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/IN.pl @@ -0,0 +1,15 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Linebreak category 'Inseparable' +# +return <<'END'; +2024 2026 +FE19 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/IS.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/IS.pl new file mode 100644 index 0000000..807399f --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/IS.pl @@ -0,0 +1,23 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Linebreak category 'Infix_Numeric' +# +return <<'END'; +002C +002E +003A 003B +037E +0589 +060C 060D +07F8 +2044 +FE10 +FE13 FE14 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/JL.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/JL.pl new file mode 100644 index 0000000..f8967a8 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/JL.pl @@ -0,0 +1,15 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Linebreak category 'JL' +# +return <<'END'; +1100 1159 +115F +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/JT.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/JT.pl new file mode 100644 index 0000000..20c1324 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/JT.pl @@ -0,0 +1,14 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Linebreak category 'JT' +# +return <<'END'; +11A8 11F9 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/JV.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/JV.pl new file mode 100644 index 0000000..73f6a92 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/JV.pl @@ -0,0 +1,14 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Linebreak category 'JV' +# +return <<'END'; +1160 11A2 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/LF.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/LF.pl new file mode 100644 index 0000000..6b06381 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/LF.pl @@ -0,0 +1,14 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Linebreak category 'Line_Feed' +# +return <<'END'; +000A +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/NL.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/NL.pl new file mode 100644 index 0000000..58c709a --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/NL.pl @@ -0,0 +1,14 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Linebreak category 'Next_Line' +# +return <<'END'; +0085 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/NS.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/NS.pl new file mode 100644 index 0000000..ec9c6b6 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/NS.pl @@ -0,0 +1,50 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Linebreak category 'Nonstarter' +# +return <<'END'; +17D6 +203C 203D +2047 2049 +3005 +301C +303B 303C +3041 +3043 +3045 +3047 +3049 +3063 +3083 +3085 +3087 +308E +3095 3096 +309B 309E +30A0 30A1 +30A3 +30A5 +30A7 +30A9 +30C3 +30E3 +30E5 +30E7 +30EE +30F5 30F6 +30FB 30FE +31F0 31FF +A015 +FE54 FE55 +FF1A FF1B +FF65 +FF67 FF70 +FF9E FF9F +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/NU.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/NU.pl new file mode 100644 index 0000000..518b167 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/NU.pl @@ -0,0 +1,46 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Linebreak category 'Numeric' +# +return <<'END'; +0030 0039 +0660 0669 +066B 066C +06F0 06F9 +07C0 07C9 +0966 096F +09E6 09EF +0A66 0A6F +0AE6 0AEF +0B66 0B6F +0BE6 0BEF +0C66 0C6F +0CE6 0CEF +0D66 0D6F +0E50 0E59 +0ED0 0ED9 +0F20 0F29 +1040 1049 +1090 1099 +17E0 17E9 +1810 1819 +1946 194F +19D0 19D9 +1B50 1B59 +1BB0 1BB9 +1C40 1C49 +1C50 1C59 +A620 A629 +A8D0 A8D9 +A900 A909 +AA50 AA59 +104A0 104A9 +1D7CE 1D7FF +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/OP.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/OP.pl new file mode 100644 index 0000000..0fc6701 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/OP.pl @@ -0,0 +1,88 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Linebreak category 'Open_Punctuation' +# +return <<'END'; +0028 +005B +007B +00A1 +00BF +0F3A +0F3C +169B +201A +201E +2045 +207D +208D +2329 +2768 +276A +276C +276E +2770 +2772 +2774 +27C5 +27E6 +27E8 +27EA +27EC +27EE +2983 +2985 +2987 +2989 +298B +298D +298F +2991 +2993 +2995 +2997 +29D8 +29DA +29FC +2E18 +2E22 +2E24 +2E26 +2E28 +3008 +300A +300C +300E +3010 +3014 +3016 +3018 +301A +301D +FD3E +FE17 +FE35 +FE37 +FE39 +FE3B +FE3D +FE3F +FE41 +FE43 +FE47 +FE59 +FE5B +FE5D +FF08 +FF3B +FF5B +FF5F +FF62 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/PO.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/PO.pl new file mode 100644 index 0000000..514d935 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/PO.pl @@ -0,0 +1,27 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Linebreak category 'Postfix_Numeric' +# +return <<'END'; +0025 +00A2 +00B0 +0609 060B +066A +0D79 +2030 2037 +20A7 +2103 +2109 +FDFC +FE6A +FF05 +FFE0 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/PR.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/PR.pl new file mode 100644 index 0000000..4b9a086 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/PR.pl @@ -0,0 +1,31 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Linebreak category 'Prefix_Numeric' +# +return <<'END'; +0024 +002B +005C +00A3 00A5 +00B1 +09F2 09F3 +0AF1 +0BF9 +0E3F +17DB +20A0 20A6 +20A8 20B5 +2116 +2212 2213 +FE69 +FF04 +FFE1 +FFE5 FFE6 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/QU.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/QU.pl new file mode 100644 index 0000000..c04eb33 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/QU.pl @@ -0,0 +1,25 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Linebreak category 'Quotation' +# +return <<'END'; +0022 +0027 +00AB +00BB +2018 2019 +201B 201D +201F +2039 203A +275B 275E +2E00 2E0D +2E1C 2E1D +2E20 2E21 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/SA.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/SA.pl new file mode 100644 index 0000000..8f11103 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/SA.pl @@ -0,0 +1,43 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Linebreak category 'Complex_Context' +# +return <<'END'; +0E01 0E3A +0E40 0E4E +0E81 0E82 +0E84 +0E87 0E88 +0E8A +0E8D +0E94 0E97 +0E99 0E9F +0EA1 0EA3 +0EA5 +0EA7 +0EAA 0EAB +0EAD 0EB9 +0EBB 0EBD +0EC0 0EC4 +0EC6 +0EC8 0ECD +0EDC 0EDD +1000 103F +1050 108F +109E 109F +1780 17D3 +17D7 +17DC 17DD +1950 196D +1970 1974 +1980 19A9 +19B0 19C9 +19DE 19DF +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/SG.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/SG.pl new file mode 100644 index 0000000..92754a3 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/SG.pl @@ -0,0 +1,14 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Linebreak category 'Surrogate' +# +return <<'END'; +D800 DFFF +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/SP.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/SP.pl new file mode 100644 index 0000000..8f22f00 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/SP.pl @@ -0,0 +1,14 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Linebreak category 'Space' +# +return <<'END'; +0020 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/SY.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/SY.pl new file mode 100644 index 0000000..70659c7 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/SY.pl @@ -0,0 +1,14 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Linebreak category 'Break_Symbols' +# +return <<'END'; +002F +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/WJ.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/WJ.pl new file mode 100644 index 0000000..289789a --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/WJ.pl @@ -0,0 +1,15 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Linebreak category 'Word_Joiner' +# +return <<'END'; +2060 +FEFF +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/XX.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/XX.pl new file mode 100644 index 0000000..a71f74a --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/XX.pl @@ -0,0 +1,16 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Linebreak category 'Unknown' +# +return <<'END'; +E000 F8FF +F0000 FFFFD +100000 10FFFD +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/ZW.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/ZW.pl new file mode 100644 index 0000000..5797955 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/lb/ZW.pl @@ -0,0 +1,14 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# Linebreak category 'ZWSpace' +# +return <<'END'; +200B +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/nt/De.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/nt/De.pl new file mode 100644 index 0000000..ed39f2e --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/nt/De.pl @@ -0,0 +1,46 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# NumericType category 'Decimal' +# +return <<'END'; +0030 0039 +0660 0669 +06F0 06F9 +07C0 07C9 +0966 096F +09E6 09EF +0A66 0A6F +0AE6 0AEF +0B66 0B6F +0BE6 0BEF +0C66 0C6F +0CE6 0CEF +0D66 0D6F +0E50 0E59 +0ED0 0ED9 +0F20 0F29 +1040 1049 +1090 1099 +17E0 17E9 +1810 1819 +1946 194F +19D0 19D9 +1B50 1B59 +1BB0 1BB9 +1C40 1C49 +1C50 1C59 +A620 A629 +A8D0 A8D9 +A900 A909 +AA50 AA59 +FF10 FF19 +104A0 104A9 +1D7CE 1D7FF +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/nt/Di.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/nt/Di.pl new file mode 100644 index 0000000..a8c471d --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/nt/Di.pl @@ -0,0 +1,29 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# NumericType category 'Digit' +# +return <<'END'; +00B2 00B3 +00B9 +1369 1371 +2070 +2074 2079 +2080 2089 +2460 2468 +2474 247C +2488 2490 +24EA +24F5 24FD +24FF +2776 277E +2780 2788 +278A 2792 +10A40 10A43 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/nt/Nu.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/nt/Nu.pl new file mode 100644 index 0000000..a566654 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/unicore/lib/nt/Nu.pl @@ -0,0 +1,63 @@ +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file is built by mktables from e.g. UnicodeData.txt. +# Any changes made here will be lost! + +# This file is for internal use by the Perl program only. The format and even +# name or existence of this file are subject to change without notice. Don't +# use it directly. + +# +# NumericType category 'Numeric' +# +return <<'END'; +00BC 00BE +09F4 09F7 +09F9 +0BF0 0BF2 +0C78 0C7E +0D70 0D75 +0F2A 0F33 +1372 137C +16EE 16F0 +17F0 17F9 +2153 2182 +2185 2188 +2469 2473 +247D 2487 +2491 249B +24EB 24F4 +24FE +277F +2789 +2793 +2CFD +3007 +3021 3029 +3038 303A +3192 3195 +3220 3229 +3251 325F +3280 3289 +32B1 32BF +F96B +F973 +F978 +F9B2 +F9D1 +F9D3 +F9FD +10107 10133 +10140 10178 +1018A +10320 10323 +10341 +1034A +103D1 103D5 +10916 10919 +10A44 10A47 +12400 12431 +12434 12455 +12458 12462 +1D360 1D371 +2F890 +END diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/utf8.pm b/beagle/debian-rfs/usr/share/perl/5.10.1/utf8.pm new file mode 100644 index 0000000..24d2227 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/utf8.pm @@ -0,0 +1,25 @@ +package utf8; + +$utf8::hint_bits = 0x00800000; + +our $VERSION = '1.07'; + +sub import { + $^H |= $utf8::hint_bits; + $enc{caller()} = $_[1] if $_[1]; +} + +sub unimport { + $^H &= ~$utf8::hint_bits; +} + +sub AUTOLOAD { + require "utf8_heavy.pl"; + goto &$AUTOLOAD if defined &$AUTOLOAD; + require Carp; + Carp::croak("Undefined subroutine $AUTOLOAD called"); +} + +1; +__END__ + diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/utf8_heavy.pl b/beagle/debian-rfs/usr/share/perl/5.10.1/utf8_heavy.pl new file mode 100644 index 0000000..b6b6b6e --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/utf8_heavy.pl @@ -0,0 +1,286 @@ +package utf8; +use strict; +use warnings; + +sub DEBUG () { 0 } + +sub DESTROY {} + +my %Cache; + +our (%PropertyAlias, %PA_reverse, %PropValueAlias, %PVA_reverse, %PVA_abbr_map); + +sub croak { require Carp; Carp::croak(@_) } + +## +## "SWASH" == "SWATCH HASH". A "swatch" is a swatch of the Unicode landscape. +## It's a data structure that encodes a set of Unicode characters. +## + +sub SWASHNEW { + my ($class, $type, $list, $minbits, $none) = @_; + local $^D = 0 if $^D; + + print STDERR "SWASHNEW @_\n" if DEBUG; + + ## + ## Get the list of codepoints for the type. + ## Called from swash_init (see utf8.c) or SWASHNEW itself. + ## + ## Callers of swash_init: + ## op.c:pmtrans -- for tr/// and y/// + ## regexec.c:regclass_swash -- for /[]/, \p, and \P + ## utf8.c:is_utf8_common -- for common Unicode properties + ## utf8.c:to_utf8_case -- for lc, uc, ucfirst, etc. and //i + ## + ## Given a $type, our goal is to fill $list with the set of codepoint + ## ranges. If $type is false, $list passed is used. + ## + ## $minbits: + ## For binary properties, $minbits must be 1. + ## For character mappings (case and transliteration), $minbits must + ## be a number except 1. + ## + ## $list (or that filled according to $type): + ## Refer to perlunicode.pod, "User-Defined Character Properties." + ## + ## For binary properties, only characters with the property value + ## of True should be listed. The 3rd column, if any, will be ignored. + ## + ## To make the parsing of $type clear, this code takes the a rather + ## unorthodox approach of last'ing out of the block once we have the + ## info we need. Were this to be a subroutine, the 'last' would just + ## be a 'return'. + ## + my $file; ## file to load data from, and also part of the %Cache key. + my $ListSorted = 0; + + if ($type) + { + $type =~ s/^\s+//; + $type =~ s/\s+$//; + + print STDERR "type = $type\n" if DEBUG; + + GETFILE: + { + ## + ## It could be a user-defined property. + ## + + my $caller1 = $type =~ s/(.+)::// ? $1 : caller(1); + + if (defined $caller1 && $type =~ /^(?:\w+)$/) { + my $prop = "${caller1}::$type"; + if (exists &{$prop}) { + no strict 'refs'; + + $list = &{$prop}; + last GETFILE; + } + } + + my $wasIs; + + ($wasIs = $type =~ s/^Is(?:\s+|[-_])?//i) + or + $type =~ s/^(?:(?:General(?:\s+|_)?)?Category|gc)\s*[:=]\s*//i + or + $type =~ s/^(?:Script|sc)\s*[:=]\s*//i + or + $type =~ s/^Block\s*[:=]\s*/In/i; + + + ## + ## See if it's in some enumeration. + ## + require "unicore/PVA.pl"; + if ($type =~ /^([\w\s]+)[:=]\s*(.*)/) { + my ($enum, $val) = (lc $1, lc $2); + $enum =~ tr/ _-//d; + $val =~ tr/ _-//d; + + my $pa = $PropertyAlias{$enum} ? $enum : $PA_reverse{$enum}; + my $f = $PropValueAlias{$pa}{$val} ? $val : $PVA_reverse{$pa}{lc $val}; + + if ($pa and $f) { + $pa = "gc_sc" if $pa eq "gc" or $pa eq "sc"; + $file = "unicore/lib/$pa/$PVA_abbr_map{$pa}{lc $f}.pl"; + last GETFILE; + } + } + else { + my $t = lc $type; + $t =~ tr/ _-//d; + + if ($PropValueAlias{gc}{$t} or $PropValueAlias{sc}{$t}) { + $file = "unicore/lib/gc_sc/$PVA_abbr_map{gc_sc}{$t}.pl"; + last GETFILE; + } + } + + ## + ## See if it's in the direct mapping table. + ## + require "unicore/Exact.pl"; + if (my $base = $utf8::Exact{$type}) { + $file = "unicore/lib/gc_sc/$base.pl"; + last GETFILE; + } + + ## + ## If not there exactly, try the canonical form. The canonical + ## form is lowercased, with any separators (\s+|[-_]) removed. + ## + my $canonical = lc $type; + $canonical =~ s/(?<=[a-z\d])(?:\s+|[-_])(?=[a-z\d])//g; + print STDERR "canonical = $canonical\n" if DEBUG; + + require "unicore/Canonical.pl"; + if (my $base = ($utf8::Canonical{$canonical} || $utf8::Canonical{ lc $utf8::PropertyAlias{$canonical} })) { + $file = "unicore/lib/gc_sc/$base.pl"; + last GETFILE; + } + + ## + ## See if it's a user-level "To". + ## + + my $caller0 = caller(0); + + if (defined $caller0 && $type =~ /^To(?:\w+)$/) { + my $map = $caller0 . "::" . $type; + + if (exists &{$map}) { + no strict 'refs'; + + $list = &{$map}; + last GETFILE; + } + } + + ## + ## Last attempt -- see if it's a standard "To" name + ## (e.g. "ToLower") ToTitle is used by ucfirst(). + ## The user-level way to access ToDigit() and ToFold() + ## is to use Unicode::UCD. + ## + if ($type =~ /^To(Digit|Fold|Lower|Title|Upper)$/) { + $file = "unicore/To/$1.pl"; + ## would like to test to see if $file actually exists.... + last GETFILE; + } + + ## + ## If we reach this line, it's because we couldn't figure + ## out what to do with $type. Ouch. + ## + + return $type; + } + + if (defined $file) { + print STDERR "found it (file='$file')\n" if DEBUG; + + ## + ## If we reach here, it was due to a 'last GETFILE' above + ## (exception: user-defined properties and mappings), so we + ## have a filename, so now we load it if we haven't already. + ## If we have, return the cached results. The cache key is the + ## class and file to load. + ## + my $found = $Cache{$class, $file}; + if ($found and ref($found) eq $class) { + print STDERR "Returning cached '$file' for \\p{$type}\n" if DEBUG; + return $found; + } + + $list = do $file; die $@ if $@; + } + + $ListSorted = 1; ## we know that these lists are sorted + } + + my $extras; + my $bits = $minbits; + + my $ORIG = $list; + if ($list) { + my @tmp = split(/^/m, $list); + my %seen; + no warnings; + $extras = join '', grep /^[^0-9a-fA-F]/, @tmp; + $list = join '', + map { $_->[1] } + sort { $a->[0] <=> $b->[0] } + map { /^([0-9a-fA-F]+)/; [ CORE::hex($1), $_ ] } + grep { /^([0-9a-fA-F]+)/ and not $seen{$1}++ } @tmp; # XXX doesn't do ranges right + } + + if ($none) { + my $hextra = sprintf "%04x", $none + 1; + $list =~ s/\tXXXX$/\t$hextra/mg; + } + + if ($minbits != 1 && $minbits < 32) { # not binary property + my $top = 0; + while ($list =~ /^([0-9a-fA-F]+)(?:[\t]([0-9a-fA-F]+)?)(?:[ \t]([0-9a-fA-F]+))?/mg) { + my $min = CORE::hex $1; + my $max = defined $2 ? CORE::hex $2 : $min; + my $val = defined $3 ? CORE::hex $3 : 0; + $val += $max - $min if defined $3; + $top = $val if $val > $top; + } + my $topbits = + $top > 0xffff ? 32 : + $top > 0xff ? 16 : 8; + $bits = $topbits if $bits < $topbits; + } + + my @extras; + for my $x ($extras) { + pos $x = 0; + while ($x =~ /^([^0-9a-fA-F\n])(.*)/mg) { + my $char = $1; + my $name = $2; + print STDERR "$1 => $2\n" if DEBUG; + if ($char =~ /[-+!&]/) { + my ($c,$t) = split(/::/, $name, 2); # bogus use of ::, really + my $subobj; + if ($c eq 'utf8') { + $subobj = utf8->SWASHNEW($t, "", $minbits, 0); + } + elsif (exists &$name) { + $subobj = utf8->SWASHNEW($name, "", $minbits, 0); + } + elsif ($c =~ /^([0-9a-fA-F]+)/) { + $subobj = utf8->SWASHNEW("", $c, $minbits, 0); + } + return $subobj unless ref $subobj; + push @extras, $name => $subobj; + $bits = $subobj->{BITS} if $bits < $subobj->{BITS}; + } + } + } + + print STDERR "CLASS = $class, TYPE => $type, BITS => $bits, NONE => $none\nEXTRAS =>\n$extras\nLIST =>\n$list\n" if DEBUG; + + my $SWASH = bless { + TYPE => $type, + BITS => $bits, + EXTRAS => $extras, + LIST => $list, + NONE => $none, + @extras, + } => $class; + + if ($file) { + $Cache{$class, $file} = $SWASH; + } + + return $SWASH; +} + +# Now SWASHGET is recasted into a C function S_swash_get (see utf8.c). + +1; diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/vars.pm b/beagle/debian-rfs/usr/share/perl/5.10.1/vars.pm new file mode 100644 index 0000000..589915d --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/vars.pm @@ -0,0 +1,48 @@ +package vars; + +use 5.006; + +our $VERSION = '1.01'; + +use warnings::register; +use strict qw(vars subs); + +sub import { + my $callpack = caller; + my ($pack, @imports) = @_; + my ($sym, $ch); + foreach (@imports) { + if (($ch, $sym) = /^([\$\@\%\*\&])(.+)/) { + if ($sym =~ /\W/) { + # time for a more-detailed check-up + if ($sym =~ /^\w+[[{].*[]}]$/) { + require Carp; + Carp::croak("Can't declare individual elements of hash or array"); + } elsif (warnings::enabled() and length($sym) == 1 and $sym !~ tr/a-zA-Z//) { + warnings::warn("No need to declare built-in vars"); + } elsif (($^H &= strict::bits('vars'))) { + require Carp; + Carp::croak("'$_' is not a valid variable name under strict vars"); + } + } + $sym = "${callpack}::$sym" unless $sym =~ /::/; + *$sym = + ( $ch eq "\$" ? \$$sym + : $ch eq "\@" ? \@$sym + : $ch eq "\%" ? \%$sym + : $ch eq "\*" ? \*$sym + : $ch eq "\&" ? \&$sym + : do { + require Carp; + Carp::croak("'$_' is not a valid variable name"); + }); + } else { + require Carp; + Carp::croak("'$_' is not a valid variable name"); + } + } +}; + +1; +__END__ + diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/warnings.pm b/beagle/debian-rfs/usr/share/perl/5.10.1/warnings.pm new file mode 100644 index 0000000..3fc9a3d --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/warnings.pm @@ -0,0 +1,379 @@ +# -*- buffer-read-only: t -*- +# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! +# This file was created by warnings.pl +# Any changes made here will be lost. +# + +package warnings; + +our $VERSION = '1.06'; + +# Verify that we're called correctly so that warnings will work. +# see also strict.pm. +unless ( __FILE__ =~ /(^|[\/\\])\Q${\__PACKAGE__}\E\.pmc?$/ ) { + my (undef, $f, $l) = caller; + die("Incorrect use of pragma '${\__PACKAGE__}' at $f line $l.\n"); +} + +our %Offsets = ( + + # Warnings Categories added in Perl 5.008 + + 'all' => 0, + 'closure' => 2, + 'deprecated' => 4, + 'exiting' => 6, + 'glob' => 8, + 'io' => 10, + 'closed' => 12, + 'exec' => 14, + 'layer' => 16, + 'newline' => 18, + 'pipe' => 20, + 'unopened' => 22, + 'misc' => 24, + 'numeric' => 26, + 'once' => 28, + 'overflow' => 30, + 'pack' => 32, + 'portable' => 34, + 'recursion' => 36, + 'redefine' => 38, + 'regexp' => 40, + 'severe' => 42, + 'debugging' => 44, + 'inplace' => 46, + 'internal' => 48, + 'malloc' => 50, + 'signal' => 52, + 'substr' => 54, + 'syntax' => 56, + 'ambiguous' => 58, + 'bareword' => 60, + 'digit' => 62, + 'parenthesis' => 64, + 'precedence' => 66, + 'printf' => 68, + 'prototype' => 70, + 'qw' => 72, + 'reserved' => 74, + 'semicolon' => 76, + 'taint' => 78, + 'threads' => 80, + 'uninitialized' => 82, + 'unpack' => 84, + 'untie' => 86, + 'utf8' => 88, + 'void' => 90, + ); + +our %Bits = ( + 'all' => "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x05", # [0..45] + 'ambiguous' => "\x00\x00\x00\x00\x00\x00\x00\x04\x00\x00\x00\x00", # [29] + 'bareword' => "\x00\x00\x00\x00\x00\x00\x00\x10\x00\x00\x00\x00", # [30] + 'closed' => "\x00\x10\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [6] + 'closure' => "\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [1] + 'debugging' => "\x00\x00\x00\x00\x00\x10\x00\x00\x00\x00\x00\x00", # [22] + 'deprecated' => "\x10\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [2] + 'digit' => "\x00\x00\x00\x00\x00\x00\x00\x40\x00\x00\x00\x00", # [31] + 'exec' => "\x00\x40\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [7] + 'exiting' => "\x40\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [3] + 'glob' => "\x00\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [4] + 'inplace' => "\x00\x00\x00\x00\x00\x40\x00\x00\x00\x00\x00\x00", # [23] + 'internal' => "\x00\x00\x00\x00\x00\x00\x01\x00\x00\x00\x00\x00", # [24] + 'io' => "\x00\x54\x55\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [5..11] + 'layer' => "\x00\x00\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [8] + 'malloc' => "\x00\x00\x00\x00\x00\x00\x04\x00\x00\x00\x00\x00", # [25] + 'misc' => "\x00\x00\x00\x01\x00\x00\x00\x00\x00\x00\x00\x00", # [12] + 'newline' => "\x00\x00\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [9] + 'numeric' => "\x00\x00\x00\x04\x00\x00\x00\x00\x00\x00\x00\x00", # [13] + 'once' => "\x00\x00\x00\x10\x00\x00\x00\x00\x00\x00\x00\x00", # [14] + 'overflow' => "\x00\x00\x00\x40\x00\x00\x00\x00\x00\x00\x00\x00", # [15] + 'pack' => "\x00\x00\x00\x00\x01\x00\x00\x00\x00\x00\x00\x00", # [16] + 'parenthesis' => "\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00\x00\x00", # [32] + 'pipe' => "\x00\x00\x10\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [10] + 'portable' => "\x00\x00\x00\x00\x04\x00\x00\x00\x00\x00\x00\x00", # [17] + 'precedence' => "\x00\x00\x00\x00\x00\x00\x00\x00\x04\x00\x00\x00", # [33] + 'printf' => "\x00\x00\x00\x00\x00\x00\x00\x00\x10\x00\x00\x00", # [34] + 'prototype' => "\x00\x00\x00\x00\x00\x00\x00\x00\x40\x00\x00\x00", # [35] + 'qw' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00\x00", # [36] + 'recursion' => "\x00\x00\x00\x00\x10\x00\x00\x00\x00\x00\x00\x00", # [18] + 'redefine' => "\x00\x00\x00\x00\x40\x00\x00\x00\x00\x00\x00\x00", # [19] + 'regexp' => "\x00\x00\x00\x00\x00\x01\x00\x00\x00\x00\x00\x00", # [20] + 'reserved' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x04\x00\x00", # [37] + 'semicolon' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\x00\x00", # [38] + 'severe' => "\x00\x00\x00\x00\x00\x54\x05\x00\x00\x00\x00\x00", # [21..25] + 'signal' => "\x00\x00\x00\x00\x00\x00\x10\x00\x00\x00\x00\x00", # [26] + 'substr' => "\x00\x00\x00\x00\x00\x00\x40\x00\x00\x00\x00\x00", # [27] + 'syntax' => "\x00\x00\x00\x00\x00\x00\x00\x55\x55\x15\x00\x00", # [28..38] + 'taint' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x40\x00\x00", # [39] + 'threads' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00", # [40] + 'uninitialized' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x04\x00", # [41] + 'unopened' => "\x00\x00\x40\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [11] + 'unpack' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\x00", # [42] + 'untie' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x40\x00", # [43] + 'utf8' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01", # [44] + 'void' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x04", # [45] + ); + +our %DeadBits = ( + 'all' => "\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\x0a", # [0..45] + 'ambiguous' => "\x00\x00\x00\x00\x00\x00\x00\x08\x00\x00\x00\x00", # [29] + 'bareword' => "\x00\x00\x00\x00\x00\x00\x00\x20\x00\x00\x00\x00", # [30] + 'closed' => "\x00\x20\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [6] + 'closure' => "\x08\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [1] + 'debugging' => "\x00\x00\x00\x00\x00\x20\x00\x00\x00\x00\x00\x00", # [22] + 'deprecated' => "\x20\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [2] + 'digit' => "\x00\x00\x00\x00\x00\x00\x00\x80\x00\x00\x00\x00", # [31] + 'exec' => "\x00\x80\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [7] + 'exiting' => "\x80\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [3] + 'glob' => "\x00\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [4] + 'inplace' => "\x00\x00\x00\x00\x00\x80\x00\x00\x00\x00\x00\x00", # [23] + 'internal' => "\x00\x00\x00\x00\x00\x00\x02\x00\x00\x00\x00\x00", # [24] + 'io' => "\x00\xa8\xaa\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [5..11] + 'layer' => "\x00\x00\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [8] + 'malloc' => "\x00\x00\x00\x00\x00\x00\x08\x00\x00\x00\x00\x00", # [25] + 'misc' => "\x00\x00\x00\x02\x00\x00\x00\x00\x00\x00\x00\x00", # [12] + 'newline' => "\x00\x00\x08\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [9] + 'numeric' => "\x00\x00\x00\x08\x00\x00\x00\x00\x00\x00\x00\x00", # [13] + 'once' => "\x00\x00\x00\x20\x00\x00\x00\x00\x00\x00\x00\x00", # [14] + 'overflow' => "\x00\x00\x00\x80\x00\x00\x00\x00\x00\x00\x00\x00", # [15] + 'pack' => "\x00\x00\x00\x00\x02\x00\x00\x00\x00\x00\x00\x00", # [16] + 'parenthesis' => "\x00\x00\x00\x00\x00\x00\x00\x00\x02\x00\x00\x00", # [32] + 'pipe' => "\x00\x00\x20\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [10] + 'portable' => "\x00\x00\x00\x00\x08\x00\x00\x00\x00\x00\x00\x00", # [17] + 'precedence' => "\x00\x00\x00\x00\x00\x00\x00\x00\x08\x00\x00\x00", # [33] + 'printf' => "\x00\x00\x00\x00\x00\x00\x00\x00\x20\x00\x00\x00", # [34] + 'prototype' => "\x00\x00\x00\x00\x00\x00\x00\x00\x80\x00\x00\x00", # [35] + 'qw' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02\x00\x00", # [36] + 'recursion' => "\x00\x00\x00\x00\x20\x00\x00\x00\x00\x00\x00\x00", # [18] + 'redefine' => "\x00\x00\x00\x00\x80\x00\x00\x00\x00\x00\x00\x00", # [19] + 'regexp' => "\x00\x00\x00\x00\x00\x02\x00\x00\x00\x00\x00\x00", # [20] + 'reserved' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08\x00\x00", # [37] + 'semicolon' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x20\x00\x00", # [38] + 'severe' => "\x00\x00\x00\x00\x00\xa8\x0a\x00\x00\x00\x00\x00", # [21..25] + 'signal' => "\x00\x00\x00\x00\x00\x00\x20\x00\x00\x00\x00\x00", # [26] + 'substr' => "\x00\x00\x00\x00\x00\x00\x80\x00\x00\x00\x00\x00", # [27] + 'syntax' => "\x00\x00\x00\x00\x00\x00\x00\xaa\xaa\x2a\x00\x00", # [28..38] + 'taint' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x80\x00\x00", # [39] + 'threads' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02\x00", # [40] + 'uninitialized' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08\x00", # [41] + 'unopened' => "\x00\x00\x80\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [11] + 'unpack' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x20\x00", # [42] + 'untie' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x80\x00", # [43] + 'utf8' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02", # [44] + 'void' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08", # [45] + ); + +$NONE = "\0\0\0\0\0\0\0\0\0\0\0\0"; +$LAST_BIT = 92 ; +$BYTES = 12 ; + +$All = "" ; vec($All, $Offsets{'all'}, 2) = 3 ; + +sub Croaker +{ + require Carp::Heavy; # this initializes %CarpInternal + local $Carp::CarpInternal{'warnings'}; + delete $Carp::CarpInternal{'warnings'}; + Carp::croak(@_); +} + +sub bits +{ + # called from B::Deparse.pm + + push @_, 'all' unless @_; + + my $mask; + my $catmask ; + my $fatal = 0 ; + my $no_fatal = 0 ; + + foreach my $word ( @_ ) { + if ($word eq 'FATAL') { + $fatal = 1; + $no_fatal = 0; + } + elsif ($word eq 'NONFATAL') { + $fatal = 0; + $no_fatal = 1; + } + elsif ($catmask = $Bits{$word}) { + $mask |= $catmask ; + $mask |= $DeadBits{$word} if $fatal ; + $mask &= ~($DeadBits{$word}|$All) if $no_fatal ; + } + else + { Croaker("Unknown warnings category '$word'")} + } + + return $mask ; +} + +sub import +{ + shift; + + my $catmask ; + my $fatal = 0 ; + my $no_fatal = 0 ; + + my $mask = ${^WARNING_BITS} ; + + if (vec($mask, $Offsets{'all'}, 1)) { + $mask |= $Bits{'all'} ; + $mask |= $DeadBits{'all'} if vec($mask, $Offsets{'all'}+1, 1); + } + + push @_, 'all' unless @_; + + foreach my $word ( @_ ) { + if ($word eq 'FATAL') { + $fatal = 1; + $no_fatal = 0; + } + elsif ($word eq 'NONFATAL') { + $fatal = 0; + $no_fatal = 1; + } + elsif ($catmask = $Bits{$word}) { + $mask |= $catmask ; + $mask |= $DeadBits{$word} if $fatal ; + $mask &= ~($DeadBits{$word}|$All) if $no_fatal ; + } + else + { Croaker("Unknown warnings category '$word'")} + } + + ${^WARNING_BITS} = $mask ; +} + +sub unimport +{ + shift; + + my $catmask ; + my $mask = ${^WARNING_BITS} ; + + if (vec($mask, $Offsets{'all'}, 1)) { + $mask |= $Bits{'all'} ; + $mask |= $DeadBits{'all'} if vec($mask, $Offsets{'all'}+1, 1); + } + + push @_, 'all' unless @_; + + foreach my $word ( @_ ) { + if ($word eq 'FATAL') { + next; + } + elsif ($catmask = $Bits{$word}) { + $mask &= ~($catmask | $DeadBits{$word} | $All); + } + else + { Croaker("Unknown warnings category '$word'")} + } + + ${^WARNING_BITS} = $mask ; +} + +my %builtin_type; @builtin_type{qw(SCALAR ARRAY HASH CODE REF GLOB LVALUE Regexp)} = (); + +sub __chk +{ + my $category ; + my $offset ; + my $isobj = 0 ; + + if (@_) { + # check the category supplied. + $category = shift ; + if (my $type = ref $category) { + Croaker("not an object") + if exists $builtin_type{$type}; + $category = $type; + $isobj = 1 ; + } + $offset = $Offsets{$category}; + Croaker("Unknown warnings category '$category'") + unless defined $offset; + } + else { + $category = (caller(1))[0] ; + $offset = $Offsets{$category}; + Croaker("package '$category' not registered for warnings") + unless defined $offset ; + } + + my $this_pkg = (caller(1))[0] ; + my $i = 2 ; + my $pkg ; + + if ($isobj) { + while (do { { package DB; $pkg = (caller($i++))[0] } } ) { + last unless @DB::args && $DB::args[0] =~ /^$category=/ ; + } + $i -= 2 ; + } + else { + $i = _error_loc(); # see where Carp will allocate the error + } + + my $callers_bitmask = (caller($i))[9] ; + return ($callers_bitmask, $offset, $i) ; +} + +sub _error_loc { + require Carp::Heavy; + goto &Carp::short_error_loc; # don't introduce another stack frame +} + +sub enabled +{ + Croaker("Usage: warnings::enabled([category])") + unless @_ == 1 || @_ == 0 ; + + my ($callers_bitmask, $offset, $i) = __chk(@_) ; + + return 0 unless defined $callers_bitmask ; + return vec($callers_bitmask, $offset, 1) || + vec($callers_bitmask, $Offsets{'all'}, 1) ; +} + +sub warn +{ + Croaker("Usage: warnings::warn([category,] 'message')") + unless @_ == 2 || @_ == 1 ; + + my $message = pop ; + my ($callers_bitmask, $offset, $i) = __chk(@_) ; + require Carp; + Carp::croak($message) + if vec($callers_bitmask, $offset+1, 1) || + vec($callers_bitmask, $Offsets{'all'}+1, 1) ; + Carp::carp($message) ; +} + +sub warnif +{ + Croaker("Usage: warnings::warnif([category,] 'message')") + unless @_ == 2 || @_ == 1 ; + + my $message = pop ; + my ($callers_bitmask, $offset, $i) = __chk(@_) ; + + return + unless defined $callers_bitmask && + (vec($callers_bitmask, $offset, 1) || + vec($callers_bitmask, $Offsets{'all'}, 1)) ; + + require Carp; + Carp::croak($message) + if vec($callers_bitmask, $offset+1, 1) || + vec($callers_bitmask, $Offsets{'all'}+1, 1) ; + + Carp::carp($message) ; +} + +1; +# ex: set ro: diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/warnings/register.pm b/beagle/debian-rfs/usr/share/perl/5.10.1/warnings/register.pm new file mode 100644 index 0000000..65dba3d --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl/5.10.1/warnings/register.pm @@ -0,0 +1,32 @@ +package warnings::register; + +our $VERSION = '1.01'; + +require warnings; + +sub mkMask +{ + my ($bit) = @_; + my $mask = ""; + + vec($mask, $bit, 1) = 1; + return $mask; +} + +sub import +{ + shift; + my $package = (caller(0))[0]; + if (! defined $warnings::Bits{$package}) { + $warnings::Bits{$package} = mkMask($warnings::LAST_BIT); + vec($warnings::Bits{'all'}, $warnings::LAST_BIT, 1) = 1; + $warnings::Offsets{$package} = $warnings::LAST_BIT ++; + foreach my $k (keys %warnings::Bits) { + vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; + } + $warnings::DeadBits{$package} = mkMask($warnings::LAST_BIT); + vec($warnings::DeadBits{'all'}, $warnings::LAST_BIT++, 1) = 1; + } +} + +1; diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/AutoSelect.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/AutoSelect.pm new file mode 100644 index 0000000..db4b704 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/AutoSelect.pm @@ -0,0 +1,77 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::AutoSelect; +use strict; +use Debconf::Gettext; +use Debconf::ConfModule; +use Debconf::Config; +use Debconf::Log qw(:all); +use base qw(Exporter); +our @EXPORT_OK = qw(make_frontend make_confmodule); +our %EXPORT_TAGS = (all => [@EXPORT_OK]); + + +my %fallback=( + 'Kde' => ['Dialog', 'Readline', 'Teletype'], + 'Gnome' => ['Dialog', 'Readline', 'Teletype'], + 'Web' => ['Dialog', 'Readline', 'Teletype'], + 'Dialog' => ['Readline', 'Teletype'], + 'Gtk' => ['Dialog', 'Readline', 'Teletype'], + 'Readline' => ['Teletype', 'Dialog'], + 'Editor' => ['Readline', 'Teletype'], + 'Slang' => ['Dialog', 'Readline', 'Teletype'], + 'Text' => ['Readline', 'Teletype', 'Dialog'], + +); + +my $frontend; +my $type; + + +sub make_frontend { + my $script=shift; + my $starttype=ucfirst($type) if defined $type; + if (! defined $starttype || ! length $starttype) { + $starttype = Debconf::Config->frontend; + if ($starttype =~ /^[A-Z]/) { + warn "Please do not capitalize the first letter of the debconf frontend."; + } + $starttype=ucfirst($starttype); + } + + my $showfallback=0; + foreach $type ($starttype, @{$fallback{$starttype}}, 'Noninteractive') { + if (! $showfallback) { + debug user => "trying frontend $type"; + } + else { + warn(sprintf(gettext("falling back to frontend: %s"), $type)); + } + $frontend=eval qq{ + use Debconf::FrontEnd::$type; + Debconf::FrontEnd::$type->new(); + }; + return $frontend if defined $frontend; + + warn sprintf(gettext("unable to initialize frontend: %s"), $type); + $@=~s/\n.*//s; + warn "($@)"; + $showfallback=1; + } + + die sprintf(gettext("Unable to start a frontend: %s"), $@); +} + + +sub make_confmodule { + my $confmodule=Debconf::ConfModule->new(frontend => $frontend); + + $confmodule->startup(@_) if @_; + + return $confmodule; +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Base.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Base.pm new file mode 100644 index 0000000..11143c9 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Base.pm @@ -0,0 +1,39 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Base; +use Debconf::Log ':all'; +use strict; + + +sub new { + my $proto = shift; + my $class = ref($proto) || $proto; + my $this=bless ({@_}, $class); + $this->init; + return $this; +} + + +sub init {} + + +sub AUTOLOAD { + (my $field = our $AUTOLOAD) =~ s/.*://; + + no strict 'refs'; + *$AUTOLOAD = sub { + my $this=shift; + + return $this->{$field} unless @_; + return $this->{$field}=shift; + }; + goto &$AUTOLOAD; +} + +sub DESTROY { +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Client/ConfModule.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Client/ConfModule.pm new file mode 100644 index 0000000..30bd2d9 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Client/ConfModule.pm @@ -0,0 +1,164 @@ +#!/usr/bin/perl -w + +=head1 NAME + +Debconf::Client::ConfModule - client module for ConfModules + +=head1 SYNOPSIS + + use Debconf::Client::ConfModule ':all'; + version('2.0'); + my $capb=capb('backup'); + input("medium", "foo/bar"); + my @ret=go(); + if ($ret[0] == 30) { + # Back button pressed. + ... + } + ... + +=head1 DESCRIPTION + +This is a module to ease writing ConfModules for Debian's configuration +management system. It can communicate with a FrontEnd via the debconf +protocol (which is documented in full in the debconf_specification in +Debian policy). + +The design is that each command in the protocol is represented by one +function in this module (with the name lower-cased). Call the function and +pass in any parameters you want to follow the command. If the function is +called in scalar context, it will return any textual return code. If it is +called in list context, an array consisting of the numeric return code and +the textual return code will be returned. + +This module uses Exporter to export all functions it defines. To import +everything, simply import ":all". + +=over 4 + +=cut + +package Debconf::Client::ConfModule; +use strict; +use base qw(Exporter); + +# List all valid commands here. +our @EXPORT_OK=qw(version capb stop reset title input beginblock endblock go + unset set get register unregister clear previous_module + start_frontend fset fget subst purge metaget visible exist + settitle info progress data x_loadtemplatefile); + +# Import :all to get everything. +our %EXPORT_TAGS = (all => [@EXPORT_OK]); + +# Set up valid command lookup hash. +my %commands; +map { $commands{uc $_}=1; } @EXPORT_OK; + +# Unbuffered output is required. +$|=1; + +=item import + +Ensure that a FrontEnd is running. It's a little hackish. If +DEBIAN_HAS_FRONTEND is set, a FrontEnd is assumed to be running. +If not, one is started up automatically and stdin and out are +connected to it. Note that this function is always run when the +module is loaded in the usual way. + +=cut + +sub import { + if (! $ENV{DEBIAN_HAS_FRONTEND}) { + $ENV{PERL_DL_NONLAZY}=1; + if (exists $ENV{DEBCONF_USE_CDEBCONF} and + $ENV{DEBCONF_USE_CDEBCONF} ne '') { + exec "/usr/lib/cdebconf/debconf", $0, @ARGV; + } else { + exec "/usr/share/debconf/frontend", $0, @ARGV; + } + } + + # Make the Exporter still work. + Debconf::Client::ConfModule->export_to_level(1, @_); + + # A truly gross hack. This is only needed if + # /usr/share/debconf/confmodule is loaded, and then this + # perl module is used. In that case, this module needs to write + # to fd #3, rather than stdout. See changelog 0.3.74. + if (exists $ENV{DEBCONF_REDIR} && $ENV{DEBCONF_REDIR}) { + open(STDOUT,">&3"); + } +} + +=item stop + +The frontend doesn't send a return code here, so we cannot try to read it +or we'll block. + +=cut + +sub stop { + print "STOP\n"; + return; +} + +=item AUTOLOAD + +Creates handler functions for commands on the fly. + +=cut + +sub AUTOLOAD { + my $command = uc our $AUTOLOAD; + $command =~ s|.*:||; # strip fully-qualified portion + + die "Unsupported command `$command'." + unless $commands{$command}; + + no strict 'refs'; + *$AUTOLOAD = sub { + my $c=join (' ', $command, @_); + + # Newlines in input can really badly confuse the protocol, so + # detect and warn. + if ($c=~m/\n/) { + warn "Warning: Newline present in parameters passed to debconf.\n"; + warn "This will probably cause strange things to happen!\n"; + } + + print "$c\n"; + my $ret=<STDIN>; + chomp $ret; + my @ret=split(/\s/, $ret, 2); + if ($ret[0] eq '1') { + # escaped data + local $_; + my $unescaped=''; + for (split /(\\.)/, $ret[1]) { + s/\\(.)/$1 eq "n" ? "\n" : $1/eg; + $unescaped.=$_; + } + $ret[0]='0'; + $ret[1]=$unescaped; + } + return @ret if wantarray; + return $ret[1]; + }; + goto &$AUTOLOAD; +} + +=back + +=head1 SEE ALSO + +The debconf specification +(/usr/share/doc/debian-policy/debconf_specification.txt.gz). + +=head1 AUTHOR + +Joey Hess <joeyh@debian.org> + +=cut + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/ConfModule.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/ConfModule.pm new file mode 100644 index 0000000..d66a09c --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/ConfModule.pm @@ -0,0 +1,669 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::ConfModule; +use strict; +use IPC::Open2; +use FileHandle; +use Debconf::Gettext; +use Debconf::Config; +use Debconf::Question; +use Debconf::Priority qw(priority_valid high_enough); +use Debconf::FrontEnd::Noninteractive; +use Debconf::Log ':all'; +use Debconf::Encoding; +use base qw(Debconf::Base); + + +my %codes = ( + success => 0, + escaped_data => 1, + badparams => 10, + syntaxerror => 20, + input_invisible => 30, + version_bad => 30, + go_back => 30, + progresscancel => 30, + internalerror => 100, +); + + +sub init { + my $this=shift; + + $this->version("2.0"); + + $this->owner('unknown') if ! defined $this->owner; + + $this->frontend->capb_backup(''); + + $this->seen([]); + $this->busy([]); + + $ENV{DEBIAN_HAS_FRONTEND}=1; +} + + +sub startup { + my $this=shift; + my $confmodule=shift; + + $this->frontend->clear; + $this->busy([]); + + my @args=$this->confmodule($confmodule); + push @args, @_ if @_; + + debug developer => "starting ".join(' ',@args); + $this->pid(open2($this->read_handle(FileHandle->new), + $this->write_handle(FileHandle->new), + @args)) || die $!; + + $this->caught_sigpipe(''); + $SIG{PIPE}=sub { $this->caught_sigpipe(128) }; +} + + +sub communicate { + my $this=shift; + + my $r=$this->read_handle; + $_=<$r> || return $this->finish; + chomp; + my $ret=$this->process_command($_); + my $w=$this->write_handle; + print $w $ret."\n"; + return '' unless length $ret; + return 1; +} + + +sub escape { + my $text=shift; + $text=~s/\\/\\\\/g; + $text=~s/\n/\\n/g; + return $text; +} + + +sub unescape_split { + my $text=shift; + my @words; + my $word=''; + for my $chunk (split /(\\.|\s+)/, $text) { + if ($chunk eq '\n') { + $word.="\n"; + } elsif ($chunk=~/^\\(.)$/) { + $word.=$1; + } elsif ($chunk=~/^\s+$/) { + push @words, $word; + $word=''; + } else { + $word.=$chunk; + } + } + push @words, $word if $word ne ''; + return @words; +} + + +sub process_command { + my $this=shift; + + debug developer => "<-- $_"; + return 1 unless defined && ! /^\s*#/; # Skip blank lines, comments. + chomp; + my ($command, @params); + if (defined $this->client_capb and grep { $_ eq 'escape' } @{$this->client_capb}) { + ($command, @params)=unescape_split($_); + } else { + ($command, @params)=split(' ', $_); + } + $command=lc($command); + if (lc($command) eq "stop") { + return $this->finish; + } + if (! $this->can("command_$command")) { + return $codes{syntaxerror}.' '. + "Unsupported command \"$command\" (full line was \"$_\") received from confmodule."; + } + $command="command_$command"; + my $ret=join(' ', $this->$command(@params)); + debug developer => "--> $ret"; + if ($ret=~/\n/) { + debug developer => 'Warning: return value is multiline, and would break the debconf protocol. Truncating to first line.'; + $ret=~s/\n.*//s; + debug developer => "--> $ret"; + } + return $ret; +} + + +sub finish { + my $this=shift; + + waitpid $this->pid, 0 if defined $this->pid; + $this->exitcode($this->caught_sigpipe || ($? >> 8)); + + $SIG{PIPE} = sub {}; + + foreach (@{$this->seen}) { + my $q=Debconf::Question->get($_->name); + $_->flag('seen', 'true') if $q; + } + $this->seen([]); + + return ''; +} + + +sub command_input { + my $this=shift; + return $codes{syntaxerror}, "Incorrect number of arguments" if @_ != 2; + my $priority=shift; + my $question_name=shift; + + my $question=Debconf::Question->get($question_name) || + return $codes{badparams}, "\"$question_name\" doesn't exist"; + + if (! priority_valid($priority)) { + return $codes{syntaxerror}, "\"$priority\" is not a valid priority"; + } + + $question->priority($priority); + + my $visible=1; + + if ($question->type ne 'error') { + $visible='' unless high_enough($priority); + + $visible='' if ! Debconf::Config->reshow && + $question->flag('seen') eq 'true'; + } + + my $markseen=$visible; + + if ($visible && ! $this->frontend->interactive) { + $visible=''; + $markseen='' unless Debconf::Config->noninteractive_seen eq 'true'; + } + + my $element; + if ($visible) { + $element=$this->frontend->makeelement($question); + unless ($element) { + return $codes{internalerror}, + "unable to make an input element"; + } + + $visible=$element->visible; + } + + if (! $visible) { + $element=Debconf::FrontEnd::Noninteractive->makeelement($question, 1); + + return $codes{input_invisible}, "question skipped" unless $element; + } + + $element->markseen($markseen); + + push @{$this->busy}, $question_name; + + $this->frontend->add($element); + if ($element->visible) { + return $codes{success}, "question will be asked"; + } + else { + return $codes{input_invisible}, "question skipped"; + } +} + + +sub command_clear { + my $this=shift; + return $codes{syntaxerror}, "Incorrect number of arguments" if @_ != 0; + + $this->frontend->clear; + $this->busy([]); + return $codes{success}; +} + + +sub command_version { + my $this=shift; + return $codes{syntaxerror}, "Incorrect number of arguments" if @_ > 1; + my $version=shift; + if (defined $version) { + return $codes{version_bad}, "Version too low ($version)" + if int($version) < int($this->version); + return $codes{version_bad}, "Version too high ($version)" + if int($version) > int($this->version); + } + return $codes{success}, $this->version; +} + + +sub command_capb { + my $this=shift; + $this->client_capb([@_]); + $this->frontend->capb_backup(1) if grep { $_ eq 'backup' } @_; + my @capb=('multiselect', 'escape'); + push @capb, $this->frontend->capb; + return $codes{success}, @capb; +} + + +sub command_title { + my $this=shift; + $this->frontend->title(join ' ', @_); + $this->frontend->requested_title($this->frontend->title); + + return $codes{success}; +} + + +sub command_settitle { + my $this=shift; + + return $codes{syntaxerror}, "Incorrect number of arguments" if @_ != 1; + my $question_name=shift; + + my $question=Debconf::Question->get($question_name) || + return $codes{badparams}, "\"$question_name\" doesn't exist"; + + if ($this->frontend->can('settitle')) { + $this->frontend->settitle($question); + } else { + $this->frontend->title($question->description); + } + $this->frontend->requested_title($this->frontend->title); + + return $codes{success}; +} + + +sub command_beginblock { + return $codes{success}; +} +sub command_endblock { + return $codes{success}; +} + + +sub command_go { + my $this=shift; + return $codes{syntaxerror}, "Incorrect number of arguments" if @_ > 0; + + my $ret=$this->frontend->go; + if ($ret && (! $this->backed_up || + grep { $_->visible } @{$this->frontend->elements})) { + foreach (@{$this->frontend->elements}) { + $_->question->value($_->value); + push @{$this->seen}, $_->question if $_->markseen && $_->question; + } + $this->frontend->clear; + $this->busy([]); + $this->backed_up(''); + return $codes{success}, "ok" + } + else { + $this->frontend->clear; + $this->busy([]); + $this->backed_up(1); + return $codes{go_back}, "backup"; + } +} + + +sub command_get { + my $this=shift; + return $codes{syntaxerror}, "Incorrect number of arguments" if @_ != 1; + my $question_name=shift; + my $question=Debconf::Question->get($question_name) || + return $codes{badparams}, "$question_name doesn't exist"; + + my $value=$question->value; + if (defined $value) { + if (defined $this->client_capb and grep { $_ eq 'escape' } @{$this->client_capb}) { + return $codes{escaped_data}, escape($value); + } else { + return $codes{success}, $value; + } + } + else { + return $codes{success}, ''; + } +} + + +sub command_set { + my $this=shift; + return $codes{syntaxerror}, "Incorrect number of arguments" if @_ < 1; + my $question_name=shift; + my $value=join(" ", @_); + + my $question=Debconf::Question->get($question_name) || + return $codes{badparams}, "$question_name doesn't exist"; + $question->value($value); + return $codes{success}, "value set"; +} + + +sub command_reset { + my $this=shift; + return $codes{syntaxerror}, "Incorrect number of arguments" if @_ != 1; + my $question_name=shift; + + my $question=Debconf::Question->get($question_name) || + return $codes{badparams}, "$question_name doesn't exist"; + $question->value($question->default); + $question->flag('seen', 'false'); + return $codes{success}; +} + + +sub command_subst { + my $this = shift; + return $codes{syntaxerror}, "Incorrect number of arguments" if @_ < 2; + my $question_name = shift; + my $variable = shift; + my $value = (join ' ', @_); + + my $question=Debconf::Question->get($question_name) || + return $codes{badparams}, "$question_name doesn't exist"; + my $result=$question->variable($variable,$value); + return $codes{internalerror}, "Substitution failed" unless defined $result; + return $codes{success}; +} + + +sub command_register { + my $this=shift; + return $codes{syntaxerror}, "Incorrect number of arguments" if @_ != 2; + my $template=shift; + my $name=shift; + + my $tempobj = Debconf::Question->get($template); + if (! $tempobj) { + return $codes{badparams}, "No such template, \"$template\""; + } + my $question=Debconf::Question->get($name) || + Debconf::Question->new($name, $this->owner, $tempobj->type); + if (! $question) { + return $codes{internalerror}, "Internal error making question"; + } + if (! defined $question->addowner($this->owner, $tempobj->type)) { + return $codes{internalerror}, "Internal error adding owner"; + } + if (! $question->template($template)) { + return $codes{internalerror}, "Internal error setting template"; + } + + return $codes{success}; +} + + +sub command_unregister { + my $this=shift; + return $codes{syntaxerror}, "Incorrect number of arguments" if @_ != 1; + my $name=shift; + + my $question=Debconf::Question->get($name) || + return $codes{badparams}, "$name doesn't exist"; + if (grep { $_ eq $name } @{$this->busy}) { + return $codes{badparams}, "$name is busy, cannot unregister right now"; + } + $question->removeowner($this->owner); + return $codes{success}; +} + + +sub command_purge { + my $this=shift; + return $codes{syntaxerror}, "Incorrect number of arguments" if @_ > 0; + + my $iterator=Debconf::Question->iterator; + while (my $q=$iterator->iterate) { + $q->removeowner($this->owner); + } + + return $codes{success}; +} + + +sub command_metaget { + my $this=shift; + return $codes{syntaxerror}, "Incorrect number of arguments" if @_ != 2; + my $question_name=shift; + my $field=shift; + + my $question=Debconf::Question->get($question_name) || + return $codes{badparams}, "$question_name doesn't exist"; + my $lcfield=lc $field; + my $fieldval=$question->$lcfield(); + unless (defined $fieldval) { + return $codes{badparams}, "$field does not exist"; + } + if (defined $this->client_capb and grep { $_ eq 'escape' } @{$this->client_capb}) { + return $codes{escaped_data}, escape($fieldval); + } else { + return $codes{success}, $fieldval; + } +} + + +sub command_fget { + my $this=shift; + return $codes{syntaxerror}, "Incorrect number of arguments" if @_ != 2; + my $question_name=shift; + my $flag=shift; + + my $question=Debconf::Question->get($question_name) || + return $codes{badparams}, "$question_name doesn't exist"; + + return $codes{success}, $question->flag($flag); +} + + +sub command_fset { + my $this=shift; + return $codes{syntaxerror}, "Incorrect number of arguments" if @_ < 3; + my $question_name=shift; + my $flag=shift; + my $value=(join ' ', @_); + + my $question=Debconf::Question->get($question_name) || + return $codes{badparams}, "$question_name doesn't exist"; + + if ($flag eq 'seen') { + $this->seen([grep {$_ ne $question} @{$this->seen}]); + } + + return $codes{success}, $question->flag($flag, $value); +} + + +sub command_info { + my $this=shift; + + if (@_ == 0) { + $this->frontend->info(undef); + } elsif (@_ == 1) { + my $question_name=shift; + + my $question=Debconf::Question->get($question_name) || + return $codes{badparams}, "\"$question_name\" doesn't exist"; + + $this->frontend->info($question); + } else { + return $codes{syntaxerror}, "Incorrect number of arguments"; + } + + return $codes{success}; +} + + +sub command_progress { + my $this=shift; + return $codes{syntaxerror}, "Incorrect number of arguments" if @_ < 1; + my $subcommand=shift; + $subcommand=lc($subcommand); + + my $ret; + + if ($subcommand eq 'start') { + return $codes{syntaxerror}, "Incorrect number of arguments" if @_ != 3; + my $min=shift; + my $max=shift; + my $question_name=shift; + + return $codes{syntaxerror}, "min ($min) > max ($max)" if $min > $max; + + my $question=Debconf::Question->get($question_name) || + return $codes{badparams}, "$question_name doesn't exist"; + + $this->frontend->progress_start($min, $max, $question); + $ret=1; + } + elsif ($subcommand eq 'set') { + return $codes{syntaxerror}, "Incorrect number of arguments" if @_ != 1; + my $value=shift; + $ret = $this->frontend->progress_set($value); + } + elsif ($subcommand eq 'step') { + return $codes{syntaxerror}, "Incorrect number of arguments" if @_ != 1; + my $inc=shift; + $ret = $this->frontend->progress_step($inc); + } + elsif ($subcommand eq 'info') { + return $codes{syntaxerror}, "Incorrect number of arguments" if @_ != 1; + my $question_name=shift; + + my $question=Debconf::Question->get($question_name) || + return $codes{badparams}, "$question_name doesn't exist"; + + $ret = $this->frontend->progress_info($question); + } + elsif ($subcommand eq 'stop') { + return $codes{syntaxerror}, "Incorrect number of arguments" if @_ != 0; + $this->frontend->progress_stop(); + $ret=1; + } + else { + return $codes{syntaxerror}, "Unknown subcommand"; + } + + if ($ret) { + return $codes{success}, "OK"; + } + else { + return $codes{progresscancel}, "CANCELED"; + } +} + + +sub command_data { + my $this=shift; + return $codes{syntaxerror}, "Incorrect number of arguments" if @_ < 3; + my $template=shift; + my $item=shift; + my $value=join(' ', @_); + $value=~s/\\([n"\\])/($1 eq 'n') ? "\n" : $1/eg; + + my $tempobj=Debconf::Template->get($template); + if (! $tempobj) { + if ($item ne 'type') { + return $codes{badparams}, "Template data field '$item' received before type field"; + } + $tempobj=Debconf::Template->new($template, $this->owner, $value); + if (! $tempobj) { + return $codes{internalerror}, "Internal error making template"; + } + } else { + if ($item eq 'type') { + return $codes{badparams}, "Template type already set"; + } + $tempobj->$item(Debconf::Encoding::convert("UTF-8", $value)); + } + + return $codes{success}; +} + + +sub command_visible { + my $this=shift; + return $codes{syntaxerror}, "Incorrect number of arguments" if @_ != 2; + my $priority=shift; + my $question_name=shift; + + my $question=Debconf::Question->get($question_name) || + return $codes{badparams}, "$question_name doesn't exist"; + return $codes{success}, $this->frontend->visible($question, $priority) ? "true" : "false"; +} + + +sub command_exist { + my $this=shift; + return $codes{syntaxerror}, "Incorrect number of arguments" if @_ != 1; + my $question_name=shift; + + return $codes{success}, + Debconf::Question->get($question_name) ? "true" : "false"; +} + + +sub command_x_loadtemplatefile { + my $this=shift; + + return $codes{syntaxerror}, "Incorrect number of arguments" if @_ < 1 || @_ > 2; + + my $file=shift; + my $fh=FileHandle->new($file); + if (! $fh) { + return $codes{badparams}, "failed to open $file: $!"; + } + + my $owner=$this->owner; + if (@_) { + $owner=shift; + } + + eval { + Debconf::Template->load($fh, $owner); + }; + if ($@) { + $@=~s/\n/\\n/g; + return $codes{internalerror}, $@; + } + return $codes{success}; +} + + +sub AUTOLOAD { + (my $field = our $AUTOLOAD) =~ s/.*://; + + no strict 'refs'; + *$AUTOLOAD = sub { + my $this=shift; + + return $this->{$field} unless @_; + return $this->{$field}=shift; + }; + goto &$AUTOLOAD; +} + + +sub DESTROY { + my $this=shift; + + $this->read_handle->close if $this->read_handle; + $this->write_handle->close if $this->write_handle; + + if (defined $this->pid && $this->pid > 1) { + kill 'TERM', $this->pid; + } +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Config.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Config.pm new file mode 100644 index 0000000..2f17f05 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Config.pm @@ -0,0 +1,293 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Config; +use strict; +use Debconf::Question; +use Debconf::Gettext; +use Debconf::Priority qw(priority_valid priority_list); +use Debconf::Log qw(warn); +use Debconf::Db; + +use fields qw(config templates frontend frontend_forced priority terse reshow + admin_email log debug nowarnings smileys sigils + noninteractive_seen c_values); +our $config=fields::new('Debconf::Config'); + +our @config_files=("/etc/debconf.conf", "/usr/share/debconf/debconf.conf"); +if ($ENV{DEBCONF_SYSTEMRC}) { + unshift @config_files, $ENV{DEBCONF_SYSTEMRC}; +} else { + unshift @config_files, ((getpwuid($>))[7])."/.debconfrc"; +} + + +sub _hashify ($$) { + my $text=shift; + my $hash=shift; + + $text =~ s/\${([^}]+)}/$ENV{$1}/eg; + + my %ret; + my $i; + foreach my $line (split /\n/, $text) { + next if $line=~/^\s*#/; # comment + next if $line=~/^\s*$/; # blank + $line=~s/^\s+//; + $line=~s/\s+$//; + $i++; + my ($key, $value)=split(/\s*:\s*/, $line, 2); + $key=~tr/-/_/; + die "Parse error" unless defined $key and length $key; + $hash->{lc($key)}=$value; + } + return $i; +} + +sub _env_to_driver { + my $value=shift; + + my ($name, $options) = $value =~ m/^(\w+)(?:{(.*)})?$/; + return unless $name; + + return $name if Debconf::DbDriver->driver($name); + + my %hash = @_; # defaults from params + $hash{driver} = $name; + + if (defined $options) { + foreach (split ' ', $options) { + if (/^(\w+):(.*)/) { + $hash{$1}=$2; + } + else { + $hash{filename}=$_; + } + } + } + return Debconf::Db->makedriver(%hash)->{name}; +} + +sub load { + my $class=shift; + my $cf=shift; + my @defaults=@_; + + if (! $cf) { + for my $file (@config_files) { + $cf=$file, last if -e $file; + } + } + die "No config file found" unless $cf; + + open (DEBCONF_CONFIG, $cf) or die "$cf: $!\n"; + local $/="\n\n"; # read a stanza at a time + + 1 until _hashify(<DEBCONF_CONFIG>, $config) || eof DEBCONF_CONFIG; + + if (! exists $config->{config}) { + print STDERR "debconf: ".gettext("Config database not specified in config file.")."\n"; + exit(1); + } + if (! exists $config->{templates}) { + print STDERR "debconf: ".gettext("Template database not specified in config file.")."\n"; + exit(1); + } + + if (exists $config->{sigils} || exists $config->{smileys}) { + print STDERR "debconf: ".gettext("The Sigils and Smileys options in the config file are no longer used. Please remove them.")."\n"; + } + + while (<DEBCONF_CONFIG>) { + my %config=(@defaults); + if (exists $ENV{DEBCONF_DB_REPLACE}) { + $config{readonly} = "true"; + } + next unless _hashify($_, \%config); + eval { + Debconf::Db->makedriver(%config); + }; + if ($@) { + print STDERR "debconf: ".sprintf(gettext("Problem setting up the database defined by stanza %s of %s."),$., $cf)."\n"; + die $@; + } + } + close DEBCONF_CONFIG; + + if (exists $ENV{DEBCONF_DB_REPLACE}) { + $config->{config} = _env_to_driver($ENV{DEBCONF_DB_REPLACE}, + name => "_ENV_REPLACE"); + Debconf::Db->makedriver( + driver => "Pipe", + name => "_ENV_REPLACE_templates", + infd => "none", + outfd => "none", + ); + my @template_stack = ("_ENV_REPLACE_templates", $config->{templates}); + Debconf::Db->makedriver( + driver => "Stack", + name => "_ENV_stack_templates", + stack => join(", ", @template_stack), + ); + $config->{templates} = "_ENV_stack_templates"; + } + + my @finalstack = ($config->{config}); + if (exists $ENV{DEBCONF_DB_OVERRIDE}) { + unshift @finalstack, _env_to_driver($ENV{DEBCONF_DB_OVERRIDE}, + name => "_ENV_OVERRIDE"); + } + if (exists $ENV{DEBCONF_DB_FALLBACK}) { + push @finalstack, _env_to_driver($ENV{DEBCONF_DB_FALLBACK}, + name => "_ENV_FALLBACK", + readonly => "true"); + } + if (@finalstack > 1) { + Debconf::Db->makedriver( + driver => "Stack", + name => "_ENV_stack", + stack => join(", ", @finalstack), + ); + $config->{config} = "_ENV_stack"; + } +} + + +sub getopt { + my $class=shift; + my $usage=shift; + + my $showusage=sub { # closure + print STDERR $usage."\n"; + print STDERR gettext(<<EOF); + -f, --frontend Specify debconf frontend to use. + -p, --priority Specify minimum priority question to show. + --terse Enable terse mode. +EOF + exit 1; + }; + + return unless grep { $_ =~ /^-/ } @ARGV; + + require Getopt::Long; + Getopt::Long::Configure('bundling'); + Getopt::Long::GetOptions( + 'frontend|f=s', sub { shift; $class->frontend(shift); $config->frontend_forced(1) }, + 'priority|p=s', sub { shift; $class->priority(shift) }, + 'terse', sub { $config->{terse} = 'true' }, + 'help|h', $showusage, + @_, + ) || $showusage->(); +} + + +sub frontend { + my $class=shift; + + return $ENV{DEBIAN_FRONTEND} if exists $ENV{DEBIAN_FRONTEND}; + $config->{frontend}=shift if @_; + return $config->{frontend} if exists $config->{frontend}; + + my $ret='dialog'; + my $question=Debconf::Question->get('debconf/frontend'); + if ($question) { + $ret=lcfirst($question->value) || $ret; + } + return $ret; +} + + +sub frontend_forced { + my ($class, $val) = @_; + $config->{frontend_forced} = $val + if defined $val || exists $ENV{DEBIAN_FRONTEND}; + return $config->{frontend_forced} ? 1 : 0; +} + + +sub priority { + my $class=shift; + return $ENV{DEBIAN_PRIORITY} if exists $ENV{DEBIAN_PRIORITY}; + if (@_) { + my $newpri=shift; + if (! priority_valid($newpri)) { + warn(sprintf(gettext("Ignoring invalid priority \"%s\""), $newpri)); + warn(sprintf(gettext("Valid priorities are: %s"), join(" ", priority_list))); + } + else { + $config->{priority}=$newpri; + } + } + return $config->{priority} if exists $config->{priority}; + + my $ret='high'; + my $question=Debconf::Question->get('debconf/priority'); + if ($question) { + $ret=$question->value || $ret; + } + return $ret; +} + + +sub terse { + my $class=shift; + return $ENV{DEBCONF_TERSE} if exists $ENV{DEBCONF_TERSE}; + $config->{terse}=$_[0] if @_; + return $config->{terse} if exists $config->{terse}; + return 'false'; +} + + +sub nowarnings { + my $class=shift; + return $ENV{DEBCONF_NOWARNINGS} if exists $ENV{DEBCONF_NOWARNINGS}; + $config->{nowarnings}=$_[0] if @_; + return $config->{nowarnings} if exists $config->{nowarnings}; + return 'false'; +} + + +sub debug { + my $class=shift; + return $ENV{DEBCONF_DEBUG} if exists $ENV{DEBCONF_DEBUG}; + return $config->{debug} if exists $config->{debug}; + return ''; +} + + +sub admin_email { + my $class=shift; + return $ENV{DEBCONF_ADMIN_EMAIL} if exists $ENV{DEBCONF_ADMIN_EMAIL}; + return $config->{admin_email} if exists $config->{admin_email}; + return 'root'; +} + + +sub noninteractive_seen { + my $class=shift; + return $ENV{DEBCONF_NONINTERACTIVE_SEEN} if exists $ENV{DEBCONF_NONINTERACTIVE_SEEN}; + return $config->{noninteractive_seen} if exists $config->{noninteractive_seen}; + return 'false'; +} + + +sub c_values { + my $class=shift; + return $ENV{DEBCONF_C_VALUES} if exists $ENV{DEBCONF_C_VALUES}; + return $config->{c_values} if exists $config->{c_values}; + return 'false'; +} + + +sub AUTOLOAD { + (my $field = our $AUTOLOAD) =~ s/.*://; + my $class=shift; + + return $config->{$field}=shift if @_; + return $config->{$field} if defined $config->{$field}; + return ''; +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Db.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Db.pm new file mode 100644 index 0000000..388b22a --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Db.pm @@ -0,0 +1,57 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Db; +use strict; +use Debconf::Log qw{:all}; +use Debconf::Config; +use Debconf::DbDriver; +our $config; +our $templates; + + +sub load { + my $class=shift; + + Debconf::Config->load('', @_); # load default config file + $config=Debconf::DbDriver->driver(Debconf::Config->config); + if (not ref $config) { + die "Configuration database \"".Debconf::Config->config. + "\" was not initialized.\n"; + } + $templates=Debconf::DbDriver->driver(Debconf::Config->templates); + if (not ref $templates) { + die "Template database \"".Debconf::Config->templates. + "\" was not initialized.\n"; + } +} + + +sub makedriver { + my $class=shift; + my %config=@_; + + my $type=$config{driver} or die "driver type not specified (perhaps you need to re-read debconf.conf(5))"; + + if (! UNIVERSAL::can("Debconf::DbDriver::$type", 'new')) { + eval qq{use Debconf::DbDriver::$type}; + die $@ if $@; + } + delete $config{driver}; # not a field for the object + + debug db => "making DbDriver of type $type"; + "Debconf::DbDriver::$type"->new(%config); +} + + +sub save { + + $config->shutdown if $config; + $templates->shutdown if $templates; + $config=''; + $templates=''; +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/DbDriver.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/DbDriver.pm new file mode 100644 index 0000000..bd5edac --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/DbDriver.pm @@ -0,0 +1,112 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::DbDriver; +use Debconf::Log qw{:all}; +use strict; +use base 1.01; # ensure that they don't have a broken perl installation + + + +use fields qw(name readonly required backup failed + accept_type reject_type accept_name reject_name); + +our %drivers; + + +sub new { + my Debconf::DbDriver $this=shift; + unless (ref $this) { + $this = fields::new($this); + } + $this->{required}=1; + $this->{readonly}=0; + $this->{failed}=0; + my %params=@_; + foreach my $field (keys %params) { + if ($field eq 'readonly' || $field eq 'required' || $field eq 'backup') { + $this->{$field}=1,next if lc($params{$field}) eq "true"; + $this->{$field}=0,next if lc($params{$field}) eq "false"; + } + elsif ($field=~/^(accept|reject)_/) { + $this->{$field}=qr/$params{$field}/i; + } + $this->{$field}=$params{$field}; + } + unless (exists $this->{name}) { + $this->{name}="(unknown)"; + $this->error("no name specified"); + } + $drivers{$this->{name}} = $this; + $this->init; + return $this; +} + + +sub init {} + + +sub error { + my $this=shift; + + if ($this->{required}) { + warn('DbDriver "'.$this->{name}.'":', @_); + exit 1; + } + else { + warn('DbDriver "'.$this->{name}.'" warning:', @_); + } +} + + +sub driver { + my $this=shift; + my $name=shift; + + return $drivers{$name}; +} + + +sub accept { + my $this=shift; + my $name=shift; + my $type=shift; + + return if $this->{failed}; + + if ((exists $this->{accept_name} && $name !~ /$this->{accept_name}/) || + (exists $this->{reject_name} && $name =~ /$this->{reject_name}/)) { + debug "db $this->{name}" => "reject $name"; + return; + } + + if (exists $this->{accept_type} || exists $this->{reject_type}) { + if (! defined $type || ! length $type) { + my $template = Debconf::Template->get($this->getfield($name, 'template')); + return 1 unless $template; # no type to act on + $type=$template->type || ''; + } + return if exists $this->{accept_type} && $type !~ /$this->{accept_type}/; + return if exists $this->{reject_type} && $type =~ /$this->{reject_type}/; + } + + return 1; +} + + +sub ispassword { + my $this=shift; + my $item=shift; + + my $template=$this->getfield($item, 'template'); + return unless defined $template; + $template=Debconf::Template->get($template); + return unless $template; + my $type=$template->type || ''; + return 1 if $type eq 'password'; + return 0; +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/DbDriver/Backup.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/DbDriver/Backup.pm new file mode 100644 index 0000000..73206dc --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/DbDriver/Backup.pm @@ -0,0 +1,81 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::DbDriver::Backup; +use strict; +use Debconf::Log qw{:all}; +use base 'Debconf::DbDriver::Copy'; + + + +use fields qw(db backupdb); + + +sub init { + my $this=shift; + + foreach my $f (qw(db backupdb)) { + if (! ref $this->{$f}) { + my $db=$this->driver($this->{$f}); + unless (defined $f) { + $this->error("could not find a db named \"$this->{$f}\""); + } + $this->{$f}=$db; + } + } +} + + +sub copy { + my $this=shift; + my $item=shift; + + $this->SUPER::copy($item, $this->{db}, $this->{backupdb}); +} + + +sub shutdown { + my $this=shift; + + $this->{backupdb}->shutdown(@_); + $this->{db}->shutdown(@_); +} + +sub _query { + my $this=shift; + my $command=shift; + shift; # this again + + return $this->{db}->$command(@_); +} + +sub _change { + my $this=shift; + my $command=shift; + shift; # this again + + my $ret=$this->{db}->$command(@_); + if (defined $ret) { + $this->{backupdb}->$command(@_); + } + return $ret; +} + +sub iterator { $_[0]->_query('iterator', @_) } +sub exists { $_[0]->_query('exists', @_) } +sub addowner { $_[0]->_change('addowner', @_) } +sub removeowner { $_[0]->_change('removeowner', @_) } +sub owners { $_[0]->_query('owners', @_) } +sub getfield { $_[0]->_query('getfield', @_) } +sub setfield { $_[0]->_change('setfield', @_) } +sub fields { $_[0]->_query('fields', @_) } +sub getflag { $_[0]->_query('getflag', @_) } +sub setflag { $_[0]->_change('setflag', @_) } +sub flags { $_[0]->_query('flags', @_) } +sub getvariable { $_[0]->_query('getvariable', @_) } +sub setvariable { $_[0]->_change('setvariable', @_) } +sub variables { $_[0]->_query('variables', @_) } + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/DbDriver/Cache.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/DbDriver/Cache.pm new file mode 100644 index 0000000..0072407 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/DbDriver/Cache.pm @@ -0,0 +1,271 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::DbDriver::Cache; +use strict; +use Debconf::Log qw{:all}; +use base 'Debconf::DbDriver'; + + +use fields qw(cache dirty); + + +sub iterator { + my $this=shift; + my $subiterator=shift; + + my @items=keys %{$this->{cache}}; + my $iterator=Debconf::Iterator->new(callback => sub { + while (my $item = pop @items) { + next unless defined $this->{cache}->{$item}; + return $item; + } + return unless $subiterator; + my $ret; + do { + $ret=$subiterator->iterate; + } while defined $ret and exists $this->{cache}->{$ret}; + return $ret; + }); + return $iterator; +} + + +sub exists { + my $this=shift; + my $item=shift; + + return $this->{cache}->{$item} + if exists $this->{cache}->{$item}; + return 0; +} + + +sub init { + my $this=shift; + + $this->{cache} = {} unless exists $this->{cache}; +} + + +sub cacheadd { + my $this=shift; + my $item=shift; + my $entry=shift; + + return if exists $this->{cache}->{$item}; + + $this->{cache}->{$item}=$entry; + $this->{dirty}->{$item}=0; +} + + +sub cachedata { + my $this=shift; + my $item=shift; + + return $this->{cache}->{$item}; +} + + +sub cached { + my $this=shift; + my $item=shift; + + unless (exists $this->{cache}->{$item}) { + debug "db $this->{name}" => "cache miss on $item"; + $this->load($item); + } + return $this->{cache}->{$item}; +} + + +sub shutdown { + my $this=shift; + + return if $this->{readonly}; + + my $ret=1; + foreach my $item (keys %{$this->{cache}}) { + if (not defined $this->{cache}->{$item}) { + $ret=undef unless defined $this->remove($item); + delete $this->{cache}->{$item}; + } + elsif ($this->{dirty}->{$item}) { + $ret=undef unless defined $this->save($item, $this->{cache}->{$item}); + $this->{dirty}->{$item}=0; + } + } + return $ret; +} + + +sub addowner { + my $this=shift; + my $item=shift; + my $owner=shift; + my $type=shift; + + return if $this->{readonly}; + $this->cached($item); + + if (! defined $this->{cache}->{$item}) { + return if ! $this->accept($item, $type); + debug "db $this->{name}" => "creating in-cache $item"; + $this->{cache}->{$item}={ + owners => {}, + fields => {}, + variables => {}, + flags => {}, + } + } + + if (! exists $this->{cache}->{$item}->{owners}->{$owner}) { + $this->{cache}->{$item}->{owners}->{$owner}=1; + $this->{dirty}->{$item}=1; + } + return $owner; +} + + +sub removeowner { + my $this=shift; + my $item=shift; + my $owner=shift; + + return if $this->{readonly}; + return unless $this->cached($item); + + if (exists $this->{cache}->{$item}->{owners}->{$owner}) { + delete $this->{cache}->{$item}->{owners}->{$owner}; + $this->{dirty}->{$item}=1; + } + unless (keys %{$this->{cache}->{$item}->{owners}}) { + $this->{cache}->{$item}=undef; + $this->{dirty}->{$item}=1; + } + return $owner; +} + + +sub owners { + my $this=shift; + my $item=shift; + + return unless $this->cached($item); + return keys %{$this->{cache}->{$item}->{owners}}; +} + + +sub getfield { + my $this=shift; + my $item=shift; + my $field=shift; + + return unless $this->cached($item); + return $this->{cache}->{$item}->{fields}->{$field}; +} + + +sub setfield { + my $this=shift; + my $item=shift; + my $field=shift; + my $value=shift; + + return if $this->{readonly}; + return unless $this->cached($item); + $this->{dirty}->{$item}=1; + return $this->{cache}->{$item}->{fields}->{$field} = $value; +} + + +sub removefield { + my $this=shift; + my $item=shift; + my $field=shift; + + return if $this->{readonly}; + return unless $this->cached($item); + $this->{dirty}->{$item}=1; + return delete $this->{cache}->{$item}->{fields}->{$field}; +} + + +sub fields { + my $this=shift; + my $item=shift; + + return unless $this->cached($item); + return keys %{$this->{cache}->{$item}->{fields}}; +} + + +sub getflag { + my $this=shift; + my $item=shift; + my $flag=shift; + + return unless $this->cached($item); + return $this->{cache}->{$item}->{flags}->{$flag} + if exists $this->{cache}->{$item}->{flags}->{$flag}; + return 'false'; +} + + +sub setflag { + my $this=shift; + my $item=shift; + my $flag=shift; + my $value=shift; + + return if $this->{readonly}; + return unless $this->cached($item); + $this->{dirty}->{$item}=1; + return $this->{cache}->{$item}->{flags}->{$flag} = $value; +} + + +sub flags { + my $this=shift; + my $item=shift; + + return unless $this->cached($item); + return keys %{$this->{cache}->{$item}->{flags}}; +} + + +sub getvariable { + my $this=shift; + my $item=shift; + my $variable=shift; + + return unless $this->cached($item); + return $this->{cache}->{$item}->{variables}->{$variable}; +} + + +sub setvariable { + my $this=shift; + my $item=shift; + my $variable=shift; + my $value=shift; + + return if $this->{readonly}; + return unless $this->cached($item); + $this->{dirty}->{$item}=1; + return $this->{cache}->{$item}->{variables}->{$variable} = $value; +} + + +sub variables { + my $this=shift; + my $item=shift; + + return unless $this->cached($item); + return keys %{$this->{cache}->{$item}->{variables}}; +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/DbDriver/Copy.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/DbDriver/Copy.pm new file mode 100644 index 0000000..d4b3c71 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/DbDriver/Copy.pm @@ -0,0 +1,41 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::DbDriver::Copy; +use strict; +use Debconf::Log qw{:all}; +use base 'Debconf::DbDriver'; + + +sub copy { + my $this=shift; + my $item=shift; + my $src=shift; + my $dest=shift; + + debug "db $this->{name}" => "copying $item from $src->{name} to $dest->{name}"; + + my @owners=$src->owners($item); + if (! @owners) { + @owners=("unknown"); + } + foreach my $owner (@owners) { + my $template = Debconf::Template->get($src->getfield($item, 'template')); + my $type=""; + $type = $template->type if $template; + $dest->addowner($item, $owner, $type); + } + foreach my $field ($src->fields($item)) { + $dest->setfield($item, $field, $src->getfield($item, $field)); + } + foreach my $flag ($src->flags($item)) { + $dest->setflag($item, $flag, $src->getflag($item, $flag)); + } + foreach my $var ($src->variables($item)) { + $dest->setvariable($item, $var, $src->getvariable($item, $var)); + } +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/DbDriver/Debug.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/DbDriver/Debug.pm new file mode 100644 index 0000000..e5af031 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/DbDriver/Debug.pm @@ -0,0 +1,52 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::DbDriver::Debug; +use strict; +use Debconf::Log qw{:all}; +use base 'Debconf::DbDriver'; + + + +use fields qw(db); + + +sub init { + my $this=shift; + + if (! ref $this->{db}) { + $this->{db}=$this->driver($this->{db}); + unless (defined $this->{db}) { + $this->error("could not find db"); + } + } +} + +sub DESTROY {} + +sub AUTOLOAD { + my $this=shift; + (my $command = our $AUTOLOAD) =~ s/.*://; + + debug "db $this->{name}" => "running $command(".join(",", map { "'$_'" } @_).") .."; + if (wantarray) { + my @ret=$this->{db}->$command(@_); + debug "db $this->{name}" => "$command returned (".join(", ", @ret).")"; + return @ret if @ret; + } + else { + my $ret=$this->{db}->$command(@_); + if (defined $ret) { + debug "db $this->{name}" => "$command returned \'$ret\'"; + return $ret; + } + else { + debug "db $this->{name}" => "$command returned undef"; + } + } + return; # failure +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/DbDriver/DirTree.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/DbDriver/DirTree.pm new file mode 100644 index 0000000..8447e20 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/DbDriver/DirTree.pm @@ -0,0 +1,103 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::DbDriver::DirTree; +use strict; +use Debconf::Log qw(:all); +use base 'Debconf::DbDriver::Directory'; + + +sub init { + my $this=shift; + if (! defined $this->{extension} or ! length $this->{extension}) { + $this->{extension}=".dat"; + } + $this->SUPER::init(@_); +} + + +sub save { + my $this=shift; + my $item=shift; + + return unless $this->accept($item); + return if $this->{readonly}; + + my @dirs=split(m:/:, $this->filename($item)); + pop @dirs; # the base filename + my $base=$this->{directory}; + foreach (@dirs) { + $base.="/$_"; + next if -d $base; + mkdir $base or $this->error("mkdir $base: $!"); + } + + $this->SUPER::save($item, @_); +} + + +sub filename { + my $this=shift; + my $item=shift; + $item =~ s/\.\.//g; + return $item.$this->{extension}; +} + + +sub iterator { + my $this=shift; + + my @stack=(); + my $currentdir=""; + my $handle; + opendir($handle, $this->{directory}) or + $this->error("opendir: $this->{directory}: $!"); + + my $iterator=Debconf::Iterator->new(callback => sub { + my $i; + while ($handle or @stack) { + while (@stack and not $handle) { + $currentdir=pop @stack; + opendir($handle, "$this->{directory}/$currentdir") or + $this->error("opendir: $this->{directory}/$currentdir: $!"); + } + $i=readdir($handle); + if (not defined $i) { + closedir $handle; + $handle=undef; + next; + } + next if $i eq '.lock' || $i =~ /-old$/; + if (-d "$this->{directory}/$currentdir$i") { + if ($i ne '..' and $i ne '.') { + push @stack, "$currentdir$i/"; + } + next; + } + next unless $i=~s/$this->{extension}$//; + return $currentdir.$i; + } + return undef; + }); + + $this->SUPER::iterator($iterator); +} + + +sub remove { + my $this=shift; + my $item=shift; + + my $ret=$this->SUPER::remove($item); + return $ret unless $ret; + + my $dir=$this->filename($item); + while ($dir=~s:(.*)/[^/]*:$1: and length $dir) { + rmdir "$this->{directory}/$dir" or last; # not empty, I presume + } + return $ret; +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/DbDriver/Directory.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/DbDriver/Directory.pm new file mode 100644 index 0000000..c9fbbaf --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/DbDriver/Directory.pm @@ -0,0 +1,152 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::DbDriver::Directory; +use strict; +use Debconf::Log qw(:all); +use IO::File; +use POSIX (); +use Fcntl qw(:DEFAULT :flock); +use Debconf::Iterator; +use base 'Debconf::DbDriver::Cache'; + + +use fields qw(directory extension lock format); + + +sub init { + my $this=shift; + + $this->{extension} = "" unless exists $this->{extension}; + $this->{format} = "822" unless exists $this->{format}; + $this->{backup} = 1 unless exists $this->{backup}; + + $this->error("No format specified") unless $this->{format}; + eval "use Debconf::Format::$this->{format}"; + if ($@) { + $this->error("Error setting up format object $this->{format}: $@"); + } + $this->{format}="Debconf::Format::$this->{format}"->new; + if (not ref $this->{format}) { + $this->error("Unable to make format object"); + } + + $this->error("No directory specified") unless $this->{directory}; + if (not -d $this->{directory} and not $this->{readonly}) { + mkdir $this->{directory} || + $this->error("mkdir $this->{directory}:$!"); + } + if (not -d $this->{directory}) { + $this->error($this->{directory}." does not exist"); + } + debug "db $this->{name}" => "started; directory is $this->{directory}"; + + if (! $this->{readonly}) { + open ($this->{lock}, ">".$this->{directory}."/.lock") or + $this->error("could not lock $this->{directory}: $!"); + while (! flock($this->{lock}, LOCK_EX | LOCK_NB)) { + next if $! == &POSIX::EINTR; + $this->error("$this->{directory} is locked by another process: $!"); + last; + } + } +} + + +sub load { + my $this=shift; + my $item=shift; + + debug "db $this->{name}" => "loading $item"; + my $file=$this->{directory}.'/'.$this->filename($item); + return unless -e $file; + + my $fh=IO::File->new; + open($fh, $file) or $this->error("$file: $!"); + $this->cacheadd($this->{format}->read($fh)); + close $fh; +} + + +sub save { + my $this=shift; + my $item=shift; + my $data=shift; + + return unless $this->accept($item); + return if $this->{readonly}; + debug "db $this->{name}" => "saving $item"; + + my $file=$this->{directory}.'/'.$this->filename($item); + + my $fh=IO::File->new; + if ($this->ispassword($item)) { + sysopen($fh, $file."-new", O_WRONLY|O_TRUNC|O_CREAT, 0600) + or $this->error("$file-new: $!"); + } + else { + open($fh, ">$file-new") or $this->error("$file-new: $!"); + } + $this->{format}->beginfile; + $this->{format}->write($fh, $data, $item) + or $this->error("could not write $file-new: $!"); + $this->{format}->endfile; + + $fh->flush or $this->error("could not flush $file-new: $!"); + $fh->sync or $this->error("could not sync $file-new: $!"); + close $fh or $this->error("could not close $file-new: $!"); + + if (-e $file && $this->{backup}) { + rename($file, $file."-old") or + debug "db $this->{name}" => "rename failed: $!"; + } + rename("$file-new", $file) or $this->error("rename failed: $!"); +} + + +sub shutdown { + my $this=shift; + + $this->SUPER::shutdown(@_); + delete $this->{lock}; + return 1; +} + + +sub exists { + my $this=shift; + my $name=shift; + + my $incache=$this->SUPER::exists($name); + return $incache if (!defined $incache or $incache); + + return -e $this->{directory}.'/'.$this->filename($name); +} + + +sub remove { + my $this=shift; + my $name=shift; + + return if $this->{readonly} or not $this->accept($name); + debug "db $this->{name}" => "removing $name"; + my $file=$this->{directory}.'/'.$this->filename($name); + unlink $file or return undef; + if (-e $file."-old") { + unlink $file."-old" or return undef; + } + return 1; +} + + +sub accept { + my $this=shift; + my $name=shift; + + return if $name=~m#\.\./# or $name=~m#/\.\.#; + $this->SUPER::accept($name, @_); +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/DbDriver/File.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/DbDriver/File.pm new file mode 100644 index 0000000..ab09a47 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/DbDriver/File.pm @@ -0,0 +1,138 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::DbDriver::File; +use strict; +use Debconf::Log qw(:all); +use POSIX (); +use Fcntl qw(:DEFAULT :flock); +use IO::Handle; +use base 'Debconf::DbDriver::Cache'; + + +use fields qw(filename mode format _fh); + + +sub init { + my $this=shift; + + if (exists $this->{mode}) { + $this->{mode} = oct($this->{mode}); + } + else { + $this->{mode} = 0600; + } + $this->{format} = "822" unless exists $this->{format}; + $this->{backup} = 1 unless exists $this->{backup}; + + $this->error("No format specified") unless $this->{format}; + eval "use Debconf::Format::$this->{format}"; + if ($@) { + $this->error("Error setting up format object $this->{format}: $@"); + } + $this->{format}="Debconf::Format::$this->{format}"->new; + if (not ref $this->{format}) { + $this->error("Unable to make format object"); + } + + $this->error("No filename specified") unless $this->{filename}; + + debug "db $this->{name}" => "started; filename is $this->{filename}"; + + if (! -e $this->{filename}) { + $this->{backup}=0; + sysopen(my $fh, $this->{filename}, + O_WRONLY|O_TRUNC|O_CREAT,$this->{mode}) or + $this->error("could not open $this->{filename}"); + close $fh; + } + + my $implicit_readonly=0; + if (! $this->{readonly}) { + if (open ($this->{_fh}, "+<", $this->{filename})) { + while (! flock($this->{_fh}, LOCK_EX | LOCK_NB)) { + next if $! == &POSIX::EINTR; + $this->error("$this->{filename} is locked by another process: $!"); + last; + } + } + else { + $implicit_readonly=1; + } + } + if ($this->{readonly} || $implicit_readonly) { + if (! open ($this->{_fh}, "<", $this->{filename})) { + $this->error("could not open $this->{filename}: $!"); + return; # always abort, even if not throwing fatal error + } + } + + $this->SUPER::init(@_); + + debug "db $this->{name}" => "loading database"; + + while (! eof $this->{_fh}) { + my ($item, $cache)=$this->{format}->read($this->{_fh}); + $this->{cache}->{$item}=$cache; + } + if ($this->{readonly} || $implicit_readonly) { + close $this->{_fh}; + } +} + + +sub shutdown { + my $this=shift; + + return if $this->{readonly}; + + if (grep $this->{dirty}->{$_}, keys %{$this->{cache}}) { + debug "db $this->{name}" => "saving database"; + } + else { + debug "db $this->{name}" => "no database changes, not saving"; + + delete $this->{_fh}; + + return 1; + } + + sysopen(my $fh, $this->{filename}."-new", + O_WRONLY|O_TRUNC|O_CREAT,$this->{mode}) or + $this->error("could not write $this->{filename}-new: $!"); + while (! flock($fh, LOCK_EX | LOCK_NB)) { + next if $! == &POSIX::EINTR; + $this->error("$this->{filename}-new is locked by another process: $!"); + last; + } + $this->{format}->beginfile; + foreach my $item (sort keys %{$this->{cache}}) { + next unless defined $this->{cache}->{$item}; # skip deleted + $this->{format}->write($fh, $this->{cache}->{$item}, $item) + or $this->error("could not write $this->{filename}-new: $!"); + } + $this->{format}->endfile; + + $fh->flush or $this->error("could not flush $this->{filename}-new: $!"); + $fh->sync or $this->error("could not sync $this->{filename}-new: $!"); + + if (-e $this->{filename} && $this->{backup}) { + rename($this->{filename}, $this->{filename}."-old") or + debug "db $this->{name}" => "rename failed: $!"; + } + rename($this->{filename}."-new", $this->{filename}) or + $this->error("rename failed: $!"); + + delete $this->{_fh}; + + return 1; +} + + +sub load { + return undef; +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/DbDriver/LDAP.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/DbDriver/LDAP.pm new file mode 100644 index 0000000..f2664f6 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/DbDriver/LDAP.pm @@ -0,0 +1,263 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::DbDriver::LDAP; +use strict; +use Debconf::Log qw(:all); +use Net::LDAP; +use base 'Debconf::DbDriver::Cache'; + + +use fields qw(server port basedn binddn bindpasswd exists keybykey ds accept_attribute reject_attribute); + + +sub binddb { + my $this=shift; + + $this->error("No server specified") unless exists $this->{server}; + $this->error("No Base DN specified") unless exists $this->{basedn}; + + $this->{binddn} = "" unless exists $this->{binddn}; + $this->{port} = 389 unless exists $this->{port}; + + debug "db $this->{name}" => "talking to $this->{server}, data under $this->{basedn}"; + + $this->{ds} = Net::LDAP->new($this->{server}, port => $this->{port}, version => 3); + if (! $this->{ds}) { + $this->error("Unable to connect to LDAP server"); + return; # if not fatal, give up anyway + } + + my $rv = ""; + if (!($this->{binddn} && $this->{bindpasswd})) { + debug "db $this->{name}" => "binding anonymously; hope that's OK"; + $rv = $this->{ds}->bind; + } else { + debug "db $this->{name}" => "binding as $this->{binddn}"; + $rv = $this->{ds}->bind($this->{binddn}, password => $this->{bindpasswd}); + } + if ($rv->code) { + $this->error("Bind Failed: ".$rv->error); + } + + return $this->{ds}; +} + + +sub init { + my $this = shift; + + $this->SUPER::init(@_); + + $this->binddb; + return unless $this->{ds}; + + $this->{exists} = {}; + + if ($this->{keybykey}) { + debug "db $this->{name}" => "will get database data key by key"; + } + else { + debug "db $this->{name}" => "getting database data"; + my $data = $this->{ds}->search(base => $this->{basedn}, sizelimit => 0, timelimit => 0, filter => "(objectclass=debconfDbEntry)"); + if ($data->code) { + $this->error("Search failed: ".$data->error); + } + + my $records = $data->as_struct(); + debug "db $this->{name}" => "Read ".$data->count()." entries"; + + $this->parse_records($records); + + $this->{ds}->unbind; + } +} + + +sub shutdown +{ + my $this = shift; + + return if $this->{readonly}; + + if (grep $this->{dirty}->{$_}, keys %{$this->{cache}}) { + debug "db $this->{name}" => "saving changes"; + } else { + debug "db $this->{name}" => "no database changes, not saving"; + return 1; + } + + unless ($this->{keybykey}) { + $this->binddb; + return unless $this->{ds}; + } + + foreach my $item (keys %{$this->{cache}}) { + next unless defined $this->{cache}->{$item}; # skip deleted + next unless $this->{dirty}->{$item}; # skip unchanged + (my $entry_cn = $item) =~ s/([,+="<>#;])/\\$1/g; + my $entry_dn = "cn=$entry_cn,$this->{basedn}"; + debug "db $this->{name}" => "writing out to $entry_dn"; + + my %data = %{$this->{cache}->{$item}}; + my %modify_data; + my $add_data = [ 'objectclass' => 'top', + 'objectclass' => 'debconfdbentry', + 'cn' => $item + ]; + + my @fields = keys %{$data{fields}}; + foreach my $field (@fields) { + my $ldapname = $field; + if ( $ldapname =~ s/_(\w)/uc($1)/ge ) { + $data{fields}->{$ldapname} = $data{fields}->{$field}; + delete $data{fields}->{$field}; + } + } + + foreach my $field (keys %{$data{fields}}) { + next if ($data{fields}->{$field} eq '' && + !($field eq 'value')); + if ((exists $this->{accept_attribute} && + $field !~ /$this->{accept_attribute}/) or + (exists $this->{reject_attribute} && + $field =~ /$this->{reject_attribute}/)) { + debug "db $item" => "reject $field"; + next; + } + + $modify_data{$field}=$data{fields}->{$field}; + push(@{$add_data}, $field); + push(@{$add_data}, $data{fields}->{$field}); + } + + my @owners = keys %{$data{owners}}; + debug "db $this->{name}" => "owners is ".join(" ", @owners); + $modify_data{owners} = \@owners; + push(@{$add_data}, 'owners'); + push(@{$add_data}, \@owners); + + my @flags = grep { $data{flags}->{$_} eq 'true' } keys %{$data{flags}}; + if (@flags) { + $modify_data{flags} = \@flags; + push(@{$add_data}, 'flags'); + push(@{$add_data}, \@flags); + } + + $modify_data{variables} = []; + foreach my $var (keys %{$data{variables}}) { + my $variable = "$var=$data{variables}->{$var}"; + push (@{$modify_data{variables}}, $variable); + push(@{$add_data}, 'variables'); + push(@{$add_data}, $variable); + } + + my $rv=""; + if ($this->{exists}->{$item}) { + $rv = $this->{ds}->modify($entry_dn, replace => \%modify_data); + } else { + $rv = $this->{ds}->add($entry_dn, attrs => $add_data); + } + if ($rv->code) { + $this->error("Modify failed: ".$rv->error); + } + } + + $this->{ds}->unbind(); + + $this->SUPER::shutdown(@_); +} + + +sub load { + my $this = shift; + return unless $this->{keybykey}; + my $entry_cn = shift; + + my $records = $this->get_key($entry_cn); + return unless $records; + + debug "db $this->{name}" => "Read entry for $entry_cn"; + + $this->parse_records($records); +} + + +sub remove { + return 1; +} + + +sub save { + return 1; +} + + +sub get_key { + my $this = shift; + return unless $this->{keybykey}; + my $entry_cn = shift; + + my $data = $this->{ds}->search( + base => 'cn=' . $entry_cn . ',' . $this->{basedn}, + sizelimit => 0, + timelimit => 0, + filter => "(objectclass=debconfDbEntry)"); + + if ($data->code) { + $this->error("Search failed: ".$data->error); + } + + return unless $data->entries; + $data->as_struct(); +} + +sub parse_records { + my $this = shift; + my $records = shift; + + foreach my $dn (keys %{$records}) { + my $entry = $records->{$dn}; + debug "db $this->{name}" => "Reading data from $dn"; + my %ret = (owners => {}, + fields => {}, + variables => {}, + flags => {}, + ); + my $name = ""; + + foreach my $attr (keys %{$entry}) { + if ($attr eq 'objectclass') { + next; + } + my $values = $entry->{$attr}; + + $attr =~ s/([a-z])([A-Z])/$1.'_'.lc($2)/ge; + + debug "db $this->{name}" => "Setting data for $attr"; + foreach my $val (@{$values}) { + debug "db $this->{name}" => "$attr = $val"; + if ($attr eq 'owners') { + $ret{owners}->{$val}=1; + } elsif ($attr eq 'flags') { + $ret{flags}->{$val}='true'; + } elsif ($attr eq 'cn') { + $name = $val; + } elsif ($attr eq 'variables') { + my ($var, $value)=split(/\s*=\s*/, $val, 2); + $ret{variables}->{$var}=$value; + } else { + $val=~s/\\n/\n/g; + $ret{fields}->{$attr}=$val; + } + } + } + + $this->{cache}->{$name} = \%ret; + $this->{exists}->{$name} = 1; + } +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/DbDriver/PackageDir.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/DbDriver/PackageDir.pm new file mode 100644 index 0000000..a595c3f --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/DbDriver/PackageDir.pm @@ -0,0 +1,170 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::DbDriver::PackageDir; +use strict; +use Debconf::Log qw(:all); +use IO::File; +use Fcntl qw(:DEFAULT :flock); +use Debconf::Iterator; +use base 'Debconf::DbDriver::Directory'; + + +use fields qw(mode _loaded); + + +sub init { + my $this=shift; + + if (exists $this->{mode}) { + $this->{mode} = oct($this->{mode}); + } + else { + $this->{mode} = 0600; + } + $this->SUPER::init(@_); +} + + +sub loadfile { + my $this=shift; + my $file=$this->{directory}."/".shift; + + return if $this->{_loaded}->{$file}; + $this->{_loaded}->{$file}=1; + + debug "db $this->{name}" => "loading $file"; + return unless -e $file; + + my $fh=IO::File->new; + open($fh, $file) or $this->error("$file: $!"); + my @item = $this->{format}->read($fh); + while (@item) { + $this->cacheadd(@item); + @item = $this->{format}->read($fh); + } + close $fh; +} + + +sub load { + my $this=shift; + my $item=shift; + $this->loadfile($this->filename($item)); +} + + +sub filename { + my $this=shift; + my $item=shift; + + if ($item =~ m!^([^/]+)(?:/|$)!) { + return $1.$this->{extension}; + } + else { + $this->error("failed parsing item name \"$item\"\n"); + } +} + + +sub iterator { + my $this=shift; + + my $handle; + opendir($handle, $this->{directory}) || + $this->error("opendir: $!"); + + while (my $file=readdir($handle)) { + next if length $this->{extension} and + not $file=~m/$this->{extension}/; + next unless -f $this->{directory}."/".$file; + next if $file eq '.lock' || $file =~ /-old$/; + $this->loadfile($file); + } + + $this->SUPER::iterator; +} + + +sub exists { + my $this=shift; + my $name=shift; + my $incache=$this->Debconf::DbDriver::Cache::exists($name); + return $incache if (!defined $incache or $incache); + my $file=$this->{directory}.'/'.$this->filename($name); + return unless -e $file; + + $this->load($name); + + return $this->Debconf::DbDriver::Cache::exists($name); +} + + +sub shutdown { + my $this=shift; + + return if $this->{readonly}; + + my (%files, %filecontents, %killfiles, %dirtyfiles); + foreach my $item (keys %{$this->{cache}}) { + my $file=$this->filename($item); + $files{$file}++; + + if (! defined $this->{cache}->{$item}) { + $killfiles{$file}++; + delete $this->{cache}->{$item}; + } + else { + push @{$filecontents{$file}}, $item; + } + + if ($this->{dirty}->{$item}) { + $dirtyfiles{$file}++; + $this->{dirty}->{$item}=0; + } + } + + foreach my $file (keys %files) { + if (! $filecontents{$file} && $killfiles{$file}) { + debug "db $this->{name}" => "removing $file"; + my $filename=$this->{directory}."/".$file; + unlink $filename or + $this->error("unable to remove $filename: $!"); + if (-e $filename."-old") { + unlink $filename."-old" or + $this->error("unable to remove $filename-old: $!"); + } + } + elsif ($dirtyfiles{$file}) { + debug "db $this->{name}" => "saving $file"; + my $filename=$this->{directory}."/".$file; + + sysopen(my $fh, $filename."-new", + O_WRONLY|O_TRUNC|O_CREAT,$this->{mode}) or + $this->error("could not write $filename-new: $!"); + $this->{format}->beginfile; + foreach my $item (@{$filecontents{$file}}) { + $this->{format}->write($fh, $this->{cache}->{$item}, $item) + or $this->error("could not write $filename-new: $!"); + } + $this->{format}->endfile; + + $fh->flush or $this->error("could not flush $filename-new: $!"); + $fh->sync or $this->error("could not sync $filename-new: $!"); + + if (-e $filename && $this->{backup}) { + rename($filename, $filename."-old") or + debug "db $this->{name}" => "rename failed: $!"; + } + rename($filename."-new", $filename) or + $this->error("rename failed: $!"); + } + } + + $this->SUPER::shutdown(@_); + return 1; +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/DbDriver/Pipe.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/DbDriver/Pipe.pm new file mode 100644 index 0000000..17a2132 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/DbDriver/Pipe.pm @@ -0,0 +1,90 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::DbDriver::Pipe; +use strict; +use Debconf::Log qw(:all); +use base 'Debconf::DbDriver::Cache'; + + +use fields qw(infd outfd format); + + +sub init { + my $this=shift; + + $this->{format} = "822" unless exists $this->{format}; + + $this->error("No format specified") unless $this->{format}; + eval "use Debconf::Format::$this->{format}"; + if ($@) { + $this->error("Error setting up format object $this->{format}: $@"); + } + $this->{format}="Debconf::Format::$this->{format}"->new; + if (not ref $this->{format}) { + $this->error("Unable to make format object"); + } + + my $fh; + if (defined $this->{infd}) { + if ($this->{infd} ne 'none') { + open ($fh, "<&=$this->{infd}") or + $this->error("could not open file descriptor #$this->{infd}: $!"); + } + } + else { + open ($fh, '-'); + } + + $this->SUPER::init(@_); + + debug "db $this->{name}" => "loading database"; + + if (defined $fh) { + while (! eof $fh) { + my ($item, $cache)=$this->{format}->read($fh); + $this->{cache}->{$item}=$cache; + } + close $fh; + } +} + + +sub shutdown { + my $this=shift; + + return if $this->{readonly}; + + my $fh; + if (defined $this->{outfd}) { + if ($this->{outfd} ne 'none') { + open ($fh, ">&=$this->{outfd}") or + $this->error("could not open file descriptor #$this->{outfd}: $!"); + } + } + else { + open ($fh, '>-'); + } + + if (defined $fh) { + $this->{format}->beginfile; + foreach my $item (sort keys %{$this->{cache}}) { + next unless defined $this->{cache}->{$item}; # skip deleted + $this->{format}->write($fh, $this->{cache}->{$item}, $item) + or $this->error("could not write to pipe: $!"); + } + $this->{format}->endfile; + close $fh or $this->error("could not close pipe: $!"); + } + + return 1; +} + + +sub load { + return undef; +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/DbDriver/Stack.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/DbDriver/Stack.pm new file mode 100644 index 0000000..ebfe5b3 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/DbDriver/Stack.pm @@ -0,0 +1,246 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::DbDriver::Stack; +use strict; +use Debconf::Log qw{:all}; +use Debconf::Iterator; +use base 'Debconf::DbDriver::Copy'; + + + +use fields qw(stack stack_change_errors); + + +sub init { + my $this=shift; + + if (! ref $this->{stack}) { + my @stack; + foreach my $name (split(/\s*,\s/, $this->{stack})) { + my $driver=$this->driver($name); + unless (defined $driver) { + $this->error("could not find a db named \"$name\" to use in the stack (it should be defined before the stack in the config file)"); + next; + } + push @stack, $driver; + } + $this->{stack}=[@stack]; + } + + $this->error("no stack set") if ! ref $this->{stack}; + $this->error("stack is empty") if ! @{$this->{stack}}; +} + + +sub iterator { + my $this=shift; + + my %seen; + my @iterators = map { $_->iterator } @{$this->{stack}}; + my $i = pop @iterators; + my $iterator=Debconf::Iterator->new(callback => sub { + for (;;) { + while (my $ret = $i->iterate) { + next if $seen{$ret}; + $seen{$ret}=1; + return $ret; + } + $i = pop @iterators; + return undef unless defined $i; + } + }); +} + + +sub shutdown { + my $this=shift; + + my $ret=1; + foreach my $driver (@{$this->{stack}}) { + $ret=undef if not defined $driver->shutdown(@_); + } + + if ($this->{stack_change_errors}) { + $this->error("unable to save changes to: ". + join(" ", @{$this->{stack_change_errors}})); + $ret=undef; + } + + return $ret; +} + + +sub exists { + my $this=shift; + + foreach my $driver (@{$this->{stack}}) { + return 1 if $driver->exists(@_); + } + return 0; +} + +sub _query { + my $this=shift; + my $command=shift; + shift; # this again + + debug "db $this->{name}" => "trying to $command(@_) .."; + foreach my $driver (@{$this->{stack}}) { + if (wantarray) { + my @ret=$driver->$command(@_); + debug "db $this->{name}" => "$command done by $driver->{name}" if @ret; + return @ret if @ret; + } + else { + my $ret=$driver->$command(@_); + debug "db $this->{name}" => "$command done by $driver->{name}" if defined $ret; + return $ret if defined $ret; + } + } + return; # failure +} + +sub _change { + my $this=shift; + my $command=shift; + shift; # this again + my $item=shift; + + debug "db $this->{name}" => "trying to $command($item @_) .."; + + foreach my $driver (@{$this->{stack}}) { + if ($driver->exists($item)) { + last if $driver->{readonly}; # nope, hit a readonly one + debug "db $this->{name}" => "passing to $driver->{name} .."; + return $driver->$command($item, @_); + } + } + + my $src=0; + + foreach my $driver (@{$this->{stack}}) { + if ($driver->exists($item)) { + my $ret=$this->_nochange($driver, $command, $item, @_); + if (defined $ret) { + debug "db $this->{name}" => "skipped $command($item) as it would have no effect"; + return $ret; + } + + $src=$driver; + last + } + } + + my $writer; + foreach my $driver (@{$this->{stack}}) { + if ($driver == $src) { + push @{$this->{stack_change_errors}}, $item; + return; + } + if (! $driver->{readonly}) { + if ($command eq 'addowner') { + if ($driver->accept($item, $_[1])) { + $writer=$driver; + last; + } + } + elsif ($driver->accept($item)) { + $writer=$driver; + last; + } + } + } + + unless ($writer) { + debug "db $this->{name}" => "FAILED $command"; + return; + } + + if ($src) { + $this->copy($item, $src, $writer); + } + + debug "db $this->{name}" => "passing to $writer->{name} .."; + return $writer->$command($item, @_); +} + +sub _nochange { + my $this=shift; + my $driver=shift; + my $command=shift; + my $item=shift; + + if ($command eq 'addowner') { + my $value=shift; + foreach my $owner ($driver->owners($item)) { + return $value if $owner eq $value; + } + return; + } + elsif ($command eq 'removeowner') { + my $value=shift; + + foreach my $owner ($driver->owners($item)) { + return if $owner eq $value; + } + return $value; # no change + } + elsif ($command eq 'removefield') { + my $value=shift; + + foreach my $field ($driver->fields($item)) { + return if $field eq $value; + } + return $value; # no change + } + + my @list; + my $get; + if ($command eq 'setfield') { + @list=$driver->fields($item); + $get='getfield'; + } + elsif ($command eq 'setflag') { + @list=$driver->flags($item); + $get='getflag'; + } + elsif ($command eq 'setvariable') { + @list=$driver->variables($item); + $get='getvariable'; + } + else { + $this->error("internal error; bad command: $command"); + } + + my $thing=shift; + my $value=shift; + my $currentvalue=$driver->$get($item, $thing); + + my $exists=0; + foreach my $i (@list) { + $exists=1, last if $thing eq $i; + } + return $currentvalue unless $exists; + + return $currentvalue if $currentvalue eq $value; + return undef; +} + +sub addowner { $_[0]->_change('addowner', @_) } +sub removeowner { $_[0]->_change('removeowner', @_) } +sub owners { $_[0]->_query('owners', @_) } +sub getfield { $_[0]->_query('getfield', @_) } +sub setfield { $_[0]->_change('setfield', @_) } +sub removefield { $_[0]->_change('removefield', @_) } +sub fields { $_[0]->_query('fields', @_) } +sub getflag { $_[0]->_query('getflag', @_) } +sub setflag { $_[0]->_change('setflag', @_) } +sub flags { $_[0]->_query('flags', @_) } +sub getvariable { $_[0]->_query('getvariable', @_) } +sub setvariable { $_[0]->_change('setvariable', @_) } +sub variables { $_[0]->_query('variables', @_) } + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element.pm new file mode 100644 index 0000000..4d07acd --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element.pm @@ -0,0 +1,20 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element; +use strict; +use base qw(Debconf::Base); + + +sub visible { + my $this=shift; + + return 1; +} + + +sub show {} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Boolean.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Boolean.pm new file mode 100644 index 0000000..3976414 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Boolean.pm @@ -0,0 +1,32 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Dialog::Boolean; +use strict; +use base qw(Debconf::Element); + + +sub show { + my $this=shift; + + my @params=('--yesno'); + push @params, $this->frontend->dashsep if $this->frontend->dashsep; + push @params, $this->frontend->makeprompt($this->question, 1); + if (defined $this->question->value && $this->question->value eq 'false') { + unshift @params, '--defaultno'; + } + + my ($ret, $value)=$this->frontend->showdialog($this->question, @params); + if (defined $ret) { + $this->value($ret eq 0 ? 'true' : 'false'); + } + else { + my $default=''; + $default=$this->question->value + if defined $this->question->value; + $this->value($default); + } +} + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Error.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Error.pm new file mode 100644 index 0000000..c0a25b4 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Error.pm @@ -0,0 +1,20 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Dialog::Error; +use strict; +use base qw(Debconf::Element); + + +sub show { + my $this=shift; + + $this->frontend->showtext($this->question, + $this->question->description."\n\n". + $this->question->extended_description + ); + $this->value(''); +} + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Multiselect.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Multiselect.pm new file mode 100644 index 0000000..e62f3d4 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Multiselect.pm @@ -0,0 +1,69 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Dialog::Multiselect; +use strict; +use base qw(Debconf::Element::Multiselect); +use Debconf::Encoding qw(width); + + +sub show { + my $this=shift; + + my ($text, $lines, $columns)= + $this->frontend->makeprompt($this->question, -2); + + my $screen_lines=$this->frontend->screenheight - $this->frontend->spacer; + my @params=(); + my @choices=$this->question->choices_split; + my %value = map { $_ => 1 } $this->translate_default; + + my $menu_height=$#choices + 1; + if ($lines + $#choices + 2 >= $screen_lines) { + $menu_height = $screen_lines - $lines - 4; + if ($menu_height < 3 && $#choices + 1 > 2) { + $this->frontend->showtext($this->question, $this->question->extended_description); + ($text, $lines, $columns)=$this->frontend->sizetext($this->question->description); + $menu_height=$#choices + 1; + if ($lines + $#choices + 2 >= $screen_lines) { + $menu_height = $screen_lines - $lines - 4; + } + } + } + + $lines=$lines + $menu_height + $this->frontend->spacer; + my $selectspacer = $this->frontend->selectspacer; + my $c=1; + foreach (@choices) { + push @params, ($_, ""); + push @params, ($value{$_} ? 'on' : 'off'); + + if ($columns < width($_) + $selectspacer) { + $columns = width($_) + $selectspacer; + } + } + + if ($this->frontend->dashsep) { + unshift @params, $this->frontend->dashsep; + } + + @params=('--separate-output', '--checklist', + $text, $lines, $columns, $menu_height, @params); + + my $value=$this->frontend->showdialog($this->question, @params); + + if (defined $value) { + $this->value(join(", ", $this->order_values( + map { $this->translate_to_C($_) } + split(/\n/, $value)))); + } + else { + my $default=''; + $default=$this->question->value + if defined $this->question->value; + $this->value($default); + } +} + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Note.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Note.pm new file mode 100644 index 0000000..4cab4cf --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Note.pm @@ -0,0 +1,20 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Dialog::Note; +use strict; +use base qw(Debconf::Element); + + +sub show { + my $this=shift; + + $this->frontend->showtext($this->question, + $this->question->description."\n\n". + $this->question->extended_description + ); + $this->value(''); +} + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Password.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Password.pm new file mode 100644 index 0000000..e32f863 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Password.pm @@ -0,0 +1,32 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Dialog::Password; +use strict; +use base qw(Debconf::Element); + + +sub show { + my $this=shift; + + my ($text, $lines, $columns)= + $this->frontend->makeprompt($this->question); + + my @params=('--passwordbox'); + push @params, $this->frontend->dashsep if $this->frontend->dashsep; + push @params, ($text, $lines + $this->frontend->spacer, $columns); + my $ret=$this->frontend->showdialog($this->question, @params); + + if (! defined $ret || $ret eq '') { + my $default=''; + $default=$this->question->value + if defined $this->question->value; + $this->value($default); + } + else { + $this->value($ret); + } +} + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Progress.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Progress.pm new file mode 100644 index 0000000..53f6270 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Progress.pm @@ -0,0 +1,87 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Dialog::Progress; +use strict; +use base qw(Debconf::Element); + + +sub _communicate { + my $this=shift; + my $data=shift; + my $dialoginput = $this->frontend->dialog_input_wtr; + + print $dialoginput $data; +} + +sub _percent { + my $this=shift; + + use integer; + return (($this->progress_cur() - $this->progress_min()) * 100 / ($this->progress_max() - $this->progress_min())); +} + +sub start { + my $this=shift; + + $this->frontend->title($this->question->description); + + my ($text, $lines, $columns); + if (defined $this->_info) { + ($text, $lines, $columns)=$this->frontend->sizetext($this->_info->description); + } else { + ($text, $lines, $columns)=$this->frontend->sizetext(' '); + } + if ($this->frontend->screenwidth - $this->frontend->columnspacer > $columns) { + $columns = $this->frontend->screenwidth - $this->frontend->columnspacer; + } + + my @params=('--gauge'); + push @params, $this->frontend->dashsep if $this->frontend->dashsep; + push @params, ($text, $lines + $this->frontend->spacer, $columns, $this->_percent); + + $this->frontend->startdialog($this->question, 1, @params); + + $this->_lines($lines); + $this->_columns($columns); +} + +sub set { + my $this=shift; + my $value=shift; + + $this->progress_cur($value); + $this->_communicate($this->_percent . "\n"); + + return 1; +} + +sub info { + my $this=shift; + my $question=shift; + + $this->_info($question); + + my ($text, $lines, $columns)=$this->frontend->sizetext($question->description); + if ($lines > $this->_lines or $columns > $this->_columns) { + $this->stop; + $this->start; + } + + + $this->_communicate( + sprintf("XXX\n%d\n%s\nXXX\n%d\n", + $this->_percent, $text, $this->_percent)); + + return 1; +} + +sub stop { + my $this=shift; + + $this->frontend->waitdialog; + $this->frontend->title($this->frontend->requested_title); +} + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Select.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Select.pm new file mode 100644 index 0000000..09a45d4 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Select.pm @@ -0,0 +1,57 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Dialog::Select; +use strict; +use base qw(Debconf::Element::Select); +use Debconf::Encoding qw(width); + + +sub show { + my $this=shift; + + my ($text, $lines, $columns)= + $this->frontend->makeprompt($this->question, -2); + + my $screen_lines=$this->frontend->screenheight - $this->frontend->spacer; + my $default=$this->translate_default; + my @params=(); + my @choices=$this->question->choices_split; + + my $menu_height=$#choices + 1; + if ($lines + $#choices + 2 >= $screen_lines) { + $menu_height = $screen_lines - $lines - 4; + } + + $lines=$lines + $menu_height + $this->frontend->spacer; + my $c=1; + my $selectspacer = $this->frontend->selectspacer; + foreach (@choices) { + push @params, $_, ''; + + if ($columns < width($_) + $selectspacer) { + $columns = width($_) + $selectspacer; + } + } + + if ($this->frontend->dashsep) { + unshift @params, $this->frontend->dashsep; + } + + @params=('--default-item', $default, '--menu', + $text, $lines, $columns, $menu_height, @params); + + my $value=$this->frontend->showdialog($this->question, @params); + if (defined $value) { + $this->value($this->translate_to_C($value)) if defined $value; + } + else { + my $default=''; + $default=$this->question->value + if defined $this->question->value; + $this->value($default); + } +} + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/String.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/String.pm new file mode 100644 index 0000000..6978724 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/String.pm @@ -0,0 +1,36 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Dialog::String; +use strict; +use base qw(Debconf::Element); + + +sub show { + my $this=shift; + + my ($text, $lines, $columns)= + $this->frontend->makeprompt($this->question); + + my $default=''; + $default=$this->question->value if defined $this->question->value; + + my @params=('--inputbox'); + push @params, $this->frontend->dashsep if $this->frontend->dashsep; + push @params, ($text, $lines + $this->frontend->spacer, + $columns, $default); + + my $value=$this->frontend->showdialog($this->question, @params); + if (defined $value) { + $this->value($value); + } + else { + my $default=''; + $default=$this->question->value + if defined $this->question->value; + $this->value($default); + } +} + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Text.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Text.pm new file mode 100644 index 0000000..9169b85 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Text.pm @@ -0,0 +1,20 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Dialog::Text; +use strict; +use base qw(Debconf::Element); + + +sub show { + my $this=shift; + + $this->frontend->showtext($this->question, + $this->question->description."\n\n". + $this->question->extended_description + ); + $this->value(''); +} + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Boolean.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Boolean.pm new file mode 100644 index 0000000..d16124c --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Boolean.pm @@ -0,0 +1,50 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Editor::Boolean; +use strict; +use Debconf::Gettext; +use base qw(Debconf::Element); + + + +sub show { + my $this=shift; + + $this->frontend->comment($this->question->extended_description."\n\n". + "(".gettext("Choices").": ".join(", ", gettext("yes"), gettext("no")).")\n". + $this->question->description."\n"); + + my $default=''; + $default=$this->question->value if defined $this->question->value; + if ($default eq 'true') { + $default=gettext("yes"); + } + elsif ($default eq 'false') { + $default=gettext("no"); + } + + $this->frontend->item($this->question->name, $default); +} + + +sub value { + my $this=shift; + + return $this->SUPER::value() unless @_; + my $value=shift; + + if ($value eq 'yes' || $value eq gettext("yes")) { + return $this->SUPER::value('true'); + } + elsif ($value eq 'no' || $value eq gettext("no")) { + return $this->SUPER::value('false'); + } + else { + return $this->SUPER::value($this->question->value); + } +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Error.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Error.pm new file mode 100644 index 0000000..5733c98 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Error.pm @@ -0,0 +1,9 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Editor::Error; +use strict; +use base qw(Debconf::Element::Editor::Text); + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Multiselect.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Multiselect.pm new file mode 100644 index 0000000..7cadbe8 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Multiselect.pm @@ -0,0 +1,39 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Editor::Multiselect; +use strict; +use Debconf::Gettext; +use base qw(Debconf::Element::Multiselect); + + +sub show { + my $this=shift; + + my @choices=$this->question->choices_split; + + $this->frontend->comment($this->question->extended_description."\n\n". + "(".gettext("Choices").": ".join(", ", @choices).")\n". + gettext("(Enter zero or more items separated by a comma followed by a space (', ').)")."\n". + $this->question->description."\n"); + + $this->frontend->item($this->question->name, join ", ", $this->translate_default); +} + + +sub value { + my $this=shift; + + return $this->SUPER::value() unless @_; + my @values=split(',\s+', shift); + + my %valid=map { $_ => 1 } $this->question->choices_split; + + $this->SUPER::value(join(', ', $this->order_values( + map { $this->translate_to_C($_) } + grep { $valid{$_} } @values))); +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Note.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Note.pm new file mode 100644 index 0000000..fd5006a --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Note.pm @@ -0,0 +1,9 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Editor::Note; +use strict; +use base qw(Debconf::Element::Editor::Text); + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Password.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Password.pm new file mode 100644 index 0000000..f1dce00 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Password.pm @@ -0,0 +1,10 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Editor::Password; +use strict; +use base qw(Debconf::Element::Editor::String); + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Progress.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Progress.pm new file mode 100644 index 0000000..c538abb --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Progress.pm @@ -0,0 +1,25 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Editor::Progress; +use strict; +use base qw(Debconf::Element); + + + +sub start { +} + +sub set { + return 1; +} + +sub info { + return 1; +} + +sub stop { +} + +1; diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Select.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Select.pm new file mode 100644 index 0000000..f73d126 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Select.pm @@ -0,0 +1,41 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Editor::Select; +use strict; +use Debconf::Gettext; +use base qw(Debconf::Element::Select); + + +sub show { + my $this=shift; + + my $default=$this->translate_default; + my @choices=$this->question->choices_split; + + $this->frontend->comment($this->question->extended_description."\n\n". + "(".gettext("Choices").": ".join(", ", @choices).")\n". + $this->question->description."\n"); + $this->frontend->item($this->question->name, $default); +} + + +sub value { + my $this=shift; + + return $this->SUPER::value() unless @_; + my $value=shift; + + my %valid=map { $_ => 1 } $this->question->choices_split; + + if ($valid{$value}) { + return $this->SUPER::value($this->translate_to_C($value)); + } + else { + return $this->SUPER::value($this->question->value); + } +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/String.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/String.pm new file mode 100644 index 0000000..4b9676d --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/String.pm @@ -0,0 +1,22 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Editor::String; +use strict; +use base qw(Debconf::Element); + + +sub show { + my $this=shift; + + $this->frontend->comment($this->question->extended_description."\n\n". + $this->question->description."\n"); + + my $default=''; + $default=$this->question->value if defined $this->question->value; + + $this->frontend->item($this->question->name, $default); +} + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Text.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Text.pm new file mode 100644 index 0000000..172031c --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Text.pm @@ -0,0 +1,19 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Editor::Text; +use strict; +use base qw(Debconf::Element); + + +sub show { + my $this=shift; + + $this->frontend->comment($this->question->extended_description."\n\n". + $this->question->description."\n\n"); + + $this->value(''); +} + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome.pm new file mode 100644 index 0000000..655c8bd --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome.pm @@ -0,0 +1,145 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Gnome; +use strict; +use utf8; +use Gtk2; +use Debconf::Gettext; +use Debconf::Encoding qw(to_Unicode); +use base qw(Debconf::Element); + + +sub init { + my $this=shift; + + $this->hbox(Gtk2::VBox->new(0, 10)); + + $this->hline1(Gtk2::HBox->new(0, 10)); + $this->hline1->show; + $this->line1(Gtk2::VBox->new(0, 10)); + $this->line1->show; + $this->line1->pack_end ($this->hline1, 1, 1, 0); + + $this->hline2(Gtk2::HBox->new(0, 10)); + $this->hline2->show; + $this->line2(Gtk2::VBox->new(0, 10)); + $this->line2->show; + $this->line2->pack_end ($this->hline2, 1, 1, 0); + + $this->vbox(Gtk2::VBox->new(0, 5)); + $this->vbox->pack_start($this->line1, 0, 0, 0); + $this->vbox->pack_start($this->line2, 1, 1, 0); + $this->vbox->show; + + $this->hbox->pack_start($this->vbox, 1, 1, 0); + $this->hbox->show; + + $this->fill(0); + $this->expand(0); + $this->multiline(0); +} + + +sub addwidget { + my $this=shift; + my $widget=shift; + + if ($this->multiline == 0) { + $this->hline1->pack_start($widget, 1, 1, 0); + } + else { + $this->hline2->pack_start($widget, 1, 1, 0); + } +} + + +sub adddescription { + my $this=shift; + my $description=to_Unicode($this->question->description); + + my $label=Gtk2::Label->new($description); + $label->show; + $this->line1->pack_start($label, 0, 0, 0); +} + + +sub addbutton { + my $this=shift; + my $text = shift; + my $callback = shift; + + my $button = Gtk2::Button->new_with_mnemonic(to_Unicode($text)); + $button->show; + $button->signal_connect("clicked", $callback); + + my $vbox = Gtk2::VBox->new(0, 0); + $vbox->show; + $vbox->pack_start($button, 1, 0, 0); + $this->hline1->pack_end($vbox, 0, 0, 0); +} + + +sub create_message_dialog { + my $this = shift; + my $type = shift; + my $title = shift; + my $text = shift; + + my $dialog = + Gtk2::Dialog->new_with_buttons(to_Unicode($title), undef, + "modal", "gtk-close", "close"); + $dialog->set_border_width(3); + + my $hbox = Gtk2::HBox->new(0); + $dialog->vbox->pack_start($hbox, 1, 1, 5); + $hbox->show; + + my $alignment = Gtk2::Alignment->new(0.5, 0.0, 1.0, 0.0); + $hbox->pack_start($alignment, 1, 1, 3); + $alignment->show; + + my $image = Gtk2::Image->new_from_stock($type, "dialog"); + $alignment->add($image); + $image->show; + + my $label = Gtk2::Label->new(to_Unicode($text)); + $label->set_line_wrap(1); + $hbox->pack_start($label, 1, 1, 2); + $label->show; + + $dialog->run; + $dialog->destroy; +} + + +sub addhelp { + my $this=shift; + + my $help=$this->question->extended_description; + return unless length $help; + + $this->addbutton(gettext("_Help"), sub { + $this->create_message_dialog("gtk-dialog-info", + gettext("Help"), + to_Unicode($help)); + }); + + if (defined $this->tip ){ + $this->tooltips( Gtk2::Tooltips->new() ); + $this->tooltips->set_tip($this->tip, to_Unicode($help), + undef ); + $this->tooltips->enable; + } +} + + +sub value { + my $this=shift; + + return ''; +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Boolean.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Boolean.pm new file mode 100644 index 0000000..1ee52af --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Boolean.pm @@ -0,0 +1,40 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Gnome::Boolean; +use strict; +use Gtk2; +use utf8; +use Debconf::Encoding qw(to_Unicode); +use base qw(Debconf::Element::Gnome); + + +sub init { + my $this=shift; + my $description=to_Unicode($this->question->description); + + $this->SUPER::init(@_); + + $this->widget(Gtk2::CheckButton->new($description)); + $this->widget->show; + $this->widget->set_active(($this->question->value eq 'true') ? 1 : 0); + $this->addwidget($this->widget); + $this->tip( $this->widget ); + $this->addhelp; +} + + +sub value { + my $this=shift; + + if ($this->widget->get_active) { + return "true"; + } + else { + return "false"; + } +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Error.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Error.pm new file mode 100644 index 0000000..6394a75 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Error.pm @@ -0,0 +1,51 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Gnome::Error; +use strict; +use Debconf::Gettext; +use Gtk2; +use utf8; +use Debconf::Encoding qw(to_Unicode); +use base qw(Debconf::Element::Gnome); + + +sub init { + my $this=shift; + my $extended_description = to_Unicode($this->question->extended_description); + + $this->SUPER::init(@_); + $this->multiline(1); + $this->fill(1); + $this->expand(1); + $this->widget(Gtk2::HBox->new(0, 0)); + + my $image = Gtk2::Image->new_from_stock("gtk-dialog-error", "dialog"); + $image->show; + + my $text = Gtk2::TextView->new(); + my $textbuffer = $text->get_buffer; + $text->show; + $text->set_wrap_mode ("word"); + $text->set_editable (0); + + my $scrolled_window = Gtk2::ScrolledWindow->new(); + $scrolled_window->show; + $scrolled_window->set_policy('automatic', 'automatic'); + $scrolled_window->set_shadow_type('in'); + $scrolled_window->add ($text); + + $this->widget->show; + $this->widget->pack_start($image, 0, 0, 6); + $this->widget->pack_start($scrolled_window, 1, 1, 0); + + $textbuffer->set_text($extended_description); + + $this->widget->show; + $this->adddescription; + $this->addwidget($this->widget); +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Multiselect.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Multiselect.pm new file mode 100644 index 0000000..34a1f4d --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Multiselect.pm @@ -0,0 +1,94 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Gnome::Multiselect; +use strict; +use Gtk2; +use utf8; +use Debconf::Encoding qw(to_Unicode); +use base qw(Debconf::Element::Gnome Debconf::Element::Multiselect); + +use constant SELECTED_COLUMN => 0; +use constant CHOICES_COLUMN => 1; + +sub init { + my $this=shift; + my @choices = map { to_Unicode($_) } $this->question->choices_split; + my %default=map { to_Unicode($_) => 1 } $this->translate_default; + + $this->SUPER::init(@_); + $this->multiline(1); + + $this->adddescription; + + $this->widget(Gtk2::ScrolledWindow->new); + $this->widget->show; + $this->widget->set_policy('automatic', 'automatic'); + + my $list_store = Gtk2::ListStore->new('Glib::Boolean', 'Glib::String'); + $this->list_view(Gtk2::TreeView->new($list_store)); + $this->list_view->set_headers_visible(0); + + my $renderer_toggle = Gtk2::CellRendererToggle->new; + $renderer_toggle->signal_connect(toggled => sub { + my $path_string = $_[1]; + my $model = $_[2]; + my $iter = $model->get_iter_from_string($path_string); + $model->set($iter, SELECTED_COLUMN, + not $model->get($iter, SELECTED_COLUMN)); + }, $list_store); + + $this->list_view->append_column( + Gtk2::TreeViewColumn->new_with_attributes('Selected', + $renderer_toggle, 'active', SELECTED_COLUMN)); + $this->list_view->append_column( + Gtk2::TreeViewColumn->new_with_attributes('Choices', + Gtk2::CellRendererText->new, 'text', CHOICES_COLUMN)); + $this->list_view->show; + + $this->widget->add($this->list_view); + + for (my $i=0; $i <= $#choices; $i++) { + my $iter = $list_store->append(); + $list_store->set($iter, CHOICES_COLUMN, $choices[$i]); + if ($default{$choices[$i]}) { + $list_store->set($iter, SELECTED_COLUMN, 1); + } + } + $this->addwidget($this->widget); + $this->tip($this->list_view); + $this->addhelp; + + $this->fill(1); + $this->expand(1); + +} + + +sub value { + my $this=shift; + my $list_view = $this->list_view; + my $list_store = $list_view->get_model (); + my ($ret, $val); + + my @vals; + $this->question->template->i18n(''); + my @choices=$this->question->choices_split; + $this->question->template->i18n(1); + + my $iter = $list_store->get_iter_first(); + for (my $i=0; $i <= $#choices; $i++) { + if ($list_store->get($iter, SELECTED_COLUMN)) { + push @vals, $choices[$i]; + } + $iter = $list_store->iter_next($iter); + } + + return join(', ', $this->order_values(@vals)); +} + +*visible = \&Debconf::Element::Multiselect::visible; + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Note.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Note.pm new file mode 100644 index 0000000..68ac016 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Note.pm @@ -0,0 +1,48 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Gnome::Note; +use strict; +use Debconf::Gettext; +use Gtk2; +use utf8; +use Debconf::Encoding qw(to_Unicode); +use Debconf::Element::Noninteractive::Note; +use base qw(Debconf::Element::Gnome); + + +sub init { + my $this=shift; + my $extended_description = to_Unicode($this->question->extended_description); + + $this->SUPER::init(@_); + $this->multiline(1); + $this->fill(1); + $this->expand(1); + $this->widget(Gtk2::HBox->new(0, 0)); + + my $text = Gtk2::TextView->new(); + my $textbuffer = $text->get_buffer; + $text->show; + $text->set_wrap_mode ("word"); + $text->set_editable (0); + + my $scrolled_window = Gtk2::ScrolledWindow->new(); + $scrolled_window->show; + $scrolled_window->set_policy('automatic', 'automatic'); + $scrolled_window->set_shadow_type('in'); + $scrolled_window->add ($text); + + $this->widget->show; + $this->widget->pack_start($scrolled_window, 1, 1, 0); + + $textbuffer->set_text($extended_description); + + $this->widget->show; + $this->adddescription; + $this->addwidget($this->widget); +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Password.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Password.pm new file mode 100644 index 0000000..5ea5c80 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Password.pm @@ -0,0 +1,37 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Gnome::Password; +use strict; +use Gtk2; +use utf8; +use base qw(Debconf::Element::Gnome); + + + +sub init { + my $this=shift; + + $this->SUPER::init(@_); + $this->adddescription; + + $this->widget(Gtk2::Entry->new); + $this->widget->show; + $this->widget->set_visibility(0); + $this->addwidget($this->widget); + $this->tip( $this->widget ); + $this->addhelp; +} + + +sub value { + my $this=shift; + + my $text = $this->widget->get_chars(0, -1); + $text = $this->question->value if $text eq ''; + return $text; +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Progress.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Progress.pm new file mode 100644 index 0000000..e1663fa --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Progress.pm @@ -0,0 +1,63 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Gnome::Progress; +use strict; +use Gtk2; +use utf8; +use Debconf::Encoding qw(to_Unicode); +use base qw(Debconf::Element::Gnome); + + +sub _fraction { + my $this=shift; + + return (($this->progress_cur() - $this->progress_min()) / ($this->progress_max() - $this->progress_min())); +} + +sub start { + my $this=shift; + my $description=to_Unicode($this->question->description); + my $frontend=$this->frontend; + + $this->SUPER::init(@_); + $this->multiline(1); + $this->expand(1); + + $frontend->title($description); + + $this->widget(Gtk2::ProgressBar->new()); + $this->widget->show; + $this->widget->set_text(' '); + $this->addwidget($this->widget); + $this->addhelp; +} + +sub set { + my $this=shift; + my $value=shift; + + $this->progress_cur($value); + $this->widget->set_fraction($this->_fraction); + + return 1; +} + +sub info { + my $this=shift; + my $question=shift; + + $this->widget->set_text(to_Unicode($question->description)); + + return 1; +} + +sub stop { + my $this=shift; + my $frontend=$this->frontend; + + $frontend->title($frontend->requested_title); +} + +1; diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Select.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Select.pm new file mode 100644 index 0000000..8e63f86 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Select.pm @@ -0,0 +1,52 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Gnome::Select; +use strict; +use Gtk2; +use Gnome2; +use utf8; +use Debconf::Encoding qw(to_Unicode); +use base qw(Debconf::Element::Gnome Debconf::Element::Select); + + +sub init { + my $this=shift; + + my $default=$this->translate_default; + my @choices= map { to_Unicode($_) } $this->question->choices_split; + + $this->SUPER::init(@_); + + $this->widget(Gtk2::Combo->new); + $this->widget->show; + + $this->widget->set_popdown_strings(@choices); + $this->widget->set_value_in_list(1, 0); + $this->widget->entry->set_editable(0); + + if (defined($default) and length($default) != 0) { + $this->widget->entry->set_text(to_Unicode($default)); + } + else { + $this->widget->entry->set_text($choices[0]); + } + + $this->adddescription; + $this->addwidget($this->widget); + $this->tip( $this->widget->entry ); + $this->addhelp; +} + + +sub value { + my $this=shift; + + return $this->translate_to_C_uni($this->widget->entry->get_chars(0, -1)); +} + +*visible = \&Debconf::Element::Select::visible; + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/String.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/String.pm new file mode 100644 index 0000000..0bb922d --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/String.pm @@ -0,0 +1,40 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Gnome::String; +use strict; +use Gtk2; +use utf8; +use Debconf::Encoding qw(to_Unicode); +use base qw(Debconf::Element::Gnome); + + +sub init { + my $this=shift; + + $this->SUPER::init(@_); + + $this->widget(Gtk2::Entry->new); + $this->widget->show; + + my $default=''; + $default=$this->question->value if defined $this->question->value; + + $this->widget->set_text(to_Unicode($default)); + + $this->adddescription; + $this->addwidget($this->widget); + $this->tip( $this->widget ); + $this->addhelp; +} + + +sub value { + my $this=shift; + + return $this->widget->get_chars(0, -1); +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Text.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Text.pm new file mode 100644 index 0000000..9d6518f --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Text.pm @@ -0,0 +1,21 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Gnome::Text; +use strict; +use Debconf::Gettext; +use Gtk2; +use utf8; +use base qw(Debconf::Element::Gnome); + + +sub init { + my $this=shift; + + $this->SUPER::init(@_); + $this->adddescription; # yeah, that's all +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde.pm new file mode 100644 index 0000000..0b74574 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde.pm @@ -0,0 +1,141 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Kde::ElementWidget; +use QtCore4; +use QtCore4::isa @ISA = qw(Qt::Widget); +use QtGui4; + + +sub NEW { + shift->SUPER::NEW ($_[0]); + this->{mytop} = undef; +} + + +sub settop { + this->{mytop} = shift; +} + + +sub init { + this->{toplayout} = Qt::VBoxLayout(this); + this->{mytop} = Qt::Widget(this); + this->{toplayout}->addWidget (this->{mytop}); + this->{layout} = Qt::VBoxLayout(); + this->{mytop}->setLayout(this->{layout}); +} + + +sub destroy { + this->{toplayout} -> removeWidget (this->{mytop}); + undef this->{mytop}; +} + + +sub top { + return this->{mytop}; +} + + +sub addwidget { + this->{layout}->addWidget(@_); +} + + +sub addlayout { + this->{layout}->addLayout (@_); +} + + + + + + +package Debconf::Element::Kde; +use strict; +use QtCore4; +use QtGui4; +use Debconf::Gettext; +use base qw(Debconf::Element); +use Debconf::Element::Kde::ElementWidget; +use Debconf::Encoding qw(to_Unicode); + + +sub create { + my $this=shift; + $this->parent(shift); + $this->top(Debconf::Element::Kde::ElementWidget($this->parent, undef, + undef, undef)); + $this->top->init; + $this->top->show; +} + + +sub destroy { + my $this=shift; + $this->top(undef); +} + + +sub addwidget { + my $this=shift; + my $widget=shift; + $this->cur->addwidget($widget); +} + + +sub description { + my $this=shift; + my $label=Qt::Label($this->cur->top); + $label->setText("<b>".to_Unicode($this->question->description."</b>")); + $label->show; + return $label; +} + + +sub startsect { + my $this = shift; + my $ew = Debconf::Element::Kde::ElementWidget($this->top); + $ew->init; + $this->cur($ew); + $this->top->addwidget($ew); + $ew->show; +} + + +sub endsect { + my $this = shift; + $this->cur($this->top); +} + + +sub adddescription { + my $this=shift; + my $label=$this->description; + $this->addwidget($label); +} + + +sub addhelp { + my $this=shift; + + my $help=to_Unicode($this->question->extended_description); + return unless length $help; + my $label=Qt::Label($this->cur->top); + $label->setText($help); + $label->setWordWrap(1); + $this->addwidget($label); # line1 + $label->setMargin(5); + $label->show; +} + + +sub value { + my $this=shift; + return ''; +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Boolean.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Boolean.pm new file mode 100644 index 0000000..1d5d9be --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Boolean.pm @@ -0,0 +1,41 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Kde::Boolean; +use strict; +use QtCore4; +use QtGui4; +use base qw(Debconf::Element::Kde); +use Debconf::Encoding qw(to_Unicode); + + +sub create { + my $this=shift; + + $this->SUPER::create(@_); + + $this->startsect; + $this->widget(Qt::CheckBox( to_Unicode($this->question->description))); + $this->widget->setChecked(($this->question->value eq 'true') ? 1 : 0); + $this->widget->setText(to_Unicode($this->question->description)); + $this->adddescription; + $this->addhelp; + $this->addwidget($this->widget); + $this->endsect; +} + + +sub value { + my $this = shift; + + if ($this -> widget -> isChecked) { + return "true"; + } + else { + return "false"; + } +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Error.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Error.pm new file mode 100644 index 0000000..8e7ae99 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Error.pm @@ -0,0 +1,23 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Kde::Error; +use strict; +use Debconf::Gettext; +use QtCore4; +use QtGui4; +use base qw(Debconf::Element::Kde); + + +sub create { + my $this=shift; + $this->SUPER::create(@_); + $this->startsect; + $this->adddescription; + $this->addhelp; + $this->endsect; +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Multiselect.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Multiselect.pm new file mode 100644 index 0000000..dcbdb79 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Multiselect.pm @@ -0,0 +1,58 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Kde::Multiselect; +use strict; +use QtCore4; +use QtGui4; +use base qw(Debconf::Element::Kde Debconf::Element::Multiselect); +use Debconf::Encoding qw(to_Unicode); + + +sub create { + my $this=shift; + + my @choices = $this->question->choices_split; + my %default = map { $_ => 1 } $this->translate_default; + + $this->SUPER::create(@_); + $this->startsect; + $this->adddescription; + $this->addhelp; + + my @buttons; + for (my $i=0; $i <= $#choices; $i++) { + $buttons[$i] = Qt::CheckBox($this->cur->top); + $buttons[$i]->setText(to_Unicode($choices[$i])); + $buttons[$i]->show; + $buttons[$i]->setChecked($default{$choices[$i]} ? 1 : 0); + $this->addwidget($buttons[$i]); + } + + $this->buttons(\@buttons); + $this->endsect; +} + + +sub value { + my $this = shift; + my @buttons = @{$this->buttons}; + my ($ret, $val); + my @vals; + $this->question->template->i18n(''); + my @choices=$this->question->choices_split; + $this->question->template->i18n(1); + + for (my $i = 0; $i <= $#choices; $i++) { + if ($buttons [$i] -> isChecked()) { + push @vals, $choices[$i]; + } + } + return join(', ', $this->order_values(@vals)); +} + +*visible = \&Debconf::Element::Multiselect::visible; + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Note.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Note.pm new file mode 100644 index 0000000..405ac16 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Note.pm @@ -0,0 +1,23 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Kde::Note; +use strict; +use Debconf::Gettext; +use Qt; +use Debconf::Element::Noninteractive::Note; +use base qw(Debconf::Element::Kde); + + +sub create { + my $this=shift; + $this->SUPER::create(@_); + $this->startsect; + $this->adddescription; + $this->addhelp; + $this->endsect; +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Password.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Password.pm new file mode 100644 index 0000000..95cf6c1 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Password.pm @@ -0,0 +1,36 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Kde::Password; +use strict; +use QtCore4; +use QtGui4; +use base qw(Debconf::Element::Kde); + + +sub create { + my $this=shift; + + $this->SUPER::create(@_); + $this->startsect; + $this->widget(Qt::LineEdit($this->cur->top)); + $this->widget->show; + $this->widget->setEchoMode(2); + $this->addwidget($this->description); + $this->addhelp; + $this->addwidget($this->widget); + $this->endsect; +} + + +sub value { + my $this=shift; + + my $text = $this->widget->text(); + $text = $this->question->value if $text eq ''; + return $text; +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Progress.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Progress.pm new file mode 100644 index 0000000..ff013a7 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Progress.pm @@ -0,0 +1,60 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Kde::Progress; +use strict; +use QtCore4; +use QtGui4; +use base qw(Debconf::Element::Kde); +use Debconf::Encoding qw(to_Unicode); + + +sub start { + my $this=shift; + my $description=to_Unicode($this->question->description); + my $frontend=$this->frontend; + + $this->SUPER::create($frontend->frame); + + $this->startsect; + $this->addhelp; + $this->adddescription; + my $vbox = Qt::VBoxLayout($this->widget); + + $this->progress_bar(Qt::ProgressBar($this->cur->top)); + $this->progress_bar->setMinimum($this->progress_min()); + $this->progress_bar->setMaximum($this->progress_max()); + $this->progress_bar->show; + $this->addwidget($this->progress_bar); + + $this->progress_label(Qt::Label($this->cur->top)); + $this->progress_label->show; + $this->addwidget($this->progress_label); + + $this->endsect; +} + +sub set { + my $this=shift; + my $value=shift; + + + $this->progress_cur($value); + $this->progress_bar->setValue($this->progress_cur); + return 1; +} + +sub info { + my $this=shift; + my $question=shift; + + $this->progress_label->setText(to_Unicode($question->description)); + + return 1; +} + +sub stop { +} + +1; diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Select.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Select.pm new file mode 100644 index 0000000..2cb341b --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Select.pm @@ -0,0 +1,49 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Kde::Select; +use strict; +use QtCore4; +use QtGui4; +use base qw(Debconf::Element::Kde Debconf::Element::Select); +use Debconf::Encoding qw(to_Unicode); + + +sub create { + my $this=shift; + + my $default=$this->translate_default; + my @choices=map { to_Unicode($_) } $this->question->choices_split; + + $this->SUPER::create(@_); + $this->startsect; + $this->widget(Qt::ComboBox($this->cur->top)); + $this->widget->show; + $this->widget->addItems(\@choices); + if (defined($default) and length($default) != 0) { + for (my $i = 0 ; $i < @choices ; $i++) { + if ($choices[$i] eq $default ) { + $this->widget->setCurrentIndex($i);# //FIXME find right index to_Unicode($default)); + last; + } + } + } + $this->addwidget($this->description); + $this->addhelp; + $this->addwidget($this->widget); + $this->endsect; +} + + +sub value { + my $this=shift; + + my @choices=$this->question->choices_split; + return $this->translate_to_C_uni($this->widget->currentText()); +} + +*visible = \&Debconf::Element::Select::visible; + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/String.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/String.pm new file mode 100644 index 0000000..65e16f7 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/String.pm @@ -0,0 +1,35 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Kde::String; +use strict; +use QtCore4; +use QtGui4; +use base qw(Debconf::Element::Kde); +use Debconf::Encoding qw(to_Unicode); + + +sub create { + my $this=shift; + + $this->SUPER::create(@_); + $this->startsect; + $this->widget(Qt::LineEdit($this->cur->top)); + my $default=''; + $default=$this->question->value if defined $this->question->value; + $this->widget->setText(to_Unicode($default)); + $this->adddescription; + $this->addhelp; + $this->addwidget ($this->widget); + $this->endsect; +} + + +sub value { + my $this=shift; + return $this->widget->text(); +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Text.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Text.pm new file mode 100644 index 0000000..394319f --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Text.pm @@ -0,0 +1,21 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Kde::Text; +use strict; +use Debconf::Gettext; +use Qt; +use base qw(Debconf::Element::Kde); + + +sub create { + my $this=shift; + $this->SUPER::create(@_); + $this->startsect; + $this->adddescription; # yeah, that's all + $this->endsect; +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Multiselect.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Multiselect.pm new file mode 100644 index 0000000..1d1b26e --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Multiselect.pm @@ -0,0 +1,47 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Multiselect; +use strict; +use base qw(Debconf::Element::Select); + + +sub order_values { + my $this=shift; + my %vals=map { $_ => 1 } @_; + $this->question->template->i18n(''); + my @ret=grep { $vals{$_} } $this->question->choices_split; + $this->question->template->i18n(1); + return @ret; +} + + +sub visible { + my $this=shift; + + my @choices=$this->question->choices_split; + return ($#choices >= 0); +} + + +sub translate_default { + my $this=shift; + + my @choices=$this->question->choices_split; + $this->question->template->i18n(''); + my @choices_c=$this->question->choices_split; + $this->question->template->i18n(1); + + my @ret; + foreach my $c_default ($this->question->value_split) { + foreach (my $x=0; $x <= $#choices; $x++) { + push @ret, $choices[$x] + if $choices_c[$x] eq $c_default; + } + } + return @ret; +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive.pm new file mode 100644 index 0000000..b2e5cee --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive.pm @@ -0,0 +1,26 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Noninteractive; +use strict; +use base qw(Debconf::Element); + + +sub visible { + my $this=shift; + + return; +} + + +sub show { + my $this=shift; + + my $default=''; + $default=$this->question->value if defined $this->question->value; + $this->value($default); +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Boolean.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Boolean.pm new file mode 100644 index 0000000..b57d144 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Boolean.pm @@ -0,0 +1,10 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Noninteractive::Boolean; +use strict; +use base qw(Debconf::Element::Noninteractive); + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Error.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Error.pm new file mode 100644 index 0000000..59701db --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Error.pm @@ -0,0 +1,63 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Noninteractive::Error; +use strict; +use Text::Wrap; +use Debconf::Gettext; +use Debconf::Config; +use Debconf::Log ':all'; +use base qw(Debconf::Element::Noninteractive); + + + +sub show { + my $this=shift; + + if ($this->question->flag('seen') ne 'true') { + $this->sendmail(gettext("Debconf was not configured to display this error message, so it mailed it to you.")); + } + $this->value(''); +} + + +sub sendmail { + my $this=shift; + my $footer=shift; + return unless length Debconf::Config->admin_email; + if (-x '/usr/bin/mail') { + debug user => "mailing a note"; + my $title=gettext("Debconf").": ". + $this->frontend->title." -- ". + $this->question->description; + unless (open(MAIL, "|-")) { # child + exec("mail", "-s", $title, Debconf::Config->admin_email) or return ''; + } + my $old_columns=$Text::Wrap::columns; + $Text::Wrap::columns=75; + if ($this->question->extended_description ne '') { + print MAIL wrap('', '', $this->question->extended_description); + } + else { + print MAIL wrap('', '', $this->question->description); + } + print MAIL "\n\n"; + my $hostname=`hostname -f 2>/dev/null`; + if (! defined $hostname) { + $hostname="unknown system"; + } + print MAIL "-- \n", sprintf(gettext("Debconf, running at %s"), $hostname, "\n"); + print MAIL "[ ", wrap('', '', $footer), " ]\n" if $footer; + close MAIL or return ''; + + $Text::Wrap::columns=$old_columns; + + $this->question->flag('seen', 'true'); + + return 1; + } +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Multiselect.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Multiselect.pm new file mode 100644 index 0000000..a30c804 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Multiselect.pm @@ -0,0 +1,10 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Noninteractive::Multiselect; +use strict; +use base qw(Debconf::Element::Noninteractive); + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Note.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Note.pm new file mode 100644 index 0000000..6567819 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Note.pm @@ -0,0 +1,10 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Noninteractive::Note; +use strict; +use base qw(Debconf::Element::Noninteractive); + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Password.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Password.pm new file mode 100644 index 0000000..da6dcce --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Password.pm @@ -0,0 +1,10 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Noninteractive::Password; +use strict; +use base qw(Debconf::Element::Noninteractive); + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Progress.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Progress.pm new file mode 100644 index 0000000..3c14c47 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Progress.pm @@ -0,0 +1,24 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Noninteractive::Progress; +use strict; +use base qw(Debconf::Element::Noninteractive); + + +sub start { +} + +sub set { + return 1; +} + +sub info { + return 1; +} + +sub stop { +} + +1; diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Select.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Select.pm new file mode 100644 index 0000000..5b74aec --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Select.pm @@ -0,0 +1,35 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Noninteractive::Select; +use strict; +use base qw(Debconf::Element::Noninteractive); + + +sub show { + my $this=shift; + + $this->question->template->i18n(''); + my @choices=$this->question->choices_split; + $this->question->template->i18n(1); + my $value=$this->question->value; + $value='' unless defined $value; + my $inlist=0; + map { $inlist=1 if $_ eq $value } @choices; + + if (! $inlist) { + if (@choices) { + $this->value($choices[0]); + } + else { + $this->value(''); + } + } + else { + $this->value($value); + } +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/String.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/String.pm new file mode 100644 index 0000000..adbc516 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/String.pm @@ -0,0 +1,10 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Noninteractive::String; +use strict; +use base qw(Debconf::Element::Noninteractive); + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Text.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Text.pm new file mode 100644 index 0000000..be14ae8 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Text.pm @@ -0,0 +1,16 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Noninteractive::Text; +use strict; +use base qw(Debconf::Element::Noninteractive); + + +sub show { + my $this=shift; + + $this->value(''); +} + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Select.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Select.pm new file mode 100644 index 0000000..4082518 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Select.pm @@ -0,0 +1,78 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Select; +use strict; +use Debconf::Log ':all'; +use Debconf::Gettext; +use base qw(Debconf::Element); +use Debconf::Encoding qw(to_Unicode); + + +sub visible { + my $this=shift; + + my @choices=$this->question->choices_split; + + if (@choices > 1) { + return 1; + } + else { + debug 'developer' => 'Not displaying select list '. + $this->question->name.' with '. + (@choices+0).' choice'.((@choices == 0) ? 's' : ''); + return 0; + } +} + + +sub translate_default { + my $this=shift; + + my @choices=$this->question->choices_split; + $this->question->template->i18n(''); + my @choices_c=$this->question->choices_split; + $this->question->template->i18n(1); + + my $c_default=''; + $c_default=$this->question->value if defined $this->question->value; + foreach (my $x=0; $x <= $#choices; $x++) { + return $choices[$x] if $choices_c[$x] eq $c_default; + } + return ''; +} + + +sub translate_to_C { + my $this=shift; + my $value=shift; + + my @choices=$this->question->choices_split; + $this->question->template->i18n(''); + my @choices_c=$this->question->choices_split; + $this->question->template->i18n(1); + + for (my $x=0; $x <= $#choices; $x++) { + return $choices_c[$x] if $choices[$x] eq $value; + } + debug developer => sprintf(gettext("Input value, \"%s\" not found in C choices! This should never happen. Perhaps the templates were incorrectly localized."), $value); + return ''; +} + +sub translate_to_C_uni { + my $this=shift; + my $value=shift; + my @choices=$this->question->choices_split; + $this->question->template->i18n(''); + my @choices_c=$this->question->choices_split; + $this->question->template->i18n(1); + + for (my $x=0; $x <= $#choices; $x++) { + return $choices_c[$x] if to_Unicode($choices[$x]) eq $value; + } + debug developer => sprintf(gettext("Input value, \"%s\" not found in C choices! This should never happen. Perhaps the templates were incorrectly localized."), $value); + return ''; +} + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Boolean.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Boolean.pm new file mode 100644 index 0000000..584ebca --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Boolean.pm @@ -0,0 +1,67 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Teletype::Boolean; +use strict; +use Debconf::Gettext; +use base qw(Debconf::Element); + + +sub show { + my $this=shift; + + my $y=gettext("yes"); + my $n=gettext("no"); + + $this->frontend->display($this->question->extended_description."\n"); + + my $default=''; + $default=$this->question->value if defined $this->question->value; + if ($default eq 'true') { + $default=$y; + } + elsif ($default eq 'false') { + $default=$n; + } + + my $value=''; + + while (1) { + $_=$this->frontend->prompt( + default => $default, + completions => [$y, $n], + prompt => $this->question->description, + question => $this->question, + ); + return unless defined $_; + + if (substr($y, 0, 1) ne substr($n, 0, 1)) { + $y=substr($y, 0, 1); + $n=substr($n, 0, 1); + } + if (/^\Q$y\E/i) { + $value='true'; + last; + } + elsif (/^\Q$n\E/i) { + $value='false'; + last; + } + + if (/^y/i) { + $value='true'; + last; + } + elsif (/^n/i) { + $value='false'; + last; + } + } + + $this->frontend->display("\n"); + $this->value($value); +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Error.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Error.pm new file mode 100644 index 0000000..3f0543f --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Error.pm @@ -0,0 +1,10 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Teletype::Error; +use strict; +use base qw(Debconf::Element::Teletype::Text); + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Multiselect.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Multiselect.pm new file mode 100644 index 0000000..8bc89a3 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Multiselect.pm @@ -0,0 +1,78 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Teletype::Multiselect; +use strict; +use Debconf::Gettext; +use Debconf::Config; +use base qw(Debconf::Element::Multiselect Debconf::Element::Teletype::Select); + + +sub show { + my $this=shift; + + my @selected; + my $none_of_the_above=gettext("none of the above"); + + my @choices=$this->question->choices_split; + my %value = map { $_ => 1 } $this->translate_default; + if ($this->frontend->promptdefault && $this->question->value ne '') { + push @choices, $none_of_the_above; + } + my @completions=@choices; + my $i=1; + my %choicenum=map { $_ => $i++ } @choices; + + $this->frontend->display($this->question->extended_description."\n"); + + my $default; + if (Debconf::Config->terse eq 'false') { + $this->printlist(@choices); + $this->frontend->display("\n(".gettext("Enter the items you want to select, separated by spaces.").")\n"); + push @completions, 1..@choices; + $default=join(" ", map { $choicenum{$_} } + grep { $value{$_} } @choices); + } + else { + $default=join(" ", grep { $value{$_} } @choices); + } + + while (1) { + $_=$this->frontend->prompt( + prompt => $this->question->description, + default => $default, + completions => [@completions], + completion_append_character => " ", + question => $this->question, + ); + return unless defined $_; + + @selected=split(/[ ,]+/, $_); + + @selected=map { $this->expandabbrev($_, @choices) } @selected; + + next if grep { $_ eq '' } @selected; + + if ($#selected > 0) { + map { next if $_ eq $none_of_the_above } @selected; + } + + last; + } + + $this->frontend->display("\n"); + + if (defined $selected[0] && $selected[0] eq $none_of_the_above) { + $this->value(''); + } + else { + my %selected=map { $_ => 1 } @selected; + + $this->value(join(', ', $this->order_values( + map { $this->translate_to_C($_) } + keys %selected))); + } +} + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Note.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Note.pm new file mode 100644 index 0000000..086f6d2 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Note.pm @@ -0,0 +1,26 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Teletype::Note; +use strict; +use base qw(Debconf::Element); + + + +sub visible { + my $this=shift; + + return (Debconf::Config->terse eq 'false'); +} + +sub show { + my $this=shift; + + $this->frontend->display($this->question->description."\n\n". + $this->question->extended_description."\n"); + + $this->value(''); +} + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Password.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Password.pm new file mode 100644 index 0000000..3d07d59 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Password.pm @@ -0,0 +1,34 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Teletype::Password; +use strict; +use base qw(Debconf::Element); + + +sub show { + my $this=shift; + + $this->frontend->display( + $this->question->extended_description."\n"); + + my $default=''; + $default=$this->question->value if defined $this->question->value; + + my $value=$this->frontend->prompt_password( + prompt => $this->question->description, + default => $default, + question => $this->question, + ); + return unless defined $value; + + if ($value eq '') { + $value=$default; + } + + $this->frontend->display("\n"); + $this->value($value); +} + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Progress.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Progress.pm new file mode 100644 index 0000000..35985dd --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Progress.pm @@ -0,0 +1,46 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Teletype::Progress; +use strict; +use base qw(Debconf::Element); + + +sub start { + my $this=shift; + + $this->frontend->title($this->question->description); + $this->frontend->display(''); + $this->last(0); +} + +sub set { + my $this=shift; + my $value=shift; + + $this->progress_cur($value); + + use integer; + my $new = ($this->progress_cur() - $this->progress_min()) * 100 / ($this->progress_max() - $this->progress_min()); + $this->last(0) if $new < $this->last; + return if $new / 10 == $this->last / 10; + + $this->last($new); + $this->frontend->display("..$new%"); + + return 1; +} + +sub info { + return 1; +} + +sub stop { + my $this=shift; + + $this->frontend->display("\n"); + $this->frontend->title($this->frontend->requested_title); +} + +1; diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Select.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Select.pm new file mode 100644 index 0000000..e5a02a3 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Select.pm @@ -0,0 +1,144 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Teletype::Select; +use strict; +use Debconf::Config; +use POSIX qw(ceil); +use base qw(Debconf::Element::Select); + + +sub expandabbrev { + my $this=shift; + my $input=shift; + my @choices=@_; + + if (Debconf::Config->terse eq 'false' and + $input=~m/^[0-9]+$/ and $input ne '0' and $input <= @choices) { + return $choices[$input - 1]; + } + + my @matches=(); + foreach (@choices) { + return $_ if /^\Q$input\E$/; + push @matches, $_ if /^\Q$input\E/; + } + return $matches[0] if @matches == 1; + + if (! @matches) { + foreach (@choices) { + return $_ if /^\Q$input\E$/i; + push @matches, $_ if /^\Q$input\E/i; + } + return $matches[0] if @matches == 1; + } + + return ''; +} + + +sub printlist { + my $this=shift; + my @choices=@_; + my $width=$this->frontend->screenwidth; + + my $choice_min=length $choices[0]; + map { $choice_min = length $_ if length $_ < $choice_min } @choices; + my $max_cols=int($width / (2 + length(@choices) + 2 + $choice_min)) - 1; + $max_cols = $#choices if $max_cols > $#choices; + + my $max_lines; + my $num_cols; +COLUMN: for ($num_cols = $max_cols; $num_cols >= 0; $num_cols--) { + my @col_width; + my $total_width; + + $max_lines=ceil(($#choices + 1) / ($num_cols + 1)); + + next if ceil(($#choices + 1) / $max_lines) - 1 < $num_cols; + + foreach (my $choice=1; $choice <= $#choices + 1; $choice++) { + my $choice_length=2 + + length(@choices) + 2 + + length($choices[$choice - 1]); + my $current_col=ceil($choice / $max_lines) - 1; + if (! defined $col_width[$current_col] || + $choice_length > $col_width[$current_col]) { + $col_width[$current_col]=$choice_length; + $total_width=0; + map { $total_width += $_ } @col_width; + next COLUMN if $total_width > $width; + } + } + + last; + } + + my $line=0; + my $max_len=0; + my $col=0; + my @output=(); + for (my $choice=0; $choice <= $#choices; $choice++) { + $output[$line] .= " ".($choice+1).". " . $choices[$choice]; + if (length $output[$line] > $max_len) { + $max_len = length $output[$line]; + } + if (++$line >= $max_lines) { + if ($col++ != $num_cols) { + for (my $l=0; $l <= $#output; $l++) { + $output[$l] .= ' ' x ($max_len - length $output[$l]); + } + } + + $line=0; + $max_len=0; + } + } + + @output = map { s/\s+$//; $_ } @output; + + map { $this->frontend->display_nowrap($_) } @output; +} + +sub show { + my $this=shift; + + my $default=$this->translate_default; + my @choices=$this->question->choices_split; + my @completions=@choices; + + $this->frontend->display($this->question->extended_description."\n"); + + if (Debconf::Config->terse eq 'false') { + for (my $choice=0; $choice <= $#choices; $choice++) { + if ($choices[$choice] eq $default) { + $default=$choice + 1; + last; + } + } + + $this->printlist(@choices); + $this->frontend->display("\n"); + + push @completions, 1..@choices; + } + + my $value; + while (1) { + $value=$this->frontend->prompt( + prompt => $this->question->description, + default => $default ? $default : '', + completions => [@completions], + question => $this->question, + ); + return unless defined $value; + $value=$this->expandabbrev($value, @choices); + last if $value ne ''; + } + $this->frontend->display("\n"); + $this->value($this->translate_to_C($value)); +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/String.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/String.pm new file mode 100644 index 0000000..9b935b3 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/String.pm @@ -0,0 +1,30 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Teletype::String; +use strict; +use base qw(Debconf::Element); + + +sub show { + my $this=shift; + + $this->frontend->display( + $this->question->extended_description."\n"); + + my $default=''; + $default=$this->question->value if defined $this->question->value; + + my $value=$this->frontend->prompt( + prompt => $this->question->description, + default => $default, + question => $this->question, + ); + return unless defined $value; + + $this->frontend->display("\n"); + $this->value($value); +} + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Text.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Text.pm new file mode 100644 index 0000000..e24e8c6 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Text.pm @@ -0,0 +1,19 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Teletype::Text; +use strict; +use base qw(Debconf::Element); + + +sub show { + my $this=shift; + + $this->frontend->display($this->question->description."\n\n". + $this->question->extended_description."\n"); + + $this->value(''); +} + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Boolean.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Boolean.pm new file mode 100644 index 0000000..37748e6 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Boolean.pm @@ -0,0 +1,36 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Web::Boolean; +use strict; +use base qw(Debconf::Element); + + +sub show { + my $this=shift; + + $_=$this->question->extended_description; + s/\n/\n<br>\n/g; + $_.="\n<p>\n"; + + my $default=''; + $default=$this->question->value if defined $this->question->value; + my $id=$this->id; + $_.="<input type=checkbox name=\"$id\"". ($default eq 'true' ? ' checked' : ''). ">\n<b>". + $this->question->description."</b>"; + + return $_; +} + + +sub value { + my $this=shift; + + return $this->SUPER::value() unless @_; + my $value=shift; + $this->SUPER::value($value eq 'on' ? 'true' : 'false'); +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Error.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Error.pm new file mode 100644 index 0000000..cad58e3 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Error.pm @@ -0,0 +1,10 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Web::Error; +use strict; +use base qw(Debconf::Element::Web::Text); + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Multiselect.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Multiselect.pm new file mode 100644 index 0000000..18bad0d --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Multiselect.pm @@ -0,0 +1,51 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Web::Multiselect; +use strict; +use base qw(Debconf::Element::Multiselect); + + +sub show { + my $this=shift; + + $_=$this->question->extended_description; + s/\n/\n<br>\n/g; + $_.="\n<p>\n"; + + my %value = map { $_ => 1 } $this->translate_default; + + my $id=$this->id; + $_.="<b>".$this->question->description."</b>\n<select multiple name=\"$id\">\n"; + my $c=0; + foreach my $x ($this->question->choices_split) { + if (! $value{$x}) { + $_.="<option value=".$c++.">$x\n"; + } + else { + $_.="<option value=".$c++." selected>$x\n"; + } + } + $_.="</select>\n"; + + return $_; +} + + +sub value { + my $this=shift; + + return $this->SUPER::value() unless @_; + + my @values=@_; + + $this->question->template->i18n(''); + my @choices=$this->question->choices_split; + $this->question->template->i18n(1); + + $this->SUPER::value(join(', ', $this->order_values(map { $choices[$_] } @values))); +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Note.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Note.pm new file mode 100644 index 0000000..d7fd359 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Note.pm @@ -0,0 +1,10 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Web::Note; +use strict; +use base qw(Debconf::Element::Web::Text); + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Password.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Password.pm new file mode 100644 index 0000000..0242e5e --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Password.pm @@ -0,0 +1,26 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Web::Password; +use strict; +use base qw(Debconf::Element); + + +sub show { + my $this=shift; + + $_=$this->question->extended_description; + s/\n/\n<br>\n/g; + $_.="\n<p>\n"; + + my $default=''; + $default=$this->question->value if defined $this->question->value; + my $id=$this->id; + $_.="<b>".$this->question->description."</b><input type=password name=\"$id\" value=\"$default\">\n"; + + return $_; +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Progress.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Progress.pm new file mode 100644 index 0000000..d186fe8 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Progress.pm @@ -0,0 +1,24 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Web::Progress; +use strict; +use base qw(Debconf::Element); + + +sub start { +} + +sub set { + return 1; +} + +sub info { + return 1; +} + +sub stop { +} + +1; diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Select.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Select.pm new file mode 100644 index 0000000..1a3b456 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Select.pm @@ -0,0 +1,48 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Web::Select; +use strict; +use base qw(Debconf::Element::Select); + + +sub show { + my $this=shift; + + $_=$this->question->extended_description; + s/\n/\n<br>\n/g; + $_.="\n<p>\n"; + + my $default=$this->translate_default; + my $id=$this->id; + $_.="<b>".$this->question->description."</b>\n<select name=\"$id\">\n"; + my $c=0; + foreach my $x ($this->question->choices_split) { + if ($x ne $default) { + $_.="<option value=".$c++.">$x\n"; + } + else { + $_.="<option value=".$c++." selected>$x\n"; + } + } + $_.="</select>\n"; + + return $_; +} + + +sub value { + my $this=shift; + + return $this->SUPER::value() unless @_; + my $value=shift; + + $this->question->template->i18n(''); + my @choices=$this->question->choices_split; + $this->question->template->i18n(1); + $this->SUPER::value($choices[$value]); +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/String.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/String.pm new file mode 100644 index 0000000..3fefbf2 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/String.pm @@ -0,0 +1,26 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Web::String; +use strict; +use base qw(Debconf::Element); + + +sub show { + my $this=shift; + + $_=$this->question->extended_description; + s/\n/\n<br>\n/g; + $_.="\n<p>\n"; + + my $default=''; + $default=$this->question->value if defined $this->question->value; + my $id=$this->id; + $_.="<b>".$this->question->description."</b><input name=\"$id\" value=\"$default\">\n"; + + return $_; +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Text.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Text.pm new file mode 100644 index 0000000..fad43f0 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Text.pm @@ -0,0 +1,21 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Web::Text; +use strict; +use base qw(Debconf::Element); + + +sub show { + my $this=shift; + + $_=$this->question->extended_description; + s/\n/\n<br>\n/g; + $_.="\n<p>\n"; + + return "<b>".$this->question->description."</b>$_<p>"; +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Encoding.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Encoding.pm new file mode 100644 index 0000000..2837f9a --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Encoding.pm @@ -0,0 +1,73 @@ +#!/usr/bin/perl +# This file was preprocessed, do not edit! + + +package Debconf::Encoding; + +use strict; +use warnings; + +our $charmap; +BEGIN { + no warnings; + eval q{ use Text::Iconv }; + use warnings; + if (! $@) { + $charmap = `locale charmap`; + chomp $charmap; + } + + no warnings; + eval q{ use Text::WrapI18N; use Text::CharWidth }; + use warnings; + if (! $@) { + *wrap = *Text::WrapI18N::wrap; + *columns = *Text::WrapI18N::columns; + *width = *Text::CharWidth::mbswidth; + } + else { + require Text::Wrap; + require Text::Tabs; + sub _wrap { return Text::Tabs::expand(Text::Wrap::wrap(@_)) } + *wrap = *_wrap; + *columns = *Text::Wrap::columns; + sub _dumbwidth { length shift } + *width = *_dumbwidth; + } +} + +use base qw(Exporter); +our @EXPORT_OK=qw(wrap $columns width convert $charmap to_Unicode); + +my $converter; +my $old_input_charmap; +sub convert { + my $input_charmap = shift; + my $string = shift; + + return unless defined $charmap; + + if (! defined $old_input_charmap || + $input_charmap ne $old_input_charmap) { + $converter = Text::Iconv->new($input_charmap, $charmap); + $old_input_charmap = $input_charmap; + } + return $converter->convert($string); +} + +my $unicode_conv; +sub to_Unicode { + my $string = shift; + my $result; + + return $string if utf8::is_utf8($string); + if (!defined $unicode_conv) { + $unicode_conv = Text::Iconv->new($charmap, "UTF-8"); + } + $result = $unicode_conv->convert($string); + utf8::decode($result); + return $result; +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Format.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Format.pm new file mode 100644 index 0000000..5058937 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Format.pm @@ -0,0 +1,10 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Format; +use strict; +use base qw(Debconf::Base); + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Format/822.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Format/822.pm new file mode 100644 index 0000000..7d627b3 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Format/822.pm @@ -0,0 +1,109 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Format::822; +use strict; +use base 'Debconf::Format'; + + +sub beginfile {} +sub endfile {} + +sub read { + my $this=shift; + my $fh=shift; + + local $/="\n"; + + my $name; + my %ret=( + owners => {}, + fields => {}, + variables => {}, + flags => {}, + ); + + my $invars=0; + my $line; + while ($line = <$fh>) { + chomp $line; + last if $line eq ''; # blank line is our record delimiter + + if ($invars) { + if ($line =~ /^\s/) { + $line =~ s/^\s+//; + my ($var, $value)=split(/\s*=\s?/, $line, 2); + $value=~s/\\n/\n/g; + $ret{variables}->{$var}=$value; + next; + } + else { + $invars=0; + } + } + + my ($key, $value)=split(/:\s?/, $line, 2); + $key=lc($key); + if ($key eq 'owners') { + foreach my $owner (split(/,\s+/, $value)) { + $ret{owners}->{$owner}=1; + } + } + elsif ($key eq 'flags') { + foreach my $flag (split(/,\s+/, $value)) { + $ret{flags}->{$flag}='true'; + } + } + elsif ($key eq 'variables') { + $invars=1; + } + elsif ($key eq 'name') { + $name=$value; + } + elsif (length $key) { + $value=~s/\\n/\n/g; + $ret{fields}->{$key}=$value; + } + } + + return unless defined $name; + return $name, \%ret; +} + +sub write { + my $this=shift; + my $fh=shift; + my %data=%{shift()}; + my $name=shift; + + print $fh "Name: $name\n" or return undef; + foreach my $field (sort keys %{$data{fields}}) { + my $val=$data{fields}->{$field}; + $val=~s/\n/\\n/g; + print $fh ucfirst($field).": $val\n" or return undef; + } + if (keys %{$data{owners}}) { + print $fh "Owners: ".join(", ", sort keys(%{$data{owners}}))."\n" + or return undef; + } + if (grep { $data{flags}->{$_} eq 'true' } keys %{$data{flags}}) { + print $fh "Flags: ".join(", ", + grep { $data{flags}->{$_} eq 'true' } + sort keys(%{$data{flags}}))."\n" + or return undef; + } + if (keys %{$data{variables}}) { + print $fh "Variables:\n" or return undef; + foreach my $var (sort keys %{$data{variables}}) { + my $val=$data{variables}->{$var}; + $val=~s/\n/\\n/g; + print $fh " $var = $val\n" or return undef; + } + } + print $fh "\n" or return undef; # end of record delimiter + return 1; +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/FrontEnd.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/FrontEnd.pm new file mode 100644 index 0000000..46c69a0 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/FrontEnd.pm @@ -0,0 +1,172 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::FrontEnd; +use strict; +use Debconf::Gettext; +use Debconf::Priority; +use Debconf::Log ':all'; +use base qw(Debconf::Base); + + +sub init { + my $this=shift; + + $this->elements([]); + $this->interactive(''); + $this->capb(''); + $this->title(''); + $this->requested_title(''); + $this->info(undef); + $this->need_tty(1); +} + + +sub elementtype { + my $this=shift; + + my $ret; + if (ref $this) { + ($ret) = ref($this) =~ m/Debconf::FrontEnd::(.*)/; + } + else { + ($ret) = $this =~ m/Debconf::FrontEnd::(.*)/; + } + return $ret; +} + +my %nouse; + +sub _loadelementclass { + my $this=shift; + my $type=shift; + my $nodebug=shift; + + if (! UNIVERSAL::can("Debconf::Element::$type", 'new')) { + return if $nouse{$type}; + eval qq{use Debconf::Element::$type}; + if ($@ || ! UNIVERSAL::can("Debconf::Element::$type", 'new')) { + warn sprintf(gettext("Unable to load Debconf::Element::%s. Failed because: %s"), $type, $@) if ! $nodebug; + $nouse{$type}=1; + return; + } + } +} + + +sub makeelement { + my $this=shift; + my $question=shift; + my $nodebug=shift; + + my $type=$this->elementtype.'::'.ucfirst($question->type); + $type=~s/::$//; # in case the question has no type.. + + $this->_loadelementclass($type, $nodebug); + + my $element="Debconf::Element::$type"->new(question => $question); + return if ! ref $element; + return $element; +} + + +sub add { + my $this=shift; + my $element=shift; + + foreach (@{$this->elements}) { + return if $element->question == $_->question; + } + + $element->frontend($this); + push @{$this->elements}, $element; +} + + +sub go { + my $this=shift; + $this->backup(''); + foreach my $element (@{$this->elements}) { + $element->show; + return if $this->backup && $this->capb_backup; + } + return 1; +} + + +sub progress_start { + my $this=shift; + my $min=shift; + my $max=shift; + my $question=shift; + + my $type = $this->elementtype.'::Progress'; + $this->_loadelementclass($type); + + my $element="Debconf::Element::$type"->new(question => $question); + unless (ref $element) { + return; + } + $element->frontend($this); + $element->progress_min($min); + $element->progress_max($max); + $element->progress_cur($min); + + $element->start; + + $this->progress_bar($element); +} + + +sub progress_set { + my $this=shift; + my $value=shift; + + return $this->progress_bar->set($value); +} + + +sub progress_step { + my $this=shift; + my $inc=shift; + + return $this->progress_set($this->progress_bar->progress_cur + $inc); +} + + +sub progress_info { + my $this=shift; + my $question=shift; + + return $this->progress_bar->info($question); +} + + +sub progress_stop { + my $this=shift; + + $this->progress_bar->stop; + $this->progress_bar(undef); +} + + +sub clear { + my $this=shift; + + $this->elements([]); +} + + +sub default_title { + my $this=shift; + + $this->title(sprintf(gettext("Configuring %s"), shift)); + $this->requested_title($this->title); +} + + +sub shutdown {} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/FrontEnd/Dialog.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/FrontEnd/Dialog.pm new file mode 100644 index 0000000..61ac411 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/FrontEnd/Dialog.pm @@ -0,0 +1,317 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::FrontEnd::Dialog; +use strict; +use Debconf::Gettext; +use Debconf::Priority; +use Debconf::TmpFile; +use Debconf::Log qw(:all); +use Debconf::Encoding qw(wrap $columns width); +use IPC::Open3; +use POSIX; +use Fcntl; +use base qw(Debconf::FrontEnd::ScreenSize); + + +sub init { + my $this=shift; + + $this->SUPER::init(@_); + + delete $ENV{POSIXLY_CORRECT} if exists $ENV{POSIXLY_CORRECT}; + delete $ENV{POSIX_ME_HARDER} if exists $ENV{POSIX_ME_HARDER}; + + if (! exists $ENV{TERM} || ! defined $ENV{TERM} || $ENV{TERM} eq '') { + die gettext("TERM is not set, so the dialog frontend is not usable.")."\n"; + } + elsif ($ENV{TERM} =~ /emacs/i) { + die gettext("Dialog frontend is incompatible with emacs shell buffers")."\n"; + } + elsif ($ENV{TERM} eq 'dumb' || $ENV{TERM} eq 'unknown') { + die gettext("Dialog frontend will not work on a dumb terminal, an emacs shell buffer, or without a controlling terminal.")."\n"; + } + + $this->interactive(1); + $this->capb('backup'); + + if (-x "/usr/bin/whiptail" && + (! defined $ENV{DEBCONF_FORCE_DIALOG} || ! -x "/usr/bin/dialog") && + (! defined $ENV{DEBCONF_FORCE_XDIALOG} || ! -x "/usr/bin/Xdialog")) { + $this->program('whiptail'); + $this->dashsep('--'); + $this->borderwidth(5); + $this->borderheight(6); + $this->spacer(1); + $this->titlespacer(10); + $this->columnspacer(3); + $this->selectspacer(13); + $this->hasoutputfd(1); + } + elsif (-x "/usr/bin/dialog" && + (! defined $ENV{DEBCONF_FORCE_XDIALOG} || ! -x "/usr/bin/Xdialog")) { + $this->program('dialog'); + $this->dashsep(''); # dialog does not need (or support) + $this->borderwidth(7); + $this->borderheight(6); + $this->spacer(0); + $this->titlespacer(4); + $this->columnspacer(2); + $this->selectspacer(0); + $this->hasoutputfd(1); + } + elsif (-x "/usr/bin/Xdialog" && defined $ENV{DISPLAY}) { + $this->program("Xdialog"); + $this->borderwidth(7); + $this->borderheight(20); + $this->spacer(0); + $this->titlespacer(10); + $this->selectspacer(0); + $this->columnspacer(2); + $this->screenheight(200); + } + else { + die gettext("No usable dialog-like program is installed, so the dialog based frontend cannot be used."); + } + + if ($this->screenheight < 13 || $this->screenwidth < 31) { + die gettext("Dialog frontend requires a screen at least 13 lines tall and 31 columns wide.")."\n"; + } +} + + +sub sizetext { + my $this=shift; + my $text=shift; + + $columns = $this->screenwidth - $this->borderwidth - $this->columnspacer; + $text=wrap('', '', $text); + my @lines=split(/\n/, $text); + + my $window_columns=width($this->title) + $this->titlespacer; + map { + my $w=width($_); + $window_columns = $w if $w > $window_columns; + } @lines; + + return $text, $#lines + 1 + $this->borderheight, + $window_columns + $this->borderwidth; +} + + +sub hide_escape { + my $line = $_; + + $line =~ s/\\n/\\\xe2\x81\xa0n/g; + return $line; +} + + +sub showtext { + my $this=shift; + my $question=shift; + my $intext=shift; + + my $lines = $this->screenheight; + my ($text, $height, $width)=$this->sizetext($intext); + + my @lines = split(/\n/, $text); + my $num; + my @args=('--msgbox', join("\n", @lines)); + if ($lines - 4 - $this->borderheight <= $#lines) { + $num=$lines - 4 - $this->borderheight; + if ($this->program eq 'whiptail') { + push @args, '--scrolltext'; + } + else { + my $fh=Debconf::TmpFile::open(); + print $fh join("\n", map &hide_escape, @lines); + close $fh; + @args=("--textbox", Debconf::TmpFile::filename()); + } + } + else { + $num=$#lines + 1; + } + $this->showdialog($question, @args, $num + $this->borderheight, $width); + if ($args[0] eq '--textbox') { + Debconf::TmpFile::cleanup(); + } +} + + +sub makeprompt { + my $this=shift; + my $question=shift; + my $freelines=$this->screenheight - $this->borderheight + 1; + $freelines += shift if @_; + + my ($text, $lines, $columns)=$this->sizetext( + $question->extended_description."\n\n". + $question->description + ); + + if ($lines > $freelines) { + $this->showtext($question, $question->extended_description); + ($text, $lines, $columns)=$this->sizetext($question->description); + } + + return ($text, $lines, $columns); +} + +sub startdialog { + my $this=shift; + my $question=shift; + my $wantinputfd=shift; + + debug debug => "preparing to run dialog. Params are:" , + join(",", $this->program, @_); + + use vars qw{*SAVEOUT *SAVEIN}; + open(SAVEOUT, ">&STDOUT") || die $!; + $this->dialog_saveout(\*SAVEOUT); + if ($wantinputfd) { + $this->dialog_savein(undef); + } else { + open(SAVEIN, "<&STDIN") || die $!; + $this->dialog_savein(\*SAVEIN); + } + + $this->dialog_savew($^W); + $^W=0; + + unless ($this->capb_backup || grep { $_ eq '--defaultno' } @_) { + if ($this->program ne 'Xdialog') { + unshift @_, '--nocancel'; + } + else { + unshift @_, '--no-cancel'; + } + } + + if ($this->program eq 'Xdialog' && $_[0] eq '--passwordbox') { + $_[0]='--password --inputbox' + } + + use vars qw{*OUTPUT_RDR *OUTPUT_WTR}; + if ($this->hasoutputfd) { + pipe(OUTPUT_RDR, OUTPUT_WTR) || die "pipe: $!"; + my $flags=fcntl(\*OUTPUT_WTR, F_GETFD, 0); + fcntl(\*OUTPUT_WTR, F_SETFD, $flags & ~FD_CLOEXEC); + $this->dialog_output_rdr(\*OUTPUT_RDR); + unshift @_, "--output-fd", fileno(\*OUTPUT_WTR); + } + + my $backtitle=''; + if (defined $this->info) { + $backtitle = $this->info->description; + } else { + $backtitle = gettext("Package configuration"); + } + + use vars qw{*INPUT_RDR *INPUT_WTR}; + if ($wantinputfd) { + pipe(INPUT_RDR, INPUT_WTR) || die "pipe: $!"; + autoflush INPUT_WTR 1; + my $flags=fcntl(\*INPUT_RDR, F_GETFD, 0); + fcntl(\*INPUT_RDR, F_SETFD, $flags & ~FD_CLOEXEC); + $this->dialog_input_wtr(\*INPUT_WTR); + } else { + $this->dialog_input_wtr(undef); + } + + use vars qw{*ERRFH}; + my $pid = open3($wantinputfd ? '<&INPUT_RDR' : '<&STDIN', '>&STDOUT', + \*ERRFH, $this->program, + '--backtitle', $backtitle, + '--title', $this->title, @_); + $this->dialog_errfh(\*ERRFH); + $this->dialog_pid($pid); + close OUTPUT_WTR if $this->hasoutputfd; +} + +sub waitdialog { + my $this=shift; + + my $input_wtr=$this->dialog_input_wtr; + if ($input_wtr) { + close $input_wtr; + } + my $output_rdr=$this->dialog_output_rdr; + my $errfh=$this->dialog_errfh; + my $output=''; + if ($this->hasoutputfd) { + while (<$output_rdr>) { + $output.=$_; + } + my $error=0; + while (<$errfh>) { + print STDERR $_; + $error++; + } + if ($error) { + die sprintf("debconf: %s output the above errors, giving up!", $this->program)."\n"; + } + } + else { + while (<$errfh>) { # ugh + $output.=$_; + } + } + chomp $output; + + waitpid($this->dialog_pid, 0); + $^W=$this->dialog_savew; + + if (defined $this->dialog_savein) { + open(STDIN, '<&', $this->dialog_savein) || die $!; + } + open(STDOUT, '>&', $this->dialog_saveout) || die $!; + + my $ret=$? >> 8; + if ($ret == 255 || ($ret == 1 && join(' ', @_) !~ m/--yesno\s/)) { + $this->backup(1); + return undef; + } + + if (wantarray) { + return $ret, $output; + } + else { + return $output; + } +} + + +sub showdialog { + my $this=shift; + my $question=shift; + + @_=map &hide_escape, @_; + + if (defined $this->progress_bar) { + $this->progress_bar->stop; + } + + $this->startdialog($question, 0, @_); + my (@ret, $ret); + if (wantarray) { + @ret=$this->waitdialog(@_); + } else { + $ret=$this->waitdialog(@_); + } + + if (defined $this->progress_bar) { + $this->progress_bar->start; + } + + if (wantarray) { + return @ret; + } else { + return $ret; + } +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/FrontEnd/Editor.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/FrontEnd/Editor.pm new file mode 100644 index 0000000..489db6c --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/FrontEnd/Editor.pm @@ -0,0 +1,102 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::FrontEnd::Editor; +use strict; +use Debconf::Encoding q(wrap); +use Debconf::TmpFile; +use Debconf::Gettext; +use base qw(Debconf::FrontEnd::ScreenSize); + +my $fh; + + +sub init { + my $this=shift; + + $this->SUPER::init(@_); + $this->interactive(1); +} + + +sub comment { + my $this=shift; + my $comment=shift; + + print $fh wrap('# ','# ',$comment); + $this->filecontents(1); +} + + +sub divider { + my $this=shift; + + print $fh ("\n".('#' x ($this->screenwidth - 1))."\n"); +} + + +sub item { + my $this=shift; + my $name=shift; + my $value=shift; + + print $fh "$name=\"$value\"\n\n"; + $this->filecontents(1); +} + + +sub go { + my $this=shift; + my @elements=@{$this->elements}; + return 1 unless @elements; + + $fh = Debconf::TmpFile::open('.sh'); + + $this->comment(gettext("You are using the editor-based debconf frontend to configure your system. See the end of this document for detailed instructions.")); + $this->divider; + print $fh ("\n"); + + $this->filecontents(''); + foreach my $element (@elements) { + $element->show; + } + + if (! $this->filecontents) { + Debconf::TmpFile::cleanup(); + return 1; + } + + $this->divider; + $this->comment(gettext("The editor-based debconf frontend presents you with one or more text files to edit. This is one such text file. If you are familiar with standard unix configuration files, this file will look familiar to you -- it contains comments interspersed with configuration items. Edit the file, changing any items as necessary, and then save it and exit. At that point, debconf will read the edited file, and use the values you entered to configure the system.")); + print $fh ("\n"); + close $fh; + + my $editor=$ENV{EDITOR} || $ENV{VISUAL} || '/usr/bin/editor'; + system "$editor ".Debconf::TmpFile->filename; + + my %eltname=map { $_->question->name => $_ } @elements; + open (IN, "<".Debconf::TmpFile::filename()); + while (<IN>) { + next if /^\s*#/; + + if (/(.*?)="(.*)"/ && $eltname{$1}) { + $eltname{$1}->value($2); + } + } + close IN; + + Debconf::TmpFile::cleanup(); + + return 1; +} + + +sub screenwidth { + my $this=shift; + + $Debconf::Encoding::columns=$this->SUPER::screenwidth(@_); +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/FrontEnd/Gnome.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/FrontEnd/Gnome.pm new file mode 100644 index 0000000..bb08af0 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/FrontEnd/Gnome.pm @@ -0,0 +1,180 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::FrontEnd::Gnome; +use strict; +use utf8; +use Debconf::Gettext; +use Debconf::Config; +use Debconf::Encoding qw(to_Unicode); +use base qw{Debconf::FrontEnd}; + +eval q{ + use Gtk2; + use Gnome2; +}; +die "Unable to load Gnome -- is libgnome2-perl installed?\n" if $@; + + +our @ARGV_for_gnome=('--sm-disable'); + +sub create_druid_page { + my $this=shift; + + $this->druid_page(Gnome2::DruidPageStandard->new); + $this->druid_page->set_logo($this->logo); + $this->druid_page->signal_connect("back", sub { + $this->goback(1); + Gtk2->main_quit; + return 1; + }); + $this->druid_page->signal_connect("next", sub { + $this->goback(0); + Gtk2->main_quit; + return 1; + }); + $this->druid_page->signal_connect("cancel", sub { exit 1 }); + $this->druid_page->show; + $this->druid->append_page($this->druid_page); + $this->druid->set_page($this->druid_page); +} + +sub init { + my $this=shift; + + if (fork) { + wait(); # for child + if ($? != 0) { + die "DISPLAY problem?\n"; + } + } + else { + @ARGV=@ARGV_for_gnome; # temporary change at first + Gnome2::Program->init('GNOME Debconf', '2.0'); + exit(0); # success + } + + my @gnome_sucks=@ARGV; + @ARGV=@ARGV_for_gnome; + Gnome2::Program->init('GNOME Debconf', '2.0'); + @ARGV=@gnome_sucks; + + $this->SUPER::init(@_); + $this->interactive(1); + $this->capb('backup'); + $this->need_tty(0); + + $this->win(Gtk2::Window->new("toplevel")); + $this->win->set_position("center"); + $this->win->set_default_size(600, 400); + my $hostname = `hostname`; + chomp $hostname; + $this->win->set_title(to_Unicode(sprintf(gettext("Debconf on %s"), $hostname))); + $this->win->signal_connect("delete_event", sub { exit 1 }); + + my $distribution=''; + if (system('type lsb_release >/dev/null 2>&1') == 0) { + $distribution=lc(`lsb_release -is`); + chomp $distribution; + } elsif (-e '/etc/debian_version') { + $distribution='debian'; + } + + my $logo="/usr/share/pixmaps/$distribution-logo.png"; + if (-e $logo) { + $this->logo(Gtk2::Gdk::Pixbuf->new_from_file($logo)); + } + + $this->druid(Gnome2::Druid->new); + $this->druid->show; + $this->win->add($this->druid); + + $this->create_druid_page (); +} + + +sub go { + my $this=shift; + my @elements=@{$this->elements}; + + my $interactive=''; + foreach my $element (@elements) { + next unless $element->hbox; + + $interactive=1; + $this->druid_page->vbox->pack_start($element->hbox, $element->fill, $element->expand, 0); + } + + if ($interactive) { + $this->druid_page->set_title(to_Unicode($this->title)); + if ($this->capb_backup) { + $this->druid->set_buttons_sensitive(1, 1, 1, 1); + } + else { + $this->druid->set_buttons_sensitive(0, 1, 1, 1); + } + $this->win->show; + Gtk2->main; + $this->create_druid_page (); + } + + foreach my $element (@elements) { + $element->show; + } + + return '' if $this->goback; + return 1; +} + +sub progress_start { + my $this=shift; + $this->SUPER::progress_start(@_); + + my $element=$this->progress_bar; + $this->druid_page->vbox->pack_start($element->hbox, $element->fill, $element->expand, 0); + $this->druid_page->set_title(to_Unicode($this->title)); + $this->druid->set_buttons_sensitive(0, 0, 1, 1); + $this->win->show; + + while (Gtk2->events_pending) { + Gtk2->main_iteration; + } +} + +sub progress_set { + my $this=shift; + + my $ret=$this->SUPER::progress_set(@_); + + while (Gtk2->events_pending) { + Gtk2->main_iteration; + } + + return $ret; +} + +sub progress_info { + my $this=shift; + my $ret=$this->SUPER::progress_info(@_); + + while (Gtk2->events_pending) { + Gtk2->main_iteration; + } + + return $ret; +} + +sub progress_stop { + my $this=shift; + $this->SUPER::progress_stop(@_); + + while (Gtk2->events_pending) { + Gtk2->main_iteration; + } + + $this->create_druid_page(); +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/FrontEnd/Kde.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/FrontEnd/Kde.pm new file mode 100644 index 0000000..5483568 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/FrontEnd/Kde.pm @@ -0,0 +1,212 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::FrontEnd::Kde; +use strict; +use utf8; +use Debconf::Gettext; +use Debconf::Config; +BEGIN { + eval { require QtCore4 }; + die "Unable to load QtCore -- is libqtcore4-perl installed?\n" if $@; + eval { require QtGui4 }; + die "Unable to load QtGui -- is libqtgui4-perl installed?\n" if $@; +} +use Debconf::FrontEnd::Kde::Wizard; +use Debconf::Log ':all'; +use base qw{Debconf::FrontEnd}; +use Debconf::Encoding qw(to_Unicode); + + + +our @ARGV_KDE=(); + +sub init { + my $this=shift; + + $this->SUPER::init(@_); + $this->interactive(1); + $this->cancelled(0); + $this->createdelements([]); + $this->dupelements([]); + $this->capb('backup'); + $this->need_tty(0); + + if (fork) { + wait(); # for child + if ($? != 0) { + die "DISPLAY problem?\n"; + } + } + else { + $this->qtapp(Qt::Application(\@ARGV_KDE)); + exit(0); # success + } + + $this->window_initted(0); + $this->kde_initted(0); +} + +sub init_kde { + my $this=shift; + + return if $this->kde_initted; + + debug frontend => "QTF: initializing app"; + $this->qtapp(Qt::Application(\@ARGV_KDE)); + $this->kde_initted(1); +} + +sub init_window { + my $this=shift; + $this->init_kde(); + return if $this->window_initted; + $this->{vbox} = Qt::VBoxLayout; + + debug frontend => "QTF: initializing wizard"; + $this->win(Debconf::FrontEnd::Kde::Wizard(undef,undef, $this)); + debug frontend => "QTF: setting size"; + $this->win->resize(620, 430); + my $hostname = `hostname`; + chomp $hostname; + $this->hostname($hostname); + debug frontend => "QTF: setting title"; + $this->win->setTitle(to_Unicode(sprintf(gettext("Debconf on %s"), $this->hostname))); + debug frontend => "QTF: initializing main widget"; + $this->{toplayout} = Qt::HBoxLayout(); + $this->win->setMainFrameLayout($this->toplayout); + $this->win->setTitle(to_Unicode(sprintf(gettext("Debconf on %s"), $this->hostname))); + $this->window_initted(1); +} + + +sub go { + my $this=shift; + my @elements=@{$this->elements}; + + + $this->init_window; + + + my $interactive=''; + debug frontend => "QTF: -- START ------------------"; + foreach my $element (@elements) { + next unless $element->can("create"); + + $element->create($this->frame); + $interactive=1; + debug frontend => "QTF: ADD: " . $element->question->description; + $this->{vbox}->addWidget($element->top); + } + + if ($interactive) { + foreach my $element (@elements) { + next unless $element->top; + debug frontend => "QTF: SHOW: " . $element->question->description; + $element->top->show; + } + my $scroll = Qt::ScrollArea($this->win); + my $widget = Qt::Widget($scroll); + $widget->setLayout($this->{vbox}); + $scroll->setWidget($widget); + $this->toplayout->addWidget($scroll); + + + if ($this->capb_backup) { + $this->win->setBackEnabled(1); + } + else { + $this->win->setBackEnabled(0); + } + $this->win->setNextEnabled(1); + + $this->win->show; + debug frontend => "QTF: -- ENTER EVENTLOOP --------"; + $this->qtapp->exec; + $this->qtapp->exit; + debug frontend => "QTF: -- LEFT EVENTLOOP --------"; + + $this->win->destroy(); + $this->window_initted(0); + + + } else { + foreach my $element (@elements) { + $element->show; + } + } + + debug frontend => "QTF: -- END --------------------"; + if ($this->cancelled) { + exit 1; + } + return '' if $this->goback; + return 1; +} + +sub progress_start { + my $this=shift; + $this->init_window; + $this->SUPER::progress_start(@_); + + my $element=$this->progress_bar; + $this->{vbox}->addWidget($element->top); + $element->top->show; + my $scroll = Qt::ScrollArea($this->win); + my $widget = Qt::Widget($scroll); + $widget->setLayout($this->{vbox}); + $scroll->setWidget($widget); + $this->toplayout->addWidget($scroll); + $this->win->setBackEnabled(0); + $this->win->setNextEnabled(0); + $this->win->show; + $this->qtapp->processEvents; +} + +sub progress_set { + my $this=shift; + my $ret=$this->SUPER::progress_set(@_); + + $this->qtapp->processEvents; + + return $ret; +} + +sub progress_info { + my $this=shift; + my $ret=$this->SUPER::progress_info(@_); + + $this->qtapp->processEvents; + + return $ret; +} + +sub progress_stop { + my $this=shift; + my $element=$this->progress_bar; + $this->SUPER::progress_stop(@_); + + $this->qtapp->processEvents; + + $this->win->setAttribute(Qt::WA_DeleteOnClose()); + $this->win->close; + $this->window_initted(0); + + if ($this->cancelled) { + exit 1; + } +} + + +sub shutdown { + my $this = shift; + if ($this->kde_initted) { + if($this->win) { + $this->win->destroy; + } + } +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/FrontEnd/Kde/Ui_DebconfWizard.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/FrontEnd/Kde/Ui_DebconfWizard.pm new file mode 100644 index 0000000..c8caf71 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/FrontEnd/Kde/Ui_DebconfWizard.pm @@ -0,0 +1,154 @@ + + +package Debconf::FrontEnd::Kde::Ui_DebconfWizard; + +use strict; +use warnings; +use utf8; +use QtCore4; + +sub vboxLayout { + return shift->{vboxLayout}; +} + +sub title { + return shift->{title}; +} + +sub line1 { + return shift->{line1}; +} + +sub mainFrame { + return shift->{mainFrame}; +} + +sub hboxLayout { + return shift->{hboxLayout}; +} + +sub bHelp { + return shift->{bHelp}; +} + +sub spacer1 { + return shift->{spacer1}; +} + +sub bBack { + return shift->{bBack}; +} + +sub bNext { + return shift->{bNext}; +} + +sub bCancel { + return shift->{bCancel}; +} + + +sub setupUi { + my ( $class, $debconfWizard ) = @_; + my $self = bless {}, $class; + if ( !defined $debconfWizard->objectName() ) { + $debconfWizard->setObjectName( 'debconfWizard' ); + } + $debconfWizard->resize( 660, 460 ); + my $vboxLayout = Qt::VBoxLayout( $debconfWizard ); + $self->{vboxLayout} = $vboxLayout; + $vboxLayout->setSpacing( 6 ); + $vboxLayout->setMargin( 11 ); + $vboxLayout->setObjectName( 'vboxLayout' ); + my $title = Qt::Label( $debconfWizard ); + $self->{title} = $title; + $title->setObjectName( 'title' ); + my $sizePolicy = Qt::SizePolicy( Qt::SizePolicy::Preferred(), Qt::SizePolicy::Fixed() ); + $self->{$sizePolicy} = $sizePolicy; + $sizePolicy->setHorizontalStretch( 0 ); + $sizePolicy->setVerticalStretch( 0 ); + $sizePolicy->setHeightForWidth( $title->sizePolicy()->hasHeightForWidth() ); + $title->setSizePolicy( $sizePolicy ); + $title->setWordWrap( 0 ); + + $vboxLayout->addWidget( $title ); + + my $line1 = Qt::Frame( $debconfWizard ); + $self->{line1} = $line1; + $line1->setObjectName( 'line1' ); + $sizePolicy->setHeightForWidth( $line1->sizePolicy()->hasHeightForWidth() ); + $line1->setSizePolicy( $sizePolicy ); + $line1->setFrameShape( Qt::Frame::HLine() ); + $line1->setFrameShadow( Qt::Frame::Sunken() ); + + $vboxLayout->addWidget( $line1 ); + + my $mainFrame = Qt::Widget( $debconfWizard ); + $self->{mainFrame} = $mainFrame; + $mainFrame->setObjectName( 'mainFrame' ); + + $vboxLayout->addWidget( $mainFrame ); + + my $hboxLayout = Qt::HBoxLayout( ); + $self->{hboxLayout} = $hboxLayout; + $hboxLayout->setSpacing( 6 ); + $hboxLayout->setObjectName( 'hboxLayout' ); + my $bHelp = Qt::PushButton( $debconfWizard ); + $self->{bHelp} = $bHelp; + $bHelp->setObjectName( 'bHelp' ); + + $hboxLayout->addWidget( $bHelp ); + + my $spacer1 = Qt::SpacerItem( 161, 20, Qt::SizePolicy::Expanding(), Qt::SizePolicy::Minimum() ); + + $hboxLayout->addItem( $spacer1 ); + + my $bBack = Qt::PushButton( $debconfWizard ); + $self->{bBack} = $bBack; + $bBack->setObjectName( 'bBack' ); + + $hboxLayout->addWidget( $bBack ); + + my $bNext = Qt::PushButton( $debconfWizard ); + $self->{bNext} = $bNext; + $bNext->setObjectName( 'bNext' ); + + $hboxLayout->addWidget( $bNext ); + + my $bCancel = Qt::PushButton( $debconfWizard ); + $self->{bCancel} = $bCancel; + $bCancel->setObjectName( 'bCancel' ); + + $hboxLayout->addWidget( $bCancel ); + + + $vboxLayout->addLayout( $hboxLayout ); + + + $self->retranslateUi( $debconfWizard ); + + Qt::MetaObject->connectSlotsByName( $debconfWizard ); + return $self; +} # setupUi + +sub setup_ui { + my ( $debconfWizard ) = @_; + return setupUi( $debconfWizard ); +} + +sub retranslateUi { + my ( $self, $debconfWizard ) = @_; + $debconfWizard->setWindowTitle( Qt::Application::translate( 'DebconfWizard', 'Debconf', undef, Qt::Application::UnicodeUTF8() ) ); + $self->title()->setText( Qt::Application::translate( 'DebconfWizard', 'title', undef, Qt::Application::UnicodeUTF8() ) ); + $self->bHelp()->setText( Qt::Application::translate( 'DebconfWizard', 'Help', undef, Qt::Application::UnicodeUTF8() ) ); + $self->bBack()->setText( Qt::Application::translate( 'DebconfWizard', '< Back', undef, Qt::Application::UnicodeUTF8() ) ); + $self->bNext()->setText( Qt::Application::translate( 'DebconfWizard', 'Next >', undef, Qt::Application::UnicodeUTF8() ) ); + $self->bCancel()->setText( Qt::Application::translate( 'DebconfWizard', 'Cancel', undef, Qt::Application::UnicodeUTF8() ) ); +} # retranslateUi + +sub retranslate_ui { + my ( $debconfWizard ) = @_; + retranslateUi( $debconfWizard ); +} + +1;
\ No newline at end of file diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/FrontEnd/Kde/Wizard.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/FrontEnd/Kde/Wizard.pm new file mode 100644 index 0000000..fc1030b --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/FrontEnd/Kde/Wizard.pm @@ -0,0 +1,80 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::FrontEnd::Kde::Wizard; +use strict; +use utf8; +use Debconf::Log ':all'; +use QtCore4; +use QtGui4; +use QtCore4::isa qw(Qt::Widget Debconf::FrontEnd::Kde::Ui_DebconfWizard); +use QtCore4::slots 'goNext' => [], 'goBack' => [], 'goBye' => []; +use Debconf::FrontEnd::Kde::Ui_DebconfWizard; + +use Data::Dumper; +sub NEW { + + my ( $class, $parent ) = @_; + $class->SUPER::NEW($parent ); + this->{frontend} = $_[3]; + + my $ui = this->{ui} = $class->setupUi(this); + + my $bNext = $ui->{bNext}; + my $bBack = $ui->{bBack}; + my $bCancel = $ui->{bCancel}; + this->setObjectName("Wizard"); + this->connect($bNext, SIGNAL 'clicked ()', SLOT 'goNext ()'); + this->connect($bBack, SIGNAL 'clicked ()', SLOT 'goBack ()'); + this->connect($bCancel, SIGNAL 'clicked ()', SLOT 'goBye ()'); + + this->{ui}->mainFrame->setObjectName("mainFrame");; +} + + +sub setTitle { + this->{ui}->{title}->setText($_[0]); +} + + +sub setNextEnabled { + this->{ui}->{bNext}->setEnabled(shift); +} + + +sub setBackEnabled { + this->{ui}->{bBack}->setEnabled(shift); +} + + +sub goNext { + debug frontend => "QTF: -- LEAVE EVENTLOOP --------"; + this->{frontend}->goback(0); + this->{frontend}->win->close; +} + + +sub goBack { + debug frontend => "QTF: -- LEAVE EVENTLOOP --------"; + this->{frontend}->goback(1); + this->{frontend}->win->close; +} + +sub setMainFrameLayout { + debug frontend => "QTF: -- SET MAIN LAYOUT --------"; + if(this->{ui}->mainFrame->layout) { + this->{ui}->mainFrame->layout->DESTROY; + } + this->{ui}->mainFrame->setLayout(shift); +} + + +sub goBye { + debug developer => "QTF: -- LEAVE EVENTLOOP --------"; + this->{frontend}->cancelled(1); + this->{frontend}->win->close; +} + + +1; diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/FrontEnd/Noninteractive.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/FrontEnd/Noninteractive.pm new file mode 100644 index 0000000..dfca0eb --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/FrontEnd/Noninteractive.pm @@ -0,0 +1,20 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::FrontEnd::Noninteractive; +use strict; +use base qw(Debconf::FrontEnd); + + + +sub init { + my $this=shift; + + $this->SUPER::init(@_); + + $this->need_tty(0); +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/FrontEnd/Passthrough.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/FrontEnd/Passthrough.pm new file mode 100644 index 0000000..96a3f0b --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/FrontEnd/Passthrough.pm @@ -0,0 +1,287 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::FrontEnd::Passthrough; +use strict; +use Carp; +use IO::Socket; +use IO::Handle; +use Debconf::FrontEnd; +use Debconf::Element; +use Debconf::Element::Select; +use Debconf::Element::Multiselect; +use Debconf::Log qw(:all); +use Debconf::Encoding; +use base qw(Debconf::FrontEnd); + +my ($READFD, $WRITEFD, $SOCKET); +if (defined $ENV{DEBCONF_PIPE}) { + $SOCKET = $ENV{DEBCONF_PIPE}; +} elsif (defined $ENV{DEBCONF_READFD} && defined $ENV{DEBCONF_WRITEFD}) { + $READFD = $ENV{DEBCONF_READFD}; + $WRITEFD = $ENV{DEBCONF_WRITEFD}; +} else { + die "Neither DEBCONF_PIPE nor DEBCONF_READFD and DEBCONF_WRITEFD were set\n"; +} + + +sub init { + my $this=shift; + + if (defined $SOCKET) { + $this->{readfh} = $this->{writefh} = IO::Socket::UNIX->new( + Type => SOCK_STREAM, + Peer => $SOCKET + ) || croak "Cannot connect to $SOCKET: $!"; + } else { + $this->{readfh} = IO::Handle->new_from_fd(int($READFD), "r") || croak "Failed to open fd $READFD: $!"; + $this->{writefh} = IO::Handle->new_from_fd(int($WRITEFD), "w") || croak "Failed to open fd $WRITEFD: $!"; + } + + binmode $this->{readfh}, ":utf8"; + binmode $this->{writefh}, ":utf8"; + + $this->{readfh}->autoflush(1); + $this->{writefh}->autoflush(1); + + $this->elements([]); + $this->interactive(1); + $this->need_tty(0); +} + + +sub talk { + my $this=shift; + my $command=join(' ', map { Debconf::Encoding::to_Unicode($_) } @_); + my $reply; + + my $readfh = $this->{readfh} || croak "Broken pipe"; + my $writefh = $this->{writefh} || croak "Broken pipe"; + + debug developer => "----> $command"; + print $writefh $command."\n"; + $writefh->flush; + $reply = <$readfh>; + chomp($reply); + debug developer => "<---- $reply"; + my ($tag, $val) = split(' ', $reply, 2); + $val = '' unless defined $val; + $val = Debconf::Encoding::convert("UTF-8", $val); + + return ($tag, $val) if wantarray; + return $tag; +} + + +sub makeelement +{ + my $this=shift; + my $question=shift; + + my $type=$question->type; + if ($type eq "select" || $type eq "multiselect") { + $type=ucfirst($type); + return "Debconf::Element::$type"->new(question => $question); + } else { + return Debconf::Element->new(question => $question); + } +} + + +sub capb_backup +{ + my $this=shift; + my $val = shift; + + $this->{capb_backup} = $val; + $this->talk('CAPB', 'backup') if $val; +} + + +sub capb +{ + my $this=shift; + my $ret; + return $this->{capb} if exists $this->{capb}; + + ($ret, $this->{capb}) = $this->talk('CAPB'); + return $this->{capb} if $ret eq '0'; +} + + +sub title +{ + my $this = shift; + return $this->{title} unless @_; + my $title = shift; + + $this->{title} = $title; + $this->talk('TITLE', $title); +} + + +sub settitle +{ + my $this = shift; + my $question = shift; + + $this->{title} = $question->description; + + my $tag = $question->template->template; + my $type = $question->template->type; + my $desc = $question->description; + my $extdesc = $question->extended_description; + + $this->talk('DATA', $tag, 'type', $type); + + if ($desc) { + $desc =~ s/\n/\\n/g; + $this->talk('DATA', $tag, 'description', $desc); + } + + if ($extdesc) { + $extdesc =~ s/\n/\\n/g; + $this->talk('DATA', $tag, 'extended_description', $extdesc); + } + + $this->talk('SETTITLE', $tag); +} + + +sub go { + my $this = shift; + + my @elements=grep $_->visible, @{$this->elements}; + foreach my $element (@elements) { + my $question = $element->question; + my $tag = $question->template->template; + my $type = $question->template->type; + my $desc = $question->description; + my $extdesc = $question->extended_description; + my $default; + if ($type eq 'select') { + $default = $element->translate_default; + } elsif ($type eq 'multiselect') { + $default = join ', ', $element->translate_default; + } else { + $default = $question->value; + } + + $this->talk('DATA', $tag, 'type', $type); + + if ($desc) { + $desc =~ s/\n/\\n/g; + $this->talk('DATA', $tag, 'description', $desc); + } + + if ($extdesc) { + $extdesc =~ s/\n/\\n/g; + $this->talk('DATA', $tag, 'extended_description', + $extdesc); + } + + if ($type eq "select" || $type eq "multiselect") { + my $choices = $question->choices; + $choices =~ s/\n/\\n/g if ($choices); + $this->talk('DATA', $tag, 'choices', $choices); + } + + $this->talk('SET', $tag, $default) if $default ne ''; + + my @vars=$Debconf::Db::config->variables($question->{name}); + for my $var (@vars) { + my $val=$Debconf::Db::config->getvariable($question->{name}, $var); + $val='' unless defined $val; + $this->talk('SUBST', $tag, $var, $val); + } + + $this->talk('INPUT', $question->priority, $tag); + } + + if (@elements && (scalar($this->talk('GO')) eq "30") && $this->{capb_backup}) { + return; + } + + foreach my $element (@{$this->elements}) { + if ($element->visible) { + my $tag = $element->question->template->template; + my $type = $element->question->template->type; + + my ($ret, $val)=$this->talk('GET', $tag); + if ($ret eq "0") { + if ($type eq 'select') { + $element->value($element->translate_to_C($val)); + } elsif ($type eq 'multiselect') { + $element->value(join(', ', map { $element->translate_to_C($_) } split(', ', $val))); + } else { + $element->value($val); + } + debug developer => "Got \"$val\" for $tag"; + } + } else { + $element->show; + } + } + + return 1; +} + + +sub progress_data { + my $this=shift; + my $question=shift; + + my $tag=$question->template->template; + my $type=$question->template->type; + my $desc=$question->description; + my $extdesc=$question->extended_description; + + $this->talk('DATA', $tag, 'type', $type); + + if ($desc) { + $desc =~ s/\n/\\n/g; + $this->talk('DATA', $tag, 'description', $desc); + } + + if ($extdesc) { + $extdesc =~ s/\n/\\n/g; + $this->talk('DATA', $tag, 'extended_description', $extdesc); + } +} + +sub progress_start { + my $this=shift; + + $this->progress_data($_[2]); + return $this->talk('PROGRESS', 'START', $_[0], $_[1], $_[2]->template->template); +} + +sub progress_set { + my $this=shift; + + return (scalar($this->talk('PROGRESS', 'SET', $_[0])) ne "30"); +} + +sub progress_step { + my $this=shift; + + return (scalar($this->talk('PROGRESS', 'STEP', $_[0])) ne "30"); +} + +sub progress_info { + my $this=shift; + + $this->progress_data($_[0]); + return (scalar($this->talk('PROGRESS', 'INFO', $_[0]->template->template)) ne "30"); +} + +sub progress_stop { + my $this=shift; + + return $this->talk('PROGRESS', 'STOP'); +} + + +1 + diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/FrontEnd/Readline.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/FrontEnd/Readline.pm new file mode 100644 index 0000000..44ab74e --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/FrontEnd/Readline.pm @@ -0,0 +1,164 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::FrontEnd::Readline; +use strict; +use Term::ReadLine; +use Debconf::Gettext; +use base qw(Debconf::FrontEnd::Teletype); + + +sub init { + my $this=shift; + + $this->SUPER::init(@_); + + open(TESTTY, "/dev/tty") || die gettext("This frontend requires a controlling tty.")."\n"; + close TESTTY; + + $Term::ReadLine::termcap_nowarn = 1; # Turn off stupid termcap warning. + $this->readline(Term::ReadLine->new('debconf')); + $this->readline->ornaments(1); + + if (Term::ReadLine->ReadLine =~ /::Gnu$/) { + if (exists $ENV{TERM} && $ENV{TERM} =~ /emacs/i) { + die gettext("Term::ReadLine::GNU is incompatable with emacs shell buffers.")."\n"; + } + + $this->readline->add_defun('previous-question', + sub { + if ($this->capb_backup) { + $this->_skip(1); + $this->_direction(-1); + $this->readline->stuff_char(ord "\n"); + } + else { + $this->readline->ding; + } + }, ord "\cu"); + $this->readline->add_defun('next-question', + sub { + if ($this->capb_backup) { + $this->readline->stuff_char(ord "\n"); + } + }, ord "\cv"); + $this->readline->parse_and_bind('"\e[5~": previous-question'); + $this->readline->parse_and_bind('"\e[6~": next-question'); + $this->capb('backup'); + } + + if (Term::ReadLine->ReadLine =~ /::Stub$/) { + $this->promptdefault(1); + } +} + + +sub elementtype { + return 'Teletype'; +} + + +sub go { + my $this=shift; + + foreach my $element (grep ! $_->visible, @{$this->elements}) { + my $value=$element->show; + return if $this->backup && $this->capb_backup; + $element->question->value($value); + } + + my @elements=grep $_->visible, @{$this->elements}; + unless (@elements) { + $this->_didbackup(''); + return 1; + } + + my $current=$this->_didbackup ? $#elements : 0; + + $this->_direction(1); + for (; $current > -1 && $current < @elements; $current += $this->_direction) { + my $value=$elements[$current]->show; + } + + if ($current < 0) { + $this->_didbackup(1); + return; + } + else { + $this->_didbackup(''); + return 1; + } +} + + +sub prompt { + my $this=shift; + my %params=@_; + my $prompt=$params{prompt}." "; + my $default=$params{default}; + my $noshowdefault=$params{noshowdefault}; + my $completions=$params{completions}; + + if ($completions) { + my @matches; + $this->readline->Attribs->{completion_entry_function} = sub { + my $text=shift; + my $state=shift; + + if ($state == 0) { + @matches=(); + foreach (@{$completions}) { + push @matches, $_ if /^\Q$text\E/i; + } + } + + return pop @matches; + }; + } + else { + $this->readline->Attribs->{completion_entry_function} = undef; + } + + if (exists $params{completion_append_character}) { + $this->readline->Attribs->{completion_append_character}=$params{completion_append_character}; + } + else { + $this->readline->Attribs->{completion_append_character}=''; + } + + $this->linecount(0); + my $ret; + $this->_skip(0); + if (! $noshowdefault) { + $ret=$this->readline->readline($prompt, $default); + } + else { + $ret=$this->readline->readline($prompt); + } + $this->display_nowrap("\n"); + return if $this->_skip; + $this->_direction(1); + $this->readline->addhistory($ret); + return $ret; +} + + +sub prompt_password { + my $this=shift; + my %params=@_; + + if (Term::ReadLine->ReadLine =~ /::Perl$/) { + return $this->SUPER::prompt_password(%params); + } + + delete $params{default}; + system('stty -echo 2>/dev/null'); + my $ret=$this->prompt(@_, noshowdefault => 1, completions => []); + system('stty sane 2>/dev/null'); + print "\n"; + return $ret; +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/FrontEnd/ScreenSize.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/FrontEnd/ScreenSize.pm new file mode 100644 index 0000000..4bef3a7 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/FrontEnd/ScreenSize.pm @@ -0,0 +1,54 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::FrontEnd::ScreenSize; +use strict; +use Debconf::Gettext; +use base qw(Debconf::FrontEnd); + + +sub init { + my $this=shift; + + $this->SUPER::init(@_); + + $this->resize; # Get current screen size. + $SIG{WINCH}=sub { + if (defined $this) { + $this->resize; + } + }; +} + + +sub resize { + my $this=shift; + + if (exists $ENV{LINES}) { + $this->screenheight($ENV{'LINES'}); + $this->screenheight_guessed(0); + } + else { + my ($rows)=`stty -a 2>/dev/null` =~ m/rows (\d+)/s; + if ($rows) { + $this->screenheight($rows); + $this->screenheight_guessed(0); + } + else { + $this->screenheight(25); + $this->screenheight_guessed(1); + } + } + + if (exists $ENV{COLUMNS}) { + $this->screenwidth($ENV{'COLUMNS'}); + } + else { + my ($cols)=`stty -a 2>/dev/null` =~ m/columns (\d+)/s; + $this->screenwidth($cols || 80); + } +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/FrontEnd/Teletype.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/FrontEnd/Teletype.pm new file mode 100644 index 0000000..9684411 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/FrontEnd/Teletype.pm @@ -0,0 +1,89 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::FrontEnd::Teletype; +use strict; +use Debconf::Encoding qw(width wrap); +use Debconf::Gettext; +use Debconf::Config; +use base qw(Debconf::FrontEnd::ScreenSize); + + +sub init { + my $this=shift; + + $this->SUPER::init(@_); + $this->interactive(1); + $this->linecount(0); +} + + +sub display { + my $this=shift; + my $text=shift; + + $Debconf::Encoding::columns=$this->screenwidth; + $this->display_nowrap(wrap('','',$text)); +} + + +sub display_nowrap { + my $this=shift; + my $text=shift; + + return if Debconf::Config->terse eq 'true'; + + my @lines=split(/\n/, $text); + push @lines, "" if $text=~/\n$/; + + my $title=$this->title; + if (length $title) { + unshift @lines, $title, ('-' x width $title), ''; + $this->title(''); + } + + foreach (@lines) { + if (! $this->screenheight_guessed && + $this->linecount($this->linecount+1) > $this->screenheight - 2) { + my $resp=$this->prompt( + prompt => '['.gettext("More").']', + default => '', + completions => [], + ); + if (defined $resp && $resp eq 'q') { + last; + } + } + print "$_\n"; + } +} + + +sub prompt { + my $this=shift; + my %params=@_; + + $this->linecount(0); + local $|=1; + print "$params{prompt} "; + my $ret=<STDIN>; + chomp $ret if defined $ret; + $this->display_nowrap("\n"); + return $ret; +} + + +sub prompt_password { + my $this=shift; + my %params=@_; + + delete $params{default}; + system('stty -echo 2>/dev/null'); + my $ret=$this->Debconf::FrontEnd::Teletype::prompt(%params); + system('stty sane 2>/dev/null'); + return $ret; +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/FrontEnd/Text.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/FrontEnd/Text.pm new file mode 100644 index 0000000..fe25981 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/FrontEnd/Text.pm @@ -0,0 +1,10 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::FrontEnd::Text; +use strict; +use base qw(Debconf::FrontEnd::Readline); + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/FrontEnd/Web.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/FrontEnd/Web.pm new file mode 100644 index 0000000..bb2caff --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/FrontEnd/Web.pm @@ -0,0 +1,137 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::FrontEnd::Web; +use IO::Socket; +use IO::Select; +use CGI; +use strict; +use Debconf::Gettext; +use base qw(Debconf::FrontEnd); + + + +sub init { + my $this=shift; + + $this->SUPER::init(@_); + + $this->port(8001) unless defined $this->port; + $this->formid(0); + $this->interactive(1); + $this->capb('backup'); + $this->need_tty(0); + + $this->server(IO::Socket::INET->new( + LocalPort => $this->port, + Proto => 'tcp', + Listen => 1, + Reuse => 1, + LocalAddr => '127.0.0.1', + )) || die "Can't bind to ".$this->port.": $!"; + + print STDERR sprintf(gettext("Note: Debconf is running in web mode. Go to http://localhost:%i/"),$this->port)."\n"; +} + + +sub client { + my $this=shift; + + $this->{client}=shift if @_; + return $this->{client} if $this->{client}; + + my $select=IO::Select->new($this->server); + 1 while ! $select->can_read(1); + my $client=$this->server->accept; + my $commands=''; + while (<$client>) { + last if $_ eq "\r\n"; + $commands.=$_; + } + $this->commands($commands); + $this->{client}=$client; +} + + +sub closeclient { + my $this=shift; + + close $this->client; + $this->client(''); +} + + +sub showclient { + my $this=shift; + my $page=shift; + + my $client=$this->client; + print $client $page; +} + + +sub go { + my $this=shift; + + $this->backup(''); + + my $httpheader="HTTP/1.0 200 Ok\nContent-type: text/html\n\n"; + my $form=''; + my $id=0; + my %idtoelt; + foreach my $elt (@{$this->elements}) { + $idtoelt{$id}=$elt; + $elt->id($id++); + my $html=$elt->show; + if ($html ne '') { + $form.=$html."<hr>\n"; + } + } + return 1 if $form eq ''; + + my $formid=$this->formid(1 + $this->formid); + + $form="<html>\n<title>".$this->title."</title>\n<body>\n". + "<form><input type=hidden name=formid value=$formid>\n". + $form."<p>\n"; + + if ($this->capb_backup) { + $form.="<input type=submit value=".gettext("Back")." name=back>\n"; + } + $form.="<input type=submit value=".gettext("Next").">\n"; + $form.="</form>\n</body>\n</html>\n"; + + my $query; + do { + $this->showclient($httpheader . $form); + + $this->closeclient; + $this->client; + + my @get=grep { /^GET / } split(/\r\n/, $this->commands); + my $get=shift @get; + my ($qs)=$get=~m/^GET\s+.*?\?(.*?)(?:\s+.*)?$/; + + $query=CGI->new($qs); + } until ($query->param('formid') eq $formid); + + if ($this->capb_backup && $query->param('back') ne '') { + return ''; + } + + foreach my $id ($query->param) { + next unless $idtoelt{$id}; + + $idtoelt{$id}->value($query->param($id)); + delete $idtoelt{$id}; + } + foreach my $elt (values %idtoelt) { + $elt->value(''); + } + + return 1; +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Gettext.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Gettext.pm new file mode 100644 index 0000000..1ab2e97 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Gettext.pm @@ -0,0 +1,27 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Gettext; +use strict; + + +BEGIN { + eval 'use Locale::gettext'; + if ($@) { + eval q{ + sub gettext { + return shift; + } + }; + } + else { + textdomain('debconf'); + } +} + +use base qw(Exporter); +our @EXPORT=qw(gettext); + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Iterator.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Iterator.pm new file mode 100644 index 0000000..f43b6ab --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Iterator.pm @@ -0,0 +1,17 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Iterator; +use strict; +use base qw(Debconf::Base); + + +sub iterate { + my $this=shift; + + $this->callback->($this); +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Log.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Log.pm new file mode 100644 index 0000000..869a65d --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Log.pm @@ -0,0 +1,44 @@ +#!/usr/bin/perl +# This file was preprocessed, do not edit! + + +package Debconf::Log; +use strict; +use base qw(Exporter); +our @EXPORT_OK=qw(debug warn); +our %EXPORT_TAGS = (all => [@EXPORT_OK]); # Import :all to get everything. +require Debconf::Config; # not use; there are recursive use loops + + +my $log_open=0; +sub debug { + my $type=shift; + + my $debug=Debconf::Config->debug; + if ($debug && $type =~ /$debug/) { + print STDERR "debconf ($type): ".join(" ", @_)."\n"; + } + + my $log=Debconf::Config->log; + if ($log && $type =~ /$log/) { + require Sys::Syslog; + unless ($log_open) { + Sys::Syslog::setlogsock('unix'); + Sys::Syslog::openlog('debconf', '', 'user'); + $log_open=1; + } + eval { # ignore all exceptions this throws + Sys::Syslog::syslog('debug', "($type): ". + join(" ", @_)); + }; + } +} + + +sub warn { + print STDERR "debconf: ".join(" ", @_)."\n" + unless Debconf::Config->nowarnings eq 'yes'; +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Priority.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Priority.pm new file mode 100644 index 0000000..d937626 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Priority.pm @@ -0,0 +1,40 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Priority; +use strict; +use Debconf::Config; +use base qw(Exporter); +our @EXPORT_OK = qw(high_enough priority_valid priority_list); + + +my %priorities=( + 'low' => 0, + 'medium' => 1, + 'high' => 2, + 'critical' => 3, +); + + +sub high_enough { + my $priority=shift; + + return 1 if ! exists $priorities{$priority}; + return $priorities{$priority} >= $priorities{Debconf::Config->priority}; +} + + +sub priority_valid { + my $priority=shift; + + return exists $priorities{$priority}; +} + + +sub priority_list { + return sort { $priorities{$a} <=> $priorities{$b} } keys %priorities; +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Question.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Question.pm new file mode 100644 index 0000000..10a86b9 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Question.pm @@ -0,0 +1,292 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Question; +use strict; +use Debconf::Db; +use Debconf::Template; +use Debconf::Iterator; +use Debconf::Log qw(:all); + + +use fields qw(name priority); + +our %question; + + +sub new { + my Debconf::Question $this=shift; + my $name=shift; + my $owner=shift; + my $type=shift || die "no type given for question"; + die "A question called \"$name\" already exists" + if exists $question{$name}; + unless (ref $this) { + $this = fields::new($this); + } + $this->{name}=$name; + return unless defined $this->addowner($owner, $type); + $this->flag('seen', 'false'); + return $question{$name}=$this; +} + + +sub get { + my Debconf::Question $this=shift; + my $name=shift; + return $question{$name} if exists $question{$name}; + if ($Debconf::Db::config->exists($name)) { + $this = fields::new($this); + $this->{name}=$name; + return $question{$name}=$this; + } + return undef; +} + + +sub iterator { + my $this=shift; + + my $real_iterator=$Debconf::Db::config->iterator; + return Debconf::Iterator->new(callback => sub { + return unless my $name=$real_iterator->iterate; + return $this->get($name); + }); +} + + +sub _expand_vars { + my $this=shift; + my $text=shift; + + return '' unless defined $text; + + my @vars=$Debconf::Db::config->variables($this->{name}); + + my $rest=$text; + my $result=''; + my $variable; + my $varval; + my $escape; + while ($rest =~ m/^(.*?)(\\)?\${([^{}]+)}(.*)$/sg) { + $result.=$1; # copy anything before the variable + $escape=$2; + $variable=$3; + $rest=$4; # continue trying to expand rest of text + if (defined $escape && length $escape) { + $result.="\${$variable}"; + } + else { + $varval=$Debconf::Db::config->getvariable($this->{name}, $variable); + $result.=$varval if defined($varval); # expand the variable + } + } + $result.=$rest; # add on anything that's left. + + return $result; +} + + +sub description { + my $this=shift; + return $this->_expand_vars($this->template->description); +} + + +sub extended_description { + my $this=shift; + return $this->_expand_vars($this->template->extended_description); +} + + +sub choices { + my $this=shift; + + return $this->_expand_vars($this->template->choices); +} + + +sub choices_split { + my $this=shift; + + my @items; + my $item=''; + for my $chunk (split /(\\[, ]|,\s+)/, $this->choices) { + if ($chunk=~/^\\([, ])$/) { + $item.=$1; + } elsif ($chunk=~/^,\s+$/) { + push @items, $item; + $item=''; + } else { + $item.=$chunk; + } + } + push @items, $item if $item ne ''; + return @items; +} + + +sub variable { + my $this=shift; + my $var=shift; + + if (@_) { + return $Debconf::Db::config->setvariable($this->{name}, $var, shift); + } + else { + return $Debconf::Db::config->getvariable($this->{name}, $var); + } +} + + +sub flag { + my $this=shift; + my $flag=shift; + + if ($flag eq 'isdefault') { + debug developer => "The isdefault flag is deprecated, use the seen flag instead"; + if (@_) { + my $value=(shift eq 'true') ? 'false' : 'true'; + $Debconf::Db::config->setflag($this->{name}, 'seen', $value); + } + return ($Debconf::Db::config->getflag($this->{name}, 'seen') eq 'true') ? 'false' : 'true'; + } + + if (@_) { + return $Debconf::Db::config->setflag($this->{name}, $flag, shift); + } + else { + return $Debconf::Db::config->getflag($this->{name}, $flag); + } +} + + +sub value { + my $this = shift; + + unless (@_) { + my $ret=$Debconf::Db::config->getfield($this->{name}, 'value'); + return $ret if defined $ret; + return $this->template->default if ref $this->template; + } else { + return $Debconf::Db::config->setfield($this->{name}, 'value', shift); + } +} + + +sub value_split { + my $this=shift; + + my $value=$this->value; + $value='' if ! defined $value; + my @items; + my $item=''; + for my $chunk (split /(\\[, ]|,\s+)/, $value) { + if ($chunk=~/^\\([, ])$/) { + $item.=$1; + } elsif ($chunk=~/^,\s+$/) { + push @items, $item; + $item=''; + } else { + $item.=$chunk; + } + } + push @items, $item if $item ne ''; + return @items; +} + + +sub addowner { + my $this=shift; + + return $Debconf::Db::config->addowner($this->{name}, shift, shift); +} + + +sub removeowner { + my $this=shift; + + my $template=$Debconf::Db::config->getfield($this->{name}, 'template'); + return unless $Debconf::Db::config->removeowner($this->{name}, shift); + if (length $template and + not $Debconf::Db::config->exists($this->{name})) { + $Debconf::Db::templates->removeowner($template, $this->{name}); + delete $question{$this->{name}}; + } +} + + +sub owners { + my $this=shift; + + return join(", ", sort($Debconf::Db::config->owners($this->{name}))); +} + + +sub template { + my $this=shift; + if (@_) { + my $oldtemplate=$Debconf::Db::config->getfield($this->{name}, 'template'); + my $newtemplate=shift; + if (not defined $oldtemplate or $oldtemplate ne $newtemplate) { + $Debconf::Db::templates->removeowner($oldtemplate, $this->{name}) + if defined $oldtemplate and length $oldtemplate; + + $Debconf::Db::config->setfield($this->{name}, 'template', $newtemplate); + + $Debconf::Db::templates->addowner($newtemplate, $this->{name}, + $Debconf::Db::templates->getfield($newtemplate, "type")); + } + } + return Debconf::Template->get( + $Debconf::Db::config->getfield($this->{name}, 'template')); +} + + +sub name { + my $this=shift; + + return $this->{name}; +} + + +sub priority { + my $this=shift; + + $this->{priority}=shift if @_; + + return $this->{priority}; +} + + +sub AUTOLOAD { + (my $field = our $AUTOLOAD) =~ s/.*://; + + no strict 'refs'; + *$AUTOLOAD = sub { + my $this=shift; + + if (@_) { + return $Debconf::Db::config->setfield($this->{name}, $field, shift); + } + my $ret=$Debconf::Db::config->getfield($this->{name}, $field); + unless (defined $ret) { + $ret = $this->template->$field() if ref $this->template; + } + if (defined $ret) { + if ($field =~ /^(?:description|extended_description|choices)-/i) { + return $this->_expand_vars($ret); + } else { + return $ret; + } + } + }; + goto &$AUTOLOAD; +} + +sub DESTROY { +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Template.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Template.pm new file mode 100644 index 0000000..5cadf06 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Template.pm @@ -0,0 +1,344 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Template; +use strict; +use POSIX; +use FileHandle; +use Debconf::Gettext; +use Text::Wrap; +use Text::Tabs; +use Debconf::Db; +use Debconf::Iterator; +use Debconf::Question; +use fields qw(template); +use Debconf::Log q{:all}; +use Debconf::Encoding; +use Debconf::Config; + +our %template; +$Debconf::Template::i18n=1; + +our %known_field = map { $_ => 1 } + qw{template description choices default type}; + +binmode(STDOUT); +binmode(STDERR); + + + +sub new { + my Debconf::Template $this=shift; + my $template=shift || die "no template name specified"; + my $owner=shift || 'unknown'; + my $type=shift || die "no template type specified"; + + if ($Debconf::Db::templates->exists($template) and + $Debconf::Db::templates->owners($template)) { + my $q=Debconf::Question->get($template); + $q->addowner($owner, $type) if $q; + + my @owners=$Debconf::Db::templates->owners($template); + foreach my $question (@owners) { + my $q=Debconf::Question->get($question); + if (! $q) { + warn sprintf(gettext("warning: possible database corruption. Will attempt to repair by adding back missing question %s."), $question); + my $newq=Debconf::Question->new($question, $owner, $type); + $newq->template($template); + } + } + + $this = fields::new($this); + $this->{template}=$template; + return $template{$template}=$this; + } + + unless (ref $this) { + $this = fields::new($this); + } + $this->{template}=$template; + + if ($Debconf::Db::config->exists($template)) { + my $q=Debconf::Question->get($template); + $q->addowner($owner, $type) if $q; + } + else { + my $q=Debconf::Question->new($template, $owner, $type); + $q->template($template); + } + + return unless $Debconf::Db::templates->addowner($template, $template, $type); + + $Debconf::Db::templates->setfield($template, 'type', $type); + return $template{$template}=$this; +} + + +sub get { + my Debconf::Template $this=shift; + my $template=shift; + return $template{$template} if exists $template{$template}; + if ($Debconf::Db::templates->exists($template)) { + $this = fields::new($this); + $this->{template}=$template; + return $template{$template}=$this; + } + return undef; +} + + +sub i18n { + my $class=shift; + $Debconf::Template::i18n=shift; +} + + +sub load { + my $this=shift; + my $file=shift; + + my @ret; + my $fh; + + if (ref $file) { + $fh=$file; + } + else { + $fh=FileHandle->new($file) || die "$file: $!"; + } + local $/="\n\n"; # read a template at a time. + while (<$fh>) { + my %data; + + my $save = sub { + my $field=shift; + my $value=shift; + my $extended=shift; + my $file=shift; + + $extended=~s/\n+$//; + + if ($field ne '') { + if (exists $data{$field}) { + die sprintf(gettext("Template #%s in %s has a duplicate field \"%s\" with new value \"%s\". Probably two templates are not properly separated by a lone newline.\n"), $., $file, $field, $value); + } + $data{$field}=$value; + $data{"extended_$field"}=$extended + if length $extended; + } + }; + + s/^\n+//; + s/\n+$//; + my ($field, $value, $extended)=('', '', ''); + foreach my $line (split "\n", $_) { + chomp $line; + if ($line=~/^([-_@.A-Za-z0-9]*):\s?(.*)/) { + $save->($field, $value, $extended, $file); + $field=lc $1; + $value=$2; + $value=~s/\s*$//; + $extended=''; + my $basefield=$field; + $basefield=~s/-.+$//; + if (! $known_field{$basefield}) { + warn sprintf(gettext("Unknown template field '%s', in stanza #%s of %s\n"), $field, $., $file); + } + } + elsif ($line=~/^\s\.$/) { + $extended.="\n\n"; + } + elsif ($line=~/^\s(\s+.*)/) { + my $bit=$1; + $bit=~s/\s*$//; + $extended.="\n" if length $extended && + $extended !~ /[\n ]$/; + $extended.=$bit."\n"; + } + elsif ($line=~/^\s(.*)/) { + my $bit=$1; + $bit=~s/\s*$//; + $extended.=' ' if length $extended && + $extended !~ /[\n ]$/; + $extended.=$bit; + } + else { + die sprintf(gettext("Template parse error near `%s', in stanza #%s of %s\n"), $line, $., $file); + } + } + $save->($field, $value, $extended, $file); + + die sprintf(gettext("Template #%s in %s does not contain a 'Template:' line\n"), $., $file) + unless $data{template}; + + my $template=$this->new($data{template}, @_, $data{type}); + $template->clearall; + foreach my $key (keys %data) { + next if $key eq 'template'; + $template->$key($data{$key}); + } + push @ret, $template; + } + + return @ret; +} + + +sub template { + my $this=shift; + + return $this->{template}; +} + + +sub fields { + my $this=shift; + + return $Debconf::Db::templates->fields($this->{template}); +} + + +sub clearall { + my $this=shift; + + foreach my $field ($this->fields) { + $Debconf::Db::templates->removefield($this->{template}, $field); + } +} + + +sub stringify { + my $this=shift; + + my @templatestrings; + foreach (ref $this ? $this : @_) { + my $data=''; + foreach my $key ('template', 'type', + (grep { $_ ne 'template' && $_ ne 'type'} sort $_->fields)) { + next if $key=~/^extended_/; + if ($key =~ m/-[a-z]{2}_[a-z]{2}(@[^_@.])?(-fuzzy)?$/) { + my $casekey=$key; + $casekey=~s/([a-z]{2})(@[^_@.]|)(-fuzzy|)$/uc($1).$2.$3/eg; + $data.=ucfirst($casekey).": ".$_->$key."\n"; + } + else { + $data.=ucfirst($key).": ".$_->$key."\n"; + } + my $e="extended_$key"; + my $ext=$_->$e; + if (defined $ext) { + $Text::Wrap::break = qr/\n|\s(?=\S)/; + my $extended=expand(wrap(' ', ' ', $ext)); + $extended=~s/(\n )+\n/\n .\n/g; + $data.=$extended."\n" if length $extended; + } + } + push @templatestrings, $data; + } + return join("\n", @templatestrings); +} + + +sub _addterritory { + my $locale=shift; + my $territory=shift; + $locale=~s/^([^_@.]+)/$1$territory/; + return $locale; +} +sub _addcharset { + my $locale=shift; + my $charset=shift; + $locale=~s/^([^@.]+)/$1$charset/; + return $locale; +} +sub _getlocalelist { + my $locale=shift; + $locale=~s/(@[^.]+)//; + my $modifier=$1; + my ($lang, $territory, $charset)=($locale=~m/^ + ([^_@.]+) # Language + (_[^_@.]+)? # Territory + (\..+)? # Charset + /x); + my (@ret) = ($lang); + @ret = map { $_.$modifier, $_} @ret if defined $modifier; + @ret = map { _addterritory($_,$territory), $_} @ret if defined $territory; + @ret = map { _addcharset($_,$charset), $_} @ret if defined $charset; + return @ret; +} + +sub _getlangs { + my $language=setlocale(LC_MESSAGES); + my @langs = (); + if (exists $ENV{LANGUAGE} && $ENV{LANGUAGE} ne '') { + foreach (split(/:/, $ENV{LANGUAGE})) { + push (@langs, _getlocalelist($_)); + } + } + return @langs, _getlocalelist($language); +} + +my @langs=map { lc $_ } _getlangs(); + +sub AUTOLOAD { + (my $field = our $AUTOLOAD) =~ s/.*://; + no strict 'refs'; + *$AUTOLOAD = sub { + my $this=shift; + if (@_) { + return $Debconf::Db::templates->setfield($this->{template}, $field, shift); + } + + my $ret; + my $want_i18n = $Debconf::Template::i18n && Debconf::Config->c_values ne 'true'; + + if ($want_i18n && @langs) { + foreach my $lang (@langs) { + $lang = 'en' if $lang eq 'c'; + + $ret=$Debconf::Db::templates->getfield($this->{template}, $field.'-'.$lang); + return $ret if defined $ret; + + if ($Debconf::Encoding::charmap) { + foreach my $f ($Debconf::Db::templates->fields($this->{template})) { + if ($f =~ /^\Q$field-$lang\E\.(.+)/) { + my $encoding = $1; + $ret = Debconf::Encoding::convert($encoding, $Debconf::Db::templates->getfield($this->{template}, lc($f))); + return $ret if defined $ret; + } + } + } + + last if $lang eq 'en'; + } + } elsif (not $want_i18n && $field !~ /-c$/i) { + $ret=$Debconf::Db::templates->getfield($this->{template}, $field.'-c'); + return $ret if defined $ret; + } + + $ret=$Debconf::Db::templates->getfield($this->{template}, $field); + return $ret if defined $ret; + + if ($field =~ /-/) { + (my $plainfield = $field) =~ s/-.*//; + $ret=$Debconf::Db::templates->getfield($this->{template}, $plainfield); + return $ret if defined $ret; + return ''; + } + + return ''; + }; + goto &$AUTOLOAD; +} + +sub DESTROY {} + +use overload + '""' => sub { + my $template=shift; + $template->template; + }; + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Template/Transient.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Template/Transient.pm new file mode 100644 index 0000000..beb7865 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Template/Transient.pm @@ -0,0 +1,70 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Template::Transient; +use strict; +use base 'Debconf::Template'; +use fields qw(_fields); + + + +sub new { + my $this=shift; + my $template=shift; + + unless (ref $this) { + $this = fields::new($this); + } + $this->{template}=$template; + $this->{_fields}={}; + return $this; +} + + +sub get { + die "get not supported on transient templates"; +} + + +sub fields { + my $this=shift; + + return keys %{$this->{_fields}}; +} + + +sub clearall { + my $this=shift; + + foreach my $field (keys %{$this->{_fields}}) { + delete $this->{_fields}->{$field}; + } +} + + +{ + my @langs=Debconf::Template::_getlangs(); + + sub AUTOLOAD { + (my $field = our $AUTOLOAD) =~ s/.*://; + no strict 'refs'; + *$AUTOLOAD = sub { + my $this=shift; + + return $this->{_fields}->{$field}=shift if @_; + + if ($Debconf::Template::i18n && @langs) { + foreach my $lang (@langs) { + return $this->{_fields}->{$field.'-'.lc($lang)} + if exists $this->{_fields}->{$field.'-'.lc($lang)}; + } + } + return $this->{_fields}->{$field}; + }; + goto &$AUTOLOAD; + } +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/TmpFile.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/TmpFile.pm new file mode 100644 index 0000000..2e7cead --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/TmpFile.pm @@ -0,0 +1,32 @@ +#!/usr/bin/perl +# This file was preprocessed, do not edit! + + +package Debconf::TmpFile; +use strict; +use IO::File; +use Fcntl; + + +my $filename; + +sub open { + my $fh; # will be autovivified + my $ext=shift || ''; + do { $filename=POSIX::tmpnam().$ext } + until sysopen($fh, $filename, O_WRONLY|O_TRUNC|O_CREAT|O_EXCL, 0600); + return $fh; +} + + +sub filename { + return $filename; +} + + +sub cleanup { + unlink $filename; +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debian/DebConf/Client/ConfModule.pm b/beagle/debian-rfs/usr/share/perl5/Debian/DebConf/Client/ConfModule.pm new file mode 100644 index 0000000..1516e40 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debian/DebConf/Client/ConfModule.pm @@ -0,0 +1,20 @@ +#!/usr/bin/perl +# This is a stub module that just uses the new module, and is here for +# backwards-compatability with pograms that use the old name. +package Debian::DebConf::Client::ConfModule; +use Debconf::Client::ConfModule; +use Debconf::Log qw{debug}; +print STDERR "Debian::DebConf::Client::ConfModule is deprecated, please use Debconf::Client::ConfModule instead.\n"; + +sub import { + splice @_, 0, 1 => Debconf::Client::ConfModule; + goto &{Debconf::Client::ConfModule->can('import')}; +} + +sub AUTOLOAD { + (my $sub = $AUTOLOAD) =~ s/.*:://; + *$sub = \&{"Debconf::Client::ConfModule::$sub"}; + goto &$sub; +} + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Text/WrapI18N.pm b/beagle/debian-rfs/usr/share/perl5/Text/WrapI18N.pm new file mode 100644 index 0000000..4d9d73c --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Text/WrapI18N.pm @@ -0,0 +1,239 @@ +package Text::WrapI18N; + +require Exporter; +use strict; +use warnings; + +our @ISA = qw(Exporter); +our @EXPORT = qw(wrap); +our @EXPORT_OK = qw($columns $separator); +our %EXPORT_TAGS = ('all' => [ @EXPORT, @EXPORT_OK ]); + +our $VERSION = '0.06'; + +use vars qw($columns $break $tabstop $separator $huge $unexpand $charmap); +use Text::CharWidth qw(mbswidth mblen); + +BEGIN { + $columns = 76; + # $break, $separator, $huge, and $unexpand are not supported yet. + $break = '\s'; + $tabstop = 8; + $separator = "\n"; + $huge = 'wrap'; + $unexpand = 1; + undef $charmap; +} + +sub wrap { + my $top1=shift; + my $top2=shift; + my $text=shift; + + $text = $top1 . $text; + + # $out already-formatted text for output including current line + # $len visible width of the current line without the current word + # $word the current word which might be sent to the next line + # $wlen visible width of the current word + # $c the current character + # $b whether to allow line-breaking after the current character + # $cont_lf true when LF (line feed) characters appear continuously + # $w visible width of the current character + + my $out = ''; + my $len = 0; + my $word = ''; + my $wlen = 0; + my $cont_lf = 0; + my ($c, $w, $b); + $text =~ s/\n+$/\n/; + while(1) { + if (length($text) == 0) { + return $out . $word; + } + ($c, $text, $w, $b) = _extract($text); + if ($c eq "\n") { + $out .= $word . $separator; + if (length($text) == 0) {return $out;} + $len = 0; + $text = $top2 . $text; + $word = '' ; $wlen = 0; + next; + } elsif ($w == -1) { + # all control characters other than LF are ignored + next; + } + + # when the current line have enough room + # for the curren character + + if ($len + $wlen + $w <= $columns) { + if ($c eq ' ' || $b) { + $out .= $word . $c; + $len += $wlen + $w; + $word = ''; $wlen = 0; + } else { + $word .= $c; $wlen += $w; + } + next; + } + + # when the current line overflows with the + # current character + + if ($c eq ' ') { + # the line ends by space + $out .= $word . $separator; + $len = 0; + $text = $top2 . $text; + $word = ''; $wlen = 0; + } elsif ($wlen + $w <= $columns - length ($top2)) { + # the current word is sent to next line + $out .= $separator; + $len = 0; + $text = $top2 . $word . $c . $text; + $word = ''; $wlen = 0; + } else { + # the current word is too long to fit a line + $out .= $word . $separator; + $len = 0; + $text = $top2 . $c . $text; + $word = ''; $wlen = 0; + } + } +} + + +# Extract one character from the beginning from the given string. +# Supports multibyte encodings such as UTF-8, EUC-JP, EUC-KR, +# GB2312, and Big5. +# +# return value: (character, rest string, width, line breakable) +# character: a character. This may consist from multiple bytes. +# rest string: given string without the extracted character. +# width: number of columns which the character occupies on screen. +# line breakable: true if the character allows line break after it. + +sub _extract { + my $string=shift; + my ($l, $c, $r, $w, $b, $u); + + if (length($string) == 0) { + return ('', '', 0, 0); + } + $l = mblen($string); + if ($l == 0 || $l == -1) { + return ('?', substr($string,1), 1, 0); + } + $c = substr($string, 0, $l); + $r = substr($string, $l); + $w = mbswidth($c); + + if (!defined($charmap)) { + $charmap = `/usr/bin/locale charmap`; + } + + if ($charmap =~ /UTF.8/i) { + # UTF-8 + if ($l == 3) { + # U+0800 - U+FFFF + $u = (ord(substr($c,0,1))&0x0f) * 0x1000 + + (ord(substr($c,1,1))&0x3f) * 0x40 + + (ord(substr($c,2,1))&0x3f); + $b = _isCJ($u); + } elsif ($l == 4) { + # U+10000 - U+10FFFF + $u = (ord(substr($c,0,1))&7) * 0x40000 + + (ord(substr($c,1,1))&0x3f) * 0x1000 + + (ord(substr($c,2,1))&0x3f) * 0x40 + + (ord(substr($c,3,1))&0x3f); + $b = _isCJ($u); + } else { + $b = 0; + } + } elsif ($charmap =~ /(^EUC)|(^GB)|(^BIG)/i) { + # East Asian legacy encodings + # (EUC-JP, EUC-KR, GB2312, Big5, Big5HKSCS, and so on) + + if (ord(substr($c,0,1)) >= 0x80) {$b = 1;} else {$b = 0;} + } else { + $b = 0; + } + return ($c, $r, $w, $b); +} + +# Returns 1 for Chinese and Japanese characters. This means that +# these characters allow line wrapping after this character even +# without whitespaces because these languages don't use whitespaces +# between words. +# +# Character must be given in UCS-4 codepoint value. + +sub _isCJ { + my $u=shift; + + if ($u >= 0x3000 && $u <= 0x312f) { + if ($u == 0x300a || $u == 0x300c || $u == 0x300e || + $u == 0x3010 || $u == 0x3014 || $u == 0x3016 || + $u == 0x3018 || $u == 0x301a) {return 0;} + return 1; + } # CJK punctuations, Hiragana, Katakana, Bopomofo + if ($u >= 0x31a0 && $u <= 0x31bf) {return 1;} # Bopomofo + if ($u >= 0x31f0 && $u <= 0x31ff) {return 1;} # Katakana extension + if ($u >= 0x3400 && $u <= 0x9fff) {return 1;} # Han Ideogram + if ($u >= 0xf900 && $u <= 0xfaff) {return 1;} # Han Ideogram + if ($u >= 0x20000 && $u <= 0x2ffff) {return 1;} # Han Ideogram + + return 0; +} + +1; +__END__ + +=head1 NAME + +Text::WrapI18N - Line wrapping module with support for multibyte, fullwidth, +and combining characters and languages without whitespaces between words + +=head1 SYNOPSIS + + use Text::WrapI18N qw(wrap $columns); + wrap(firstheader, nextheader, texts); + +=head1 DESCRIPTION + +This module intends to be a better Text::Wrap module. +This module is needed to support multibyte character encodings such +as UTF-8, EUC-JP, EUC-KR, GB2312, and Big5. This module also supports +characters with irregular widths, such as combining characters (which +occupy zero columns on terminal, like diacritical marks in UTF-8) and +fullwidth characters (which occupy two columns on terminal, like most +of east Asian characters). Also, minimal handling of languages which +doesn't use whitespaces between words (like Chinese and Japanese) is +supported. + +Like Text::Wrap, hyphenation and "kinsoku" processing are not supported, +to keep simplicity. + +I<wrap(firstheader, nextheader, texts)> is the main subroutine of +Text::WrapI18N module to execute the line wrapping. Input parameters +and output data emulate Text::Wrap. The texts have to be written in +locale encoding. + +=head1 SEE ALSO + +locale(5), utf-8(7), charsets(7) + +=head1 AUTHOR + +Tomohiro KUBOTA, E<lt>kubota@debian.orgE<gt> + +=head1 COPYRIGHT AND LICENSE + +Copyright 2003 by Tomohiro KUBOTA + +This library is free software; you can redistribute it and/or modify +it under the same terms as Perl itself. + +=cut diff --git a/beagle/debian-rfs/usr/share/pixmaps/debian-logo.png b/beagle/debian-rfs/usr/share/pixmaps/debian-logo.png Binary files differnew file mode 100644 index 0000000..0ced313 --- /dev/null +++ b/beagle/debian-rfs/usr/share/pixmaps/debian-logo.png diff --git a/beagle/debian-rfs/usr/share/sysv-rc/saveconfig b/beagle/debian-rfs/usr/share/sysv-rc/saveconfig new file mode 100755 index 0000000..f939935 --- /dev/null +++ b/beagle/debian-rfs/usr/share/sysv-rc/saveconfig @@ -0,0 +1,94 @@ +#! /usr/bin/perl +# +# saveconfig +# +# Print out the configuration of the current /etc/rc?.d +# symlink setup, in a format compatible to the +# "update-rc.d" command line. +# +# Author: Miquel van Smoorenburg <miquels@cistron.nl> +# Adjusted by Petter Reinholdtsen +# + +sub usage { + print STDERR "error: ", @_, "\n" if @_; + print STDERR <<EOF; +saveconfig [-h] [-s <archivedir>] + -s save each scripts setting in directory <archivedir> + -h show usage inforation +EOF +} + +my $archivedir = ""; + +while($#ARGV >= 0 && ($_ = $ARGV[0]) =~ /^-/) { + shift @ARGV; + if (/^-s$/) { $archivedir = shift; usage("Missing -s argument"), exit 1 unless $archivedir; next } + if (/^-h|--help$/) { &usage; } + &usage("unknown option"); +} + +chdir "/etc/init.d"; + +sub scan { + my $dir = shift; + local *DD; + my $f; + opendir DD, $dir; + foreach $f (readdir DD) { + next if ($f =~ m/^\./); + push @{$dir{$dir}}, $f; + } + closedir DD; +} + +foreach my $d (qw(S 0 1 2 3 4 5 6 7 8 9)) { + scan("/etc/rc$d.d"); +} +scan("/etc/init.d"); + +foreach my $s (@{$dir{"/etc/init.d"}}) { + my %start; + my %stop; + my $start = 0; + my $stop = 0; + foreach my $l (qw(S 0 1 2 3 4 5 6)) { + #print "L: $l\n"; + foreach my $f (@{$dir{"/etc/rc$l.d"}}) { + #print "F: $f\n"; + if ($f =~ m#^S(\d+)$s$#) { + $start{$1} .= "$l "; + $start = 1; + } + if ($f =~ m#^K(\d+)$s$#) { + $stop{$1} .= "$l "; + $stop = 1; + } + } + } + my $entry; + if ($start || $stop) { + $entry = "update-rc.d $s "; + if ($start > 0) { + foreach my $x (sort keys %start) { + $entry .= "start $x " . $start{$x} . ". "; + } + } + if ($stop > 0) { + foreach my $x (sort keys %stop) { + $entry .= "stop $x " . $stop{$x} . ". "; + } + } + $entry .= "\n"; + if ($archivedir) { + my $file = "$archivedir/$s"; + open(FILE, ">", "${file}.new") || + die "Unable to write to $file"; + print FILE $entry; + close(FILE); + rename "${file}.new", "$file"; + } else { + print $entry; + } + } +} diff --git a/beagle/debian-rfs/usr/share/sysvinit/inittab b/beagle/debian-rfs/usr/share/sysvinit/inittab new file mode 100644 index 0000000..04eabd6 --- /dev/null +++ b/beagle/debian-rfs/usr/share/sysvinit/inittab @@ -0,0 +1,69 @@ +# /etc/inittab: init(8) configuration. +# $Id: inittab,v 1.91 2002/01/25 13:35:21 miquels Exp $ + +# The default runlevel. +id:2:initdefault: + +# Boot-time system configuration/initialization script. +# This is run first except when booting in emergency (-b) mode. +si::sysinit:/etc/init.d/rcS + +# What to do in single-user mode. +~~:S:wait:/sbin/sulogin + +# /etc/init.d executes the S and K scripts upon change +# of runlevel. +# +# Runlevel 0 is halt. +# Runlevel 1 is single-user. +# Runlevels 2-5 are multi-user. +# Runlevel 6 is reboot. + +l0:0:wait:/etc/init.d/rc 0 +l1:1:wait:/etc/init.d/rc 1 +l2:2:wait:/etc/init.d/rc 2 +l3:3:wait:/etc/init.d/rc 3 +l4:4:wait:/etc/init.d/rc 4 +l5:5:wait:/etc/init.d/rc 5 +l6:6:wait:/etc/init.d/rc 6 +# Normally not reached, but fallthrough in case of emergency. +z6:6:respawn:/sbin/sulogin + +# What to do when CTRL-ALT-DEL is pressed. +ca:12345:ctrlaltdel:/sbin/shutdown -t1 -a -r now + +# Action on special keypress (ALT-UpArrow). +#kb::kbrequest:/bin/echo "Keyboard Request--edit /etc/inittab to let this work." + +# What to do when the power fails/returns. +pf::powerwait:/etc/init.d/powerfail start +pn::powerfailnow:/etc/init.d/powerfail now +po::powerokwait:/etc/init.d/powerfail stop + +# /sbin/getty invocations for the runlevels. +# +# The "id" field MUST be the same as the last +# characters of the device (after "tty"). +# +# Format: +# <id>:<runlevels>:<action>:<process> +# +# Note that on most Debian systems tty7 is used by the X Window System, +# so if you want to add more getty's go ahead but skip tty7 if you run X. +# +1:2345:respawn:/sbin/getty 38400 tty1 +2:23:respawn:/sbin/getty 38400 tty2 +3:23:respawn:/sbin/getty 38400 tty3 +4:23:respawn:/sbin/getty 38400 tty4 +5:23:respawn:/sbin/getty 38400 tty5 +6:23:respawn:/sbin/getty 38400 tty6 + +# Example how to put a getty on a serial line (for a terminal) +# +#T0:23:respawn:/sbin/getty -L ttyS0 9600 vt100 +#T1:23:respawn:/sbin/getty -L ttyS1 9600 vt100 + +# Example how to put a getty on a modem line. +# +#T3:23:respawn:/sbin/mgetty -x0 -s 57600 ttyS3 + diff --git a/beagle/debian-rfs/usr/share/sysvinit/update-rc.d b/beagle/debian-rfs/usr/share/sysvinit/update-rc.d new file mode 100755 index 0000000..daaa54c --- /dev/null +++ b/beagle/debian-rfs/usr/share/sysvinit/update-rc.d @@ -0,0 +1,27 @@ +#! /bin/sh +# +# update-rc.d +# +# Dummy update-rc.d, installed when file-rc replaces +# sysv-rc or the other way around. The postrm of the +# package being replaced symlinks /usr/sbin/update-rc.d +# to this dummy file. +# +# All this script does is "scream and die". +# + +name=`basename $0` + +cat <<EOF >&2 + +$name: not present yet. + +You are replacing sysv-rc with file-rc or another -rc package, or +the other way around. The replacement package must first be +unpacked before you can configure other packages. + +Exiting with error status 1. + +EOF + +exit 1 diff --git a/beagle/debian-rfs/usr/share/tabset/std b/beagle/debian-rfs/usr/share/tabset/std new file mode 100644 index 0000000..e93f737 --- /dev/null +++ b/beagle/debian-rfs/usr/share/tabset/std @@ -0,0 +1 @@ +
3
1 1 1 1 1 1 1 1 1 1 1 1 1 diff --git a/beagle/debian-rfs/usr/share/tabset/stdcrt b/beagle/debian-rfs/usr/share/tabset/stdcrt new file mode 100644 index 0000000..66ba12f --- /dev/null +++ b/beagle/debian-rfs/usr/share/tabset/stdcrt @@ -0,0 +1 @@ +
3
1 1 1 1 1 1 1 1 1
\ No newline at end of file diff --git a/beagle/debian-rfs/usr/share/tabset/vt100 b/beagle/debian-rfs/usr/share/tabset/vt100 new file mode 100644 index 0000000..8828d19 --- /dev/null +++ b/beagle/debian-rfs/usr/share/tabset/vt100 @@ -0,0 +1,3 @@ +
+[3g +H H H H H H H H H H H H H H H H diff --git a/beagle/debian-rfs/usr/share/tabset/vt300 b/beagle/debian-rfs/usr/share/tabset/vt300 new file mode 100644 index 0000000..b1f9ce1 --- /dev/null +++ b/beagle/debian-rfs/usr/share/tabset/vt300 @@ -0,0 +1,3 @@ + +[3g +P2$t9/17/25/33/41/49/57/65/73/81/89/97/105/113/121/129\ |
